Released DG*5.3*979 SEQ #858 Extracted from mail message **KIDS**:DG*5.3*979^ **INSTALL NAME** DG*5.3*979 "BLD",11438,0) DG*5.3*979^REGISTRATION^0^3190404^y "BLD",11438,1,0) ^^7^7^3190404^ "BLD",11438,1,1,0) User reported an issue in the ISO Sensitive Records Report-Export [DG "BLD",11438,1,2,0) SENSITIVE RCDS RPT-EXPORT] option where the data is not being displayed "BLD",11438,1,3,0) correctly if the PATIENT NAME (.01) field is 30 characters long. The "BLD",11438,1,4,0) print template does not account for the "^" it concatenates to the end of "BLD",11438,1,5,0) the patients name to use as a delimiter. Therefore, the PATIENT NAME "BLD",11438,1,6,0) (.01) and the DATE/TIME RECORD ACCESSED (#50) field would be displayed "BLD",11438,1,7,0) together. "BLD",11438,4,0) ^9.64PA^^ "BLD",11438,6.3) 7 "BLD",11438,"ABPKG") n "BLD",11438,"KRN",0) ^9.67PA^1.5^24 "BLD",11438,"KRN",.4,0) .4 "BLD",11438,"KRN",.4,"NM",0) ^9.68A^1^1 "BLD",11438,"KRN",.4,"NM",1,0) DG ISO SENSITIVE RCDS PRT FILE #38.1^38.1^0 "BLD",11438,"KRN",.4,"NM","B","DG ISO SENSITIVE RCDS PRT FILE #38.1",1) "BLD",11438,"KRN",.401,0) .401 "BLD",11438,"KRN",.402,0) .402 "BLD",11438,"KRN",.403,0) .403 "BLD",11438,"KRN",.5,0) .5 "BLD",11438,"KRN",.84,0) .84 "BLD",11438,"KRN",1.5,0) 1.5 "BLD",11438,"KRN",1.6,0) 1.6 "BLD",11438,"KRN",1.61,0) 1.61 "BLD",11438,"KRN",1.62,0) 1.62 "BLD",11438,"KRN",3.6,0) 3.6 "BLD",11438,"KRN",3.8,0) 3.8 "BLD",11438,"KRN",9.2,0) 9.2 "BLD",11438,"KRN",9.8,0) 9.8 "BLD",11438,"KRN",19,0) 19 "BLD",11438,"KRN",19.1,0) 19.1 "BLD",11438,"KRN",101,0) 101 "BLD",11438,"KRN",409.61,0) 409.61 "BLD",11438,"KRN",409.61,"NM",0) ^9.68A^^0 "BLD",11438,"KRN",771,0) 771 "BLD",11438,"KRN",779.2,0) 779.2 "BLD",11438,"KRN",870,0) 870 "BLD",11438,"KRN",8989.51,0) 8989.51 "BLD",11438,"KRN",8989.52,0) 8989.52 "BLD",11438,"KRN",8994,0) 8994 "BLD",11438,"KRN","B",.4,.4) "BLD",11438,"KRN","B",.401,.401) "BLD",11438,"KRN","B",.402,.402) "BLD",11438,"KRN","B",.403,.403) "BLD",11438,"KRN","B",.5,.5) "BLD",11438,"KRN","B",.84,.84) "BLD",11438,"KRN","B",1.5,1.5) "BLD",11438,"KRN","B",1.6,1.6) "BLD",11438,"KRN","B",1.61,1.61) "BLD",11438,"KRN","B",1.62,1.62) "BLD",11438,"KRN","B",3.6,3.6) "BLD",11438,"KRN","B",3.8,3.8) "BLD",11438,"KRN","B",9.2,9.2) "BLD",11438,"KRN","B",9.8,9.8) "BLD",11438,"KRN","B",19,19) "BLD",11438,"KRN","B",19.1,19.1) "BLD",11438,"KRN","B",101,101) "BLD",11438,"KRN","B",409.61,409.61) "BLD",11438,"KRN","B",771,771) "BLD",11438,"KRN","B",779.2,779.2) "BLD",11438,"KRN","B",870,870) "BLD",11438,"KRN","B",8989.51,8989.51) "BLD",11438,"KRN","B",8989.52,8989.52) "BLD",11438,"KRN","B",8994,8994) "BLD",11438,"QDEF") ^^^^^^^^^^YES "BLD",11438,"QUES",0) ^9.62^^ "BLD",11438,"REQB",0) ^9.611^^ "KRN",.4,2747,-1) 0^1 "KRN",.4,2747,0) DG ISO SENSITIVE RCDS PRT^3190325.0948^^38.1^^^3050722 "KRN",.4,2747,"DXS") 3 "KRN",.4,2747,"DXS",1,9) X DXS(1,9.2) S DIP(6)=$G(X) S X=2,X=$P(DIP(5),DIP(6),X)_"0000",DIP(7)=$G(X) S X=1,DIP(8)=$G(X) S X=4,X=$E(DIP(7),DIP(8),X) S Y=X,X=DIP(1),X=X_Y "KRN",.4,2747,"DXS",1,9.2) S DIP(4)=$S($D(^DGSL(38.1,D0,"D",D1,0)):^(0),1:"") S X="@",DIP(1)=$G(X),DIP(2)=$G(X),DIP(3)=$G(X) S X=$P(DIP(4),U,1),X=X S X=X,DIP(5)=$G(X) S X="." "KRN",.4,2747,"DXS",2,9.2) F D=0:0 S (D,D1)=$O(^VA(200,D0,3,"B",DICOB,D)) Q:D'>0 I $D(^VA(200,D0,3,D,0))#2 S X=$P(^(0),U) S Y=X S:Y'?." " DIP(101)=Y Q:'$D(D) S D=D1 "KRN",.4,2747,"DXS",2,9.3) S I(101)="""3""",J(101)=200.04 N DICOB S DICOB="" F S DICOB=$O(^VA(200,D0,3,"B",DICOB)) Q:DICOB="" X DXS(2,9.2) Q:'$D(D) "KRN",.4,2747,"DXS",2,9.4) S I(101,0)=$G(D1) X DXS(2,9.3):D0>0 S X="" S D1=I(101,0) "KRN",.4,2747,"F",1) D HEADER^DGISORPT;Z;"D HEADER^DGISORPT"~ "KRN",.4,2747,"F",2) S DIP(1)=$S($D(^DGSL(38.1,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(DIP(1),U,1),0)),U)_"^" W X K DIP;L31;" ";C1;Z;"PATIENT NAME_"^""~ "KRN",.4,2747,"F",3) 50,S DIP(1)=$S($D(^DGSL(38.1,D0,"D",D1,0)):^(0),1:"") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) W X K DIP;X;Z;"NUMDATE(DATE/TIME RECORD ACCESSED)"~ "KRN",.4,2747,"F",4) 50,X DXS(1,9) W X K DIP;X;Z;""@"_$E($P(INTERNAL(DATE/TIME RECORD ACCESSED),".",2)_"0000",1,4)"~50,"^";X~50,2;X;L20~50,"^";X~ "KRN",.4,2747,"F",5) 50,-200,^VA(200,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^DGSL(38.1,D0,"D",D1,0)):^(0),1:"") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"2:"~50,-200,8;X~ "KRN",.4,2747,"F",6) 50,-200,"^";X~50,-200,S DIP(101)="" X DXS(2,9.4) S X=DIP(101) W X K DIP;X;L5;Z;"LAST(ALIAS)"~50,-200,"^";X~50,-200,29;X;L20~50,-200,"^";X~50,3;X~ "KRN",.4,2747,"F",7) 50,"^";X~50,4;X;L1~ "KRN",.4,2747,"H") @ "KRN",.4,2747,"SUB") 1 "MBREQ") 0 "ORD",5,.4) .4;5;;;EDEOUT^DIFROMSO(.4,DA,"",XPDA);FPRE^DIFROMSI(.4,"",XPDA);EPRE^DIFROMSI(.4,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.4,DA,"",XPDA);DEL^DIFROMSK(.4,"",%) "ORD",5,.4,0) PRINT TEMPLATE "PKG",5,-1) 1^1 "PKG",5,0) REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "PKG",5,22,0) ^9.49I^1^1 "PKG",5,22,1,0) 5.3^2930813 "PKG",5,22,1,"PAH",1,0) 979^3190404 "PKG",5,22,1,"PAH",1,1,0) ^^7^7^3190404 "PKG",5,22,1,"PAH",1,1,1,0) User reported an issue in the ISO Sensitive Records Report-Export [DG "PKG",5,22,1,"PAH",1,1,2,0) SENSITIVE RCDS RPT-EXPORT] option where the data is not being displayed "PKG",5,22,1,"PAH",1,1,3,0) correctly if the PATIENT NAME (.01) field is 30 characters long. The "PKG",5,22,1,"PAH",1,1,4,0) print template does not account for the "^" it concatenates to the end of "PKG",5,22,1,"PAH",1,1,5,0) the patients name to use as a delimiter. Therefore, the PATIENT NAME "PKG",5,22,1,"PAH",1,1,6,0) (.01) and the DATE/TIME RECORD ACCESSED (#50) field would be displayed "PKG",5,22,1,"PAH",1,1,7,0) together. "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 "BLD",11438,6) ^858 **END** **END**