EMERGENCY Released DG*5.3*1041 SEQ #900 Extracted from mail message **KIDS**:DG*5.3*1041^ **INSTALL NAME** DG*5.3*1041 "BLD",11540,0) DG*5.3*1041^REGISTRATION^0^3201203^y "BLD",11540,1,0) ^^2^2^3201201^ "BLD",11540,1,1,0) Please see the DG*5.3*1041 patch description for detailed information "BLD",11540,1,2,0) regarding this patch. "BLD",11540,4,0) ^9.64PA^35^1 "BLD",11540,4,35,0) 35 "BLD",11540,4,35,222) y^n^f^^n^^y^m^n "BLD",11540,4,35,223) "BLD",11540,4,35,224) I $P($G(^DIC(35,+Y,0)),U,1)["DEPT OF HOMELAND SECURITY" "BLD",11540,4,"B",35,35) "BLD",11540,6) 2 "BLD",11540,6.3) 10 "BLD",11540,"KRN",0) ^9.67PA^1.5^25 "BLD",11540,"KRN",.4,0) .4 "BLD",11540,"KRN",.401,0) .401 "BLD",11540,"KRN",.402,0) .402 "BLD",11540,"KRN",.403,0) .403 "BLD",11540,"KRN",.5,0) .5 "BLD",11540,"KRN",.84,0) .84 "BLD",11540,"KRN",1.5,0) 1.5 "BLD",11540,"KRN",1.6,0) 1.6 "BLD",11540,"KRN",1.61,0) 1.61 "BLD",11540,"KRN",1.62,0) 1.62 "BLD",11540,"KRN",3.6,0) 3.6 "BLD",11540,"KRN",3.8,0) 3.8 "BLD",11540,"KRN",9.2,0) 9.2 "BLD",11540,"KRN",9.8,0) 9.8 "BLD",11540,"KRN",19,0) 19 "BLD",11540,"KRN",19.1,0) 19.1 "BLD",11540,"KRN",101,0) 101 "BLD",11540,"KRN",409.61,0) 409.61 "BLD",11540,"KRN",771,0) 771 "BLD",11540,"KRN",779.2,0) 779.2 "BLD",11540,"KRN",870,0) 870 "BLD",11540,"KRN",8989.51,0) 8989.51 "BLD",11540,"KRN",8989.52,0) 8989.52 "BLD",11540,"KRN",8993,0) 8993 "BLD",11540,"KRN",8994,0) 8994 "BLD",11540,"KRN","B",.4,.4) "BLD",11540,"KRN","B",.401,.401) "BLD",11540,"KRN","B",.402,.402) "BLD",11540,"KRN","B",.403,.403) "BLD",11540,"KRN","B",.5,.5) "BLD",11540,"KRN","B",.84,.84) "BLD",11540,"KRN","B",1.5,1.5) "BLD",11540,"KRN","B",1.6,1.6) "BLD",11540,"KRN","B",1.61,1.61) "BLD",11540,"KRN","B",1.62,1.62) "BLD",11540,"KRN","B",3.6,3.6) "BLD",11540,"KRN","B",3.8,3.8) "BLD",11540,"KRN","B",9.2,9.2) "BLD",11540,"KRN","B",9.8,9.8) "BLD",11540,"KRN","B",19,19) "BLD",11540,"KRN","B",19.1,19.1) "BLD",11540,"KRN","B",101,101) "BLD",11540,"KRN","B",409.61,409.61) "BLD",11540,"KRN","B",771,771) "BLD",11540,"KRN","B",779.2,779.2) "BLD",11540,"KRN","B",870,870) "BLD",11540,"KRN","B",8989.51,8989.51) "BLD",11540,"KRN","B",8989.52,8989.52) "BLD",11540,"KRN","B",8993,8993) "BLD",11540,"KRN","B",8994,8994) "BLD",11540,"QDEF") ^^^^NO^^^^NO^^YES "BLD",11540,"QUES",0) ^9.62^^ "DATA",35,18,0) DEPT OF HOMELAND SECURITY^DHS^6^A "FIA",35) OTHER FEDERAL AGENCY "FIA",35,0) ^DIC(35, "FIA",35,0,0) 35 "FIA",35,0,1) y^n^f^^n^^y^m^n "FIA",35,0,10) "FIA",35,0,11) I $P($G(^DIC(35,+Y,0)),U,1)["DEPT OF HOMELAND SECURITY" "FIA",35,0,"RLRO") "FIA",35,0,"VR") 5.3^DG "FIA",35,35) 0 "MBREQ") 0 "PKG",47,-1) 1^1 "PKG",47,0) REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "PKG",47,22,0) ^9.49I^1^1 "PKG",47,22,1,0) 5.3^2930813^2960613 "PKG",47,22,1,"PAH",1,0) 1041^3201203 "PKG",47,22,1,"PAH",1,1,0) ^^2^2^3201203 "PKG",47,22,1,"PAH",1,1,1,0) Please see the DG*5.3*1041 patch description for detailed information "PKG",47,22,1,"PAH",1,1,2,0) regarding this patch. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "VER") 8.0^22.2 "^DD",35,35,0) FIELD^NL^3^4 "^DD",35,35,0,"IX","B",35,.01) "^DD",35,35,0,"IX","C",35,1) "^DD",35,35,0,"NM","OTHER FEDERAL AGENCY") "^DD",35,35,0,"PT",2,.309) "^DD",35,35,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X "^DD",35,35,.01,1,0) ^.1 "^DD",35,35,.01,1,1,0) 35^B "^DD",35,35,.01,1,1,1) S ^DIC(35,"B",$E(X,1,30),DA)="" "^DD",35,35,.01,1,1,2) K ^DIC(35,"B",$E(X,1,30),DA) "^DD",35,35,.01,3) NAME MUST BE 3-30 CHARACTERS LONG & NOT BEGIN WITH PUNCTUATION "^DD",35,35,.01,21,0) ^^2^2^2911222^ "^DD",35,35,.01,21,1,0) This field contains the name of a federal agency other than the Department "^DD",35,35,.01,21,2,0) of Veterans Affairs where a patient seen in the VA may be employed. "^DD",35,35,1,0) ABBREVIATION^F^^0;2^K:$L(X)>10!($L(X)<1) X "^DD",35,35,1,1,0) ^.1 "^DD",35,35,1,1,1,0) 35^C "^DD",35,35,1,1,1,1) S ^DIC(35,"C",$E(X,1,30),DA)="" "^DD",35,35,1,1,1,2) K ^DIC(35,"C",$E(X,1,30),DA) "^DD",35,35,1,1,1,"%D",0) ^^1^1^3051205^ "^DD",35,35,1,1,1,"%D",1,0) This cross reference will allow look-ups on the abbreviation field. "^DD",35,35,1,1,1,"DT") 3051205 "^DD",35,35,1,3) ANSWER MUST BE 1-10 CHARACTERS IN LENGTH "^DD",35,35,1,21,0) ^^3^3^2911222^ "^DD",35,35,1,21,1,0) This field contains an abbreviation for this federal agency. On outputs "^DD",35,35,1,21,2,0) and other displays where the entire name of the federal agency may not fit, "^DD",35,35,1,21,3,0) this abbreviation may appear instead. "^DD",35,35,1,"DT") 3051205 "^DD",35,35,2,0) ELIGIBILITY CODE NUMBER^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",35,35,2,3) TYPE A WHOLE NUMBER BETWEEN 0 AND 99 "^DD",35,35,2,21,0) ^^3^3^2911222^ "^DD",35,35,2,21,1,0) Enter in this field the internal entry number of the MAS ELIGIBILITY CODE "^DD",35,35,2,21,2,0) under which a patient receiving care from this federal agency may be "^DD",35,35,2,21,3,0) entitled. "^DD",35,35,3,0) ENTRY TYPE^S^C:COUNTRY;A:OTHER AGENCY;^0;4^Q "^DD",35,35,3,21,0) ^^2^2^2911222^ "^DD",35,35,3,21,1,0) Enter the type of federal agency. If the entry is a country, enter C. If "^DD",35,35,3,21,2,0) the entry is another federal agency, enter A. "^DIC",35,35,0) OTHER FEDERAL AGENCY^35 "^DIC",35,35,0,"GL") ^DIC(35, "^DIC",35,35,"%D",0) ^^1^1^2911222^^^ "^DIC",35,35,"%D",1,0) This file contains the names of federal agencies and countries. "^DIC",35,"B","OTHER FEDERAL AGENCY",35) "BLD",11540,6) ^900 **END** **END**