diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr index 15400224f19..02d54be09a7 100644 --- a/Packages/Kernel/Globals/14.4+TASKS.zwr +++ b/Packages/Kernel/Globals/14.4+TASKS.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: TASKS -30-AUG-2019 18:27:08 ZWR -^%ZTSK(-1)=5270 +30-AUG-2019 19:23:45 ZWR +^%ZTSK(-1)=5274 ^%ZTSK(0)="TASKS^14.4^5020" ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^" ^%ZTSK(1001,.02)="^PLA^^" @@ -50454,6 +50454,47 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(5270,.3,"DUZ(",0)="@" ^%ZTSK(5270,.3,"XQSCH")=8 ^%ZTSK(5270,.3,"XQY")=9891 +^%ZTSK(5271,0)="HOUR^XUTMHR^.5^^65255,69486^65255,69486^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^" +^%ZTSK(5271,.02)="^VISTA^^" +^%ZTSK(5271,.03)="Taskman Hourly Job" +^%ZTSK(5271,.04)=5638101486 +^%ZTSK(5271,.1)="B^65255,69546^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5271,.2)="" +^%ZTSK(5271,.21)="" +^%ZTSK(5271,.25)="" +^%ZTSK(5272,0)="ZTSK^XQ1^.5^VISTA^65255,69546^65255,69546^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(5272,.02)="^VISTA^^" +^%ZTSK(5272,.03)="No Description (%ZTLOAD)" +^%ZTSK(5272,.04)=5638101546 +^%ZTSK(5272,.1)="B^65255,69548^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5272,.2)="" +^%ZTSK(5272,.21)="" +^%ZTSK(5272,.25)="" +^%ZTSK(5272,.3,"DUZ(",0)="@" +^%ZTSK(5272,.3,"XQSCH")=10 +^%ZTSK(5272,.3,"XQY")=8853 +^%ZTSK(5273,0)="ZTSK^XQ1^.5^VISTA^65255,69546^65255,69546^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(5273,.02)="^VISTA^^" +^%ZTSK(5273,.03)="No Description (%ZTLOAD)" +^%ZTSK(5273,.04)=5638101546 +^%ZTSK(5273,.1)="B^65255,69550^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5273,.2)="" +^%ZTSK(5273,.21)="" +^%ZTSK(5273,.25)="" +^%ZTSK(5273,.3,"DUZ(",0)="@" +^%ZTSK(5273,.3,"XQSCH")=11 +^%ZTSK(5273,.3,"XQY")=8412 +^%ZTSK(5274,0)="ZTSK^XQ1^.5^VISTA^65255,69546^65255,69546^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(5274,.02)="^VISTA^^" +^%ZTSK(5274,.03)="No Description (%ZTLOAD)" +^%ZTSK(5274,.04)=5638101546 +^%ZTSK(5274,.1)="B^65255,69552^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5274,.2)="" +^%ZTSK(5274,.21)="" +^%ZTSK(5274,.25)="" +^%ZTSK(5274,.3,"DUZ(",0)="@" +^%ZTSK(5274,.3,"XQSCH")=8 +^%ZTSK(5274,.3,"XQY")=9891 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running" ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running" ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running" diff --git a/Packages/Kernel/Globals/19+OPTION.zwr b/Packages/Kernel/Globals/19+OPTION.zwr index 94c6283fc49..4b6434a63e5 100644 --- a/Packages/Kernel/Globals/19+OPTION.zwr +++ b/Packages/Kernel/Globals/19+OPTION.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: OPTION -30-AUG-2019 15:39:09 ZWR -^DIC(19,0)="OPTION^19I^11951^10388" +30-AUG-2019 19:23:56 ZWR +^DIC(19,0)="OPTION^19I^11953^10390" ^DIC(19,0,"DD")="#" ^DIC(19,0,"DEL")="#" ^DIC(19,0,"GL")="^DIC(19," @@ -14740,7 +14740,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,1359,10,"B",7716,9)="" ^DIC(19,1359,10,"B",11908,10)="" ^DIC(19,1359,10,"B",11921,11)="" -^DIC(19,1359,99)="65153,34367" +^DIC(19,1359,99)="65255,69567" ^DIC(19,1359,"U")="OTHER OPTIONS" ^DIC(19,1360,0)="DDS EDIT/CREATE A FORM^Edit/Create a Form^^R^1^^^^^^^^^^^" ^DIC(19,1360,1,0)="^^2^2^2940630^" @@ -124066,10 +124066,14 @@ OSEHRA ZGO Export: OPTION ^DIC(19,11921,1,0)="^^2^2^3180801^" ^DIC(19,11921,1,1,0)="This menu contains options that allow creation and management of Entities" ^DIC(19,11921,1,2,0)="for mapping VistA data to other data models." -^DIC(19,11921,10,0)="^19.01IP^1^1" +^DIC(19,11921,10,0)="^19.01IP^3^3" ^DIC(19,11921,10,1,0)="11920^^1" +^DIC(19,11921,10,2,0)="11952^^3" +^DIC(19,11921,10,3,0)="11953^^2" ^DIC(19,11921,10,"B",11920,1)="" -^DIC(19,11921,99)="65153,34367" +^DIC(19,11921,10,"B",11952,2)="" +^DIC(19,11921,10,"B",11953,3)="" +^DIC(19,11921,99)="65255,69567" ^DIC(19,11921,"U")="ENTITY MAPPING" ^DIC(19,11922,0)="VPR HS ENABLE^Enable Data Monitoring^^R^17^^^^^^^214" ^DIC(19,11922,1,0)="^^2^2^3181017^" @@ -124481,6 +124485,17 @@ OSEHRA ZGO Export: OPTION ^DIC(19,11951,10,"B",11950,3)="" ^DIC(19,11951,99)="65252,33538" ^DIC(19,11951,"U")="CLOZAPINE INPATIENT MEDICATION" +^DIC(19,11952,0)="DDE AUTO GEN ENTITY FOR A DD #^Auto Gen Entity For A DD #^^R^17^^^^^^^13" +^DIC(19,11952,1,0)="^19.06^2^2^3190522^^^^" +^DIC(19,11952,1,1,0)="This option will generate an Entity for a user selected Data Dictionary # " +^DIC(19,11952,1,2,0)="(DD #)." +^DIC(19,11952,25)="MAIN^DDEMAP" +^DIC(19,11952,"U")="AUTO GEN ENTITY FOR A DD #" +^DIC(19,11953,0)="DDE ENTITY INQUIRE^Inquire to Entity File^^R^17^^^^^^^" +^DIC(19,11953,1,0)="^^1^1^3190522^" +^DIC(19,11953,1,1,0)="This option will prompt for an ENTITY File (#1.5) entry and then display the information." +^DIC(19,11953,25)="EN^DDEPRT" +^DIC(19,11953,"U")="INQUIRE TO ENTITY FILE" ^DIC(19,"%",0)="^1.005^2^2" ^DIC(19,"%",1,0)="XU" ^DIC(19,"%",2,0)="XQ" @@ -135663,6 +135678,8 @@ OSEHRA ZGO Export: OPTION ^DIC(19,"AD",11949,11951,5)="" ^DIC(19,"AD",11950,11951,3)="" ^DIC(19,"AD",11951,3604,41)="" +^DIC(19,"AD",11952,11921,2)="" +^DIC(19,"AD",11953,11921,3)="" ^DIC(19,"AOR","Rad/Nuc Med",5449)="" ^DIC(19,"AOR","Surgery Request",6163)="" ^DIC(19,"AT",3190829.114913,11218)="" @@ -135670,6 +135687,12 @@ OSEHRA ZGO Export: OPTION ^DIC(19,"AT",3190829.201416,9211)="" ^DIC(19,"AT",3190830.055819,9211)="" ^DIC(19,"AT",3190830.153449,10863)="" +^DIC(19,"AT",3190830.191927,11921)="" +^DIC(19,"AT",3190830.191927,11952)="" +^DIC(19,"AT",3190830.191927,11953)="" +^DIC(19,"AT",3190830.191927,"11921I11920")="" +^DIC(19,"AT",3190830.191927,"11921I11952")="" +^DIC(19,"AT",3190830.191927,"11921I11953")="" ^DIC(19,"AXQ","P0","MICRO")="65254,42553" ^DIC(19,"AXQ","P230",0)="65252,33548" ^DIC(19,"AXQ","P230","1^1")="236^0" @@ -151601,7 +151624,9 @@ OSEHRA ZGO Export: OPTION ^DIC(19,"B","CLOZAPINE MULTI TEST LINK",10569)="" ^DIC(19,"B","CRHD SHIFT CHANGE HANDOFF",10863)="" ^DIC(19,"B","DDBROWSER",1393)="" +^DIC(19,"B","DDE AUTO GEN ENTITY FOR A DD #",11952)="" ^DIC(19,"B","DDE ENTITY ENTER/EDIT",11920)="" +^DIC(19,"B","DDE ENTITY INQUIRE",11953)="" ^DIC(19,"B","DDE ENTITY MAPPING",11921)="" ^DIC(19,"B","DDMP IMPORT",7716)="" ^DIC(19,"B","DDS CLONE A FORM",11745)="" @@ -162453,6 +162478,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,"C","AUTHORIZED ABSENCE/DISCHARGE S",3651)="" ^DIC(19,"C","AUTO ENROLL RUN DATES FILE PUR",6857)="" ^DIC(19,"C","AUTO ENROLLMENT RUN DATES PURG",6896)="" +^DIC(19,"C","AUTO GEN ENTITY FOR A DD #",11952)="" ^DIC(19,"C","AUTO GENERATE EARLY WARNING SY",6910)="" ^DIC(19,"C","AUTO HINQ PURGE",4198)="" ^DIC(19,"C","AUTO LOG-IN MANAGEMENT MENU",7036)="" @@ -166350,6 +166376,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,"C","INQUIRE PTF RECORD",1973)="" ^DIC(19,"C","INQUIRE TO A LAB ADMINISTRATIO",1227)="" ^DIC(19,"C","INQUIRE TO CLAIMS TRACKING",2420)="" +^DIC(19,"C","INQUIRE TO ENTITY FILE",11953)="" ^DIC(19,"C","INQUIRE TO FILE ENTRIES",1332)="" ^DIC(19,"C","INQUIRE TO FILE ENTRIES",4920)="" ^DIC(19,"C","INQUIRE TO FILES",682)="" diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr index 6e271ba73ee..916e3e7ffc6 100644 --- a/Packages/Kernel/Globals/9.4+PACKAGE.zwr +++ b/Packages/Kernel/Globals/9.4+PACKAGE.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: PACKAGE -30-AUG-2019 18:27:10 ZWR +30-AUG-2019 19:23:47 ZWR ^DIC(9.4,-1,"INI")="^2960819.165753" ^DIC(9.4,0)="PACKAGE^9.4I^232^144" ^DIC(9.4,0,"DD")="#" @@ -52116,7 +52116,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,13,22,9,1,0)="^^2^2^3170622" ^DIC(9.4,13,22,9,1,1,0)="This Build file entry contains the Options, Security Keys, and Remote" ^DIC(9.4,13,22,9,1,2,0)="Procedures used by VA FILEMAN 22.2." -^DIC(9.4,13,22,9,"PAH",0)="^9.4901^10^10" +^DIC(9.4,13,22,9,"PAH",0)="^9.4901^11^11" ^DIC(9.4,13,22,9,"PAH",1,0)="4^3170622.141925^1" ^DIC(9.4,13,22,9,"PAH",1,1,0)="^^1^1^3170622" ^DIC(9.4,13,22,9,"PAH",1,1,1,0)="Patch DI*22.2*4 will repair VA FileMan 22.2 defects." @@ -53007,6 +53007,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,13,22,9,"PAH",10,1,263,0)="Routine list of preceding patches: 13" ^DIC(9.4,13,22,9,"PAH",10,1,264,0)=" " ^DIC(9.4,13,22,9,"PAH",10,1,265,0)="Please see the description on Forum" +^DIC(9.4,13,22,9,"PAH",11,0)="16^3190830.191927^17" ^DIC(9.4,13,22,9,"PAH","B",2,3)="" ^DIC(9.4,13,22,9,"PAH","B",3,2)="" ^DIC(9.4,13,22,9,"PAH","B",4,1)="" @@ -53017,6 +53018,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,13,22,9,"PAH","B",10,7)="" ^DIC(9.4,13,22,9,"PAH","B",13,6)="" ^DIC(9.4,13,22,9,"PAH","B",14,10)="" +^DIC(9.4,13,22,9,"PAH","B",16,11)="" ^DIC(9.4,13,22,"B",22.2,9)="" ^DIC(9.4,13,22,"B","21.0",7)="" ^DIC(9.4,13,22,"B","22.0",8)="" diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr index 6fc89b3398b..ea4b9d9db1d 100644 --- a/Packages/Kernel/Globals/9.6+BUILD.zwr +++ b/Packages/Kernel/Globals/9.6+BUILD.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: BUILD -30-AUG-2019 18:29:31 ZWR -^XPD(9.6,0)="BUILD^9.6I^11359^10999" +30-AUG-2019 19:25:59 ZWR +^XPD(9.6,0)="BUILD^9.6I^11360^11000" ^XPD(9.6,1,0)="KERNEL - VIRGIN INSTALL 8.0^3^0^2950703^n" ^XPD(9.6,1,1,0)="^^3^3^2950703^" ^XPD(9.6,1,1,1,0)="Install files needed to support Kernel 8.0. This package is" @@ -1225452,6 +1225452,126 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,11359,"REQB",0)="^9.611^1^1" ^XPD(9.6,11359,"REQB",1,0)="VIAB*1.0*11^1" ^XPD(9.6,11359,"REQB","B","VIAB*1.0*11",1)="" +^XPD(9.6,11360,0)="DI*22.2*16^13^0^3190626^y" +^XPD(9.6,11360,4,0)="^9.64PA^1.5^1" +^XPD(9.6,11360,4,1.5,0)=1.5 +^XPD(9.6,11360,4,1.5,2,0)="^9.641^1.51^2" +^XPD(9.6,11360,4,1.5,2,1.5,0)="ENTITY (File-top level)" +^XPD(9.6,11360,4,1.5,2,1.5,1,0)="^9.6411^18^14" +^XPD(9.6,11360,4,1.5,2,1.5,1,2,0)="GET ENTRY ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,3,0)="GET EXIT ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,4,0)="GET ID ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,6,0)="PUT ENTRY ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,7,0)="PUT EXIT ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,8,0)="PUT ID ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,10,0)="PUT CREATE ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,11,0)="DELETE ENTRY ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,12,0)="DELETE EXIT ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,13,0)="DELETE ID ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,14,0)="POST ENTRY ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,15,0)="POST EXIT ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,16,0)="POST ID ACTION" +^XPD(9.6,11360,4,1.5,2,1.5,1,18,0)="POST CREATE ACTION" +^XPD(9.6,11360,4,1.5,2,1.51,0)="ITEM (sub-file)" +^XPD(9.6,11360,4,1.5,2,1.51,1,0)="^9.6411^8^3" +^XPD(9.6,11360,4,1.5,2,1.51,1,6,0)="GET ACTION" +^XPD(9.6,11360,4,1.5,2,1.51,1,7,0)="PUT ACTION" +^XPD(9.6,11360,4,1.5,2,1.51,1,8,0)="POST ACTION" +^XPD(9.6,11360,4,1.5,222)="y^n^p^^^^n^^n" +^XPD(9.6,11360,4,1.5,224)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,2)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,3)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,4)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,6)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,7)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,8)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,10)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,11)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,12)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,13)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,14)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,15)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,16)="" +^XPD(9.6,11360,4,"APDD",1.5,1.5,18)="" +^XPD(9.6,11360,4,"APDD",1.5,1.51)="" +^XPD(9.6,11360,4,"APDD",1.5,1.51,6)="" +^XPD(9.6,11360,4,"APDD",1.5,1.51,7)="" +^XPD(9.6,11360,4,"APDD",1.5,1.51,8)="" +^XPD(9.6,11360,4,"B",1.5,1.5)="" +^XPD(9.6,11360,6)="^12" +^XPD(9.6,11360,6.3)=10 +^XPD(9.6,11360,"KRN",0)="^9.67PA^1.5^24" +^XPD(9.6,11360,"KRN",.4,0)=.4 +^XPD(9.6,11360,"KRN",.401,0)=.401 +^XPD(9.6,11360,"KRN",.402,0)=.402 +^XPD(9.6,11360,"KRN",.403,0)=.403 +^XPD(9.6,11360,"KRN",.403,"NM",0)="^9.68A^1^1" +^XPD(9.6,11360,"KRN",.403,"NM",1,0)="DDE ENTITY ENTER/EDIT FILE #1.5^1.5^0" +^XPD(9.6,11360,"KRN",.403,"NM","B","DDE ENTITY ENTER/EDIT FILE #1.5",1)="" +^XPD(9.6,11360,"KRN",.5,0)=.5 +^XPD(9.6,11360,"KRN",.84,0)=.84 +^XPD(9.6,11360,"KRN",1.5,0)=1.5 +^XPD(9.6,11360,"KRN",1.6,0)=1.6 +^XPD(9.6,11360,"KRN",1.61,0)=1.61 +^XPD(9.6,11360,"KRN",1.62,0)=1.62 +^XPD(9.6,11360,"KRN",3.6,0)=3.6 +^XPD(9.6,11360,"KRN",3.8,0)=3.8 +^XPD(9.6,11360,"KRN",9.2,0)=9.2 +^XPD(9.6,11360,"KRN",9.8,0)=9.8 +^XPD(9.6,11360,"KRN",9.8,"NM",0)="^9.68A^3^3" +^XPD(9.6,11360,"KRN",9.8,"NM",1,0)="DDEG^^0^B128480515" +^XPD(9.6,11360,"KRN",9.8,"NM",2,0)="DDEOPT^^0^B885922" +^XPD(9.6,11360,"KRN",9.8,"NM",3,0)="DDEPRT^^0^B48500922" +^XPD(9.6,11360,"KRN",9.8,"NM","B","DDEG",1)="" +^XPD(9.6,11360,"KRN",9.8,"NM","B","DDEOPT",2)="" +^XPD(9.6,11360,"KRN",9.8,"NM","B","DDEPRT",3)="" +^XPD(9.6,11360,"KRN",19,0)=19 +^XPD(9.6,11360,"KRN",19,"NM",0)="^9.68A^3^3" +^XPD(9.6,11360,"KRN",19,"NM",1,0)="DDE ENTITY INQUIRE^^0" +^XPD(9.6,11360,"KRN",19,"NM",2,0)="DDE ENTITY MAPPING^^2" +^XPD(9.6,11360,"KRN",19,"NM",3,0)="DDE AUTO GEN ENTITY FOR A DD #^^0" +^XPD(9.6,11360,"KRN",19,"NM","B","DDE AUTO GEN ENTITY FOR A DD #",3)="" +^XPD(9.6,11360,"KRN",19,"NM","B","DDE ENTITY INQUIRE",1)="" +^XPD(9.6,11360,"KRN",19,"NM","B","DDE ENTITY MAPPING",2)="" +^XPD(9.6,11360,"KRN",19.1,0)=19.1 +^XPD(9.6,11360,"KRN",101,0)=101 +^XPD(9.6,11360,"KRN",409.61,0)=409.61 +^XPD(9.6,11360,"KRN",771,0)=771 +^XPD(9.6,11360,"KRN",779.2,0)=779.2 +^XPD(9.6,11360,"KRN",870,0)=870 +^XPD(9.6,11360,"KRN",8989.51,0)=8989.51 +^XPD(9.6,11360,"KRN",8989.52,0)=8989.52 +^XPD(9.6,11360,"KRN",8994,0)=8994 +^XPD(9.6,11360,"KRN","B",.4,.4)="" +^XPD(9.6,11360,"KRN","B",.401,.401)="" +^XPD(9.6,11360,"KRN","B",.402,.402)="" +^XPD(9.6,11360,"KRN","B",.403,.403)="" +^XPD(9.6,11360,"KRN","B",.5,.5)="" +^XPD(9.6,11360,"KRN","B",.84,.84)="" +^XPD(9.6,11360,"KRN","B",1.5,1.5)="" +^XPD(9.6,11360,"KRN","B",1.6,1.6)="" +^XPD(9.6,11360,"KRN","B",1.61,1.61)="" +^XPD(9.6,11360,"KRN","B",1.62,1.62)="" +^XPD(9.6,11360,"KRN","B",3.6,3.6)="" +^XPD(9.6,11360,"KRN","B",3.8,3.8)="" +^XPD(9.6,11360,"KRN","B",9.2,9.2)="" +^XPD(9.6,11360,"KRN","B",9.8,9.8)="" +^XPD(9.6,11360,"KRN","B",19,19)="" +^XPD(9.6,11360,"KRN","B",19.1,19.1)="" +^XPD(9.6,11360,"KRN","B",101,101)="" +^XPD(9.6,11360,"KRN","B",409.61,409.61)="" +^XPD(9.6,11360,"KRN","B",771,771)="" +^XPD(9.6,11360,"KRN","B",779.2,779.2)="" +^XPD(9.6,11360,"KRN","B",870,870)="" +^XPD(9.6,11360,"KRN","B",8989.51,8989.51)="" +^XPD(9.6,11360,"KRN","B",8989.52,8989.52)="" +^XPD(9.6,11360,"KRN","B",8994,8994)="" +^XPD(9.6,11360,"QDEF")="^^^^NO^^^^NO^^NO" +^XPD(9.6,11360,"QUES",0)="^9.62^^" +^XPD(9.6,11360,"REQB",0)="^9.611^1^1" +^XPD(9.6,11360,"REQB",1,0)="DI*22.2*9^1" +^XPD(9.6,11360,"REQB","B","DI*22.2*9",1)="" ^XPD(9.6,"B","A4A7*1.01*10",1312)="" ^XPD(9.6,"B","A4A7*1.01*11",1900)="" ^XPD(9.6,"B","A4A7*1.01*9",339)="" @@ -1226781,6 +1226901,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"B","DI*22.2*10",10883)="" ^XPD(9.6,"B","DI*22.2*13",10619)="" ^XPD(9.6,"B","DI*22.2*14",11312)="" +^XPD(9.6,"B","DI*22.2*16",11360)="" ^XPD(9.6,"B","DI*22.2*2",10401)="" ^XPD(9.6,"B","DI*22.2*3",10400)="" ^XPD(9.6,"B","DI*22.2*4",10351)="" @@ -1237698,6 +1237819,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"C",13,11146)="" ^XPD(9.6,"C",13,11203)="" ^XPD(9.6,"C",13,11312)="" +^XPD(9.6,"C",13,11360)="" ^XPD(9.6,"C",14,16)="" ^XPD(9.6,"C",14,17)="" ^XPD(9.6,"C",14,18)="" diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr index c5516ee390b..25fe761705a 100644 --- a/Packages/Kernel/Globals/9.7+INSTALL.zwr +++ b/Packages/Kernel/Globals/9.7+INSTALL.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: INSTALL -30-AUG-2019 18:29:51 ZWR -^XPD(9.7,0)="INSTALL^9.7I^11078^10936" +30-AUG-2019 19:26:22 ZWR +^XPD(9.7,0)="INSTALL^9.7I^11079^10937" ^XPD(9.7,1,0)="KERNEL - VIRGIN INSTALL 8.0^^2960531.10393^1^1^^^^3^0^.5" ^XPD(9.7,1,1)="2960604.094043^2960604.094043^2960604.094047" ^XPD(9.7,1,2)="Kernel 8.0 from ISC-SF by RSD ;Created on Jul 10, 1995@09:28:18" @@ -850574,6 +850574,81 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,11078,"RTN",2,0)="VIABMS4" ^XPD(9.7,11078,"RTN","B","VIABMS",1)="" ^XPD(9.7,11078,"RTN","B","VIABMS4",2)="" +^XPD(9.7,11079,0)="DI*22.2*16^13^3190830.191907^11079^1^^0^0DI*22.2*16^3^0^17" +^XPD(9.7,11079,1)="3190830.191927^3190830.191927^3190830.191927^3190626" +^XPD(9.7,11079,2)="Extracted from mail message ;Created on " +^XPD(9.7,11079,4,0)="^9.714P^1.5^1" +^XPD(9.7,11079,4,1.5,0)="1.5^3190830.191927" +^XPD(9.7,11079,4,"B",1.5,1.5)="" +^XPD(9.7,11079,6)="^12" +^XPD(9.7,11079,"INI",0)="^9.713^1^1" +^XPD(9.7,11079,"INI",1,0)="XPD PREINSTALL COMPLETED^3190830.191927" +^XPD(9.7,11079,"INI","B","XPD PREINSTALL COMPLETED",1)="" +^XPD(9.7,11079,"INIT",0)="^9.716^1^1" +^XPD(9.7,11079,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190830.191927" +^XPD(9.7,11079,"INIT","B","XPD POSTINSTALL COMPLETED",1)="" +^XPD(9.7,11079,"KRN",0)="^9.715P^19^3" +^XPD(9.7,11079,"KRN",.403,0)=".403^3190830.191927^8" +^XPD(9.7,11079,"KRN",.404,0)=.404 +^XPD(9.7,11079,"KRN",19,0)="19^3190830.191927^18" +^XPD(9.7,11079,"KRN","AC",8,.403)="" +^XPD(9.7,11079,"KRN","AC",18,19)="" +^XPD(9.7,11079,"KRN","B",.403,.403)="" +^XPD(9.7,11079,"KRN","B",.404,.404)="" +^XPD(9.7,11079,"KRN","B",19,19)="" +^XPD(9.7,11079,"MES",0)="^^29^29^3190830" +^XPD(9.7,11079,"MES",1,0)=" " +^XPD(9.7,11079,"MES",2,0)=" Install Started for DI*22.2*16 : " +^XPD(9.7,11079,"MES",3,0)=" Aug 30, 2019@19:19:27" +^XPD(9.7,11079,"MES",4,0)=" " +^XPD(9.7,11079,"MES",5,0)="Build Distribution Date: Jun 26, 2019" +^XPD(9.7,11079,"MES",6,0)=" " +^XPD(9.7,11079,"MES",7,0)=" Installing Routines:" +^XPD(9.7,11079,"MES",8,0)=" Aug 30, 2019@19:19:27" +^XPD(9.7,11079,"MES",9,0)=" " +^XPD(9.7,11079,"MES",10,0)=" Installing Data Dictionaries: " +^XPD(9.7,11079,"MES",11,0)=" Aug 30, 2019@19:19:27" +^XPD(9.7,11079,"MES",12,0)=" " +^XPD(9.7,11079,"MES",13,0)=" Installing PACKAGE COMPONENTS: " +^XPD(9.7,11079,"MES",14,0)=" " +^XPD(9.7,11079,"MES",15,0)=" Installing FORM" +^XPD(9.7,11079,"MES",16,0)=" " +^XPD(9.7,11079,"MES",17,0)=" Installing OPTION" +^XPD(9.7,11079,"MES",18,0)=" Aug 30, 2019@19:19:27" +^XPD(9.7,11079,"MES",19,0)=" " +^XPD(9.7,11079,"MES",20,0)=" Updating Routine file..." +^XPD(9.7,11079,"MES",21,0)=" " +^XPD(9.7,11079,"MES",22,0)=" Updating KIDS files..." +^XPD(9.7,11079,"MES",23,0)=" " +^XPD(9.7,11079,"MES",24,0)=" DI*22.2*16 Installed. " +^XPD(9.7,11079,"MES",25,0)=" Aug 30, 2019@19:19:27" +^XPD(9.7,11079,"MES",26,0)=" " +^XPD(9.7,11079,"MES",27,0)=" Not a production UCI" +^XPD(9.7,11079,"MES",28,0)=" " +^XPD(9.7,11079,"MES",29,0)=" NO Install Message sent " +^XPD(9.7,11079,"QUES",0)="^9.701^3^3" +^XPD(9.7,11079,"QUES",1,0)="XPO1" +^XPD(9.7,11079,"QUES",1,1)=0 +^XPD(9.7,11079,"QUES",1,"A")="Want KIDS to Rebuild Menu Trees Upon Completion of Install" +^XPD(9.7,11079,"QUES",1,"B")="NO" +^XPD(9.7,11079,"QUES",2,0)="XPI1" +^XPD(9.7,11079,"QUES",2,1)=0 +^XPD(9.7,11079,"QUES",2,"A")="Want KIDS to INHIBIT LOGONs during the install" +^XPD(9.7,11079,"QUES",2,"B")="NO" +^XPD(9.7,11079,"QUES",3,0)="XPZ1" +^XPD(9.7,11079,"QUES",3,1)=0 +^XPD(9.7,11079,"QUES",3,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols" +^XPD(9.7,11079,"QUES",3,"B")="NO" +^XPD(9.7,11079,"QUES","B","XPI1",2)="" +^XPD(9.7,11079,"QUES","B","XPO1",1)="" +^XPD(9.7,11079,"QUES","B","XPZ1",3)="" +^XPD(9.7,11079,"RTN",0)="^9.704A^3^3" +^XPD(9.7,11079,"RTN",1,0)="DDEG" +^XPD(9.7,11079,"RTN",2,0)="DDEOPT" +^XPD(9.7,11079,"RTN",3,0)="DDEPRT" +^XPD(9.7,11079,"RTN","B","DDEG",1)="" +^XPD(9.7,11079,"RTN","B","DDEOPT",2)="" +^XPD(9.7,11079,"RTN","B","DDEPRT",3)="" ^XPD(9.7,"ASP",1,1,1)="" ^XPD(9.7,"ASP",1,2,2)="" ^XPD(9.7,"ASP",3,1,3)="" @@ -861510,6 +861585,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"ASP",11076,1,11076)="" ^XPD(9.7,"ASP",11077,1,11077)="" ^XPD(9.7,"ASP",11078,1,11078)="" +^XPD(9.7,"ASP",11079,1,11079)="" ^XPD(9.7,"B","A4A7*1.01*10",1037)="" ^XPD(9.7,"B","A4A7*1.01*11",1611)="" ^XPD(9.7,"B","A4A7*1.01*11",1631)="" @@ -862736,6 +862812,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"B","DI*22.2*10",10592)="" ^XPD(9.7,"B","DI*22.2*13",10327)="" ^XPD(9.7,"B","DI*22.2*14",11031)="" +^XPD(9.7,"B","DI*22.2*16",11079)="" ^XPD(9.7,"B","DI*22.2*2",10097)="" ^XPD(9.7,"B","DI*22.2*3",10109)="" ^XPD(9.7,"B","DI*22.2*4",10058)="" diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr index 7a6e0a8f043..a66021947d0 100644 --- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr +++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: ROUTINE -30-AUG-2019 18:27:15 ZWR -^DIC(9.8,0)="ROUTINE^9.8^36164^29220" +30-AUG-2019 19:23:54 ZWR +^DIC(9.8,0)="ROUTINE^9.8^36165^29221" ^DIC(9.8,0,"DD")="#" ^DIC(9.8,0,"DEL")="#" ^DIC(9.8,0,"GL")="^DIC(9.8," @@ -114551,13 +114551,13 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,35981,0)="DDE1A^R" ^DIC(9.8,35981,4.1)=3190520.093247 ^DIC(9.8,35982,0)="DDEG^R" -^DIC(9.8,35982,4.1)=3190520.093247 +^DIC(9.8,35982,4.1)=3190830.191927 ^DIC(9.8,35983,0)="DDEGET^R" ^DIC(9.8,35983,4.1)=3190520.093247 ^DIC(9.8,35984,0)="DDEMAP^R" ^DIC(9.8,35984,4.1)=3190520.093247 ^DIC(9.8,35985,0)="DDEOPT^R" -^DIC(9.8,35985,4.1)=3190520.093247 +^DIC(9.8,35985,4.1)=3190830.191927 ^DIC(9.8,35986,0)="DDERR^R" ^DIC(9.8,35986,4.1)=3190520.093247 ^DIC(9.8,35987,0)="DDEX^R" @@ -114916,6 +114916,8 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,36163,4.1)=3190830.1726 ^DIC(9.8,36164,0)="VIABMS4^R" ^DIC(9.8,36164,4.1)=3190830.182246 +^DIC(9.8,36165,0)="DDEPRT^R" +^DIC(9.8,36165,4.1)=3190830.191927 ^DIC(9.8,"%",0)="^1.005^1^1" ^DIC(9.8,"%",1,0)="XU" ^DIC(9.8,"%","B","XU",1)="" @@ -115489,6 +115491,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,"B","DDEGET",35983)="" ^DIC(9.8,"B","DDEMAP",35984)="" ^DIC(9.8,"B","DDEOPT",35985)="" +^DIC(9.8,"B","DDEPRT",36165)="" ^DIC(9.8,"B","DDERR",35986)="" ^DIC(9.8,"B","DDEX",35987)="" ^DIC(9.8,"B","DDFIX",25342)="" diff --git a/Packages/VA FileMan/Globals/0.403+FORM.zwr b/Packages/VA FileMan/Globals/0.403+FORM.zwr index 082113d7370..b49a384a003 100644 --- a/Packages/VA FileMan/Globals/0.403+FORM.zwr +++ b/Packages/VA FileMan/Globals/0.403+FORM.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: FORM -20-MAY-2019 09:36:27 ZWR +30-AUG-2019 19:23:46 ZWR ^DIST(.403,0)="FORM^.403I^149^160" ^DIST(.403,.001,0)="DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1" ^DIST(.403,.001,1)=2000000 @@ -19926,21 +19926,21 @@ OSEHRA ZGO Export: FORM ^DIST(.403,149,"AY",3,547,2,"D")="1^6^30^.01" ^DIST(.403,149,"AY",3,547,4,"D")="^^^^2^0^^0" ^DIST(.403,149,"AY",3,551)="0^0^1.5^^e^^^^2" -^DIST(.403,149,"AY",3,551,2,"D")="4^21^59^2" +^DIST(.403,149,"AY",3,551,2,"D")="4^18^59^2" ^DIST(.403,149,"AY",3,551,2,"N")="0^3^3^0^3" -^DIST(.403,149,"AY",3,551,3,"D")="5^21^58^3" +^DIST(.403,149,"AY",3,551,3,"D")="5^18^58^3" ^DIST(.403,149,"AY",3,551,3,"N")="2^4^4^2^4" -^DIST(.403,149,"AY",3,551,4,"D")="6^21^60^4" +^DIST(.403,149,"AY",3,551,4,"D")="6^18^60^4" ^DIST(.403,149,"AY",3,551,4,"N")="3^5^5^3^5" -^DIST(.403,149,"AY",3,551,5,"D")="8^21^30^19.1" +^DIST(.403,149,"AY",3,551,5,"D")="8^18^30^19.1" ^DIST(.403,149,"AY",3,551,5,"N")="4^6^6^4^6" -^DIST(.403,149,"AY",3,551,6,"D")="11^21^59^6" +^DIST(.403,149,"AY",3,551,6,"D")="11^18^59^6" ^DIST(.403,149,"AY",3,551,6,"N")="5^7^7^5^7" -^DIST(.403,149,"AY",3,551,7,"D")="12^21^58^7" +^DIST(.403,149,"AY",3,551,7,"D")="12^18^58^7" ^DIST(.403,149,"AY",3,551,7,"N")="6^8^8^6^8" -^DIST(.403,149,"AY",3,551,8,"D")="13^21^60^8" +^DIST(.403,149,"AY",3,551,8,"D")="13^18^60^8" ^DIST(.403,149,"AY",3,551,8,"N")="7^9^9^7^9" -^DIST(.403,149,"AY",3,551,9,"D")="15^21^30^19.2" +^DIST(.403,149,"AY",3,551,9,"D")="15^18^30^19.2" ^DIST(.403,149,"AY",3,551,9,"N")="8^0^0^8^0" ^DIST(.403,149,"AY",3,"FIRST")="2,551" ^DIST(.403,149,"AY",4,0,0,"N")="2,552^1,552^1,552^2,552^1,552" @@ -19980,18 +19980,18 @@ OSEHRA ZGO Export: FORM ^DIST(.403,149,"AY",7,555)="6^1^1.51^^e^^^^1" ^DIST(.403,149,"AY",7,555,1,"D")="7^50^21^.04" ^DIST(.403,149,"AY",7,555,1,"N")="0^4^4^2^2" -^DIST(.403,149,"AY",7,555,2,"D")="7^17^21^.05" +^DIST(.403,149,"AY",7,555,2,"D")="7^15^21^.05" ^DIST(.403,149,"AY",7,555,2,"N")="0^4^1^0^4" -^DIST(.403,149,"AY",7,555,3,"D")="11^17^57^6" +^DIST(.403,149,"AY",7,555,3,"D")="11^15^57^6" ^DIST(.403,149,"AY",7,555,3,"N")="5^0^0^5^0" -^DIST(.403,149,"AY",7,555,4,"D")="8^17^21^.06" +^DIST(.403,149,"AY",7,555,4,"D")="8^15^21^.06" ^DIST(.403,149,"AY",7,555,4,"N")="2^5^5^1^5" -^DIST(.403,149,"AY",7,555,5,"D")="9^17^3^.09" +^DIST(.403,149,"AY",7,555,5,"D")="9^15^3^.09" ^DIST(.403,149,"AY",7,555,5,"N")="4^3^3^4^3" ^DIST(.403,149,"AY",7,"FIRST")="1,555" ^DIST(.403,149,"AY",8,0,0,"N")="1,559^1,556^1,556^2,559^1,556" ^DIST(.403,149,"AY",8,556)="6^1^1.51^^e^^^^1" -^DIST(.403,149,"AY",8,556,1,"D")="7^18^57^6" +^DIST(.403,149,"AY",8,556,1,"D")="7^14^57^6" ^DIST(.403,149,"AY",8,556,1,"N")="0^1,559^1,559^0^1,559" ^DIST(.403,149,"AY",8,559)="10^1^1.513^^e^^6^^1^1" ^DIST(.403,149,"AY",8,559,1,"D")="10^2^5^.01^^^^^^1" @@ -20020,19 +20020,19 @@ OSEHRA ZGO Export: FORM ^DIST(.403,149,"AY",9,"FIRST")="1,557" ^DIST(.403,149,"AY",10,0,0,"N")="4,558^1,558^1,558^4,558^1,558" ^DIST(.403,149,"AY",10,558)="6^1^1.51^^e^^^^1" -^DIST(.403,149,"AY",10,558,1,"D")="6^18^7^1.01" +^DIST(.403,149,"AY",10,558,1,"D")="6^13^7^1.01" ^DIST(.403,149,"AY",10,558,1,"N")="0^2^2^0^2" -^DIST(.403,149,"AY",10,558,2,"D")="8^18^57^6" +^DIST(.403,149,"AY",10,558,2,"D")="8^13^57^6" ^DIST(.403,149,"AY",10,558,2,"N")="1^3^3^1^3" -^DIST(.403,149,"AY",10,558,3,"D")="11^10^30^.08" +^DIST(.403,149,"AY",10,558,3,"D")="11^13^30^.08" ^DIST(.403,149,"AY",10,558,3,"N")="2^7^6^2^6" -^DIST(.403,149,"AY",10,558,4,"D")="15^10^57^1.02" +^DIST(.403,149,"AY",10,558,4,"D")="15^13^57^1.02" ^DIST(.403,149,"AY",10,558,4,"N")="8^0^0^8^0" -^DIST(.403,149,"AY",10,558,6,"D")="11^51^21^.05" +^DIST(.403,149,"AY",10,558,6,"D")="11^54^21^.05" ^DIST(.403,149,"AY",10,558,6,"N")="2^7^7^3^7" -^DIST(.403,149,"AY",10,558,7,"D")="12^51^13^.06" +^DIST(.403,149,"AY",10,558,7,"D")="12^54^13^.06" ^DIST(.403,149,"AY",10,558,7,"N")="6^8^8^6^8" -^DIST(.403,149,"AY",10,558,8,"D")="13^51^3^.07" +^DIST(.403,149,"AY",10,558,8,"D")="13^54^3^.07" ^DIST(.403,149,"AY",10,558,8,"N")="7^4^4^7^4" ^DIST(.403,149,"AY",10,"FIRST")="1,558" ^DIST(.403,149,"AY",11,0,0,"N")="8,560^1,560^1,560^8,560^1,560" @@ -20076,17 +20076,17 @@ OSEHRA ZGO Export: FORM ^DIST(.403,149,"AY","CAP","FILTER BY",11,11,560,7)="" ^DIST(.403,149,"AY","CAP","FILTER BY","1^2^3",1,548,6)="" ^DIST(.403,149,"AY","CAP","FIXED RESPONSE",4,4,552,1)="" -^DIST(.403,149,"AY","CAP","GET ID PROCESSING","1^2^3",3,551,4)="" -^DIST(.403,149,"AY","CAP","GET PRE PROCESSING","1^2^3",3,551,2)="" +^DIST(.403,149,"AY","CAP","GET ACTION",4,4,552,2)="" +^DIST(.403,149,"AY","CAP","GET ACTION",5,5,553,3)="" +^DIST(.403,149,"AY","CAP","GET ACTION",6,6,554,7)="" +^DIST(.403,149,"AY","CAP","GET ACTION",7,7,555,3)="" +^DIST(.403,149,"AY","CAP","GET ACTION",8,8,556,1)="" +^DIST(.403,149,"AY","CAP","GET ACTION",9,9,557,6)="" +^DIST(.403,149,"AY","CAP","GET ACTION",10,10,558,2)="" +^DIST(.403,149,"AY","CAP","GET ENTRY ACTION","1^2^3",3,551,2)="" +^DIST(.403,149,"AY","CAP","GET EXIT ACTION","1^2^3",3,551,3)="" +^DIST(.403,149,"AY","CAP","GET ID ACTION","1^2^3",3,551,4)="" ^DIST(.403,149,"AY","CAP","GET POLICY","1^2^3",3,551,5)="" -^DIST(.403,149,"AY","CAP","GET POST PROCESSING","1^2^3",3,551,3)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",4,4,552,2)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",5,5,553,3)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",6,6,554,7)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",7,7,555,3)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",8,8,556,1)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",9,9,557,6)="" -^DIST(.403,149,"AY","CAP","GET PROCESSING",10,10,558,2)="" ^DIST(.403,149,"AY","CAP","INPUT TRANSFORM",5,5,553,2)="" ^DIST(.403,149,"AY","CAP","INPUT TRANSFORM",6,6,554,6)="" ^DIST(.403,149,"AY","CAP","INPUT TRANSFORM",9,9,557,8)="" @@ -20098,10 +20098,10 @@ OSEHRA ZGO Export: FORM ^DIST(.403,149,"AY","CAP","OUTPUT TRANSFORM",5,5,553,1)="" ^DIST(.403,149,"AY","CAP","OUTPUT TRANSFORM",6,6,554,5)="" ^DIST(.403,149,"AY","CAP","OUTPUT TRANSFORM",9,9,557,7)="" -^DIST(.403,149,"AY","CAP","PUT ID PROCESSING","1^2^3",3,551,8)="" -^DIST(.403,149,"AY","CAP","PUT PRE PROCESSING","1^2^3",3,551,6)="" +^DIST(.403,149,"AY","CAP","PUT ENTRY ACTION","1^2^3",3,551,6)="" +^DIST(.403,149,"AY","CAP","PUT EXIT ACTION","1^2^3",3,551,7)="" +^DIST(.403,149,"AY","CAP","PUT ID ACTION","1^2^3",3,551,8)="" ^DIST(.403,149,"AY","CAP","PUT POLICY","1^2^3",3,551,9)="" -^DIST(.403,149,"AY","CAP","PUT POST PROCESSING","1^2^3",3,551,7)="" ^DIST(.403,149,"AY","CAP","QUERY ROUTINE","1^2^3",1,548,10)="" ^DIST(.403,149,"AY","CAP","READ ONLY","1^2^3",1,548,8)="" ^DIST(.403,149,"AY","CAP","SCREEN",11,11,560,8)="" @@ -20195,45 +20195,45 @@ OSEHRA ZGO Export: FORM ^DIST(.403,149,"AY","X",3,0,34)="Edit Entity" ^DIST(.403,149,"AY","X",3,1,0)="NAME: Page 3 of 3" ^DIST(.403,149,"AY","X",3,1,0,"A")="1;4;U" -^DIST(.403,149,"AY","X",3,4,0)="GET PRE PROCESSING:" -^DIST(.403,149,"AY","X",3,5,0)="GET POST PROCESSING:" -^DIST(.403,149,"AY","X",3,6,0)="GET ID PROCESSING:" -^DIST(.403,149,"AY","X",3,8,9)="GET POLICY:" -^DIST(.403,149,"AY","X",3,11,0)="PUT PRE PROCESSING:" -^DIST(.403,149,"AY","X",3,12,0)="PUT POST PROCESSING:" -^DIST(.403,149,"AY","X",3,13,0)="PUT ID PROCESSING:" -^DIST(.403,149,"AY","X",3,15,9)="PUT POLICY:" +^DIST(.403,149,"AY","X",3,4,0)="GET ENTRY ACTION:" +^DIST(.403,149,"AY","X",3,5,1)="GET EXIT ACTION:" +^DIST(.403,149,"AY","X",3,6,3)="GET ID ACTION:" +^DIST(.403,149,"AY","X",3,8,6)="GET POLICY:" +^DIST(.403,149,"AY","X",3,11,0)="PUT ENTRY ACTION:" +^DIST(.403,149,"AY","X",3,12,1)="PUT EXIT ACTION:" +^DIST(.403,149,"AY","X",3,13,3)="PUT ID ACTION:" +^DIST(.403,149,"AY","X",3,15,6)="PUT POLICY:" ^DIST(.403,149,"AY","X",4,7,1)="FIXED RESPONSE:" -^DIST(.403,149,"AY","X",4,10,1)="GET PROCESSING:" -^DIST(.403,149,"AY","X",5,7,3)="GET PROCESSING:" +^DIST(.403,149,"AY","X",4,10,5)="GET ACTION:" +^DIST(.403,149,"AY","X",5,7,7)="GET ACTION:" ^DIST(.403,149,"AY","X",5,10,1)="OUTPUT TRANSFORM:" ^DIST(.403,149,"AY","X",5,11,2)="INPUT TRANSFORM:" ^DIST(.403,149,"AY","X",6,7,11)="FIELD#: FILE#:" ^DIST(.403,149,"AY","X",6,8,5)="EXT PTR LKUP:" ^DIST(.403,149,"AY","X",6,9,3)="INTERNAL VALUE:" -^DIST(.403,149,"AY","X",6,11,3)="GET PROCESSING:" +^DIST(.403,149,"AY","X",6,11,7)="GET ACTION:" ^DIST(.403,149,"AY","X",6,13,1)="OUTPUT TRANSFORM:" ^DIST(.403,149,"AY","X",6,14,2)="INPUT TRANSFORM:" -^DIST(.403,149,"AY","X",7,7,9)="FIELD#: FILE#:" -^DIST(.403,149,"AY","X",7,8,3)="EXT PTR LKUP:" -^DIST(.403,149,"AY","X",7,9,6)="WORD WRAP:" -^DIST(.403,149,"AY","X",7,11,1)="GET PROCESSING:" -^DIST(.403,149,"AY","X",8,7,2)="GET PROCESSING:" +^DIST(.403,149,"AY","X",7,7,7)="FIELD#: FILE#:" +^DIST(.403,149,"AY","X",7,8,1)="EXT PTR LKUP:" +^DIST(.403,149,"AY","X",7,9,4)="WORD WRAP:" +^DIST(.403,149,"AY","X",7,11,3)="GET ACTION:" +^DIST(.403,149,"AY","X",8,7,2)="GET ACTION:" ^DIST(.403,149,"AY","X",8,9,4)="Seq Item" ^DIST(.403,149,"AY","X",9,6,11)="FIELD#: FILE#:" ^DIST(.403,149,"AY","X",9,7,5)="EXT PTR LKUP:" ^DIST(.403,149,"AY","X",9,8,3)="INTERNAL VALUE:" -^DIST(.403,149,"AY","X",9,10,3)="GET PROCESSING:" +^DIST(.403,149,"AY","X",9,10,7)="GET ACTION:" ^DIST(.403,149,"AY","X",9,12,1)="OUTPUT TRANSFORM:" ^DIST(.403,149,"AY","X",9,13,2)="INPUT TRANSFORM:" ^DIST(.403,149,"AY","X",9,15,11)="ENTITY:" -^DIST(.403,149,"AY","X",10,6,7)="LIST TYPE:" -^DIST(.403,149,"AY","X",10,8,2)="GET PROCESSING:" +^DIST(.403,149,"AY","X",10,6,2)="LIST TYPE:" +^DIST(.403,149,"AY","X",10,8,1)="GET ACTION:" ^DIST(.403,149,"AY","X",10,10,2)="Select the Entity or Field to be returned for each record:" -^DIST(.403,149,"AY","X",10,11,2)="ENTITY: FIELD#:" -^DIST(.403,149,"AY","X",10,12,42)="EXT PTR:" -^DIST(.403,149,"AY","X",10,13,42)="INT VAL:" -^DIST(.403,149,"AY","X",10,15,1)="XML TAG:" +^DIST(.403,149,"AY","X",10,11,5)="ENTITY: FIELD#:" +^DIST(.403,149,"AY","X",10,12,45)="EXT PTR:" +^DIST(.403,149,"AY","X",10,13,45)="INT VAL:" +^DIST(.403,149,"AY","X",10,15,4)="XML TAG:" ^DIST(.403,149,"AY","X",11,7,2)="Define the sub/file search for the desired records:" ^DIST(.403,149,"AY","X",11,9,6)="FILE#:" ^DIST(.403,149,"AY","X",11,10,7)="XREF:" diff --git a/Packages/VA FileMan/Globals/0.404+BLOCK.zwr b/Packages/VA FileMan/Globals/0.404+BLOCK.zwr index 08a17d3680b..5895092f5ba 100644 --- a/Packages/VA FileMan/Globals/0.404+BLOCK.zwr +++ b/Packages/VA FileMan/Globals/0.404+BLOCK.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: BLOCK -20-MAY-2019 09:36:27 ZWR +30-AUG-2019 19:23:46 ZWR ^DIST(.404,0)="BLOCK^.404^562^552" ^DIST(.404,.00101,0)="DICATT^1" ^DIST(.404,.00101,40,0)="^.4044I^17^16" @@ -19252,30 +19252,30 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,551,40,0)="^.4044I^9^9" ^DIST(.404,551,40,1,0)="1^3^1" ^DIST(.404,551,40,1,2)="^^2,74" -^DIST(.404,551,40,2,0)="2^GET PRE PROCESSING^3" +^DIST(.404,551,40,2,0)="2^GET ENTRY ACTION^3" ^DIST(.404,551,40,2,1)=2 -^DIST(.404,551,40,2,2)="5,22^59^5,1" -^DIST(.404,551,40,3,0)="3^GET POST PROCESSING^3" +^DIST(.404,551,40,2,2)="5,19^59^5,1" +^DIST(.404,551,40,3,0)="3^GET EXIT ACTION^3" ^DIST(.404,551,40,3,1)=3 -^DIST(.404,551,40,3,2)="6,22^58^6,1" -^DIST(.404,551,40,4,0)="4^GET ID PROCESSING^3" +^DIST(.404,551,40,3,2)="6,19^58^6,2" +^DIST(.404,551,40,4,0)="4^GET ID ACTION^3" ^DIST(.404,551,40,4,1)=4 -^DIST(.404,551,40,4,2)="7,22^60^7,1" +^DIST(.404,551,40,4,2)="7,19^60^7,4" ^DIST(.404,551,40,5,0)="5^GET POLICY^3" ^DIST(.404,551,40,5,1)=19.1 -^DIST(.404,551,40,5,2)="9,22^30^9,10" -^DIST(.404,551,40,6,0)="6^PUT PRE PROCESSING^3" +^DIST(.404,551,40,5,2)="9,19^30^9,7" +^DIST(.404,551,40,6,0)="6^PUT ENTRY ACTION^3" ^DIST(.404,551,40,6,1)=6 -^DIST(.404,551,40,6,2)="12,22^59^12,1" -^DIST(.404,551,40,7,0)="7^PUT POST PROCESSING^3" +^DIST(.404,551,40,6,2)="12,19^59^12,1" +^DIST(.404,551,40,7,0)="7^PUT EXIT ACTION^3" ^DIST(.404,551,40,7,1)=7 -^DIST(.404,551,40,7,2)="13,22^58^13,1" -^DIST(.404,551,40,8,0)="8^PUT ID PROCESSING^3" +^DIST(.404,551,40,7,2)="13,19^58^13,2" +^DIST(.404,551,40,8,0)="8^PUT ID ACTION^3" ^DIST(.404,551,40,8,1)=8 -^DIST(.404,551,40,8,2)="14,22^60^14,1" +^DIST(.404,551,40,8,2)="14,19^60^14,4" ^DIST(.404,551,40,9,0)="9^PUT POLICY^3" ^DIST(.404,551,40,9,1)=19.2 -^DIST(.404,551,40,9,2)="16,22^30^16,10" +^DIST(.404,551,40,9,2)="16,19^30^16,7" ^DIST(.404,551,40,"B",1,1)="" ^DIST(.404,551,40,"B",2,2)="" ^DIST(.404,551,40,"B",3,3)="" @@ -19286,26 +19286,26 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,551,40,"B",8,8)="" ^DIST(.404,551,40,"B",9,9)="" ^DIST(.404,551,40,"C",3,1)="" -^DIST(.404,551,40,"C","GET ID PROCESSING",4)="" -^DIST(.404,551,40,"C","GET PRE PROCESSING",2)="" +^DIST(.404,551,40,"C","GET ENTRY ACTION",2)="" +^DIST(.404,551,40,"C","GET EXIT ACTION",3)="" +^DIST(.404,551,40,"C","GET ID ACTION",4)="" ^DIST(.404,551,40,"C","GET POLICY",5)="" -^DIST(.404,551,40,"C","GET POST PROCESSING",3)="" -^DIST(.404,551,40,"C","PUT ID PROCESSING",8)="" -^DIST(.404,551,40,"C","PUT PRE PROCESSING",6)="" +^DIST(.404,551,40,"C","PUT ENTRY ACTION",6)="" +^DIST(.404,551,40,"C","PUT EXIT ACTION",7)="" +^DIST(.404,551,40,"C","PUT ID ACTION",8)="" ^DIST(.404,551,40,"C","PUT POLICY",9)="" -^DIST(.404,551,40,"C","PUT POST PROCESSING",7)="" ^DIST(.404,552,0)="DDE ITEM FIXED^1.51" ^DIST(.404,552,40,0)="^.4044I^2^2" ^DIST(.404,552,40,1,0)="1^FIXED RESPONSE^3" ^DIST(.404,552,40,1,1)=2 ^DIST(.404,552,40,1,2)="2,17^57^2,1" -^DIST(.404,552,40,2,0)="2^GET PROCESSING^3" +^DIST(.404,552,40,2,0)="2^GET ACTION^3" ^DIST(.404,552,40,2,1)=6 -^DIST(.404,552,40,2,2)="5,17^57^5,1" +^DIST(.404,552,40,2,2)="5,17^57^5,5" ^DIST(.404,552,40,"B",1,1)="" ^DIST(.404,552,40,"B",2,2)="" ^DIST(.404,552,40,"C","FIXED RESPONSE",1)="" -^DIST(.404,552,40,"C","GET PROCESSING",2)="" +^DIST(.404,552,40,"C","GET ACTION",2)="" ^DIST(.404,553,0)="DDE ITEM ID^1.51" ^DIST(.404,553,40,0)="^.4044I^3^3" ^DIST(.404,553,40,1,0)="2^OUTPUT TRANSFORM^3" @@ -19314,13 +19314,13 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,553,40,2,0)="3^INPUT TRANSFORM^3" ^DIST(.404,553,40,2,1)=5 ^DIST(.404,553,40,2,2)="6,19^57^6,2" -^DIST(.404,553,40,3,0)="1^GET PROCESSING^3" +^DIST(.404,553,40,3,0)="1^GET ACTION^3" ^DIST(.404,553,40,3,1)=6 -^DIST(.404,553,40,3,2)="2,19^57^2,3" +^DIST(.404,553,40,3,2)="2,19^57^2,7" ^DIST(.404,553,40,"B",1,3)="" ^DIST(.404,553,40,"B",2,1)="" ^DIST(.404,553,40,"B",3,2)="" -^DIST(.404,553,40,"C","GET PROCESSING",3)="" +^DIST(.404,553,40,"C","GET ACTION",3)="" ^DIST(.404,553,40,"C","INPUT TRANSFORM",2)="" ^DIST(.404,553,40,"C","OUTPUT TRANSFORM",1)="" ^DIST(.404,554,0)="DDE ITEM SIMPLE^1.51" @@ -19347,9 +19347,9 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,554,40,6,0)="7^INPUT TRANSFORM^3" ^DIST(.404,554,40,6,1)=5 ^DIST(.404,554,40,6,2)="9,19^57^9,2" -^DIST(.404,554,40,7,0)="5^GET PROCESSING^3" +^DIST(.404,554,40,7,0)="5^GET ACTION^3" ^DIST(.404,554,40,7,1)=6 -^DIST(.404,554,40,7,2)="6,19^57^6,3" +^DIST(.404,554,40,7,2)="6,19^57^6,7" ^DIST(.404,554,40,"B",1,1)="" ^DIST(.404,554,40,"B",2,2)="" ^DIST(.404,554,40,"B",3,3)="" @@ -19360,7 +19360,7 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,554,40,"C","EXT PTR LKUP",3)="" ^DIST(.404,554,40,"C","FIELD#",2)="" ^DIST(.404,554,40,"C","FILE#",1)="" -^DIST(.404,554,40,"C","GET PROCESSING",7)="" +^DIST(.404,554,40,"C","GET ACTION",7)="" ^DIST(.404,554,40,"C","INPUT TRANSFORM",6)="" ^DIST(.404,554,40,"C","INTERNAL VALUE",4)="" ^DIST(.404,554,40,"C","OUTPUT TRANSFORM",5)="" @@ -19374,17 +19374,17 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,555,40,1,12)="S DDEFN=X" ^DIST(.404,555,40,2,0)="2^FIELD#^3" ^DIST(.404,555,40,2,1)=.05 -^DIST(.404,555,40,2,2)="2,17^21^2,9" +^DIST(.404,555,40,2,2)="2,15^21^2,7" ^DIST(.404,555,40,2,14)="I $G(X),$G(DDEFN),'($D(^DD(+DDEFN,+X,0))#2) S DDSERROR=1" -^DIST(.404,555,40,3,0)="5^GET PROCESSING^3" +^DIST(.404,555,40,3,0)="5^GET ACTION^3" ^DIST(.404,555,40,3,1)=6 -^DIST(.404,555,40,3,2)="6,17^57^6,1" +^DIST(.404,555,40,3,2)="6,15^57^6,3" ^DIST(.404,555,40,4,0)="3^EXT PTR LKUP^3" ^DIST(.404,555,40,4,1)=.06 -^DIST(.404,555,40,4,2)="3,17^21^3,3" +^DIST(.404,555,40,4,2)="3,15^21^3,1" ^DIST(.404,555,40,5,0)="4^WORD WRAP^3" ^DIST(.404,555,40,5,1)=.09 -^DIST(.404,555,40,5,2)="4,17^3^4,6" +^DIST(.404,555,40,5,2)="4,15^3^4,4" ^DIST(.404,555,40,"B",1,1)="" ^DIST(.404,555,40,"B",2,2)="" ^DIST(.404,555,40,"B",3,4)="" @@ -19393,18 +19393,18 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,555,40,"C","EXT PTR LKUP",4)="" ^DIST(.404,555,40,"C","FIELD#",2)="" ^DIST(.404,555,40,"C","FILE#",1)="" -^DIST(.404,555,40,"C","GET PROCESSING",3)="" +^DIST(.404,555,40,"C","GET ACTION",3)="" ^DIST(.404,555,40,"C","WORD WRAP",5)="" ^DIST(.404,556,0)="DDE ITEM COMPLEX^1.51" ^DIST(.404,556,40,0)="^.4044I^2^2" -^DIST(.404,556,40,1,0)="1^GET PROCESSING^3" +^DIST(.404,556,40,1,0)="1^GET ACTION^3" ^DIST(.404,556,40,1,1)=6 -^DIST(.404,556,40,1,2)="2,18^57^2,2" +^DIST(.404,556,40,1,2)="2,14^57^2,2" ^DIST(.404,556,40,2,0)="2^Seq Item^1" ^DIST(.404,556,40,2,2)="^^4,4" ^DIST(.404,556,40,"B",1,1)="" ^DIST(.404,556,40,"B",2,2)="" -^DIST(.404,556,40,"C","GET PROCESSING",1)="" +^DIST(.404,556,40,"C","GET ACTION",1)="" ^DIST(.404,556,40,"C","SEQ ITEM",2)="" ^DIST(.404,557,0)="DDE ITEM ENTITY^1.51" ^DIST(.404,557,40,0)="^.4044I^8^8" @@ -19427,9 +19427,9 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,557,40,5,0)="4^INTERNAL VALUE^3" ^DIST(.404,557,40,5,1)=.07 ^DIST(.404,557,40,5,2)="3,19^3^3,3" -^DIST(.404,557,40,6,0)="5^GET PROCESSING^3" +^DIST(.404,557,40,6,0)="5^GET ACTION^3" ^DIST(.404,557,40,6,1)=6 -^DIST(.404,557,40,6,2)="5,19^59^5,3" +^DIST(.404,557,40,6,2)="5,19^59^5,7" ^DIST(.404,557,40,7,0)="6^OUTPUT TRANSFORM^3" ^DIST(.404,557,40,7,1)=4 ^DIST(.404,557,40,7,2)="7,19^59^7,1" @@ -19448,7 +19448,7 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,557,40,"C","EXT PTR LKUP",4)="" ^DIST(.404,557,40,"C","FIELD#",3)="" ^DIST(.404,557,40,"C","FILE#",1)="" -^DIST(.404,557,40,"C","GET PROCESSING",6)="" +^DIST(.404,557,40,"C","GET ACTION",6)="" ^DIST(.404,557,40,"C","INPUT TRANSFORM",8)="" ^DIST(.404,557,40,"C","INTERNAL VALUE",5)="" ^DIST(.404,557,40,"C","OUTPUT TRANSFORM",7)="" @@ -19456,31 +19456,31 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,558,40,0)="^.4044I^8^8" ^DIST(.404,558,40,1,0)="1^LIST TYPE^3" ^DIST(.404,558,40,1,1)=1.01 -^DIST(.404,558,40,1,2)="1,18^7^1,7" +^DIST(.404,558,40,1,2)="1,13^7^1,2" ^DIST(.404,558,40,1,10)="S:X=3 DDSSTACK=2.9 S:X<3 DDSSTACK=2.8" ^DIST(.404,558,40,1,12)="S DDELST=X" -^DIST(.404,558,40,2,0)="2^GET PROCESSING^3" +^DIST(.404,558,40,2,0)="2^GET ACTION^3" ^DIST(.404,558,40,2,1)=6 -^DIST(.404,558,40,2,2)="3,18^57^3,2" +^DIST(.404,558,40,2,2)="3,13^57^3,1" ^DIST(.404,558,40,2,10)="S:DDELST=3 DDSBR=""XML TAG""" ^DIST(.404,558,40,3,0)="4^ENTITY^3" ^DIST(.404,558,40,3,1)=.08 -^DIST(.404,558,40,3,2)="6,10^30^6,2" +^DIST(.404,558,40,3,2)="6,13^30^6,5" ^DIST(.404,558,40,4,0)="8^XML TAG^3" ^DIST(.404,558,40,4,1)=1.02 -^DIST(.404,558,40,4,2)="10,10^57^10,1" +^DIST(.404,558,40,4,2)="10,13^57^10,4" ^DIST(.404,558,40,5,0)="3^Select the Entity or Field to be returned for each record:^1" ^DIST(.404,558,40,5,2)="^^5,2" ^DIST(.404,558,40,6,0)="5^FIELD#^3" ^DIST(.404,558,40,6,1)=.05 -^DIST(.404,558,40,6,2)="6,51^21^6,43" +^DIST(.404,558,40,6,2)="6,54^21^6,46" ^DIST(.404,558,40,6,14)="I $G(DDEFN),'($D(^DD(+DDEFN,X,0))#2) S DDSERROR=1" ^DIST(.404,558,40,7,0)="6^EXT PTR^3" ^DIST(.404,558,40,7,1)=.06 -^DIST(.404,558,40,7,2)="7,51^13^7,42" +^DIST(.404,558,40,7,2)="7,54^13^7,45" ^DIST(.404,558,40,8,0)="7^INT VAL^3" ^DIST(.404,558,40,8,1)=.07 -^DIST(.404,558,40,8,2)="8,51^3^8,42" +^DIST(.404,558,40,8,2)="8,54^3^8,45" ^DIST(.404,558,40,"B",1,1)="" ^DIST(.404,558,40,"B",2,2)="" ^DIST(.404,558,40,"B",3,5)="" @@ -19492,7 +19492,7 @@ OSEHRA ZGO Export: BLOCK ^DIST(.404,558,40,"C","ENTITY",3)="" ^DIST(.404,558,40,"C","EXT PTR",7)="" ^DIST(.404,558,40,"C","FIELD#",6)="" -^DIST(.404,558,40,"C","GET PROCESSING",2)="" +^DIST(.404,558,40,"C","GET ACTION",2)="" ^DIST(.404,558,40,"C","INT VAL",8)="" ^DIST(.404,558,40,"C","LIST TYPE",1)="" ^DIST(.404,558,40,"C","THE ENTITY OR FIELD TO BE RETURNED FOR EACH RECORD:",5)="" diff --git a/Packages/VA FileMan/Globals/DD.zwr b/Packages/VA FileMan/Globals/DD.zwr index e9d3e3776a8..9c975a48d7f 100644 --- a/Packages/VA FileMan/Globals/DD.zwr +++ b/Packages/VA FileMan/Globals/DD.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: ^DD -30-AUG-2019 10:51:57 ZWR +30-AUG-2019 19:23:52 ZWR ^DD(0,0)="ATTRIBUTE^N^999^41" ^DD(0,0,"IX","ACOMP",0,"9.01")="" ^DD(0,0,"IX","AUD",0,"1.1")="" @@ -6104,7 +6104,7 @@ OSEHRA ZGO Export: ^DD ^DD("1.207","B","DESCRIPTION",".01")="" ^DD("1.207","GL",0,1,".01")="" ^DD("1.5",0)="FIELD^NL^19^33" -^DD("1.5",0,"DT")=3190520 +^DD("1.5",0,"DT")=3190830 ^DD("1.5",0,"ID","W.06")="W "" "",@(""$P($P($C(59)_$S($D(^DD(1.5,.06,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,6)_"""":"""",2),$C(59),1)"")" ^DD("1.5",0,"IX","AD","1.51",".08")="" ^DD("1.5",0,"IX","B","1.5",".01")="" @@ -6196,7 +6196,7 @@ OSEHRA ZGO Export: ^DD ^DD("1.5","1.4",21,0)="^^1^1^3150903^" ^DD("1.5","1.4",21,1,0)="The name of the item that is the alternate key to the entity type." ^DD("1.5","1.4","DT")=3150903 -^DD("1.5",2,0)="GET PRE PROCESSING^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",2,0)="GET ENTRY ACTION^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",2,3)="This is Standard MUMPS code." ^DD("1.5",2,9)="@" ^DD("1.5",2,21,0)="^^8^8^3181120^" @@ -6208,16 +6208,16 @@ OSEHRA ZGO Export: ^DD ^DD("1.5",2,21,6,0)="ID holds the string that the parent entity will be passing into this one " ^DD("1.5",2,21,7,0)="(i.e., a pointer from a field value that is being expanded into a full " ^DD("1.5",2,21,8,0)="coded element by this entity)." -^DD("1.5",2,"DT")=3150903 -^DD("1.5",3,0)="GET POST PROCESSING^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",2,"DT")=3190522 +^DD("1.5",3,0)="GET EXIT ACTION^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",3,3)="This is Standard MUMPS code." ^DD("1.5",3,9)="@" ^DD("1.5",3,21,0)="^^3^3^3181120^" ^DD("1.5",3,21,1,0)="This is code that will be executed after all other processing for the" ^DD("1.5",3,21,2,0)="GET method. Be sure to kill any variables set in the GET PRE PROCESSING " ^DD("1.5",3,21,3,0)="field." -^DD("1.5",3,"DT")=3150903 -^DD("1.5",4,0)="GET ID PROCESSING^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",3,"DT")=3190522 +^DD("1.5",4,0)="GET ID ACTION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",4,3)="This is Standard MUMPS code." ^DD("1.5",4,9)="@" ^DD("1.5",4,21,0)="^^5^5^3181120^" @@ -6226,7 +6226,7 @@ OSEHRA ZGO Export: ^DD ^DD("1.5",4,21,3,0)="into this Entity to operate on." ^DD("1.5",4,21,4,0)=" " ^DD("1.5",4,21,5,0)="Set DDEOUT=1 to skip or omit this entire record from the results." -^DD("1.5",4,"DT")=3150903 +^DD("1.5",4,"DT")=3190522 ^DD("1.5",5,0)="GET QUERY ROUTINE^Ft12^^5;E1,99^" ^DD("1.5",5,3)="Enter the tag^routine to be used in place of FIND^DIC for this Entity." ^DD("1.5",5,21,0)="^^11^11^3181120^" @@ -6252,83 +6252,83 @@ OSEHRA ZGO Export: ^DD ^DD("1.5","5.1",21,1,0)="This is Standard MUMPS code that will set DIC('S') for a screen, to be" ^DD("1.5","5.1",21,2,0)="used in a FIND^DIC query." ^DD("1.5","5.1","DT")=3180303 -^DD("1.5",6,0)="PUT PRE PROCESSING^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",6,0)="PUT ENTRY ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",6,3)="This is Standard MUMPS code." ^DD("1.5",6,9)="@" ^DD("1.5",6,21,0)="^.001^2^2^3180208^^^^" ^DD("1.5",6,21,1,0)="This is code that will be executed prior to any other processing for the" ^DD("1.5",6,21,2,0)="PUT method." -^DD("1.5",6,"DT")=3150903 -^DD("1.5",7,0)="PUT POST PROCESSING^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",6,"DT")=3190522 +^DD("1.5",7,0)="PUT EXIT ACTION^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",7,3)="This is Standard MUMPS code." ^DD("1.5",7,9)="@" ^DD("1.5",7,21,0)="^.001^2^2^3180208^^^" ^DD("1.5",7,21,1,0)="This is code that will be executed after all other processing for the" ^DD("1.5",7,21,2,0)="PUT method." -^DD("1.5",7,"DT")=3150903 -^DD("1.5",8,0)="PUT ID PROCESSING^K^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",7,"DT")=3190522 +^DD("1.5",8,0)="PUT ID ACTION^K^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",8,3)="This is Standard MUMPS code." ^DD("1.5",8,9)="@" ^DD("1.5",8,21,0)="^.001^2^2^3180208^^^" ^DD("1.5",8,21,1,0)="This is code that will be executed for each record, to identify or" ^DD("1.5",8,21,2,0)="validate it." -^DD("1.5",8,"DT")=3150903 -^DD("1.5",10,0)="PUT CREATE PROCESSING^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",8,"DT")=3190522 +^DD("1.5",10,0)="PUT CREATE ACTION^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",10,3)="This is Standard MUMPS code." ^DD("1.5",10,9)="@" ^DD("1.5",10,21,0)="^.001^2^2^3180208^^" ^DD("1.5",10,21,1,0)="This is code that will be executed whenever a new record is created via" ^DD("1.5",10,21,2,0)="the PUT method." -^DD("1.5",10,"DT")=3180208 -^DD("1.5",11,0)="DELETE PRE PROCESSING^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",10,"DT")=3190522 +^DD("1.5",11,0)="DELETE ENTRY ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",11,3)="This is Standard MUMPS code." ^DD("1.5",11,9)="@" ^DD("1.5",11,21,0)="^.001^2^2^3180208^^" ^DD("1.5",11,21,1,0)="This is code that will be executed prior to any other processing for the" ^DD("1.5",11,21,2,0)="DELETE method." -^DD("1.5",11,"DT")=3150903 -^DD("1.5",12,0)="DELETE POST PROCESSING^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",11,"DT")=3190522 +^DD("1.5",12,0)="DELETE EXIT ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",12,3)="This is Standard MUMPS code." ^DD("1.5",12,9)="@" ^DD("1.5",12,21,0)="^.001^2^2^3180208^^" ^DD("1.5",12,21,1,0)="This is code that will be executed after all other processing for the" ^DD("1.5",12,21,2,0)="DELETE method." -^DD("1.5",12,"DT")=3150903 -^DD("1.5",13,0)="DELETE ID PROCESSING^K^^13;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",12,"DT")=3190522 +^DD("1.5",13,0)="DELETE ID ACTION^K^^13;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",13,3)="This is Standard MUMPS code." ^DD("1.5",13,9)="@" ^DD("1.5",13,21,0)="^.001^2^2^3180208^^" ^DD("1.5",13,21,1,0)="This is code that will be executed for each record, to identify or" ^DD("1.5",13,21,2,0)="validate it." -^DD("1.5",13,"DT")=3150903 -^DD("1.5",14,0)="POST PRE PROCESSING^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",13,"DT")=3190522 +^DD("1.5",14,0)="POST ENTRY ACTION^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",14,3)="This is Standard MUMPS code." ^DD("1.5",14,9)="@" ^DD("1.5",14,21,0)="^.001^2^2^3180208^^" ^DD("1.5",14,21,1,0)="This is code that will be executed prior to any other processing for the" ^DD("1.5",14,21,2,0)="POST method." -^DD("1.5",14,"DT")=3150903 -^DD("1.5",15,0)="POST POST PROCESSING^K^^15;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",14,"DT")=3190522 +^DD("1.5",15,0)="POST EXIT ACTION^K^^15;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",15,3)="This is Standard MUMPS code." ^DD("1.5",15,9)="@" ^DD("1.5",15,21,0)="^.001^2^2^3180208^^" ^DD("1.5",15,21,1,0)="This is code that will be executed after all other processing for the" ^DD("1.5",15,21,2,0)="POST method." -^DD("1.5",15,"DT")=3150903 -^DD("1.5",16,0)="POST ID PROCESSING^K^^16;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",15,"DT")=3190522 +^DD("1.5",16,0)="POST ID ACTION^K^^16;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",16,3)="This is Standard MUMPS code." ^DD("1.5",16,9)="@" ^DD("1.5",16,21,0)="^.001^2^2^3180208^^" ^DD("1.5",16,21,1,0)="This is code that will be executed for each record, to identify or" ^DD("1.5",16,21,2,0)="validate it." -^DD("1.5",16,"DT")=3150903 -^DD("1.5",18,0)="POST CREATE PROCESSING^K^^18;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.5",16,"DT")=3190522 +^DD("1.5",18,0)="POST CREATE ACTION^K^^18;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.5",18,3)="This is Standard MUMPS code." ^DD("1.5",18,9)="@" ^DD("1.5",18,21,0)="^.001^2^2^3180208^^" ^DD("1.5",18,21,1,0)="This is code that will be executed whenever a new record is created via" ^DD("1.5",18,21,2,0)="the POST method." -^DD("1.5",18,"DT")=3150903 +^DD("1.5",18,"DT")=3190522 ^DD("1.5",19,0)="DESCRIPTION^1.519^^19;0" ^DD("1.5","19.1",0)="GET POLICY^P1.61'^DIAC(1.61,^DAC;1^Q" ^DD("1.5","19.1",3)="Select the equivalent Application Action to GET instances of this Entity." @@ -6368,17 +6368,17 @@ OSEHRA ZGO Export: ^DD ^DD("1.5","19.4","DT")=3170320 ^DD("1.5","B","DATA MODEL",".06")="" ^DD("1.5","B","DEFAULT FILE NUMBER",".02")="" -^DD("1.5","B","DELETE ID PROCESSING",13)="" +^DD("1.5","B","DELETE ENTRY ACTION",11)="" +^DD("1.5","B","DELETE EXIT ACTION",12)="" +^DD("1.5","B","DELETE ID ACTION",13)="" ^DD("1.5","B","DELETE POLICY","19.3")="" -^DD("1.5","B","DELETE POST PROCESSING",12)="" -^DD("1.5","B","DELETE PRE PROCESSING",11)="" ^DD("1.5","B","DESCRIPTION",19)="" ^DD("1.5","B","DISPLAY NAME",".1")="" ^DD("1.5","B","FILTER BY",".04")="" -^DD("1.5","B","GET ID PROCESSING",4)="" +^DD("1.5","B","GET ENTRY ACTION",2)="" +^DD("1.5","B","GET EXIT ACTION",3)="" +^DD("1.5","B","GET ID ACTION",4)="" ^DD("1.5","B","GET POLICY","19.1")="" -^DD("1.5","B","GET POST PROCESSING",3)="" -^DD("1.5","B","GET PRE PROCESSING",2)="" ^DD("1.5","B","GET QUERY ROUTINE",5)="" ^DD("1.5","B","ITEM",1)="" ^DD("1.5","B","KEY CODSYS","1.3")="" @@ -6386,16 +6386,16 @@ OSEHRA ZGO Export: ^DD ^DD("1.5","B","KEY ITEM","1.1")="" ^DD("1.5","B","KEY XREF","1.4")="" ^DD("1.5","B","NAME",".01")="" -^DD("1.5","B","POST CREATE PROCESSING",18)="" -^DD("1.5","B","POST ID PROCESSING",16)="" +^DD("1.5","B","POST CREATE ACTION",18)="" +^DD("1.5","B","POST ENTRY ACTION",14)="" +^DD("1.5","B","POST EXIT ACTION",15)="" +^DD("1.5","B","POST ID ACTION",16)="" ^DD("1.5","B","POST POLICY","19.4")="" -^DD("1.5","B","POST POST PROCESSING",15)="" -^DD("1.5","B","POST PRE PROCESSING",14)="" -^DD("1.5","B","PUT CREATE PROCESSING",10)="" -^DD("1.5","B","PUT ID PROCESSING",8)="" +^DD("1.5","B","PUT CREATE ACTION",10)="" +^DD("1.5","B","PUT ENTRY ACTION",6)="" +^DD("1.5","B","PUT EXIT ACTION",7)="" +^DD("1.5","B","PUT ID ACTION",8)="" ^DD("1.5","B","PUT POLICY","19.2")="" -^DD("1.5","B","PUT POST PROCESSING",7)="" -^DD("1.5","B","PUT PRE PROCESSING",6)="" ^DD("1.5","B","READ ONLY",".05")="" ^DD("1.5","B","SCREEN","5.1")="" ^DD("1.5","B","SORT BY",".03")="" @@ -6438,7 +6438,7 @@ OSEHRA ZGO Export: ^DD ^DD("1.5","SB","1.51",1)="" ^DD("1.5","SB","1.519",19)="" ^DD("1.51",0)="ITEM SUB-FIELD^NL^.09^23" -^DD("1.51",0,"DT")=3180518 +^DD("1.51",0,"DT")=3190830 ^DD("1.51",0,"IX","B","1.51",".01")="" ^DD("1.51",0,"IX","SEQ","1.51",".02")="" ^DD("1.51",0,"NM","ITEM")="" @@ -6603,10 +6603,10 @@ OSEHRA ZGO Export: ^DD ^DD("1.51",5,21,1,0)="This is code that will be executed after extracting the data value from" ^DD("1.51",5,21,2,0)="an incoming resource, to re-format it for saving in VistA." ^DD("1.51",5,"DT")=3180206 -^DD("1.51",6,0)="GET PROCESSING^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.51",6,0)="GET ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.51",6,3)="This is Standard MUMPS code." ^DD("1.51",6,9)="@" -^DD("1.51",6,21,0)="^^18^18^3181120^" +^DD("1.51",6,21,0)="^.001^18^18^3190610^^^^" ^DD("1.51",6,21,1,0)="This is code that will be executed when extracting this item from VistA." ^DD("1.51",6,21,2,0)="It may do additional set up tasks for non-simple elements, or even" ^DD("1.51",6,21,3,0)="create the return value itself for simple fields that cannot be pulled" @@ -6614,8 +6614,8 @@ OSEHRA ZGO Export: ^DD ^DD("1.51",6,21,5,0)=" " ^DD("1.51",6,21,6,0)="At the time this code is executed within ^DDE, the following variables " ^DD("1.51",6,21,7,0)="may be referenced:" -^DD("1.51",6,21,8,0)=" IEN = internal entry number of record, or the string being processed" -^DD("1.51",6,21,9,0)=" NAME = name of property" +^DD("1.51",6,21,8,0)=" TAG = name of property (XML or JSON tag)" +^DD("1.51",6,21,9,0)=" IEN = internal entry number of record, or the string being processed" ^DD("1.51",6,21,10,0)=" FILE = VistA source sub/file number" ^DD("1.51",6,21,11,0)=" FIELD = VistA source field number" ^DD("1.51",6,21,12,0)=" " @@ -6625,21 +6625,21 @@ OSEHRA ZGO Export: ^DD ^DD("1.51",6,21,16,0)=" " ^DD("1.51",6,21,17,0)="If a value for this Item cannot or should not be returned, set DDEOUT=1 " ^DD("1.51",6,21,18,0)="to cause ^DDE to quit the item and go on to the next one." -^DD("1.51",6,"DT")=3180206 -^DD("1.51",7,0)="PUT PROCESSING^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.51",6,"DT")=3190522 +^DD("1.51",7,0)="PUT ACTION^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.51",7,3)="This is Standard MUMPS code." ^DD("1.51",7,9)="@" ^DD("1.51",7,21,0)="^^2^2^3180208^" ^DD("1.51",7,21,1,0)="For the PUT method, you may add logic for each item to set the value," ^DD("1.51",7,21,2,0)="transform, validate, or enforce business logic." -^DD("1.51",7,"DT")=3180208 -^DD("1.51",8,0)="POST PROCESSING^K^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" +^DD("1.51",7,"DT")=3190522 +^DD("1.51",8,0)="POST ACTION^K^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM" ^DD("1.51",8,3)="This is Standard MUMPS code." ^DD("1.51",8,9)="@" ^DD("1.51",8,21,0)="^^2^2^3180208^" ^DD("1.51",8,21,1,0)="For the POST method, you may add logic for each Item to set the value," ^DD("1.51",8,21,2,0)="transform, validate, or enforce business logic." -^DD("1.51",8,"DT")=3180208 +^DD("1.51",8,"DT")=3190522 ^DD("1.51","B","COMPLEX TYPE",3)="" ^DD("1.51","B","ENTITY",".08")="" ^DD("1.51","B","EXTENDED POINTER LKUP",".06")="" @@ -6647,15 +6647,15 @@ OSEHRA ZGO Export: ^DD ^DD("1.51","B","FILE NUMBER",".04")="" ^DD("1.51","B","FILTER BY","1.04")="" ^DD("1.51","B","FIXED RESPONSE",2)="" -^DD("1.51","B","GET PROCESSING",6)="" +^DD("1.51","B","GET ACTION",6)="" ^DD("1.51","B","INPUT TRANSFORM",5)="" ^DD("1.51","B","ITEM",".01")="" ^DD("1.51","B","ITEM TYPE",".03")="" ^DD("1.51","B","LIST TYPE","1.01")="" ^DD("1.51","B","OUTPUT TRANSFORM",4)="" ^DD("1.51","B","OVERWRITE SUBFILE","1.06")="" -^DD("1.51","B","POST PROCESSING",8)="" -^DD("1.51","B","PUT PROCESSING",7)="" +^DD("1.51","B","POST ACTION",8)="" +^DD("1.51","B","PUT ACTION",7)="" ^DD("1.51","B","RETURN INTERNAL VALUE",".07")="" ^DD("1.51","B","SCREEN","1.1")="" ^DD("1.51","B","SEQUENCE",".02")="" @@ -567821,7 +567821,7 @@ OSEHRA ZGO Export: ^DD ^DD(757,0,"PT","757.1",".01")="" ^DD(757,0,"VR")="2.0" ^DD(757,0,"VRPK")="LEX" -^DD(757,0,"VRRV")="121^3190401" +^DD(757,0,"VRRV")="122^3190701" ^DD(757,".01",0)="EXPRESSION^RP757.01'IO^LEX(757.01,^0;1^Q" ^DD(757,".01",".1")="" ^DD(757,".01",1,0)="^.1^^-1" @@ -567862,7 +567862,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.001",0,"PK")="LEX" ^DD("757.001",0,"VR")="2.0" ^DD("757.001",0,"VRPK")="LEX" -^DD("757.001",0,"VRRV")="121^3190401" +^DD("757.001",0,"VRRV")="122^3190701" ^DD("757.001",".01",0)="MAJOR CONCEPT^RP757'^LEX(757,^0;1^Q" ^DD("757.001",".01",1,0)="^.1" ^DD("757.001",".01",1,1,0)="757.001^B" @@ -567950,7 +567950,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.01",0,"PT","9999999.27",75701)="" ^DD("757.01",0,"VR")="2.0" ^DD("757.01",0,"VRPK")="LEX" -^DD("757.01",0,"VRRV")="121^3190401" +^DD("757.01",0,"VRRV")="122^3190701" ^DD("757.01",".01",0)="DISPLAYABLE TEXT^RFJ4000X^^0;1^I $D(X) K:$L(X)>4000!($L(X)<1) X" ^DD("757.01",".01",1,0)="^.1" ^DD("757.01",".01",1,2,0)="757.01^ASL^MUMPS" @@ -568310,7 +568310,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.02",0,"PK")="LEX" ^DD("757.02",0,"VR")="2.0" ^DD("757.02",0,"VRPK")="LEX" -^DD("757.02",0,"VRRV")="121^3190401" +^DD("757.02",0,"VRRV")="122^3190701" ^DD("757.02",".01",0)="EXPRESSION^RP757.01'I^LEX(757.01,^0;1^Q" ^DD("757.02",".01",1,0)="^.1" ^DD("757.02",".01",1,1,0)="757.02^B" @@ -568507,7 +568507,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.03",0,"PT","757.32",4)="" ^DD("757.03",0,"VR")="2.0" ^DD("757.03",0,"VRPK")="LEX" -^DD("757.03",0,"VRRV")="121^3190401" +^DD("757.03",0,"VRRV")="122^3190701" ^DD("757.03",".01",0)="SOURCE ABBREVIATION^RF^^0;1^K:$L(X)>7!($L(X)<3) X" ^DD("757.03",".01",".1")="SAB" ^DD("757.03",".01",1,0)="^.1" @@ -569098,7 +569098,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.07",0,"NM","TOKENS")="" ^DD("757.07",0,"VR")="2.0" ^DD("757.07",0,"VRPK")="LEX" -^DD("757.07",0,"VRRV")="112^3170701" +^DD("757.07",0,"VRRV")="122^3190701" ^DD("757.07",".01",0)="TOKEN^RF^^0;1^K:$L(X)>30!($L(X)<1)!(""~!@#$%^&()_+-={}|[]\;':,.""""/<>?""[$E(X,1)) X" ^DD("757.07",".01",1,0)="^.1^^0" ^DD("757.07",".01",3)="Answer must be 1-30 characters in length." @@ -569364,7 +569364,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.1",0,"PK")="LEX" ^DD("757.1",0,"VR")="2.0" ^DD("757.1",0,"VRPK")="LEX" -^DD("757.1",0,"VRRV")="121^3190401" +^DD("757.1",0,"VRRV")="122^3190701" ^DD("757.1",".01",0)="MAJOR CONCEPT^RP757'^LEX(757,^0;1^Q" ^DD("757.1",".01",".1")="MC" ^DD("757.1",".01",1,0)="^.1" @@ -570390,7 +570390,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.21",0,"PK")="LEX" ^DD("757.21",0,"VR")="2.0" ^DD("757.21",0,"VRPK")="LEX" -^DD("757.21",0,"VRRV")="121^3190401" +^DD("757.21",0,"VRRV")="122^3190701" ^DD("757.21",".01",0)="EXPRESSION^RP757.01'I^LEX(757.01,^0;1^Q" ^DD("757.21",".01",".1")="EXP" ^DD("757.21",".01",1,0)="^.1" @@ -570859,7 +570859,7 @@ OSEHRA ZGO Export: ^DD ^DD("757.33",0,"NM","MAPPINGS")="" ^DD("757.33",0,"VR")="2.0" ^DD("757.33",0,"VRPK")="LEX" -^DD("757.33",0,"VRRV")="121^3190401" +^DD("757.33",0,"VRRV")="122^3190701" ^DD("757.33",".01",0)="MAPPING ID^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1.N) X" ^DD("757.33",".01",1,0)="^.1" ^DD("757.33",".01",1,1,0)="757.33^B" diff --git a/Packages/VA FileMan/Routines/DDEG.m b/Packages/VA FileMan/Routines/DDEG.m index 1ecf018b39d..5a7205fcf74 100644 --- a/Packages/VA FileMan/Routines/DDEG.m +++ b/Packages/VA FileMan/Routines/DDEG.m @@ -1,5 +1,5 @@ DDEG ;SPFO/RAM,MKB - Entity GET Extract ;AUG 1, 2018 12:37 - ;;22.2;VA FileMan;**9**;Jan 05, 2016;Build 73 + ;;22.2;VA FileMan;**9,16**;Jan 05, 2016;Build 10 ;;Per VA Directive 6402, this routine should not be modified. Q ; @@ -39,10 +39,10 @@ Q DRES ; VALUE(ITM,NOTAG) ; -- build a complete ITEM value - N ITM0,NAME,ITEM,TYPE,FILE,FIELD,IEN + N ITM0,TAG,ITEM,TYPE,FILE,FIELD,IEN ; S ITM0=$G(^DDE(+DIENTY,1,+ITM,0)),IEN=$G(DIEN) - S NAME=$P(ITM0,U),FILE=$P(ITM0,U,4),FIELD=$P(ITM0,U,5) + S TAG=$P(ITM0,U),FILE=$P(ITM0,U,4),FIELD=$P(ITM0,U,5) S:'FILE FILE=DIFN ;default file# S TYPE=$P($$GET1^DIQ(1.51,(+ITM_","_+DIENTY_","),.03)," ") ; @@ -68,7 +68,7 @@ I $$VALID(VALUE) D ;add tags . S VALUE=$$ESC(VALUE) . I 'DFORM,$G(NOTAG) S ITEM=VALUE Q ;for List items - . S ITEM=$$ELEMENT("",NAME,VALUE) + . S ITEM=$$ELEMENT("",TAG,VALUE) Q ; FIXED ; -- build one FIXED item (from $$VALUE) @@ -81,7 +81,7 @@ I $$VALID(VALUE) D ;add tags . S VALUE=$$ESC(VALUE) . I 'DFORM,$G(NOTAG) S ITEM=VALUE Q ;for List items - . S ITEM=$$ELEMENT("",NAME,VALUE) + . S ITEM=$$ELEMENT("",TAG,VALUE) Q ; ID ; -- build one ID item (from $$VALUE) @@ -98,7 +98,7 @@ I $$VALID(VALUE) D ;add tags . S VALUE=$$ESC(VALUE) . I 'DFORM,$G(NOTAG) S ITEM=VALUE Q ;for List items - . S ITEM=$$ELEMENT("",NAME,VALUE) + . S ITEM=$$ELEMENT("",TAG,VALUE) Q ; WORD ; -- build one WP ITEM (from $$VALUE) @@ -120,9 +120,10 @@ . S VALUE=VALUE_$S($E(VALUE,$L(VALUE))=" ":"",1:" ")_X ; I $$VALID(VALUE) D Q ;add tags + . I $L(VALUE)>2999999 S VALUE="Text exceeds 3 megabyte limit and could not be saved. Please contact the site for full original text." ;p16 . S VALUE=$$ESC(VALUE) . I 'DFORM,$G(NOTAG) S ITEM=VALUE Q ;for List items - . S ITEM=$$ELEMENT("",NAME,VALUE) + . S ITEM=$$ELEMENT("",TAG,VALUE) Q ; ENTITY ; -- build an entity ITEM (from $$VALUE) @@ -147,18 +148,18 @@ I $L(VALUE) D Q ;add tags . I VALUE<0 S ERROR=VALUE Q . I $G(NOTAG) S ITEM=VALUE Q ;for embedded or list items - . S ITEM=$$ELEMENT("",NAME,VALUE,,,"C") + . S ITEM=$$ELEMENT("",TAG,VALUE,,,"C") Q ; COMPLEX ; -- build a complex ITEM (from $$VALUE) - N SEQ,IDX1,NAME1,IDX0,VALUE + N SEQ,IDX1,TAG1,IDX0,VALUE ; D ITMPROC I $G(DDEOUT) K DDEOUT Q ; S SEQ=0 F S SEQ=$O(^DDE(DIENTY,1,ITM,3,"B",SEQ)) Q:'SEQ D Q:$G(ERROR) . S IDX1=$O(^DDE(DIENTY,1,ITM,3,"B",SEQ,0)) - . S NAME1=$P(^DDE(DIENTY,1,ITM,3,IDX1,0),U,2) Q:NAME1="" - . S IDX0=+$O(^DDE(DIENTY,1,"B",NAME1,0)) + . S TAG1=$P(^DDE(DIENTY,1,ITM,3,IDX1,0),U,2) Q:TAG1="" + . S IDX0=+$O(^DDE(DIENTY,1,"B",TAG1,0)) . I IDX0<1!'$D(^DDE(DIENTY,1,IDX0,0)) Q . ; . S VALUE=$$VALUE(IDX0) Q:$G(ERROR) @@ -166,7 +167,7 @@ ; Q:$G(ERROR) I $L(ITEM) D ;add tags . S:'DFORM ITEM="{"_ITEM_"}" Q:$G(NOTAG) ;for List items - . S ITEM=$$ELEMENT("",NAME,ITEM,,,"C") + . S ITEM=$$ELEMENT("",TAG,ITEM,,,"C") Q ; LIST ; -- build an array of values in ITEM (from $$VALUE) @@ -176,13 +177,13 @@ ; Q:$G(ERROR) I $L(ITEM) D ;add tags . S:'DFORM ITEM="["_ITEM_"]" Q:$G(NOTAG) ;for List items - . S ITEM=$$ELEMENT("",NAME,ITEM,,,"L") + . S ITEM=$$ELEMENT("",TAG,ITEM,,,"L") Q ; LIST1 ; -- list of values in FILE (from LIST) - N C,NAME,XREF,FILTER,SCREEN,FMT,XFRM,ENTITY,QUERY,DDELIST,DLIST,SEQ,IEN1,VALUE,ERR + N C,TAG,XREF,FILTER,SCREEN,FMT,XFRM,ENTITY,QUERY,DDELIST,DLIST,SEQ,IEN1,VALUE,ERR S C="," - S NAME=$P(ITM1,U,2),XREF=$P(ITM1,U,3),FILTER=$P(ITM1,U,4) + S TAG=$P(ITM1,U,2),XREF=$P(ITM1,U,3),FILTER=$P(ITM1,U,4) S SCREEN=$G(^DDE(+DIENTY,1,+ITM,1.1)) ; D ITMPROC I $G(DDEOUT) K DDEOUT Q @@ -191,7 +192,7 @@ I FIELD S FMT=$S(+$P(ITM0,U,7):"I",1:"E"),XFRM=$G(^DDE(+DIENTY,1,+ITM,4)) E D Q:'ENTITY . S ENTITY=+$P(ITM0,U,8) Q:'ENTITY - . N X0 S X0=$G(^DDE(ENTITY,0)) S:'$L(NAME) NAME=$G(^(.1)) + . N X0 S X0=$G(^DDE(ENTITY,0)) S:'$L(TAG) TAG=$G(^(.1)) . ; get defaults from Entity if not defined in Item . S:'$L(XREF) XREF=$P(X0,U,3) . S:'$L(FILTER) FILTER=$P(X0,U,4) @@ -199,7 +200,7 @@ . S QUERY=$G(^DDE(ENTITY,5)) . D PREPROC(ENTITY) I $L(FILTER) S FILTER=$S($D(@FILTER):@FILTER,1:FILTER) - S:NAME="" NAME=$P(ITM0,U) + S:TAG="" TAG=$P(ITM0,U) ; L1 ; find appropriate records and process I $L(QUERY)>1,$L($T(@($P(QUERY,"(")))) D @QUERY I 1 @@ -214,15 +215,15 @@ . I 'FIELD,ENTITY S VALUE=$$EN1^DDEG(ENTITY,IEN1,1,.ERR) . ; . Q:VALUE="" Q:$G(ERR) - . S ITEM=$$ELEMENT(ITEM,NAME,VALUE,SEQ,"addList") + . S ITEM=$$ELEMENT(ITEM,TAG,VALUE,SEQ,"addList") ; D:ENTITY POST(ENTITY) Q ; LIST2 ; -- list of values in SUBFILE (from LIST) - N IENS,C,NAME,SCREEN,FMT,XFRM,ENTITY,DLIST,SEQ,IEN1,VALUE,ERR + N IENS,C,TAG,SCREEN,FMT,XFRM,ENTITY,DLIST,SEQ,IEN1,VALUE,ERR S IENS=","_IEN,C="," - S NAME=$P(ITM1,U,2),SCREEN=$G(^DDE(+DIENTY,1,+ITM,1.1)) + S TAG=$P(ITM1,U,2),SCREEN=$G(^DDE(+DIENTY,1,+ITM,1.1)) ; D ITMPROC I $G(DDEOUT) K DDEOUT Q ; @@ -230,10 +231,10 @@ I FIELD S FMT=$S(+$P(ITM0,U,7):"I",1:"E"),XFRM=$G(^DDE(+DIENTY,1,+ITM,4)) E D Q:'ENTITY . S ENTITY=$P(ITM0,U,8) Q:'ENTITY - . S:'$L(NAME) NAME=$G(^DDE(ENTITY,.1)) ;defaults + . S:'$L(TAG) TAG=$G(^DDE(ENTITY,.1)) ;defaults . S:'$L(SCREEN) SCREEN=$G(^DDE(ENTITY,5.1)) . D PREPROC(ENTITY) - S:NAME="" NAME=$P(ITM0,U) + S:TAG="" TAG=$P(ITM0,U) ; L2 ; find appropriate records and process D LIST^DIC(FILE,IENS_C,"@","Q",,,,,SCREEN,,"DLIST") @@ -247,14 +248,14 @@ . I 'FIELD,ENTITY S VALUE=$$EN1^DDEG(ENTITY,IEN1,1,.ERR) . ; . Q:VALUE="" Q:$G(ERR) - . S ITEM=$$ELEMENT(ITEM,NAME,VALUE,SEQ,"addList") + . S ITEM=$$ELEMENT(ITEM,TAG,VALUE,SEQ,"addList") ; D:ENTITY POST(ENTITY) Q ; LIST3 ; -- list of values in COMPLEX FIELDS (from LIST) - N NAME,SEQ,IDX1,NM1,IDX0,VALUE - S NAME=$P(ITM1,U,2) S:NAME="" NAME=$P(ITM0,U) + N TAG,SEQ,IDX1,NM1,IDX0,VALUE + S TAG=$P(ITM1,U,2) S:TAG="" TAG=$P(ITM0,U) ; D ITMPROC I $G(DDEOUT) K DDEOUT Q ; @@ -268,21 +269,21 @@ . S VALUE=$$VALUE(IDX0,1) . ; . Q:VALUE="" Q:$G(ERROR) - . S ITEM=$$ELEMENT(ITEM,NAME,VALUE,SEQ,"addList") + . S ITEM=$$ELEMENT(ITEM,TAG,VALUE,SEQ,"addList") Q ; LIST4 ; -- list of values in DLIST() - N DLIST,NAME,ENTITY,SEQ,X,VALUE,ERR - S NAME=$P(ITM1,U,2) + N DLIST,TAG,ENTITY,SEQ,X,VALUE,ERR + S TAG=$P(ITM1,U,2) ; ;create DLIST()=data value or ID for Entity D ITMPROC I $G(DDEOUT) K DDEOUT Q ; ; set up for results: single FIELD or multi-field ENTITY S ENTITY=$P(ITM0,U,8) I ENTITY D - . S:'$L(NAME) NAME=$G(^DDE(ENTITY,.1)) + . S:'$L(TAG) TAG=$G(^DDE(ENTITY,.1)) . D PREPROC(ENTITY) - I NAME="" S NAME=$P(ITM0,U) + I TAG="" S TAG=$P(ITM0,U) ; ; process list items S SEQ=0 F S SEQ=$O(DLIST(SEQ)) Q:'SEQ D Q:$G(ERR) @@ -292,26 +293,26 @@ . E S VALUE=$$EN1^DDEG(ENTITY,X,1,.ERR) . ; . Q:VALUE="" Q:$G(ERR) - . S ITEM=$$ELEMENT(ITEM,NAME,VALUE,SEQ,"addList") + . S ITEM=$$ELEMENT(ITEM,TAG,VALUE,SEQ,"addList") ; D:ENTITY POST(ENTITY) Q ; -ADD(XSTRING,NAME,SEQ) ; -- add element to result string - Q:$G(NAME)="" XSTRING +ADD(STRING,ELEMENT,SEQ) ; -- add ELEMENT to result STRING + Q:$G(ELEMENT)="" STRING ; ; JSON:0 XML:1 TEXT:2 S DFORM=+$G(DFORM),SEQ=+$G(SEQ) ; - N RES S RES=$G(XSTRING) - I DFORM=0 S RES=RES_$S($L($G(XSTRING)):", ",1:"")_NAME ;SEQ>1 - I DFORM=1 S RES=RES_NAME - I DFORM=2 S RES=RES_$S($L($G(XSTRING)):U,1:"")_NAME ;SEQ>1 + N RES S RES=$G(STRING) + I DFORM=0 S RES=RES_$S($L($G(STRING)):", ",1:"")_ELEMENT ;SEQ>1 + I DFORM=1 S RES=RES_ELEMENT + I DFORM=2 S RES=RES_$S($L($G(STRING)):U,1:"")_ELEMENT ;SEQ>1 Q RES ; -ELEMENT(XSTRING,NAME,VALUE,SEQ,OPTION,DTYPE) ; -- build an element string - ; XSTRING=SERIALIZED RESPONSE - S XSTRING=$G(XSTRING) Q:$G(NAME)="" XSTRING +ELEMENT(STRING,NAME,VALUE,SEQ,OPTION,DTYPE) ; -- build an element STRING + ; STRING=SERIALIZED RESPONSE + S STRING=$G(STRING) Q:$G(NAME)="" STRING S:NAME["." NAME=$P(NAME,".",2) S VALUE=$G(VALUE) S SEQ=+$G(SEQ),OPTION=$G(OPTION,"addTags") @@ -321,17 +322,17 @@ N X,Y S X="""",Y=$S(DTYPE:"",1:"""") ; S DFORM=+$G(DFORM) ; JSON:0 XML:1 TEXT:2 - I OPTION="addTags" D Q XSTRING - . S:DFORM=0 XSTRING=X_NAME_X_":"_Y_VALUE_Y - . S:DFORM=1 XSTRING="<"_NAME_">"_VALUE_"" - . S:DFORM=2 XSTRING=VALUE + I OPTION="addTags" D Q STRING + . S:DFORM=0 STRING=X_NAME_X_":"_Y_VALUE_Y + . S:DFORM=1 STRING="<"_NAME_">"_VALUE_"" + . S:DFORM=2 STRING=VALUE ; - I OPTION="addList" D Q XSTRING - . S:DFORM=0 XSTRING=XSTRING_$S($L(XSTRING):", ",1:"")_Y_VALUE_Y ;SEQ>1 - . S:DFORM=1 XSTRING=XSTRING_"<"_NAME_">"_VALUE_"" - . S:DFORM=2 XSTRING=XSTRING_$S($L(XSTRING):"~",1:"")_Y_VALUE_Y ;SEQ>1 + I OPTION="addList" D Q STRING + . S:DFORM=0 STRING=STRING_$S($L(STRING):", ",1:"")_Y_VALUE_Y ;SEQ>1 + . S:DFORM=1 STRING=STRING_"<"_NAME_">"_VALUE_"" + . S:DFORM=2 STRING=STRING_$S($L(STRING):"~",1:"")_Y_VALUE_Y ;SEQ>1 ; - Q XSTRING + Q STRING ; VALID(X) ; -- return 1 or 0, if X is a valid string ; Cannot be null or only white space @@ -346,18 +347,20 @@ I DFORM=0 Q $$ESC^XLFJSON(X) ; DFORM=1 XML N I,Y,QOT S QOT="""" - ; strip control characters - F I=1:1:8,11,12,14:1:31 S X=$TR(X,$C(I)) + ; strip control characters ;p16 add $C(0) + F I=0:1:8,11,12,14:1:31 I X[$C(I) S X=$TR(X,$C(I)) ; handle special characters: ; DDESC = 1 ('&' only), 2 ('&' + CDATA), or ; default (0/null/undefined) = CDATA only I (X["&")!(X["<")!(X[">")!(X["'")!(X[QOT) D Q Y - . I $G(DDESC) D Q:DDESC=1 + . I $G(DDESC) D Q:DDESC=1 S X=Y .. S Y=$P(X,"&") F I=2:1:$L(X,"&") S Y=Y_"&"_$P(X,"&",I) .. S X=Y,Y=$P(X,"<") F I=2:1:$L(X,"<") S Y=Y_"<"_$P(X,"<",I) .. S X=Y,Y=$P(X,">") F I=2:1:$L(X,">") S Y=Y_">"_$P(X,">",I) .. S X=Y,Y=$P(X,"'") F I=2:1:$L(X,"'") S Y=Y_"'"_$P(X,"'",I) .. S X=Y,Y=$P(X,QOT) F I=2:1:$L(X,QOT) S Y=Y_"""_$P(X,QOT,I) + . I X["]]>" D S X=Y ;p16 strip end brackets from transcription upload + .. S Y=$P(X,"]]>") F I=2:1:$L(X,"]]>") S Y=Y_$P(X,"]]>",I) . S Y="" Q X ; diff --git a/Packages/VA FileMan/Routines/DDEOPT.m b/Packages/VA FileMan/Routines/DDEOPT.m index d1127ee027e..7869eb36220 100644 --- a/Packages/VA FileMan/Routines/DDEOPT.m +++ b/Packages/VA FileMan/Routines/DDEOPT.m @@ -1,10 +1,10 @@ DDEOPT ;SPFO/RAM - DDE OPTIONS ;AUG 1, 2018 - ;;22.2;VA FileMan;**9**;;Build 73;Build 42 + ;;22.2;VA FileMan;**9,16**;;Build 10;Build 42 ;;Per VA Directive 6402, this routine should not be modified. ; 0 S DIC="^DOPT(""DDE""," - G OPT:$D(^DOPT("DDE",2)) S ^(0)="ENTITY MAPPING OPTION^1.0" K ^("B") - F X=1:1:2 S ^DOPT("DDE",X,0)=$P($T(@X),";;",2) + G OPT:$D(^DOPT("DDE",3)) S ^(0)="ENTITY MAPPING OPTION^1.0" K ^("B") + F X=1:1:3 S ^DOPT("DDE",X,0)=$P($T(@X),";;",2) S DIK=DIC D IXALL^DIK OPT ; S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0 @@ -16,6 +16,9 @@ S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0 1 ;;ENTITY ENTER/EDIT G EN^DDE1A ; -2 ;;AUTO GEN ENTITY FOR A DD # +2 ;;INQUIRE TO ENTITY FILE + D EN^DDEPRT + Q +3 ;;AUTO GEN ENTITY FOR A DD # D MAIN^DDEMAP Q diff --git a/Packages/VA FileMan/Routines/DDEPRT.m b/Packages/VA FileMan/Routines/DDEPRT.m new file mode 100644 index 00000000000..eace0ab304c --- /dev/null +++ b/Packages/VA FileMan/Routines/DDEPRT.m @@ -0,0 +1,207 @@ +DDEPRT ;SLC/MKB -- Entity Print Utilities ;09/18/18 4:36pm + ;;22.2;VA FileMan;**16**;Jan 05, 2016;Build 10 + ;;Per VA Directive 6402, this routine should not be modified. + ; + ; External References DBIA# + ; ------------------- ----- + ; %ZIS 10086 + ; %ZTLOAD 10063 + ; XLFDT 10103 + ; XLFSTR 10104 + ; +EN ; -- enter here to print a SDA entity + N DDENT,DDEFMT + D ENTITY(.DDENT) Q:"^"[DDENT + S DDEFMT=$$FORMAT Q:"^"[DDEFMT + ; + ;Device + S %ZIS=$S($D(^%ZTSK):"Q",1:"") + W ! D ^%ZIS K %ZIS I $G(POP) K POP Q + K POP + ; + ;Queue report? + I $D(IO("Q")),$D(^%ZTSK) D G END + . N ZTRTN,ZTDESC,ZTSAVE + . S ZTRTN="ENP^DDEPRT" + . S ZTDESC="Report of Entity "_$P(DDENT,U,2) + . S ZTSAVE("DDENT")="",ZTSAVE("DDEFMT")="" + . D ^%ZTLOAD + . I $D(ZTSK)#2 W !,"Report queued!",!,"Task number: "_$G(ZTSK),! + . E W !,"Report canceled!",! + . K ZTSK + . S IOP="HOME" D ^%ZIS + ; + U IO + ; +ENP ; -- entry point for [queued] report + N DDEFN,DDEFILE,DDEDT,DDEPG,DDECRT + ; + S DDEFN=+$P($G(DDENT(0)),U,2),DDEDT=$$FMTE^XLFDT($$NOW^XLFDT) + S DDEFILE=$S(DDEFN:DDEFN_U_$$NAME(DDEFN),1:"") + S DDECRT=$E(IOST,1,2)="C-",DDEPG=0 + K DIRUT,DUOUT,DTOUT + ; + D @("HDR"_(2-DDECRT)) + D @DDEFMT +END ; + I $D(ZTQUEUED) S ZTREQ="@" + E X $G(^%ZIS("C")) + K DIRUT,DUOUT,DTOUT + Q + ; +ENTITY(Y) ; -- select an entity + N X,DIC + S DIC=1.5,DIC(0)="AEQMZ" D ^DIC + I Y<1 S Y="^" + Q Y + ; +FORMAT() ; -- summary or details? + N X,Y,DIR,DUOUT,DTOUT,DIRUT + S DIR(0)="SA^SUM:Summary;DET:Detailed;" + S DIR("A")="Print item summary or details? " + S DIR("?")="Select Summary for a simple list of item names in sequence" + D ^DIR S:$D(DTOUT) Y="^" + Q Y + ; +SUM ; -- print summary of ENTity + N DSEQ,DITM + D MAIN Q:$D(DIRUT) + W !!,"Seq Item Type Field Sub/File Entity" + W !,$$REPEAT^XLFSTR("-",79) + S DSEQ=0 F S DSEQ=$O(^DDE(+DDENT,1,"SEQ",DSEQ)) Q:'DSEQ D Q:$D(DIRUT) + . S DITM=0 F S DITM=$O(^DDE(+DDENT,1,"SEQ",DSEQ,DITM)) Q:'DITM D LINE(DITM) Q:$D(DIRUT) + Q + ; +LINE(DA) ; -- print single item row + N X0 S X0=$G(^DDE(+DDENT,1,DA,0)) + D PG Q:$D(DIRUT) + W !,$P(X0,U,2),?5,$P(X0,U),?35,$P(X0,U,3),$$RJ^XLFSTR($P(X0,U,5),7)," ",$P(X0,U,4) + W:$P(X0,U,8) ?56,$E($P($G(^DDE(+$P(X0,U,8),0)),U),1,24) + ; look for complex items + I $P(X0,U,3)="C" D + . N CSEQ,CITM + . S CSEQ=0 F S CSEQ=$O(^DDE(+DDENT,1,DA,3,"B",CSEQ)) Q:CSEQ<1 D + .. S CITM=0 F S CITM=$O(^DDE(+DDENT,1,DA,3,"B",CSEQ,CITM)) Q:CITM<1 D + ... S CNM=$P($G(^DDE(+DDENT,1,DA,3,CITM,0)),U,2) Q:CNM="" + ... S CDA=$O(^DDE(+DDENT,1,"B",CNM,0)) D LINE(CDA) + Q + ; +DET ; -- print details of ENTity + N DDELN,DSEQ,DITM + D DESC Q:$D(DIRUT) + D MAIN Q:$D(DIRUT) + W !!,"Seq Item",!,"Number Properties",!,"------ ----------" + S DSEQ=0 F S DSEQ=$O(^DDE(+DDENT,1,"SEQ",DSEQ)) Q:'DSEQ D Q:$D(DIRUT) + . S DITM=0 F S DITM=$O(^DDE(+DDENT,1,"SEQ",DSEQ,DITM)) Q:'DITM D ITEM(DITM,DSEQ) Q:$D(DIRUT) + Q + ; +DESC ; -- description + N I S I=0 + F S I=$O(^DDE(+DDENT,19,I)) Q:I<1 D PG Q:$D(DIRUT) W !,$G(^(I,0)) + Q + ; +MAIN ; -- main Entity properties + N X0 S X0=$G(DDENT(0)) D PG Q:$D(DIRUT) + W !!," DISPLAY NAME: "_$G(^DDE(+DDENT,.1)) + D PG Q:$D(DIRUT) + W !!," SORT BY: "_$P(X0,U,3) + W ?40,"DATA MODEL: "_$S($P(X0,U,6)="S":"SDA",$P(X0,U,6)="F":"FHIR",1:"") + D PG Q:$D(DIRUT) + W !," FILTER BY: "_$P(X0,U,4) + W ?41,"READ ONLY: "_$S($P(X0,U,5):"YES",1:"NO") + D PG Q:$D(DIRUT) + D MCODE(" SCREEN: ",$G(^DDE(+DDENT,5.1))) Q:$D(DIRUT) + D PG Q:$D(DIRUT) W !,"QUERY ROUTINE: "_$G(^DDE(+DDENT,5)),! + D MCODE(" ENTRY ACTION: ",$G(^DDE(+DDENT,2))) Q:$D(DIRUT) + D MCODE(" ID ACTION: ",$G(^DDE(+DDENT,4))) Q:$D(DIRUT) + D MCODE(" EXIT ACTION: ",$G(^DDE(+DDENT,3))) Q:$D(DIRUT) + Q + ; +ITEM(DA,NUM,LVL) ; -- print single item + N X0,X1,TYPE,FN,FLD,TAB,CDA,CNM,I,NM + S LVL=+$G(LVL),TAB=$S(LVL:$$REPEAT^XLFSTR(" ",(LVL*9)),1:"") + S X0=$G(^DDE(+DDENT,1,DA,0)),X1=$G(^(1)),TYPE=$P(X0,U,3) + D PG Q:$D(DIRUT) W !!,TAB,$$LJ^XLFSTR($G(NUM),9),"NAME: "_$P(X0,U) + S TAB=TAB_" " + D PG Q:$D(DIRUT) W !,TAB,"TYPE: "_$$TYPE(TYPE,+X1) + ; + S FN=$P(X0,U,4),FLD=$P(X0,U,5) I FLD D Q:$D(DIRUT) + . D PG Q:$D(DIRUT) + . W !,TAB,"FIELD: "_$$GET1^DID(FN,FLD,,"LABEL")_" (#"_FLD_")" + . I $P(X0,U,6) D ;extended ptr + .. N GBL S GBL=U_$$GET1^DID(FN,FLD,,"POINTER")_"0)" + .. S FN=+$P(@GBL,U,2),FLD=$P(X0,U,6) + .. W " > "_$$GET1^DID(FN,FLD,,"LABEL")_" (#"_FLD_")" + . I $P(X0,U,7) W " [internal]" + . I TYPE="W",$P(X0,U,9) W " [word wrap]" + . Q:FN=+DDEFILE + . D PG Q:$D(DIRUT) W !,TAB," in "_$$NAME(FN)_" (#"_FN_")" + ; + I 'FLD,TYPE="L",FN,FN'=+DDEFILE D Q:$D(DIRUT) + . I +X1=1 D PG Q:$D(DIRUT) W !,TAB,"FILE: "_$$NAME(FN)_" (#"_FN_")" + . I +X1=2 D PG Q:$D(DIRUT) W !,TAB,"SUBFILE: "_$$NAME(FN)_" (#"_FN_")" + . I $L($P(X1,U,3)) D PG Q:$D(DIRUT) W !,TAB,"XREF: "_$P(X1,U,3) + . I $L($P(X1,U,4)) D PG Q:$D(DIRUT) W !,TAB,"FILTER: "_$P(X1,U,4) + ; + I $L($G(^DDE(+DDENT,1,DA,6))) D MCODE(TAB_"ACTION: ",^(6)) Q:$D(DIRUT) + I TYPE="F" D:$L($G(^DDE(+DDENT,1,DA,2))) Q + . D PG Q:$D(DIRUT) + . W !,TAB,"VALUE: "_^DDE(+DDENT,1,DA,2) + I $L($G(^DDE(+DDENT,1,DA,4))) D MCODE(TAB_"XFORM: ",^(4)) Q:$D(DIRUT) + I $P(X0,U,8) D PG Q:$D(DIRUT) W !,TAB,"ENTITY: "_$P($G(^DDE(+$P(X0,U,8),0)),U) + I TYPE="L",$L($P(X1,U,2)) D PG Q:$D(DIRUT) W !,TAB,"TAG: "_$P(X1,U,2) Q:X1>2 + ; + I TYPE="C"!(TYPE="L"&(+X1=3)) D Q:$D(DIRUT) + . D PG Q:$D(DIRUT) W !!,TAB,"Group Item" + . D PG Q:$D(DIRUT) W !,TAB,"Order Properties" + . D PG Q:$D(DIRUT) W !,TAB,"----- ----------" + . S CSEQ=0 F S CSEQ=$O(^DDE(+DDENT,1,DA,3,"B",CSEQ)) Q:'CSEQ D + .. S I=$O(^DDE(+DDENT,1,DA,3,"B",CSEQ,0)) + .. S NM=$P(^DDE(+DDENT,1,DA,3,I,0),U,2) Q:NM="" + .. S CDA=+$O(^DDE(+DDENT,1,"B",NM,0)) + .. I CDA<1!'$D(^DDE(+DDENT,1,CDA,0)) Q + .. D ITEM(CDA,CSEQ,(LVL+1)) + Q + ; +TYPE(X,L) ; -- return display name of item type X + N Y S X=$G(X),Y="" + I X="I" S Y="ID" + I X="F" S Y="FIXED STRING" + I X="W" S Y="FIELD/WP" + I X="S" S Y="FIELD" + I X="C" S Y="GROUP" + I X="E" S Y="ENTITY" + I X="L" S Y="LIST",L=+$G(L) D + . S Y=$S(L=1:"FILE ",L=2:"SUB-FILE ",L=3:"GROUP AS A ",1:"")_Y + Q Y + ; +NAME(NUM) ; -- return name of sub/file + Q $O(^DD(+$G(NUM),0,"NM","")) + ; +MCODE(CAPTION,CODE) ; -- print code fields + N WIDTH S WIDTH=79-$L(CAPTION) + D PG Q:$D(DIRUT) + W !,CAPTION,$E(CODE,1,WIDTH) Q:$L(CODE)'>WIDTH + S CAPTION=$$REPEAT^XLFSTR(" ",$L(CAPTION)) + F S CODE=$E(CODE,WIDTH+1,999) Q:CODE="" D PG Q:$D(DIRUT) W !,CAPTION,$E(CODE,1,WIDTH) + Q + ; +PG ; -- check line count for new page + I $Y+3'