VistA-FOIAVistA/g/DIPT.zwr

19906 lines
1.5 MiB

Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^DIPT(0)="PRINT TEMPLATE^.4I^1473^1234"
^DIPT(.01,0)="CAPTIONED^"
^DIPT(.01,"F",1)="S DIC=DCC,DA=D0 D EN^DIQ"
^DIPT(.02,0)="FILE SECURITY CODES^^^1"
^DIPT(.02,"F",1)=".01;L20~0;R13~31~33~35~34~32~21~20"
^DIPT(.441,0)="DDXP FORMAT DOC^2921023.1533^@^.44^^@^2921130"
^DIPT(.441,"F",2)="""DESCRIPTION:"";S~30,.01~""USAGE NOTE:"";C2;S~31,.01~50,""OTHER NAME:"";C5;S~50,.01~50,""DESCRIPTION:"";C8;S~50,1,.01~"
^DIPT(.441,"H")="AVAILABLE FORMATS"
^DIPT(.442,0)="DDXP FORMAT DOC HDR^2921112.1536^@^.44^^@^2921130"
^DIPT(.442,"F",1)="""AVAILABLE FOREIGN FORMATS""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C45;L18;Z;""NOW""~"
^DIPT(.442,"F",2)="S X=""Page "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C67;Z;""""Page ""_PAGE""~"
^DIPT(.442,"F",3)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",IOM)""~"
^DIPT(.442,"H")="@"
^DIPT(.941,0)="DI-PKG-DEFAULT-DEFINITION^2930111.1405^@^9.4^^@^2930111"
^DIPT(.941,"DXS",1,9.2)="S DIP(1)=$S($D(^DIC(9.4,D0,4,D1,223)):^(223),1:"""") S X=$E(DIP(1),1,245)]"""",DIP(2)=X S X=""Update screen: ""_$E(DIP(1),1,245),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(.941,"F",1)="6,S DIP(1)=$S($D(^DIC(9.4,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X W X K DIP;""FILE #"";L10;Z;""INTERNAL(FILE)""~6,.01;L27~6,222.1;""UP DATE THE DD""~"
^DIPT(.941,"F",2)="6,222.2;""VER SION #""~6,222.4;""USER OVER RIDE DD""~6,222.7~6,222.8;""MERGE OR OVER WRITE"";L4~6,222.9;""USER OVER RIDE DATA""~"
^DIPT(.941,"F",3)="6,X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) K DIP;C13;W66;"""";Z;""$S(#223]"""":""Update screen: ""_#223,1:"""")""~"
^DIPT(.941,"F",4)="""Environment Check Routine :"";S1;C6~913;"""";C42~""Pre-Init After User Commit Routine :"";C6~916;C42;""""~""Post-Initialization Routine :"";C6~"
^DIPT(.941,"F",5)="914;"""";C42~"
^DIPT(.941,"H")="PACKAGE DEFAULT DEFINITION"
^DIPT(1,0)="XPD BUILD ENTRY^2940405.0815^@^9.6^^@^2940405"
^DIPT(1,"F",1)=".01;N;C1;""""~2;C3;N;""""~3,.01;N;C5;""""~""ENVIRONMENT CHECK ROUTINE: "";N;S1;""""~913;N;C30;""""~""POST-INIT ROUTINE: "";N;C1;""""~914;N;C20;""""~"
^DIPT(1,"F",2)="""PRE-INIT ROUTINE: "";N;C1;""""~916;N;C20;""""~7,.01;S1;N;""""~7,10,.01;C5;N;X~7,10,.03;C40;N;X~"
^DIPT(1,"H")="BUILD ENTRY"
^DIPT(2,0)="XUMENULIST^2840701^^19^^^2910801"
^DIPT(2,"F",1)="1;L30~.01~4~3.5,.01~D DISP^XQ2;"""";Z;""D DISP^XQ2""~""-----------------------------------------------------------------------""~"""";S2~"
^DIPT(2,"H")="Menu list by display terms [MENULIST]"
^DIPT(3,0)="XUSEC LIST^3021114.1147^@^3.081^^@^3030311"
^DIPT(3,"F",2)="0;""Sign-on time""~99;R9~.01;L17~S X=$I W X K DIP;L9;Z;""$I""~10~11~"
^DIPT(3,"H")="USERS WHO HAVE SIGNED ONTO THE COMPUTER"
^DIPT(4,0)="XQHNEW/REVISED FRAMES^2851206^^9.2^^^2940822"
^DIPT(4,"F",1)="1;"""";S1~S DIP(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"""") S X=""[""_$P(DIP(1),U,1)_""]"" W X K DIP;"""";C58;Z;""""[""_NAME_""]""""~8;C5;""LAST UPDATED""~"
^DIPT(4,"F",2)="S DIP(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;C25;""CREATED"";L12;Z;""DATE(DATE ENTERED)""~6;C43~"
^DIPT(4,"H")="NEW/REVISED HELP FRAMES"
^DIPT(5,0)="XUPROGH^2870701^^3.07^^"
^DIPT(5,"DXS",1,9.2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DIPT(5,"F",1)="""LOG OF ENTRY TO PROGRAMMER MODE "";C1~S X=DT S Y=X D DT K DIP;L18;Z;""TODAY""~"
^DIPT(5,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(NOW)""~"
^DIPT(5,"F",3)="""PAGE "";C70~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""--------------------------------------------------------------------------------"";C1~"
^DIPT(5,"H")="@"
^DIPT(5,"SUB")="1"
^DIPT(6,0)="XUPMDISPLAY^2890802.1501^^3.07^^^2941115"
^DIPT(6,"DCL","3.07^4")="!"
^DIPT(6,"F",1)=""
^DIPT(6,"F",2)="I '$D(DIPA(""CURRENT"")) X ^%ZOSF(""UCI"") S DIPA(""CURRENT"")=$P(Y,"","",1),Y="""";"""";Z;""I '$D(DIPA(""CURRENT"")) X ^%ZOSF(""UCI"") S DIPA(""CURRENT"")=$P(Y,"","",1),Y=""""""~"
^DIPT(6,"F",3)="3;C1;""DUZ""~4;""USER NAME""~S DIP(1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2)_"",""_$P(DIP(1),U,3) W X K DIP;""UCI,VOL"";L8;Z;""UCI_"",""_CPU""~0~"
^DIPT(6,"H")="Programmer Mode entry list"
^DIPT(7,0)="XUUFAA^2890404.0933^^3.05^^^2940824"
^DIPT(7,"DXS",1,9.2)="S DIP(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$S('$D(^%ZIS(1,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=$P(DIP(1),U,7)]"""",DIP(3)=X S X="" ("""
^DIPT(7,"DXS",2,9.2)="S DIP(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:""""),DIP(3)=$S($D(^%ZUA(3.05,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S X=X,DIP(2)=X S X=$P(DIP(3),U,1)"
^DIPT(7,"F",1)="""*** USER NAME: "";C15~5~"""";S1~""DATE/TIME OF ATTEMPT:"";C1~0~""NUMBER OF ATTEMPTS:"";C5~3~""TYPE OF FAILED ATTEMPT:"";C40~2~""CPU:"";C5~1~""UCI:"";C20~4~"
^DIPT(7,"F",2)="""DEVICE:"";C40~"
^DIPT(7,"F",3)="X DXS(1,9.2) S X=X_$P(DIP(1),U,7)_"")"",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X) S Y=X,X=DIP(2),X=X_Y W X K DIP;Z;""DEVICE_$S(ZIO]"""":"" (""_ZIO_"")"",1:"""")""~"
^DIPT(7,"F",4)=""""";S1~""TEXT ENTERED:"";C5~7,X DXS(2,9.2) S X1=DIP(2) D PRFAA^XUAPURGE W X K DIP;C5;Z;""XUFAA(INTERNAL(DEVICE),TEXT)""~"""";S1~"
^DIPT(7,"H")="[XUUFAAH]"
^DIPT(8,0)="XUUFAAH^2870619^^3.05^^^2940824"
^DIPT(8,"DXS",1,9.2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DIPT(8,"F",1)="""LOG OF USER FAILED ACCESS LIST"";C1~S X=DT S Y=X D DT K DIP;L18;Z;""TODAY""~"
^DIPT(8,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(NOW)""~"
^DIPT(8,"F",3)="""PAGE""~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~""--------------------------------------------------------------------------------"";C1~"
^DIPT(8,"H")="@"
^DIPT(8,"SUB")="1"
^DIPT(9,0)="XUFDISPLAY^2880519^^3.05^^"
^DIPT(9,"DCL","3.05^3")="&"
^DIPT(9,"F",2)="5~0;C33;""DATE/TIME""~3;C60;""NUMBER"";~"
^DIPT(9,"H")="FAILED ACCESS ATTEMPTS"
^DIPT(10,0)="XUDFDISPLAY^2881222^^3.05^^"
^DIPT(10,"DCL","3.05^3")="&"
^DIPT(10,"F",2)=".01;C1~0;C33~3;C60~"
^DIPT(10,"H")="[XUDFDISPH]"
^DIPT(11,0)="XUDFDISPH^2870701^^3.05^^"
^DIPT(11,"F",1)="""DEVICE FAILED ACCESS ATTEMPTS ""~S X=DT S Y=X D DT K DIP;L18;Z;""TODAY""~""PAGE"";C60~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~"""";S1~""DEVICE"";C1~"
^DIPT(11,"F",2)="""DATE/TIME"";C33~""NUMBER OF ATTEMPTS"";C56~"""";S1~"
^DIPT(11,"H")="@"
^DIPT(11,"SUB")="1"
^DIPT(12,0)="XUOPTLOGP^2870701^#^19.081^^#^2980520"
^DIPT(12,"F",2)="""*** OPTION:"";C10~.01~""USER:"";C5~1~""DATE/TIME (ENTRY):"";C1~0~"" (EXIT):""~4~""CPU:"";C1~5~""DEVICE:""~2~""JOB:""~3~"""";S1~"
^DIPT(12,"H")="[XUOPTLOGH]"
^DIPT(13,0)="XUOPTLOGH^2870701^@^19.081^^@^2920113"
^DIPT(13,"DXS",1,9.2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DIPT(13,"F",1)="""MENU OPTION AUDIT LOG "";C1~S X=DT S Y=X D DT K DIP;;Z;""TODAY"";L18~"
^DIPT(13,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(NOW)""~"
^DIPT(13,"F",3)="""PAGE "";C66~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""--------------------------------------------------------------------------------"";C1~"
^DIPT(13,"H")="@"
^DIPT(13,"SUB")="1"
^DIPT(14,0)="XUOPTDISPLAY^2870701^#^19.081^^#^2940827"
^DIPT(14,"F",2)="""OPTION:""~.01~""USER:""~1~""ENTRY:"";C1~0~"" EXIT:""~4~"""";S1~"
^DIPT(14,"H")="[XUOPTDISPH]"
^DIPT(15,0)="XUOPTDISPH^2870701^#^19.081^^#^2940827"
^DIPT(15,"F",2)="""MENU OPTION AUDIT LIST ""~S X=DT S Y=X D DT K DIP;Z;""TODAY"";L18~""PAGE"";C60~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~"""";S1~"
^DIPT(15,"H")="@"
^DIPT(15,"SUB")="1"
^DIPT(16,0)="XUUSEROPTP^2870701^#^19.081^^#^2940822"
^DIPT(16,"F",2)="""USER:"";C1~1~""OPTION:""~.01~""ENTRY:"";C1~0~"" EXIT:""~4~"""";S1~"
^DIPT(16,"H")="[XUUSEROPTH]"
^DIPT(17,0)="XUUSEROPTH^2870701^@^19.081^^@^2940822"
^DIPT(17,"F",1)="""USER MENU OPTION AUDIT LIST ""~S X=DT S Y=X D DT K DIP;Z;""TODAY"";L18~""PAGE "";C60~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~"
^DIPT(17,"F",2)="""--------------------------------------------------------------------------------"";C1~"
^DIPT(17,"H")="@"
^DIPT(17,"SUB")="1"
^DIPT(18,0)="XU-ZISPL-USER^3030409.1256^^3.51^^@^3030414"
^DIPT(18,"DCL","3.51^.01")="!"
^DIPT(18,"DCL","3.51^8")="&"
^DIPT(18,"DXS")="2"
^DIPT(18,"DXS",1,9.2)="S DIP(1)=$S($D(^XMB(3.51,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=""CNT"""
^DIPT(18,"DXS",2,"a")="Active"
^DIPT(18,"DXS",2,"m")="Message"
^DIPT(18,"DXS",2,"o")="Open"
^DIPT(18,"DXS",2,"p")="Printed"
^DIPT(18,"DXS",2,"r")="Ready"
^DIPT(18,"F",1)="4;L30;""USER NAME"";S1;N~.01;""DOCUMENT NAME"";C3;L44~2;C49;L8~8;""LINES"";C58~7;""SIZE"";C68~"
^DIPT(18,"F",2)="S DIP(2)=$S($D(^XMB(3.51,D0,0)):^(0),1:""""),X=DT S X=X,DIP(1)=X S X=$P(DIP(2),U,6),Y=X,X=DIP(1),X=X,X1=X,X2=Y,X="""" D:X2 ^%DTC:X1 W X K DIP;""AGE"";C76;R4;Z;""TODAY-(STARTED)""~"
^DIPT(18,"F",3)="21,X DXS(1,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;C10;X;Z;""SETPARAM(COPIES PRINTED,""CNT"")""~"
^DIPT(18,"F",4)="21,S X=""CNT"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;"""";Z;""PARAM(""CNT"")""~"
^DIPT(18,"F",5)="21,W $S(DIPA(""CNT"")>1:"" copies"",1:"" copy"")_"" printed on "";X;"""";Z;""W $S(DIPA(""CNT"")>1:"" copies"",1:"" copy"")_"" printed on """"~21,.01;X;""""~21,"" at "";X;""""~"
^DIPT(18,"F",6)="21,4;X;""""~"
^DIPT(18,"H")="SPOOL DOCUMENT LIST"
^DIPT(18,"IOM")="80"
^DIPT(18,"LAST")=""
^DIPT(18,"ROU")="^XUCT02"
^DIPT(18,"ROUOLD")="XUCT02"
^DIPT(18,"STATS","DITTO",1)=""
^DIPT(18,"STATS","N",2)="0"
^DIPT(18,"STATS","S",3)="0"
^DIPT(18,"T",2)="44^2^0^RFX^"
^DIPT(18,"T",57)="8^3^1^NJ7,0I^,0"
^DIPT(19,0)="XUPRG-ROUTINE EDIT^2880509^@^9.8^^@^2930708"
^DIPT(19,"F",2)=".01~23,.01~23,3~"
^DIPT(19,"H")="EDITED ROUTINE LIST"
^DIPT(20,0)="XUSDECSERVER^2890118^^3.5^^"
^DIPT(20,"F",2)="62;L8~63;L6~.01;L12~.02;L15~"
^DIPT(20,"H")="DEC server port LIST"
^DIPT(21,0)="XUDOC COMPLETE^2890314.1547^^9.8^^^2941115"
^DIPT(21,"F",1)="S X=""-"",DIP(1)=X S X=50,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;"""";Z;""DUP(""-"",50)""~""ROUTINE NAME: "";C5~"
^DIPT(21,"F",2)=".01;X;""""~S X=""-"",DIP(1)=X S X=50,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;"""";Z;""DUP(""-"",50)""~2,.01;S2;""""~"
^DIPT(21,"F",3)="""PARAMETERS"";S2;""""~""=========="";C1;""""~4,.01;S2;""""~4,1;C15;X;""""~4,2,.01;C1;S1;""""~""ENTRY POINTS"";S2;""""~""============"";C1;""""~5,.01;S2;""""~"
^DIPT(21,"F",4)="5,""SUPPORTED AS AN ENTRY POINT: "";C40;""""~5,2;X;""""~5,1,.01;C1;S1;""""~X:$D(^UTILITY($J,1)) ^(1) S X="""" W X K DIP;X;Z;""TOP""~"
^DIPT(21,"H")="ROUTINE PARAMETERS AND SUPPORTED ENTRY POINTS"
^DIPT(22,0)="XUDOC ENTRY POINTS^2890529.1123^^9.8^^^2910724"
^DIPT(22,"DXS",1,9)="X DXS(1,9.2) S X=X=""YES"",DIP(3)=X S X=""*CALLABLE AT: "",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X)"
^DIPT(22,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(9.801,2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^DIC(9.8,D0,""T"",D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(22,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(9.801,2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^DIC(9.8,D0,""T"",D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(22,"F",1)=".01;S;""""~5,X DXS(1,9) W X K DIP;C10;"""";Z;""$S(SUPPORTED ENTRY POINT=""YES"":""*CALLABLE AT: "",1:"""")""~"
^DIPT(22,"F",2)="5,X DXS(2,9.2) S X=X=""YES"",DIP(3)=X S X=$P(DIP(1),U,1),DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;X;Z;""$S(SUPPORTED ENTRY POINT=""YES"":TAG,1:"""")""~"
^DIPT(22,"F",3)="2,.01;C11;""""~"
^DIPT(22,"H")="ROUTINE LIST (*SUPPORTED ENTRY POINTS)"
^DIPT(23,0)="XU-PKG-DEFAULT-DEFINITION^2890706.1601^^9.4^^^2930423"
^DIPT(23,"DXS",1,9.2)="S DIP(1)=$S($D(^DIC(9.4,D0,4,D1,223)):^(223),1:"""") S X=$E(DIP(1),1,245)]"""",DIP(2)=X S X=""Update screen: ""_$E(DIP(1),1,245),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(23,"F",1)="6,S DIP(1)=$S($D(^DIC(9.4,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X W X K DIP;""FILE #"";L10;Z;""INTERNAL(FILE)""~6,.01;L27~6,222.1;""UP DATE THE DD""~"
^DIPT(23,"F",2)="6,222.2;""VER SION #""~6,222.4;""USER OVER RIDE DD""~6,222.7~6,222.8;""MERGE OR OVER WRITE"";L4~6,222.9;""USER OVER RIDE DATA""~"
^DIPT(23,"F",3)="6,X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) K DIP;C13;W66;"""";Z;""$S(#223]"""":""Update screen: ""_#223,1:"""")""~""Pre-Initialization Routine :"";S1;C13~"
^DIPT(23,"F",4)="913;"""";C42~""Initialization Routine :"";C13~916;C42;""""~""Post-Initialization Routine:"";C13~914;"""";C42~"
^DIPT(23,"H")="PACKAGE DEFAULT DEFINITION"
^DIPT(24,0)="XUSER LIST^2941114.1042^^200^^^2941114"
^DIPT(24,"F",2)="0~.01;L20~201;L20;""Primary Menu""~202;""Last Sign-on""~"
^DIPT(24,"H")="USER LIST"
^DIPT(25,0)="XQSMD BY USER^2910819.1448^^200^^^2940722"
^DIPT(25,"F",2)=".01;L20;N~19;L20;""CREATED BY"";N~19.1;""CREATION DATE"";L9;N~19.2;R8;N~19.5,.01;C5;L20~19.5,1;L20;N~19.5,2;L9;N~"
^DIPT(25,"H")="DELEGATED OPTIONS BY USER"
^DIPT(26,0)="XQSMD BY OPTION^2880201^^200^^^2940722"
^DIPT(26,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DIC(19,+D0,0)) D0=-1"
^DIPT(26,"F",1)="19.5,.01;L20;N;C1~"
^DIPT(26,"F",2)="19.5,X DXS(1,9.2) S DIP(101)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;""MENU TEXT"";N;L25;Z;"".01:MENU TEXT""~"
^DIPT(26,"F",200)=".01;L25~"
^DIPT(26,"H")="DELEGATED OPTIONS BY USER"
^DIPT(27,0)="XUSERINQ^3070803.1149^^200^^@^3070914"
^DIPT(27,"DXS",1,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1)_"" (#""_$S('$D(D0):"""",D0<0:"""",1:D0)_"")"""
^DIPT(27,"DXS",2,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),DIP(2)=$G(X) S X=1,X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=$G(X) S X=""TD"""
^DIPT(27,"DXS",3,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,7,0)),U,3),DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59)),DIP(3)=$G(X) S X=""DIS"""
^DIPT(27,"DXS",4,9.2)="S DIP(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,8),0)),U),DIP(2)=$G(X) S X=19"
^DIPT(27,"DXS",5,9.2)="S DIP(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=1,X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=$G(X) S X=62"
^DIPT(27,"DXS",6,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,200.04,0)),U,3),DIP(1)=$S($D(^VA(200,D0,200)):^(200),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59)),DIP(3)=$G(X) S X=19"
^DIPT(27,"DXS",7,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),DIP(2)=$G(X) S X=62"
^DIPT(27,"DXS",8,9.2)="S DIP(1)=$S($D(^VA(200,D0,200)):^(200),1:"""") S X=$P(DIP(1),U,10),DIP(2)=$G(X) S X=19"
^DIPT(27,"DXS",9,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,200.09,0)),U,3),DIP(1)=$S($D(^VA(200,D0,200)):^(200),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,9)_"":"",2),$C(59)),DIP(3)=$G(X) S X=62"
^DIPT(27,"DXS",10,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P($G(^DIC(3.1,+$P(DIP(1),U,9),0)),U),DIP(2)=$G(X) S X=19"
^DIPT(27,"DXS",11,9.2)="S DIP(1)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=$P(DIP(1),U,2),DIP(2)=$G(X) S X=62"
^DIPT(27,"DXS",12,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,200.06,0)),U,3),DIP(1)=$S($D(^VA(200,D0,200)):^(200),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59)),DIP(3)=$G(X) S X=19"
^DIPT(27,"DXS",13,9.2)="S DIP(1)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=62"
^DIPT(27,"DXS",14,9.2)="S DIP(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=""1D"",X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=$G(X) S X=19"
^DIPT(27,"DXS",15,9.2)="S DIP(1)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=$P(DIP(1),U,8),DIP(2)=$G(X) S X=62"
^DIPT(27,"DXS",16,9.2)="S X=""ESIG"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X,DIP(1)=$G(X) S X=19"
^DIPT(27,"DXS",17,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,53.1,0)),U,3),DIP(1)=$S($D(^VA(200,D0,""PS"")):^(""PS""),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59)),DIP(3)=$G(X) S X=62"
^DIPT(27,"DXS",18,9.2)="S DIP(1)=$S($D(^VA(200,D0,""NPI"")):^(""NPI""),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=19"
^DIPT(27,"DXS",19,9.2)="S X=""TAX"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X,DIP(1)=$G(X) S X=62"
^DIPT(27,"DXS",20,9.2)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P(DIP(1),U,2),X=X S X=X,DIP(2)=$G(X) S X=""POS"""
^DIPT(27,"DXS",21,9.2)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^HL(771.9,+$P(DIP(1),U,1),0)),U),DIP(2)=$G(X) S X=""F12.1"""
^DIPT(27,"DXS",22,9.2)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(DIP(1),U,2),0)),U),DIP(2)=$G(X) S X=""F12.2"""
^DIPT(27,"DXS",23,9.2)="N C S Y=$P(DIP(1),U,3),C=""FXO"" D:$D(^DD(200,12.3,0)) Y^DIQ"
^DIPT(27,"DXS",23,9.3)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") X DXS(23,9.2) S X=Y,DIP(2)=$G(X) S X=""F12.3"""
^DIPT(27,"DXS",24,9.2)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(DIP(1),U,4),0)),U),DIP(2)=$G(X) S X=""F12.4"""
^DIPT(27,"DXS",25,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^VA(200,D0,201)):^(201),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DIC(19,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(19,D0,0)):^(0),1:"""")"
^DIPT(27,"DXS",26,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^VA(200,D0,203,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DIC(19,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(19,D0,0)):^(0),1:"""")"
^DIPT(27,"DXS",27,9)="W:$O(^VA(200,D0,""ORD"",0)) !?2,""Name Description"",?46,""Effective Expiration"",!?2,""---- -----------"",?46,""--------- ----------"""
^DIPT(27,"DXS",28,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^VA(200,D0,""ORD"",D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^ORD(101.13,+D0,0)) D0=-1 S DIP(101)=$S($D(^ORD(101.13,D0,0)):^(0),1:"""")"
^DIPT(27,"DXS",29,0)="NO"
^DIPT(27,"DXS",29,1)="YES"
^DIPT(27,"F",1)="X DXS(1,9.2) S %=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;C1;"""";Z;""XUDASH(NAME_"" (#""_NUMBER_"")"")""~""Service/Section: "";C1;~"
^DIPT(27,"F",2)="29~"
^DIPT(27,"F",3)="X DXS(2,9.2) S X1=DIP(3) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;"""";X;Z;""SETPARAM(XUFMTOEX(TERMINATION DATE,1),""TD"")""~"
^DIPT(27,"F",4)="W:$L($P(^VA(200,D0,0),U,11)) !,$C(7),?5,""Terminated: "",DIPA(""TD"");Z;""W:$L($P(^VA(200,D0,0),U,11)) !,$C(7),?5,""Terminated: "",DIPA(""TD"")""~"
^DIPT(27,"F",5)="X DXS(3,9.2) S X1=DIP(3) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;"""";X;Z;""SETPARAM(DISUSER,""DIS"")""~"
^DIPT(27,"F",6)="W:DIPA(""DIS"")[""Y"" !,?8,""Disuser: "",DIPA(""DIS"");Z;""W:DIPA(""DIS"")[""Y"" !,?8,""Disuser: "",DIPA(""DIS"")""~D INQ^XUS9 S X="""";Z;""D INQ^XUS9 S X=""""""~"
^DIPT(27,"F",7)="S X=""ATTRIBUTES"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;C1;S1;Z;""XUDASH(""ATTRIBUTES"")""~""Creator"";C3;""""~"
^DIPT(27,"F",8)="X DXS(4,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(CREATOR,19)""~"
^DIPT(27,"F",9)="S X=""Date entered"" W X K DIP;C43;"";Z;""""Date entered""""~"
^DIPT(27,"F",10)="X DXS(5,9.2) S X1=DIP(3) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(XUFMTOEX(DATE ENTERED,1),62)""~"
^DIPT(27,"F",11)="""Mult Sign-on"";C3~"
^DIPT(27,"F",12)="X DXS(6,9.2) S X1=DIP(3) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(MULTIPLE SIGN-ON,19)""~"
^DIPT(27,"F",13)="""Fileman codes"";C43~"
^DIPT(27,"F",14)="X DXS(7,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(FILE MANAGER ACCESS CODE,62)""~"
^DIPT(27,"F",15)="""Time-out"";C3~"
^DIPT(27,"F",16)="X DXS(8,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(TIMED READ,19)""~"
^DIPT(27,"F",17)="""Type-ahead"";C43~"
^DIPT(27,"F",18)="X DXS(9,9.2) S X1=DIP(3) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(TYPE-AHEAD,62)""~"
^DIPT(27,"F",19)="""Title"";C3;""""~X DXS(10,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(TITLE,19)""~"
^DIPT(27,"F",20)="""Office Phone"";C43~"
^DIPT(27,"F",21)="X DXS(11,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(OFFICE PHONE,62)""~"
^DIPT(27,"F",22)="""Auto-Menu"";C3;""""~"
^DIPT(27,"F",23)="X DXS(12,9.2) S X1=DIP(3) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(AUTO MENU,19)""~"
^DIPT(27,"F",24)="""Voice Pager"";C43~"
^DIPT(27,"F",25)="X DXS(13,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(VOICE PAGER,62)""~"
^DIPT(27,"F",26)="""Last Sign-on"";C3~"
^DIPT(27,"F",27)="X DXS(14,9.2) S X1=DIP(3) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(XUFMTOEX(LAST SIGN,""1D""),19)""~"
^DIPT(27,"F",28)="""Digital Pager"";C43~"
^DIPT(27,"F",29)="X DXS(15,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(DIGITAL PAGER,62)""~"
^DIPT(27,"F",30)="""Has a E-SIG"";C3~"
^DIPT(27,"F",31)="S DIPA(""ESIG"")=$S($L($P($G(^VA(200,D0,20)),U,4)):""Yes"",1:""No"");"""";X;Z;""S DIPA(""ESIG"")=$S($L($P($G(^VA(200,D0,20)),U,4)):""Yes"",1:""No"")""~"
^DIPT(27,"F",32)="X DXS(16,9.2) S X1=DIP(1) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(PARAM(""ESIG""),19)""~"
^DIPT(27,"F",33)="""Write Med's"";C43~"
^DIPT(27,"F",34)="X DXS(17,9.2) S X1=DIP(3) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(AUTHORIZED TO WRITE,62)""~"
^DIPT(27,"F",35)=""" "";C1~""NPI"";C3~X DXS(18,9.2) S X1=DIP(2) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(NPI,19)""~"
^DIPT(27,"F",36)="""Taxonomy"";C43~S DIPA(""TAX"")=$P($$TAXINQ^XUSTAX(D0),""^"");"""";X;Z;""S DIPA(""TAX"")=$P($$TAXINQ^XUSTAX(D0),""^"")""~"
^DIPT(27,"F",37)="X DXS(19,9.2) S X1=DIP(1) S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""" W X K DIP;"""";Z;""XUDOTTAB(PARAM(""TAX""),62)""~"
^DIPT(27,"F",38)="""Person Class: "";C3~D SHPC^XUSER1(D0);Z;""D SHPC^XUSER1(D0)""~"" "";C1~"
^DIPT(27,"F",39)="X DXS(20,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(INTERNAL(#12.2),""POS"")""~"
^DIPT(27,"F",40)="W:$G(DIPA(""POS""))'="""" !,""Clinical Trainee Data"";Z;""W:$G(DIPA(""POS""))'="""" !,""Clinical Trainee Data""""~"
^DIPT(27,"F",41)="W:$G(DIPA(""POS""))'="""" !,""---------------------"";Z;""W:$G(DIPA(""POS""))'="""" !,""---------------------""""~"
^DIPT(27,"F",42)="X DXS(21,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#12.1),""F12.1"")""~"
^DIPT(27,"F",43)="W:$G(DIPA(""POS""))'="""" !,?2,""Current Degree Level: "",DIPA(""F12.1"");Z;""W:$G(DIPA(""POS""))'="""" !,?2,""Current Degree Level: "",DIPA(""F12.1"")""~"
^DIPT(27,"F",44)="X DXS(22,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;Z;""SETPARAM((#12.2),""F12.2"")""~"
^DIPT(27,"F",45)="W:$G(DIPA(""POS""))'="""" !,?2,""Program of Study: "",DIPA(""F12.2"");Z;""W:$G(DIPA(""POS""))'="""" !,?2,""Program of Study: "",DIPA(""F12.2"")""~"
^DIPT(27,"F",46)="X DXS(23,9.3) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;Z;""SETPARAM((#12.3),""F12.3"")""~"
^DIPT(27,"F",47)="W:$G(DIPA(""POS""))'="""" !,?2,""Last Training Year: "",DIPA(""F12.3"");Z;""W:$G(DIPA(""POS""))'="""" !,?2,""Last Training Year: "",DIPA(""F12.3"")""~"
^DIPT(27,"F",48)="X DXS(24,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;Z;""SETPARAM((#12.4),""F12.4"")""~"
^DIPT(27,"F",49)="W:$G(DIPA(""POS""))'="""" !,?2,""VHA Training Facility: "",DIPA(""F12.4"");Z;""W:$G(DIPA(""POS""))'="""" !,?2,""VHA Training Facility: "",DIPA(""F12.4"")""~"
^DIPT(27,"F",50)="W:$G(DIPA(""POS""))'="""" !,"" "";Z;""W:$G(DIPA(""POS""))'="""" !,"" """"~"
^DIPT(27,"F",51)="S DIP(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=""Primary Menu: ""_$P($G(^DIC(19,+$P(DIP(1),U,1),0)),U) W X K DIP;C1;Z;""""Primary Menu: ""_PRIMARY MENU""~"
^DIPT(27,"F",52)="X DXS(25,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C40;"""";Z;""PRIMARY MENU:MENU TEXT""~"
^DIPT(27,"F",53)="S X=""Secondary Menu(s)"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;C1;Z;""XUDASH(""Secondary Menu(s)"")""~203,2;C2;""""~"
^DIPT(27,"F",54)="203,S DIP(1)=$S($D(^VA(200,D0,203,D1,0)):^(0),1:"""") S X=""[""_$P($G(^DIC(19,+$P(DIP(1),U,1),0)),U)_""]"" W X K DIP;C8;"""";Z;""""[""_SECONDARY MENU OPTIONS_""]""""~"
^DIPT(27,"F",55)="203,X DXS(26,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;C42;"""";Z;"".01:MENU TEXT""~"
^DIPT(27,"F",56)="S X=""Keys Held"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;S1;Z;""XUDASH(""Keys Held"")""~"
^DIPT(27,"F",57)="D GKEYS^XUSER1(D0,.DIP),SHLIST^XUSER1(.DIP,3,4);Z;""D GKEYS^XUSER1(D0,.DIP),SHLIST^XUSER1(.DIP,3,4)""~"
^DIPT(27,"F",58)="S X=""Patient Selection"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;S1;Z;""XUDASH(""Patient Selection"")""~""Restrict?:"";C3~"
^DIPT(27,"F",59)="101.01;C14~""OE/RR List:"";C2~101.02;C14;""""~"
^DIPT(27,"F",60)="S X=""CPRS Access Tabs"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;S1;Z;""XUDASH(""CPRS Access Tabs"")""~"
^DIPT(27,"F",61)="X DXS(27,9);Z;""W:$O(^VA(200,D0,""ORD"",0)) !?2,""Name Description"",?46,""Effective Expiration"",!?2,""---- -----------"",?46,""--------- ----------""""~"
^DIPT(27,"F",62)="101.13,.01;C3;X~101.13,X DXS(28,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;C9;X;Z;""CPRS TAB:TAB DESCRIPTION""~101.13,.02;C46;X~"
^DIPT(27,"F",63)="101.13,.03;C59;X~"
^DIPT(27,"F",64)="S X=""CPRS Parameter info (User Specific)"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;S1;Z;""XUDASH(""CPRS Parameter info (User Specific)"")""~"
^DIPT(27,"F",65)="D GPARAM^XUSER1(D0,""ORWOR WRITE ORDERS LIST"",.DIP),SHLIST^XUSER1(.DIP,3,3);"""";Z;""D GPARAM^XUSER1(D0,""ORWOR WRITE ORDERS LIST"",.DIP),SHLIST^XUSER1(.DIP,3,3)""~"
^DIPT(27,"F",66)="D GPARAM^XUSER1(D0,""ORWDX WRITE ORDERS LIST"",.DIP),SHLIST^XUSER1(.DIP,3,3);"""";Z;""D GPARAM^XUSER1(D0,""ORWDX WRITE ORDERS LIST"",.DIP),SHLIST^XUSER1(.DIP,3,3)""~"
^DIPT(27,"F",67)="D GPARAM^XUSER1(D0,""OR ADD ORDERS MENU"",.DIP),SHLIST^XUSER1(.DIP,3,3);Z;""D GPARAM^XUSER1(D0,""OR ADD ORDERS MENU"",.DIP),SHLIST^XUSER1(.DIP,3,3)""~"""";S1~"
^DIPT(27,"F",68)="D CLEAN^DILF;Z;""D CLEAN^DILF""~"
^DIPT(27,"F",69)="S Y=IOSL N IOSL S IOSL=$S(IOST[""P-"":999,1:Y),Y=D0 D EN^XMA7;Z;""S Y=IOSL N IOSL S IOSL=$S(IOST[""P-"":999,1:Y),Y=D0 D EN^XMA7""~"""";S1~"
^DIPT(27,"H")="@"
^DIPT(27,"IOM")="80"
^DIPT(27,"LAST")="1"
^DIPT(27,"ROU")="^XUCT01"
^DIPT(27,"ROUOLD")="XUCT01"
^DIPT(27,"SUB")="1"
^DIPT(28,0)="XUSERVER DISPLAY^2900122.1043^@^19.081^^@^2941115"
^DIPT(28,"F",1)=""""";S2~""SERVER OPTION: ""~.01~"" USER: "";C30~1~""ENTRY: "";C1~0~"" EXIT: ""~4~""MESSAGE #: "";C1~6~""SENDER: "";C30~7~""SUBJECT: "";C1~8;C10~"""";S1~""COMMENTS: ""~"
^DIPT(28,"F",2)=""""";S1~9~"
^DIPT(28,"H")="[XUSERVER HEADER]"
^DIPT(29,0)="XUSERVER HEADER^2901205.1313^@^19.081^^@^2941115"
^DIPT(29,"F",2)="""SERVER OPTION REQUESTS"";C18~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;""NOW""~"
^DIPT(29,"H")="@"
^DIPT(29,"SUB")="1"
^DIPT(30,0)="XUFILEINQ^3041104.1129^@^200^^@^3070912"
^DIPT(30,"DXS",1,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4)=""@"",DIP(2)=$G(X) S X=""Programmer Access to All Files"",DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X="""""
^DIPT(30,"F",1)="X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C38;L35;"""";Z;""$S(#3=""@"":""Programmer Access to All Files"",1:"""")""~32,0;C1;L10;""FILE#""~32,.01;C12;L25~"
^DIPT(30,"F",2)="32,1;R3;""DD""~32,2;R5;""DELETE""~32,3;R5;""LAYGO""~32,4;R4;""READ""~32,5;R5;""WRITE""~32,6;R5;""AUDIT""~"
^DIPT(30,"H")="[XUFILEINQHDR]"
^DIPT(30,"ROUOLD")="XUFILE0"
^DIPT(31,0)="XUFILE ACCESS ABBREVIATED^2880407^^200^^^2950308"
^DIPT(31,"F",2)="0;""USER #""~.01;L25~32,1;""DD"";R4~32,2;""DELETE"";R6~32,3;""LAYGO"";R5~32,4;""READ"";R4~32,5;""WRITE"";R5~32,6;""AUDIT"";R5~"
^DIPT(31,"H")="USER ACCESS TO FILES"
^DIPT(32,0)="XUFILEINQHDR^2920409.1201^@^200^^@^2941018"
^DIPT(32,"F",1)="""USER ACCESS TO FILES"";C1~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE: "";C70;X~"
^DIPT(32,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;L2;Z;""PAGE""~.01;C1;X~"" ("";X~"
^DIPT(32,"F",3)="S X=$S('$D(D0):"""",D0<0:"""",1:D0),DIP(1)=X S X=0,X=$J(DIP(1),X) W X K DIP;X;Z;""$J(NUMBER,0)""~"")""~""DD DELETE LAYGO READ WRITE AUDIT"";C38;L40~"""";C1~"
^DIPT(32,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-1,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM-1)""~"
^DIPT(32,"F",5)=""""";C1~"
^DIPT(32,"H")="@"
^DIPT(32,"SUB")="1"
^DIPT(33,0)="XUFILEOFILES^2880417^^200^^^2920403"
^DIPT(33,"DXS",1,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4)=""@"",DIP(2)=X S X=""Programmer access to all files"",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(33,"F",1)=".01;"""";C1;X~"" ("";X~S X=$S('$D(D0):"""",D0<0:"""",1:D0),DIP(1)=X S X=0,X=$J(DIP(1),X) W X K DIP;X;Z;""$J(#.001,0)""~"")""~"
^DIPT(33,"F",2)="X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C38;L40;"""";Z;""$S(#3=""@"":""Programmer access to all files"",1:"""")""~32,0;C1;L9;""FILE#""~32,.01;C11;L25~"
^DIPT(33,"F",200)="32,1;""DD"";R3~32,2;R5;""DELETE""~32,3;""LAYGO"";R5~32,4;""READ"";R4~32,5;""WRITE"";R5~32,6;""AUDIT"";R5~"
^DIPT(33,"H")="USER ACCESS TO FILES"
^DIPT(34,0)="XQAB SITE/NUMBER/ROU/OPT/ERR^2930726.1623^^8991.5^^^2950405^"
^DIPT(34,"DCL","8991.511^0")="&"
^DIPT(34,"F",2)="1,1,.01;L20~1,1,0~.02;L10~.03;L20~"
^DIPT(34,"H")="XQAB ERRORS LOGGED LIST"
^DIPT(35,0)="XQSMD OPTION BY USER^2880128^^200^^"
^DIPT(35,"F",2)=".01;L20~19;L20;""CREATED BY""~19.1;""CREATION DATE"";L9~19.2;L2~19.5,.01;C5~19.5,1;L20~19.5,2;L9~"
^DIPT(35,"H")="DELEGATED OPTIONS BY USER"
^DIPT(36,0)="XU TEMPLATE LIST^2891003.0953^@^.402^^@^2891003"
^DIPT(36,"F",2)=".01;S2;""TEMPLATE NAME""~D ^DIET;"""";Z;""D ^DIET""~"
^DIPT(36,"H")="INPUT TEMPLATE LIST"
^DIPT(37,0)="XUS-SPY-SHOW^2890228^^8989.3^^@^2941117"
^DIPT(37,"F",1)="""List of current Kernel audit parameters"";S2~""Initiate on:"";C2~19.4;C15~""Terminate on:"";C41~19.5;C56~"" "";C1~19.1,""Option(s) to Audit:"";C5~19.1,.01;C25;N~"
^DIPT(37,"F",2)="19.2,""Namespace(s) to Audit:"";C5~19.2,.01;C29;N~212.1,""Device(s) to Audit:"";C5~212.1,.01;C25;N~19.3,""User to audit:"";C5~19.3,.01;C25;N~"
^DIPT(37,"F",3)="""Failed access attempt audit:"";C1~212.5;C30~"
^DIPT(37,"H")="@"
^DIPT(37,"SUB")="1"
^DIPT(39,0)="XQ-BACKGROUND RECOMMENDED^2940422.1604^@^19^^@^2940819"
^DIPT(39,"F",2)=".01;S1~1;C2~3.5,.01;C4~"
^DIPT(39,"H")="Recommended Background Options"
^DIPT(40,0)="XQ-BACKGROUND SCHEDULE^2941013.0827^^19.2^^@^2971213"
^DIPT(40,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DIC(19.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DIC(19,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(19,D0,0)):^(0),1:"""")"
^DIPT(40,"DXS",2,9)="X DXS(2,9.4) S X=$S(DIP(3):DIP(4),DIP(7):DIP(8),DIP(11):DIP(12),DIP(13):X)"
^DIPT(40,"DXS",2,9.2)="X $P(^DD(19.2,99.1,0),U,5,99) S DIP(10)=X S DIP(2)=$C(59)_$S($D(^DD(19.2,9,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^DIC(19.2,D0,0)):^(0),1:""""),DIP(6)=$S($D(^(1)):^(1),1:"""")"
^DIPT(40,"DXS",2,9.3)="X DXS(2,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,9)_"":"",2),$C(59),1)[""S"",DIP(3)=X S X=""Startup job"",DIP(4)=X,DIP(5)=X S X=$P(DIP(6),U,1)="""",DIP(7)=X S X=""** No Task **"""
^DIPT(40,"DXS",2,9.4)="X DXS(2,9.3) S DIP(8)=X,DIP(9)=X S X=DIP(10)=0,DIP(11)=X S X=""** No Task **"",DIP(12)=X S X=1,DIP(13)=X,DIP(14)=X S X=$P(DIP(6),U,1)"
^DIPT(40,"F",1)=".01;""OPTION NAME"";L25~2;""RUN TIME"";L18~6;L30~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""MENU TEXT"";C5;Z;""NAME:MENU TEXT""~"
^DIPT(40,"F",2)="3;""OUTPUT DEVICE"";C5;L25~5;""Vol Set"";L8~"
^DIPT(40,"F",3)="X DXS(2,9) W X K DIP;""Task ID"";Z;""$S((SPECIAL QUEUEING)[""S"":""Startup job"",(TASK ID)="""":""** No Task **"",(TASK DEFIND)=0:""** No Task **"",1:(TASK ID))""~"
^DIPT(40,"H")="Option's Scheduled to Run"
^DIPT(41,0)="XUDEV LINEPORTADDR^2950629.1552^@^3.5^^@^2950629"
^DIPT(41,"DCL","3.5^1")="#"
^DIPT(41,"DXS",1,9.2)="S DIP(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""NAME"""
^DIPT(41,"F",1)=".01;C1~1;C25;L14~X DXS(1,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(#.01,""NAME"")""~"
^DIPT(41,"F",2)="W $$LNPRTADR^%ZISUTL(DIPA(""NAME""));""LINE/PORT ADDRESS"";C40;L30;Z;""W $$LNPRTADR^%ZISUTL(DIPA(""NAME""))""~"
^DIPT(41,"H")="DEVICE STATISTICS"
^DIPT(42,0)="XMHOSTLIST^2870409^^4.2^^^^"
^DIPT(42,"%D",0)="^^2^2^2931206^^"
^DIPT(42,"%D",1,0)="This template may be used to produce a list of domains with pertinent"
^DIPT(42,"%D",2,0)="network routing information."
^DIPT(42,"F",2)=".01;L10~5.5;""STATION"";R5~6.2;""DHCP"";L6~6.5;""HOST"";R8~6;""MCST"";L6~"
^DIPT(42,"H")="DOMAIN HOST LIST"
^DIPT(43,0)="XMMGR-BKFILER-QUEUE-WAIT^2931017.1833^^4.2998^^^^"
^DIPT(43,"%D",0)="^^4^4^2931206^^"
^DIPT(43,"%D",1,0)="This template is used to output the time messages are waiting "
^DIPT(43,"%D",2,0)="to be delivered in the mail delivery queues."
^DIPT(43,"%D",3,0)="Each queue is a column and two message and three response columns are"
^DIPT(43,"%D",4,0)="displayed."
^DIPT(43,"DCL","4.2998^1")="#"
^DIPT(43,"DCL","4.2998^201")="#"
^DIPT(43,"DCL","4.2998^202")="#"
^DIPT(43,"DCL","4.2998^203")="#"
^DIPT(43,"DCL","4.2998^401")="#"
^DIPT(43,"DCL","4.2998^402")="#"
^DIPT(43,"F",2)=".01~1~401~402~201~202~203~"
^DIPT(43,"H")="DELIVERY WAIT BY QUEUE"
^DIPT(44,0)="XMMGR-BKFILER-ACTIVE_USERS/DEL^2931017.183^^4.2998^^^^"
^DIPT(44,"%D",0)="^^2^2^2931206^^"
^DIPT(44,"%D",1,0)="This template is used to display active users and message delivery "
^DIPT(44,"%D",2,0)="information."
^DIPT(44,"DCL","4.2998^1")="#"
^DIPT(44,"DCL","4.2998^38")="#"
^DIPT(44,"DCL","4.2998^44")="#"
^DIPT(44,"DCL","4.2998^45")="#"
^DIPT(44,"DCL","4.2998^46")="#"
^DIPT(44,"DCL","4.2998^47")="#"
^DIPT(44,"F",2)=".01~38~1~44~45~46~47~"
^DIPT(44,"H")="ACTIVE USERS VERSES DELIVERIES"
^DIPT(45,0)="XMMGR-BKFILER-LENGTH_OF_QUEUES^2931017.1831^^4.2998^^^^"
^DIPT(45,"%D",0)="^^3^3^2931206^^^"
^DIPT(45,"%D",1,0)="This template is used to output the length of mail delivery queues."
^DIPT(45,"%D",2,0)="Each queue is a column and two message and three response columns are"
^DIPT(45,"%D",3,0)="displayed."
^DIPT(45,"DCL","4.2998^1")="#"
^DIPT(45,"DCL","4.2998^301")="#"
^DIPT(45,"DCL","4.2998^302")="#"
^DIPT(45,"DCL","4.2998^303")="#"
^DIPT(45,"DCL","4.2998^501")="#"
^DIPT(45,"DCL","4.2998^502")="#"
^DIPT(45,"F",2)=".01~1~501~502~301~302~303~"
^DIPT(45,"H")="QUEUE LENGTH REPORT"
^DIPT(46,0)="XMMGR-BKFILER-DEL_BY_GROUP^2931017.183^^4.2998^^^2971118^"
^DIPT(46,"%D",0)="^.4001^2^2^3020717^^^"
^DIPT(46,"%D",1,0)="This template is used to output mail deliveries by delivery group. It"
^DIPT(46,"%D",2,0)="will output two message delivery groups and three response delivery groups. "
^DIPT(46,"DCL","4.2998^601")="#"
^DIPT(46,"DCL","4.2998^602")="#"
^DIPT(46,"DCL","4.2998^603")="#"
^DIPT(46,"DCL","4.2998^701")="#"
^DIPT(46,"DCL","4.2998^702")="#"
^DIPT(46,"F",2)=".01~701~702~601~602~603~"
^DIPT(46,"H")="DELIVERIES BY GROUP"
^DIPT(47,0)="XMMGR-BKFILER-STATS-PLUS^2931017.1833^^4.2998^^^2971118^"
^DIPT(47,"%D",0)="^.4001^1^1^3020717^^^"
^DIPT(47,"%D",1,0)="This template gives important daily delivery statistics."
^DIPT(47,"DCL","4.2998^15")="#"
^DIPT(47,"DCL","4.2998^201")="#"
^DIPT(47,"DCL","4.2998^22")="#"
^DIPT(47,"DCL","4.2998^38")="#"
^DIPT(47,"DCL","4.2998^401")="#"
^DIPT(47,"DCL","4.2998^44")="#"
^DIPT(47,"DCL","4.2998^45")="#"
^DIPT(47,"DCL","4.2998^46")="#"
^DIPT(47,"DCL","4.2998^47")="#"
^DIPT(47,"F",2)=".01~38~15~44~45~401~201~46~47~22~"
^DIPT(47,"H")="MESSAGE DELIVERY STATS LIST"
^DIPT(48,0)="XMMGR-BKFILER-OLD_STATS/TABBED^2931017.1832^^4.2998^^^^"
^DIPT(48,"%D",0)="^.4001^3^3^3020717^^^"
^DIPT(48,"%D",1,0)="This template will produce a report just like the XMMGR-BKFILER-STATS-PLUS"
^DIPT(48,"%D",2,0)="template, except that the output is formatted for capture into a file that"
^DIPT(48,"%D",3,0)="can then easily be converted into a graphical display."
^DIPT(48,"DXS",1,9.2)="S DIP(1)=$S($D(^XMBX(4.2998,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1)"
^DIPT(48,"F",1)="S DIP(1)=$S($D(^XMBX(4.2998,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;L12;Z;""DATE(#.01)""~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(48,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(#.01)""~"
^DIPT(48,"F",3)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~S %XMNORMAL=$S($D(^XMB(1,1,120001)):^(120001),1:"""");X;Z;""S %XMNORMAL=$S($D(^XMB(1,1,120001)):^(120001),1:"""")""~"
^DIPT(48,"F",4)="38;L6~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~W $J($S('$D(X):.1,X=0:.1,1:X)/%XMNORMAL,4,2);X;Z;""W $J($S('$D(X):.1,X=0:.1,1:X)/%XMNORMAL,4,2)""~"
^DIPT(48,"F",5)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~15;R6~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(48,"F",6)="W $J($S('$D(X):.1,X=0:.1,1:X)/$P(%XMNORMAL,"","",2),8,2);X;Z;""W $J($S('$D(X):.1,X=0:.1,1:X)/$P(%XMNORMAL,"","",2),8,2)""~"
^DIPT(48,"F",7)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~44;R10~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~S XMTEMP=X;X;Z;""S XMTEMP=X""~45;R10~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(48,"F",8)="S Y=X+XMTEMP W $J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",3),7,2);X;Z;""S Y=X+XMTEMP W $J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",3),7,2)""~"
^DIPT(48,"F",9)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~46;R10~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~S XMTEMP=X;X;Z;""S XMTEMP=X""~47;R10~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(48,"F",10)="S Y=X+XMTEMP W $J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",4),7,2);X;Z;""S Y=X+XMTEMP W $J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",4),7,2)""~"
^DIPT(48,"F",11)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~22;R8~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(48,"F",12)="W $J($S('$D(X):.1,X=0:.1,1:X)/$P(%XMNORMAL,"","",5),4,2);X;Z;""W $J($S('$D(X):.1,X=0:.1,1:X)/$P(%XMNORMAL,"","",5),4,2)""~K %XMNORMAL;X;Z;""K %XMNORMAL""~"
^DIPT(48,"H")="TABBED STATISTICS"
^DIPT(49,0)="XMMGR-BKFILER-STATS/TABBED^2940211.1522^^4.2998^^^^"
^DIPT(49,"%D",0)="^^3^3^2931206^^"
^DIPT(49,"%D",1,0)="This template will produce a report just like the XMMGR-BKFILER-STATS-PLUS"
^DIPT(49,"%D",2,0)="template, except that the output is formated for capture into a file that"
^DIPT(49,"%D",3,0)="can then easily be converted into a graphical display."
^DIPT(49,"DXS",1,9.2)="S DIP(1)=$S($D(^XMBX(4.2998,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1)"
^DIPT(49,"DXS",2,9)="S Y=$P(X,U,21) W ""A""_$C(9)_$S(+%XMNORMAL=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/%XMNORMAL,4,2))"
^DIPT(49,"DXS",3,9)="W ""L""_$C(9)_$S(+$P(%XMNORMAL,"","",2)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",2),8,2))"
^DIPT(49,"DXS",4,9)="S Y=Y+XMTEMP W ""R""_$C(9)_$S(+$P(%XMNORMAL,"","",3)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",3),7,2))"
^DIPT(49,"DXS",5,9)="S Y=Y+XMTEMP W ""Q""_$C(9)_$S(+$P(%XMNORMAL,"","",4)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",4),7,2))"
^DIPT(49,"DXS",6,9)="W ""T""_$C(9)_$S(+$P(%XMNORMAL,"","",5)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",5),4,2))"
^DIPT(49,"F",1)="S DIP(1)=$S($D(^XMBX(4.2998,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;L12;Z;""DATE(#.01)""~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(49,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(#.01)""~"
^DIPT(49,"F",3)="S XMTEMP=$P(X,U,21) W $C(9);X;Z;""S XMTEMP=$P(X,U,21) W $C(9)""~"
^DIPT(49,"F",4)="S %XMNORMAL=$S($D(^XMB(1,1,120001)):^(120001),1:"""");X;Z;""S %XMNORMAL=$S($D(^XMB(1,1,120001)):^(120001),1:"""")""~38;L6~"
^DIPT(49,"F",5)="X DXS(2,9);X;Z;""S Y=$P(X,U,21) W ""A""_$C(9)_$S(+%XMNORMAL=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/%XMNORMAL,4,2))""~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~15;R6~"
^DIPT(49,"F",6)="X DXS(3,9);X;Z;""W ""L""_$C(9)_$S(+$P(%XMNORMAL,"","",2)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",2),8,2))""~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~"
^DIPT(49,"F",7)="44;R10~S XMTEMP=Y;X;Z;""S XMTEMP=Y""~45;R10~"
^DIPT(49,"F",8)="X DXS(4,9);X;Z;""S Y=Y+XMTEMP W ""R""_$C(9)_$S(+$P(%XMNORMAL,"","",3)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",3),7,2))""~"
^DIPT(49,"F",9)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~46;R10~S XMTEMP=Y;X;Z;""S XMTEMP=Y""~47;R10~"
^DIPT(49,"F",10)="X DXS(5,9);X;Z;""S Y=Y+XMTEMP W ""Q""_$C(9)_$S(+$P(%XMNORMAL,"","",4)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",4),7,2))""~"
^DIPT(49,"F",11)="S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~22;R8~"
^DIPT(49,"F",12)="X DXS(6,9);X;Z;""W ""T""_$C(9)_$S(+$P(%XMNORMAL,"","",5)=0:0,1:$J($S('$D(Y):.1,Y=0:.1,1:Y)/$P(%XMNORMAL,"","",5),4,2))""~K %XMNORMAL;X;Z;""K %XMNORMAL""~"
^DIPT(49,"H")="TABBED STATISTICS"
^DIPT(50,0)="XMMGR-BKFILER-TABBED-RT^2931017.1835^^4.2998^^^^"
^DIPT(50,"%D",0)="^^1^1^2931206^^"
^DIPT(50,"%D",1,0)="This template provides information about daily response time."
^DIPT(50,"F",2)=".01;X~S X=9,X=$C(X) W X K DIP;X;Z;""$C(9)""~22~"
^DIPT(50,"H")="MESSAGE DELIVERY STATS LIST"
^DIPT(51,0)="XMMGR-BKFILER-LONGTERM-STATS^2940506.141^^4.2998^^^^"
^DIPT(51,"%D",0)="^^1^1^3020717^"
^DIPT(51,"%D",1,0)="This template is used to output statistics of mail deliveries by month."
^DIPT(51,"DXS",1,9)="W:$S('$D(XMLAST):0,$P(X,U,11)-XMLAST>999999:0,$P(X,U,11)-XMLAST>0:1,1:0) $P(X,U,11)-XMLAST S XMLAST=$P(X,U,11)"
^DIPT(51,"F",2)=".01~43~X DXS(1,9);""New Messages"";Z;""W:$S('$D(XMLAST):0,$P(X,U,11)-XMLAST>999999:0,$P(X,U,11)-XMLAST>0:1,1:0) $P(X,U,11)-XMLAST S XMLAST=$P(X,U,11)""~"
^DIPT(51,"H")="MESSAGE & RESPONSE CREATION HISTORY"
^DIPT(52,0)="XTLK SHORT ALPHA^2901017.1327^^8984.2^^^^"
^DIPT(52,"F",2)=".01~.02~"
^DIPT(52,"H")="LOCAL SHORT CUT BY ALPHA"
^DIPT(53,0)="XTLK SHORT CODE^2901017.1332^^8984.2^^^^"
^DIPT(53,"F",2)=".03~.01~"
^DIPT(53,"H")="LOCAL SHORTCUT LIST BY CODES"
^DIPT(54,0)="XTLK SYNONYM ALPHA^2901017.1345^^8984.3^^^^"
^DIPT(54,"F",2)=".01;L25;S1~.02;L25~.03,.01;L25~"
^DIPT(54,"H")="SYNONYM LIST"
^DIPT(55,0)="XTLK KEYWORD ALPHA^2901017.131^^8984.1^^^^"
^DIPT(55,"F",2)=".01~.02~"
^DIPT(55,"H")="LOCAL KEYWORD BY ALPHA"
^DIPT(56,0)="XTLK KEYWORD CODES^2901017.1314^^8984.1^^^^"
^DIPT(56,"F",2)=".03~.01;C15~"
^DIPT(56,"H")="LOCAL KEYWORD BY CODES"
^DIPT(57,0)="XDR MERGED LIST^2910619.0924^^15^^^2971230^"
^DIPT(57,"%D",0)="^^2^2^2970513^^"
^DIPT(57,"%D",1,0)="This template prints a list of merged duplicates form the duplicate"
^DIPT(57,"%D",2,0)="record file."
^DIPT(57,"F",1)="""RECORD 1: "";S1;C1~.01;X~""RECORD 2: "";C40~.02;X~""STATUS: "";C3~.03;X~""MERGE DIRECTION: "";C40~.04;X~""MERGE STATUS: "";C3~.05;X~""DATE FOUND: "";C40~.06;X~"
^DIPT(57,"F",2)="""DATE VERIFIED: "";C3~.07;X~""DATE RESOLVED: "";C40~.08;X~""WHO CREATED: "";C3~.09;X~""WHO VERIFIED: "";C40~.11;X~""DC TOTAL POSSIBLE SCORE: "";C3~.15;X~"
^DIPT(57,"F",3)="""DC POTENTIAL DUPE THRESHOLD %: "";C40~.17;X~""DC DUPE MATCH SCORE: "";C3~.18;X~""DC DUPE MATCH PERCENTILE: "";C40~.19;X~""REMARKS: "";C3~1;X~"
^DIPT(57,"H")="DUPLICATE RECORD LIST"
^DIPT(58,0)="XUCS REPORT DATA^2931012^^8987.2^^^^1"
^DIPT(58,1,0)="^.41^8^8"
^DIPT(58,1,1,0)="8987.2^1^^^ALL^2931012^^1"
^DIPT(58,1,2,0)="8987.21^2^8987.2^3^^2931012^^1"
^DIPT(58,1,3,0)="8987.32^3^8987.21^3^^2931012^^1"
^DIPT(58,1,4,0)="8987.33^3^8987.21^3^^2931012^^1"
^DIPT(58,1,5,0)="8987.34^3^8987.21^3^^2931012^^1"
^DIPT(58,1,6,0)="8987.35^3^8987.21^3^^2931012^^1"
^DIPT(58,1,7,0)="8987.36^3^8987.21^3^^2931012^^1"
^DIPT(58,1,8,0)="8987.37^3^8987.21^3^^2931012^^1"
^DIPT(58,1,"B",8987.2,1)=""
^DIPT(58,1,"B",8987.21,2)=""
^DIPT(58,1,"B",8987.32,3)=""
^DIPT(58,1,"B",8987.33,4)=""
^DIPT(58,1,"B",8987.34,5)=""
^DIPT(58,1,"B",8987.35,6)=""
^DIPT(58,1,"B",8987.36,7)=""
^DIPT(58,1,"B",8987.37,8)=""
^DIPT(58,1,"B","8987.2.01",2)=""
^DIPT(58,1,"B","8987.2.12",3)=""
^DIPT(58,1,"B","8987.2.13",4)=""
^DIPT(58,1,"B","8987.2.14",5)=""
^DIPT(58,1,"B","8987.2.15",6)=""
^DIPT(58,1,"B","8987.2.16",7)=""
^DIPT(58,1,"B","8987.2.17",8)=""
^DIPT(58,"F",2)="S DIFGT=""XUCS REPORT DATA"",DIFGBFN=8987.2 D FG^DIFGB;X"
^DIPT(59,0)="FHNULST^2850412^^112^^^3020506^"
^DIPT(59,"%D",0)="^^1^1^2880516^"
^DIPT(59,"%D",1,0)="This template is used to print the nutrient data file."
^DIPT(59,"F",1)=".01~1;C62~4;""QUICK"";C69~2;""COMMON"";C75~3;""GM/UNIT"";C86;D1~4.2;C96;L30~4.4;""QUICK"";C127~"
^DIPT(59,"H")="FOOD NUTRIENTS"
^DIPT(60,0)="FHSFMENU^2850316^^118.1^^^3040128^"
^DIPT(60,"%D",0)="^^3^3^2880709^"
^DIPT(60,"%D",1,0)="This template lists all of the supplemental menus listed in"
^DIPT(60,"%D",2,0)="the Supplemental Feeding Menu file (118.1) along with the"
^DIPT(60,"%D",3,0)="associated data elements."
^DIPT(60,"F",1)=".01~1;C30~99;""INACT"";C42;R4~3;""D/T"";C49;L4~10.5;"""";R3;C56~10;""10AM FEEDING"";C60~14.5;"""";R3;C82~14;""2PM FEEDING"";C86~18.5;"""";R3;C108~18;""8PM FEEDING"";C112~11.5;"""";R3;C56~"
^DIPT(60,"F",2)="11;"""";C60~15.5;"""";R3;C82~15;"""";C86~19.5;"""";R3;C108~19;"""";C112~12.5;"""";R3;C56~12;"""";C60~16.5;"""";R3;C82~16;"""";C86~20.5;"""";R3;C108~20;"""";C112~"
^DIPT(60,"F",3)="13.5;"""";R3;C56~13;"""";C60~17.5;"""";R3;C82~17;"""";C86~21.5;"""";R3;C108~21;"""";C112~"
^DIPT(60,"H")="SUPPLEMENTAL FEEDING MENU LIST"
^DIPT(61,0)="FHSFLST^2901016.1004^^118^^^3040128^"
^DIPT(61,"%D",0)="^^3^3^2910507^^^"
^DIPT(61,"%D",1,0)="This template lists all of the supplemental feedings contained"
^DIPT(61,"%D",2,0)="in the Supplemental Feeding file (118) along with the associated"
^DIPT(61,"%D",3,0)="data elements."
^DIPT(61,"F",2)=".01~5;""LABEL"";C30~10;""BULK ONLY"";C40~7;""MED VEH"";C47~99;""INACT"";C53~20;C59;R5~11;""RECIPE"";C68~1,.01;C101~"
^DIPT(61,"H")="SUPPLEMENTAL FEEDINGS LIST"
^DIPT(62,0)="FHUMENU^2950313.1555^^112.6^^^3020506"
^DIPT(62,"%D",0)="^^3^3^2880717^^"
^DIPT(62,"%D",1,0)="This template will list all users who have created User Menus"
^DIPT(62,"%D",2,0)="along with the menu names they created, date of creation, and"
^DIPT(62,"%D",3,0)="type of units selected."
^DIPT(62,"F",2)=".8;L25~.7;""CREATED"";C28~.6;C42~.01;""USER MENU"";C51;L28~2;""REC MENU?"";C82~"
^DIPT(62,"H")="USER MENU LIST"
^DIPT(63,0)="FHTFLST^2920928.1349^^118.2^^^3041006^"
^DIPT(63,"%D",0)="^^2^2^2920929^^"
^DIPT(63,"%D",1,0)="This template lists all of the tubefeeding products in the"
^DIPT(63,"%D",2,0)="Tubefeeding file (118.2) along with its various data elements."
^DIPT(63,"F",2)=".01~1~2;R8~3~5;R5~99~11;""RECIPE"";L20~10,.01;C101~"
^DIPT(63,"H")="TUBEFEEDING LIST"
^DIPT(64,0)="FHORCON^2860813^^119.5^^^3031110^"
^DIPT(64,"%D",0)="^^3^3^2880709^"
^DIPT(64,"%D",1,0)="This template lists the consultation types contained in the"
^DIPT(64,"%D",2,0)="Dietetic Consults file (119.5) along with the associated"
^DIPT(64,"%D",3,0)="data elements."
^DIPT(64,"F",2)=".01~1;C52~2;""ASK"";C65~3;""IN-TU"";C71~4;""FU-TU"";C81~99;""INACT"";C90~5;""BULLETIN"";C100~"
^DIPT(64,"H")="DIETETIC CONSULTS LIST"
^DIPT(65,0)="FHORWRD^3071017.1215^^119.6^^^3071017"
^DIPT(65,"%D",0)="^^2^2^2880709^^"
^DIPT(65,"%D",1,0)="This template lists the responsible clinician for each ward"
^DIPT(65,"%D",2,0)="in the Dietetic Ward file (119.6)."
^DIPT(65,"F",1)=".01~112,.01;C60~"
^DIPT(65,"H")="NUTRITION LOCATION ASSIGNMENTS LIST"
^DIPT(66,0)="FHDIETL^2870120^^111^^^3041116^"
^DIPT(66,"%D",0)="^^1^1^2950717^^"
^DIPT(66,"%D",1,0)="This template is used to print a basic diet list."
^DIPT(66,"F",2)=".01~1;C32~3;""DIET PREC"";C46~6;""ABBREV LABEL"";C52~4;""PROD DIET"";C66;L12~2;""ASK EXP"";C80~5;""MAIL"";C86~99;""INACT"";C92~10,.01;C100~"
^DIPT(66,"H")="DIETS LIST"
^DIPT(67,0)="FHISLST^2860813^^119.4^^^3041006^"
^DIPT(67,"%D",0)="^^3^3^2880709^^"
^DIPT(67,"%D",1,0)="This template lists all of the isolation types listed in"
^DIPT(67,"%D",2,0)="the Isolation/Precaution Type file (119.4) along with the"
^DIPT(67,"%D",3,0)="associated data elements."
^DIPT(67,"F",2)=".01~1~2~99;""INACTIVE""~"
^DIPT(67,"H")="ISOLATION TYPE LIST"
^DIPT(68,0)="FHPROD^2881202^^116.2^^^3040407^"
^DIPT(68,"%D",0)="^^3^3^2880709^"
^DIPT(68,"%D",1,0)="This template lists the production diets contained in the"
^DIPT(68,"%D",2,0)="Production Diet file (116.2) along with the associated"
^DIPT(68,"%D",3,0)="data elements."
^DIPT(68,"F",1)="8;""TALLY ORDER"";R4~1;""CODE"";R3;C8~.01;""DIET"";L30;C14~99;""INACT"";C47~3;""REV"";R3;C55~7;R4;C61~7.5;""DAILY MENU"";R4;C68~10;""COMBO"";R4;C75~"
^DIPT(68,"F",2)="11,.01;""TALLIED PROD. DIETS"";L30;C82~"
^DIPT(68,"H")="PRODUCTION DIET LIST"
^DIPT(69,0)="FHPSTO^2861208^^113.1^^^3001107^"
^DIPT(69,"%D",0)="^^3^3^2880709^"
^DIPT(69,"%D",1,0)="This template lists all of the storage locations contained"
^DIPT(69,"%D",2,0)="in the Storage Location file (113.1) along with the"
^DIPT(69,"%D",3,0)="associated data elements."
^DIPT(69,"F",2)=".01~1;C20~2;C30~"
^DIPT(69,"H")="STORAGE LOCATION LIST"
^DIPT(70,0)="FHRECC^2950428.1057^^114.1^^^3040407"
^DIPT(70,"%D",0)="^^3^3^2930119^^"
^DIPT(70,"%D",1,0)="This template lists the recipe categories contained in the"
^DIPT(70,"%D",2,0)="Recipe Category file (114.1) along with the associated"
^DIPT(70,"%D",3,0)="data elements."
^DIPT(70,"F",2)=".01~1;C20~2;""PRINT ORDER"";C30~99;C45~"
^DIPT(70,"H")="RECIPE CATEGORY LIST"
^DIPT(71,0)="FHPROP^2880407^^114.2^^^3010423^"
^DIPT(71,"%D",0)="^^3^3^2880709^"
^DIPT(71,"%D",1,0)="This template lists the preparation areas contained in the"
^DIPT(71,"%D",2,0)="Preparation Area file (114.2) along with the associated"
^DIPT(71,"%D",3,0)="data elements."
^DIPT(71,"F",2)=".01~1;C20~2;C30~"
^DIPT(71,"H")="PREPARATION AREA LIST"
^DIPT(72,0)="FHSYP1^2900123.1544^^119.9^^^3040211^"
^DIPT(72,"%D",0)="^^2^2^2900317^"
^DIPT(72,"%D",1,0)="This template is used to list the laboratory tests selected as"
^DIPT(72,"%D",2,0)="those of interest to dietetics."
^DIPT(72,"F",2)="80,.01~80,1;C40;""""~80,4;C47~80,2;C54;""PRINT ON ASSESS""~80,3;C62;""PRINT ON SCREEN""~80,5;C70~"
^DIPT(72,"H")="FH SITE PARAMETERS LIST"
^DIPT(73,0)="FHSYP2^3070719.1335^^119.9^^^3070725"
^DIPT(73,"%D",0)="^^2^2^2900317^"
^DIPT(73,"%D",1,0)="This template is used to list the drugs contained in a set of"
^DIPT(73,"%D",2,0)="drug classifications selected as those of interest to dietetics."
^DIPT(73,"DXS",1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^FH(119.9,D0,""P"",D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^PS(50.605,+D0,0)) D0=-1 S DIP(101)=$S($D(^PS(50.605,D0,0)):^(0),1:"""")"
^DIPT(73,"F",1)="85,.01;""DRUG CLASS""~85,X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;C9;""TITLE"";Z;""DRUG CLASSIFICATIONS:CLASSIFICATION""~85,5;C51~"
^DIPT(73,"F",2)="85,3;C58;""PRINT ON ASSESS""~85,4;C66;""PRINT ON SCREEN PROFILE""~85,6;C75;""ALERT?""~"
^DIPT(73,"H")="FH SITE PARAMETERS LIST"
^DIPT(74,0)="FHSELIST^2940726.1218^@^115.2^^@^3041123"
^DIPT(74,"%D",0)="^^2^2^2880901^"
^DIPT(74,"%D",1,0)="This template is used to list the patient preference items"
^DIPT(74,"%D",2,0)="contained in the Patient Preferences file (115.2)."
^DIPT(74,"F",2)=".01;S1~1;""TYPE"";L3;C32~99;""INA"";C38~20;""DEF"";L3;C43~21;""MEAL"";L3;C48~3;""RECIPE"";C54~10,.01;""EXCLUDED RECIPES"";C54~"
^DIPT(74,"H")="PATIENT PREFERENCES LIST"
^DIPT(75,0)="LRBLTX^2850813^^65^^^^"
^DIPT(75,"F",1)=".01;C1;L12;""""~.04;C13;L40;""""~4.2;C54;L20;""DISPOSITION DATE""~6.1;C1;L30;""PATIENT TRANSFUSED""~6.15;C32;L3;""""~6.16;C36;L8;""""~"
^DIPT(75,"H")="TRANSFUSED UNITS"
^DIPT(76,0)="LR LAB SECTION LIST BY NAME^2860416^^62.2^^^^"
^DIPT(76,"F",2)=".01;C10~3;C45~"
^DIPT(76,"H")="WKLD SECTION LIST BY NAME"
^DIPT(77,0)="LR LAB SECTION LIST BY ABBREV^2860416^^62.2^^^^"
^DIPT(77,"F",2)="3;C10~.01;C35~"
^DIPT(77,"H")="WKLD SECTION LIST BY CODE"
^DIPT(78,0)="LR LAB SUBSECTION BY SECTION^2860416^^62.2^^^^"
^DIPT(78,"F",2)=".01;S1;C5~4,.01;C11~"
^DIPT(78,"H")="WKLD SUBSECTION BY WKLD SECTION"
^DIPT(79,0)="LR LAB SUBSECTION LIST^2860416^^62.2^^^^"
^DIPT(79,"F",2)="3;S1;C5~4,.01;C20~.01;C50~"
^DIPT(79,"H")="WKLD SUB-SECTION LIST"
^DIPT(80,0)="LR TEST DICTIONARY^2860416^^60^^^^"
^DIPT(80,"F",2)=".01~2,.01~1~6,.01~6,1~500,.01~500,1~"
^DIPT(80,"H")="LABORATORY TEST LIST"
^DIPT(81,0)="LRUCNG^2900716.1027^^69.2^^^^"
^DIPT(81,"F",1)="999,.01;S2;C1;L19;""""~999,.06;C20;L20~999,.07;C41;L29~999,.08;C71;L9;""Entry #""~999,.03;C1;L19;""DATA ELEMENT""~999,.04;C21;L19~999,.05;C41;L19~"
^DIPT(81,"F",2)="999,.02;C61;L18;""PERSON CHANGING""~999,1,.01;C1;L30~999,1,.02;C32;L30~999,1,.03;C64;L9;""Subfile #""~"
^DIPT(81,"H")="DATA CHANGES"
^DIPT(82,0)="LR ACC INFO^2860709^^68^^^^"
^DIPT(82,"F",2)=".08;C1;S1~.01;C6~.09;C40~.05;C50~"
^DIPT(82,"H")="ACCESSION LIST"
^DIPT(83,0)="LR ACCESSION^2860709^^68^^^^"
^DIPT(83,"F",2)=".08;C1;S1~.01;C10~.09;C40~.05;C50~"
^DIPT(83,"H")="@"
^DIPT(84,0)="LR ACCESSION INFO^2860709^^68^^^^"
^DIPT(84,"F",2)=".08;C1;S1~.01;C10~.09;C40~.05;C50~"
^DIPT(84,"H")="ACCESSION LIST"
^DIPT(85,0)="LR FILE 68^2860709^^68^^^^"
^DIPT(85,"F",2)=".08;C1;S1~.01;C10~.09;C40~.05;C50~"
^DIPT(85,"H")="ACCESSION LIST"
^DIPT(86,0)="LRBLITR^2861010^^65^^^^"
^DIPT(86,"F",2)="6.1~.04~4.2~.01~"
^DIPT(86,"H")="PATIENTS TRANSFUSED"
^DIPT(87,0)="LRBLDPD^2861120^^65.5^^^^"
^DIPT(87,"F",2)=".01~.03~0~"
^DIPT(87,"H")="PERMANENT DONOR DEFERRAL LIST"
^DIPT(88,0)="LRBLD SCHEDULING^2870117^^65.5^^^^"
^DIPT(88,"F",2)="5,.13;C1;L18;""ARRIVAL/APPT TIME""~5,1;C20;L12;""DON/DEF""~5,1.1;C34;L12;""DON. TYPE""~5,5;C48;L20;""PATIENT CREDIT""~"
^DIPT(88,"H")="DONOR SCHEDULING REPORT"
^DIPT(89,0)="LRBLD GALLON^2870122^^65.5^^^^"
^DIPT(89,"F",2)=".01;C1;L30;""DONOR""~.07;C35;R11;""TOTAL UNITS""~2,.02;C48;L31;""GROUP AFFILIATION""~"
^DIPT(89,"H")="GALLON DONORS"
^DIPT(90,0)="LR ANTIGEN/ANTIBODY LISTING^2871214^^61.3^^^^"
^DIPT(90,"F",2)=".01;C1;L20;""NAME""~2;C22;L5;""CODE""~3,.01;C29;L50;""SYNONYM""~4;C81;L25;""IDENTIFIER""~"
^DIPT(90,"H")="SNOMED NOMENCLATURE FOR BLOOD GROUP ANTIBODIES"
^DIPT(91,0)="LRBL DESCRIPTIONS^2870601^^62.5^^^^"
^DIPT(91,"F",2)=".01;C1;L10;""NAME""~1;C12;L50;""EXPANSION""~.5;C64;L16;""SYNONYM""~"
^DIPT(91,"H")="BLOOD BANK DESCRIPTIONS SEARCH OF FILE #62.5"
^DIPT(92,0)="LRBLINV^3001115.1148^^65^^^3001209^"
^DIPT(92,"DCL","65^.1")="+"
^DIPT(92,"F",1)=".04;C1;L9;""Component""~.03;C11;L10;""Invoice#""~S Y=$P(X,U,5)\1 W ?22 D DT;""DATE RCD"";Z;""S Y=$P(X,U,5)\1 W ?22 D DT""~.01;C36;L13;""Unit ID""~"
^DIPT(92,"F",2)="S Y=$P(X,U,6)\1 W ?50 D DT;""Exp date"";Z;""S Y=$P(X,U,6)\1 W ?50 D DT""~.07;C62;R3;""ABO""~.08;C66;L3;""Rh""~.1;C70;R6;""Cost""~4.1;C78;L1;""D""~"
^DIPT(92,"H")="Blood Inventory List"
^DIPT(92,"SUB")="1"
^DIPT(93,0)="LRBLDP^2851106^^65^^^^"
^DIPT(93,"DXS",1,9)="I $D(^LRD(65,D0,2)),$P(^(2,0),U,4) W !,""Pt match/assigned"",?21,""Blood sample date"",?44,""Result"",?51,""Service"",?62,""Physician"""
^DIPT(93,"DXS",2,9)="I $D(^LRD(65,D0,3)) W:IOM>80 ! W ?1,""Relocation date"",?21,""Inspection"",?32,""Location"",?51,""Tech"",?57,""Messenger"""
^DIPT(93,"DXS",3,9)="I $D(^LRD(65,D0,999)) W:IOM>80 ! W ?1,""Data change date"",?20,""Change made by"",?50,""Data element"",!,""Old Value"",?32,""New value"""
^DIPT(93,"F",1)=".01;C1;L11;""Donor ID""~.04;C13;L19;""Component""~.02;C33;L20;""Source""~.05;C54;L19;""Date/time rec'd""~.1;C74;R6;""Cost""~.09;C1;L11;""Log-in tech""~"
^DIPT(93,"F",2)=".07;C15;R3;""ABO""~.08;C19;L3;""Rh""~.06;C33;L19;""Expiration date""~.11;C57;R6;""Vol(ml)""~.12;C74;R6;""Typing""~4.1;C1;L21;""Disposition""~"
^DIPT(93,"F",3)="4.2;C33;L19;""Disposition date""~4.3;C54;L25;""Entering person""~9,0;C1;R2;""""~9,.01;C4;L30;""""~9,.02;C35;L12;""""~5,.01;C1;L78;""""~"
^DIPT(93,"F",4)="I $D(^LRD(65,D0,4)),$P(^(4),U,1)=""T"" W:IOM>80 ! W ?1,""Patient transfused"",?30,""Physician"",?53,""Service"";"""";Z;""I $D(^LRD(65,D0,4)),$P(^(4),U,1)=""T"" W:IOM>80 ! W ?1,""Patient transfused"",?30,""Physician"",?53,""Service""""~"
^DIPT(93,"F",5)="6.1;C1;L28;""""~6.2;C31;L24;""""~6.3;C54;L24;""""~"
^DIPT(93,"F",6)="I $D(^LRD(65,D0,7)) W:IOM>80 ! W ?1,""Tansfusion complications"";"""";Z;""I $D(^LRD(65,D0,7)) W:IOM>80 ! W ?1,""Tansfusion complications""""~7,.01;C1;L78;""""~"
^DIPT(93,"F",7)="X DXS(1,9);"""";Z;""I $D(^LRD(65,D0,2)),$P(^(2,0),U,4) W !,""Pt match/assigned"",?21,""Blood sample date"",?44,""Result"",?51,""Service"",?62,""Physician""""~"
^DIPT(93,"F",8)="2,.01;C1;L20;""""~2,1,.01;C22;L19;""""~2,1,.04;C45;L6;""""~2,1,.02;C52;L9;""""~2,1,.03;C63;L16;""""~"
^DIPT(93,"F",9)="X DXS(2,9);"""";Z;""I $D(^LRD(65,D0,3)) W:IOM>80 ! W ?1,""Relocation date"",?21,""Inspection"",?32,""Location"",?51,""Tech"",?57,""Messenger""""~3,.01;C1;L19;""""~"
^DIPT(93,"F",10)="3,.02;C22;L10;""""~3,.04;C33;L19;""""~3,.03;C52;L4;""""~3,.05;C58;L20;""""~"
^DIPT(93,"F",11)="X DXS(3,9);"""";Z;""I $D(^LRD(65,D0,999)) W:IOM>80 ! W ?1,""Data change date"",?20,""Change made by"",?50,""Data element"",!,""Old Value"",?32,""New value""""~"
^DIPT(93,"F",12)="999,.01;C1;L19;""""~999,.02;C20;L29;""""~999,.03;C50;L29;""""~999,.04;C1;L30;""""~999,.05;C32;L30;""""~W ! F B=3:1:IOM W ""="";"""";Z;""W ! F B=3:1:IOM W ""=""""~"
^DIPT(93,"H")="History of donor units"
^DIPT(94,0)="LRBLDSP^3001115.1159^^65^^^3001209^"
^DIPT(94,"F",1)=".01;C1;L13;""Donor ID""~.04;C15;L17;""Component""~.02;C33;L9;""Source""~.03;C43;R10;""Invoice#""~.05;C54;L19;""Date/time rec'd""~.1;C74;R6;""Cost""~"
^DIPT(94,"F",2)=".09;C1;L11;""Log-in tech""~.07;C15;R3;""ABO""~.08;C19;L3;""Rh""~.06;C33;L19;""Expiration date""~.11;C57;R6;""Vol(ml)""~.12;C74;R6;""Typing""~70,.01~"
^DIPT(94,"F",3)="W ! F B=2:1:IOM W ""="";"""";Z;""W ! F B=2:1:IOM W ""=""""~"
^DIPT(94,"H")="Inventory list"
^DIPT(94,"SUB")="1"
^DIPT(95,0)="LRBL PATIENT CREDIT^2850825^^65.5^^^^"
^DIPT(95,"F",1)="5,5;C1;L20;""PATIENT""~.01;C22;L20;""DONOR""~5,.01;C45;L15;""DONATION DATE""~"
^DIPT(95,"H")="PATIENT CREDIT LIST"
^DIPT(96,0)="LRBL EMERGENCY DONORS^2850712^^65.5^^^^"
^DIPT(96,"F",1)=".01;C1;L20;""DONOR""~.05;C22;L3;""ABO""~.06;26;L3;""RH""~1.7;C31;L9;""HOME""~1.8;C42;L10;""WORK""~5,.01;C54;L12;""LAST DATE""~5,1;C68;L12;""DONATION""~"
^DIPT(96,"H")="EMERGENCY DONOR LIST"
^DIPT(97,0)="LRBL MONTHLY RECALL LIST^2860506^^65.5^^^^"
^DIPT(97,"F",2)=".01;C1;L20;""DONOR""~1.7;C22;R12~1.8;C35;R12~.05;C48;R3;""ABO""~.06;C52;L3;""RH""~5,.01;C58;L12;""LAST DATE""~5,1;C72;L8;""DONATION""~"
^DIPT(97,"H")="MONTHLY RECALL LIST"
^DIPT(98,0)="LRBL DEFERRAL REPORT^2860127^^65.5^^^^"
^DIPT(98,"F",1)="5,.02;C1;L8;""SITE""~5,.01;C11;L18;""DEFERRAL DATE""~5,.03;C31;L12;""DONATION GRP""~.01;C45;L20;""DONOR""~5,2,.01;C67;L13;""REASON""~"
^DIPT(98,"H")="DEFERRAL REPORT"
^DIPT(99,0)="LRBL APHERESIS DONORS^2850715^^65.5^^^^"
^DIPT(99,"F",1)=".01;C1;L20;""DONOR""~1.7;C22;L10~1.8;C34;L12~5,.01;C48;L10;""DATE""~5,1;C60;L10;""DONATION""~5,2,.01;C72;L8;""DEFERRAL""~"
^DIPT(99,"H")="APHERESIS DONORS"
^DIPT(100,0)="LRBL FIRST TIME DONORS^2910228.0914^^65.5^^^^"
^DIPT(100,"F",2)=".01;C1;L20;""DONOR""~1.8;C22;L11;""WORK PHONE""~5,.01;C34;L10;""DATE""~5,1;C46;L14;""DONATION""~5,.02;C62;L6;""SITE""~5,.03;C69;L5;""GROUP""~5,2,.01;C75;L4;""DEF""~"
^DIPT(100,"H")="FIRST TIME DONORS"
^DIPT(101,0)="LRBL MOBILE REPORT^2870801^^65.5^^^^"
^DIPT(101,"F",2)=".01;C1;L30;""DONOR""~5,.01;C32;L10;""DATE""~5,1;C44;L14;""DONATION""~5,2,.01;C60;L19;""DEFERRAL REASON""~"
^DIPT(101,"H")="MOBILE REPORT"
^DIPT(102,0)="LRBL EX-DONOR REPORT^2850716^^65.5^^^^"
^DIPT(102,"F",1)=".01;C1;L20;""DONOR""~2,.01;C22;L10;""GROUP""~5,.01;C34;L10;""LAST DONATION""~"
^DIPT(102,"H")="EX-DONOR REPORT"
^DIPT(103,0)="LRBL SHORT DRAW REPORT^2850717^^65.5^^^^"
^DIPT(103,"F",1)="5,4;C1;L10;""UNIT #""~5,4.7;C12;L3;""VOL""~5,3;C17;L8;""REACTION""~5,6;C27;L5;""PHLEB""~5,.01;C34;L10;""DATE""~5,.02;C46;L8;""SITE""~"
^DIPT(103,"H")="SHORT DRAW REPORT"
^DIPT(104,0)="LRBL GROUP DONATION REPORT^2860130^^65.5^^^^"
^DIPT(104,"F",1)=".01;C1;L20;""DONOR""~.05;C22;L3;""ABO""~.06;C26;L3;""RH""~5,.01;C31;L12;""DATE""~5,1;C45;L12;""DONATE/DEFER""~5,3;C59;L8;""REACTION""~5,2,.01;C70;L9;""DEFERRAL""~"
^DIPT(104,"H")="GROUP DONATION REPORT"
^DIPT(105,0)="LRBL ISSUES TO SURGERY^2850828^^65^^^^"
^DIPT(105,"DCL","65.03^.01")="!"
^DIPT(105,"F",1)="3,.01;C1;L20"";""DATE ISSUED""~.01;C22;L14;""DONOR ID""~3,.04;C38;L16;""LOCATION @ DISP.""~4.2;C56;L20;""DISPOSITION DATE""~"
^DIPT(105,"H")="ISSUES TO SURGERY"
^DIPT(106,0)="LRBL DISPOSITION TOTALS^2850828^^65^^^^"
^DIPT(106,"DCL","65^.04")="!"
^DIPT(106,"F",1)="0;C1;L3;""#""~.04;C5;L15~4.1;C22;L11;""DISPOSITION""~4.2;C35;L12;""DISPO. DATE""~6.1;C49;L20;""PATIENT TRANSFUSED""~5,.01;C71;L5;""""~4.3;C77;L3;""BY""~"
^DIPT(106,"H")="DISPOSITION TOTALS"
^DIPT(107,0)="LRBL WASTAGE REPORT^2850830^^65^^^^"
^DIPT(107,"F",1)=".01;C1;L10~.04;C12;L15;""COMPONENT""~4.1;C29;L11;""DISPOSITION""~4.2;C42;L15;""DISP. DATE""~5,.01;C59;L12;""COMMENT""~4.3;C73;L7;""ENT. BY""~"
^DIPT(107,"H")="BLOOD WASTAGE REPORT"
^DIPT(108,0)="LRBL DONOR TESTING REPORT^2881218^^65.5^^^^"
^DIPT(108,"DXS",1,9)="X DXS(1,9.2) S D0=$P(DIP(1),U,6) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(108,"DXS",1,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^LRE(D0,5,D1,66,D2,0)):^(0),1:"""")"
^DIPT(108,"DXS",2,9)="X DXS(2,9.2) S D0=$P(DIP(1),U,7) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(108,"DXS",2,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^LRE(D0,5,D1,66,D2,0)):^(0),1:"""")"
^DIPT(108,"DXS",3,0)="NO"
^DIPT(108,"DXS",3,1)="YES"
^DIPT(108,"DXS",4,"A")="A"
^DIPT(108,"DXS",4,"AB")="AB"
^DIPT(108,"DXS",4,"B")="B"
^DIPT(108,"DXS",4,"O")="O"
^DIPT(108,"DXS",5,"NEG")="NEG"
^DIPT(108,"DXS",5,"POS")="POS"
^DIPT(108,"DXS",6,"A")="A"
^DIPT(108,"DXS",6,"AB")="AB"
^DIPT(108,"DXS",6,"B")="B"
^DIPT(108,"DXS",6,"ND")="NOT"
^DIPT(108,"DXS",6,"O")="O"
^DIPT(108,"DXS",7,"ND")="NOT"
^DIPT(108,"DXS",7,"NEG")="NEG"
^DIPT(108,"DXS",7,"POS")="POS"
^DIPT(108,"DXS",8,0)="NEG"
^DIPT(108,"DXS",8,1)="POS"
^DIPT(108,"DXS",8,"ND")="NOT"
^DIPT(108,"DXS",9,0)="NEG"
^DIPT(108,"DXS",9,1)="REA"
^DIPT(108,"DXS",9,"ND")="NOT"
^DIPT(108,"DXS",10,0)="NEG"
^DIPT(108,"DXS",10,1)="REA"
^DIPT(108,"DXS",10,"ND")="NOT"
^DIPT(108,"DXS",11,0)="NEG"
^DIPT(108,"DXS",11,1)="REA"
^DIPT(108,"DXS",11,"ND")="NOT"
^DIPT(108,"DXS",12,0)="NEG"
^DIPT(108,"DXS",12,1)="REA"
^DIPT(108,"DXS",12,"ND")="NOT"
^DIPT(108,"DXS",13,0)="PREPARE C"
^DIPT(108,"DXS",13,1)="QUARANTIN"
^DIPT(108,"DXS",13,2)="DISCARD C"
^DIPT(108,"DXS",14,0)="RELEASE"
^DIPT(108,"DXS",14,1)="QUARANT"
^DIPT(108,"DXS",14,2)="DISCARD"
^DIPT(108,"F",1)="5,.01;C1;L13;""DONATION DATE""~5,4;C15;L10;""UNIT #""~0;C27;R5;""DONOR""~.1;C34;L4;""PDef""~.05;C40;R2;""PR""~.06;C43;L3;""REC""~5,10;C48;R3;""ABO""~5,11;C52;L3;""Rh""~"
^DIPT(108,"F",2)="5,15;C56;L3;""AbS""~5,12;C60;L3;""RPR""~5,13;C64;L3;""Hep""~5,14;C68;L3;""HIV""~5,18;C72;L3;""HT1""~5,6.1;C77;L9;""COLL.DISP""~5,66,.01;C87;L15;""COMPONENT""~"
^DIPT(108,"F",3)="5,66,.08;C104;L7;""DISPO.""~5,66,.04;C112;L12;""EXPIRATION DATE""~5,66,X DXS(1,9) W X K DIP;C125;L3;""LTc"";Z;""TECH LABELING:INITIAL""~"
^DIPT(108,"F",4)="5,66,X DXS(2,9) W X K DIP;C129;L3;""VTc"";Z;""DISPOSITION TECH:INITIAL""~"
^DIPT(108,"H")="BLOOD DONOR LIST"
^DIPT(108,"IOM")="132"
^DIPT(108,"LAST")=""
^DIPT(108,"ROU")="^LRBLDPT"
^DIPT(108,"ROUOLD")="LRBLDPT"
^DIPT(109,0)="LRBL COLLECTION DISP RPT^2860114^^65.5^^^^"
^DIPT(109,"F",1)="5,.01;C1;L13;""DONATION DATE""~5,4;C15;L11;""UNIT #""~5,.02;C28;L6;""SITE""~5,4.2;C36;L18;""STARTED""~5,4.3;C56;L18;""COMPLETED""~5,4.7;C76;R4;""VOL""~"
^DIPT(109,"F",2)="5,3;C81;L8;""REACTION""~5,6;C91;L5;""PHLEB""~5,6.1;C98;L11;""DISPOSITION""~5,6.2,.01;C112;L20;""COMMENTS""~"
^DIPT(109,"H")="COLLECTION DISPOSITION REPORT"
^DIPT(110,0)="LRBL PRODUCT REJECTION REPORT^2860114^^65.5^^^^"
^DIPT(110,"F",1)="5,4;C1;L12;S2;""UNIT #""~5,4.2;C14;L18;""COLLECTION TIME""~5,4.7;C33;R4;""VOL""~5,4.4;C38;L18;""COMP PREPARATION""~5,4.8;C58;L4;""TECH""~5,66,.01;C64;L15;""COMPONENT""~"
^DIPT(110,"F",2)="5,66,.03;C81;L18;""STORED""~5,66,.05;C101;R4;""N.Wt""~5,66,.08;C107;L25;""COMPONENT DISPOSITION""~5,4.3;C14;L20;""""~5,66,1,.01;C107;L25;""""~"
^DIPT(110,"H")="PRODUCT REJECTION REPORT"
^DIPT(111,0)="LRBL GROUP AFFILIATION REPORT^2860130^^65.5^^^^"
^DIPT(111,"F",1)=".01;C1;L20;""DONOR""~.05;C22;L3;""ABO""~.06;C26;L3;""RH""~5,.01;C31;L12;""DATE""~5,1;C45;L12;""DONATE/DEFER""~5,3;C59;L8;""REACTION""~5,2,.01;C70;L9;""DEFERRAL""~"
^DIPT(111,"H")="GROUP AFFILIATION REPORT"
^DIPT(112,0)="LRBL DONOR TESTING SUPPLEMENT^2960322.1429^^65.5^^^2960702"
^DIPT(112,"DXS",1,9)="X DXS(1,9.2) S D0=$P(DIP(1),U,6) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(112,"DXS",1,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^LRE(D0,5,D1,66,D2,0)):^(0),1:"""")"
^DIPT(112,"DXS",2,9)="X DXS(2,9.2) S D0=$P(DIP(1),U,7) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(112,"DXS",2,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^LRE(D0,5,D1,66,D2,0)):^(0),1:"""")"
^DIPT(112,"DXS",3,0)="NO"
^DIPT(112,"DXS",3,1)="YES"
^DIPT(112,"DXS",4,"A")="A"
^DIPT(112,"DXS",4,"AB")="AB"
^DIPT(112,"DXS",4,"B")="B"
^DIPT(112,"DXS",4,"O")="O"
^DIPT(112,"DXS",5,"NEG")="NEG"
^DIPT(112,"DXS",5,"POS")="POS"
^DIPT(112,"DXS",6,0)="NEGAT"
^DIPT(112,"DXS",6,1)="REACT"
^DIPT(112,"DXS",6,"ND")="NOT D"
^DIPT(112,"DXS",7,0)="NOT E"
^DIPT(112,"DXS",7,1)="ELEVA"
^DIPT(112,"DXS",7,"ND")="NOT D"
^DIPT(112,"DXS",8,0)="NEGATI"
^DIPT(112,"DXS",8,1)="REACTI"
^DIPT(112,"DXS",8,"ND")="NOT DO"
^DIPT(112,"DXS",9,0)="NEGATI"
^DIPT(112,"DXS",9,1)="REACTI"
^DIPT(112,"DXS",9,"ND")="NOT DO"
^DIPT(112,"DXS",10,0)="PREPARE C"
^DIPT(112,"DXS",10,1)="QUARANTIN"
^DIPT(112,"DXS",10,2)="DISCARD C"
^DIPT(112,"DXS",11,0)="RELEASE"
^DIPT(112,"DXS",11,1)="QUARANT"
^DIPT(112,"DXS",11,2)="DISCARD"
^DIPT(112,"F",1)="5,.01;C1;L13;""DONATION DATE""~5,4;C15;L10;""UNIT #""~0;C27;R5;""DONOR""~.1;C34;L4;""PDef""~.05;C40;R2;""PR""~.06;C43;L3;""REC""~5,16;C47;L5;""HBcAb""~"
^DIPT(112,"F",2)="5,17;C54;L5;""ALT""~5,19;C61;L6;""HCV Ab""~5,20;C69;L6;""HIV Ag""~5,6.1;C78;L9;""COLL.DISP""~5,66,.01;C88;L15;""COMPONENT""~5,66,.08;C105;L7;""DISPO.""~"
^DIPT(112,"F",3)="5,66,.04;C113;L11;""EXPIRATION DATE""~5,66,X DXS(1,9) W X K DIP;C125;L3;""LTc"";Z;""TECH LABELING:INITIAL""~"
^DIPT(112,"F",4)="5,66,X DXS(2,9) W X K DIP;C129;L3;""VTc"";Z;""DISPOSITION TECH:INITIAL""~"
^DIPT(112,"H")="BLOOD DONOR SUPPLEMENT"
^DIPT(112,"IOM")="132"
^DIPT(112,"LAST")=""
^DIPT(112,"ROU")="^LRBLDPK"
^DIPT(112,"ROUOLD")="LRBLDPK"
^DIPT(113,0)="LRBL ANTIBODIES^2891201.0754^^61.3^^^^"
^DIPT(113,"F",2)=".01;C1;L20;""ANTIBODY""~2;C22;L5;""CODE""~.06;C29;L6;""% COMP""~7,.01;C3~"
^DIPT(113,"H")="ANTIBODIES"
^DIPT(114,0)="LRINTEG VERSION COMPARE PRINT^2881209^^69.91^^^^"
^DIPT(114,"F",2)=".01~1,1~1,2~1,3~"
^DIPT(114,"H")="LR INTEGRITY CHECKER VERSION COMPARE LIST"
^DIPT(115,0)="LRBL CAP CODES^2901022.0756^^66^^^^"
^DIPT(115,"F",2)=".01;C1;L30;""PRODUCT""~"
^DIPT(115,"H")="BLOOD PRODUCT CAP CODES"
^DIPT(116,0)="LR WKLD CODE LIST BY WKLD CODE^2911127.1217^^64^^^^"
^DIPT(116,"F",2)="1~.01~2~6~13~8~16~"
^DIPT(116,"H")="WKLD CODE LIST BY WKLD CODE"
^DIPT(117,0)="LR WKLD CODE LIST BY NAME^2890919.1625^^64^^^^"
^DIPT(117,"F",2)=".01~2~6~"
^DIPT(117,"H")="WKLD CODE LIST BY NAME"
^DIPT(118,0)="LRBL WKLD CODES^2901022.0756^^66^^^^"
^DIPT(118,"F",2)=".01;C1;L30;""PRODUCT""~"
^DIPT(118,"H")="BLOOD PRODUCT WKLD CODES"
^DIPT(119,0)="LRBLAG WKLD CODES^2901017.1516^^61.3^^^^"
^DIPT(119,"F",2)=".01;C1;L8;""ANTIGEN""~500,.01;C10;L60;""WKLD CODE""~500,1;C71;L9;""""~"
^DIPT(119,"H")="WKLD CODES"
^DIPT(120,0)="LR WKLD SUFFIX BY LAB SECTION^2910725.1401^^64.2^^^^"
^DIPT(120,"F",2)="1~.01~11~"
^DIPT(120,"H")="WKLD SUFFIX CODES LIST"
^DIPT(121,0)="LR WKLD CODE BY SECTION^2920522.1136^^64^^^^"
^DIPT(121,"F",2)="0~1~.01~"
^DIPT(121,"H")="WKLD CODE BY SECTION LIST"
^DIPT(122,0)="LR WKLD SUFFIX BY MANUFACTURE^2921002.1501^^64.2^^^^"
^DIPT(122,"F",2)=".01~11~1~"
^DIPT(122,"H")="WKLD SUFFIX CODES LIST"
^DIPT(123,0)="LRSP^2831107^^63^^^^"
^DIPT(123,"F",1)=".03;C1;L28;""Patient""~"""";S1~8,""S"";C1;L1;""""~8,.06;C2;L4;""Surg""~8,.01;C7;L21;""Date""~8,10,.01;C33;L16;""Organ/Tissue""~8,10,2;C50;L6;""Wgt(g)""~"
^DIPT(123,"F",2)="8,10,4,.01;C57;L23;""Diagnosis""~8,10,3,.01;C37;L20;""Disease""~8,10,4,1,.01;C60;L19;""Etiology""~8,.99,.01;C1;""""~"""";S1~9,""C"";C1;L1;""""~9,.06;C2;L4;""Cyto""~"
^DIPT(123,"F",3)="9,.01;C7;L21;""Date/Time""~9,.05;C33;L22;""Specimen Type""~9,1;C56;L23;""Cytology Diagnosis""~9,.99;C1;L79;""""~"
^DIPT(123,"H")="Anatomic Pathology Cumulative Patient Report"
^DIPT(124,0)="LRAUTOINST^2840503^^62.4^^^^"
^DIPT(124,"F",1)="0;""#"";R3~.01;""LAB INSTRUMENT"";L10~3;L15~2;L8~5;L8~6;L8~9.5;L8~30,.01;C15;L20~30,2;L8~30,3;L8~30,11;L10~"
^DIPT(124,"H")="AUTO LAB LIST"
^DIPT(125,0)="LRBL DISCARDED UNITS DISP^2851209^^65^^^^"
^DIPT(125,"F",1)=".01;C1;L14;""UNIT NUMBER""~.02;C16;L6;""SOURCE""~.04;C24;L15;""COMPONENT""~.05;C41;L19;""DATE RECEIVED""~4.1;C61;L17;""DISPOSITION""~"
^DIPT(125,"F",2)="4.2;C80;L17;""DISPOSITION DATE""~5,.01;C99;L30;""DISPOSITION COMMENT""~"
^DIPT(125,"H")="DISCARDED UNITS DISPOSITION REPORT"
^DIPT(126,0)="LRBL TRANSFUSION REACTIONS^2921214.0937^^65^^^^"
^DIPT(126,"F",1)="6.1;C1;L35;""PATIENT""~.01;C37;L15;""DONOR ID #""~.07;C54;L3;""ABO""~.08;C59;L3;""Rh""~.04;C64;L20;""COMPONENT""~.06;C86;L17;""EXPIRATION DATE""~"
^DIPT(126,"F",2)="4.2;C105;L17;""DISPOSITION DATE""~6.5;C124;L4;""RXN.""~6.8;C1;L80;""""~7,.01;C37;L80;""""~"
^DIPT(126,"H")="TRANSFUSION REACTION REPORT"
^DIPT(130,0)="ARCHIVE BLOOD TEMPLATE^2930728^^65^^^^1"
^DIPT(130,1,0)="^.41^1^1"
^DIPT(130,1,1,0)="65^1^^^^2930728^"
^DIPT(130,1,1,"F",0)="^.411^5^5"
^DIPT(130,1,1,"F",1,0)=".01"
^DIPT(130,1,1,"F",2,0)=".02"
^DIPT(130,1,1,"F",3,0)=".03"
^DIPT(130,1,1,"F",4,0)=".04"
^DIPT(130,1,1,"F",5,0)=".05"
^DIPT(130,1,"B",65,1)=""
^DIPT(130,"F",2)="S DIFGT=1506 D FG^DIFGB;X"
^DIPT(131,0)="LRAR ARCHIVE 65^2940504^^65^^^^2^65.9999"
^DIPT(131,1,0)="^.41^20^20"
^DIPT(131,1,1,0)="65^1^^^^2940504^^^65.9999^65.9999^"
^DIPT(131,1,1,"F",0)="^.411^53^53"
^DIPT(131,1,1,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,1,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,1,"F",3,0)=".03^^.03^0;3^"
^DIPT(131,1,1,"F",4,0)=".04^^.04^0;4^1"
^DIPT(131,1,1,"F",5,0)=".05^^.05^0;5^"
^DIPT(131,1,1,"F",6,0)=".06^^.06^0;6^"
^DIPT(131,1,1,"F",7,0)=".07^^.07^0;7^0"
^DIPT(131,1,1,"F",8,0)=".08^^.08^0;8^0"
^DIPT(131,1,1,"F",9,0)=".09^^.09^0;9^1"
^DIPT(131,1,1,"F",10,0)=".1^^.1^0;10^"
^DIPT(131,1,1,"F",11,0)=".11^^.11^0;11^"
^DIPT(131,1,1,"F",12,0)=".12^^.12^0;12^"
^DIPT(131,1,1,"F",13,0)=".13^^.13^0;13^"
^DIPT(131,1,1,"F",14,0)=".14^^.14^0;14^"
^DIPT(131,1,1,"F",15,0)="1.1^^1.1^1;1^"
^DIPT(131,1,1,"F",16,0)="4.1^^4.1^4;1^0"
^DIPT(131,1,1,"F",17,0)="4.2^^4.2^4;2^"
^DIPT(131,1,1,"F",18,0)="4.3^^4.3^4;3^1"
^DIPT(131,1,1,"F",19,0)="4.4^^4.4^4;4^"
^DIPT(131,1,1,"F",20,0)="4.5^^4.5^4;5^"
^DIPT(131,1,1,"F",21,0)="6.1^^6.1^6;1^1"
^DIPT(131,1,1,"F",22,0)="6.2^^6.3^6;3^"
^DIPT(131,1,1,"F",23,0)="6.4^^6.4^6;4^"
^DIPT(131,1,1,"F",24,0)="6.5^^6.5^6;5^0"
^DIPT(131,1,1,"F",25,0)="6.6^^6.6^6;6^1"
^DIPT(131,1,1,"F",26,0)="6.7^^6.7^6;7^1"
^DIPT(131,1,1,"F",27,0)="6.8^^6.8^6;8^1"
^DIPT(131,1,1,"F",28,0)="8^^8^8;1^1"
^DIPT(131,1,1,"F",29,0)="8.1^^8.1^8;2^0"
^DIPT(131,1,1,"F",30,0)="8.3^^8.3^8;3^0"
^DIPT(131,1,1,"F",31,0)="10^^10^10;1^0"
^DIPT(131,1,1,"F",32,0)="10.2^^10.2^10;2^1"
^DIPT(131,1,1,"F",33,0)="10.3^^10.3^10;3^"
^DIPT(131,1,1,"F",34,0)="10.4^^10.4^10;4^0"
^DIPT(131,1,1,"F",35,0)="11^^11^11;1^0"
^DIPT(131,1,1,"F",36,0)="11.2^^11.2^11;2^1"
^DIPT(131,1,1,"F",37,0)="11.3^^11.3^11;3^"
^DIPT(131,1,1,"F",38,0)="11.4^^11.4^11;4^0"
^DIPT(131,1,1,"F",39,0)="91^^91^0;15^0"
^DIPT(131,1,1,"F",40,0)="121^^121^12;1^0"
^DIPT(131,1,1,"F",41,0)="122^^122^12;2^0"
^DIPT(131,1,1,"F",42,0)="123^^123^12;3^"
^DIPT(131,1,1,"F",43,0)="124^^124^12;4^"
^DIPT(131,1,1,"F",44,0)="125^^125^12;5^"
^DIPT(131,1,1,"F",45,0)="126^^126^12;6^"
^DIPT(131,1,1,"F",46,0)="127^^127^12;7^"
^DIPT(131,1,1,"F",47,0)="128^^128^12;8^"
^DIPT(131,1,1,"F",48,0)="141^^141^14;1^0"
^DIPT(131,1,1,"F",49,0)="142^^142^14;2^0"
^DIPT(131,1,1,"F",50,0)="143^^143^14;3^0"
^DIPT(131,1,1,"F",51,0)="144^^144^14;4^"
^DIPT(131,1,1,"F",52,0)="145^^145^14;5^"
^DIPT(131,1,1,"F",53,0)="200^^200^200;1^"
^DIPT(131,1,2,0)="65.01^2^65^3^PATIENT XMATCHED/ASSIGNED^2940504^^^65.999901^65.9999^2;0"
^DIPT(131,1,2,"F",0)="^.411^3^3"
^DIPT(131,1,2,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,2,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,2,"F",3,0)=".03^^.03^0;3^"
^DIPT(131,1,3,0)="65.02^3^65.01^3^BLOOD SAMPLE DATE/TIME^2940504^^^65.999902^65.999901^1;0"
^DIPT(131,1,3,"F",0)="^.411^10^10"
^DIPT(131,1,3,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,3,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,3,"F",3,0)=".03^^.03^0;3^"
^DIPT(131,1,3,"F",4,0)=".04^^.04^0;4^0"
^DIPT(131,1,3,"F",5,0)=".05^^.05^0;5^1"
^DIPT(131,1,3,"F",6,0)=".06^^.06^0;6^"
^DIPT(131,1,3,"F",7,0)=".07^^.07^0;7^1"
^DIPT(131,1,3,"F",8,0)=".08^^.08^0;8^1"
^DIPT(131,1,3,"F",9,0)=".09^^.09^0;9^"
^DIPT(131,1,3,"F",10,0)=".1^^.1^0;10^"
^DIPT(131,1,4,0)="65.0911^4^65.02^3^MAJOR XMATCH METHOD^2940504^^^65.99990911^65.999902^1;0"
^DIPT(131,1,4,"F",0)="^.411^10^10"
^DIPT(131,1,4,"F",1,0)=".01^^.01^0;1^0"
^DIPT(131,1,4,"F",2,0)=".02^^.02^0;2^0"
^DIPT(131,1,4,"F",3,0)=".03^^.03^0;3^0"
^DIPT(131,1,4,"F",4,0)=".04^^.04^0;4^"
^DIPT(131,1,4,"F",5,0)=".05^^.05^0;5^"
^DIPT(131,1,4,"F",6,0)=".06^^.06^0;6^"
^DIPT(131,1,4,"F",7,0)=".07^^.07^0;7^"
^DIPT(131,1,4,"F",8,0)=".08^^.08^0;8^"
^DIPT(131,1,4,"F",9,0)=".09^^.09^0;9^"
^DIPT(131,1,4,"F",10,0)=".1^^.1^0;10^"
^DIPT(131,1,5,0)="65.0912^4^65.02^3^MINOR XMATCH METHOD^2940504^^^65.99990912^65.999902^2;0"
^DIPT(131,1,5,"F",0)="^.411^10^10"
^DIPT(131,1,5,"F",1,0)=".01^^.01^0;1^0"
^DIPT(131,1,5,"F",2,0)=".02^^.02^0;2^0"
^DIPT(131,1,5,"F",3,0)=".03^^.03^0;3^0"
^DIPT(131,1,5,"F",4,0)=".04^^.04^0;4^"
^DIPT(131,1,5,"F",5,0)=".05^^.05^0;5^"
^DIPT(131,1,5,"F",6,0)=".06^^.06^0;6^"
^DIPT(131,1,5,"F",7,0)=".07^^.07^0;7^"
^DIPT(131,1,5,"F",8,0)=".08^^.08^0;8^"
^DIPT(131,1,5,"F",9,0)=".09^^.09^0;9^"
^DIPT(131,1,5,"F",10,0)=".1^^.1^0;10^"
^DIPT(131,1,6,0)="65.0913^4^65.02^3^CROSSMATCH COMMENT^2940504^^^65.99990913^65.999902^3;0"
^DIPT(131,1,6,"F",0)="^.411^1^1"
^DIPT(131,1,6,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,7,0)="65.03^2^65^3^DATE/TIME UNIT RELOCATION^2940504^^^65.999903^65.9999^3;0"
^DIPT(131,1,7,"F",0)="^.411^7^7"
^DIPT(131,1,7,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,7,"F",2,0)=".02^^.02^0;2^0"
^DIPT(131,1,7,"F",3,0)=".03^^.03^0;3^1"
^DIPT(131,1,7,"F",4,0)=".04^^.04^0;4^"
^DIPT(131,1,7,"F",5,0)=".05^^.05^0;5^"
^DIPT(131,1,7,"F",6,0)=".06^^.06^0;6^"
^DIPT(131,1,7,"F",7,0)=".07^^.07^0;7^1"
^DIPT(131,1,8,0)="65.06^2^65^3^DISPOSITION COMMENT^2940504^^^65.999906^65.9999^5;0"
^DIPT(131,1,8,"F",0)="^.411^1^1"
^DIPT(131,1,8,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,9,0)="65.07^2^65^3^TRANSFUSION COMMENT^2940504^^^65.999907^65.9999^7;0"
^DIPT(131,1,9,"F",0)="^.411^1^1"
^DIPT(131,1,9,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,10,0)="65.091^2^65^3^MODIFIED TO/FROM^2940504^^^65.9999091^65.9999^9;0"
^DIPT(131,1,10,"F",0)="^.411^3^3"
^DIPT(131,1,10,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,10,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,10,"F",3,0)=".03^^.03^0;3^0"
^DIPT(131,1,11,0)="65.15^2^65^3^DATE RE-ENTERED^2940504^^^65.999915^65.9999^15;0"
^DIPT(131,1,11,"F",0)="^.411^9^9"
^DIPT(131,1,11,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,11,"F",2,0)=".02^^.02^0;2^0"
^DIPT(131,1,11,"F",3,0)=".03^^.03^0;3^"
^DIPT(131,1,11,"F",4,0)=".04^^.04^0;4^1"
^DIPT(131,1,11,"F",5,0)=".05^^.05^0;5^"
^DIPT(131,1,11,"F",6,0)=".06^^.06^0;6^"
^DIPT(131,1,11,"F",7,0)=".07^^.07^0;7^1"
^DIPT(131,1,11,"F",8,0)=".08^^.08^0;8^"
^DIPT(131,1,11,"F",9,0)=".09^^.09^0;9^"
^DIPT(131,1,12,0)="65.16^2^65^3^PEDIATRIC ALIQUOT MADE^2940504^^^65.999916^65.9999^16;0"
^DIPT(131,1,12,"F",0)="^.411^2^2"
^DIPT(131,1,12,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,12,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,13,0)="65.04^2^65^3^RBC ANTIGEN PRESENT^2940504^^^65.999904^65.9999^60;0"
^DIPT(131,1,13,"F",0)="^.411^2^2"
^DIPT(131,1,13,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,13,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,14,0)="65.05^2^65^3^RBC ANTIGEN ABSENT^2940504^^^65.999905^65.9999^70;0"
^DIPT(131,1,14,"F",0)="^.411^2^2"
^DIPT(131,1,14,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,14,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,15,0)="65.08^2^65^3^HLA ANTIGEN PRESENT^2940504^^^65.999908^65.9999^80;0"
^DIPT(131,1,15,"F",0)="^.411^2^2"
^DIPT(131,1,15,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,15,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,16,0)="65.09^2^65^3^HLA ANTIGEN ABSENT^2940504^^^65.999909^65.9999^90;0"
^DIPT(131,1,16,"F",0)="^.411^2^2"
^DIPT(131,1,16,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,16,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,17,0)="65.3^2^65^3^TEST/PROCEDURE^2940504^^^65.99993^65.9999^99;0"
^DIPT(131,1,17,"F",0)="^.411^1^1"
^DIPT(131,1,17,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,18,0)="65.31^3^65.3^3^COMPLETE DATE/TIME^2940504^^^65.999931^65.99993^1;0"
^DIPT(131,1,18,"F",0)="^.411^5^5"
^DIPT(131,1,18,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,18,"F",2,0)=".02^^.02^0;2^1"
^DIPT(131,1,18,"F",3,0)=".03^^.03^0;3^1"
^DIPT(131,1,18,"F",4,0)=".04^^.04^0;4^1"
^DIPT(131,1,18,"F",5,0)=".05^^.05^0;5^1"
^DIPT(131,1,19,0)="65.311^4^65.31^3^WKLD CODE^2940504^^^65.9999311^65.999931^1;0"
^DIPT(131,1,19,"F",0)="^.411^3^3"
^DIPT(131,1,19,"F",1,0)=".01^^.01^0;1^1"
^DIPT(131,1,19,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,19,"F",3,0)=".03^^.03^0;3^0"
^DIPT(131,1,20,0)="65.099^2^65^3^DATA CHANGE DATE^2940504^^^65.9999099^65.9999^999;0"
^DIPT(131,1,20,"F",0)="^.411^5^5"
^DIPT(131,1,20,"F",1,0)=".01^^.01^0;1^"
^DIPT(131,1,20,"F",2,0)=".02^^.02^0;2^"
^DIPT(131,1,20,"F",3,0)=".03^^.03^0;3^"
^DIPT(131,1,20,"F",4,0)=".04^^.04^0;4^"
^DIPT(131,1,20,"F",5,0)=".05^^.05^0;5^"
^DIPT(131,1,"B",65,1)=""
^DIPT(131,1,"B",65.01,2)=""
^DIPT(131,1,"B",65.02,3)=""
^DIPT(131,1,"B",65.03,7)=""
^DIPT(131,1,"B",65.04,13)=""
^DIPT(131,1,"B",65.05,14)=""
^DIPT(131,1,"B",65.06,8)=""
^DIPT(131,1,"B",65.07,9)=""
^DIPT(131,1,"B",65.08,15)=""
^DIPT(131,1,"B",65.09,16)=""
^DIPT(131,1,"B",65.091,10)=""
^DIPT(131,1,"B",65.0911,4)=""
^DIPT(131,1,"B",65.0912,5)=""
^DIPT(131,1,"B",65.0913,6)=""
^DIPT(131,1,"B",65.099,20)=""
^DIPT(131,1,"B",65.15,11)=""
^DIPT(131,1,"B",65.16,12)=""
^DIPT(131,1,"B",65.3,17)=""
^DIPT(131,1,"B",65.31,18)=""
^DIPT(131,1,"B",65.311,19)=""
^DIPT(131,"F",2)="D ^DIAXU;X"
^DIPT(132,0)="ZZDANILA^2950620^^65^^^^2^65.9999"
^DIPT(132,1,0)="^.41^3^3"
^DIPT(132,1,1,0)="65^1^^^^2950620^^^65.9999^65.9999^"
^DIPT(132,1,1,"F",0)="^.411^1^1"
^DIPT(132,1,1,"F",1,0)=".01^^.01^0;1^"
^DIPT(132,1,2,0)="65.01^2^65^3^PATIENT XMATCHED/ASSIGNED^2950620^^^65.999901^65.9999^2;0"
^DIPT(132,1,2,"F",0)="^.411^1^1"
^DIPT(132,1,2,"F",1,0)=".01^^.01^0;1^"
^DIPT(132,1,3,0)="65.02^3^65.01^3^BLOOD SAMPLE DATE/TIME^2950620^^^65.999902^65.999901^1;0"
^DIPT(132,1,3,"F",0)="^.411^2^2"
^DIPT(132,1,3,"F",1,0)=".01^^.01^0;1^"
^DIPT(132,1,3,"F",2,0)=".05^^.05^0;5^1"
^DIPT(132,1,"B",65,1)=""
^DIPT(132,1,"B",65.01,2)=""
^DIPT(132,1,"B",65.02,3)=""
^DIPT(132,"F",2)="D ^DIAXU;X"
^DIPT(133,0)="ENEQ WARRANTY^2920427.0901^@^6914^1^@^2930330"
^DIPT(133,"F",2)=".01;S1;L12~6;L30~21;C50;L29;""USING SERVICE""~25;C3;""PM NUMBER""~13;C15;""ACQ. DATE""~12;C30;""ACQ. VALUE""~24;C44;L18;""LOCATION""~18;""CAT STOCK #"";C64;L12~"
^DIPT(133,"H")="WARRANTY EXPIRATION LIST"
^DIPT(134,0)="ENEQ REPLACEMENT^2961212.1312^@^6914^^@^2970304"
^DIPT(134,"F",1)=".01;S;L12~6;L30~21;C50;L29;""USING SERVICE""~25;C3;""PM NUMBER""~13;C14;""ACQ. DATE"";L11~12;C26;""ACQ. VALUE""~24;C39;L18;""LOCATION""~18;""CAT STOCK #"";C59;L11~"
^DIPT(134,"F",2)="53;""CONDITION"";L8~"
^DIPT(134,"H")="REPLACEMENT LISTING"
^DIPT(135,0)="ENEQ EQUIP. LIST^2961212.1316^@^6914^^@^2970304"
^DIPT(135,"F",1)=".01;S;;L12~6;L30~21;C50;L29;""USING SERVICE""~25;C3;""PM NUMBER""~13;C15;""ACQ. DATE""~16;C30;""REPL. DATE""~12;C45;L12;""ACQ. VALUE""~18;""CAT STOCK #"";C60;L15~"
^DIPT(135,"F",2)="17;C3~23;""LAST INVENTORIED"";L18~24;C35;""LOCATION""~20;L14~53;L8;""COND.""~"
^DIPT(135,"H")="EQUIPMENT INV. LIST"
^DIPT(136,0)="ENARCHIVE^2860701^^6919"
^DIPT(136,"F",1)=".01~1;C20~2;""START DATE"";C45~3;""STOP DATE"";C60~6;""TAPE LOCATION"";S~7;""TAPE DESCRIPTION"";C25~10,.01~10,1~10,2~"
^DIPT(136,"H")="ARCHIVE RECORD"
^DIPT(137,0)="EN EQ HIST^2960911.1113^^6920^^^2970409"
^DIPT(137,"DCL","6920^37")="+"
^DIPT(137,"DCL","6920^38")="+"
^DIPT(137,"DCL","6920^45")="+"
^DIPT(137,"DCL","6920^46")="+"
^DIPT(137,"DCL","6920^47")="+"
^DIPT(137,"F",2)=".01;S1~6;"""";X;C20~35,.01;C3;"""";X~47;C9;"""";X~37;C24;"""";X~38;C35;"""";X~45;C50;"""";X~46;C63;"""";X~40,.01;C5;"""";X~"
^DIPT(137,"H")="[EN EQ HIST HD]"
^DIPT(138,0)="ENSPFRDCEILING^2910927.1054^^6928^^^^"
^DIPT(138,"F",1)=".01~.5~1.5;L45~9~9.2;""FINISH DESCR.""~"
^DIPT(138,"F",2)="S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,13) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REPL DATE"";Z;""NUMDATE(CEILING REPLACEMENT DATE)""~"
^DIPT(138,"H")="CEILING FINISH REPLACEMENT SCHEDULE"
^DIPT(139,0)="ENSPFRDWALL^2910927.1055^^6928^^^^"
^DIPT(139,"F",1)=".01~.5~1.5;L45~7~7.2;""FINISH DESCR.""~"
^DIPT(139,"F",2)="S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REPL DATE"";Z;""NUMDATE(WALL REPLACEMENT DATE)""~"
^DIPT(139,"H")="WALL REPLACEMENT FINISH SCHEDULE"
^DIPT(140,0)="ENSPFRDFLOOR^2910927.1054^^6928^^^^"
^DIPT(140,"F",1)=".01~.5~1.5;L45~8~8.2;""FINISH DESCR.""~"
^DIPT(140,"F",2)="S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REPL DATE"";Z;""NUMDATE(FLOOR REPLACEMENT DATE)""~"
^DIPT(140,"H")="FLOOR FINISH REPLACEMENT SCHEDULE"
^DIPT(141,0)="ENSPRM^2930519.1318^@^6928^5^@^2930722"
^DIPT(141,"DCL","6928^4.5")="&"
^DIPT(141,"F",1)=".01;L13~1;L5;C15~1.5;L15;C21~2;L5;C37~2.6;L20;C43~4.5;L4;C64;""NET S.F."";~5;L2;C69;T~7;L14;C72~8;L11;C87~9;L8;C99~10,.01~11;L2;T~13.5;L1;""D R S ""~"
^DIPT(141,"F",2)="16;L3;T~"
^DIPT(141,"H")="ENGINEERING SPACE INVENTORY (132 col.)"
^DIPT(142,0)="ENSPPRKEY^2990818.1433^^6927^^^2990818"
^DIPT(142,"DXS",1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)-1) I D,$D(^ENG(""KEY"",D,0)) S X=$P(^(0),U,1) S DIXX=DIXX(1) D M"
^DIPT(142,"DXS",1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^ENG(""KEY"",""K"",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(1,9.2) Q:'$D(D) S D=D0"
^DIPT(142,"F",1)=".01~1~2,.01;""MST KEY"";L9~2,1,.01;""SUB MST"";L9~-6926,^ENG(""KEY"",^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.3) S X="""" S D0=I(0,0);Z;""EMPLOYEE(KEYS):""~"
^DIPT(142,"F",2)="-6926,.01;L15~"
^DIPT(142,"H")="KEY/LOCK REPORT WITH EMPLOYEE DISTRIBUTION"
^DIPT(143,0)="ENSPPREMP^2990707.1642^^6926^^^2990818"
^DIPT(143,"F",2)=".01;L20~.4;L20~.5~1,.01~1,3;""QTY""~"
^DIPT(143,"H")="KEY DISTRIBUTION REPORT SORTED BY EMPLOYEE"
^DIPT(144,0)="ENSPFRD^2910927.1051^^6928^^^2930427^"
^DIPT(144,"F",1)=".01~.5~1.5;L45~"
^DIPT(144,"F",2)="S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""WALL REPL DATE"";Z;""NUMDATE(WALL REPLACEMENT DATE)""~"
^DIPT(144,"F",3)="S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""FLOOR REPL DATE"";Z;""NUMDATE(FLOOR REPLACEMENT DATE)""~"
^DIPT(144,"F",4)="S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,13) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""CEILING REPL DATE"";Z;""NUMDATE(CEILING REPLACEMENT DATE)""~"
^DIPT(144,"H")="ROOM FINISH REPLACEMENT SCHEDULE"
^DIPT(145,0)="ENFSA1^2930723.1548^@^6924^5^@^2930817"
^DIPT(145,"F",2)=".01;""LOCAL #""~5;""OCCURRENCE""~9;""LAST NAME""~26~28;""RWD""~29;""LWD""~30~57.5;""2162 DONE"";L3~"
^DIPT(145,"H")="@"
^DIPT(146,0)="ENSP-ROOM-LOCK^2891210.2047^^6928^^^2930427^"
^DIPT(146,"F",1)=".01;L8~-6927,^ENG(""LK"",^^S I(0,0)=D0 S DIP(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=X S D(0)=+X;Z;""KEY:""~-6927,1;L9~-6927,2,.01;""MST KEY"";L3~"
^DIPT(146,"F",2)="-6927,2,1,.01;""SUB MST"";L3~2;L5~2.1,.01;""OTHER"";L5~2.6;L15~6;""SPEC. CHAR."";L17~"
^DIPT(146,"H")="ROOM/LOCK/FUNCTION REPORT"
^DIPT(147,0)="ENSPR144^2900429.1858^^6928^^^2930720^"
^DIPT(147,"DCL","6928^4.5")="+"
^DIPT(147,"DNP")="1"
^DIPT(147,"F",2)="4.5~"
^DIPT(147,"H")="ENG SPACE STATISTICS"
^DIPT(148,0)="ENGSCONTRACT^2900511.122^^6916^^^2930728"
^DIPT(148,"F",1)="""VAMC: "";C1~.01;X~""VI.A. CONTRACT SERVICE"";S;C1~15,.01;X;S;X~15,""COMPANY NAME: "";C7~15,1;X~15,""MANUFACTURER NAME: "";C7~15,2;X~"
^DIPT(148,"F",2)="15,""TYPE OF EQUIPMENT: "";C7~15,3;X~15,""MODEL: #"";C7~15,4;X~15,""ACQUISITION COST: $"";C7~15,5;X;L~15,""CONTRACT COST: $"";C7~15,6;X;L~"
^DIPT(148,"F",3)="15,""CONTRACT PERIOD: "";C7~15,7;X;L~15,""CONTRACT TYPE: "";C7~15,8;X;L~15,""ADDITIONAL COST: $"";C7~15,9;X;L~"
^DIPT(148,"H")="BIOMEDICAL RESOURCES SURVEY CONTRACT LISTING"
^DIPT(149,0)="ENGSPERSONNEL^2900514.141^^6916^^^2930730"
^DIPT(149,"F",1)="""VAMC: "";C1~.01;X~""HOSPCODE: "";C1~2;X~""VAMC ADDRESS: "";C1~3;X~""FYEARRPT: "";C1~4;X~5,""I.A.1. NAME: "";C12;S2~5,.01;X~"
^DIPT(149,"F",2)="5,""2. ABBREVIATED CLASS TITLE: "";C1~5,1;X~5,""2a. TYPE OF CLASSIFICATION: "";C1~5,1.5;X~5,""3. ORGANIZATIONAL TITLE: "";C1~5,2;X~"
^DIPT(149,"F",3)="5,""4. PAYPLAN/CLASS: "";C1~5,3;X~5,""4a. GRADE/STEP: "";C1~5,3.5;X~5,""5. EMPLOYEE STATUS: "";C1~5,4;X~5,""5a. No. OF MONTHS WORKED: "";C1~5,5;X~"
^DIPT(149,"F",4)="5,""5b. SHARED BY: "";C1~5,5.5;X~5,""6. ANNUAL SALARY: "";C1~5,6;X~5,""7a. GENERAL EXPERTISE: "";C1~5,7,.01;X;C25~5,""7b. SPECIFIC SKILLS: "";C1~"
^DIPT(149,"F",5)="5,8,""MFG NAME: "";C5;S~5,8,.01;X;L~5,8,""EQUIPMENT TYPE: "";C5~5,8,1;X;L~5,8,""MODEL: "";C5~5,8,2;X;L~"
^DIPT(149,"H")="BIOMEDICAL RESOURCES PERSONNEL SURVEY LISTING"
^DIPT(150,0)="ENGSGENERAL^2940830.1346^^6916^^^^"
^DIPT(150,"F",1)="""VAMC: "";C1~.01;X~""II.A. WORK AREA (SQFT): "";S;C1~6;X;L~""II.B. STORAGE AREA (SQ. FT.): "";C1~7;X;L~""II.C. BME OFICE (SQ. FT.): "";C1~8;X;L~"
^DIPT(150,"F",2)="""III.A. TOTAL ACQUISITION COST: $"";C1~9;X;L~""V.A. COST OF REPAIRS (NON): $"";C1~13;X;L~""IV.A. COST OF PARTS: $"";C1~10;X;L~"
^DIPT(150,"F",3)="""IV.B. COST OF X-RAY (TUBES): $"";C1~12;X;L~""VIII.A. TOTAL PERSONAL PROPERTY: $"";C1~17;X;L~""VIII.B. LAB TOTAL EQUIP. COST: $"";C1~18;X;L~"
^DIPT(150,"F",4)="""VIII.C. RAD TOTAL EQUIP. COST: $"";C1~19;X;L~""VIII.D. OTHER TOTAL EQUIP. COST: $"";C1~20;X;L~"
^DIPT(150,"H")="BIOMEDICAL RESOURCES GENERAL SPECIFICATIONS SURVEY LISTING"
^DIPT(151,0)="ENGSADDITIONAL^2900511.1203^^6916^^^2930728"
^DIPT(151,"F",1)="""VAMC: "";C1~.01;X~""VII. ADDITIONAL SUPPORT AREAS"";S;C1~16,.01;C6;X;S~16,""TYPE/EQUIP/ENTERTAINMENT: "";C6~16,1;X~16,""FTEE REQUIRED: "";C6~16,2;X~"
^DIPT(151,"F",2)="16,""ACQUISITION VAL OF INV SRVCD: $"";C6~16,3;X;L~16,""NUMBER OF UNITS INVOLVED: "";C6~16,3.5;X~16,""PARTS COST: $"";C6~16,4;X;L~"
^DIPT(151,"F",3)="16,""PARTS COST INC ELSEWHERE: "";C6~16,5;X;L~16,""COMMENTS: "";C6~16,6,.01;X~"
^DIPT(151,"H")="BIOMEDICAL RESOURCES SURVEY ADDITIONAL SUPPORT LISTING"
^DIPT(152,0)="ENSPFRDDWALL^2850901^^6928^^^^"
^DIPT(152,"F",1)=".01~.5~1.5~7~7.5~"
^DIPT(152,"H")="WALL REPLACEMENT FININISH SCHEDULE"
^DIPT(153,0)="ENCMR^2970416.1435^^6914^^^2970701"
^DIPT(153,"F",1)="D CMRNOM^ENEQRPI;L0;X;Z;""D CMRNOM^ENEQRPI""~.01;S1;C3;L10;X~60;C15;X~62;C22;X~38;C30;X~12.5;C36;X~12;C48;X~23;C61;X~""MFGR NAME: "";S1;C5;X~3;L60;X~"
^DIPT(153,"F",2)="""MANF: "";C5;X~1;X~""MODEL: "";C5;X~4;X~""SERIAL: "";C37;X~5;X~""VA PM #: "";C5;X~25;X~""LOCAL ID: "";C37;X~26;X~""USE STATUS: "";C5;X~20;X~""USING SVC: "";C37;X~"
^DIPT(153,"F",3)="21;X~""LOCATION: "";C5;X~24;X~""PREVIOUS: "";C37;X~24.5;X~""CONDITION: "";C5;X~53;X~""ACQ METH: "";C37;X~20.1;X~""ACQ DATE: "";C5;X~13;X~""LE: "";C28;X~15;X~"
^DIPT(153,"F",4)="""REPL DATE: "";C37;X~16;X~""SPEX: "";C5~70,.01;L65~"
^DIPT(153,"H")="EQUIPMENT INVENTORY LISTING"
^DIPT(154,0)="ENPLP001^2930713.131^@^6925^4^@^2930804"
^DIPT(154,"%D",0)="^^1^1^2930323^^^^"
^DIPT(154,"%D",1,0)="Print template for VAF 10-1193a Rev. FEB 1979."
^DIPT(154,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,0)):^(0),1:"""")"
^DIPT(154,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,1)):^(1),1:"""")"
^DIPT(154,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(154,"DXS",3,9.3)="X DXS(3,9.2) S DIP(101)=$S($D(^DIC(4,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^DIC(5,+D0,0)) D0=-1 S DIP(201)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(DIP(201),U,2)"
^DIPT(154,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,1)):^(1),1:"""")"
^DIPT(154,"DXS",5,9)="X DXS(5,9.2) S X=X=""YES"",DIP(3)=X S X=""REQUIRED"",DIP(4)=X S X=1,DIP(5)=X S X=""NOT REQUIRED "",X=$S(DIP(3):DIP(4),DIP(5):X)"
^DIPT(154,"DXS",5,9.2)="S DIP(2)=$C(59)_$S($D(^DD(6925,187,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(154,"DXS",6,9)="X DXS(6,9.2) S X=X=""YES"",DIP(3)=X S X=""REQUIRED"",DIP(4)=X S X=1,DIP(5)=X S X=""NOT REQUIRED"",X=$S(DIP(3):DIP(4),DIP(5):X)"
^DIPT(154,"DXS",6,9.2)="S DIP(2)=$C(59)_$S($D(^DD(6925,193,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,16)):^(16),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(154,"DXS",7,9)="X DXS(7,9.2) S X=X=""YES"",DIP(3)=X S X=""REQUIRED"",DIP(4)=X S X=1,DIP(5)=X S X=""NOT REQUIRED"",X=$S(DIP(3):DIP(4),DIP(5):X)"
^DIPT(154,"DXS",7,9.2)="S DIP(2)=$C(59)_$S($D(^DD(6925,194,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,16)):^(16),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(154,"DXS",8,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,16)):^(16),1:"""") S X=$P(DIP(1),U,2),DIP(2)=X S X="","",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X)_"" "",DIP(4)=X S X=$P(DIP(1),U,2)"
^DIPT(154,"F",1)="""EMIS CONSTRUCTION PROGRAM ENVIRONMENTAL ANALYSIS"";C40~""RCS 13-37"";C115~""DATE PRINTED: "";S1;C1~"
^DIPT(154,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;X;L18;Z;""NOW""~""1. CONSTRUCTION PROJECT NO.: "";C85~.01;X;L10;""""//~"
^DIPT(154,"F",3)="""TO: ADCMD For Operations (138) "";S1;C1~""2. FACILITY LOCATION"";C50~""DIVISION"";C100~""Veterans Administration Central Office"";C5~"
^DIPT(154,"F",4)="X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;C53;Z;""MEDICAL CENTER:NAME""~176;C100~""Washington, D.C. 20420"";C5~"
^DIPT(154,"F",5)="X DXS(2,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;C53;Z;""MEDICAL CENTER:CITY""~"", "";X~"
^DIPT(154,"F",6)="X DXS(3,9.3) S X=X_"" "" S D0=I(0,0) W X K DIP;X;Z;""MEDICAL CENTER:STATE:ABBREVIATION_"" """"~"
^DIPT(154,"F",7)="X DXS(4,9.2) S X=$P(DIP(101),U,4) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL CENTER:ZIP""~""SECTION I - GENERAL DATA"";S1;C52~""3. PROJECT TITLE: "";C1~2;C19;""""~"
^DIPT(154,"F",8)="""SECTION II - ENVIRONMENTAL DATA"";S1;C49~""A. FACILITY REVIEW"";C51~""B. VACO/REGION REVIEW"";C93~""4. ENVIRONMENTAL ASSESSMENT"";C1~"
^DIPT(154,"F",9)="X DXS(5,9) W X K DIP;C54;"""";Z;""$S(ENVIRONMENTAL ASSESSMENT REQD=""YES"":""REQUIRED"",1:""NOT REQUIRED "")""~""5. ENVIRONMENTAL IMPACT STATEMENT"";C1~"
^DIPT(154,"F",10)="X DXS(6,9) W X K DIP;C54;"""";Z;""$S(ENVIRONMENT IMPACT STMT REQD=""YES"":""REQUIRED"",1:""NOT REQUIRED"")""~""6. ADDITIONAL DOCUMENTATION"";C1~"
^DIPT(154,"F",11)="X DXS(7,9) W X K DIP;C54;"""";Z;""$S(ADDITIONAL DOCUMENTATION REQD=""YES"":""REQUIRED"",1:""NOT REQUIRED"")""~""7. FURTHER ACTION REQUIRED"";C1~194.5;C40;""""~"
^DIPT(154,"F",12)="""8. EVALUATED"";C1~""BY "";C30~""DATE"";C60~""BY "";C80~""DATE"";C110~"
^DIPT(154,"F",13)="X DXS(8,9.2) S DIP(5)=X S X="","",X=$P(DIP(5),X) S Y=X,X=DIP(4),X=X_Y W X K DIP;C30;"""";Z;""$P(EVALUATOR,"","",2)_"" ""_$P(EVALUATOR,"","")""~"
^DIPT(154,"F",14)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,16)):^(16),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C60;"""";Z;""NUMDATE(DATE OF EVALUATION)""~"
^DIPT(154,"F",15)="""SECTION III - ENVIRONMENTAL ANALYSIS"";S1;C46~""Environmental Elements: A 'Yes' will require an Assessment"";C1~"
^DIPT(154,"F",16)="""Specify standards used and project elements analyzed,"";C65~""of the Specific Element."";C1~""or provide additional documentation."";C65~""9. LAND USE"";C1~"
^DIPT(154,"F",17)="""DOES PROPOSED PROJECT:"";C5~""A1. Acquire or dispose of land?"";C5~195;C55;""""~195.1;C65~""A2. Involve land located in a wetland or"";C5~196;C55;""""~"
^DIPT(154,"F",18)="196.1;C65~""flood plain?"";C9~""A3. Involve storm-water run-off and"";C5~197;C55;""""~197.1;C65~""retainage?"";C9~""A4. Conflict with local zoning and"";C5~"
^DIPT(154,"F",19)="198;C55;""""~198.1;C65~""planning regulations?"";C9~""A5. Dislocate persons, residences, or"";C5~199;C55;""""~199.1;C65~""cause major population shift?"";C9~"
^DIPT(154,"F",20)="""A6. Affect protected wildlife or vegetation?"";C5~200;C55;""""~200.1;C65~""10. CONSTRUCTION/BUILDINGS"";C1~""DOES PROPOSED PROJECT:"";C5~"
^DIPT(154,"F",21)="""B1. Involve 'outside construction of more"";C5~201;C55;""""~201.1;C65~""than 10,000 sq. ft.?"";C9~""B2. Increase off-site traffic flow by more"";C5~"
^DIPT(154,"F",22)="202;C55;""""~202.1;C65~""than 10%?"";C9~""B3. Significantly alter off-site traffic flow?"";C5~203;C55;""""~203.1;C65~"
^DIPT(154,"F",23)="""B4. Involve a historically designated"";C5~204;C55;""""~204.1;C65~""building or area?"";C9~""11. EMISSION, WATER, AND TOXIC SUBSTANCES"";C1~"
^DIPT(154,"F",24)="""DOES PROPOSED PROJECT:"";C5~""C1. Conflict with local, state, or federal"";C5~205;C55;""""~205.1;C65~""standards?"";C9~"
^DIPT(154,"F",25)="""12. CULTURAL, COMMUNITY, LEGISLATIVE"";C1~""DOES PROPOSED PROJECT:"";C5~""D1. Have known potential for public"";C5~206;C55;""""~206.1;C65~""controversy?"";C9~"
^DIPT(154,"F",26)="""D2. Conflict with local or state"";C5~207;C55;""""~207.1;C65~""regulations?"";C9~""D3. Overload available utility system"";C5~208;C55;""""~208.1;C65~"
^DIPT(154,"F",27)="""capacity?"";C9~""VA FORM 10-1193a"";S1;C112~""FEB 1979"";C116~"
^DIPT(154,"H")="@"
^DIPT(154,"SUB")="1"
^DIPT(155,0)="ENPLP003^2950623.1354^^6925^3^^2950809"
^DIPT(155,"%D",0)="^^1^1^2950526^^^"
^DIPT(155,"%D",1,0)="Print template for NRM Prioritization Methodology Scoring Sheet."
^DIPT(155,"DXS",1,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$S('$D(^ENG(6910.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))]"""",DIP(2)=X S X="" (""_$S('$D(^ENG(6910.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(155,"DXS",2,9.2)="S DIP(3)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:""""),DIP(1)=$S($D(^(52)):^(52),1:"""") S X=$S('$D(^OFM(7336.8,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1))[""ENERGY"""
^DIPT(155,"DXS",3,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,52)):^(52),1:"""") S X=$S('$D(^OFM(7336.8,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1))[""ENERGY"",DIP(2)=X S X=""(data and points added at Region)"""
^DIPT(155,"DXS",4,9)="X DXS(4,9.3) S X=X<1,DIP(103)=X S X=""Date of citation:"",DIP(104)=X S X=1,DIP(105)=X S X="""",X=$S(DIP(103):DIP(104),DIP(105):X) S D0=I(0,0) S D1=I(1,0)"
^DIPT(155,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(155,"DXS",4,9.3)="X DXS(4,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,21,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102)"
^DIPT(155,"DXS",5,9)="X DXS(5,9.3) S X=X<1,DIP(103)=X S X=""Citing Authority:"",DIP(104)=X S X=1,DIP(105)=X S X="""",X=$S(DIP(103):DIP(104),DIP(105):X) S D0=I(0,0) S D1=I(1,0)"
^DIPT(155,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(155,"DXS",5,9.3)="X DXS(5,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,21,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102)"
^DIPT(155,"DXS",6,9)="X DXS(6,9.3) S X=X<1,DIP(103)=X S X=""Survey official's name:"",DIP(104)=X S X=1,DIP(105)=X S X="""",X=$S(DIP(103):DIP(104),DIP(105):X) S D0=I(0,0) S D1=I(1,0)"
^DIPT(155,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(155,"DXS",6,9.3)="X DXS(6,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,21,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102)"
^DIPT(155,"F",1)="""FY "";C35~3.45;X;""""~""NRM PRIORITIZATION METHODOLOGY"";C24~""PROJECT SCORING SHEET"";C29~"" "";C1~""VAMC: "";C1~"
^DIPT(155,"F",2)="-4,^DIC(4,^^S I(0,0)=D0 S DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S D(0)=+X;Z;""MEDICAL CENTER:""~-4,.01;X;""""~"
^DIPT(155,"F",3)="X DXS(1,9.2) S X=X_"")"",DIP(3)=X S X=1,DIP(4)=X S X="""",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";Z;""$S(#176]"""":"" (""_#176_"")"",1:"""")""~"
^DIPT(155,"F",4)="""Proj Title: "";C1~2;X;""""~""Proj #: "";C61~.01;X;""""~""Total Est: Construction Cost: "";C1~262.6;X;""""~""Design Cost: "";C45~220.1;X;""""~"" "";C1~"
^DIPT(155,"F",5)="""1 FACILITY PRIORITY:"";C1~""Facility priority for Project: "";C5~209;X;""""~""POINTS:"";C61~262.1;C70;R2;""""~"" "";C1~""2 TOTAL FACTORED SQUARE FOOTAGE:"";C1~"
^DIPT(155,"F",6)="""Total Factored Square Footage: "";C5~261;X;""""~""POINTS:"";C61~262.2;C70;R2;""""~"" "";C1~""3 PROJECT CATEGORY:"";C1~""Category: "";C5~158.1;X;""""~""POINTS:"";C61~"
^DIPT(155,"F",7)="262.3;C70;R2;""""~"" "";C1~""4 BONUS CATEGORY:"";C1~""Category: "";C5~158.8;X;""""~""POINTS:"";C61~262.7;C70;R2;""""~""Ambulatory Care Percentage: "";C5~158.9;X;""""~"
^DIPT(155,"F",8)="""SIR Rating: "";C5~"
^DIPT(155,"F",9)="X DXS(2,9.2) S DIP(2)=X S X=$P(DIP(3),U,11),DIP(4)=X S X=1,DIP(5)=X S X=""N/A"",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(#158.8[""ENERGY"":#236,1:""N/A"")""~"
^DIPT(155,"F",10)="""% of Energy Target Achieved: "";C5~"
^DIPT(155,"F",11)="X DXS(3,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=""N/A"",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";Z;""$S(#158.8[""ENERGY"":""(data and points added at Region)"",1:""N/A"")""~"
^DIPT(155,"F",12)=""" "";C1~""5 CITATIONS:"";C1~""POINTS:"";C61~262.4;C70;R2;""""~X DXS(4,9) W X K DIP;C5;Z;""$S(COUNT(CITATIONS)<1:""Date of citation:"",1:"""")""~"
^DIPT(155,"F",13)="X DXS(5,9) W X K DIP;C5;Z;""$S(COUNT(CITATIONS)<1:""Citing Authority:"",1:"""")""~"
^DIPT(155,"F",14)="X DXS(6,9) W X K DIP;C5;Z;""$S(COUNT(CITATIONS)<1:""Survey official's name:"",1:"""")""~164,""Date of citation: "";C5~164,2;C30;""""~164,""Citing authority: "";C5~"
^DIPT(155,"F",15)="164,3;C30;""""~164,""Survey official's name: "";C5~164,5;C30;""""~"" "";C1~""TOTAL POINTS:"";S1;C40~263;C70;R2;""""~"
^DIPT(155,"H")="@"
^DIPT(155,"SUB")="1"
^DIPT(156,0)="EN PM HOURS^2930319.1003^^6922^5^^2930408"
^DIPT(156,"F",2)="3,.01;S1~3,1,.01~3,1,1~"
^DIPT(156,"H")="PREVENTIVE MAINTENANCE MANHOURS"
^DIPT(157,0)="ENPLP005^2940901.1415^^6925^^^2950720^"
^DIPT(157,"%D",0)="^^1^1^2930428^^^^"
^DIPT(157,"%D",1,0)="Sign-off Summary for Project Application."
^DIPT(157,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,0)):^(0),1:"""")"
^DIPT(157,"DXS",2,9.2)="S DIP(5)=$C(59)_$S($D(^DD(6925,161,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(DIP(1),U,13),X=X S X=X=""E"",DIP(2)=X,DIP(3)=X"
^DIPT(157,"DXS",2,9.3)="X DXS(2,9.2) S X=$P(DIP(1),U,13),X=X S X=X=""I"",Y=X,X=DIP(2),X=X!Y,DIP(4)=X S X=$P($P(DIP(5),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1),DIP(6)=X S X=1,DIP(7)=X S X=""NO"""
^DIPT(157,"DXS",3,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(DIP(1),U,14),X=X S X=X=""Y"",DIP(2)=X S X=""YES"",DIP(3)=X S X=1,DIP(4)=X S X=""NO"""
^DIPT(157,"DXS",4,9)="X $P(^DD(6925,178,0),U,5,99) S DIP(1)=X S X=DIP(1),X=$L(X)>15,DIP(2)=X S X=""VARIOUS"",DIP(3)=X S X=1,DIP(4)=X S X=DIP(1),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(157,"DXS",5,9)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(DIP(1),U,6)'="""",DIP(2)=X S X=""YES"",DIP(3)=X S X=1,DIP(4)=X S X=""NO"",X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(157,"DXS",6,9)="X DXS(6,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,2),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(157,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(157,"DXS",7,9)="X DXS(7,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(157,"DXS",7,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(157,"DXS",8,9)="X DXS(8,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,4),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(157,"DXS",8,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(157,"DXS",9,9)="X DXS(9,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(157,"DXS",9,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(157,"DXS",10,"LE")="LEASE"
^DIPT(157,"DXS",10,"MA")="MAJOR"
^DIPT(157,"DXS",10,"MI")="MINOR"
^DIPT(157,"DXS",10,"MM")="MINOR MISC."
^DIPT(157,"DXS",10,"NR")="NRM"
^DIPT(157,"DXS",10,"OT")="OTHER"
^DIPT(157,"DXS",10,"SL")="STATION LEVEL"
^DIPT(157,"DXS",11,1)="PATIENT"
^DIPT(157,"DXS",11,2)="ADMINISTRATIVE"
^DIPT(157,"DXS",11,3)="QUARTERS"
^DIPT(157,"DXS",11,4)="AMBULATORY CARE"
^DIPT(157,"DXS",11,5)="OTHER"
^DIPT(157,"DXS",12,1)="CONTRACT"
^DIPT(157,"DXS",12,2)="P&H"
^DIPT(157,"DXS",12,3)="STATION LABOR"
^DIPT(157,"DXS",12,4)="SBA 8(a)"
^DIPT(157,"DXS",12,5)="DESIGN/BUILD"
^DIPT(157,"DXS",12,6)="LEASE"
^DIPT(157,"F",1)="""VHA"";Y+1;C1~""PROJECT APPLICATION - SIGN OFF SUMMARY"";C20~""PROJECT NUMBER"";C66~.01;L11;C68~""PROJECT PROGRAM: "";C1~155;X~""FACILITY PRIORITY: "";C50~"
^DIPT(157,"F",2)="209;X;L3~""FACILITY: "";C1~X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL CENTER:NAME""~""TOTAL PROJECT SCORE: "";C50~235;D2;L6;X~"
^DIPT(157,"F",3)="""PROJECT TITLE: "";C1~2;X~""EMERGENCY APPLICATION: "";C1~"
^DIPT(157,"F",4)="X DXS(2,9.3) S X=$S(DIP(4):DIP(6),DIP(7):X) W X K DIP;X;Z;""$S(INTERNAL(#161)=""E""!(INTERNAL(#161)=""I""):#161,1:""NO"")""~"
^DIPT(157,"F",5)="""EQUIPMENT OVER $250K APPLICATION: "";C40~X DXS(3,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(INTERNAL(#162)=""Y"":""YES"",1:""NO"")""~"
^DIPT(157,"F",6)="""BUILDING NUMBER(S): "";C1~X DXS(4,9) W X K DIP;L50;X;Z;""$S($L(BLDG DISPLAY)>15:""VARIOUS"",1:BLDG DISPLAY)""~""BUILDING OCCUPANCY: "";C1~179;X~"
^DIPT(157,"F",7)="""PROJECT CATEGORY: "";C1~158.1;X~""BUDGET CATEGORY: "";C1~158.2;X~""NET BED CHANGE: "";C1~191;L4;X~""NET PARKING CHANGE: "";C50~223;L5;X ~"
^DIPT(157,"F",8)="""LISTED ON 5 YR FACILITY PLAN: "";C1~X DXS(5,9) W X K DIP;L4;X;Z;""$S(5 YR FACILITY PLAN FY'="""":""YES"",1:""NO"")""~""5-YR FACILITY PLAN FY: "";C50~181;L4;X~"
^DIPT(157,"F",9)="""NEW NET SQ. FT.: "";C1~X DXS(6,9) W X K DIP;L9;X;Z;""TOTAL(H089:#1)""~""NEW GROSS SQ. FT.: "";C40~X DXS(7,9) W X K DIP;L9;X;Z;""TOTAL(H089:#2)""~"
^DIPT(157,"F",10)="""RENOVATED NET SQ. FT.: "";C1~X DXS(8,9) W X K DIP;L9;X;Z;""TOTAL(H089:#3)""~""RENOVATED GROSS SQ. FT.: "";C40~X DXS(9,9) W X K DIP;L9;X;Z;""TOTAL(H089:#4)""~"
^DIPT(157,"F",11)="""AE $ REQUIRED IN FY: "";C1~3.45;L4;X~""CONSTRUCTION $ REQUIRED IN FY: "";C40~3.5;L4;X~""PLANNED CONSTRUCTION METHOD: "";C1~182;X~"
^DIPT(157,"F",12)="""TOTAL PROJECT COSTS: $ "";C45~222;L11;X~""PROJECT DESCRIPTION:"";C1~192,.01;X~""PROJECT JUSTIFICATION:"";C1~192.3,.01;X~""WORKLOAD:"";C1~192.6,.01;X~"
^DIPT(157,"H")="@"
^DIPT(157,"IOM")="80"
^DIPT(157,"LAST")=""
^DIPT(157,"ROU")="^ENPLPC"
^DIPT(157,"ROUOLD")="ENPLPC"
^DIPT(157,"SUB")="1"
^DIPT(158,0)="ENPLP006^2950623.1153^^6925^3^^2950623"
^DIPT(158,"%D",0)="^^1^1^2930428^^"
^DIPT(158,"%D",1,0)="This template prints page 1 of Project Application."
^DIPT(158,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,0)):^(0),1:"""")"
^DIPT(158,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,0)):^(0),1:"""")"
^DIPT(158,"DXS",3,9.2)="S DIP(5)=$C(59)_$S($D(^DD(6925,161,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(DIP(1),U,13),X=X S X=X=""E"",DIP(2)=X,DIP(3)=X"
^DIPT(158,"DXS",3,9.3)="X DXS(3,9.2) S X=$P(DIP(1),U,13),X=X S X=X=""I"",Y=X,X=DIP(2),X=X!Y,DIP(4)=X S X=$P($P(DIP(5),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1),DIP(6)=X S X=1,DIP(7)=X S X=""NO"""
^DIPT(158,"DXS",4,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(DIP(1),U,14),X=X S X=X=""Y"",DIP(2)=X S X=""YES"",DIP(3)=X S X=1,DIP(4)=X S X=""NO"""
^DIPT(158,"DXS",5,9)="X $P(^DD(6925,178,0),U,5,99) S DIP(1)=X S X=DIP(1),X=$L(X)>50,DIP(2)=X S X=""VARIOUS"",DIP(3)=X S X=1,DIP(4)=X S X=DIP(1),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(158,"DXS",6,9.2)="S DIP(2)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),DIP(4)=$S($D(^(52)):^(52),1:"""")"
^DIPT(158,"DXS",6,9.3)="X DXS(6,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)=""NRM"",DIP(3)=X S X=$S('$D(^OFM(7336.8,+$P(DIP(4),U,9),0)):"""",1:$P(^(0),U,1)),DIP(5)=X S X=1"
^DIPT(158,"DXS",7,9.2)="S DIP(2)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),DIP(4)=$S($D(^(52)):^(52),1:"""")"
^DIPT(158,"DXS",7,9.3)="X DXS(7,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)=""NRM"",DIP(3)=X S X=$S('$D(^ENG(6925.3,+$P(DIP(4),U,8),0)):"""",1:$P(^(0),U,1)),DIP(5)=X S X=1"
^DIPT(158,"DXS",8,9)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(DIP(1),U,6)'="""",DIP(2)=X S X=""YES"",DIP(3)=X S X=1,DIP(4)=X S X=""NO"",X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(158,"DXS",9,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,22,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^OFM(7336.6,+D0,0)) D0=-1"
^DIPT(158,"DXS",10,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,22,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^OFM(7336.6,+D0,0)) D0=-1"
^DIPT(158,"DXS",11,9)="X DXS(11,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,2),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(158,"DXS",11,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(158,"DXS",12,9)="X DXS(12,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(158,"DXS",12,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(158,"DXS",13,9)="X DXS(13,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,4),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(158,"DXS",13,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(158,"DXS",14,9)="X DXS(14,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""""""")"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(158,"DXS",14,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(158,"DXS",15,"LE")="LEASE"
^DIPT(158,"DXS",15,"MA")="MAJOR"
^DIPT(158,"DXS",15,"MI")="MINOR"
^DIPT(158,"DXS",15,"MM")="MINOR MISC."
^DIPT(158,"DXS",15,"NR")="NRM"
^DIPT(158,"DXS",15,"OT")="OTHER"
^DIPT(158,"DXS",15,"SL")="STATION LEVEL"
^DIPT(158,"DXS",16,1)="PATIENT"
^DIPT(158,"DXS",16,2)="ADMINISTRATIVE"
^DIPT(158,"DXS",16,3)="QUARTERS"
^DIPT(158,"DXS",16,4)="AMBULATORY CARE"
^DIPT(158,"DXS",16,5)="OTHER"
^DIPT(158,"F",1)="""VHA"";Y+1;C1~""PROJECT APPLICATION"";C54~""EXECUTIVE SUMMARY"";C55~""*********** GENERAL DATA ***********"";S1;C45~""1. PROJECT PROGRAM: "";S1;C1~155;X~"
^DIPT(158,"F",2)="""2. REGION: "";C60~X DXS(1,9.2) S X=$P(DIP(101),U,7) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL CENTER:REGION""~""3. FACILITY PRIORITY: "";C90~209;X~"
^DIPT(158,"F",3)="""4. FACILITY: "";S1;C1~X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL CENTER:NAME""~""DIVISION: "";C80~176;X~"
^DIPT(158,"F",4)="""5. PROJECT TITLE: "";S1;C1~2;X~""6. PROJECT NUMBER: "";C90~.01;X;L11~""7. EMERGENCY : "";S1;C1~"
^DIPT(158,"F",5)="X DXS(3,9.3) S X=$S(DIP(4):DIP(6),DIP(7):X) W X K DIP;X;Z;""$S(INTERNAL(#161)=""E""!(INTERNAL(#161)=""I""):#161,1:""NO"")""~""8. EQUIPMENT OVER : "";C30~"
^DIPT(158,"F",6)="X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(INTERNAL(#162)=""Y"":""YES"",1:""NO"")""~""9. BUILDING : "";C60~"
^DIPT(158,"F",7)="X DXS(5,9) W X K DIP;L50;X;Z;""$S($L(BLDG DISPLAY)>50:""VARIOUS"",1:BLDG DISPLAY)""~""APPLICATION"";C4~""$250K APPLICATION"";C33~""NUMBER(S)"";C63~"
^DIPT(158,"F",8)="""10. BUILDING OCCUPANCY: "";S1;C1~179;X~""11a. PROJECT CATEGORY: "";C56~158.1;X~""11b. BONUS CATEGORY: "";S1;C1~"
^DIPT(158,"F",9)="X DXS(6,9.3) S DIP(6)=X S X=""N/A"",X=$S(DIP(3):DIP(5),DIP(6):X) W X K DIP;Z;""$S(#155=""NRM"":BONUS CATEGORY,1:""N/A"")""~""11c. SIR RATING: "";C56~236;X~"
^DIPT(158,"F",10)="""11d. % ENERGY TARGET ACHIEVED: (Region enters)"";C82~""12a. BUDGET CATEGORY: "";S1;C1~158.2;X~""12b. EPA CATEGORY: "";C56~"
^DIPT(158,"F",11)="X DXS(7,9.3) S DIP(6)=X S X=""N/A"",X=$S(DIP(3):DIP(5),DIP(6):X) W X K DIP;Z;""$S(#155=""NRM"":EPA REPORTING CATEGORY,1:""N/A"")""~"
^DIPT(158,"F",12)="""13. NET BED CHANGE: "";S1;C1~191;L4;X~""14. LISTED ON 5 YR FACILITY PLAN: "";C40~"
^DIPT(158,"F",13)="X DXS(8,9) W X K DIP;L4;X;Z;""$S(5 YR FACILITY PLAN FY'="""":""YES"",1:""NO"")""~""15. 5-YR FACILITY PLAN FY: "";C90~181;L4;X~""16. NET PARKING CHANGE: "";S1;C1~"
^DIPT(158,"F",14)="223;L5;X~""17. PROJECT DESCRIPTION:"";S1;C1~192,.01;C27~""18. PROJECT JUSTIFICATION:"";S1;C1~192.3,.01;C29~""19. WORKLOAD:"";S1;C1~192.6,.01;C16~"
^DIPT(158,"F",15)="""20. FDP UPDATE COMPLETED: "";S1;C1~""* Reserved for Future Use *"";X~""21. DEPARTMENT/SERVICE OR TECHNICAL"";S1;C1~""22. FDP CRITICAL"";C75~"
^DIPT(158,"F",16)="""23. FDP CORRECTIVE"";C100~""DEFICIENCIES TO BE ADDRESSED"";C5~""RATING"";C79~""ACTION #"";C104~"""";S1;C1~""* Reserved for Future Use *"";C30~"
^DIPT(158,"F",17)="""24. PROJECT SCOPE: "";S1;C1~""25. CODE"";C5~""26. DEPARTMENT/SERVICE"";C20~""27. NEW"";C70~""28. RENOVATED"";C108~""NSF GSF"";C73~"
^DIPT(158,"F",18)="""NSF GSF"";C106~"
^DIPT(158,"F",19)="180,X DXS(9,9.2) S DIP(101)=$S($D(^OFM(7336.6,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;C9;Z;""H089 CHAPTER NAME:CODE""~"
^DIPT(158,"F",20)="180,X DXS(10,9.2) S DIP(101)=$S($D(^OFM(7336.6,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C24;Z;""H089 CHAPTER NAME:NAME""~"
^DIPT(158,"F",21)="180,1;R9;C70~180,2;R9;C84~180,3;R9;C103~180,4;R9;C117~""29.-30. NSF & GSF TOTALS: "";S1;C40~X DXS(11,9) W X K DIP;R9;C70;Z;""TOTAL(#180:#1)""~"
^DIPT(158,"F",22)="X DXS(12,9) W X K DIP;R9;C84;Z;""TOTAL(#180:#2)""~X DXS(13,9) W X K DIP;R9;C103;Z;""TOTAL(#180:#3)""~X DXS(14,9) W X K DIP;R9;C117;Z;""TOTAL(#180:#4)""~"
^DIPT(158,"F",23)="""31.-39. (ISSUES) SITE: "";S1;C1~237;X~""HISTORICAL: "";R23;C1~238;X~""ENVIRONMENTAL: "";R23;C1~238.5;X~""SEISMIC: "";R23;C1~239;X~"
^DIPT(158,"F",24)="""HAZARDOUS MAT'LS: "";R23;C1~240;X~""TRANSPORT: "";R23;C1~241;X~""PARKING: "";R23;C1~242;X~""IMPACT: "";R23;C1~"
^DIPT(158,"F",25)="""Information (if any) moved to Impact Justification on page 3.""~""VAF 10-1193 REVISED 5/95 p.1"";Y-4;C1~"
^DIPT(158,"H")="@"
^DIPT(158,"IOM")="132"
^DIPT(158,"LAST")="1"
^DIPT(158,"ROU")="^ENPLPB"
^DIPT(158,"ROUOLD")="ENPLPB"
^DIPT(158,"SUB")="1"
^DIPT(159,0)="ENSP-H08-9^2930420.2208^^6928^^^2930503^"
^DIPT(159,"DCL","6928^4.5")="+"
^DIPT(159,"DCL","6928^4.7")="+"
^DIPT(159,"F",2)=".01;L15~1.5;L20~2.6;L20~4.5;L5~4.7;L5~"
^DIPT(159,"H")="SPACE PLANNING PRINTOUT"
^DIPT(160,0)="ENSP-BLDG^2930421.1353^^6928.3^^^^"
^DIPT(160,"F",2)=".01~.5~1;C30~2;C30;T~3;C30;T~4;C30;T~5;T~5.1;T~6;C1;S1~7;C40~8;C1~9;C40~10;C1~11;C40~12;C1~13;C40~14~15;C40~16;C1~17;C40~18;C1~19;C1;S1~20~21,.01;C1~"
^DIPT(160,"H")="ENG BUILDING LIST"
^DIPT(161,0)="ENPLP008^2950623.1421^^6925^3^^2950623"
^DIPT(161,"%D",0)="^^1^1^2930429^^"
^DIPT(161,"%D",1,0)="This template prints page 2 of Project Application for NRM projects."
^DIPT(161,"DXS",1,9)="X DXS(1,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,25,D1)) Q:D1'>0 X $P(^DD(6925.04,3,0),U,5,99) S DIP(102)=DIP(102)+X"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(161,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(161,"DXS",2,9.2)="X $P(^DD(6925,263,0),U,5,99) S DIP(5)=X S DIP(1)=$S($D(^ENG(""PROJ"",D0,52)):^(52),1:"""") S X=$P(DIP(1),U,6),X=X S X=X'=""VHA"",DIP(2)=X S X="""",DIP(3)=X S X=1"
^DIPT(161,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,1),X=X S X=X=""Y"",DIP(2)=X"
^DIPT(161,"DXS",3,9.3)="X DXS(3,9.2) S D0=$P(DIP(1),U,2) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),DIP(102)=X S X=1,DIP(103)=X S X="""""
^DIPT(161,"DXS",4,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,1),X=X S X=X=""Y"",DIP(2)=X,DIP(3)=X S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(161,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,4),X=X S X=X=""Y"",DIP(2)=X"
^DIPT(161,"DXS",5,9.3)="X DXS(5,9.2) S D0=$P(DIP(1),U,5) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),DIP(102)=X S X=1,DIP(103)=X S X="""""
^DIPT(161,"DXS",6,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,4),X=X S X=X=""Y"",DIP(2)=X,DIP(3)=X S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(161,"DXS",7,9.2)="S I(0)=""^ENG(""""PROJ"""","",J(0)=6925 F D=0:0 S (D,D1)=$O(^ENG(""PROJ"",D0,54,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D1"
^DIPT(161,"DXS",7,9.3)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,19)):^(19),1:"""") S X=$P(DIP(1),U,7)>0,DIP(2)=X X DXS(7,9.2):D0>0 S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""N/A"""
^DIPT(161,"DXS",8,1)="CONTRACT"
^DIPT(161,"DXS",8,2)="P&H"
^DIPT(161,"DXS",8,3)="STATION LABOR"
^DIPT(161,"DXS",8,4)="SBA 8(a)"
^DIPT(161,"DXS",8,5)="DESIGN/BUILD"
^DIPT(161,"DXS",8,6)="LEASE"
^DIPT(161,"F",1)="""VHA"";Y+1;C1~""PROJECT APPLICATION"";C54~""PROJECT NUMBER"";C108~""EXECUTIVE SUMMARY"";C55~.01;L11;C112;""""~""*********** COST DATA ***********"";S1;C46~"
^DIPT(161,"F",2)="""40. CONSTRUCTION METHOD PLANNED: "";S1;C1~182;X;""""~""41. AE $ REQUIRED IN FY: "";C50~3.45;L4;X;""""~""42. CONST $ REQUIRED IN FY: "";C90~3.5;L4;X;""""~"
^DIPT(161,"F",3)="""43. NRM COSTS: "";S1;C1~""YES"";X;""""~""44. MAJOR/MINOR/MINOR MISC. COSTS: "";C60~""NO"";X;""""~""45. TOTAL M&R COSTS: "";C1~213;R11;C45;""""~"
^DIPT(161,"F",4)="""46. TOTAL BSEA COSTS: "";C1~214;R11;C45;""""~""47. TOTAL BSER COSTS: "";C1~215;R11;C45;""""~""48. TOTAL MI COSTS: "";C1~216;R11;C45;""""~"
^DIPT(161,"F",5)="""49. TOTAL CONST. COST (LOW BID): "";C1~217;R11;C45;""""~""54. TOTAL CONST. COST (LOW BID): "";C60~""50. CONST CONTCY % AND $: "";C1~218.2;R5;D1;C35;""""~"
^DIPT(161,"F",6)="""%"";C41~218.1;R11;C45;""""~""55. CONST CONTCY % AND $: "";C60~""%"";C101~""51. IMPACT COSTS: "";C1~219;R11;C45;""""~""56. IMPACT COSTS: "";C60~"
^DIPT(161,"F",7)="""52. TECHNICAL SERVICES % AND $"";C1~220;D1;R5;C35;""""~""%"";C41~220.1;R11;C45;""""~""57. TECHNICAL SERVICES % AND $"";C60~""%"";C101~"
^DIPT(161,"F",8)="""53. TOTAL PROJECT COSTS: "";S1;C1~222;R11;C45;""""~""58. TOTAL PROJECT COSTS: "";C60~""*********** ACTIVATION DATA ***********"";S1;C1~"
^DIPT(161,"F",9)="""59. ACTIVATION $ REQUIRED IN FY: "";S1;C1~187.5;L4;X;""""~""66. EQUIP OVER $250K : "";C60~X DXS(1,9) W X K DIP;R13;X;"""";Z;""TOTAL(#190.6:#3)""~"
^DIPT(161,"F",10)="""EQPMT (OVER $250K)"";C64~""60. ADDITIONAL FTEE: "";C1~"
^DIPT(161,"F",11)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,3)+0 W X K DIP;L4;X;"""";Z;""ADDITIONAL FTEE+0""~""67. VAMC SCORE: "";C60~"
^DIPT(161,"F",12)="X DXS(2,9.2) S DIP(4)=X S X=DIP(5),X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#158)'=""VHA"":"""",1:#263)""~""61. RECURRING PS $ : "";C1~"
^DIPT(161,"F",13)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,4)+0 W X K DIP;R8;C45;"""";Z;""RECURRING PS+0""~""68. REGION SCORE: "";C60~234;L3;X;""""~"
^DIPT(161,"F",14)="""62. RECURRING ALL OTHER $ : "";C1~S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,2)+0 W X K DIP;R8;C45;"""";Z;""RECURRING ALL OTHER $+0""~"
^DIPT(161,"F",15)="""63. EQUIPMENT $ : "";C1~S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,5)+0 W X K DIP;R8;C45;"""";Z;""EQUIPMENT $+0""~"
^DIPT(161,"F",16)="""64. NON-RECURRING ALL OTHER $ : "";C1~"
^DIPT(161,"F",17)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,6)+0 W X K DIP;R8;C45;"""";Z;""NONRECURRING ALL OTHER+0""~""65. TRAVEL .007 $ : "";C1~"
^DIPT(161,"F",18)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,7)+0 W X K DIP;R8;C45;"""";Z;""TRAVEL .007+0""~""69. TOTAL PROJECT SCORE: "";C60~"
^DIPT(161,"F",19)="235;L6;D2;X;""""~""*********** SIGNATURES ***********"";S1;C46~""70. CHIEF ENGINEERING SVC/DESIGNEE: "";S1;C1~"
^DIPT(161,"F",20)="X DXS(3,9.3) S X=$S(DIP(2):DIP(102),DIP(103):X) S D0=I(0,0) W X K DIP;X;"""";Z;""$S(INTERNAL(#244)=""Y"":CHIEF ENGINEER NAME:NAME,1:"""")""~""71. DATE: "";C90~"
^DIPT(161,"F",21)="X DXS(4,9.2) S DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#244)=""Y"":NUMDATE(CHIEF ENG SIGN DATE),1:"""")""~"
^DIPT(161,"F",22)="""72. DIRECTOR FACILITY/DESIGNEE: "";C1~"
^DIPT(161,"F",23)="X DXS(5,9.3) S X=$S(DIP(2):DIP(102),DIP(103):X) S D0=I(0,0) W X K DIP;X;"""";Z;""$S(INTERNAL(#247)=""Y"":VAMC DIRECTOR/DESIGNEE NAME:NAME,1:"""")""~"
^DIPT(161,"F",24)="""73. DATE: "";C90~"
^DIPT(161,"F",25)="X DXS(6,9.2) S DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#247)=""Y"":NUMDATE(VAMC DIRECTOR SIGN DATE),1:"""")""~"
^DIPT(161,"F",26)="""************************************"";S1;C46~""74. REGION PROJECT VALIDATION: "";S1;C1~""75. DATE: "";C90~""VAF 10-1193 REVISED 5/95 p.2"";Y-3;C1~"
^DIPT(161,"F",27)="R:$E(IOST,1,2)=""C-"" X:DTIME W @IOF;Z;""R:$E(IOST,1,2)=""C-"" X:DTIME W @IOF""~""VHA"";Y+1;C1~""PROJECT APPLICATION"";C54~""PROJECT NUMBER"";C108~"
^DIPT(161,"F",28)="""EXECUTIVE SUMMARY"";C55~.01;L11;C112;""""~""DETAILED PROJECT DESCRIPTION:"";S1;C1~277,.01;X;""""~""DETAILED PROJECT JUSTIFICATION:"";S1;C1~278,.01;X;""""~"
^DIPT(161,"F",29)="""IMPACT JUSTIFICATION:"";S1;C1~X DXS(7,9.3) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";Z;""$S(#219>0:IMPACT JUSTIFICATION,1:""N/A"")"";m;w~"
^DIPT(161,"F",30)="""VAF 10-1193 REVISED 5/95 p.3"";Y-3;C1~"
^DIPT(161,"H")="@"
^DIPT(161,"IOM")="132"
^DIPT(161,"LAST")="1"
^DIPT(161,"ROU")="^ENPLPA"
^DIPT(161,"ROUOLD")="ENPLPA"
^DIPT(161,"SUB")="1"
^DIPT(162,0)="ENPLP009^2970428.1605^^6925^^^2970428"
^DIPT(162,"%D",0)="^^2^2^2930429^"
^DIPT(162,"%D",1,0)="This template prints page 2 of Project Application for Major, Minor and"
^DIPT(162,"%D",2,0)="Minor Miscellaneous projects."
^DIPT(162,"DXS",1,9)="X DXS(1,9.2) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,25,D1)) Q:D1'>0 X $P(^DD(6925.04,3,0),U,5,99) S DIP(102)=DIP(102)+X"" S D(1)=D1 S X=DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(162,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(162,"DXS",2,9)="X DXS(2,9.5) S X=$S(DIP(2):DIP(3),DIP(6):DIP(8),DIP(10):DIP(12),DIP(16):DIP(18),DIP(19):X)"
^DIPT(162,"DXS",2,9.2)="X $P(^DD(6925,233,0),U,5,99) S DIP(17)=X X $P(^DD(6925,263,0),U,5,99) S DIP(11)=X S DIP(5)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),DIP(7)=$S($D(^(24)):^(24),1:"""")"
^DIPT(162,"DXS",2,9.3)="X DXS(2,9.2) S DIP(1)=$S($D(^(52)):^(52),1:"""") S X=$P(DIP(1),U,6),X=X S X=X'=""VHA"",DIP(2)=X S X="""",DIP(3)=X,DIP(4)=X S X=$P(DIP(5),U,6),X=X S X=X=""MA"""
^DIPT(162,"DXS",2,9.4)="X DXS(2,9.3) S DIP(6)=X S X=$P(DIP(7),U,8),DIP(8)=X,DIP(9)=X S X=$P(DIP(5),U,6),X=X S X=X=""NR"",DIP(10)=X S X=DIP(11),DIP(12)=X,DIP(13)=X S X=$P(DIP(5),U,6)"
^DIPT(162,"DXS",2,9.5)="X DXS(2,9.4) S X=X S X=X=""MI"",DIP(14)=X,DIP(15)=X S X=$P(DIP(5),U,6),X=X S X=X=""MM"",Y=X,X=DIP(14),X=X!Y,DIP(16)=X S X=DIP(17),DIP(18)=X S X=1,DIP(19)=X S X="""""
^DIPT(162,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,1),X=X S X=X=""Y"",DIP(2)=X"
^DIPT(162,"DXS",3,9.3)="X DXS(3,9.2) S D0=$P(DIP(1),U,2) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),DIP(102)=X S X=1,DIP(103)=X S X="""""
^DIPT(162,"DXS",4,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,1),X=X S X=X=""Y"",DIP(2)=X,DIP(3)=X S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(162,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,4),X=X S X=X=""Y"",DIP(2)=X"
^DIPT(162,"DXS",5,9.3)="X DXS(5,9.2) S D0=$P(DIP(1),U,5) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),DIP(102)=X S X=1,DIP(103)=X S X="""""
^DIPT(162,"DXS",6,9.2)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(DIP(1),U,4),X=X S X=X=""Y"",DIP(2)=X,DIP(3)=X S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(162,"DXS",7,9.2)="S I(0)=""^ENG(""""PROJ"""","",J(0)=6925 F D=0:0 S (D,D1)=$O(^ENG(""PROJ"",D0,54,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D1"
^DIPT(162,"DXS",7,9.3)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,19)):^(19),1:"""") S X=$P(DIP(1),U,7)>0,DIP(2)=X X DXS(7,9.2):D0>0 S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""N/A"""
^DIPT(162,"DXS",8,1)="CONTRACT"
^DIPT(162,"DXS",8,2)="P&H"
^DIPT(162,"DXS",8,3)="STATION LABOR"
^DIPT(162,"DXS",8,4)="SBA 8(a)"
^DIPT(162,"DXS",8,5)="DESIGN/BUILD"
^DIPT(162,"DXS",8,6)="LEASE"
^DIPT(162,"F",1)="""VHA"";Y+1;C1~""PROJECT APPLICATION"";C54~""PROJECT NUMBER"";C108~""EXECUTIVE SUMMARY"";C55~.01;L11;C112;""""~""*********** COST DATA ***********"";S1;C46~"
^DIPT(162,"F",2)="""40. CONSTRUCTION METHOD PLANNED: "";S1;C1~182;X;""""~""41. AE $ REQUIRED IN FY: "";C50~3.45;L4;X;""""~""42. CONST $ REQUIRED IN FY: "";C90~3.5;L4;X;""""~"
^DIPT(162,"F",3)="""43. NRM COSTS: "";S1;C1~""NO"";X;""""~""44. MAJOR/MINOR/MINOR MISC. COSTS: "";C60~""YES"";X;""""~""45. TOTAL M&R COSTS: "";C1~""46. TOTAL BSEA COSTS: "";C1~"
^DIPT(162,"F",4)="""47. TOTAL BSER COSTS: "";C1~""48. TOTAL MI COSTS: "";C1~""49. TOTAL CONST. COST (LOW BID): "";C1~""54. TOTAL CONST. COST (LOW BID): "";C60~221;R11;C105;""""~"
^DIPT(162,"F",5)="""50. CONST CONTCY % AND $: "";C1~""%"";C41~""55. CONST CONTCY % AND $: "";C60~218.3;R5;D1;C95;""""~""%"";C101~218.1;R11;C105;""""~""51. IMPACT COSTS: "";C1~"
^DIPT(162,"F",6)="""56. IMPACT COSTS: "";C60~219;R11;C105;""""~""52. TECHNICAL SERVICES % AND $"";C1~""%"";C41~""57. TECHNICAL SERVICES % AND $"";C60~220;D1;R5;C95;""""~""%"";C101~"
^DIPT(162,"F",7)="220.1;R11;C105;""""~""53. TOTAL PROJECT COSTS: "";S1;C1~""58. TOTAL PROJECT COSTS: "";C60~"" "";C104~222;R11;X;""""~"
^DIPT(162,"F",8)="""*********** ACTIVATION DATA ***********"";S1;C1~""59. ACTIVATION $ REQUIRED IN FY: "";S1;C1~187.5;L4;X;""""~""66. EQUIP OVER $250K : "";C60~"
^DIPT(162,"F",9)="X DXS(1,9) W X K DIP;R13;X;"""";Z;""TOTAL(#190.6:#3)""~""EQPMT (OVER $250K)"";C64~""60. ADDITIONAL FTEE: "";C1~"
^DIPT(162,"F",10)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,3)+0 W X K DIP;L4;X;"""";Z;""(#189+0)""~""67. VAMC SCORE: "";C60~"
^DIPT(162,"F",11)="X DXS(2,9) W X K DIP;X;"""";Z;""$S(INTERNAL(#158)'=""VHA"":"""",INTERNAL(#155)=""MA"":#209.1,INTERNAL(#155)=""NR"":#263,INTERNAL(#155)=""MI""!(INTERNAL(#155)=""MM""):#233,1:"""")""~"
^DIPT(162,"F",12)="""61. RECURRING PS $ : "";C1~S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,4)+0 W X K DIP;R8;C45;"""";Z;""(#190+0)""~"
^DIPT(162,"F",13)="""68. REGION SCORE: "";C60~234;L3;X;""""~""62. RECURRING ALL OTHER $ : "";C1~"
^DIPT(162,"F",14)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,2)+0 W X K DIP;R8;C45;"""";Z;""(#188+0)""~""63. EQUIPMENT $ : "";C1~"
^DIPT(162,"F",15)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,5)+0 W X K DIP;R8;C45;"""";Z;""(#190.2+0)""~""64. NON-RECURRING ALL OTHER $ : "";C1~"
^DIPT(162,"F",16)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,6)+0 W X K DIP;R8;C45;"""";Z;""(#190.3+0)""~""65. TRAVEL .007 $ : "";C1~"
^DIPT(162,"F",17)="S DIP(1)=$S($D(^ENG(""PROJ"",D0,24)):^(24),1:"""") S X=$P(DIP(1),U,7)+0 W X K DIP;R8;C45;"""";Z;""(#190.4+0)""~""69. TOTAL PROJECT SCORE: "";C60~235;L6;D2;X;""""~"
^DIPT(162,"F",18)="""*********** SIGNATURES ***********"";S1;C46~""70. CHIEF ENGINEERING SVC/DESIGNEE: "";S1;C1~"
^DIPT(162,"F",19)="X DXS(3,9.3) S X=$S(DIP(2):DIP(102),DIP(103):X) S D0=I(0,0) W X K DIP;X;"""";Z;""$S(INTERNAL(#244)=""Y"":CHIEF ENGINEER NAME:NAME,1:"""")""~""71. DATE: "";C90~"
^DIPT(162,"F",20)="X DXS(4,9.2) S DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#244)=""Y"":NUMDATE(CHIEF ENG SIGN DATE),1:"""")""~"
^DIPT(162,"F",21)="""72. DIRECTOR FACILITY/DESIGNEE: "";C1~"
^DIPT(162,"F",22)="X DXS(5,9.3) S X=$S(DIP(2):DIP(102),DIP(103):X) S D0=I(0,0) W X K DIP;X;"""";Z;""$S(INTERNAL(#247)=""Y"":VAMC DIRECTOR/DESIGNEE NAME:NAME,1:"""")""~"
^DIPT(162,"F",23)="""73. DATE: "";C90~"
^DIPT(162,"F",24)="X DXS(6,9.2) S DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#247)=""Y"":NUMDATE(VAMC DIRECTOR SIGN DATE),1:"""")""~"
^DIPT(162,"F",25)="""************************************"";S1;C46~""74. REGION PROJECT VALIDATION: "";S1;C1~""75. DATE: "";C90~""VAF 10-1193 REVISED 5/95 p.2"";Y-3;C1~"
^DIPT(162,"F",26)="R:$E(IOST,1,2)=""C-"" X:DTIME W @IOF;Z;""R:$E(IOST,1,2)=""C-"" X:DTIME W @IOF""~""VHA"";Y+1;C1~""PROJECT APPLICATION"";C54~""PROJECT NUMBER"";C108~"
^DIPT(162,"F",27)="""EXECUTIVE SUMMARY"";C55~.01;L11;C112;""""~""DETAILED PROJECT DESCRIPTION:"";S1;C1~277,.01;X;""""~""DETAILED PROJECT JUSTIFICATION:"";S1;C1~278,.01;X;""""~"
^DIPT(162,"F",28)="""IMPACT JUSTIFICATION:"";S1;C1~X DXS(7,9.3) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";m;w;Z;""$S(#219>0:IMPACT JUSTIFICATION,1:""N/A"")""~"
^DIPT(162,"F",29)="""VAF 10-1193 REVISED 5/95 p.3"";Y-3;C1~"
^DIPT(162,"H")="@"
^DIPT(162,"IOM")="132"
^DIPT(162,"LAST")="1"
^DIPT(162,"ROU")="^ENPLPD"
^DIPT(162,"ROUOLD")="ENPLPD"
^DIPT(162,"SUB")="1"
^DIPT(163,0)="ENXKFAP^2960222.1431^^6914^^^^"
^DIPT(163,"F",1)=".01;""ENTRY#"";L10~S DIP(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X W X K DIP;""TYPE"";L4;Z;""INTERNAL(#7)""~34;L11;""CAPITALIZED""~"
^DIPT(163,"F",2)="12;""VALUE"";L12~19;L5~18;""CSN"";L11~20;L14~"
^DIPT(163,"H")="EQUIPMENT OF POSSIBLE INTEREST TO FAP"
^DIPT(164,0)="GECS READY FOR BATCHING^2900816.1837^^2100^0^^2940909"
^DIPT(164,"DCL","2100^.01")="!"
^DIPT(164,"F",2)=".01;C1;L10;~.6~5;L3~6;L2~2~7;C67~"
^DIPT(164,"H")="GENERIC CODE SHEET STATISTICS"
^DIPT(165,0)="GECS READY FOR TRANSMISSION^2890103^^2100^^^2941221"
^DIPT(165,"DCL","2100^.01")="!"
^DIPT(165,"F",2)=".01;C1~.6~7~9~"
^DIPT(165,"H")="GENERIC CODE SHEET STATISTICS"
^DIPT(166,0)="GECS TRANSMIT LIST^2890103^^2100^^^2941108"
^DIPT(166,"F",2)="50,.01~"
^DIPT(166,"H")="GENERIC CODE SHEET LIST"
^DIPT(167,0)="GECS BATCHES WAITING^2890103^^2101.3^^^2940909"
^DIPT(167,"DCL","2101.3^.01")="!"
^DIPT(167,"F",2)=".01;C1;L20~.1;C22~.7~.8;L20~"
^DIPT(167,"H")="GENERIC CODE SHEET TRANSMISSION RECORD STATISTICS"
^DIPT(168,0)="GECS BATCH STATUS^2890824^^2101.3^1^^2941209"
^DIPT(168,"F",2)=".1;C1~.01~4~4.5,.01~"
^DIPT(168,"H")="GENERIC CODE SHEET TRANSMISSION RECORD LIST "
^DIPT(169,0)="GECS TRANSMISSION^2890316^^2100^^^2931209"
^DIPT(169,"F",1)="50,.01;C1~"
^DIPT(169,"F",2)="50,I X]"""" S ^UTILITY(""GECSBATCH"",GECSBATC,GECSMM,GECSCNT,0)=X,GECSCNT=GECSCNT+1;"""";Z;""I X]"""" S ^UTILITY(""GECSBATCH"",GECSBATC,GECSMM,GECSCNT,0)=X,GECSCNT=GECSCNT+1""~"
^DIPT(169,"F",3)="S GECSCOUN=GECSCOUN+1 I GECSCOUN>GECSMAX S GECSMM=GECSMM+1,GECSCOUN=1,GECSCNT=1;"""";Z;""S GECSCOUN=GECSCOUN+1 I GECSCOUN>GECSMAX S GECSMM=GECSMM+1,GECSCOUN=1,GECSCNT=1""~"
^DIPT(169,"F",4)="S ^UTILITY(""GECSLIST"",GECSBATC,D0)="""";"""";Z;""S ^UTILITY(""GECSLIST"",GECSBATC,D0)=""""""~"
^DIPT(169,"H")="GENERIC CODE SHEET STATISTICS"
^DIPT(170,0)="ORB RECIP TOTALS^2950922.1452^^8992^^^2950922"
^DIPT(170,"DXS",1,9)="X DXS(1,9.2) X ""F D1=0:0 S D1=$O(^XTV(8992,D0,""""XQA"""",D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(170,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(170,"F",2)=".01;""NAME""~X DXS(1,9) W X K DIP;Z;""COUNT(ALERT DATE/TIME)""~"
^DIPT(170,"H")="ALERT LIST"
^DIPT(173,0)="GMRA PRINT AUTOVERIFIED^2950502.1617^^120.8^^^2960229^"
^DIPT(173,"DXS",1,9)="X DXS(1,9.3) S DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) S Y=X,X=DIP(4),X=X_Y_"")"" S D0=I(0,0)"
^DIPT(173,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=19"
^DIPT(173,"DXS",1,9.3)="X DXS(1,9.2) S X=$E(DIP(2),DIP(3),X)_"" ("",DIP(4)=X,D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9)"
^DIPT(173,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.101)):^(.101),1:"""")"
^DIPT(173,"DXS",3,9)="X DXS(3,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=$S('$D(^GMRD(120.83,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(173,"DXS",3,9.2)="S DIP(1)=$S($D(^GMR(120.8,D0,10,D1,0)):^(0),1:"""") S X=$S('$D(^GMRD(120.83,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))=""OTHER REACTION"",DIP(2)=X S X=$P(DIP(1),U,2)"
^DIPT(173,"F",1)="X DXS(1,9) W X K DIP;C1;""PATIENT"";L25;S1;Z;""$E(PATIENT,1,19)_"" (""_$E(PATIENT:SSN,6,9)_"")""""~"
^DIPT(173,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;C27;""ROOM-BED"";L10;Z;""PATIENT:ROOM-BED""~"
^DIPT(173,"F",3)="S DIP(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),DIP(2)=X S X=1,DIP(3)=X S X=25,X=$E(DIP(2),DIP(3),X) W X K DIP;C39;""REACTANT"";Z;""$E(REACTANT,1,25)""~"
^DIPT(173,"F",4)="S DIP(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,17),X=$P(X,""."",1) S Y=X D DT K DIP;C67;L13;""VER. DATE"";Z;""DATE(VERIFICATION DATE)""~"
^DIPT(173,"F",5)="""ORIGIN.:"";C3~5;""""~""SIGNS:"";C5~10,X DXS(3,9) W X K DIP;Z;""$S(REACTION=""OTHER REACTION"":OTHER REACTION,1:REACTION)""~""COMMENTS:"";C2~26,2,.01;""""~"
^DIPT(173,"H")="[GMRA PRT AUTO HDR]"
^DIPT(174,0)="GMRA PRT AUTO HDR^2960229.0812^^120.8^^^2960229"
^DIPT(174,"DXS",1,9.2)="S X=""GMRAVFR"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=+X S X=X<1,DIP(1)=X S X=""FIRST"""
^DIPT(174,"DXS",1,9.3)="X DXS(1,9.2) S DIP(2)=X S X=1,DIP(3)=X,DIP(4)=X,DIP(5)=X S X=""GMRAVFR"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X"
^DIPT(174,"DXS",2,9.2)="S X="" TO "",DIP(1)=X,DIP(2)=X,DIP(3)=X S X=""GMRAVTO"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X"
^DIPT(174,"DXS",2,9.3)="X DXS(2,9.2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(2),X=X S X=X+Y<1,DIP(4)=X S X=""LAST"",DIP(5)=X S X=1,DIP(6)=X,DIP(7)=X,DIP(8)=X S X=""GMRAVTO"""
^DIPT(174,"DXS",2,9.4)="X DXS(2,9.3) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(174,"F",1)="S X=DT S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C1;L8;Z;""NUMDATE(TODAY)""~""LIST OF AUTOVERIFIED ALLERGIES FROM "";C12;L36~"
^DIPT(174,"F",2)="X DXS(1,9.3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X,X=$S(DIP(1):DIP(2),DIP(3):X) W X K DIP;C48;L8;Z;""$S(+NUMDATE(PARAM(""GMRAVFR""))<1:""FIRST"",1:NUMDATE(PARAM(""GMRAVFR"")))""~"
^DIPT(174,"F",3)="X DXS(2,9.4) S X=$S(DIP(4):DIP(5),DIP(6):X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C56;L12;Z;"""" TO ""_$S(+NUMDATE(PARAM(""GMRAVTO""))<1:""LAST"",1:NUMDATE(PARAM(""GMRAVTO"")))""~"
^DIPT(174,"F",4)="S X=""Page: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C72;L8;Z;""""Page: ""_PAGE""~""PATIENT"";C1;S1~""ROOM-BED"";C27~"
^DIPT(174,"F",5)="""REACTANT"";C39~""VER. DATE"";C67~""------------------------------------------------------------------------------"";C1~"
^DIPT(174,"H")="@"
^DIPT(174,"SUB")="1"
^DIPT(175,0)="GMTS COMP LIST^2940422.0732^^142.1^^^2951013^"
^DIPT(175,"F",1)=""
^DIPT(175,"F",2)="S DIP(1)=$S($D(^GMT(142.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$S($L($P(DIP(1),U,9)):$P(DIP(1),U,9),1:$P(DIP(1),U)) W X K DIP;""Component Name"";Z;""GMTS COMPONENT NAME(NAME)""~"
^DIPT(175,"F",3)="3;""Abbr."";C24~4;""Occur. Limits?"";C31~2;""Time Limits?"";C40~10;""Hosp. Loc.?"";C49~11;""ICD Text?"";C56~12;""Prov. Narr.?"";C63~5;""Disabled?"";C71~"
^DIPT(175,"H")="HEALTH SUMMARY COMPONENT LIST"
^DIPT(176,0)="GMTS TYPE LIST^2910520.0921^^142^^^2950907^"
^DIPT(176,"F",1)=".01;""Health Summary Type"";L25;C1~.06;""Owner"";C33;L20~.05;""Lock"";C58;L20~"
^DIPT(176,"F",2)="I $D(^GMT(142,D0,""T"")),(^GMT(142,D0,""T"")[""GMTS"") W ""** ""_^GMT(142,D0,""T"")_"" **"";C3;X;Z;""I $D(^GMT(142,D0,""T"")),(^GMT(142,D0,""T"")[""GMTS"") W ""** ""_^GMT(142,D0,""T"")_"" **""""~"
^DIPT(176,"H")="HEALTH SUMMARY TYPE LIST"
^DIPT(177,0)="GMTS TYPE INQ HEADER^3070327.1348^^142^^^3070925"
^DIPT(177,"F",1)="""HEALTH SUMMARY TYPE INQUIRY"";C24~"" Type Name:"";C1;S1~.01~"" Title:"";C1~.02~"" Owner:"";C1~.06~"""";C44~"
^DIPT(177,"F",2)="W:$P($G(^GMT(142,D0,0)),""^"",2)'="""" ""LOCK: "";Z;""W:$P($G(^GMT(142,D0,0)),""^"",2)'="""" ""LOCK: """"~.05;C53;L25~"
^DIPT(177,"F",3)="""SUPPRESS PRINT OF COMPONENTS WITHOUT DATA:"";C1~.08~""SUPPRESS SENSITIVE PRINT DATA:"";C1~100~"
^DIPT(177,"F",4)=""" Max Hos ICD Pro CPT"";C1;S1~"
^DIPT(177,"F",5)="""Abb Ord Component Name Occ Time Loc Text Nar Mod Selection"";C1~"
^DIPT(177,"F",6)="""------------------------------------------------------------------------------"";C1~"
^DIPT(177,"H")="@"
^DIPT(177,"SUB")="1"
^DIPT(178,0)="GMTS TYPE INQ^3000821.1057^^142^^^3011221^"
^DIPT(178,"DXS")="3"
^DIPT(178,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^GMT(142,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^GMT(142.1,+D0,0)) D0=-1"
^DIPT(178,"DXS",2,9)="W $S($L($P(X,U,5)):$E($P(X,U,5),1,20),$P(^GMT(142.1,$P(X,U,2),0),U,9)]"""":$E($P(^(0),U,9),1,20),1:$E($P(^GMT(142.1,$P(X,U,2),0),U),1,20))"
^DIPT(178,"F",1)="1,X DXS(1,9.2) S DIP(101)=$S($D(^GMT(142.1,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,4) S D0=I(0,0) S D1=I(1,0) W X K DIP;C1;L4;Z;""COMPONENT:ABBREV""~"
^DIPT(178,"F",2)="1,.01;C7;L4~1,"""";C10~1,I $P(X,U,2),$P(^GMT(142.1,$P(X,U,2),0),U,6)'="""" W ""*"";Z;""I $P(X,U,2),$P(^GMT(142.1,$P(X,U,2),0),U,6)'="""" W ""*""""~1,"""";C13~"
^DIPT(178,"F",3)="1,X DXS(2,9);Z;""W $S($L($P(X,U,5)):$E($P(X,U,5),1,20),$P(^GMT(142.1,$P(X,U,2),0),U,9)]"""":$E($P(^(0),U,9),1,20),1:$E($P(^GMT(142.1,$P(X,U,2),0),U),1,20))""~"
^DIPT(178,"F",4)="1,2;C36;L3~1,3;C41;L4~1,6;C47;L3~1,7;C52;L5~1,8;C58;L3~1,9;C63;L3~1,4,.01;C68;L(IOM-68)~"
^DIPT(178,"H")="[GMTS TYPE INQ HEADER]-[GMTS TYPE INQ FOOTER]"
^DIPT(179,0)="GMTS TYPE INQ FOOTER^2901011.1808^^142^^^3010917^"
^DIPT(179,"F",2)=""" * = Disabled Components"";C1~"
^DIPT(179,"H")="@"
^DIPT(179,"SUB")="1"
^DIPT(180,0)="GMTS TASK LOCATIONS LIST^2920211.0945^^142^^^2951019^"
^DIPT(180,"F",1)="20,.01;L25;""Location""~20,.02;L10;C27;""Device""~"
^DIPT(180,"F",2)="20,I $P(X,U,2),'$D(^%ZIS(1,$P(X,U,2),0)) W "" (Invalid)"";X;Z;""I $P(X,U,2),'$D(^%ZIS(1,$P(X,U,2),0)) W "" (Invalid)""""~20,.04;L5;C39;""Print Days Ahead""~"
^DIPT(180,"F",3)="20,.03;L5;C46;""Print Action Profile""~.01;L20;C55;""Health Summary Type""~"
^DIPT(180,"H")="Batch Health Summary Locations List"
^DIPT(181,0)="GMTS COMP DESC LIST^2911125.1546^^142.1^^^2950906^"
^DIPT(181,"F",1)=""
^DIPT(181,"F",2)="S DIP(1)=$S($D(^GMT(142.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S X=$S($L($P(DIP(1),U,9)):$P(DIP(1),U,9),1:$P(DIP(1),U)) W X K DIP;""Component Name"";C1;Z;""GMTS COMPONENT NAME(NAME)""~"
^DIPT(181,"F",3)="3;""Abbrev."";C35~3.5,.01;""Description"";C4~"" "";C1;X~"
^DIPT(181,"H")="HEALTH SUMMARY COMPONENT DESCRIPTION LIST"
^DIPT(182,0)="GMTS COMP INQ^2940426.0728^^142.1^^^2951018^"
^DIPT(182,"F",1)="""Component Name:"";C19~.01;C36;X~""Display Name:"";C21~9;C36;X~""Abbreviation:"";C21~3;C36;X~"
^DIPT(182,"F",2)="I $D(GMTSY) W:$D(^GMT(142.1,GMTSY,1,0)) !,?18,""Selection File:"";Z;""I $D(GMTSY) W:$D(^GMT(142.1,GMTSY,1,0)) !,?18,""Selection File:""""~7,.01;C36;X~"
^DIPT(182,"F",3)="7,I $D(GMTSY) W:$D(^GMT(142.1,GMTSY,1,0)) !,?10,""Max Selections Allowed:"";Z;""I $D(GMTSY) W:$D(^GMT(142.1,GMTSY,1,0)) !,?10,""Max Selections Allowed:""""~"
^DIPT(182,"F",4)="7,1;C36;X~""Time Limits Apply:"";C16~I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",3)'=""Y"" ""NO"";Z;""I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",3)'=""Y"" ""NO""""~2;X~"
^DIPT(182,"F",5)="""Max Occurrences Apply:"";C12~I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",5)'=""Y"" ""NO"";Z;""I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",5)'=""Y"" ""NO""""~4;X~"
^DIPT(182,"F",6)="""Hospital Location Display Apply:"";C2~"
^DIPT(182,"F",7)="I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",10)'=""Y"" ""NO"";Z;""I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",10)'=""Y"" ""NO""""~10;X~""ICD Text Display Apply:"";C11~"
^DIPT(182,"F",8)="I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",11)'=""Y"" ""NO"";Z;""I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",11)'=""Y"" ""NO""""~11;X~"
^DIPT(182,"F",9)="""Provider Narrative Display Apply:"";C1~"
^DIPT(182,"F",10)="I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",12)'=""Y"" ""NO"";Z;""I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",12)'=""Y"" ""NO""""~12;X~""Component Disabled:"";C15~"
^DIPT(182,"F",11)="I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",6)']"""""""" ""NO"";Z;""I $D(GMTSY) W:$P(^GMT(142.1,GMTSY,0),""^"",6)']"""""""" ""NO""""~5;X~""Description:"";S2;C10~"" "";C10~"
^DIPT(182,"F",12)="3.5,.01;C10;L55;X~"
^DIPT(182,"H")="@"
^DIPT(182,"SUB")="1"
^DIPT(183,0)="GMTS COMP INQ HEADER^2910107.1539^^142.1^^^2951018^"
^DIPT(183,"F",2)="""HEALTH SUMMARY COMPONENT INQUIRY"";C20~"" "";C10;S2~"
^DIPT(183,"H")="@"
^DIPT(183,"SUB")="1"
^DIPT(184,0)="VALM LIST TEMPLATE^2921119.1221^^409.61^^^^"
^DIPT(184,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(409.61,.02,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" Type: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(184,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(409.61,.07,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" Ok to Transport?: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(184,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(409.61,.08,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X=""Use Cursor Control: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(184,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(409.61,.14,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X=""Use 'Hidden' Protocols: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,14)_"":"",2),$C(59),1)"
^DIPT(184,"F",1)=""">>> DEMOGRAPHIC"";C1~"">>> LIST REGION"";C40~"
^DIPT(184,"F",2)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" Name: ""_$P(DIP(1),U,1) W X K DIP;C1;Z;"""" Name: ""_NAME""~"
^DIPT(184,"F",3)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" Top Margin: ""_$P(DIP(1),U,5) W X K DIP;C40;Z;"""" Top Margin: ""_TOP MARGIN""~"
^DIPT(184,"F",4)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X=""Screen Title: ""_$P(DIP(1),U,11) W X K DIP;C1;Z;""""Screen Title: ""_SCREEN TITLE""~"
^DIPT(184,"F",5)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X=""Bottom Margin: ""_$P(DIP(1),U,6) W X K DIP;C40;Z;""""Bottom Margin: ""_BOTTOM MARGIN""~"
^DIPT(184,"F",6)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" Entity Name: ""_$P(DIP(1),U,9) W X K DIP;C1;Z;"""" Entity Name: ""_ENTITY""~"">>> OTHER"";C40//~"
^DIPT(184,"F",7)="X DXS(1,9) W X K DIP;C1;Z;"""" Type: ""_TYPE""~"
^DIPT(184,"F",8)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" # of Actions: ""_$P(DIP(1),U,12) W X K DIP;C40;Z;"""" # of Actions: ""_ALL""~"
^DIPT(184,"F",9)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X="" Protocol: ""_$P(DIP(1),U,10) W X K DIP;C1;Z;"""" Protocol: ""_PROTOCOL""~"
^DIPT(184,"F",10)="X DXS(2,9) W X K DIP;C40;Z;"""" Ok to Transport?: ""_OK TO TRANSPORT""~"
^DIPT(184,"F",11)="S DIP(1)=$S($D(^SD(409.61,D0,0)):^(0),1:"""") S X=""Print Prot'l: ""_$P(DIP(1),U,16) W X K DIP;C1;Z;""""Print Prot'l: ""_PRINT LIST PROTOCOL""~"
^DIPT(184,"F",12)="X DXS(3,9) W X K DIP;C40;Z;""""Use Cursor Control: ""_USE CURSOR CONTROL""~X DXS(4,9) W X K DIP;C36;Z;""""Use 'Hidden' Protocols: ""_USE HIDDEN PROTOCOLS""~"
^DIPT(184,"F",13)=""">>> CODING"";C1~"
^DIPT(184,"F",14)="S DIP(1)=$S($D(^SD(409.61,D0,""ARRAY"")):^(""ARRAY""),1:"""") S X="" Array Name:""_$E(DIP(1),1,50) W X K DIP;C40;Z;"""" Array Name:""_ARR""~"
^DIPT(184,"F",15)="S DIP(1)=$S($D(^SD(409.61,D0,""HDR"")):^(""HDR""),1:"""") S X=""Header: ""_$E(DIP(1),1,245) W X K DIP;C1;Z;""""Header: ""_HEADER CODE""~"
^DIPT(184,"F",16)="S DIP(1)=$S($D(^SD(409.61,D0,""INIT"")):^(""INIT""),1:"""") S X="" Entry: ""_$E(DIP(1),1,245) W X K DIP;C1;Z;"""" Entry: ""_ENTRY""~"
^DIPT(184,"F",17)="S DIP(1)=$S($D(^SD(409.61,D0,""FNL"")):^(""FNL""),1:"""") S X="" Exit: ""_$E(DIP(1),1,245) W X K DIP;C1;Z;"""" Exit: ""_EXIT""~"
^DIPT(184,"F",18)="S DIP(1)=$S($D(^SD(409.61,D0,""HLP"")):^(""HLP""),1:"""") S X="" Help: ""_$E(DIP(1),1,245) W X K DIP;C1;Z;"""" Help: ""_HELP""~"
^DIPT(184,"F",19)="S DIP(1)=$S($D(^SD(409.61,D0,""EXP"")):^(""EXP""),1:"""") S X=""Expand: ""_$E(DIP(1),1,245) W X K DIP;C1;Z;""""Expand: ""_EXPAND""~"">>> Caption Name"";C1;S1~"
^DIPT(184,"F",20)="""Column"";C30~""Width"";C40~""Caption"";C50~200,.01;"""";L20;C6~200,.02;"""";L3;C30~200,.03;"""";C40~200,.04;"""";L30;C50~"
^DIPT(184,"F",21)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;"""";C1;Z;""DUP(""_"",IOM)""~"
^DIPT(184,"H")="@"
^DIPT(184,"IOM")="80"
^DIPT(184,"LAST")=""
^DIPT(184,"ROU")="^VALMXP"
^DIPT(184,"ROUOLD")="VALMXP"
^DIPT(184,"SUB")="1"
^DIPT(185,0)="GMRC PROTOCOL LIST^2911007.1509^^101^^^2950701^"
^DIPT(185,"F",2)=".01;C1;L35~1;C40;L35~"
^DIPT(185,"H")="GMRC PROTOCOL LIST"
^DIPT(186,0)="GMRC PROTOCOL RPT^2911009.1821^^101^^^2950630^"
^DIPT(186,"F",1)=".01;C1;L40;S1~1;C42;L35~"" Type: "";C1~4;C17~"" Print Name: "";C39~1.11;C58~"" Package: "";C1~12;C17~""File Link: "";C42~6;C58;L20~"" Description: "";C1~"
^DIPT(186,"F",2)="3.5,.01;C17~"" Synonyms: "";C1~1.1,.01;C17;L50~"" Menu items: "";C1~10,.01;C17~10,3;C48~10,2;C60;L4~"
^DIPT(186,"H")="[GMRC PROTOCOL RPT HDR]"
^DIPT(187,0)="GMRC PROTOCOL RPT HDR^2911010.1428^^101^^^2950630^"
^DIPT(187,"F",1)="""GMRC PROTOCOL DETAILED REPORT"";C24~""The following naming conventions are used for GMRC protocols."";C1;S1~"
^DIPT(187,"F",2)="""GMRCACT - Actions GMRCPLACE - of Consultation"";C3~""GMRCOR - OE/RR Interface GMRCURGENCY - of Consultation"";C3~"
^DIPT(187,"F",3)="""GMRCR - Procedure Types GMRCT - Consult Types"";C3~""NOTE: An M suffix on one of these prefixes indicates a Menu"";C5~"
^DIPT(187,"F",4)="""----------------------------------------------------------------------------"";C1~"
^DIPT(187,"H")="@"
^DIPT(187,"SUB")="1"
^DIPT(188,0)="GMRC CONSULTS LIST^2920512.2233^^123^^^2980508^"
^DIPT(188,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^GMR(123,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'$D(^ORD(100.01,+D0,0)) D0=-1 S DIP(101)=$S($D(^ORD(100.01,D0,.1)):^(.1),1:"""")"
^DIPT(188,"DXS",2,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^GMR(123,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^SC(+D0,0)) D0=-1 S DIP(101)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0)"
^DIPT(188,"F",1)="X DXS(1,9.2) S X=$E(DIP(101),1,245) S D0=I(0,0) W X K DIP;C2;L1;Z;""OE/RR STATUS:ABBREVIATION""~9;C8;L15~D DT^GMRCSL;Z;""D DT^GMRCSL""~"
^DIPT(188,"F",2)="D PAT^GMRCSL;Z;""D PAT^GMRCSL""~X DXS(2,9) W X K DIP;L5;C72;Z;""PATIENT LOCATION:ABBREVIATION""~"
^DIPT(188,"H")="[GMRC CONSULTS LIST HEADER]"
^DIPT(189,0)="GMRC CONSULTS LIST HEADER^2950707.1136^^123^^^2980508"
^DIPT(189,"F",1)="""TO SERVICE: "";C1~1;C13~""Pt."";C72;S~""Sts Last Action Date of Request Patient SSN Loc "";C1~"
^DIPT(189,"F",2)="""-----------------------------------------------------------------------------"";C1~"
^DIPT(189,"H")="@"
^DIPT(189,"SUB")="1"
^DIPT(190,0)="DG SI LIST^2980225.1403^^2^^^2980310"
^DIPT(190,"DXS",1,9)="S DIP(1)=$S($D(^DPT(D0,""DAC"")):^(""DAC""),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3))"
^DIPT(190,"F",1)=".01;C1;L25;""Patient Name""~S DFN=D0 D PID^VADPT6 W VA(""BID"");C28;L5;""PT ID"";Z;""S DFN=D0 D PID^VADPT6 W VA(""BID"")""~.1;C35;L20;""Ward Location""~"
^DIPT(190,"F",2)=".101;C60;L20;""Room-Bed""~.08;C85;L30;""Religious Preference""~"
^DIPT(190,"F",3)="X DXS(1,9) W X K DIP;C120;L11;""Date Placed on SI List"";Z;""NUMDATE4(DATE ENTERED ON SI LIST)""~"
^DIPT(190,"H")="SERIOUSLY ILL LIST"
^DIPT(191,0)="DG FEMALE INPATIENTS^2910131.1448^^2^^^^"
^DIPT(191,"F",2)=".01;L20~S DFN=D0 D PID^VADPT6 W VA(""PID"");L12;""PT ID"";Z;""S DFN=D0 D PID^VADPT6 W VA(""PID"")""~.1;L8~.101;L10~.105;""ADMITTED"";L18~"
^DIPT(191,"H")="FEMALE INPATIENT LIST"
^DIPT(192,0)="DGDISPOSTIONS^3050310.1251^^2^^^3050315"
^DIPT(192,"DXS",1,9.2)="S DIP(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1)"
^DIPT(192,"DXS",2,9.2)="S DIP(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=$G(X),DIP(3)=$G(X) S X=$P(DIP(1),U,6)"
^DIPT(192,"DXS",2,9.3)="X DXS(2,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S X=X,DIP(4)=$G(X) S X=1"
^DIPT(192,"F",1)=""
^DIPT(192,"F",2)="1000,S DIP(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""LOG-IN"";L10;Z;""NUMDATE4(LOG IN DATE/TIME)""~"
^DIPT(192,"F",3)="1000,X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;"""";C12;Z;""TIME(LOG IN DATE/TIME)""~"
^DIPT(192,"F",4)="1000,S DIP(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""LOG-OUT"";L10;C22;Z;""NUMDATE4(LOG OUT DATE TIME)""~"
^DIPT(192,"F",5)="1000,X DXS(2,9.3) S DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;"""";C33;Z;""$S(LOG OUT DATE TIME:TIME(LOG OUT DATE TIME),1:"""")""~"
^DIPT(192,"F",6)="1000,S L1=^DPT(D0,""DIS"",D1,0) D PRO^DGDISPL W $J(PT,8);""PROCESS"";C43;Z;""S L1=^DPT(D0,""DIS"",D1,0) D PRO^DGDISPL W $J(PT,8)""~1000,6;L18;C54~"
^DIPT(192,"F",7)="S DFN=D0 D PID^VADPT6 W VA(""PID"");L14;""PT ID"";C74;Z;""S DFN=D0 D PID^VADPT6 W VA(""PID"")""~.01;L20;C89~1000,8;L15~"
^DIPT(192,"H")="DISPOSITION TOTAL LOG"
^DIPT(193,0)="DG FEMALE HISTORICAL^2901109.1102^^2^^^^"
^DIPT(193,"F",1)=".01;L20~S DFN=D0 D PID^VADPT6 W VA(""PID"");L12;""PT ID"";Z;""S DFN=D0 D PID^VADPT6 W VA(""PID"")""~"
^DIPT(193,"F",2)="S DG1=^UTILITY($J,""DG"",D0);X;Z;""S DG1=^UTILITY($J,""DG"",D0)""~"
^DIPT(193,"F",3)="S %=$S($D(^DIC(42,+$P(DG1,U,4),0)):$P(^(0),U,1),1:"""") W $E(%,1,9);""WARD"";Z;""S %=$S($D(^DIC(42,+$P(DG1,U,4),0)):$P(^(0),U,1),1:"""") W $E(%,1,9)""~"
^DIPT(193,"F",4)="W $P(DG1,U,10);""ROOM-BED"";L10;Z;""W $P(DG1,U,10)""~S Y=+DG1 X ^DD(""DD"") W Y;""ADMITTED"";Z;""S Y=+DG1 X ^DD(""DD"") W Y""~"
^DIPT(193,"H")="FEMALE INPATIENTS"
^DIPT(194,0)="DGNOTE^2920724.0831^^48^^^^"
^DIPT(194,"DXS",1,9)="X DXS(1,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(194,"DXS",1,9.2)="S X=18"
^DIPT(194,"DXS",2,9)="X DXS(2,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(194,"DXS",2,9.2)="S X=15"
^DIPT(194,"DXS",3,9)="X DXS(3,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(194,"DXS",3,9.2)="S X=8"
^DIPT(194,"F",1)="S DGVREL=D0;X;Z;""S DGVREL=D0""~10,.01;C1;W85;""""~"""";S2;""""~""A. NEW OPTIONS"";C1;""""~"" -----------"";C1;""""~15,.01;C5;L80;S1;""""~"
^DIPT(194,"F",2)="15,D NO^DGNOTE;X;Z;""D NO^DGNOTE""~15,1,.01;C5;W85;""""~"""";S2;""""~""B. CHANGED OPTIONS"";C1;""""~"" ---------------"";C1;""""~20,.01;C5;L80;S1;""""~"
^DIPT(194,"F",3)="20,D CO^DGNOTE;X;Z;""D CO^DGNOTE""~20,1,.01;C5;W85;""""~"""";S2;""""~""C. DELETED OPTIONS"";C1;""""~"" ---------------"";C1;""""~25,.01;C5;L80;""""~"""";S2;""""~"
^DIPT(194,"F",4)="X DXS(1,9) W X K DIP;"""";X;Z;""PAGEFEED(18)""~""D. NEW ROUTINES"";C1;""""~"" ------------"";C1;""""~"""";S;""""~D NR^DGNOTE;X;Z;""D NR^DGNOTE""~"""";S2;""""~"
^DIPT(194,"F",5)="X DXS(2,9) W X K DIP;"""";X;Z;""PAGEFEED(15)""~""E. DELETED ROUTINES"";C1;""""~"" ----------------"";C1;""""~"""";S;""""~D DR^DGNOTE;X;Z;""D DR^DGNOTE""~"""";S2;""""~"
^DIPT(194,"F",6)="X DXS(3,9) W X K DIP;"""";X;Z;""PAGEFEED(8)""~""F. SUGGESTED ROUTINES FOR MAPPING (DSM)"";C1;""""~"" ------------------------------------"";C1;""""~"""";S;""""~"
^DIPT(194,"F",7)="D M^DGNOTE;X;Z;""D M^DGNOTE""~"""";S2;""""~""G. PTF COMMENTS"";C1;""""~"" -----------"";C1;""""~46,.01;C5;W85;""""~"""";S2;""""~""H. RUG-II COMMENTS"";C1;""""~"
^DIPT(194,"F",8)=""" ---------------"";C1;""""~47,.01;C5;W85;""""~"""";S2;""""~""I. BILLING COMMENTS"";C1;""""~"" ----------------"";C1;""""~49,.01;C5;W85;""""~"""";S2;""""~"
^DIPT(194,"F",9)="""J. SCHEDULING COMMENTS"";C1;""""~"" ---------------"";C1;""""~49.5,.01;C1;W85;""""~"""";S2;""""~""K. IRT COMMENTS"";C1;""""~"" ------------"";C1'""""~"
^DIPT(194,"F",10)="49.8,.01;C5;W85;""""~"""";S2;""""~""L. DISCRETIONARY WORKLOAD COMMENTS"";C1;""""~"" -------------------------------"";C1:""""~49.7,.01;C5;W85;""""~"""";S2;""""~"
^DIPT(194,"F",11)="""M. FILE (DD) CHANGES"";C1;""""~"" -----------------"";C1;""""~45,.01;C5;W85;""""~"""";S2;""""~""N. NEW SECURITY KEYS"";C1;""""~"" -----------------"";C1;""""~"
^DIPT(194,"F",12)="16,.01;C5;L80;S;""""~16,D NK^DGNOTE;X;Z;""D NK^DGNOTE""~16,1,.01;C5;W85;""""~"""";S2;""""~""O. NEW MAIL GROUPS"";C1;""""~"" ---------------"";C1;""""~"
^DIPT(194,"F",13)="17,.01;C5;L80;S;""""~17,D MG^DGNOTE;X;Z;""D MG^DGNOTE""~17,1,.01;C5;W85;""""~"""";S2;""""~""P. CLOSING COMMENTS"";C1;""""~"" ----------------"";C1;""""~"
^DIPT(194,"F",14)="50,.01;C5;W85;""""~"
^DIPT(194,"H")="MAS VERSION 5.2 RELEASE NOTES"
^DIPT(195,0)="DGOPENDISPOSITIONS^3050310.1256^^2^^^3050315"
^DIPT(195,"F",2)="1000,.01~1000,S DFN=D0 D PID^VADPT6 W VA(""PID"");L14;""PT ID"";Z;""S DFN=D0 D PID^VADPT6 W VA(""PID"")""~.01~"
^DIPT(195,"H")="PATIENT LIST"
^DIPT(196,0)="DGWAIT LIST^2890125^^42.5^^^^"
^DIPT(196,"F",2)="10,.01;C1;L20~10,1;L14~10,1.5;L16~10,2~10,3;""SC"";L3~"
^DIPT(196,"H")="PATIENTS ON WAITING LIST"
^DIPT(197,0)="DGPTF^3040309.1045^^45^^^3040319"
^DIPT(197,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(197,"DXS",2,9)="S PTF=D0,(DGADM,AD)=$P(^DGPT(D0,0),U,2),DFN=+^(0),DGST=$P(^(0),U,6),DGPR=1 D PM^DGPTUTL,GETD^DGPTF"
^DIPT(197,"F",1)=".01;L30~70~2~X DXS(1,9) W X K DIP;""SSN"";C1;Z;""PATIENT:SSN""~0;""PTF #"";C30~6;C60~"
^DIPT(197,"F",2)="X DXS(2,9);X;Z;""S PTF=D0,(DGADM,AD)=$P(^DGPT(D0,0),U,2),DFN=+^(0),DGST=$P(^(0),U,6),DGPR=1 D PM^DGPTUTL,GETD^DGPTF""~"
^DIPT(197,"F",3)="S DGPR=1 D EN^DGPTFMO;X;Z;""S DGPR=1 D EN^DGPTFMO""~D INQ^DGPTFM7;X;Z;""D INQ^DGPTFM7""~D PF^DGPTFM3;X;Z;""D PF^DGPTFM3""~"
^DIPT(197,"H")="PTF RECORD"
^DIPT(198,0)="DGUNRELEASED^2940912.1302^^45.84^^^^"
^DIPT(198,"DCL","45.84^-1")="!"
^DIPT(198,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DIPT(198,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(198,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(198,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DIPT(198,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DGPT(D0,70)):^(70),1:"""")"
^DIPT(198,"F",1)=""
^DIPT(198,"F",2)="S DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""Close out date"";L8;Z;""NUMDATE(CLOSE OUT DATE)""~"
^DIPT(198,"F",3)="X DXS(1,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0);""Patient"";L20;;;Z;""PTF:PATIENT"";!~"
^DIPT(198,"F",4)="X DXS(2,9) W X K DIP;""SSN"";L9;Z;""PTF:PATIENT:SSN""~"
^DIPT(198,"F",5)="X DXS(3,9.2) S X=$P(DIP(101),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X S D0=I(0,0) W X K DIP;""Admission"";L8;Z;""NUMDATE(PTF:ADMISSION DATE)""~"
^DIPT(198,"F",6)="X DXS(4,9.2) S X=$P(DIP(101),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X S D0=I(0,0) W X K DIP;""Discharge"";L8;Z;""NUMDATE(PTF:DISCHARGE DATE)""~"
^DIPT(198,"F",7)="3;""Closed out by"";L12~"
^DIPT(198,"H")="Unreleased closed out PTF records"
^DIPT(199,0)="DGICD^2901101.15^^45^^^^"
^DIPT(199,"DXS",1,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(199,"F",1)=".01;L20~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT:SSN""~"
^DIPT(199,"F",2)="S DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=$P(X,""."",1) S Y=X D DT K DIP;""ADMISSION DATE"";L11;Z;""DATE(ADMISSION DATE)""~"
^DIPT(199,"F",3)="S DIP(1)=$S($D(^DGPT(D0,70)):^(70),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;""DISCHARGE DATE"";L11;Z;""DATE(DISCHARGE DATE)""~2.2;L10~"
^DIPT(199,"F",4)="0;""PTF #"";L7~S DGZT=$S(^UTILITY($J,""DG"",0)=""D"":""ICD"",1:""Op Co."")_"" "";X;Z;""S DGZT=$S(^UTILITY($J,""DG"",0)=""D"":""ICD"",1:""Op Co."")_"" """"~"
^DIPT(199,"F",5)="D OUT^DGPTFIC;""FOUND______DATE________CODE"";L30;Z;""D OUT^DGPTFIC""~I 'DG5 S DJ=$S($D(DJ):DJ,1:0)+1,DTOT=1;X;Z;""I 'DG5 S DJ=$S($D(DJ):DJ,1:0)+1,DTOT=1""~"
^DIPT(199,"F",6)="K %D,DGZT,%I;X;Z;""K %D,DGZT,%I""~"
^DIPT(199,"H")="PTF LIST"
^DIPT(200,0)="DGOPENPTF^2860306^^45^^^^"
^DIPT(200,"DCL","45^0")="!"
^DIPT(200,"F",1)=".01;L20~"
^DIPT(200,"F",2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""SSN"";Z;""PATIENT:SSN""~"
^DIPT(200,"F",3)="2~70;""DISCHARGE DATE""~0;""PTF #""~71~"
^DIPT(200,"H")="List of Open PTF Records"
^DIPT(201,0)="DGUPDATE^2860114^^45^^^^"
^DIPT(201,"F",1)=".01~2~0~D CHECK^DGPTFOU;X;Z;""D CHECK^DGPTFOU""~"
^DIPT(201,"H")="PTF UPDATE"
^DIPT(202,0)="DGTEST^2860115^^42^^^^"
^DIPT(202,"F",1)="300,.91~300,.92~300,.93~300,.94~300,.95~300,.96~300,.97~"
^DIPT(202,"H")="WARD LOCATION LIST"
^DIPT(203,0)="DGCODING REPORT^2901025.1036^^45^^^^"
^DIPT(203,"DCL","45^-1")="+"
^DIPT(203,"DCL","45^.01")="!"
^DIPT(203,"DXS",1,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(203,"DXS",2,9)="X DXS(2,9.2) X ""F D1=0:0 S D1=$N(^DGPT(D0,""""M"""",D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(203,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(203,"DXS",3,9)="X DXS(3,9.2) X ""F D1=0:0 S D1=$N(^DGPT(D0,""""S"""",D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(203,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(203,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S DIP(101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DIPT(203,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S DIP(101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DIPT(203,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S DIP(101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DIPT(203,"F",1)=".01;L20~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT:SSN""~"
^DIPT(203,"F",2)="S DIP(1)=$S($D(^DGPT(D0,70)):^(70),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;""DISCHARGE DATE"";L12;Z;""DATE(DISCHARGE DATE)""~"
^DIPT(203,"F",3)="X DXS(2,9);""# PM"";L4;;;;;;Z;""COUNT(501)"";+~X DXS(3,9);""# SURG"";L4;;;;;Z;""COUNT(401)"";+~"
^DIPT(203,"F",4)="X DXS(4,9.2) S X=$S('$D(^VA(200,+$P(DIP(101),U,3),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""CLOSED BY"";L15;Z;""CLOSE OUT FILE:LAST CLOSED OUT BY""~"
^DIPT(203,"F",5)="X $P(^DD(45,7.2,0),U,5,99) S DIP(1)=X S X=DIP(1),X=$P(X,""."",1) S Y=X D DT K DIP;""ON"";L12;Z;""DATE(CLOSE OUT DATE)""~"
^DIPT(203,"F",6)="X DXS(5,9.2) S X=$S('$D(^VA(200,+$P(DIP(101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""RELEASED BY"";L15;Z;""CLOSE OUT FILE:RELEASED BY""~"
^DIPT(203,"F",7)="X DXS(6,9.2) S X=$P(DIP(101),U,4),X=$P(X,""."",1) S X=X S D0=I(0,0) S Y=X D DT K DIP;""ON"";L12;Z;""DATE(CLOSE OUT FILE:RELEASE DATE)""~"
^DIPT(203,"H")="CODING REPORT"
^DIPT(204,0)="DGADTRESVB^2900517.0904^^41.1^^^^"
^DIPT(204,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.36)):^(.36),1:"""")"
^DIPT(204,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.13)):^(.13),1:"""")"
^DIPT(204,"F",1)=".01;L16~X DXS(1,9.2) S X=$P(DIP(101),U,4) S D0=I(0,0) W X K DIP;L5;C18;""PT ID"";Z;""PATIENT:PRIMARY SHORT""~4;C25;L25~"
^DIPT(204,"F",2)="S DIP(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C51;""DATE"";L8;Z;""NUMDATE(RESERVATION DATE/TIME)""~"
^DIPT(204,"F",3)="8;L10~9;""TREAT SPCL"";L14~5;L15~6;L4~X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;L14;""PHONE #"";Z;""PATIENT:PHONE NUMBER [RESIDENCE]""~"
^DIPT(204,"H")="SCHEDULED ADMISSIONS"
^DIPT(205,0)="DGTREAT^2950727.1352^^45.7^^^^"
^DIPT(205,"F",1)=".01;C1;L25~100,.01;C26;L15~100,.02;C43;L7~1;C52;L30~"
^DIPT(205,"F",2)="-42.4,^DIC(42.4,^^S I(0,0)=D0 S DIP(1)=$S($D(^DIC(45.7,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""SPECIALTY:""~-42.4,10,.01;C85;L15~"
^DIPT(205,"F",3)="-42.4,10,.02;C102;L7~10,.01;C111;L21~"
^DIPT(205,"H")="FACILITY TREATING SPECIALTY LIST"
^DIPT(206,0)="DGBED^2861107^^42^^^^"
^DIPT(206,"F",2)="S:'$D(DGIN) DGIN=1;X;Z;""S:'$D(DGIN) DGIN=1""~.01~S DWW=D0 D ^DGBED;""BEDS"";Z;""S DWW=D0 D ^DGBED""~"
^DIPT(206,"H")="BED AVAILABILITY"
^DIPT(207,0)="DGDRGENTER^2861106^^45^^^^"
^DIPT(207,"F",2)=".01~6~9~I $D(^DGP(45.84,D0,0)),DRG S $P(^(0),U,6)=DRG W ""Entered"";""ENTERED"";Z;""I $D(^DGP(45.84,D0,0)),DRG S $P(^(0),U,6)=DRG W ""Entered""""~"
^DIPT(207,"H")="DRG ENTRY"
^DIPT(208,0)="DGSCHAD^2880824^^41.1^^^^"
^DIPT(208,"F",2)=".01;C1;L25;S;""""~D TEMP^DGSCHAD3;"""";Z;""D TEMP^DGSCHAD3""~"
^DIPT(208,"H")="FUTURE SCHEDULED ADMISSION LIST"
^DIPT(209,0)="DGOD COMPLETE OPC PRINT^2890623^^408^^^^"
^DIPT(209,"DCL","408.08^1")="&"
^DIPT(209,"DCL","408.08^2")="&"
^DIPT(209,"DCL","408.08^3")="&"
^DIPT(209,"DCL","408.08^4")="&"
^DIPT(209,"DCL","408.08^5")="&"
^DIPT(209,"DCL","408.08^6")="&"
^DIPT(209,"DCL","408.08^7")="&"
^DIPT(209,"DCL","408.08^8")="&"
^DIPT(209,"F",2)=".01~4~8,.01;C1~8,1~8,2~8,3~8,4~8,5~8,6~8,7~8,8~"
^DIPT(209,"H")="DISCRETIONARY WORK STATISTICS-OUTPATIENT"
^DIPT(210,0)="DGOD COMPLETE INP PRINT^2890623^^408^^^^"
^DIPT(210,"DCL","408.08^1")="&"
^DIPT(210,"DCL","408.08^2")="&"
^DIPT(210,"DCL","408.08^3")="&"
^DIPT(210,"DCL","408.08^4")="&"
^DIPT(210,"DCL","408.08^5")="&"
^DIPT(210,"DCL","408.08^6")="&"
^DIPT(210,"DCL","408.08^7")="&"
^DIPT(210,"DCL","408.08^8")="&"
^DIPT(210,"F",2)=".01~4~9~8,.01;C1~8,1~8,2~8,3~8,4~8,5~8,6~8,7~8,8~"
^DIPT(210,"H")="DISCRETIONARY WORK STATISTICS-INPATIENT"
^DIPT(211,0)="DGPT WORKFILE^2900518.1043^^45.85^^^^"
^DIPT(211,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(211,"F",1)=".01;L20;C1~"
^DIPT(211,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=10,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) W X K DIP;""SSN"";C25;L5;Z;""$E(NAME:SSN,6,10)""~"
^DIPT(211,"F",3)="S DIP(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=$P(X,""."",1) S Y=X D DT K DIP;L12;C32;""ADMISSION DATE"";Z;""DATE(ADMISSION DATE)""~"
^DIPT(211,"F",4)=".06;L10;C46;""WARD""~S DIP(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X W X K DIP;C58;L6;""PTF NUMBER"";Z;""INTERNAL(PTF NUMBER)""~"
^DIPT(211,"F",5)="103;C66;""CENSUS NUMBER"";L6~101;C74;L7~"
^DIPT(211,"H")="CENSUS WORKFILE LIST"
^DIPT(212,0)="DGPT CENSUS INQUIRY^2901130.2135^^45^^^^"
^DIPT(212,"DXS",1,9)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X="""",X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(212,"DXS",1,9.2)="S DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),X=X S X=X=1,DIP(2)=X S X=""NOTE: This is the PTF record for the admission. Census record does not exist."""
^DIPT(212,"DXS",2,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(212,"DXS",3,9.2)="S DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),X=X S X=X=1,DIP(2)=X S X=$S('$D(D0):"""",D0<0:"""",1:D0),DIP(3)=X S X=1,DIP(4)=X,DIP(5)=X S X=$P(DIP(1),U,12)"
^DIPT(212,"DXS",4,9.2)="S DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),X=X S X=X=1,DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIPT(212,"DXS",5,9)="X DXS(5,9.2) S DIP(4)=X S X=""Census Status: ""_$P($P(DIP(5),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(212,"DXS",5,9.2)="S DIP(5)=$C(59)_$S($D(^DD(45,6,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),X=X S X=X=1,DIP(2)=X S X="""",DIP(3)=X S X=1"
^DIPT(212,"DXS",6,9)="K DGCST S PTF=D0,(DGADM,AD)=$P(^DGPT(D0,0),U,2),DFN=+^(0),DGST=$P(^(0),U,6),DGPR=1 D PM^DGPTUTL,GETD^DGPTF"
^DIPT(212,"F",1)="X DXS(1,9) W X K DIP;"""";Z;""$S(INTERNAL(#11)=1:""NOTE: This is the PTF record for the admission. Census record does not exist."",1:"""")""~.01;L30;C1~"
^DIPT(212,"F",2)="70;""CENSUS DATE"";C30~2~X DXS(2,9) W X K DIP;""SSN"";C1;Z;""PATIENT:SSN""~"
^DIPT(212,"F",3)="X DXS(3,9.2) S X=X S X=X,X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;""PTF #"";C18;Z;""$S(INTERNAL(#11)=1:NUMBER,1:INTERNAL(#12))""~"
^DIPT(212,"F",4)="X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;""CENSUS #"";C30;Z;""$S(INTERNAL(#11)=1:"""",1:NUMBER)""~"
^DIPT(212,"F",5)="X DXS(5,9) W X K DIP;"""";C41;Z;""$S(INTERNAL(#11)=1:"""",1:""Census Status: ""_STATUS)""~"
^DIPT(212,"F",6)="X DXS(6,9);X;Z;""K DGCST S PTF=D0,(DGADM,AD)=$P(^DGPT(D0,0),U,2),DFN=+^(0),DGST=$P(^(0),U,6),DGPR=1 D PM^DGPTUTL,GETD^DGPTF""~"
^DIPT(212,"F",7)="S DGPR=1 D EN^DGPTFMO;X;Z;""S DGPR=1 D EN^DGPTFMO""~"
^DIPT(212,"H")="CENSUS RECORD"
^DIPT(213,0)="DGPT CENSUS UNRELEASED^2900424.1024^^45.84^^^^"
^DIPT(213,"DCL","45.84^-1")="!"
^DIPT(213,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DIPT(213,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(213,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(213,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DIPT(213,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DGPT(D0,70)):^(70),1:"""")"
^DIPT(213,"F",1)=""
^DIPT(213,"F",2)="S DIP(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""Close out date"";L8;Z;""NUMDATE(CLOSE OUT DATE)""~"
^DIPT(213,"F",3)="X DXS(1,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0);""Patient"";L20;;;Z;""PTF:PATIENT"";!~"
^DIPT(213,"F",4)="X DXS(2,9) W X K DIP;""SSN"";L9;Z;""PTF:PATIENT:SSN""~"
^DIPT(213,"F",5)="X DXS(3,9.2) S X=$P(DIP(101),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X S D0=I(0,0) W X K DIP;""Admission"";L8;Z;""NUMDATE(PTF:ADMISSION DATE)""~"
^DIPT(213,"F",6)="X DXS(4,9.2) S X=$P(DIP(101),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X S D0=I(0,0) W X K DIP;""Census Date"";L8;Z;""NUMDATE(PTF:DISCHARGE DATE)""~"
^DIPT(213,"F",7)="3;""Closed out by"";L12~"
^DIPT(213,"H")="Unreleased closed out CENSUS records"
^DIPT(214,0)="DG ACTIVE PRIORITY GROUPS^2900525.0857^^42.55^^^^"
^DIPT(214,"F",2)=".01;C1;L15~1;C18;L50~5;C70;L4~"
^DIPT(214,"H")="PRIORITY GROUPING LIST"
^DIPT(215,0)="DGPT CENSUS CODING REPORT^2901025.1031^^45^^^^"
^DIPT(215,"DCL","45^-1")="+"
^DIPT(215,"DCL","45^.01")="!"
^DIPT(215,"DXS",1,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(215,"DXS",2,9)="X DXS(2,9.2) X ""F D1=0:0 S D1=$N(^DGPT(D0,""""M"""",D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(215,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(215,"DXS",3,9)="X DXS(3,9.2) X ""F D1=0:0 S D1=$N(^DGPT(D0,""""S"""",D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(215,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(215,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S DIP(101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DIPT(215,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S DIP(101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DIPT(215,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S DIP(101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DIPT(215,"F",1)=".01;L20~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT:SSN""~"
^DIPT(215,"F",2)="S DIP(1)=$S($D(^DGPT(D0,70)):^(70),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;""CENSUS DATE"";L12;Z;""DATE(DISCHARGE DATE)""~"
^DIPT(215,"F",3)="X DXS(2,9);""# PM"";L4;;;;;;;;;Z;""COUNT(501)"";+~X DXS(3,9);""# SURG"";L4;;;;;;;;Z;""COUNT(401)"";+~"
^DIPT(215,"F",4)="X DXS(4,9.2) S X=$S('$D(^VA(200,+$P(DIP(101),U,3),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""CLOSED BY"";L15;Z;""CLOSE OUT FILE:LAST CLOSED OUT BY""~"
^DIPT(215,"F",5)="X $P(^DD(45,7.2,0),U,5,99) S DIP(1)=X S X=DIP(1),X=$P(X,""."",1) S Y=X D DT K DIP;""ON"";L12;Z;""DATE(CLOSE OUT DATE)""~"
^DIPT(215,"F",6)="X DXS(5,9.2) S X=$S('$D(^VA(200,+$P(DIP(101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""RELEASED BY"";L15;Z;""CLOSE OUT FILE:RELEASED BY""~"
^DIPT(215,"F",7)="X DXS(6,9.2) S X=$P(DIP(101),U,4),X=$P(X,""."",1) S X=X S D0=I(0,0) S Y=X D DT K DIP;""ON"";L12;Z;""DATE(CLOSE OUT FILE:RELEASE DATE)""~"
^DIPT(215,"H")="CENSUS CODING REPORT"
^DIPT(216,0)="DGPT QUICK PROFILE^2900611.0958^^45.86^^^^"
^DIPT(216,"%D",0)="^^2^2^2950810^"
^DIPT(216,"%D",1,0)=" "
^DIPT(216,"%D",2,0)=" "
^DIPT(216,"DXS",1,0)="NO"
^DIPT(216,"DXS",1,1)="YES"
^DIPT(216,"F",1)="""Census Period Start Date: "";C1~.05;""""~""Census Period End Date: "";C1~.01;""""~"" [CENSUS DATE]""~"""";S1~"" Close-out Date: "";C1~.02;""""~"
^DIPT(216,"F",2)=""" OK to transmit PTF: "";C1~.03;""""~"""";S1~"" Currently Active Census: "";C1~.04;""""~"" WorkFile Last Updated: "";C1~.06;""""~"
^DIPT(216,"H")="Quick Parameter Profile"
^DIPT(216,"IOM")="80"
^DIPT(216,"LAST")=""
^DIPT(216,"ROU")="^DGPTXCP"
^DIPT(216,"ROUOLD")="DGPTXCP"
^DIPT(217,0)="DG PTF PT BRIEF LIST^2901030.163^^45^^^^"
^DIPT(217,"DXS",1,0)="Open"
^DIPT(217,"DXS",1,1)="Closed"
^DIPT(217,"DXS",1,2)="Released"
^DIPT(217,"DXS",1,3)="Transmitte"
^DIPT(217,"DXS",2,1)="FEE BASIS"
^DIPT(217,"F",2)="0;C1;R7;""PTF#""~6;""Status"";C10;L10~2;""Admission Date"";C25;L20~4;"""";C50;L10~"
^DIPT(217,"H")="Patient's Current PTF Records"
^DIPT(217,"IOM")="80"
^DIPT(217,"LAST")=""
^DIPT(217,"ROU")="^DGPTXB"
^DIPT(217,"ROUOLD")="DGPTXB"
^DIPT(218,0)="DG PTF NO ADMISSION^2901204.1615^^405^^^^"
^DIPT(218,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.36)):^(.36),1:"""")"
^DIPT(218,"F",1)=".03;L25~X DXS(1,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;""PT ID"";L15;Z;""PATIENT:PRIMARY LONG""~"
^DIPT(218,"F",2)="S DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$S('$D(^DGPM(+$P(DIP(1),U,14),0)):"""",1:$P(^(0),U,1)),X=$P(X,""."",1) S Y=X D DT K DIP;""ADMISSION DATE"";L15;Z;""DATE(#.14)""~"
^DIPT(218,"F",3)="S DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;""DISCHARGE DATE"";L15;Z;""DATE(#.01)""~"
^DIPT(218,"H")="No Associated PTF Record Listing"
^DIPT(219,0)="DGPM INPATIENT PRINT^2900409.1511^^405^^^^"
^DIPT(219,"DCL","405^-1")="!"
^DIPT(219,"DXS",1,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0)"
^DIPT(219,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.36)):^(.36),1:"""")"
^DIPT(219,"F",1)="X DXS(1,9);""NAME"";L15;C1;;Z;""PATIENT:NAME"";!~X DXS(2,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;""PT ID"";L12;Z;""PATIENT:PRIMARY LONG""~"
^DIPT(219,"F",2)="S DG1=^UTILITY($J,""DG"",$P(^DGPM(D0,0),U,3));X;Z;""S DG1=^UTILITY($J,""DG"",$P(^DGPM(D0,0),U,3))""~"
^DIPT(219,"F",3)="S Y=+DG1\1 X ^DD(""DD"") W Y;L12;""ADMITTED"";Z;""S Y=+DG1\1 X ^DD(""DD"") W Y""~"
^DIPT(219,"F",4)="S Y=$P(DG1,U,5)\1 I Y>1000000 X ^DD(""DD"") W Y;""LAST TRANSFER"";L12;Z;""S Y=$P(DG1,U,5)\1 I Y>1000000 X ^DD(""DD"") W Y""~"
^DIPT(219,"F",5)="S Y=$P(DG1,U,6)\1 I Y>1000000 X ^DD(""DD"") W Y;""DISCHARGE"";L12;Z;""S Y=$P(DG1,U,6)\1 I Y>1000000 X ^DD(""DD"") W Y""~"
^DIPT(219,"F",6)="S Y=+$P(DG1,U,7),Y=$S(Y=1:""PASS"",Y=2:""AA"",Y=3:""UA"",Y=4:""ASIH"",1:"""") W Y;""PASS"";L5;Z;""S Y=+$P(DG1,U,7),Y=$S(Y=1:""PASS"",Y=2:""AA"",Y=3:""UA"",Y=4:""ASIH"",1:"""") W Y""~"
^DIPT(219,"F",7)="K DG1;X;Z;""K DG1""~"
^DIPT(219,"H")="PATIENT MOVEMENT LIST"
^DIPT(220,0)="DGPMBLRV^2900713.1431^^405^^^^"
^DIPT(220,"DXS",1,9)="X DXS(1,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(220,"DXS",1,9.2)="S X=999"
^DIPT(220,"F",1)="S DFN=$P(^DGPM(D0,0),""^"",3),DGPMDA=D0 D RET^DGBLRV:DGPMDA;X;Z;""S DFN=$P(^DGPM(D0,0),""^"",3),DGPMDA=D0 D RET^DGBLRV:DGPMDA""~S L=0;X;Z;""S L=0""~"
^DIPT(220,"F",2)="X DXS(1,9) W X K DIP;X;Z;""PAGEFEED(999)""~"
^DIPT(220,"H")="@"
^DIPT(220,"SUB")="1"
^DIPT(221,0)="DGPMINPATIENT^2900405.1014^^405^^^^"
^DIPT(221,"DXS",1,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(221,"F",2)=".03;""PATIENT"";L17,C1~X DXS(1,9) W X K DIP;Z;""PATIENT:SSN""~S DG1=^UTILITY($J,""DG"",D0);X;Z;""S DG1=^UTILITY($J,""DG"",D0)""~"
^DIPT(221,"H")="PATIENT MOVEMENT LIST"
^DIPT(222,0)="DGPT EXPANDED CODE LIST^2910718.1538^^45.89^^^^"
^DIPT(222,"F",2)=".02;C1;L10;""CODE""~200;C12;L30~.01;C50;L30~.03;C90;L20~"
^DIPT(222,"H")="PTF EXPANDED CODE LIST"
^DIPT(223,0)="DGPT PRINT^2910225.1005^^45.87^^^^"
^DIPT(223,"F",1)="S DIP(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;L11;""DATE INITIATED"";Z;""DATE(DATE INITIATED)""~.02;L15~"
^DIPT(223,"F",2)=".04;L4~.05;L10~"
^DIPT(223,"F",3)="S DIP(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=$P(X,""."",1) S Y=X D DT K DIP;L11;""ADMISSION DATE"";Z;""DATE(ADMISSION DATE/TIME)""~"
^DIPT(223,"F",4)=".07;L6;""ADMITTING FACILITY""~"
^DIPT(223,"H")="SPECIAL TRANSACTION REQUEST LIST"
^DIPT(224,0)="DGBT MILES^2930209.1457^^392.1^^^2980707"
^DIPT(224,"F",2)=".01;S;L20~2;L15;C24~4;""ZIPCODE"";C44~3;C52~100,.01;""DIVISION"";L15;C8~100,2;""MILEAGE"";C25~"
^DIPT(224,"H")="BENEFICIARY TRAVEL DISTANCE LIST"
^DIPT(225,0)="DGBT REMARKS^2930209.1452^^392.1^^^2971211"
^DIPT(225,"F",2)=".01;""CITY"";S;L20~2;L15;C24~4;""ZIPCODE"";C44~100,.01;C8~100,5;X;C30~"
^DIPT(225,"H")="BENEFICIARY TRAVEL DISTANCE LIST"
^DIPT(226,0)="DGBT ZIP^2930714.1141^^392.1^^^2971211"
^DIPT(226,"F",2)=".01;L20~2;L15;C24~4;""ZIP CODE"";C44~"
^DIPT(226,"H")="BENEFICIARY TRAVEL DISTANCE LIST"
^DIPT(227,0)="DGBT CLAIM STATS^2930616.1128^^392^^^2980122"
^DIPT(227,"DCL","392^10")="&"
^DIPT(227,"DCL","392^2")="!"
^DIPT(227,"DCL","392^33")="&"
^DIPT(227,"DCL","392^9")="&"
^DIPT(227,"F",1)="2;N;C1;L21~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^DGBT(392,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""2:""~-2,.363;C23;L13;N;""PATIENT ID""~"
^DIPT(227,"F",2)=".01;L18~33~9;""AMOUNT DEDUCT""~10~51;L30~"
^DIPT(227,"H")="Claim Statistics"
^DIPT(228,0)="SDASUSP^2870521^^40.1^^^^"
^DIPT(228,"F",2)=".01~1,.01~1,.02~1,.03~1,.09~1,.116~1,.323~1,.361~1,.3611~1,.525~1,2~1,3~1,4~1,6~1,5~1,20;L18~1,21;L18~"
^DIPT(228,"H")="AMIS SAMPLE SUSPENDED RECORDS LIST"
^DIPT(232,0)="SDAMVLD^2970820.1314^^409.65^^^2980406"
^DIPT(232,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(409.65,.03,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^SDD(409.65,D0,0)):^(0),1:"""") S X=""Method: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(232,"F",1)="""Appointment Date: "";C4~.01;X;""""~""Date Update Started: "";C1~.02;X;""""~""Completed: "";C11~.05;X;""""~X DXS(1,9) W X K DIP;C14;Z;""""Method: ""_UPDATE METHOD""~"
^DIPT(232,"F",2)="S DIP(1)=$S($D(^SDD(409.65,D0,0)):^(0),1:"""") S X=""By: ""_$S('$D(^VA(200,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C18;L25;Z;""""By: ""_USER""~"
^DIPT(232,"F",3)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;"""";Z;""DUP(""_"",IOM)""~"
^DIPT(232,"H")="Appointment Status Log"
^DIPT(232,"IOM")="80"
^DIPT(232,"LAST")=""
^DIPT(232,"ROU")="^SDAMXLD"
^DIPT(232,"ROUOLD")="SDAMXLD"
^DIPT(233,0)="IB BILLING RATES^2900529.1^^399.5^^^2920708^"
^DIPT(233,"%D",0)="^^1^1^2920708^"
^DIPT(233,"%D",1,0)="List billing rates."
^DIPT(233,"F",2)=".02;L30~.03~.04~.05;L15~.06;L30~.07;""NON-STANDARD""~"
^DIPT(233,"H")="BILLING RATES LIST"
^DIPT(234,0)="IB LIST^2950810.1305^^350^^^^"
^DIPT(234,"%D",0)="^^1^1^2950725^^^^"
^DIPT(234,"%D",1,0)="Integrated Billing Action List."
^DIPT(234,"DCL","350^.01")="!"
^DIPT(234,"DCL","350^.06")="&"
^DIPT(234,"DCL","350^.07")="&"
^DIPT(234,"DXS",1,9.2)="S DIP(1)=$S($D(^IB(D0,0)):^(0),1:"""") S X=$S('$D(^IBE(350.1,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="" "",DIP(3)=X S X=2,DIP(4)=X S X=99"
^DIPT(234,"F",1)=".02;L20~.01;""REF. NO"";L10~X DXS(1,9.2) S X=$P(DIP(2),DIP(3),DIP(4),X) W X K DIP;""TYPE"";L20;Z;""$P(#.03,"" "",2,99)""~.05;L10~"
^DIPT(234,"F",2)="S DIP(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(DIP(1),U,2),X=$P(X,""."",1) S Y=X D DT K DIP;L11;""DATE ADDED"";Z;""DATE(#12)""~.06;R5~.07;""CHARGE"";R8~.08~"
^DIPT(234,"F",3)=".11;""CHARGE ID"";L12~"
^DIPT(234,"H")="INTEGRATED BILLING ACTION LIST"
^DIPT(235,0)="IB INCOMPLETE^2910318.1107^^350^^^^"
^DIPT(235,"%D",0)="^^1^1^2920708^"
^DIPT(235,"%D",1,0)="Integrated Billing Action List of entries with Status of Incomplete."
^DIPT(235,"F",1)=".02;""Patient"";L20~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IB(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~-2,.09;""SSN""~"
^DIPT(235,"F",2)=".01;""Ref. No."";L10~.08~-350.1,^IBE(350.1,^^S I(0,0)=D0 S DIP(1)=$S($D(^IB(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""ACTION TYPE:""~"
^DIPT(235,"F",3)="-350.1,.05;""TYPE"";L10~I '$D(IBPASS) S IBPASS=0;Z;""I '$D(IBPASS) S IBPASS=0""~I IBPASS D REPASS^IBAFIL;Z;""I IBPASS D REPASS^IBAFIL""~"
^DIPT(235,"H")="INTEGRATED BILLING ACTION LIST"
^DIPT(236,0)="IB CPT UPDATE ERROR^2920128.1719^@^350.41^10882^@^2920715"
^DIPT(236,"%D",0)="^^1^1^2920708^^^^"
^DIPT(236,"%D",1,0)="Update Billable Amb. Surg. Transfer Error List Report."
^DIPT(236,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^IBE(350.41,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^IBE(350.1,+D0,0)) D0=-1 S DIP(101)=$S($D(^IBE(350.1,D0,0)):^(0),1:"""")"
^DIPT(236,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^IBE(350.41,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^IBE(350.1,+D0,0)) D0=-1 S DIP(101)=$S($D(^IBE(350.1,D0,0)):^(0),1:"""")"
^DIPT(236,"F",1)=".01;N~.02~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C28;""OLD GROUP"";Z;""OLD RATE GROUP:ABBREVIATION""~"
^DIPT(236,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""NEW GROUP"";Z;""NEW RATE GROUP:ABBREVIATION""~.06~.08;W55~"
^DIPT(236,"H")="UPDATE BILLABLE AMB. SURG. ERROR LIST"
^DIPT(237,0)="IB CPT PG DISPLAY^2920205.1721^@^350.7^10882^@^2920331"
^DIPT(237,"%D",0)="^^1^1^2920708^"
^DIPT(237,"%D",1,0)="Displays a Check-off Sheets line format and associated sub-headers."
^DIPT(237,"DXS",1,9.2)="F D=0:0 S (D,D0)=$N(^SC(""AF"",I(0,0),D)) Q:D'>0 I $D(^SC(D,0)) S X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D0"
^DIPT(237,"DXS",2,9.2)="F D=0:0 S (D,D0)=$N(^IBE(350.71,""G"",I(0,0),D)) Q:D'>0 I $D(^IBE(350.71,D,0)) S X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(237,"DXS",3,0)="NO"
^DIPT(237,"DXS",3,1)="YES"
^DIPT(237,"DXS",4,2)="TWO VERTICAL"
^DIPT(237,"DXS",4,3)="THREE VERTICAL"
^DIPT(237,"DXS",5,1)="CODE/NAME/$"
^DIPT(237,"DXS",5,2)="NAME/CODE/$"
^DIPT(237,"F",1)=".01;C1;L59;S1;""""~""CHARGE"";C5;S1~""DISPLAYED"";C5~""# OF COLUMNS"";C16~""LINE FORMAT"";C33~""ASSOCIATED CLINICS"";C47~""---------"";C5~""------------"";C16~"
^DIPT(237,"F",2)="""-----------"";C33~""------------------"";C47~.02;C8;""""~.03;C16;""""~.04;C33;""""~"
^DIPT(237,"F",3)="S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0) W X K DIP;C47;"""";m;Z;""HOSPITAL LOCATION""~""SUB-HEADER"";C5;S1~""PRINT ORDER"";C67~"
^DIPT(237,"F",4)="""----------"";C5~""-----------"";C67~-350.71,^IBE(350.71,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(2,9.2) S X="""" S D0=I(0,0);Z;""AMBULATORY SURG. CHECK:""~"
^DIPT(237,"F",5)="-350.71,.01;C5;L59;""""~-350.71,.02;C67;R7;""""~"
^DIPT(237,"F",6)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;S1;"""";Z;""DUP(""-"",IOM)""~"
^DIPT(237,"H")="AMBULATORY SURGERY CHECK-OFF SHEET"
^DIPT(237,"IOM")="80"
^DIPT(237,"LAST")=""
^DIPT(237,"ROU")="^IBXCPTG"
^DIPT(237,"ROUOLD")="IBXCPTG"
^DIPT(238,0)="IB CPT CP DISPLAY^2920205.172^@^350.71^10882^@^2920608"
^DIPT(238,"%D",0)="^^1^1^2920708^"
^DIPT(238,"%D",1,0)="Displays procedures associated with a particular Check-off Sheet sub-header."
^DIPT(238,"DXS",1,9.2)="F D=0:0 S (D,D0)=$N(^IBE(350.71,""S"",I(0,0),D)) Q:D'>0 I $D(^IBE(350.71,D,0)) S X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(238,"DXS",2,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^IBE(350.71,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,6) S:'$D(^SD(409.71,+D0,0)) D0=-1 S DIP(201)=$S($D(^SD(409.71,D0,0)):^(0),1:"""")"
^DIPT(238,"F",1)=".01;C1;L59;S1;""""~""CHECK-OFF SHEET"";C2;S1~""PRINT ORDER"";C61~""---------------"";C2~""-----------"";C61~.04;C2;""""~.02;C61;R7;""""~""PROCEDURES"";C2;S1~"
^DIPT(238,"F",2)="""PRINT ORDER"";C61~""CHARGE"";C74~""----------"";C2~""-----------"";C61~""------"";C74~"
^DIPT(238,"F",3)="-350.71,^IBE(350.71,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""AMBULATORY SURG. CHECK:""~"
^DIPT(238,"F",4)="-350.71,X DXS(2,9.2) S X=$S('$D(^ICPT(+$P(DIP(201),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(100,0) W X K DIP;C2;"""";Z;""PROCEDURE:CODE""~-350.71,.01;C9;L51;""""~"
^DIPT(238,"F",5)="-350.71,.02;C61;R7;""""~-350.71,.08;C72;R8;""""~"
^DIPT(238,"F",6)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;S1;"""";Z;""DUP(""-"",IOM)""~"
^DIPT(238,"H")="AMB. SURG. CHECK-OFF SHEET PRINT FIELDS LIST"
^DIPT(238,"IOM")="80"
^DIPT(238,"LAST")=""
^DIPT(238,"ROU")="^IBXCPTC"
^DIPT(238,"ROUOLD")="IBXCPTC"
^DIPT(240,0)="IB DIVISION DISPLAY^2920205.1722^@^40.8^10882^@^2930406"
^DIPT(240,"%D",0)="^^1^1^2920708^"
^DIPT(240,"%D",1,0)="Displays wage rates and locality modifer data for a division."
^DIPT(240,"DXS",1,9.2)="F D=0:0 S (D,D0)=$N(^IBE(350.5,""C"",I(0,0),D)) Q:D'>0 I $D(^IBE(350.5,D,0)) S X=$P(^(0),U,1),Y=X D D^DIQ S X=Y S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(240,"DXS",2,0)="INACTIVE"
^DIPT(240,"DXS",2,1)="ACTIVE"
^DIPT(240,"F",1)=".01;S1;""""~""Wage"";C30;S1~""Non-Wage"";C46~""Effective Date"";C3~""Status"";C20~""Percentage"";C30~""Percentage"";C46~""Locality Modifier"";C61~""--------------"";C3~"
^DIPT(240,"F",2)="""------"";C20~""----------"";C30~""----------"";C46~""-----------------"";C61~"
^DIPT(240,"F",3)="-350.5,^IBE(350.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""BASC LOCALITY MODIFIER:""~-350.5,.01;C4;""""~-350.5,.04;C20;""""~"
^DIPT(240,"F",4)="-350.5,.05;C30;R8;D4;""""~-350.5,.06;C46;R8;D4;""""~-350.5,.07;C64;R8;D4;""""~"""";S1~"
^DIPT(240,"F",5)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(240,"H")="MEDICAL CENTER DIVISION BILLING LIST"
^DIPT(240,"IOM")="80"
^DIPT(240,"LAST")=""
^DIPT(240,"ROU")="^IBXDIVD"
^DIPT(240,"ROUOLD")="IBXDIVD"
^DIPT(241,0)="IB CLK PROD^2960823.1707^@^399^^@^2960909^"
^DIPT(241,"%D",0)="^^1^1^2920708^^^^"
^DIPT(241,"%D",1,0)="Clerk Productivity Report."
^DIPT(241,"DCL","399^-1")="&"
^DIPT(241,"DCL","399^.01")="!"
^DIPT(241,"DXS",1,9)="X DXS(1,9.4) S X=$S('$D(^VA(200,+$P(DIP(2),U,13),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(1):DIP(3),DIP(5):DIP(6),DIP(7):X)"
^DIPT(241,"DXS",1,9.2)="S DIP(2)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(1)=X"
^DIPT(241,"DXS",1,9.3)="X DXS(1,9.2) S X=$S('$D(^VA(200,+$P(DIP(2),U,2),0)):"""",1:$P(^(0),U,1)),DIP(3)=X,DIP(4)=X S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X"
^DIPT(241,"DXS",1,9.4)="X DXS(1,9.3) S X=X=""A"",DIP(5)=X S X=$S('$D(^VA(200,+$P(DIP(2),U,11),0)):"""",1:$P(^(0),U,1)),DIP(6)=X S X=1,DIP(7)=X"
^DIPT(241,"DXS",2,9.2)="S DIP(2)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(1)=X S X=$P(DIP(2),U,1),DIP(3)=X"
^DIPT(241,"DXS",2,9.3)="X DXS(2,9.2) S DIP(4)=X S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(5)=X S X=$P(DIP(2),U,10),DIP(6)=X S X=1,DIP(7)=X S X=$P(DIP(2),U,12)"
^DIPT(241,"F",1)="X DXS(1,9) W X K DIP;N;L20;Z;""$S(VAR(""IBORDER"")=""E"":ENTERED/EDITED BY,VAR(""IBORDER"")=""A"":AUTHORIZER,1:FIRST PRINTED BY)""~.07;L20~"
^DIPT(241,"F",2)="X DXS(2,9.3) S X=$S(DIP(1):DIP(3),DIP(5):DIP(6),DIP(7):X),X=$P(X,""."",1) S Y=X D DT K DIP;L15;Z;""DATE($S(VAR(""IBORDER"")=""E"":DATE ENTERED,VAR(""IBORDER"")=""E"":AUTHORIZATION DATE,1:DATE FIRST PRINTED))""~"
^DIPT(241,"F",3)=".13;""CURRENT STATUS"";L15~.01;L7~"
^DIPT(241,"F",4)="S DIP(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(DIP(1),U,1)-$P(DIP(1),U,2);R9;D2;;;Z;""(TOTAL CHARGES-OFFSET AMOUNT)"";&~"
^DIPT(241,"F",5)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~-2,.01;L20~-2,.363;""PATIENT ID"";L12~"
^DIPT(241,"H")="[IB CLK PROD HDR]"
^DIPT(242,0)="IB BILLING CLOCK HEADER^2920116.1055^^351^^^2980309^"
^DIPT(242,"%D",0)="^^1^1^2920708^^"
^DIPT(242,"%D",1,0)="Displays the header for the Patient Billing Clock Inquiry."
^DIPT(242,"DXS",1,9)="X DXS(1,9.3) S DIP(109)=X S X=9,X=$E(DIP(108),DIP(109),X) S Y=X,X=DIP(107),X=X_Y"
^DIPT(242,"DXS",1,9.2)="S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=1,DIP(103)=X S X=3,X=$E(DIP(102),DIP(103),X)_""-"",DIP(104)=X S X=$P(DIP(101),U,9)"
^DIPT(242,"DXS",1,9.3)="X DXS(1,9.2) S DIP(105)=X S X=4,DIP(106)=X S X=5,X=$E(DIP(105),DIP(106),X) S Y=X,X=DIP(104),X=X_Y_""-"",DIP(107)=X S X=$P(DIP(101),U,9),DIP(108)=X S X=6"
^DIPT(242,"F",1)=".02;L20;C1~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBE(351,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(242,"F",2)="-2,X DXS(1,9) W X K DIP;L12;C25;Z;""$E(SOCIAL SECURITY NUMBER,1,3)_""-""_$E(SOCIAL SECURITY NUMBER,4,5)_""-""_$E(SOCIAL SECURITY NUMBER,6,9)""~-2,.03;L12;C41~"
^DIPT(242,"F",3)="-2,391;L22;C57~""================================================================================"";C1~"
^DIPT(242,"H")="@"
^DIPT(242,"IOM")="80"
^DIPT(242,"LAST")=""
^DIPT(242,"ROU")="^IBXBCR2"
^DIPT(242,"ROUOLD")="IBXBCR2"
^DIPT(242,"SUB")="1"
^DIPT(243,0)="IB BILLING CLOCK INQ^2920520.0918^@^351^11416^@^2920520"
^DIPT(243,"%D",0)="^^1^1^2920708^"
^DIPT(243,"%D",1,0)="Displays the Patient Billing Clock Inquiry data."
^DIPT(243,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^IBE(351,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.36)):^(.36),1:"""")"
^DIPT(243,"DXS",2,1)="CURRENT"
^DIPT(243,"DXS",2,2)="CLOSED"
^DIPT(243,"DXS",2,3)="CANCELLED"
^DIPT(243,"F",1)="""Reference Number:"";C1;R23;~.01;L12~""Status:"";C1;R23~.04;L40~""Primary Elig. Code:"";R23;C1;S1~"
^DIPT(243,"F",2)="X DXS(1,9.2) S X=$S('$D(^DIC(8,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;L40;Z;""PATIENT:PRIMARY ELIGIBILITY CODE""~"
^DIPT(243,"F",3)="""Clock Begin Date:"";C1;S1;R23~"
^DIPT(243,"F",4)="S DIP(1)=$S($D(^IBE(351,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;L40;Z;""DATE(CLOCK BEGIN DATE)""~""Clock End Date:"";C1;R23~"
^DIPT(243,"F",5)="S DIP(1)=$S($D(^IBE(351,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10),X=$P(X,""."",1) S Y=X D DT K DIP;L40;Z;""DATE(CLOCK END DATE)""~"
^DIPT(243,"F",6)="""Number Inpatient Days:"";C1;S1;R23~.09;L40~""90 Day Inpatient Amounts"";C2;S1~""1st 90 Day Amount:"";C1;R23~.05;C24~""2nd 90 Day Amount:"";C1;R23~.06;C24~"
^DIPT(243,"F",7)="""3rd 90 Day Amount:"";C1;R23~.07;C24~""4th 90 Day Amount:"";C1;R23~.08;C24~""Date Entry Added:"";C1;S1;R23~"
^DIPT(243,"F",8)="S DIP(1)=$S($D(^IBE(351,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,2),X=$P(X,""."",1) S Y=X D DT K DIP;L40;Z;""DATE(DATE ENTRY ADDED)""~""Date Last Updated:"";C1;R23~"
^DIPT(243,"F",9)="S DIP(1)=$S($D(^IBE(351,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,4),X=$P(X,""."",1) S Y=X D DT K DIP;L40;Z;""DATE(DATE LAST UPDATED)""~""Update Reason:"";C1;R23;S1~"
^DIPT(243,"F",10)="15~"
^DIPT(243,"H")="@"
^DIPT(243,"IOM")="80"
^DIPT(243,"LAST")=""
^DIPT(243,"ROU")="^IBXBCR"
^DIPT(243,"ROUOLD")="IBXBCR"
^DIPT(243,"SUB")="1"
^DIPT(244,0)="IB APPOINTMENT TYPE^2920406.1326^@^352.1^1453^@^2920406"
^DIPT(244,"%D",0)="^^1^1^2920708^"
^DIPT(244,"%D",1,0)="Billable Appointment Type List."
^DIPT(244,"F",2)=".02~.03~.04~.05~.06~"
^DIPT(244,"H")="BILLABLE APPOINTMENT TYPE LIST"
^DIPT(245,0)="IB PURGE LIST LOG ENTRIES^2920423.1408^@^350.6^10865^@^2940224"
^DIPT(245,"%D",0)="^^1^1^2920708^"
^DIPT(245,"%D",1,0)="Integrated Billing Archive/Purge Log List."
^DIPT(245,"F",1)=".01;""LOG#"";L4~.03;L25~"
^DIPT(245,"F",2)="S DIP(1)=$S($D(^IBE(350.6,D0,1)):^(1),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;""DATE CREATED"";Z;""NUMDATE(SEARCH BEGIN DATE/TIME)""~"
^DIPT(245,"F",3)="1.03;""INITIATOR"";L20~.05;""STATUS"";L9~"
^DIPT(245,"H")="INTEGRATED BILLING ARCHIVE/PURGE LOG ENTRIES"
^DIPT(246,0)="IB PRINT THRESHOLD^2930120.104^@^354.3^1453^@^2931005"
^DIPT(246,"F",1)=".01;""EFFECTIVE DATE""~.03;""BASE RATE"";R9~.04;""1 DEPENDENT"";R9~.05;""2 DEPENDENTS"";R9~.06;""3 DEPENDENTS"";R9~.07;""4 DEPENDENTS"";R9~.08;""5 DEPENDENTS"";R9~"
^DIPT(246,"F",2)=".09;""6 DEPENDENTS"";R9~.1;""7 DEPENDENTS"";R9~.11;""8 DEPENDENTS"";R9~.12;""ADDITIONAL AMOUNT"";R9~"
^DIPT(246,"H")="BILLING THRESHOLDS LIST"
^DIPT(247,0)="IB BILLING PATIENT^2930319.1333^@^354^1453^@^2930507"
^DIPT(247,"F",1)=".01;""PATIENT"";L25~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PATIENT NAME:""~-2,.363;""PT ID"";L15~"
^DIPT(247,"F",2)="-2,.361;""PRIMARY ELIGILITY"";L20~.04;""STATUS"";L15~.05;L22;""REASON""~.03;""STATUS DATE"";L12~D CNT^IBARXEP;"""";L1;Z;""D CNT^IBARXEP""~"
^DIPT(247,"H")="BILLING PATIENT LIST"
^DIPT(248,0)="IB BILLING PATIENT SUMMARY^2930121.1011^@^354^1453^@^2930429"
^DIPT(248,"F",2)="D CNT^IBARXEP;"""";Z;""D CNT^IBARXEP""~"
^DIPT(248,"H")="BILLING PATIENT LIST"
^DIPT(248,"IOM")="80"
^DIPT(248,"LAST")=""
^DIPT(248,"ROUOLD")=""
^DIPT(249,0)="IB BILLING PAT W/INCOME^2940302.0817^@^354^1453^@^2940302"
^DIPT(249,"DXS",1,9.2)="S D=0 F S (D,D0)=$O(^DGPR(408.12,""B"",I(100,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^DGPR(408.12,D,0)) S X=$P(^(0),U,1) S:$D(^DPT(+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(249,"DXS",1,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^IBA(354,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S D(0)=D0 S I(100,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""""
^DIPT(249,"DXS",1,9.4)="X DXS(1,9.3) S I(200,0)=$S($D(D0):D0,1:"""") K DIC S DIC=""^DGMT(408.21,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y S DIP(301)=$S($D(^DGMT(408.21,D0,0)):^(0),1:"""")"
^DIPT(249,"F",1)=".01;""PATIENT"";L25;S1~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PATIENT NAME:""~"
^DIPT(249,"F",2)="-2,.363;""PT ID"";L15~-2,.361;""PRIMARY ELIGILITY"";L20~.04;""STATUS"";L15~.05;L22;""REASON""~.03;""STATUS DATE"";L12~"
^DIPT(249,"F",3)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PATIENT:""~-2,"" Phone: "";"""";C5~-2,.131;X;""""~"
^DIPT(249,"F",4)="-2,"" Address: "";"""";C5~-2,.111;"""";L25;X~-2,.112;C24;"""";L25~-2,.113;C24;"""";L25~-2,.114;"""";C24~-2,"", "";"""";X~-2,.115;"""";X~-2,"" "";"""";X~-2,.1112;"""";X~"
^DIPT(249,"F",5)="-408.21,^DGMT(408.21,^1^X DXS(1,9.4) S X=$P(DIP(301),U,1) S D0=I(0,0);Z;""PATIENT NAME:PATIENT RELATION:INDIVIDUAL ANNUAL INCOME:""~"
^DIPT(249,"F",6)="-408.21,"" Income Year: "";C5;""""~-408.21,.01;"""";X~-408.21,"" Entered On: "";"""";X~-408.21,102;"""";X~D CNT^IBARXEP;"""";Z;""D CNT^IBARXEP""~"
^DIPT(249,"F",7)="""Next Appointment: "";"""";C5~S X=.01,X=$$DAT1^IBOUTL($O(^DPT(D0,""S"",DT))) W X K DIP;"""";X;Z;""IBNEXTAPPT(.01)""~"
^DIPT(249,"F",8)="""=============================================================================="";"""";C1~"
^DIPT(249,"H")="BILLING PATIENT LIST"
^DIPT(250,0)="IB PATIENT ADDRESSES^2940302.0818^@^354^1453^@^2940309"
^DIPT(250,"F",1)=".01;S1;""""~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PATIENT:""~-2,.111;"""";C1~-2,.112;"""";C1~"
^DIPT(250,"F",2)="-2,.113;"""";C1~-2,.114;"""";C1~-2,"", "";"""";X~-2,.115;"""";X~-2,"" "";"""";X~-2,.1112;"""";X~"
^DIPT(250,"H")="PATIENTS EXEMPT FROM MEDICATION COPAYMENT"
^DIPT(251,0)="IB DO NOT USE^2930429.1049^@^354^1453^@^2930510"
^DIPT(251,"DXS",1,9)="I $G(IBLET) D SCR^IBARXEPL I $G(IBOK) S ^TMP(""IBEX LIST"",$J,$P($G(^DPT(D0,0)),U),D0)=$$PT^IBEFUNC(D0) I $G(IBTEMP) S ^DIBT(IBTEMP,1,D0)="""""
^DIPT(251,"F",1)=""
^DIPT(251,"F",2)="X DXS(1,9);"""";Z;""I $G(IBLET) D SCR^IBARXEPL I $G(IBOK) S ^TMP(""IBEX LIST"",$J,$P($G(^DPT(D0,0)),U),D0)=$$PT^IBEFUNC(D0) I $G(IBTEMP) S ^DIBT(IBTEMP,1,D0)=""""""~"
^DIPT(251,"H")="@@"
^DIPT(251,"ROUOLD")=""
^DIPT(252,0)="IB INACTIVE INS CO^2931104.1112^@^36^1453^@^2940228"
^DIPT(252,"F",1)=".01;""INSURANCE COMPANY"";L22~.111;L20;""STREET""~.114;L15~"
^DIPT(252,"F",2)="-5,^DIC(5,^^S I(0,0)=D0 S DIP(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(DIP(1),U,5),X=X S D(0)=+X;Z;""STATE:""~-5,1;""STATE"";L5~"
^DIPT(252,"F",3)="W $J($$CNT^IBCOC(D0),8);""NUMBER PATIENTS"";R8;Z;""W $J($$CNT^IBCOC(D0),8)""~"
^DIPT(252,"H")="INACTIVE INSURANCE COMPANIES WITH PATIENTS"
^DIPT(253,0)="IBNOTVER^2940218.1103^@^2^1453^@^2940309"
^DIPT(253,"DCL","2^.01")="!"
^DIPT(253,"F",1)=".01;C1;L25;""PATIENT"";S~.09;C28;L10;""PATIENT ID""~.3121,.01;C40;L25;""INSURANCE CO""~.3121,1;C68;L18;""SUBSCRIBER ID""~.3121,1.02;C89;L25;""WHO ENTERED""~"
^DIPT(253,"F",2)=".3121,1.01;C116;L12;""DATE ENTERED""~"
^DIPT(253,"H")="REPORT OF NEW, NOT VERIFIED INSURANCE ENTRIES"
^DIPT(254,0)="IBT LIST VISITS^2940223.0839^@^356^1453^@^2940318"
^DIPT(254,"F",1)=".02;L20~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~-2,.363;""PT. ID"";L13~"
^DIPT(254,"F",2)="-2,.1;L10;""WARD""~-356.6,^IBE(356.6,^^S I(0,0)=D0 S DIP(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,18),X=X S D(0)=+X;Z;""EVENT TYPE:""~"
^DIPT(254,"F",3)="-356.6,.02;""VISIT TYPE""~S DIP(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=$P(X,""."",1) S Y=X D DT K DIP;""DATE"";L11;Z;""DATE(EPISODE DATE)""~"
^DIPT(254,"F",4)=".24;""INS. CASE"";L4~.25;""RANDOM CASE""~.26;""SPECIAL COND.""~.27;""LOCAL CASE""~1.05;L12;""HOSP REVIEWER""~1.06;L12;""INS REVIEWER""~"
^DIPT(254,"H")="LIST OF VISITS REQUIRING REVIEWS"
^DIPT(255,0)="IB AB COMMENTS^2940201.1742^@^362.1^10882^@^2940317"
^DIPT(255,"DXS",1,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^IBT(356,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.0905,0),U,5,99) S DIP(201)=X"
^DIPT(255,"F",1)="-356,^IBT(356,^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""CLAIMS TRACKING ID:""~-356,.02;L20~"
^DIPT(255,"F",2)="-356,X DXS(1,9.2) S X=DIP(201) S D0=I(100,0) W X K DIP;L6;"""";Z;""PATIENT:1U4N""~-356,.18;L4~-356,.06~"
^DIPT(255,"F",3)="-399,^DGCR(399,^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""BILL NUMBER:""~-399,.01;L8~-399,.13;L7~"
^DIPT(255,"F",4)="-399,"" "";""""~-399,.06;L15~-399,"" "";""""~-399,151;L12~-399,152;L12~11,.01;C38;""""~"
^DIPT(255,"H")="IB AUTOMATED BILLING COMMENTS LIST"
^DIPT(256,0)="PRCT DATA UPLOAD STATUS^2891113^^446.4^^^^"
^DIPT(256,"F",2)="2,.01;L17~2,.02;L15~2,.03~"
^DIPT(256,"H")="BARCODE PROGRAM LIST"
^DIPT(257,0)="PRCP REPORT:NSN^2920601.112^^445^^^^"
^DIPT(257,"%D",0)="^^1^1^2930329^"
^DIPT(257,"%D",1,0)="This print template is used to print the National Stock Number Report."
^DIPT(257,"F",1)="1,-441,^PRC(441,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~1,-441,5~"
^DIPT(257,"F",2)="1,W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20);""DESCRIPTION"";Z;""W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20)""~1,W ?39,""[#"",D1,""]"";""[#MI]"";C40;Z;""W ?39,""[#"",D1,""]""""~"
^DIPT(257,"F",3)="1,7;C50;""QTY ONHAND"";R10~1,4.5;C63;R5;""UNIT""~1,""per"";""per"";C69~1,4;""ISSUE"";L;C73~"
^DIPT(257,"H")="NATIONAL STOCK NUMBER REPORT"
^DIPT(258,0)="PRCP REPORT:EMERGENCY^2940131.1215^^445^^^^"
^DIPT(258,"%D",0)="^^1^1^2930329^"
^DIPT(258,"%D",1,0)="This print template is used to print the Emergency Stock Report."
^DIPT(258,"DXS",1,9)="I $O(^PRCP(445,D0,1,D1,7,0)) W ?4,""TRANSACTION # PO # VENDOR [#V] EST DATE RECD DUE-IN"""
^DIPT(258,"F",1)="1,-441,^PRC(441,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~1,-441,5;S1~"
^DIPT(258,"F",2)="1,W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,30);""DESCRIPTION"";Z;""W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,30)""~1,W ?51,""[#"",D1,""]"";""[#MI]"";C52;Z;""W ?51,""[#"",D1,""]""""~"
^DIPT(258,"F",3)="1,4.5;C63;R5;""UNIT""~1,""per"";""per"";C69~1,4;""ISSUE"";L;C73~1,""NORM LVL EMER LVL QTY ON-HAND QTY DUE-IN QTY DUE-OUT INT ORD PT"";C8;X~1,9;C5;R11;X~"
^DIPT(258,"F",4)="1,11;C18;X;R11~1,7;C31;X;R11~1,8.1;C44;X;R11~1,8.6;C57;X;R11~1,10.3;C70;X;R11~"
^DIPT(258,"F",5)="1,X DXS(1,9);C5;X;Z;""I $O(^PRCP(445,D0,1,D1,7,0)) W ?4,""TRANSACTION # PO # VENDOR [#V] EST DATE RECD DUE-IN""""~"
^DIPT(258,"F",6)="1,20,-410,^PRCS(410,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,7,D2,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(258,"F",7)="1,20,-410,.01;X;C5~1,20,-410,D OUTST^PRCPREME;X;Z;""D OUTST^PRCPREME""~1,20,1;X;R10~"
^DIPT(258,"H")="EMERGENCY STOCK LEVEL REPORT"
^DIPT(259,0)="PRCP REPORT:LAST SOURCE^2920601.1118^^445^^^^"
^DIPT(259,"%D",0)="^^2^2^2930329^"
^DIPT(259,"%D",1,0)="This print template is used to print the Last Procurement Source"
^DIPT(259,"%D",2,0)="For Item Report."
^DIPT(259,"F",1)="1,-441,^PRC(441,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~1,-441,5~"
^DIPT(259,"F",2)="1,W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20);""DESCRIPTION"";Z;""W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20)""~1,W ?39,""[#"",D1,""]"";""[#MI]"";C40;Z;""W ?39,""[#"",D1,""]""""~"
^DIPT(259,"F",3)="1,7;C50;""QTY ONHAND"";R10~1,4.5;C63;R5;""UNIT""~1,""per"";""per"";C69~1,4;""ISSUE"";L;C73~1,D GETLAS^PRCPRLAS;X;Z;""D GETLAS^PRCPRLAS""~"
^DIPT(259,"H")="LAST PROCUREMENT SOURCE"
^DIPT(260,0)="PRCP REPORT:POSTED STOCK^2920601.1128^^445^^^^"
^DIPT(260,"%D",0)="^^1^1^2930329^"
^DIPT(260,"%D",1,0)="This print template is used to print the Posted Stock Items Report."
^DIPT(260,"DXS",1,9)="I %'="""" S %=$G(^PRCP(445,D0,1,D1,5,%,0)) W !?5,""PKG MULT per UNIT 0F RECEIPT: "",$J($P(%,""^"",3),4),"" per "",$P($G(^PRCD(420.5,+$P(%,""^"",2),0)),""^""),?50,""CONV FACTOR: "" S:$P(%,""^"",4)="""" $P(%,""^"",4)=1 W $P(%,""^"",4)"
^DIPT(260,"F",1)="1,-441,^PRC(441,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~1,-441,5;S1~"
^DIPT(260,"F",2)="1,W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20);""DESCRIPTION"";Z;""W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20)""~1,W ?39,""[#"",D1,""]"";""[#MI]"";C40;Z;""W ?39,""[#"",D1,""]""""~"
^DIPT(260,"F",3)="1,7;C50;""QTY ONHAND"";R10~1,4.5;C63;R5;""UNIT""~1,""per"";""per"";C69~1,4;""ISSUE"";L;C73~"
^DIPT(260,"F",4)="1,I '$D(PRCPWARE) S PRCPWARE=$O(^PRC(440,""AC"",""S"",0))_$C(59)_""PRCP(440,"";X;Z;""I '$D(PRCPWARE) S PRCPWARE=$O(^PRC(440,""AC"",""S"",0))_$C(59)_""PRCP(440,""""~"
^DIPT(260,"F",5)="1,S %=$O(^PRCP(445,D0,1,D1,5,""B"",PRCPWARE,0));X;Z;""S %=$O(^PRCP(445,D0,1,D1,5,""B"",PRCPWARE,0))""~"
^DIPT(260,"F",6)="1,X DXS(1,9);X;Z;""I %'="""" S %=$G(^PRCP(445,D0,1,D1,5,%,0)) W !?5,""PKG MULT per UNIT 0F RECEIPT: "",$J($P(%,""^"",3),4),"" per "",$P($G(^PRCD(420.5,+$P(%,""^"",2),0)),""^""),?50,""CONV FACTOR: "" S:$P(%,""^"",4)="""" $P(%,""^"",4)=1 W $P(%,""^"",4)""~"
^DIPT(260,"H")="POSTED STOCK ONLY REPORT"
^DIPT(261,0)="PRCP REPORT:COMPREHENSIVE^3060622.1508^^445^^^3070306"
^DIPT(261,"%D",0)="^.4001^1^1^3060621^^^"
^DIPT(261,"%D",1,0)="This print template is used to print the Comprehensive Item Report."
^DIPT(261,"DXS",1,9)="S %=$P($G(^PRC(441,D1,4,+$G(PRCPFCP),0)),U,2) S:'% %=$P($G(^PRC(441,D1,0)),U,10) W !?7 W:($P($G(^PRCP(445,D0,0)),U,3)'=""W"") ?8,""ON-DEMAND: "",$S($$ODITEM^PRCPUX2(D0,D1)=""Y"":""D"",1:""""),?29 W ""SUBACCOUNT: "",%"
^DIPT(261,"DXS",2,9)="I $P(^PRCP(445,D0,1,D1,0),""^"",26)=""Y"" W ?19,""** DELETE ITEM WHEN QTY ON HAND REACHES ZERO **"""
^DIPT(261,"F",1)="1,-441,^PRC(441,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~1,-441,5~"
^DIPT(261,"F",2)="1,W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,28);""DESCRIPTION"";Z;""W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,28)""~1,W ?49,""[#"",D1,""]"";""[#IM]"";C50;Z;""W ?49,""[#"",D1,""]""""~"
^DIPT(261,"F",3)="1,.5;""GROUP_CATEGORY_DESC"";L;C60~"
^DIPT(261,"F",4)="1,-445.6,^PRCP(445.6,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,21),X=X S D(0)=+X;Z;"".5:""~1,-445.6,2;X;L16;C65~"
^DIPT(261,"F",5)="1,X DXS(1,9);X;Z;""S %=$P($G(^PRC(441,D1,4,+$G(PRCPFCP),0)),U,2) S:'% %=$P($G(^PRC(441,D1,0)),U,10) W !?7 W:($P($G(^PRCP(445,D0,0)),U,3)'=""W"") ?8,""ON-DEMAND: "",$S($$ODITEM^PRCPUX2(D0,D1)=""Y"":""D"",1:""""),?29 W ""SUBACCOUNT: "",%""~"
^DIPT(261,"F",6)="1,""UNIT per ISSUE: "";C4~1,W $$UNIT^PRCPUX1(D0,D1,"" per "");X;Z;""W $$UNIT^PRCPUX1(D0,D1,"" per "")""~1,""QTY ON HAND: "";C7~1,7;X;L~1,""DUE-IN: "";C34~1,8.1;X;L~"
^DIPT(261,"F",7)="1,""DUE-OUT: "";C61~1,8.6;X;L~1,X DXS(2,9);C20;X;Z;""I $P(^PRCP(445,D0,1,D1,0),""^"",26)=""Y"" W ?19,""** DELETE ITEM WHEN QTY ON HAND REACHES ZERO **""""~"
^DIPT(261,"F",8)="1,""NORM STK LVL: "";C6~1,9;X;L~1,""REORDER PT: "";C30~1,10;X;L~1,""INT ORDER PT: "";C56~1,10.3;X;L~1,""EMERGENCY LVL: "";C5~1,11;X;L~1,""ISSUE MULT: "";C30~"
^DIPT(261,"F",9)="1,16;X;L~1,""MIN ISSUE QTY: "";C55~1,16.5;X;L~1,""TEMP STK LVL: "";C6~1,9.5;X;L~1,""UNTIL DATE: "";C30~1,9.6;X;L~1,""LAST COST: "";C9~1,4.7;X;L;D3~"
^DIPT(261,"F",10)="1,""LAST REC'D: "";C30~1,4.6;X;L~1,""AVERAGE COST: "";C56~1,4.8;X;L;D3~1,""MAIN STORAGE LOC: "";C2~1,5;X;L60~"
^DIPT(261,"F",11)="1,""-----POSSIBLE SOURCES (m=MANDATORY SOURCE)-----"";C16;S1~1,""VENDOR"";C6~1,""[#V]"";C38~1,""CONV FACT"";C46~1,""UNIT per REC"";C69~"
^DIPT(261,"F",12)="1,.6,I $P(^PRCP(445,D0,1,D1,5,D2,0),""^"")=$P(^PRCP(445,D0,1,D1,0),""^"",12) W ?3,""m"";X;C4;Z;""I $P(^PRCP(445,D0,1,D1,5,D2,0),""^"")=$P(^PRCP(445,D0,1,D1,0),""^"",12) W ?3,""m""""~"
^DIPT(261,"F",13)="1,.6,.01;C6;L27;X~1,.6,W ?37,""[#"",+$P(^PRCP(445,D0,1,D1,5,D2,0),""^""),""]"";X;C38;Z;""W ?37,""[#"",+$P(^PRCP(445,D0,1,D1,5,D2,0),""^""),""]""""~"
^DIPT(261,"F",14)="1,.6,S X=^PRCP(445,D0,1,D1,5,D2,0) S:+$P(X,""^"",4)=0 $P(X,""^"",4)=1 W ?45,$J($P(X,""^"",4),9);X;Z;""S X=^PRCP(445,D0,1,D1,5,D2,0) S:+$P(X,""^"",4)=0 $P(X,""^"",4)=1 W ?45,$J($P(X,""^"",4),9)""~"
^DIPT(261,"F",15)="1,.6,2;X;C69;R4~1,.6,""per "";X;C74~1,.6,1;X;L~S PRCPDOT="""",$P(PRCPDOT,""."",81)="""" W PRCPDOT;C1;X;Z;""S PRCPDOT="""",$P(PRCPDOT,""."",81)="""" W PRCPDOT""~"
^DIPT(261,"H")="COMPREHENSIVE ITEM REPORT"
^DIPT(261,"ROUOLD")=""
^DIPT(262,0)="PRCP REPORT:DUEIN^2940131.1214^^445^^^^"
^DIPT(262,"%D",0)="^^1^1^2930329^"
^DIPT(262,"%D",1,0)="This print template is used to print the Due-In Report."
^DIPT(262,"DXS",1,9)="I $O(^PRCP(445,D0,1,D1,7,0)) W ?4,""TRANSACTION # PO # VENDOR [#V] EST DELD/PART DUE-IN"""
^DIPT(262,"F",1)="1,-441,^PRC(441,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~1,-441,5;S1~"
^DIPT(262,"F",2)="1,W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20);""DESCRIPTION"";Z;""W ?19,$E($$DESCR^PRCPUX1(D0,D1),1,20)""~1,W ?41,""[#"",D1,""]"";""[#MI]"";C42;Z;""W ?41,""[#"",D1,""]""""~"
^DIPT(262,"F",3)="1,4.5;C53;R5;""UNIT""~1,""per"";""per"";C59~1,4;""ISSUE"";L;C63~1,8.1;C70;R11;""QTY DUE-IN""~"
^DIPT(262,"F",4)="1,X DXS(1,9);X;C5;Z;""I $O(^PRCP(445,D0,1,D1,7,0)) W ?4,""TRANSACTION # PO # VENDOR [#V] EST DELD/PART DUE-IN""""~"
^DIPT(262,"F",5)="1,20,-410,^PRCS(410,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445,D0,1,D1,7,D2,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(262,"F",6)="1,20,-410,.01;X;C5~1,20,-410,D OUTST^PRCPRDIN;X;Z;""D OUTST^PRCPRDIN""~1,20,1;X;R10~"
^DIPT(262,"H")="DUE-IN REPORT"
^DIPT(263,0)="PRCP POSTED DIETETIC PRINT^2920513.1601^^445.2^^^^"
^DIPT(263,"DCL","441^5")="!"
^DIPT(263,"DCL","445.2^-1")="&"
^DIPT(263,"F",1)="-441,^PRC(441,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCP(445.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=X S D(0)=+X;Z;""4:""~-441,5~-441,.05;L24~13;L6~2~"
^DIPT(263,"F",2)="S DIP(1)=$S($D(^PRCP(445.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7)*-1 W X K DIP;""AMOUNT"";Z;""QUANTITY*-1""~5;""PACK UNIT""~8;""UNIT COST""~"
^DIPT(263,"F",3)="S DIP(1)=$S($D(^PRCP(445.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9)*$P(DIP(1),U,7)*-1;""TOTAL"";;Z;""SELLING UNIT PRICE*QUANTITY*-1"";&~"
^DIPT(263,"H")="POSTED DIETETIC COST REPORT"
^DIPT(264,0)="PRCHITCAT^2881122^^441^^^^"
^DIPT(264,"DXS",1,9)="S DIP(1)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$S('$D(^PRC(440,+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=30,X=$E(DIP(2),DIP(3),X)"
^DIPT(264,"DXS",2,9.2)="S DIP(1)=$S($D(^PRC(441,D0,4,D1,0)):^(0),1:"""") S X=$S('$D(^PRC(440,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=30"
^DIPT(264,"F",1)=""
^DIPT(264,"F",2)="S DIP(1)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2)_"" #""_$P(DIP(1),U,1) W X K DIP;C0;""DESCRIPTION/ITEM#"";Z;""SHORT DESCRIPTION_"" #""_NUMBER""~"
^DIPT(264,"F",3)=".1,.01;C10;""""~X DXS(1,9) W X K DIP;C12;""MANDATORY SOURCE"";Z;""$E(MANDATORY SOURCE,1,30)""~"
^DIPT(264,"F",4)="1,X DXS(2,9.2) S X=$E(DIP(2),DIP(3),X) W X K DIP;C45;""PREFERRED VENDOR"";Z;""$E(PREFERRED VENDOR,1,30)""~"
^DIPT(264,"H")="ITEM CATALOG"
^DIPT(265,0)="PRCSCPT^2960118.1143^^410^^^2960423^"
^DIPT(265,"%D",0)="^^2^2^2890830^"
^DIPT(265,"%D",1,0)="This print template is for printing the Status of Obligation"
^DIPT(265,"%D",2,0)="Transactions Report."
^DIPT(265,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X)_""-"",DIP(4)=X S X=$P(DIP(1),U,1),DIP(5)=X S X=""-"""
^DIPT(265,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=3,X=$P(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""-"",DIP(7)=X S X=$P(DIP(1),U,1),DIP(8)=X S X=""-"",DIP(9)=X S X=5"
^DIPT(265,"F",1)=""
^DIPT(265,"F",2)="X DXS(1,9.3) S X=$P(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;""TRANS #"";S1;Z;""$P(TRANSACTION NUMBER,""-"",2)_""-""_$P(TRANSACTION NUMBER,""-"",3)_""-""_$P(TRANSACTION NUMBER,""-"",5)""~"
^DIPT(265,"F",3)="7.5;C14~"
^DIPT(265,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,7)):^(7),1:"""") S X=$P(DIP(1),U,5) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE SIGNED"";C37;Z;""NUMDATE(DATE SIGNED (APPROVED))""~"
^DIPT(265,"F",5)="S DIP(1)=$S($D(^PRCS(410,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE REQUIRED"";Z;""NUMDATE(DATE REQUIRED)""~"
^DIPT(265,"F",6)="S DIP(1)=$S($D(^PRCS(410,D0,9)):^(9),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE DELIVERED"";Z;""NUMDATE(EST. DELIVERY DATE)""~"
^DIPT(265,"F",7)="S DIP(1)=$S($D(^PRCS(410,D0,9)):^(9),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE RECEIVED BY SVC"";Z;""NUMDATE(DATE RECEIVED)""~"
^DIPT(265,"F",8)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=33,X=$E(DIP(2),DIP(3),X) W X K DIP;""VENDOR"";C2;Z;""$E(VENDOR,1,33)""~"
^DIPT(265,"F",9)="X $P(^DD(410,54,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=1,DIP(3)=X S X=35,X=$E(DIP(2),DIP(3),X) W X K DIP;C37;""STATUS"";Z;""$E(STATUS,1,35)""~"
^DIPT(265,"F",10)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X=1,DIP(3)=X S X=35,X=$E(DIP(2),DIP(3),X) W X K DIP;C2;;""OBLIGATION#"";Z;""$E(PURCHASE ORDER/OBLIGATION,1,35)""~"
^DIPT(265,"F",11)="49;C14~I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,33);C37;L33;""FIRST LINE ITEM DESCRIPTION"";Z;""I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,33)""~"
^DIPT(265,"F",12)="60,.01;C2~"
^DIPT(265,"H")="STATUS OF OBLIGATION TRANSACTIONS REPORT - CONTROL POINT "
^DIPT(266,0)="PRCSOTR^2880819^^410^^^^"
^DIPT(266,"%D",0)="^^2^2^2890830^"
^DIPT(266,"%D",1,0)="This print template is for printing the Obligation Status Report without"
^DIPT(266,"%D",2,0)="the comments."
^DIPT(266,"DCL","410^27")="&"
^DIPT(266,"F",2)=".01;S1~1;""TYPE""~27;""$ AMOUNT""~11~54;C46;L35~"
^DIPT(266,"H")="OBLIGATION STATUS REPORT"
^DIPT(267,0)="PRCSCPOQR^2941012.1424^^410^^^^"
^DIPT(267,"%D",0)="^^2^2^2890830^"
^DIPT(267,"%D",1,0)="This print template is for printing the Control Point Quarterly"
^DIPT(267,"%D",2,0)="Report."
^DIPT(267,"DXS",1,9)="X DXS(1,9.3) S DIP(11)=X S X=$P(DIP(1),U,1),DIP(12)=X S X=""-"",DIP(13)=X S X=5,X=$P(DIP(12),DIP(13),X) S Y=X,X=DIP(11),X=X_Y,X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(267,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X='$P(DIP(1),U,1),DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X,DIP(5)=X S X=$P(DIP(1),U,1),DIP(6)=X S X=""-"",DIP(7)=X S X=4"
^DIPT(267,"DXS",1,9.3)="X DXS(1,9.2) S X=$P(DIP(6),DIP(7),X)_""-"",DIP(8)=X S X=$P(DIP(1),U,1),DIP(9)=X S X=""-"",DIP(10)=X S X=3,X=$P(DIP(9),DIP(10),X) S Y=X,X=DIP(8),X=X_Y_""-"""
^DIPT(267,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(267,"DXS",3,9)="S:'$D(PRCS(2)) PRCS(2)=0 S:'$D(Y) Y=0 S T=$P(^PRCS(410,D0,0),U,2),PRCS(2)=PRCS(2)+$S(T=""A""!(T=""O""):-Y,T=""CA"":0,1:Y)"
^DIPT(267,"DXS",4,9)="S:'$D(PRCS(1)) PRCS(1)=0 S Y=$S($D(^PRCS(410,D0,4)):$P(^(4),U,8),1:0) S T=$P(^PRCS(410,D0,0),U,2),PRCS(1)=PRCS(1)+$S(T=""A""!(T=""O""):-Y,T=""CA"":0,1:Y) W $J(PRCS(1),11,2)"
^DIPT(267,"F",1)=""
^DIPT(267,"F",2)="X DXS(1,9) W X K DIP;""TRANS #"";S1;Z;""$S('TRANSACTION NUMBER:"""",1:$P(TRANSACTION NUMBER,""-"",4)_""-""_$P(TRANSACTION NUMBER,""-"",3)_""-""_$P(TRANSACTION NUMBER,""-"",5))""~"
^DIPT(267,"F",3)="X DXS(2,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;L3;""TYPE"";C14;Z;""$E(TRANSACTION TYPE,1,3)""~24;""OBLIGATION #"";C25~"
^DIPT(267,"F",4)="11;L20;C2~"
^DIPT(267,"F",5)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE COMM."";C24;Z;""NUMDATE(DATE COMMITTED)""~"
^DIPT(267,"F",6)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE OBLIG."";C34;Z;""NUMDATE(DATE OBLIGATED)""~"
^DIPT(267,"F",7)="20;""COST COMMITTED"";C44~22;""COST OBLIGATED"";C56~"
^DIPT(267,"F",8)="X DXS(3,9);"""";X;Z;""S:'$D(PRCS(2)) PRCS(2)=0 S:'$D(Y) Y=0 S T=$P(^PRCS(410,D0,0),U,2),PRCS(2)=PRCS(2)+$S(T=""A""!(T=""O""):-Y,T=""CA"":0,1:Y)""~"
^DIPT(267,"F",9)="X DXS(4,9);L10;""CP BALANCE"";C70;Z;""S:'$D(PRCS(1)) PRCS(1)=0 S Y=$S($D(^PRCS(410,D0,4)):$P(^(4),U,8),1:0) S T=$P(^PRCS(410,D0,0),U,2),PRCS(1)=PRCS(1)+$S(T=""A""!(T=""O""):-Y,T=""CA"":0,1:Y) W $J(PRCS(1),11,2)""~"
^DIPT(267,"F",10)="I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,33);C3;""FIRST LINE ITEM DESCRIPTION"";L33;Z;""I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,33)""~60,.01~48~"
^DIPT(267,"F",11)="49~"
^DIPT(267,"H")="CONTROL POINT BALANCE REPORT"
^DIPT(268,0)="PRCSFACPT^2941202.145^^410^^^^"
^DIPT(268,"%D",0)="^^1^1^2890830^"
^DIPT(268,"%D",1,0)="This print template is for printing the Fiscal Audit List."
^DIPT(268,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(268,"DXS",2,9)="S:'$D(PRCS(1)) PRCS(1)=0 S:'$D(Y) Y=0 S T=$P(^PRCS(410,D0,0),U,2),PRCS(1)=PRCS(1)+$S(T=""A""!(T=""O""):-Y,1:Y)"
^DIPT(268,"F",1)=".01;""TRANS #"";C1~32;L9;""FMS CODE"";C20~"
^DIPT(268,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,5)):^(5),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""FMS DATE"";Z;""NUMDATE(FMS DATE)""~"
^DIPT(268,"F",3)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X=1,DIP(3)=X S X=8,X=$E(DIP(2),DIP(3),X) W X K DIP;L8;C45;""PO/OBL#"";Z;""$E(PURCHASE ORDER/OBLIGATION NO,1,8)""~"
^DIPT(268,"F",4)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;""TYPE"";L3;C57;Z;""$E(TRANSACTION TYPE,1,3)""~35;C62~30;C75;""FMS $AMT""~"
^DIPT(268,"F",5)="X DXS(2,9);"""";X;Z;""S:'$D(PRCS(1)) PRCS(1)=0 S:'$D(Y) Y=0 S T=$P(^PRCS(410,D0,0),U,2),PRCS(1)=PRCS(1)+$S(T=""A""!(T=""O""):-Y,1:Y)""~22;C87;""OBL. COST""~"
^DIPT(268,"F",6)="S:'$D(PRCS(2)) PRCS(2)=0 S:'$D(Y) Y=0 S PRCS(2)=PRCS(2)+$S(T=""A""!(T=""O""):-Y,1:Y);"""";X;Z;""S:'$D(PRCS(2)) PRCS(2)=0 S:'$D(Y) Y=0 S PRCS(2)=PRCS(2)+$S(T=""A""!(T=""O""):-Y,1:Y)""~"
^DIPT(268,"F",7)="W $J(PRCS(1),11,2);L10;"" UNOBL BALANCE"";Z;""W $J(PRCS(1),11,2)""~W $J(PRCS(2),11,2);""CP UNOBL BALANCE"";L10;Z;""W $J(PRCS(2),11,2)""~"
^DIPT(268,"H")="820 RECONCILIATION REPORT"
^DIPT(269,0)="PRCH FISCAL PRINT^2861004^^442^^^^"
^DIPT(269,"F",2)="17~.01~"
^DIPT(269,"H")="PURCHASE ORDERS PRINTED IN FISCAL"
^DIPT(270,0)="PRCH TOT AMT^2970521.0929^^442^^^2970825"
^DIPT(270,"DCL","442^.01")="!"
^DIPT(270,"DCL","442^15")="+"
^DIPT(270,"DCL","442^91")="+"
^DIPT(270,"DNP")="1"
^DIPT(270,"F",2)=".01~15~91~"
^DIPT(270,"H")="PURCHASING AGENT STATISTICS "
^DIPT(272,0)="PRCH FPDS PO REG^2930224.1522^^442^^^^"
^DIPT(272,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,10) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""")"
^DIPT(272,"F",1)=".01;""PO #"";S1~"
^DIPT(272,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,15) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE"";C14;Z;""NUMDATE(P.O. DATE)""~"
^DIPT(272,"F",3)="5~W $S($D(^PRC(442,D0,2,1,1,1,0)):$E(^(0),1,44),1:"""");""DESCRIPTION"";L44;Z;""W $S($D(^PRC(442,D0,2,1,1,1,0)):$E(^(0),1,44),1:"""")""~35,.01;C108~35,1;""TC""~"
^DIPT(272,"F",4)="35,2~15;""LI""~"
^DIPT(272,"F",5)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""FCP"";L3;Z;""$P(FCP,"" "",1)""~"
^DIPT(272,"F",6)="X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""INT"";C152;L3;Z;""PURCHASING/PPM AGENT:INITIAL""~"
^DIPT(272,"H")="FPDS Purchase Order Register"
^DIPT(273,0)="PRCH PO REGISTER^2930224.1624^^442^^^2980522"
^DIPT(273,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,10) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""")"
^DIPT(273,"DXS",2,9)="S DIP(1)=$S($D(^PRC(442,D0,7)):^(7),1:"""") S X=$S('$D(^PRCD(442.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(273,"F",1)=".01;C1;""PO #"";S1~"
^DIPT(273,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,15) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE"";C14;Z;""NUMDATE(P.O. DATE)""~"
^DIPT(273,"F",3)="5~"
^DIPT(273,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DEL.DATE"";C63;Z;""NUMDATE(DELIVERY DATE)""~"
^DIPT(273,"F",5)="35,.01;C78;C78~35,1;""TC""~15;""LI""~"
^DIPT(273,"F",6)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""FCP"";Z;""$P(FCP,"" "",1)""~"
^DIPT(273,"F",7)="X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""INT"";C106;Z;""PURCHASING/PPM AGENT:INITIAL""~.6,0;""PARTIAL"";C112~"
^DIPT(273,"F",8)=".6,S DIP(1)=$S($D(^PRC(442,D0,11,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;""DATE"";C121;Z;""NUMDATE(DATE)""~"
^DIPT(273,"F",9)="X DXS(2,9) W X K DIP;""STATUS"";Z;""$E(#.5,1,20)""~"
^DIPT(273,"H")="SUPPLY PURCHASE ORDER REGISTER"
^DIPT(274,0)="PRCH IMP POREG^2960412.1525^^442^^^2980902"
^DIPT(274,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,10) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""")"
^DIPT(274,"F",1)=".01;S1;C1;L11;""PO #""~"
^DIPT(274,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,15) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE"";C13;Z;""NUMDATE(P.O. DATE)""~"
^DIPT(274,"F",3)="35,.01;R9.2;~35,1;""TC""~15;""LI""~"
^DIPT(274,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""FCP"";L3;Z;""$P(FCP,"" "",1)""~"
^DIPT(274,"F",5)="X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""INT"";L5;Z;""PURCHASING/PPM AGENT:INITIAL""~"
^DIPT(274,"F",6)="5;L24~20,.01;~"
^DIPT(274,"H")="IMPREST FUND REGISTER"
^DIPT(275,0)="PRCH PO STATUS^2870109^^442^^^^"
^DIPT(275,"F",2)=".01~.1~.5~16~19.2~"
^DIPT(275,"H")="INCOMPLETE PURCHASE ORDERS"
^DIPT(276,0)="PRCSTOR^2890306^^410^^^^"
^DIPT(276,"%D",0)="^^2^2^2890830^"
^DIPT(276,"%D",1,0)="This print template is for printing the Control Point's Classification"
^DIPT(276,"%D",2,0)="of Request Report."
^DIPT(276,"DCL","410^20")="&"
^DIPT(276,"DCL","410^22")="&"
^DIPT(276,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(276,"DXS",2,9.2)="S I(0)=""^PRCS(410,"",J(0)=410 F D=0:0 S (D,D1)=$N(^PRCS(410,D0,""CO"",D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D1"
^DIPT(276,"F",1)="24;L6;C1;""OBL#""~"
^DIPT(276,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=5,X=$P(DIP(2),DIP(3),X) W X K DIP;""TRANS#"";C9;L4;Z;""$P(TRANSACTION NUMBER,""-"",5)""~"
^DIPT(276,"F",3)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;L4;""TYPE"";C17;Z;""$E(TRANSACTION TYPE,1,3)""~"
^DIPT(276,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=29,X=$E(DIP(2),DIP(3),X) W X K DIP;L14;""VENDOR"";Z;""$E(VENDOR,1,29)""~"
^DIPT(276,"F",5)="20;""COMM $"";~22;""OBL $"";~"
^DIPT(276,"F",6)="X DXS(2,9.2):D0>0 S X="""",DIP(1)=X S X=1,DIP(2)=X S X=78,X=$E(DIP(1),DIP(2),X) W X K DIP;C2;""COMMENTS"";m;w;Z;""$E(COMMENTS,1,78)""~"
^DIPT(276,"H")="CLASSIFICATION OF REQUEST REPORT"
^DIPT(277,0)="PRCH REQUEST LIST^2970825.1506^^443^^^2970908"
^DIPT(277,"DCL","443^-1")="&"
^DIPT(277,"DXS",1,9)="S DIP(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.3,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=33,X=$E(DIP(2),DIP(3),X)"
^DIPT(277,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(443,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCS(410,D0,7)):^(7),1:"""")"
^DIPT(277,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(443,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCS(410,D0,4)):^(4),1:"""")"
^DIPT(277,"F",1)=".01;""2237 NUMBER""~X DXS(1,9) W X K DIP;""STATUS"";Z;""$E(CURRENT STATUS,1,33)""~"
^DIPT(277,"F",2)="I $D(^PRCS(410,D0,1)) W $P(^(1),""^"",3);""PRIORITY"";C57;Z;""I $D(^PRCS(410,D0,1)) W $P(^(1),""^"",3)""~"
^DIPT(277,"F",3)="X DXS(2,9.2) S X=$P(DIP(101),U,5) S D0=I(0,0) S Y=X D DT K DIP;""DATE APP BY CPO"";C2;Z;"".01:44"";L18~7;C25~"
^DIPT(277,"F",4)="X DXS(3,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0);""AMOUNT"";C65;D2;;;;;;Z;"".01:TRANSACTION $ AMOUNT"";&~"
^DIPT(277,"H")="OUTSTANDING 2237 REPORT "
^DIPT(278,0)="PRCH REQUEST SVC^2870224^^443^^^^"
^DIPT(278,"DCL","443^-1")="#"
^DIPT(278,"DNP")="1"
^DIPT(278,"F",1)=""
^DIPT(278,"F",2)="X $P(^DD(443,5,0),U,5,99) S DIP(2)=X X $P(^DD(443,5.2,0),U,5,99) S DIP(1)=X S X=DIP(1),X1=X,X2=DIP(2),X="""" D:X2 ^%DTC:X1;""DATE REQUIRED-DATE REQUESTED"";Z;""(#5.2-#5)"";#~"
^DIPT(278,"H")="REQUEST WORKSHEET STATISTICS"
^DIPT(279,0)="PRCFA CALM TRANSMIT^2930219.1453^^423^^^^"
^DIPT(279,"F",1)=".01;S;C1~999.1;C10;L3;""TECH""~.2,.01;C15;X~"
^DIPT(279,"F",2)=".2,S ^TMP(""PRCFCALM"",$J,BATTYPE,BATCH,PRCFX,0)=X,PRCFX=PRCFX+1;Z;""S ^TMP(""PRCFCALM"",$J,BATTYPE,BATCH,PRCFX,0)=X,PRCFX=PRCFX+1""~"
^DIPT(279,"H")="[PRCFA CALM HEADER]"
^DIPT(280,0)="PRCFA CALM HEADER^2930222.1117^^423^^^^"
^DIPT(280,"F",1)="S:'$D(BATCH) BATCH="""";Z;""S:'$D(BATCH) BATCH=""""""~S:'$D(BATTYPE) BATTYPE="""";Z;""S:'$D(BATTYPE) BATTYPE=""""""~""CALM/FEE TRANSMISSION RECORD"";C1~""DATE: "";C45~"
^DIPT(280,"F",2)="D NOW^PRCFQ W %X;Z;""D NOW^PRCFQ W %X""~""TRANSMITTED BY: "";C1~"
^DIPT(280,"F",3)="W $S($D(^VA(200,DUZ)):$P(^VA(200,DUZ,0),""^""),1:""UNKNOWN"");Z;""W $S($D(^VA(200,DUZ)):$P(^VA(200,DUZ,0),""^""),1:""UNKNOWN"")""~""BATCH TYPE: "";C1~.6~"
^DIPT(280,"F",4)="S BATTYPE=$P(^PRCF(423.9,$P(X,U,4),0),U,6);Z;""S BATTYPE=$P(^PRCF(423.9,$P(X,U,4),0),U,6)""~""BATCH NUMBER: "";C45~.7~"
^DIPT(280,"F",5)="I BATCH'=$P(X,U,5) S BATCH=$P(X,U,5),PRCFX=1;Z;""I BATCH'=$P(X,U,5) S BATCH=$P(X,U,5),PRCFX=1""~"
^DIPT(280,"F",6)="W ! F I=1:1:$S(IOM<96:IOM,1:96) W ""_"";Z;""W ! F I=1:1:$S(IOM<96:IOM,1:96) W ""_""""~W !,?50;Z;""W !,?50""~"
^DIPT(280,"H")="@"
^DIPT(280,"SUB")="1"
^DIPT(281,0)="PRCFA BATCH LISTING HEADER^2930222.1127^^423^^^^"
^DIPT(281,"F",1)="""CODE SHEET BATCH PREPARATION LISTING"";C1~""DATE: "";C45~D NOW^PRCFQ W %X;Z;""D NOW^PRCFQ W %X""~"
^DIPT(281,"F",2)="S DIP(1)=$S($D(^PRCF(423,D0,""TRANS"")):^(""TRANS""),1:"""") S X=""TRANSMISSION NUMBER: ""_$P(DIP(1),U,8) W X K DIP;C1;Z;""""TRANSMISSION NUMBER: ""_TRANSMISSION NUMBER""~"
^DIPT(281,"F",3)="""BATCHED BY: "";C45~W $P(^VA(200,DUZ,0),""^"",1);Z;""W $P(^VA(200,DUZ,0),""^"",1)""~"
^DIPT(281,"F",4)="S DIP(1)=$S($D(^PRCF(423,D0,""TRANS"")):^(""TRANS""),1:"""") S X=""BATCH NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C1;Z;""""BATCH NUMBER: ""_BATCH NUMBER""~"
^DIPT(281,"F",5)="S DIP(1)=$S($D(^PRCF(423,D0,""TRANS"")):^(""TRANS""),1:"""") S X=""BATCH TYPE: ""_$S('$D(^PRCF(423.9,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""BATCH TYPE: ""_BATCH TYPE""~"
^DIPT(281,"F",6)="K X S $P(X,""_"",$S(IOM<96:IOM+1,1:96))="""" W !,X,!,?50;Z;""K X S $P(X,""_"",$S(IOM<96:IOM+1,1:96))="""" W !,X,!,?50""~"
^DIPT(281,"H")="@"
^DIPT(281,"SUB")="1"
^DIPT(282,0)="PRCFA BATCH LISTING TRAILER^2920825.1623^^423^^^^"
^DIPT(282,"F",2)=".01;S;C1~999.1;C10;L3;""TECH""~N TAB S TAB=15 D PRINT^PRCFACP2;Z;""N TAB S TAB=15 D PRINT^PRCFACP2""~"
^DIPT(282,"H")="[PRCFA BATCH LISTING HEADER]"
^DIPT(283,0)="PRCFA REPRINT HEADER^2930222.113^^423^^^^"
^DIPT(283,"F",1)="""CALM/FEE REPRINT LISTING * * THIS IS A REPRINT * * DATE:"";C1~D NOW^PRCFQ W %X;Z;""D NOW^PRCFQ W %X""~"
^DIPT(283,"F",2)="S DIP(1)=$S($D(^PRCF(423,D0,""TRANS"")):^(""TRANS""),1:"""") S X=""TRANSMISSION NUMBER: ""_$P(DIP(1),U,8) W X K DIP;C1;Z;""""TRANSMISSION NUMBER: ""_TRANSMISSION NUMBER""~"
^DIPT(283,"F",3)="""REPRINTED BY:"";C45~W $S($D(^VA(200,DUZ,0)):$P(^(0),""^""),1:""UNKNOWN"");Z;""W $S($D(^VA(200,DUZ,0)):$P(^(0),""^""),1:""UNKNOWN"")""~"
^DIPT(283,"F",4)="S DIP(1)=$S($D(^PRCF(423,D0,""TRANS"")):^(""TRANS""),1:"""") S X=""BATCH NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C1;Z;""""BATCH NUMBER: ""_BATCH NUMBER""~"
^DIPT(283,"F",5)="S DIP(1)=$S($D(^PRCF(423,D0,""TRANS"")):^(""TRANS""),1:"""") S X=""BATCH TYPE: ""_$S('$D(^PRCF(423.9,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""BATCH TYPE: ""_BATCH TYPE""~"
^DIPT(283,"F",6)="S X="""",Y=$S(IOM<96:IOM+1,1:96),$P(X,""_"",Y)="""" W !,X,!,?50;Z;""S X="""",Y=$S(IOM<96:IOM+1,1:96),$P(X,""_"",Y)="""" W !,X,!,?50""~"
^DIPT(283,"H")="@"
^DIPT(283,"SUB")="1"
^DIPT(284,0)="PRCFA REPRINT TRAILER^2920825.1628^^423^^^^"
^DIPT(284,"F",2)=".01;S;C1~999.1;C10;L3;""TECH""~N TAB S TAB=15 D PRINT^PRCFACP2;Z;""N TAB S TAB=15 D PRINT^PRCFACP2""~"
^DIPT(284,"H")="[PRCFA REPRINT HEADER]"
^DIPT(285,0)="PRCH WHSE STATS^2871209^^442^^^^"
^DIPT(285,"DCL","442.11^13")="+"
^DIPT(285,"DNP")="1"
^DIPT(285,"F",2)=".6,13~"
^DIPT(285,"H")="WAREHOUSE RECEIVING REPORT STATISTICS"
^DIPT(286,0)="PRCFA UNDEL ORD^2871215^^442^^^^"
^DIPT(286,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""")"
^DIPT(286,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(286,"DXS",2,9.3)="X DXS(2,9.2) X ""F D1=0:0 S D1=$N(^PRC(442,D0,11,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1 S X=DIP(102),DIP(103)=X S X=""AMT1"""
^DIPT(286,"DXS",3,9.2)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=""AMT1"""
^DIPT(286,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(286,"DXS",4,9.3)="X DXS(4,9.2) X ""F D1=0:0 S D1=$N(^PRC(442,D0,11,D1)) Q:D1'>0 S DIP(102)=DIP(102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""""""")"" S D(1)=D1 S X=DIP(102),DIP(103)=X S X=""AMT2"""
^DIPT(286,"DXS",5,9.2)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),DIP(2)=X S X=""AMT2"""
^DIPT(286,"F",1)=".01;C1;""REF NO."";S1~"
^DIPT(286,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,15) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE"";C14;Z;""NUMDATE(P.O. DATE)""~"
^DIPT(286,"F",3)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""CP"";C25;Z;""$P(FCP,"" "",1)""~"
^DIPT(286,"F",4)="X DXS(1,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;C32;""SC"";Z;""SOURCE CODE:FISCAL EQUIV.""~"
^DIPT(286,"F",5)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REQ.DATE"";C38;Z;""NUMDATE(DELIVERY DATE)""~"
^DIPT(286,"F",6)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""CC"";C50;Z;""$P(COST CENTER,"" "",1)""~"
^DIPT(286,"F",7)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=X W X K DIP;""SUBACC"";C60;Z;""INTERNAL(SUBACCOUNT1)""~3.4;""OBL. AMT"";C70;R10~"
^DIPT(286,"F",8)="X DXS(2,9.3) S X1=DIP(103) S:X]""""&(X?.ANP) DIPA($E(X,1,30))=X1 S X="""" S X=X S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;""SETPARAM(TOTAL(PARTIAL:SUBAMOUNT1),""AMT1"")""~"
^DIPT(286,"F",9)="S X=""AMT1"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;""ACC. EXP."";C85;R10;Z;""PARAM(""AMT1"")""~"
^DIPT(286,"F",10)="X DXS(3,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(2),X=X S X=X-Y W X K DIP;""UNDEL. AMT"";C100;R10;Z;""SUBAMOUNT1-PARAM(""AMT1"")""~"
^DIPT(286,"F",11)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X W X K DIP;C60;X;Z;""INTERNAL(SUBACCOUNT2)""~4.4;C70;R10;X~"
^DIPT(286,"F",12)="X DXS(4,9.3) S X1=DIP(103) S:X]""""&(X?.ANP) DIPA($E(X,1,30))=X1 S X="""" S X=X S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;""SETPARAM(TOTAL(PARTIAL:SUBAMOUNT2),""AMT2"")""~"
^DIPT(286,"F",13)="S X=""AMT2"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;X;C85;R10;Z;""PARAM(""AMT2"")""~"
^DIPT(286,"F",14)="X DXS(5,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(2),X=X S X=X-Y W X K DIP;X;C100;R10;Z;""SUBAMOUNT2-PARAM(""AMT2"")""~"
^DIPT(286,"H")="UNDELIVERED ORDERS LISTING"
^DIPT(287,0)="PRCH REQUESTING SVC^2880202^^410^^^^"
^DIPT(287,"DCL","410^-1")="#"
^DIPT(287,"DNP")="1"
^DIPT(287,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,4),X1=X,X2=$P(DIP(1),U,1),X="""" D:X2 ^%DTC:X1;;Z;""(DATE REQUIRED-DATE OF REQUEST)"";#~"
^DIPT(287,"H")="REQUESTING SERVICE STATISTICS"
^DIPT(288,0)="PRCS1358 FORM PRINT^2880926^^442^^^^"
^DIPT(288,"%D",0)="^^2^2^2890716^"
^DIPT(288,"%D",1,0)="This print template is for the 1358 form type Control Point"
^DIPT(288,"%D",2,0)="Activity Transaction."
^DIPT(288,"F",1)="""VA 4-1358 COVER SHEET"";C1~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C43;L18;Z;""NOW""~""PAGE ""~"
^DIPT(288,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~"" "";C1~""ESTIMATED MISCELLANEOUS OBLIGATION OR CHANGE IN OBLIGATION"";C1~"" "";C1~"
^DIPT(288,"F",3)="""================================================================================""~""PAT NUMBER: "";C1~.01~"
^DIPT(288,"F",4)="""--------------------------------------------------------------------------------""~""PURPOSE: "";C1~20,.01~"
^DIPT(288,"F",5)="""--------------------------------------------------------------------------------""~""CONTRACT #: "";C1~40,4~""P.O. DATE: "";C1~.1~""PURCHASING AGENT: "";C1~"
^DIPT(288,"F",6)="16~""--------------------------------------------------------------------------------""~"
^DIPT(288,"F",7)="""FUND CERTIFICATION: The supplies and services listed on this request are"";C1~"
^DIPT(288,"F",8)="""properly chargeable to the following allotments, the available balances of"";C1~"
^DIPT(288,"F",9)="""which are sufficient to cover the cost thereof, and funds have been obligated."";C1~"
^DIPT(288,"F",10)="""--------------------------------------------------------------------------------""~""APPROPRIATION: "";C1~1.4~""OBLIGATION DATA: "";C1~2.4,1~2.4,5~"
^DIPT(288,"F",11)="""2237 REFERENCE NO.: "";C1~.05,.01~.05,2~.05,4~"
^DIPT(288,"H")="@"
^DIPT(288,"SUB")="1"
^DIPT(289,0)="PRCH FPDS PO REG PRINT^2930225.1155^^442^^^^"
^DIPT(289,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,10) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""")"
^DIPT(289,"F",1)=".01;""P.O. #"";L10~"
^DIPT(289,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,15) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""P.O. DATE"";C17;Z;""NUMDATE(P.O. DATE)""~"
^DIPT(289,"F",3)="15;""LI""~"
^DIPT(289,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""FCP"";Z;""$P(FCP,"" "",1)""~"
^DIPT(289,"F",5)="X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""INT"";L3;Z;""PURCHASING/PPM AGENT:INITIAL""~35,.01~35,2~35,1;""METH/ BUS""~35,1.1~35,1.2~"
^DIPT(289,"F",6)="35,3,.01;""SOCIO. GROUP""~5;C3~"
^DIPT(289,"F",7)="W $S($D(^PRC(442,D0,2,1,1,1,0)):$E(^(0),1,44),1:"""");""DESCRIPTION"";L44;C3;Z;""W $S($D(^PRC(442,D0,2,1,1,1,0)):$E(^(0),1,44),1:"""")""~"
^DIPT(289,"H")="FPDS Purchase Order Register"
^DIPT(290,0)="PRCH FPDS CONTRACT # PRINT^2881117^^442^^^^"
^DIPT(290,"DCL","442.1^-1")="&"
^DIPT(290,"DCL","442.1^.01")="&"
^DIPT(290,"F",1)="W "" "";C1;Z;""W "" """"~35,2;C5~35,S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) W X K DIP;C29;!;R;Z;""PURCHASE ORDER NUMBER""~"
^DIPT(290,"F",2)="35,S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,14);R3;C47;;;Z;""LINE ITEM COUNT"";&~35,.01;C60;R9;;~"
^DIPT(290,"H")="[PRCU FPDS CONTRACT # HEADER]"
^DIPT(291,0)="PRCH FPDS CONTRACT # HEADER^2890403^^442^^^^"
^DIPT(291,"F",1)="""Summary of Purchase Orders by Contract Number"";C1~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C31;L18;Z;""NOW""~"
^DIPT(291,"F",2)="""PAGE: "";C60~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~""LINE/ITEM TOTAL"";C42~""CONTRACT #"";C5~""P.O. #"";C29~"
^DIPT(291,"F",3)="""COUNT AMOUNT"";C44~"
^DIPT(291,"F",4)="S X=""-"",DIP(1)=X S X=80,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C1;Z;""DUP(""-"",80)""~"
^DIPT(291,"H")="@"
^DIPT(291,"SUB")="1"
^DIPT(292,0)="PRCH FPDS LI PRINT^2890403^^442^^^^"
^DIPT(292,"DCL","442^.01")="!"
^DIPT(292,"DCL","442^15")="&"
^DIPT(292,"DCL","442^91")="&"
^DIPT(292,"F",2)=".1;N~.01;C15~15;""LINE/ITEM COUNT""~91;C58~"
^DIPT(292,"H")="Line Item Count"
^DIPT(293,0)="PRCSCTR^2890913.1522^^410^^^^"
^DIPT(293,"%D",0)="^^1^1^2890830^"
^DIPT(293,"%D",1,0)="This print template is for printing the Control Point's Ceiling Report."
^DIPT(293,"DCL","410^35")="&"
^DIPT(293,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X)_""-"",DIP(4)=X S X=$P(DIP(1),U,1),DIP(5)=X S X=""-"""
^DIPT(293,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=3,X=$P(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""-"",DIP(7)=X S X=$P(DIP(1),U,1),DIP(8)=X S X=""-"",DIP(9)=X S X=5"
^DIPT(293,"F",1)=""
^DIPT(293,"F",2)="X DXS(1,9.3) S X=$P(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;""TRANS #"";S1;Z;""$P(TRANSACTION NUMBER,""-"",2)_""-""_$P(TRANSACTION NUMBER,""-"",3)_""-""_$P(TRANSACTION NUMBER,""-"",5)""~"
^DIPT(293,"F",3)="24;""PAT #"";C16~35;C40~36~60,.01;C3~"
^DIPT(293,"H")="CEILING REPORT - CP: "
^DIPT(294,0)="PRCSOTR1^2880819^^410^^^^"
^DIPT(294,"%D",0)="^^2^2^2890830^"
^DIPT(294,"%D",1,0)="This print template is for printing the Obligation Status Report with"
^DIPT(294,"%D",2,0)="the comments."
^DIPT(294,"DCL","410^27")="&"
^DIPT(294,"F",2)=".01;S1~1;""TYPE""~27;""$ AMOUNT""~11~54;C46;L35~60,.01;C2~"
^DIPT(294,"H")="OBLIGATION STATUS REPORT"
^DIPT(295,0)="PRCSSBCPT^2890703^^410^^^^"
^DIPT(295,"%D",0)="^^2^2^2890830^^"
^DIPT(295,"%D",1,0)="This print template is for printing the Quarterly Sub-Control Point"
^DIPT(295,"%D",2,0)="Expenditure Report."
^DIPT(295,"DCL","410.04^2")="&"
^DIPT(295,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(295,"F",1)=""
^DIPT(295,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=5,X=$P(DIP(2),DIP(3),X) W X K DIP;L7;""TRANS #"";C1;Z;""$P(TRANSACTION NUMBER,""-"",5)""~"
^DIPT(295,"F",3)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;L3;""TYPE"";C9;Z;""$E(TRANSACTION TYPE,1,3)""~"
^DIPT(295,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X=1,DIP(3)=X S X=6,X=$E(DIP(2),DIP(3),X) W X K DIP;""PO/OBL#"";C14;L6;Z;""$E(PURCHASE ORDER/OBLIGATION NO,1,6)""~"
^DIPT(295,"F",5)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;L10;C22;""VENDOR"";Z;""$E(VENDOR,1,10)""~"
^DIPT(295,"F",6)="I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,10);""FIRST LINE ITEM DESC."";C35;L10;Z;""I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,10)""~16,1~16,2~"
^DIPT(295,"H")="SUB-CONTROL POINT EXPENDITURES"
^DIPT(296,0)="PRCSPROJ^2891102.103^^410^^^^"
^DIPT(296,"%D",0)="^^1^1^2890830^"
^DIPT(296,"%D",1,0)="This print template is for printing the Control Point's Sort Group Report."
^DIPT(296,"DCL","410^20")="&"
^DIPT(296,"DCL","410^22")="&"
^DIPT(296,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(296,"F",1)=".01;C1~24;""PO/OBL#"";L6~X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;""TYPE"";L3;Z;""$E(TRANSACTION TYPE,1,3)""~"
^DIPT(296,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X) W X K DIP;L15;""VENDOR"";Z;""$E(VENDOR,1,15)""~"
^DIPT(296,"F",3)="20;""COMM $"";~22;""OBL $"";~60,.01;C3~"""";S1~"
^DIPT(296,"H")="SORT GROUP REPORT"
^DIPT(297,0)="PRCFA RR INQUIRY LISTING^2880831^^421.2^^^^"
^DIPT(297,"F",2)=".01~.5~.7~4~4.5~5~"
^DIPT(297,"H")="RECEIVING REPORT TRANSMISSION INQUIRY LISTING"
^DIPT(298,0)="PRCSTEMPT^2930225.1527^^410^^^^"
^DIPT(298,"%D",0)="^^1^1^2890830^"
^DIPT(298,"%D",1,0)="This print template is for printing the Temporary Transaction List."
^DIPT(298,"DXS",1,9)="S DIP(1)=$S($D(^PRCS(410,D0,7)):^(7),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=9,X=$E(DIP(2),DIP(3),X)"
^DIPT(298,"F",1)=".01;""TEMPORARY TRANSACTION #""~5;C20;L11~X DXS(1,9) W X K DIP;""REQUESTOR"";L9;C33;Z;""$E(REQUESTOR,1,9)""~"
^DIPT(298,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=9,X=$E(DIP(2),DIP(3),X) W X K DIP;""VENDOR"";L9;C44;Z;""$E(VENDOR,1,9)""~"
^DIPT(298,"F",3)="I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,15);L15;""FIRST LINE ITEM DESCRIPTION"";C55;Z;""I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,15)""~"
^DIPT(298,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=9,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;""COMM. COST"";L9;C72;Z;""$J(COMMITTED (ESTIMATED) COST,9,2)""~"
^DIPT(298,"H")="TEMPORARY TRANSACTION LISTING"
^DIPT(299,0)="PRCS APPROVE REQUEST^3050713.1624^^410^^^3050713"
^DIPT(299,"%D",0)="^^2^2^2890716^"
^DIPT(299,"%D",1,0)="This print template is for printing out limited data of a"
^DIPT(299,"%D",2,0)="Control Point Request for the Control Point Official to sign."
^DIPT(299,"DXS",1,"A")="ADJUSTMENT"
^DIPT(299,"DXS",1,"C")="CEILING"
^DIPT(299,"DXS",1,"CA")="CANCELLED"
^DIPT(299,"DXS",1,"O")="OBLIGATION"
^DIPT(299,"F",1)="""CP TRANSACTION NUMBER: "";C1~.01~"
^DIPT(299,"F",2)="S X=$S('$D(D0):"""",D0<0:"""",1:D0),DIP(1)=$G(X) S X=""IEN"",X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;Z;""SETPARAM(NUMBER,""IEN"")""~"
^DIPT(299,"F",3)="""TEMPORARY TRANSACTION: "";C1~"
^DIPT(299,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=$G(X) S X=1,DIP(3)=$G(X) S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;Z;""$E(TEMPORARY TRANS. NUMBER,1,10)""~"
^DIPT(299,"F",5)=""" "";C1~""TRANSACTION TYPE: "";C1~1~""FORM TYPE: "";C1~3~"" "";C1~""REQUESTOR: "";C1~40~"" "";C1~""DATE OF REQUEST: "";C1~5~""DATE REQUIRED: "";C1~7~"" "";C1~"
^DIPT(299,"F",6)="""COMMITTED (ESTIMATED) COST: "";C1~20~"" "";C1~""VENDOR: "";C1~11~"" "";C1~""ITEM #1 DESCRIPTION: "";C1;X~"
^DIPT(299,"F",7)="S PRCST5X=$$GET1^DIQ(410.02,""1,""_DIPA(""IEN"")_"","",1,"""",""PRCTXT"",""PRCERR"");L0;X;Z;""S PRCST5X=$$GET1^DIQ(410.02,""1,""_DIPA(""IEN"")_"","",1,"""",""PRCTXT"",""PRCERR"")""~"
^DIPT(299,"F",8)="W $S($D(PRCTXT(1)):$E(PRCTXT(1),1,30),1:""Item Description not available"");X;Z;""W $S($D(PRCTXT(1)):$E(PRCTXT(1),1,30),1:""Item Description not available"")""~"
^DIPT(299,"F",9)="K PRCST5X,PRCTXT,DIERR,PRCERR;Z;""K PRCST5X,PRCTXT,DIERR,PRCERR""~"
^DIPT(299,"H")="@"
^DIPT(299,"IOM")="80"
^DIPT(299,"LAST")=""
^DIPT(299,"ROU")="^PRCST5"
^DIPT(299,"ROUOLD")="PRCST5"
^DIPT(299,"SUB")="1"
^DIPT(300,0)="PRCFUO^2951027.1419^^442^^^2960819^"
^DIPT(300,"DXS",1,9)="I $D(^PRC(442,D0,10,1,0)) S PRCTDT=$P(^(0),U,6) W:PRCTDT $E(PRCTDT,4,5)_""/""_$E(PRCTDT,6,7)_""/""_$E(PRCTDT,2,3)"
^DIPT(300,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""")"
^DIPT(300,"F",1)="S PRCFCAP=$S($D(^PRC(442,D0,0)):$P(^(0),U,4),1:"""");X;Z;""S PRCFCAP=$S($D(^PRC(442,D0,0)):$P(^(0),U,4),1:"""")""~"
^DIPT(300,"F",2)="I '$D(PRCFAP) W ?11,""APPROPRIATION: "",PRCFCAP;X;Z;""I '$D(PRCFAP) W ?11,""APPROPRIATION: "",PRCFCAP""~"
^DIPT(300,"F",3)="I $D(PRCFAP),PRCFAP'=PRCFCAP D SUB^PRCFUO;X;Z;""I $D(PRCFAP),PRCFAP'=PRCFCAP D SUB^PRCFUO""~S PRCFAP=PRCFCAP;X;Z;""S PRCFAP=PRCFCAP""~"
^DIPT(300,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;""REF NO"";L6;C1;Z;""$P(PURCHASE ORDER NUMBER,""-"",2)""~"
^DIPT(300,"F",5)="X DXS(1,9);""TRANS DATE"";L8;Z;""I $D(^PRC(442,D0,10,1,0)) S PRCTDT=$P(^(0),U,6) W:PRCTDT $E(PRCTDT,4,5)_""/""_$E(PRCTDT,6,7)_""/""_$E(PRCTDT,2,3)""~"
^DIPT(300,"F",6)="I $D(^PRC(442,D0,10,1,0)),$L($P(^(0),U,1)) W $P($P(^(0),U,1),""."",1,2);""TRANS CODE"";L6;Z;""I $D(^PRC(442,D0,10,1,0)),$L($P(^(0),U,1)) W $P($P(^(0),U,1),""."",1,2)""~"
^DIPT(300,"F",7)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;L3;""FCP"";Z;""$P(FCP,"" "",1)""~"
^DIPT(300,"F",8)="X DXS(2,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;""SOURCE CODE"";L1;Z;""8:2""~"
^DIPT(300,"F",9)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REQ DATE"";Z;""NUMDATE(DELIVERY DATE)""~"
^DIPT(300,"F",10)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""COST CENTER"";Z;""$P(COST CENTER,"" "",1)""~"
^DIPT(300,"F",11)="D ^PRCFUO;X;Z;""D ^PRCFUO""~"""";""BOC"";L13~"""";""OBLIGATED AMOUNT""~"""";""ACCRUED EXPENDITURES""~"""";""UNDELIVERED ORDERS""~"
^DIPT(300,"H")=" 850 UNDELIVERED ORDERS RECONCILIATION"
^DIPT(301,0)="PRCH FPDS <25K HEADER^3010131.092^^442^^^3010507"
^DIPT(301,"F",1)="""25K or Less FPDS Summary""~""From "";C30~W PRCHPF_"" to ""_PRCHPT;Z;""W PRCHPF_"" to ""_PRCHPT""~"
^DIPT(301,"F",2)="W ?95,""Station: "",PRC(""SITE"");Z;""W ?95,""Station: "",PRC(""SITE"")""~""METHOD/BUSINESS/STATUS - COMBINED CODES:"";C15;S1~""BREAKOUT CODES:"";C93~"
^DIPT(301,"F",3)="""E.G., OPEN MKT P.O. FOR UNDER $2.5 THOUSAND AWARDED WITHOUT COMPETITION"";C3;S1~""PREFERENCE PROGRAM CODES SOCIOECONOMIC GROUP CODES"";C77~"
^DIPT(301,"F",4)="""TO A SM BUSINESS IS CODED 'A1'&'Z1'; DEL ORDER TO A LG BUS UNDER A MUL-"";C3~""CHOOSE ONE AS APPLICABLE) (CHOOSE ONE OR MORE AS"";C77~"
^DIPT(301,"F",5)="""TIPLE AWARD SCHED FS CONTRACT ISSUED BY VA NAC IS CODED 'C2'&'X2') "";C3~""APPLICABLE)"";C107~"""";S1~""PROCUREMENT METHOD"";C7~""TYPE OF BUSINESS"";C35~"
^DIPT(301,"F",6)="""COMPETITIVE STATUS"";C54~""T1=AWARDS TO SMALL BUS N=SM DISADVANTAGED BUS"";C77~""J=SM BUS SET-ASIDE P=JWOD"";C77~"
^DIPT(301,"F",7)="""A=SM PURCHASE (FAR PART 13) 1=SMALL BUSINESS X=COMPETED"";C3~""M=8(A) PROGRAM HZ=HUBZONE SM BUS"";C77~"
^DIPT(301,"F",8)="""B=DEL ORDER - GSA ISSUED FS 2=LARGE BUSINESS Y=NOT COMPETED"";C3~""O=NONE OF THE ABOVE RV=SERVICE-DISABLED VET"";C77~"
^DIPT(301,"F",9)="""C=DEL ORDER - ALL OTHER FS 3=DOMESTIC OUTISDE Z=NOT AVAILABLE"";C3~""HP=HUBZONE PREF. PROGRAM S=VETERAN-OWNED SM BUS"";C77~"
^DIPT(301,"F",10)="""D=DEL ORDER - EXCEPT FOR FS U.S./FOREIGN FOR COMPETITION"";C3~"" LV=VETERAN-OWNED LG BUS"";C77~"
^DIPT(301,"F",11)="""E=OTHER PROCUREMENT METHODS 4=OTHER ENTITIES"";C3~"" U=HBCU/MI"";C77~"
^DIPT(301,"F",12)=""" W=WOMAN-OWNED SM BUS"";C77~"" LW=WOMAN-OWNED LG BUS"";C77~"
^DIPT(301,"F",13)=""" OO=NONE OF THE OTHER CATEG."";C77~"
^DIPT(301,"H")=" "
^DIPT(302,0)="PRCH FPDS <25K PRINT^2890614^^442^^^^"
^DIPT(302,"F",2)="D CALC^PRCHFPD;"""";Z;""D CALC^PRCHFPD""~"
^DIPT(302,"H")="@"
^DIPT(303,0)="PRCH W/O FPDS^2881130^^442^^^^"
^DIPT(303,"F",1)=".01;L15~.1~W $P(^PRC(442,D0,1),U,1);""VENDOR"";L6;Z;""W $P(^PRC(442,D0,1),U,1)""~"
^DIPT(303,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^PRC(440,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X) W X K DIP;"""";L15;Z;""$E(VENDOR,1,15)""~"
^DIPT(303,"F",3)="D ^PRCHFPD1;""CONTRACT#"";C58;L11;Z;""D ^PRCHFPD1""~"""";"" $ AMOUNT"";C73;L11~"
^DIPT(303,"H")="FPDS LESS THAN 25K"
^DIPT(304,0)="PRCS REQUESTS FOR APPROVAL^2891114.0842^^410^^^^"
^DIPT(304,"%D",0)="^^2^2^2921009^^^"
^DIPT(304,"%D",1,0)="This print template is for printint out the requests that are"
^DIPT(304,"%D",2,0)="ready for the Control Point Official's signature."
^DIPT(304,"DXS",1,9.2)="S I(100)=""^PRCS(410,"",J(100)=410 F D=0:0 S (D,D2)=$N(^PRCS(410,D0,""IT"",D1,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D2"
^DIPT(304,"DXS",1,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") S X=""1"" K DIC S Y=-1,DIC=""^PRCS(410,D0,""""IT"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y X DXS(1,9.2):D1>0 S X="""""
^DIPT(304,"DXS",2,"A")="ADJ"
^DIPT(304,"DXS",2,"C")="CEI"
^DIPT(304,"DXS",2,"CA")="CAN"
^DIPT(304,"DXS",2,"O")="OBL"
^DIPT(304,"F",1)=".01~1;L3;""TYPE""~3~40;C3~5;""REQUESTED""~7;""REQUIRED""~20;""EST COST""~11;C6~"
^DIPT(304,"F",2)="X DXS(1,9.3) S DIP(102)=X S X=1,DIP(103)=X S X=30,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) S D1=I(1,0) W X K DIP;""FIRST ITEM DESCRIPTION"";m;w;Z;""$E(""1"":ITEM:DESCRIPTION,1,30)""~"
^DIPT(304,"F",3)=""" "";C1~"
^DIPT(304,"H")="REQUESTS TO BE APPROVED LIST"
^DIPT(304,"IOM")="80"
^DIPT(304,"LAST")=""
^DIPT(304,"ROU")="^PRCST6"
^DIPT(304,"ROUOLD")="PRCST6"
^DIPT(305,0)="PRCFA ERROR LIST^2920825.1627^^423^^^^"
^DIPT(305,"F",2)=".01;S~1~2;L30~.231~N TAB S TAB=33 D PRINT^PRCFACP2;Z;""N TAB S TAB=33 D PRINT^PRCFACP2""~"
^DIPT(305,"H")="CALM/LOG CODE SHEET BATCHING ERROR LIST"
^DIPT(306,0)="PRCB FCP LIST OF MGR/USER^2940617.141^^420^^^^"
^DIPT(306,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,10) S:'$D(^DIC(49,+D0,0)) D0=-1"
^DIPT(306,"F",1)=""
^DIPT(306,"F",2)="1,X DXS(1,9.2) S DIP(101)=$S($D(^DIC(49,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;""SERVICE"";L15;S1;Z;""CONTROLLING SERVICE:ABBREVIATION""~"
^DIPT(306,"F",3)="1,""FUND: "";C1~1,25;X~1,""A/O: "";C25~1,25.5;X~1,""PGM: "";C50~1,26;X~1,""FCP/PRJ: "";C1~1,27;X~1,""OC: "";C25~1,28;X~1,""JOB: "";C50~1,29;X~1,22;""ROLL OVER"";L4;C1~"
^DIPT(306,"F",4)="1,14;;""OVERCOMMIT?"";L20~1,6,.01;""USER"";L15;C10~1,6,1~"" "";C1~"
^DIPT(306,"H")="LIST OF CONTROL POINTS"
^DIPT(307,0)="PRCB FCP PO STATUS^2890628^^442^^^^"
^DIPT(307,"DCL","442^91")="&"
^DIPT(307,"F",1)=""
^DIPT(307,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=5,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;""P.O. #"";;Z;""$E(PURCHASE ORDER NUMBER,5,10)""~"
^DIPT(307,"F",3)=".5;;""STATUS""~S DIP(1)=$S($D(^PRC(442,D0,18)):^(18),1:"""") S X=$P(DIP(1),U,7),X=$P(X,""."",1) S Y=X D DT K DIP;""PO DATE"";L12;Z;""DATE(DATE SIGNED)""~"
^DIPT(307,"F",4)="91;R;""TOTAL""~"
^DIPT(307,"H")="FCP PO STATUS"
^DIPT(308,0)="PRCSCSCP^2890427^^410^^^^"
^DIPT(308,"%D",0)="^^2^2^2890830^^"
^DIPT(308,"%D",1,0)="This print template is for printing the Purchase Order/Sub-Control"
^DIPT(308,"%D",2,0)="Point dollar amount reconciliation report."
^DIPT(308,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(308,"DXS",2,9.2)="S DIP(1)=$S($D(^PRCS(410,D0,12,D1,0)):^(0),1:"""") S X=$S('$D(^PRCS(410.4,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=10"
^DIPT(308,"DXS",3,9.2)="S I(0)=""^PRCS(410,"",J(0)=410 F D=0:0 S (D,D2)=$N(^PRCS(410,D0,""IT"",D1,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D2"
^DIPT(308,"F",1)=""
^DIPT(308,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=5,X=$P(DIP(2),DIP(3),X) W X K DIP;""SEQ #"";Z;""$P(#.01,""-"",5)""~"
^DIPT(308,"F",3)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;""TYPE"";Z;""$E(#1,1,3)""~5;""REQUESTED""~48;""RECEIVED""~"
^DIPT(308,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X=1,DIP(3)=X S X=7,X=$E(DIP(2),DIP(3),X) W X K DIP;""PO #"";Z;""$E(PURCHASE ORDER/OBLIGATION NO,1,7)""~"
^DIPT(308,"F",5)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;""VENDOR"";Z;""$E(VENDOR,1,10)""~"
^DIPT(308,"F",6)="20;""COM $"";C3~22;""OBL $""~25;""ADJ $""~16,X DXS(2,9.2) S X=$E(DIP(2),DIP(3),X) W X K DIP;""SCP"";C3;Z;""$E(SUB-CONTROL POINT,1,10)""~16,1~10,.01;""ITEM""~"
^DIPT(308,"F",7)="10,X DXS(3,9.2):D1>0 S X="""",DIP(1)=X S X=1,DIP(2)=X S X=10,X=$E(DIP(1),DIP(2),X) W X K DIP;""DESC"";m;w;Z;""$E(#1,1,10)""~"
^DIPT(308,"H")="COMPLETED PO/SCP $ RECONCILIATION"
^DIPT(309,0)="PRCB FCP SUB-ACCOUNTS^2941026.1212^^420^^^^"
^DIPT(309,"DXS",1,9.2)="S DIP(1)=$S($D(^PRC(420,D0,1,D1,2,D2,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.1,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=4"
^DIPT(309,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(420.01,14,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1)"
^DIPT(309,"DXS",3,9.2)="S I(100)=""^PRCD(420.1,"",J(100)=420.1 F D=0:0 S (D,D1)=$O(^PRCD(420.1,D0,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^PRCD(420.2,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(309,"DXS",3,9.3)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(420,D0,1,D1,2,D2,0)):^(0),1:"""")"
^DIPT(309,"F",1)="1,.01~1,7,X DXS(1,9.2) S X=$E(DIP(2),DIP(3),X) W X K DIP;""COST CENTER"";Z;""$E(COST CENTER,1,4)""~1,7,X DXS(2,9) W X K DIP;""OVERCOMMIT?"";Z;""CP OVERCOMMIT""~"
^DIPT(309,"F",2)="1,7,X DXS(3,9.3) S D0=$P(DIP(1),U,1) S:'$D(^PRCD(420.1,+D0,0)) D0=-1 X DXS(3,9.2):D0>0 S X="""" S D0=I(0,0) S D1=I(1,0) S D2=I(2,0) W X K DIP;C5;S1;""AUTHORIZED BOC"";m;Z;""COST CENTER:BOC""~"
^DIPT(309,"H")="FCP BOC LIST"
^DIPT(310,0)="PRCHOUT RR NOT PROC.BY FISCAL^2890823.1426^^442^^^^"
^DIPT(310,"F",2)=".01;L11;S1;""P.O.NO.""~.1;C20~5;C35~.5~.6,.01;""DATE RECEIVED"";C5~.6,10;""DATE SIGNED"";C25~.6,12;""DISCOUNT"";C45~.6,11;""AMOUNT"";C58;R12~"
^DIPT(310,"H")="RECEIVING REPORTS NOT PROCESSED BY FISCAL"
^DIPT(311,0)="PRCFA STATUS OF PAT^2890919.0746^^442^^^^"
^DIPT(311,"F",1)=""
^DIPT(311,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=5,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;""PO #"";L6;Z;""$E(PURCHASE ORDER NUMBER,5,10)""~"
^DIPT(311,"F",3)=".5;""PO STATUS""~"
^DIPT(311,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,12)):^(12),1:"""") S X=$P(DIP(1),U,5),X=$P(X,""."",1) S Y=X D DT K DIP;""ASSIGNED"";;L18;Z;""DATE(DATE P.O. ASSIGNED)""~"
^DIPT(311,"H")="PROCUREMENT & ACCOUNTING STATUS LIST"
^DIPT(312,0)="PRCSSBCPT1^2890703^^410^^^^"
^DIPT(312,"%D",0)="^^2^2^2890830^"
^DIPT(312,"%D",1,0)="This print template is for printing the Fiscal Year Sub-Control"
^DIPT(312,"%D",2,0)="Point Expenditure Report."
^DIPT(312,"DCL","410.04^2")="&"
^DIPT(312,"DXS",1,9)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=2,DIP(4)=X S X=3,X=$P(DIP(2),DIP(3),DIP(4),X)"
^DIPT(312,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(312,"F",1)="X DXS(1,9) W X K DIP;""FY-Q"";C1;N;Z;""$P(TRANSACTION NUMBER,""-"",2,3)""~"
^DIPT(312,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=5,X=$P(DIP(2),DIP(3),X) W X K DIP;L7;""TRANS #"";C7;Z;""$P(TRANSACTION NUMBER,""-"",5)""~"
^DIPT(312,"F",3)="X DXS(2,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;L3;""TYPE"";C15;Z;""$E(TRANSACTION TYPE,1,3)""~"
^DIPT(312,"F",4)="S DIP(1)=$S($D(^PRCS(410,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X=1,DIP(3)=X S X=6,X=$E(DIP(2),DIP(3),X) W X K DIP;""PO/OBL#"";C20;L6;Z;""$E(PURCHASE ORDER/OBLIGATION NO,1,6)""~"
^DIPT(312,"F",5)="S DIP(1)=$S($D(^PRCS(410,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=1,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;L10;C28;""VENDOR"";Z;""$E(VENDOR,1,10)""~"
^DIPT(312,"F",6)="I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,10);""FIRST LINE ITEM DESC."";C41;L10;Z;""I $D(^PRCS(410,D0,""IT"",1,1,1,0)) W $E(^(0),1,10)""~16,1~16,2~"
^DIPT(312,"H")="SUB-CONTROL POINT EXPENDITURES"
^DIPT(313,0)="PRCSMDS^2951207.1546^^410^^^^"
^DIPT(313,"%D",0)="^^2^2^2890830^"
^DIPT(313,"%D",1,0)="This print template is for printing the transaction's Multiple"
^DIPT(313,"%D",2,0)="Delivery Schedule List."
^DIPT(313,"DXS",1,9.2)="S I(0)=""^PRCS(410,"",J(0)=410 F D=0:0 S (D,D2)=$O(^PRCS(410,D0,""IT"",D1,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D2"
^DIPT(313,"DXS",2,9.2)="S DIP(101)=$S($D(^PRCS(410.6,D0,0)):^(0),1:"""") S X=$S('$D(^PRCS(410.4,+$P(DIP(101),U,5),0)):"""",1:$P(^(0),U,1)),DIP(102)=X S X=1,DIP(103)=X S X=15"
^DIPT(313,"DXS",3,9.2)="S DIP(101)=$S($D(^PRCS(410.6,D0,0)):^(0),1:"""") S X=$S('$D(^PRCS(410.8,+$P(DIP(101),U,3),0)):"""",1:$P(^(0),U,1)),DIP(102)=X S X=1,DIP(103)=X S X=15"
^DIPT(313,"F",1)=".01;C1;""TRANS#""~10,S DIP(1)=$S($D(^PRCS(410,D0,""IT"",D1,0)):^(0),1:"""") S X=""#""_$P(DIP(1),U,1) W X K DIP;""ITEM#"";C20;Z;""""#""_LINE ITEM NUMBER""~"
^DIPT(313,"F",2)="10,5;""PR#"";C30~10,2;""ITEM QTY""~"
^DIPT(313,"F",3)="10,X DXS(1,9.2):D1>0 S X="""",DIP(1)=X S X=1,DIP(2)=X S X=10,X=$E(DIP(1),DIP(2),X) W X K DIP;C3;X;m;w;Z;""$E(DESCRIPTION,1,10)""~10,12,.01;""SCH#"";C6~"
^DIPT(313,"F",4)="10,12,-410.6,^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCS(410,D0,""IT"",D1,2,D2,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""1:""~"
^DIPT(313,"F",5)="10,12,-410.6,3;""QTY""~"
^DIPT(313,"F",6)="10,12,-410.6,S DIP(101)=$S($D(^PRCS(410.6,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE DEL"";Z;""NUMDATE(DELIVERY DATE)""~"
^DIPT(313,"F",7)="10,12,-410.6,5;""QTY""~"
^DIPT(313,"F",8)="10,12,-410.6,S DIP(101)=$S($D(^PRCS(410.6,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE REC"";Z;""NUMDATE(DATE RECEIVED)""~"
^DIPT(313,"F",9)="10,12,-410.6,X DXS(2,9.2) S X=$E(DIP(102),DIP(103),X) W X K DIP;""SCP"";Z;""$E(SUB-CONTROL POINT,1,15)""~"
^DIPT(313,"F",10)="10,12,-410.6,X DXS(3,9.2) S X=$E(DIP(102),DIP(103),X) W X K DIP;""LOCATION"";Z;""$E(LOCATION,1,15)""~"
^DIPT(313,"H")="MULTIPLE DELIVERY SCHEDULE LIST"
^DIPT(313,"IOM")="80"
^DIPT(313,"LAST")=""
^DIPT(313,"ROU")="^PRCST7"
^DIPT(313,"ROUOLD")="PRCST7"
^DIPT(314,0)="PRCB 285 1ST QTR^2890728^^421^^^^"
^DIPT(314,"DCL","421^20")="&"
^DIPT(314,"DCL","421^21")="&"
^DIPT(314,"DCL","421^22")="&"
^DIPT(314,"F",2)=".01~3~20~21~22~17,.01;W40~"
^DIPT(314,"H")="BUDGET DISTRIBUTION SUMMARY FIRST QUARTER"
^DIPT(315,0)="PRCB 285 2ND QTR^2890728^^421^^^^"
^DIPT(315,"DCL","421^23")="&"
^DIPT(315,"DCL","421^24")="&"
^DIPT(315,"DCL","421^25")="&"
^DIPT(315,"F",2)=".01~3~23~24~25~17,.01;W40~"
^DIPT(315,"H")="BUDGET DISTRIBUTION REPORT SECOND QUARTER"
^DIPT(316,0)="PRCB 285 3RD QTR^2890728^^421^^^^"
^DIPT(316,"DCL","421^26")="&"
^DIPT(316,"DCL","421^27")="&"
^DIPT(316,"DCL","421^28")="&"
^DIPT(316,"F",2)=".01~3~26~27~28~17,.01;W40~"
^DIPT(316,"H")="BUDGET DISTRIBUTION SUMMARY THIRD QUARTER"
^DIPT(317,0)="PRCB 285 4TH QTR^2890728^^421^^^^"
^DIPT(317,"DCL","421^29")="&"
^DIPT(317,"DCL","421^30")="&"
^DIPT(317,"DCL","421^31")="&"
^DIPT(317,"F",2)=".01~3~29~30~31~17,.01;W40~"
^DIPT(317,"H")="BUDGET DISTRIBUTION SUMMARY FOURTH QUARTER"
^DIPT(318,0)="PRCB 285 APR-SEP^2890728^^421^^^^"
^DIPT(318,"DCL","421^26")="&"
^DIPT(318,"DCL","421^27")="&"
^DIPT(318,"DCL","421^28")="&"
^DIPT(318,"DCL","421^29")="&"
^DIPT(318,"DCL","421^30")="&"
^DIPT(318,"DCL","421^31")="&"
^DIPT(318,"F",2)=".01~3~26~27~28~29~30~31~17,.01;W30~"
^DIPT(318,"H")="BUDGET DISTRIBUTION SUMMARY APRIL - SEPTEMBER"
^DIPT(319,0)="PRCB 285 OCT-MAR^2890728^^421^^^^"
^DIPT(319,"DCL","421^20")="&"
^DIPT(319,"DCL","421^21")="&"
^DIPT(319,"DCL","421^22")="&"
^DIPT(319,"DCL","421^23")="&"
^DIPT(319,"DCL","421^24")="&"
^DIPT(319,"DCL","421^25")="&"
^DIPT(319,"F",2)=".01~3~20~21~22~23~24~25~17,.01;W40~"
^DIPT(319,"H")="BUDGET DISTRIBUTION SUMMARY OCTOBER - MARCH"
^DIPT(320,0)="PRCB 285 FISCAL YEAR^2890728^^421^^^^"
^DIPT(320,"DCL","421^20")="&"
^DIPT(320,"DCL","421^21")="&"
^DIPT(320,"DCL","421^22")="&"
^DIPT(320,"DCL","421^23")="&"
^DIPT(320,"DCL","421^24")="&"
^DIPT(320,"DCL","421^25")="&"
^DIPT(320,"DCL","421^26")="&"
^DIPT(320,"DCL","421^27")="&"
^DIPT(320,"DCL","421^28")="&"
^DIPT(320,"DCL","421^29")="&"
^DIPT(320,"DCL","421^30")="&"
^DIPT(320,"DCL","421^31")="&"
^DIPT(320,"F",2)=".01~3~20~21~22~23~24~25~26~27~28~29~30~31~17,.01;W30~"
^DIPT(320,"H")="BUDGET DISTRIBUTION SUMMARY ENTIRE FISCAL YEAR"
^DIPT(321,0)="PRCB TRANS RANGE^2850514^^421^^^^"
^DIPT(321,"DCL","421^10")="&"
^DIPT(321,"DCL","421^11")="&"
^DIPT(321,"DCL","421^7")="&"
^DIPT(321,"DCL","421^8")="&"
^DIPT(321,"DCL","421^9")="&"
^DIPT(321,"F",1)=".01~1.5~3~6~7~8~9~10~11~17,.01~"
^DIPT(321,"H")="FUND DISTRIBUTION RANGE OF TRANSACTIONS REPORT"
^DIPT(322,0)="PRCB TDA LIST^2890417^^421^^^^"
^DIPT(322,"DCL","421^10")="&"
^DIPT(322,"DCL","421^11")="&"
^DIPT(322,"DCL","421^53")="&"
^DIPT(322,"DCL","421^7")="&"
^DIPT(322,"DCL","421^8")="&"
^DIPT(322,"DCL","421^9")="&"
^DIPT(322,"F",1)="3~5~.01~1.5;L4;""CP #""~7~8~9~10~11~"
^DIPT(322,"F",2)="S DIP(1)=$S($D(^PRCF(421,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,6),X=X W X K DIP;""R/NR"";L4;Z;""INTERNAL(RECURRING/NON-RECURRING)""~53;""ANNUAL AMT""~17,.01;C5~"
^DIPT(322,"H")="FUND DISTRIBUTION TRANSFER OF DISBURSING AUTHORITY (TDA) LISTING"
^DIPT(323,0)="PRCB FCP LIST^2890416^^421^^^^"
^DIPT(323,"DCL","421^10")="&"
^DIPT(323,"DCL","421^11")="&"
^DIPT(323,"DCL","421^53")="&"
^DIPT(323,"DCL","421^7")="&"
^DIPT(323,"DCL","421^8")="&"
^DIPT(323,"DCL","421^9")="&"
^DIPT(323,"F",2)=".01;S~6~52;""REC/NON-REC""~7~8~9~10~11~53~17,.01;C1;W40~"
^DIPT(323,"H")="FUND DISTRIBUTION CONTROL POINT LISTING"
^DIPT(324,0)="PRCB FTEE SUMMARY^2860314^^421^^^^"
^DIPT(324,"DCL","421^14")="&"
^DIPT(324,"DCL","421^15")="&"
^DIPT(324,"DCL","421^16")="&"
^DIPT(324,"DCL","421^16.5")="&"
^DIPT(324,"F",1)="3~5~.01~14~15~16~16.5~17,.01~"
^DIPT(324,"H")="FTEE SUMMARY BY APPROPRIATION"
^DIPT(325,0)="PRCB APPROP SUM DETAIL^2890417^^421^^^^"
^DIPT(325,"DCL","421^10")="&"
^DIPT(325,"DCL","421^11")="&"
^DIPT(325,"DCL","421^53")="&"
^DIPT(325,"DCL","421^7")="&"
^DIPT(325,"DCL","421^8")="&"
^DIPT(325,"DCL","421^9")="&"
^DIPT(325,"F",1)=".01~1.5;L4;""CP #""~3~6~7~8~9~10~11~"
^DIPT(325,"F",2)="S DIP(1)=$S($D(^PRCF(421,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,6),X=X W X K DIP;""R/NR"";L4;Z;""INTERNAL(RECURRING/NON-RECURRING)""~53;""ANNUAL AMT""~17,.01~"
^DIPT(325,"H")="FUND DISTRIBUTION APPROPRIATION SUMMARY (DETAIL) REPORT"
^DIPT(326,0)="PRCB APPROP SUM TOTAL^2850515^^421^^^^"
^DIPT(326,"DCL","421^10")="&"
^DIPT(326,"DCL","421^11")="&"
^DIPT(326,"DCL","421^7")="&"
^DIPT(326,"DCL","421^8")="&"
^DIPT(326,"DCL","421^9")="&"
^DIPT(326,"DNP")="1"
^DIPT(326,"F",1)="7~8~9~10~11~"
^DIPT(326,"H")="FUND DISTRIBUTION APPROPRIATION SUMMARY (TOTALS)"
^DIPT(327,0)="PRCB TRANS RANGE LIST^2850514^^421^^^^"
^DIPT(327,"DCL","421^10")="&"
^DIPT(327,"DCL","421^11")="&"
^DIPT(327,"DCL","421^7")="&"
^DIPT(327,"DCL","421^8")="&"
^DIPT(327,"DCL","421^9")="&"
^DIPT(327,"F",1)=".01~1.5~3~6~7~8~9~10~11~17,.01~"
^DIPT(327,"H")="FUND DISTRIBUTION RANGE OF TRANSACTIONS REPORT"
^DIPT(328,0)="PRCB TDA DISPLAY^2870209^^421^^^^"
^DIPT(328,"DCL","421^10")="&"
^DIPT(328,"DCL","421^11")="&"
^DIPT(328,"DCL","421^7")="&"
^DIPT(328,"DCL","421^8")="&"
^DIPT(328,"DCL","421^9")="&"
^DIPT(328,"F",2)="3;S~5~.01~1.5~7;C10~8~9~10~11~17,.01;C5~W ! F I=1:1:IOM W ""*"";"""";Z;""W ! F I=1:1:IOM W ""*""""~"
^DIPT(328,"H")="FUND DISTRIBUTION TRANSFER OF DISBURSING AUTHORITY (TDA) LISTING"
^DIPT(329,0)="PRCB DISPLAY APP SUM DETAIL^2870207^^421^^^^"
^DIPT(329,"DCL","421^10")="&"
^DIPT(329,"DCL","421^11")="&"
^DIPT(329,"DCL","421^7")="&"
^DIPT(329,"DCL","421^8")="&"
^DIPT(329,"DCL","421^9")="&"
^DIPT(329,"F",2)=".01;S~1.5~3~6~7;C1~8~9~10~11~17,.01;C1~"
^DIPT(329,"H")="FUND DISTRIBUTION APPROPRIATION SUMMARY (DETAIL) REPORT"
^DIPT(330,0)="PRCB FCP DISPLAY^2890416^^421^^^^"
^DIPT(330,"DCL","421^10")="&"
^DIPT(330,"DCL","421^11")="&"
^DIPT(330,"DCL","421^7")="&"
^DIPT(330,"DCL","421^8")="&"
^DIPT(330,"DCL","421^9")="&"
^DIPT(330,"F",2)=".01;S~6~52;""REC/NON-REC""~53~7;C10~8~9~10~11~17,.01;C5~"
^DIPT(330,"H")="FUND DISTRIBUTION CONTROL POINT DISPLAY"
^DIPT(331,0)="PRCB TRANS RANGE DISPLAY^2870209^^421^^^^"
^DIPT(331,"DCL","421^10")="&"
^DIPT(331,"DCL","421^11")="&"
^DIPT(331,"DCL","421^7")="&"
^DIPT(331,"DCL","421^8")="&"
^DIPT(331,"DCL","421^9")="&"
^DIPT(331,"F",2)=".01;S~1.5~3~6~7;C10~8~9~10~11~17,.01;C5~"
^DIPT(331,"H")="FUND DISTRIBUTION RANGE OF TRANSACTIONS DISPLAY"
^DIPT(332,0)="PRCB TEMP REVIEW^2890414^^421.1^^^^"
^DIPT(332,"DCL","421.14^1")="&"
^DIPT(332,"DCL","421.14^2")="&"
^DIPT(332,"DCL","421.14^3")="&"
^DIPT(332,"DCL","421.14^4")="&"
^DIPT(332,"F",1)=".01~5,.01;W40~"
^DIPT(332,"F",2)="4,S DIP(1)=$S($D(^PRCF(421.1,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",X=$P(DIP(2),X) W X K DIP;""CONTROL POINT"";L7;C1;Z;""$P(CONTROL POINT,"" "")""~"
^DIPT(332,"F",3)="4,S DIP(1)=$S($D(^PRCF(421.1,D0,1,D1,4)):^(4),1:"""") S X=$P(DIP(1),U,6),X=X W X K DIP;""R/NR"";Z;""INTERNAL(RECURRING/NON-RECURRING)""~4,1;C12~4,2~4,3~4,4~"
^DIPT(332,"F",4)="4,6~"
^DIPT(332,"H")="MULTIPLE DISTRIBUTION LISTING"
^DIPT(332,"IOM")="80"
^DIPT(332,"LAST")=""
^DIPT(332,"ROU")="^PRCBTPT"
^DIPT(332,"ROUOLD")="PRCBTPT"
^DIPT(332,"STATS","S",1)="0"
^DIPT(332,"STATS","S",2)="0"
^DIPT(332,"STATS","S",3)="0"
^DIPT(332,"STATS","S",4)="0"
^DIPT(332,"T",11)="12^1^1^NJ11,2X^,2"
^DIPT(332,"T",25)="12^2^1^NJ11,2X^,2"
^DIPT(332,"T",39)="12^3^1^NJ11,2X^,2"
^DIPT(332,"T",53)="12^4^1^NJ11,2X^,2"
^DIPT(333,0)="PRCB READER DISP^2890717^^421.6^^^^"
^DIPT(333,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCF(421.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=$P(DIP(1),U,6)=1,DIP(3)=X S X=""st"",DIP(4)=X S X=$P(DIP(1),U,6)=2,DIP(5)=X S X=""nd"""
^DIPT(333,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=$P(DIP(1),U,6)=3,DIP(7)=X S X=""rd"",DIP(8)=X S X=1,DIP(9)=X S X=""th"""
^DIPT(333,"DXS",2,9.2)="S DIP(2)=$S($D(^PRCF(421.6,D0,0)):^(0),1:"""") S X=""$ "",DIP(1)=X S X=$P(DIP(2),U,4),DIP(3)=X S X=0,DIP(4)=X S X=2,X=$J(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X"
^DIPT(333,"DXS",3,9.2)="S DIP(2)=$S($D(^PRCF(421.6,D0,2)):^(2),1:"""") S X=""$ "",DIP(1)=X S X=$P(DIP(2),U,2),DIP(3)=X S X=0,DIP(4)=X S X=2,X=$J(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X"
^DIPT(333,"DXS",4,"NR")="NON-RECURRING"
^DIPT(333,"DXS",4,"R")="RECURRING"
^DIPT(333,"F",1)="""Transfer Transaction Summary"";C1~"" "";C20~""To Control Point: "";C9~2~""From Control Point: "";C7~1~""Transaction Date: "";C9~4~""Quarter: "";C18~"
^DIPT(333,"F",2)="X DXS(1,9.3) S X=$S(DIP(3):DIP(4),DIP(5):DIP(6),DIP(7):DIP(8),DIP(9):X) S Y=X,X=DIP(2),X=X_Y W X K DIP;Z;""QUARTER_$S(QUARTER=1:""st"",QUARTER=2:""nd"",QUARTER=3:""rd"",1:""th"")""~"
^DIPT(333,"F",3)="""Amount to be Transferred: "";C1~X DXS(2,9.2) S X=X_Y W X K DIP;Z;""""$ ""_$J(AMOUNT TO TRANSFER,0,2)""~""R/NR: "";C21~8~""Annualization: "";C12~"
^DIPT(333,"F",4)="X DXS(3,9.2) S X=X_Y W X K DIP;Z;""""$ ""_$J(ANNUALIZATION AMOUNT,0,2)""~""Description: "";C1;S~5,.01~"
^DIPT(333,"H")="@"
^DIPT(333,"IOM")="80"
^DIPT(333,"LAST")=""
^DIPT(333,"ROU")="^PRCBTCP"
^DIPT(333,"ROUOLD")="PRCBTCP"
^DIPT(333,"SUB")="1"
^DIPT(334,0)="PRCFA RECEIVING REPORT LIST^2950131.1246^^442.9^^^^"
^DIPT(334,"DCL","442.9^3")="!"
^DIPT(334,"F",2)=".01~1~2~3~4~8~"
^DIPT(334,"H")="ELECTRONIC RECEIVING REPORT BATCH STATISTICS"
^DIPT(335,0)="PRCFA REC RPT TRANS LIST^2890720^^442.9^^^^"
^DIPT(335,"DCL","442.9^1")="!"
^DIPT(335,"F",1)=".01~1;L11~"
^DIPT(335,"F",2)="S DIP(1)=$S($D(^PRC(442.9,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""."",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;""PARTIAL NUMBER"";L7;Z;""$P(NAME,""."",2)""~"
^DIPT(335,"F",3)="2;L20~3~4~5~"
^DIPT(335,"H")="RECEIVING REPORT TRANSMISSION LISTING"
^DIPT(336,0)="PRCFD DUE IN FISCAL PRINT^2890707^^421.5^^^^"
^DIPT(336,"F",2)=".01~4.5;""P.O. #""~6;L25~57;""DUE IN FISCAL""~"
^DIPT(336,"H")="INVOICES DUE IN FISCAL"
^DIPT(337,0)="PRCF CI DISCOUNT DUE PRINT^2890707^^421.5^^^^"
^DIPT(337,"DXS",1,9)="S DIP(1)=$S($D(^PRCF(421.5,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,8)/100,DIP(2)=X S X=0,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X)"
^DIPT(337,"F",2)=".01~4.5;""P.O. #""~55~56~X DXS(1,9) W X K DIP;""GROSS INVOICE AMOUNT"";Z;""$J(GROSS AMOUNT OF INVOICE/100,0,2)""~50~"
^DIPT(337,"H")="CERTIFIED INVOICES DUE FOR DISCOUNT PAYMENT"
^DIPT(338,0)="PRCF CI NET DUE DATE PRINT^2890707^^421.5^^^^"
^DIPT(338,"DXS",1,9)="S DIP(1)=$S($D(^PRCF(421.5,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,8)/100,DIP(2)=X S X=0,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X)"
^DIPT(338,"F",2)=".01~4.5;""P.O. #""~56~X DXS(1,9) W X K DIP;""GROSS INVOICE AMOUNT"";Z;""$J(GROSS AMOUNT OF INVOICE/100,0,2)""~50~"
^DIPT(338,"H")="CERTIFIED INVOICES DUE FOR NET PAYMENT"
^DIPT(339,0)="PRCSOAR^2940107.1553^^410^^^^"
^DIPT(339,"F",2)=".01~24;""PO/OBL#""~23;""DATE OBL.""~7;""DATE REQ.""~44;""DATE SIGNED""~47;""EST.DEL.DATE""~11;L26~54~7.5;""PRIORITY""~"
^DIPT(339,"H")="OUTSTANDING APPROVED REQUESTS REPORT"
^DIPT(340,0)="PRCB CC LISTING W/SUBACCT^2941026.1338^^420.1^^^^"
^DIPT(340,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCD(420.1,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.2,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=60"
^DIPT(340,"F",2)=".01;S1;""""~2,.01;C12;""""~1,X DXS(1,9.2) S X=$E(DIP(2),DIP(3),X) W X K DIP;""BOC"";C16;Z;""$E(BOC,1,60)""~"
^DIPT(340,"H")="COST CENTER LIST-WITH ASSOC. BOC"
^DIPT(341,0)="PRCB SUBACCT LISTING^2941026.1346^^420.2^^^^"
^DIPT(341,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(420.2,.5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCD(420.2,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(341,"F",1)=""
^DIPT(341,"F",2)="X DXS(1,9.2) S X=X=""YES"",DIP(3)=X S X=""**"",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;X;S1;Z;""$S(DEACTIVATED BOC=""YES"":""**"",1:"""")""~"
^DIPT(341,"F",3)=".01;X~1,.01;C12;""""~"
^DIPT(341,"H")="BOC LISTING (**=DEACTIVATED)"
^DIPT(342,0)="PRCFA BACKGROUND TRANSMIT^2920825.1622^^423^^^^"
^DIPT(342,"F",1)=".01;S;C1~999.1;C10;L3;""TECH""~.2,.01;C15;X~"
^DIPT(342,"F",2)=".2,S ^TMP(""PRCFCALM"",$J,BATTYPE,BATCH,PRCFX,0)=X,PRCFX=PRCFX+1;Z;""S ^TMP(""PRCFCALM"",$J,BATTYPE,BATCH,PRCFX,0)=X,PRCFX=PRCFX+1""~"
^DIPT(342,"H")="[PRCFA CALM HEADER]"
^DIPT(343,0)="PRCB CC LISTING^2890808^^420.1^^^^"
^DIPT(343,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(420.1,.5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRCD(420.1,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(343,"F",1)=""
^DIPT(343,"F",2)="X DXS(1,9.2) S X=X=""YES"",DIP(3)=X S X=""**"",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;X;S1;Z;""$S(DEACTIVATED COST CENTER=""YES"":""**"",1:"""")""~"
^DIPT(343,"F",3)=".01;X~2,.01;C12;""""~"
^DIPT(343,"H")="COST CENTER LISTING (**=DEACTIVATED)"
^DIPT(344,0)="PRCE DAILY RECORD EDIT^2960226.1125^^424.1^^^2960424"
^DIPT(344,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRC(424,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(424,D0,0)):^(0),1:"""")"
^DIPT(344,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRC(424,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(424,D0,0)):^(0),1:"""")"
^DIPT(344,"DXS",3,9)="X DXS(3,9.2) S DIP(101)=$S($D(^PRC(424,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^PRC(442,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRC(442,D0,8)):^(8),1:"""") S X=$P(DIP(201),U,3) S D0=I(0,0)"
^DIPT(344,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRC(424,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(344,"F",1)="""DAILY RECORD:"";C22~.01~""AUTHORIZATION NUMBER:"";C14~.02~""AUTHORIZATION REFERENCE:"";C11~"
^DIPT(344,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,10) S D0=I(0,0) W X K DIP;Z;"".02:REFERENCE""~""AUTHORIZATION BALANCE:"";C13~""$""~"
^DIPT(344,"F",3)="X DXS(2,9.2) S X=$P(DIP(101),U,5) S D0=I(0,0) W X K DIP;R12;D2;Z;"".02:.05""~""OBLIGATION SERVICE BALANCE:"";C8~""$""~"
^DIPT(344,"F",4)="X DXS(3,9) W X K DIP;R12;D2;Z;"".02:.02:96""~""--------------------------------------------------------------------------------"";S1~""1.)"";C1~"
^DIPT(344,"F",5)="""AMOUNT:"";C16~S DIP(1)=$S($D(^PRC(424.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3)/-1 W X K DIP;Z;""(AUTHORIZATION AMOUNT)/-1""~""2.)"";C1~"
^DIPT(344,"F",6)="""VENDOR INVOICE #:"";C6~.06~""3.)"";C1~""REFERENCE:"";C13~.08~""4.)"";C1~""COMMENTS:"";C14~1.1;C25~"
^DIPT(344,"F",7)="""--------------------------------------------------------------------------------""~""LAST EDITED BY :"";C7;S1~.1~""LAST EDITED: "";C11~.04~"
^DIPT(344,"H")="@"
^DIPT(344,"IOM")="80"
^DIPT(344,"LAST")=""
^DIPT(344,"ROU")="^PRCET"
^DIPT(344,"ROUOLD")="PRCET"
^DIPT(344,"SUB")="1"
^DIPT(345,0)="PRCE 1358 EOM LISTING^2920210.1138^^442^^^^"
^DIPT(345,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),X=0,DIP(103)=0 S DIP(102)="""""
^DIPT(345,"DXS",1,9.3)="X DXS(1,9.2) X ""F D1=0:0 S D1=$N(^PRC(442,D0,10,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""") S:Y'?."""" """" DIP(103)=DIP(103)+1 I DIP(103)=1 S DIP(102)=Y Q"" S D(1)=D1"
^DIPT(345,"F",1)=".01~.02~"
^DIPT(345,"F",2)="X DXS(1,9.3) S X=DIP(102),DIP(104)=X S X=1,DIP(105)=X S X=6,X=$E(DIP(104),DIP(105),X) S D0=I(0,0) S D1=I(1,0) W X K DIP;""TRANSACTION TYPE"";Z;""$E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6)""~"
^DIPT(345,"F",3)="91~94;""OBLIGATION BALANCE""~95;""FISCAL BALANCE""~"
^DIPT(345,"H")="END OF MONTH 1358 LISTING"
^DIPT(346,0)="PRCH UNPOSTED DIETETIC PRINT^2920522.1403^^442^^^^"
^DIPT(346,"DCL","442.08^2")="&"
^DIPT(346,"F",2)=".01;L10~1;L4~40,20,2~40,20,1;L11~40,20,.01~40,3.1;""PACK MULT"";L4~40,3~40,1,.01;L50~"
^DIPT(346,"H")="UNPOSTED DIETETIC COST REPORT"
^DIPT(347,0)="PRCFOOR4X^2941207.1708^^420.96^^^^"
^DIPT(347,"DXS",1,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(101),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""")"
^DIPT(347,"F",1)="S PRCSTAT=$P($G(^PRCU(420.96,D0,0)),U,6);X;Z;""S PRCSTAT=$P($G(^PRCU(420.96,D0,0)),U,6)""~"
^DIPT(347,"F",2)="I $D(PRCOSTAT) I PRCOSTAT'=PRCSTAT W ! D SUB^PRCFOOR5;X;Z;""I $D(PRCOSTAT) I PRCOSTAT'=PRCSTAT W ! D SUB^PRCFOOR5""~"
^DIPT(347,"F",3)="S PRCNSTAT=$P($P($P(^DD(420.96,5,0),""^"",3),PRCSTAT_"":"",2),"":"");X;Z;""S PRCNSTAT=$P($P($P(^DD(420.96,5,0),""^"",3),PRCSTAT_"":"",2),"":"")""~"
^DIPT(347,"F",4)="S PRCNSTAT=$E(PRCNSTAT,1,$L(PRCNSTAT)-2);X;Z;""S PRCNSTAT=$E(PRCNSTAT,1,$L(PRCNSTAT)-2)""~"
^DIPT(347,"F",5)="I PRCSTAT=4 S PRCNSTAT=""NO IFCAP RECORD/ FMS OPEN"";X;Z;""I PRCSTAT=4 S PRCNSTAT=""NO IFCAP RECORD/ FMS OPEN""""~"
^DIPT(347,"F",6)="I '$D(PRCOSTAT) W !,?11,""STATUS: "",PRCNSTAT;X;Z;""I '$D(PRCOSTAT) W !,?11,""STATUS: "",PRCNSTAT""~S PRCOSTAT=PRCSTAT;X;Z;""S PRCOSTAT=PRCSTAT""~"
^DIPT(347,"F",7)="3;""REF NO"";L6;C1~-442,^PRC(442,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S D(0)=+X;Z;""3:""~-442,.1~"
^DIPT(347,"F",8)="-442,S DIP(101)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,3),DIP(102)=X S X="" "",X=$P(DIP(102),X) W X K DIP;L3;""FCP"";Z;""$P(FCP,"" "")""~"
^DIPT(347,"F",9)="-442,X DXS(1,9.2) S X=$P(DIP(201),U,3) S D0=I(100,0) W X K DIP;""SOURCE CODE"";L1;Z;""8:2""~"
^DIPT(347,"F",10)="-442,S DIP(101)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REQ DATE"";Z;""NUMDATE(DELIVERY DATE)""~"
^DIPT(347,"F",11)="-442,S DIP(101)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,5),DIP(102)=X S X="" "",X=$P(DIP(102),X) W X K DIP;""COST CENTER"";Z;""$P(COST CENTER,"" "")""~"
^DIPT(347,"F",12)="-442,D ^PRCFOOR5;X;Z;""D ^PRCFOOR5""~-442,"""";""SUB ACCOUNT"";L13~-442,"""";""OBLIGATION AMOUNT""~-442,"""";""ACCRUED EXPENDITURES""~-442,"""";""UNDELIVERED ORDERS""~"
^DIPT(347,"H")="IFCAP/FMS OBLIGATION RECONCILIATION REPORT LIST"
^DIPT(348,0)="PRCFOOR4^2941219.1208^^420.96^^^^"
^DIPT(348,"F",1)=".01~.5~2~2.5~3~-442,^PRC(442,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S D(0)=+X;Z;""IFCAP DOCUMENT NUMBER:""~"
^DIPT(348,"F",2)="-442,.1~4~1~S DIP(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2)-$P(DIP(1),U,5) W X K DIP;""VARIANCE"";Z;""(CALM/FMS UDO AMT)-IFCAP UDO AMT""~"
^DIPT(348,"H")="IFCAP/FMS OBLIGATION RECONCILIATION REPORT"
^DIPT(349,0)="PRCB SUBACCOUNT LIST^2941026.1344^^420.2^^^^"
^DIPT(349,"F",2)=".01;L40~.5;""DEACTIVATED?""~.6~.7~1,.01;W30~"
^DIPT(349,"H")="BOC LIST"
^DIPT(350,0)="PRCFA BTCH HEADER^2940812.1039^^423^^^^"
^DIPT(350,"F",1)="S:'$D(BATCH) BATCH="""";Z;""S:'$D(BATCH) BATCH=""""""~S:'$D(BATTYPE) BATTYPE="""";Z;""S:'$D(BATTYPE) BATTYPE=""""""~""FEE TRANSMISSION RECORD"";C1~""DATE: "";C45~"
^DIPT(350,"F",2)="D NOW^PRCFQ W %X;Z;""D NOW^PRCFQ W %X""~""TRANSMITTED BY: "";C1~"
^DIPT(350,"F",3)="W $S($D(^VA(200,DUZ)):$P(^VA(200,DUZ,0),""^""),1:""UNKNOWN"");Z;""W $S($D(^VA(200,DUZ)):$P(^VA(200,DUZ,0),""^""),1:""UNKNOWN"")""~""BATCH TYPE: "";C1~.6~"
^DIPT(350,"F",4)="S BATTYPE=$P(^PRCF(423.9,$P(X,U,4),0),U,6);Z;""S BATTYPE=$P(^PRCF(423.9,$P(X,U,4),0),U,6)""~""BATCH NUMBER: "";C45~.7~"
^DIPT(350,"F",5)="I BATCH'=$P(X,U,5) S BATCH=$P(X,U,5),PRCFX=1;Z;""I BATCH'=$P(X,U,5) S BATCH=$P(X,U,5),PRCFX=1""~"
^DIPT(350,"F",6)="W ! F I=1:1:$S(IOM<96:IOM,1:96) W ""_"";Z;""W ! F I=1:1:$S(IOM<96:IOM,1:96) W ""_""""~W !,?50;Z;""W !,?50""~"
^DIPT(350,"H")="@"
^DIPT(350,"SUB")="1"
^DIPT(351,0)="PRCFA 1358 EOM REPORT^2880316^^442^^^^"
^DIPT(351,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),X=0,DIP(103)=0 S DIP(102)="""""
^DIPT(351,"DXS",1,9.3)="X DXS(1,9.2) X ""F D1=0:0 S D1=$N(^PRC(442,D0,10,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""") S:Y'?."""" """" DIP(103)=DIP(103)+1 I DIP(103)=1 S DIP(102)=Y Q"" S D(1)=D1"
^DIPT(351,"F",1)=".01~.02~"
^DIPT(351,"F",2)="X DXS(1,9.3) S X=DIP(102),DIP(104)=X S X=1,DIP(105)=X S X=6,X=$E(DIP(104),DIP(105),X) S D0=I(0,0) S D1=I(1,0) W X K DIP;""TRANSACTION TYPE"";Z;""$E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6)""~"
^DIPT(351,"F",3)="91~94~95~"
^DIPT(351,"H")="END OF MONTH 1358 LISTING"
^DIPT(352,0)="PRCS1358 DAILY RECORD BALANCE^2900108.1555^^424^^^^"
^DIPT(352,"%D",0)="^^2^2^2890716^"
^DIPT(352,"%D",1,0)="This print template is for the Daily Record detail of a "
^DIPT(352,"%D",2,0)="particular Control Point Activity Transaction."
^DIPT(352,"DCL","424^10")="&"
^DIPT(352,"DCL","424^14")="&"
^DIPT(352,"DCL","424^19")="&"
^DIPT(352,"DCL","424^7")="&"
^DIPT(352,"DCL","424^9")="&"
^DIPT(352,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(424,11,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(352,"F",1)="16;C1;""STATUS""~"
^DIPT(352,"F",2)="S DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=1,DIP(4)=X S X=2,X=$P(DIP(2),DIP(3),DIP(4),X) W X K DIP;C1;""OBLIGATION"";N;Z;""$P(#.01,""-"",1,2)""~"
^DIPT(352,"F",3)="S DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=3,X=$P(DIP(2),DIP(3),X) W X K DIP;L4;""ENT#"";C12;Z;""$P(#.01,""-"",3)""~"
^DIPT(352,"F",4)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;L3;C19;X;Z;""$E(#11,1,3)""~"
^DIPT(352,"F",5)="S DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DATE"";C24;Z;""NUMDATE(#5)""~"
^DIPT(352,"F",6)="9;R8;""EST $"";C33~7;R8;""ACT $"";C43~10;R8;""NET $"";C53~14;R8;C63;~19;R8;""FIS BAL"";C72~"
^DIPT(352,"H")="1358 DAILY RECORD BALANCE REPORT"
^DIPT(353,0)="PRCS1358 DAILY RECORD W COMM^2900108.1615^^424^^^^"
^DIPT(353,"%D",0)="^^3^3^2890716^"
^DIPT(353,"%D",1,0)="This print template is for the Daily Record detail of a "
^DIPT(353,"%D",2,0)="particular Control Point Activity Transaction with the "
^DIPT(353,"%D",3,0)="Comments field."
^DIPT(353,"DCL","424^10")="&"
^DIPT(353,"DCL","424^14")="&"
^DIPT(353,"DCL","424^19")="&"
^DIPT(353,"DCL","424^7")="&"
^DIPT(353,"DCL","424^9")="&"
^DIPT(353,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(424,11,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(353,"F",1)="16;C1;""STATUS""~"
^DIPT(353,"F",2)="S DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=1,DIP(4)=X S X=2,X=$P(DIP(2),DIP(3),DIP(4),X) W X K DIP;C1;""OBLIGATION"";N;Z;""$P(#.01,""-"",1,2)""~"
^DIPT(353,"F",3)="S DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=3,X=$P(DIP(2),DIP(3),X) W X K DIP;L4;""ENT#"";C12;Z;""$P(#.01,""-"",3)""~"
^DIPT(353,"F",4)="X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=3,X=$E(DIP(3),DIP(4),X) W X K DIP;L3;C19;X;Z;""$E(#11,1,3)""~"
^DIPT(353,"F",5)="S DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DATE"";C24;Z;""NUMDATE(#5)""~"
^DIPT(353,"F",6)="9;R8;""EST $"";C33~7;R8;""ACT $"";C43~10;R8;""NET $"";C53~14;R8;C63~19;R8;""FIS BAL"";C72~13;C2~"
^DIPT(353,"H")="1358 DAILY RECORD BALANCE REPORT"
^DIPT(354,0)="PRCB 285 SUMMARY^2890728^^421^^^^"
^DIPT(354,"DCL","421^20")="&"
^DIPT(354,"DCL","421^21")="&"
^DIPT(354,"DCL","421^22")="&"
^DIPT(354,"DCL","421^23")="&"
^DIPT(354,"DCL","421^24")="&"
^DIPT(354,"DCL","421^25")="&"
^DIPT(354,"DCL","421^26")="&"
^DIPT(354,"DCL","421^27")="&"
^DIPT(354,"DCL","421^28")="&"
^DIPT(354,"DCL","421^29")="&"
^DIPT(354,"DCL","421^30")="&"
^DIPT(354,"DCL","421^31")="&"
^DIPT(354,"F",2)=".01~3~20~21~22~23~24~25~26~27~28~29~30~31~17,.01;W30~"
^DIPT(354,"H")="BUDGET DISTRIBUTION SUMMARY REPORT"
^DIPT(355,0)="PRCB MANAGER/USER LIST^2940609.1616^^420^^^^"
^DIPT(355,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,10) S:'$D(^DIC(49,+D0,0)) D0=-1"
^DIPT(355,"F",1)=""
^DIPT(355,"F",2)="1,X DXS(1,9.2) S DIP(101)=$S($D(^DIC(49,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;""SERVICE"";L15;S1;Z;""CONTROLLING SERVICE:ABBREVIATION""~"
^DIPT(355,"F",3)="1,22;""ROLL OVER"";L4~1,14;;""OVERCOMMIT?""~1,6,.01;""USER"";C5~1,6,1~"
^DIPT(355,"H")="LIST OF CONTROL POINTS"
^DIPT(356,0)="PRCS1358 OPEN DAILY RECORDS^2920610.1537^^424^^^^"
^DIPT(356,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^PRCS(410,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCS(410,D0,0)):^(0),1:"""")"
^DIPT(356,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRC(442,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(442,D0,8)):^(8),1:"""")"
^DIPT(356,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRC(442,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(442,D0,8)):^(8),1:"""")"
^DIPT(356,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(424,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRC(442,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(442,D0,8)):^(8),1:"""")"
^DIPT(356,"F",1)="2~X DXS(1,9.2) S DIP(102)=X,Y=$P(DIP(101),U,8) X:$D(^DD(410,3.2,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;""MTH"";L3;Z;""2:3.2""~1;""PO#"";L10~"
^DIPT(356,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;""ACTUAL BALANCE"";Z;""1:94""~"
^DIPT(356,"F",3)="X DXS(3,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""FISCAL BALANCE"";Z;""1:95""~"
^DIPT(356,"F",4)="X DXS(4,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;""ESTIMATED BALANCE"";Z;""1:96""~"
^DIPT(356,"H")="1358 DAILY RECORD LIST"
^DIPT(357,0)="PRCSSA^2940518.1241^^410^^^^"
^DIPT(357,"DCL","410.02^-1")="&"
^DIPT(357,"DXS",1,9.2)="S I(0)=""^PRCS(410,"",J(0)=410 F D=0:0 S (D,D2)=$O(^PRCS(410,D0,""IT"",D1,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D2"
^DIPT(357,"F",1)=".01~10,.01~10,X DXS(1,9.2):D1>0 S X="""",DIP(1)=X S X=1,DIP(2)=X S X=15,X=$E(DIP(1),DIP(2),X) W X K DIP;""DESCRIPTION"";m;w;Z;""$E(DESCRIPTION,1,15)""~10,2~"
^DIPT(357,"F",2)="10,7~10,S DIP(1)=$S($D(^PRCS(410,D0,""IT"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2)*$P(DIP(1),U,7);R10;D2;""TOTAL"";;Z;""(#2*#7)"";&~"
^DIPT(357,"H")="BUDGET OBJECT CODE DETAIL TOTALS"
^DIPT(358,0)="PRC SD PRINT^2940112.1435^^420.15^^^^"
^DIPT(358,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(358,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(359,0)="PRC SD PRINT^2940401.1642^^420.17^^^^"
^DIPT(359,"F",2)=".01;""Code""//~1;""Description"";L30~2;""Status"";L6//~3;""Fix Value"";L15 ~"
^DIPT(359,"H")="PRCD SD DOCUMENT DATA ELEMENT LIST"
^DIPT(360,0)="PRC SD PRINT^2940112.1438^^420.16^^^^"
^DIPT(360,"F",2)=".01;""Code""//~1;""Description"";L35~2;""Status"";L6//~3;""Fix Value"";L15 ~"
^DIPT(360,"H")="PRCD SD DOCUMENT TYPE LIST"
^DIPT(361,0)="PRC SD PRINT^2940401.1639^^420.131^^^^"
^DIPT(361,"F",2)=".01;""Code""// ~1;""Description"";L25~2;""ST"";L2~3;""Fix Value"";L15~"
^DIPT(361,"H")="PRCD SD ORGANIZATION LIST"
^DIPT(362,0)="PRC SD PRINT^2940112.1453^^420.13^^^^"
^DIPT(362,"F",2)=".01;""Code""//~1;""Description"";L35~2;""Status"";L6// ~3;""Fix Value"";L15~"
^DIPT(362,"H")="PRCD SD PROGRAM LIST"
^DIPT(363,0)="PRC SD PRINT^2940112.1454^^420.1999^^^^"
^DIPT(363,"F",2)=".01;""Code""//~1;""Description"";L35~2;""Status"";L6//~3;""Fix Value"";L15~"
^DIPT(363,"H")="PRCD SD STATUS LIST"
^DIPT(364,0)="PRCD FUND^2940810.1122^^420.14^^^^"
^DIPT(364,"F",2)=".01~1;L35~2;""BBFY""~3;""EBFY""~5;""ST"";L2~"
^DIPT(364,"H")="IFCAP Fund List"
^DIPT(365,0)="PRC SD PRINT^2940112.1435^^420.9999^^^^"
^DIPT(365,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(365,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(366,0)="PRCD LIST^2940810.1118^^420.19^^^^"
^DIPT(366,"F",1)=".01~1~2;L6~4;""SITE E/E""~5;""FV USED""~"
^DIPT(366,"F",2)="S DIP(1)=$S($D(^PRCD(420.19,D0,0)):^(0),1:"""") S X=""File Name: ""_$S('$D(^DIC(+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;X;Z;""""File Name: ""_FILE NAME/NUMBER""~"
^DIPT(366,"H")="IFCAP Standard Dictionary List"
^DIPT(367,0)="PRCD PRINT^2940630.1632^^420.18^^^^"
^DIPT(367,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRCD(420.14,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCD(420.14,D0,0)):^(0),1:"""")"
^DIPT(367,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRCD(420.14,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCD(420.14,D0,0)):^(0),1:"""")"
^DIPT(367,"F",1)=".01;N~X DXS(1,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;""BBFY"";Z;""FUND:BUDGET FISCAL YEAR BEGIN""~"
^DIPT(367,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,4) S D0=I(0,0) W X K DIP;""EBFY"";Z;""FUND:BUDGET FISCAL YEAR END""~1;N~2~3~"
^DIPT(367,"H")="IFCAP Document Required Fields List"
^DIPT(368,0)="PRC SD PRINT^2940112.1435^^420.132^^^^"
^DIPT(368,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(368,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(369,0)="PRC SD PRINT^2940112.1435^^420.133^^^^"
^DIPT(369,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(369,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(370,0)="PRC SD PRINT^2940112.1435^^420.135^^^^"
^DIPT(370,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(370,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(371,0)="PRC SD PRINT^2940112.1435^^420.136^^^^"
^DIPT(371,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(371,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(372,0)="PRC SD PRINT^2940112.1435^^420.137^^^^"
^DIPT(372,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(372,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(373,0)="PRC SD PRINT^2940112.1435^^420.134^^^^"
^DIPT(373,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(373,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(374,0)="PRCSEXCE^2960404.0913^^417.1^^^^"
^DIPT(374,"DCL","417.1^19")="&"
^DIPT(374,"F",2)=".01;""REFERENCE"";C3~21;C40;""TRANS DATE""~19;D2;R12;C55~7;C1~1;C9;R4;""BFY""~6;C15;""AO""~5;C21~9;C33~8;C47~15;C58;""OBJ CLASS""~13;C74~"
^DIPT(374,"H")="FMS EXCEPTIONS STATISTICS"
^DIPT(375,0)="PRC SD PRINT^2940112.1435^^420.138^^^^"
^DIPT(375,"F",2)=".01;""Code""~1;""Description"";L35~2;""Status"";L6~3;""Fix Value"";L15~"
^DIPT(375,"H")="PRCD SD ADMINISTRATIVE OFFICE LIST"
^DIPT(376,0)="PRCSCOM^2940428.1439^^410^^^^"
^DIPT(376,"F",2)=".01~1~20~X $P(^DD(410,54,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=1,DIP(3)=X S X=30,X=$E(DIP(2),DIP(3),X) W X K DIP;""STATUS"";Z;""$E(STATUS,1,30)""~"
^DIPT(376,"H")="COMMITTED TRANSACTION LISTING"
^DIPT(377,0)="PRCF FMS ADJUSTMENTS^2940809.16^^420.99^^^^"
^DIPT(377,"F",2)=".01~2;""SNAPSHOT BALANCE""~6;""CALM BALANCE""~7;""OBLIGATION ADJUSTMENT""~9~"
^DIPT(377,"H")="FMS CONVERSION - CONTROL POINT ADJUSTMENTS"
^DIPT(378,0)="PRCF FMS ADJUSTMENTS^2940809.2313^^420.98^^^^"
^DIPT(378,"F",2)="3~1~2~"
^DIPT(378,"H")="FMS CONTROL POINT UPDATE DISCREPANCY LIST"
^DIPT(379,0)="PRCFA BTCH TRANSMIT^2940812.1041^^423^^^^"
^DIPT(379,"F",1)=".01;S;C1~999.1;C10;L3;""TECH""~.2,.01;C15;X~"
^DIPT(379,"F",2)=".2,S ^TMP(""PRCFBTCH"",$J,BATTYPE,BATCH,PRCFX,0)=X,PRCFX=PRCFX+1;Z;""S ^TMP(""PRCFBTCH"",$J,BATTYPE,BATCH,PRCFX,0)=X,PRCFX=PRCFX+1""~"
^DIPT(379,"H")="[PRCFA BTCH HEADER]"
^DIPT(380,0)="PRCD FUND/APPROPRIATION^2941024.1417^^420.3^^^^"
^DIPT(380,"F",2)=".01~2~3~4;""APPR. PAT A/R""~1;""PGM.LIM.ANA ACC""~"
^DIPT(380,"H")="PRCD FUND/APPROPRIATION CODE LIST"
^DIPT(381,0)="PRCB CPF ACC ELEMENT^2950317.11^^420^^^^"
^DIPT(381,"F",2)="""STATION: ""~0;X~1,""FCP: "";C1~1,.01~1,20~1,"" "";C1~1,1;L10~1,25.5;""A/O"";L5~1,26;L10~1,27;L10~1,29;L10~1,28;L10~"
^DIPT(381,"H")="FUND CONTROL POINT ACC. ELEMENTS LIST"
^DIPT(382,0)="PRCXA^2941214.1417^^420^^^^"
^DIPT(382,"F",2)=".01~1,.01~1,15,.01~1,15,1~1,15,5~"
^DIPT(382,"H")="FCP BALANCE LIST"
^DIPT(383,0)="PRCFUOMS^2951027.1458^^442^^^2960404^"
^DIPT(383,"DXS",1,9)="I $D(^PRC(442,D0,10,1,0)) S PRCTDT=$P(^(0),U,6) W:PRCTDT $E(PRCTDT,4,5)_""/""_$E(PRCTDT,6,7)_""/""_$E(PRCTDT,2,3)"
^DIPT(383,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(DIP(1),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""")"
^DIPT(383,"F",1)="S PRCFCAP=$S($D(^PRC(442,D0,0)):$P(^(0),U,4),1:"""");X;Z;""S PRCFCAP=$S($D(^PRC(442,D0,0)):$P(^(0),U,4),1:"""")""~"
^DIPT(383,"F",2)="I '$D(PRCFAP) W ?11,""APPROPRIATION: "",PRCFCAP;X;Z;""I '$D(PRCFAP) W ?11,""APPROPRIATION: "",PRCFCAP""~"
^DIPT(383,"F",3)="I $D(PRCFAP),PRCFAP'=PRCFCAP D SUB^PRCFUOMS;X;Z;""I $D(PRCFAP),PRCFAP'=PRCFCAP D SUB^PRCFUOMS""~S PRCFAP=PRCFCAP;X;Z;""S PRCFAP=PRCFCAP""~"
^DIPT(383,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;""REF NO"";L6;C1;Z;""$P(PURCHASE ORDER NUMBER,""-"",2)""~"
^DIPT(383,"F",5)="X DXS(1,9);""TRANS DATE"";L8;Z;""I $D(^PRC(442,D0,10,1,0)) S PRCTDT=$P(^(0),U,6) W:PRCTDT $E(PRCTDT,4,5)_""/""_$E(PRCTDT,6,7)_""/""_$E(PRCTDT,2,3)""~"
^DIPT(383,"F",6)="I $D(^PRC(442,D0,10,1,0)),$L($P(^(0),U,1)) W $P($P(^(0),U,1),""."",1,2);""TRANS CODE"";L6;Z;""I $D(^PRC(442,D0,10,1,0)),$L($P(^(0),U,1)) W $P($P(^(0),U,1),""."",1,2)""~"
^DIPT(383,"F",7)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;L3;""FCP"";Z;""$P(FCP,"" "",1)""~"
^DIPT(383,"F",8)="X DXS(2,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;""SOURCE CODE"";L1;Z;""8:2""~"
^DIPT(383,"F",9)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""REQ DATE"";Z;""NUMDATE(DELIVERY DATE)""~"
^DIPT(383,"F",10)="S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;""COST CENTER"";Z;""$P(COST CENTER,"" "",1)""~"
^DIPT(383,"F",11)="D ^PRCFUO;X;Z;""D ^PRCFUO""~"""";"" BOC"";L13~"""";""OBLIGATED AMOUNT""~"""";""ACCRUED EXPENDITURES""~"""";""UNDELIVERED ORDERS""~"
^DIPT(383,"H")="850 UNDELIVERED ORDERS FOR MANDATED SOURCES"
^DIPT(384,0)="PRCA PROFILE^2931227.1109^^430^^^^"
^DIPT(384,"%D",0)="^^4^4^2881006^^"
^DIPT(384,"%D",1,0)="This template prints a profile of an account where the debtor"
^DIPT(384,"%D",2,0)="is not an employee, ex-employee, Category 'C' (Means Test),"
^DIPT(384,"%D",3,0)="or Vendor."
^DIPT(384,"%D",4,0)="OPTION: PRCAC PROFILE"
^DIPT(384,"DXS",1,9)="S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)"
^DIPT(384,"F",1)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;""NOW""~"" ACCOUNTS RECEIVABLE PROFILE""~"
^DIPT(384,"F",2)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""NAME: "";C1~9;X~""BILL #: "";C40~"
^DIPT(384,"F",3)=".01;X~D EN1^PRCADR;Z;""D EN1^PRCADR""~""CURRENT STATUS: "";S1;C1~8;X~""CATEGORY: "";C40~2;X~""CP: "";C1~250;X~""DATE BILL PREPARED: "";C40~10;X~"
^DIPT(384,"F",4)="D EN5^PRCADR1;Z;""D EN5^PRCADR1""~D EN1^PRCADR1;Z;""D EN1^PRCADR1""~D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """";Z;""D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """"""~"
^DIPT(384,"F",5)="D EN3^PRCADR;Z;""D EN3^PRCADR""~""TRANSACTIONS: "";S1;C1~D EN2^PRCADR;Z;""D EN2^PRCADR""~Q:$D(PRCA(""HALT"")) W """";Z;""Q:$D(PRCA(""HALT"")) W """"""~"
^DIPT(384,"F",6)="""BILL RESULTING FROM: "";S1;C1~X DXS(1,9);Z;""S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)""~"
^DIPT(384,"F",7)="D EN4^PRCADR1;Z;""D EN4^PRCADR1""~"
^DIPT(384,"F",8)="Q:'$D(PRCA(""WROFF"")) K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS;Z;""Q:'$D(PRCA(""WROFF"")) K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS""~"
^DIPT(384,"H")="@"
^DIPT(384,"IOM")="80"
^DIPT(384,"LAST")=""
^DIPT(384,"ROU")="^PRCATP1"
^DIPT(384,"ROUOLD")="PRCATP1"
^DIPT(384,"SUB")="1"
^DIPT(385,0)="PRCA 3RD REPORT^2971204.1205^^430^^^2980309"
^DIPT(385,"%D",0)="^^2^2^2881006^"
^DIPT(385,"%D",1,0)="This template prints a listing of 3rd party bills."
^DIPT(385,"%D",2,0)="OPTION: PRCAD R 3RD"
^DIPT(385,"DCL","430^66")="+"
^DIPT(385,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(385,"F",1)="7;""NAME"";C1;L23~.01;C26;L11~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""CAT"";C40;L2;Z;""CATEGORY:ABBR""~64;C44;L12;""REF DATE""~"
^DIPT(385,"F",2)="S DIP(1)=$S($D(^PRCA(430,D0,6)):^(6),1:"""") S X=$P(DIP(1),U,5),X=X W X K DIP;""TO"";C57;L3;Z;""INTERNAL(REFERRAL CODE)""~3;C61;L8;""ORIG AMT""~"
^DIPT(385,"F",3)="66;C70;L9;""REF AMT""~"
^DIPT(385,"H")="3RD PARTY ACCOUNTS RECEIVABLE"
^DIPT(386,0)="PRCA 3RD PROFILE^2940527.0834^^430^^^^"
^DIPT(386,"%D",0)="^^3^3^2881006^"
^DIPT(386,"%D",1,0)="This template prints a profile of 3rd party bills."
^DIPT(386,"%D",2,0)="COMPILED: ^PRCATP5"
^DIPT(386,"%D",3,0)="OPTION: PRCAC PROFILE"
^DIPT(386,"DXS",1,9)="S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)"
^DIPT(386,"F",1)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;""NOW""~"" 3RD PARTY ACCOUNTS RECEIVABLE PROFILE""~"
^DIPT(386,"F",2)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""PATIENT NAME: "";C1~7;X~"
^DIPT(386,"F",3)="""BILL #: "";C40~.01;X~""CURRENT STATUS: "";S1;C1~8;X~""CATEGORY: "";C40~2;X~""CP: "";C1~250;X~""FUND (APPROPRIATION): "";C40~203;X~""DATE BILL PREPARED: "";C40~"
^DIPT(386,"F",4)="10;X~""TYPE OF CARE: "";C40~"
^DIPT(386,"F",5)="S X=D0 D ^DGCRAMS W ?59,$S(Y=-1:"""",""^249^293^""[(""^""_Y_""^""):""OUTPATIENT"",1:""INPATIENT"");Z;""S X=D0 D ^DGCRAMS W ?59,$S(Y=-1:"""",""^249^293^""[(""^""_Y_""^""):""OUTPATIENT"",1:""INPATIENT"")""~"
^DIPT(386,"F",6)="""DATES OF SERVICE: "";C40~"
^DIPT(386,"F",7)="S X=$$SVDT^PRCADR(D0) W:+X $$FMTE^XLFDT($P(X,U,3))_"" -"",!,?59,$$FMTE^XLFDT($P(X,U,4));Z;""S X=$$SVDT^PRCADR(D0) W:+X $$FMTE^XLFDT($P(X,U,3))_"" -"",!,?59,$$FMTE^XLFDT($P(X,U,4))""~"
^DIPT(386,"F",8)="D EN1^PRCADR1;Z;""D EN1^PRCADR1""~""3RD PARTY: "";S1;C1~9;C13;L27~D EN4^PRCADR;Z;""D EN4^PRCADR""~""INSURED'S NAME"";S1;C1~""S"";C26~""ID NO."";C29~"
^DIPT(386,"F",9)="""GROUP NAME"";C46~""GROUP NO."";C61~239;C2~S DIP(1)=$S($D(^PRCA(430,D0,202)):^(202),1:"""") S X=$P(DIP(1),U,2),X=X W X K DIP;C26;Z;""INTERNAL(INSURED SEX)""~"
^DIPT(386,"F",10)="242;C29~243;C46~244;C61~D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """";Z;""D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """"""~""EMPLOYER NAME"";S1;C1~""EMPLOYEE ID"";C29~"
^DIPT(386,"F",11)="""EMPLOYER LOCATION"";C45~247;C2~248;C29~249;C45~""SECONDARY INSURANCE COMPANY: "";C1~19~""TERTIARY INSUANCE COMPANY: "";C1~19.1~"
^DIPT(386,"F",12)="D EN3^PRCADR;Z;""D EN3^PRCADR""~""TRANSACTIONS: "";S1;C1~D EN2^PRCADR;Z;""D EN2^PRCADR""~Q:$D(PRCA(""HALT"")) W """";Z;""Q:$D(PRCA(""HALT"")) W """"""~"
^DIPT(386,"F",13)="""BILL RESULTING FROM: "";S1;C1~X DXS(1,9);Z;""S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)""~"
^DIPT(386,"F",14)="D PRCOMM^PRCAUT3;Z;""D PRCOMM^PRCAUT3""~Q:'$D(PRCA(""WROFF"")) W """";Z;""Q:'$D(PRCA(""WROFF"")) W """"""~"
^DIPT(386,"F",15)="K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS;Z;""K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS""~"
^DIPT(386,"H")="@"
^DIPT(386,"IOM")="80"
^DIPT(386,"LAST")=""
^DIPT(386,"ROU")="^PRCATP5"
^DIPT(386,"ROUOLD")="PRCATP5"
^DIPT(386,"SUB")="1"
^DIPT(387,0)="PRCA OTHER PROFILE^2940527.0829^^430^^^^"
^DIPT(387,"%D",0)="^^3^3^2910603^^"
^DIPT(387,"%D",1,0)="This template prints a profile of an account where the debtor is"
^DIPT(387,"%D",2,0)="an employee or ex-employee."
^DIPT(387,"%D",3,0)="OPTION: PRCAC PROFILE"
^DIPT(387,"DXS",1,9)="S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)"
^DIPT(387,"F",1)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;""NOW""~"" ACCOUNTS RECEIVABLE PROFILE""~"
^DIPT(387,"F",2)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""NAME: "";C1~9;X~""BILL #: "";C40~"
^DIPT(387,"F",3)=".01;X~D EN1^PRCADR;Z;""D EN1^PRCADR""~""CURRENT STATUS: "";S1;C1~8;X~""CATEGORY: "";C40~2;X~""CP: "";C1~250;X~""FUND (APPROPRIATION): "";C40~203;X~"
^DIPT(387,"F",4)="""DATE BILL PREPARED: "";C40~10;X~D EN1^PRCADR1;Z;""D EN1^PRCADR1""~D EN3^PRCADR;Z;""D EN3^PRCADR""~"
^DIPT(387,"F",5)="D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """";Z;""D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """"""~""TRANSACTIONS: "";S1;C1~D EN2^PRCADR;Z;""D EN2^PRCADR""~"
^DIPT(387,"F",6)="Q:$D(PRCA(""HALT"")) W """";Z;""Q:$D(PRCA(""HALT"")) W """"""~""BILL RESULTING FROM: "";S1;C1~"
^DIPT(387,"F",7)="X DXS(1,9);Z;""S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)""~D EN4^PRCADR1;Z;""D EN4^PRCADR1""~"
^DIPT(387,"F",8)="Q:'$D(PRCA(""WROFF"")) K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS;Z;""Q:'$D(PRCA(""WROFF"")) K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS""~"
^DIPT(387,"H")="@"
^DIPT(387,"IOM")="80"
^DIPT(387,"LAST")=""
^DIPT(387,"ROU")="^PRCATP4"
^DIPT(387,"ROUOLD")="PRCATP4"
^DIPT(387,"SUB")="1"
^DIPT(388,0)="PRCA MEANS PROFILE^2940527.0831^^430^^^^"
^DIPT(388,"%D",0)="^^3^3^2881006^"
^DIPT(388,"%D",1,0)="This template prints a profile of a Category 'C' (Means Test) account."
^DIPT(388,"%D",2,0)="COMPILED: ^PRCATP2"
^DIPT(388,"%D",3,0)="OPTION: PRCAC PROFILE"
^DIPT(388,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430.2,+$P(DIP(1),U,16),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=26"
^DIPT(388,"DXS",2,9)="S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)"
^DIPT(388,"F",1)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;""NOW""~"" MEANS TEST ACCOUNTS RECEIVABLE PROFILE""~"
^DIPT(388,"F",2)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""NAME: "";C1~9;X~""BILL #: "";C40~"
^DIPT(388,"F",3)=".01;X~D EN1^PRCADR;Z;""D EN1^PRCADR""~""CURRENT STATUS: "";S1;C1~8;X~""CATEGORY: "";C40~2;X~""CARE: "";C44~"
^DIPT(388,"F",4)="X DXS(1,9.2) S X=$E(DIP(2),DIP(3),X) W X K DIP;C50;Z;""$E(TYPE OF CARE,1,26)""~""CP: "";C1~250;X~""FUND (APPROPRIATION): "";C40~203;X~"
^DIPT(388,"F",5)="""DATE BILL PREPARED: "";C40~10;X~D EN5^PRCADR1;Z;""D EN5^PRCADR1""~D EN1^PRCADR1;Z;""D EN1^PRCADR1""~D EN5^PRCADR;Z;""D EN5^PRCADR""~"
^DIPT(388,"F",6)="Q:$D(PRCA(""HALT"")) W """";Z;""Q:$D(PRCA(""HALT"")) W """"""~D EN3^PRCADR;Z;""D EN3^PRCADR""~""TRANSACTIONS: "";S1;C1~D EN2^PRCADR;Z;""D EN2^PRCADR""~"
^DIPT(388,"F",7)="Q:$D(PRCA(""HALT"")) W """";Z;""Q:$D(PRCA(""HALT"")) W """"""~""BILL RESULTING FROM: "";S1;C1~"
^DIPT(388,"F",8)="X DXS(2,9);Z;""S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)""~D EN4^PRCADR1;Z;""D EN4^PRCADR1""~"
^DIPT(388,"F",9)="Q:'$D(PRCA(""WROFF"")) W """";Z;""Q:'$D(PRCA(""WROFF"")) W """"""~K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS;Z;""K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS""~"
^DIPT(388,"H")="@"
^DIPT(388,"IOM")="80"
^DIPT(388,"LAST")=""
^DIPT(388,"ROU")="^PRCATP2"
^DIPT(388,"ROUOLD")="PRCATP2"
^DIPT(388,"SUB")="1"
^DIPT(389,0)="PRCA BILL LIST^2940511.0954^^430^^^^"
^DIPT(389,"%D",0)="^^2^2^2881006^"
^DIPT(389,"%D",1,0)="This template prints a listing of bills and their original amounts."
^DIPT(389,"%D",2,0)="OPTION: PRCA BILL LIST"
^DIPT(389,"F",1)=".01;C1;L11;""Bill #""~"
^DIPT(389,"F",2)="S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;C13;""Date Prepared"";Z;""NUMDATE(DATE BILL PREPARED)""~"
^DIPT(389,"F",3)="9;L15;C23;""Debtor""~100;L4;C40;""Form Type""~8;L10;C46;""Status""~3;C58;L10;""Original Amount""~11;C70;L10;""Current Balance""~"
^DIPT(389,"H")="BILL STATUS LIST FOR SERVICE"
^DIPT(391,0)="PRCA AR LIST^2880129^^430^^^^"
^DIPT(391,"%D",0)="^^3^3^2881006^"
^DIPT(391,"%D",1,0)="This template print a formatted listing of bills and their principal"
^DIPT(391,"%D",2,0)="balances."
^DIPT(391,"%D",3,0)="OPTION: PRCAL LIST MENU"
^DIPT(391,"DCL","430^71")="+"
^DIPT(391,"F",2)=".01;C1;L11~9;C13;L25~2;C40;L14~10;C56;L12~71;C69~"
^DIPT(391,"H")="@"
^DIPT(391,"SUB")="1"
^DIPT(392,0)="PRCAD DC DOJ^2971204.1141^^430^^^2980401"
^DIPT(392,"%D",0)="^^3^3^2980227^^"
^DIPT(392,"%D",1,0)="This template prints a listing of bills that have been referred to"
^DIPT(392,"%D",2,0)="the Regional Counsel or the Department of Justice."
^DIPT(392,"%D",3,0)="OPTIONS: PRCAD R DC, PRCAD R DOJ"
^DIPT(392,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^PRCA(430.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.3,D0,0)):^(0),1:"""")"
^DIPT(392,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(392,"F",1)=".01;C1;L12~7;L12;C15~S DIP(1)=$S($D(^PRCA(430,D0,6)):^(6),1:"""") S X=$P(DIP(1),U,5),X=X W X K DIP;C30;L3;""TO"";Z;""INTERNAL(REFERRAL CODE)""~"
^DIPT(392,"F",2)="64;C34;L12;""REF.DATE""~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C48;L2;""ST"";Z;""CURRENT STATUS:ABBRE""~"
^DIPT(392,"F",3)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C52;L3;""CAT"";Z;""CATEGORY:ABBR""~203;C57;L5~66;C63+;""REF.AMT""~"
^DIPT(392,"H")="PRCAD DC DOJ"
^DIPT(393,0)="PRCAD DELINQ^2980120.1155^^430^^^2980120"
^DIPT(393,"%D",0)="^^3^3^2881006^"
^DIPT(393,"%D",1,0)="This template prints a listing of bills that are delinquent and the"
^DIPT(393,"%D",2,0)="number of days they are past due."
^DIPT(393,"%D",3,0)="OPTION: PRCAD R DELINQUENT MENU"
^DIPT(393,"DCL","430^71")="+"
^DIPT(393,"F",2)="I $$REFST^RCRCUTL(+D0) W ""r"";C1;"""";Z;""I $$REFST^RCRCUTL(+D0) W ""r""""~.01;C2;L12~9;C18;L23~61;""ICD"";C43;L12~71;""PRIN. BAL."";C56~70;""AGE"";C70~"
^DIPT(393,"H")="AR LIST"
^DIPT(394,0)="PRCAR MAS REPORT^2890403^^430^^^^"
^DIPT(394,"%D",0)="^^2^2^2881006^"
^DIPT(394,"%D",1,0)="This template prints the MAS Reconciliation Report."
^DIPT(394,"%D",2,0)="OPTION: PRCAD RECON MAS"
^DIPT(394,"DCL","430^3")="+"
^DIPT(394,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(394,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^PRCA(430.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.3,D0,0)):^(0),1:"""")"
^DIPT(394,"F",1)=".01;C1;L11~9;C14;L23~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""CAT."";C40;L3;Z;""CATEGORY:ABBR""~"
^DIPT(394,"F",2)="S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE BILL PREPARED"";C46;L10;Z;""NUMDATE(DATE BILL PREPARED)""~"
^DIPT(394,"F",3)="3;C59;R10~X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""STATUS"";C71;R8;Z;""CURRENT STATUS:ABBR""~111;C3~"
^DIPT(394,"H")="ACCOUNTS RECEIVABLE MAS REPORT"
^DIPT(395,0)="PRCA DISP AUDIT^2980312.1548^^430^^^2980312"
^DIPT(395,"%D",0)="^^3^3^2881006^"
^DIPT(395,"%D",1,0)="This template is used to display a bill during the AR Clerk's audit."
^DIPT(395,"%D",2,0)="COMPILED: ^PRCATO2"
^DIPT(395,"%D",3,0)="OPTION: PRCAA AUDIT"
^DIPT(395,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(340,.05,0)):$P(^(0),U,3),1:"""")"
^DIPT(395,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(2)=$S($D(^PRCA(430,D0,100)):^(100),1:"""") S X=""APPROVED IN "",DIP(1)=X,D0=$P(DIP(2),U,2) S:'$D(^DIC(49,+D0,0)) D0=-1"
^DIPT(395,"DXS",3,9)="S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,3) X:$D(^DD(430.02,3,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X)"
^DIPT(395,"F",1)="S X=""="",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~""BILL #: "";C1~.01~"
^DIPT(395,"F",2)="""CATEGORY: "";C30~2~15.1;C42~""DATE BILL PREPARED:"";C1~10;C21~I $D(PRCAT),PRCAT[""T"" D PATNM^PRCADR1;Z;""I $D(PRCAT),PRCAT[""T"" D PATNM^PRCADR1""~"
^DIPT(395,"F",3)="""DEBTOR: "";S1;C1~9;C10~S PRCALN=9 D EN2^PRCADR1 K PRCALN;Z;""S PRCALN=9 D EN2^PRCADR1 K PRCALN""~"
^DIPT(395,"F",4)="I $D(PRCAT),PRCAT[""T"" D EN6^PRCADR1;Z;""I $D(PRCAT),PRCAT[""T"" D EN6^PRCADR1""~""RECEIVABLE CODE: "";S1;C1~"
^DIPT(395,"F",5)="X DXS(1,9.2) S DIP(101)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,5)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;Z;""9:.05""~"
^DIPT(395,"F",6)="D RESULT^PRCAEIN;Z;""D RESULT^PRCAEIN""~"
^DIPT(395,"F",7)="X DXS(2,9.2) S DIP(101)=$S($D(^DIC(49,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),Y=X,X=DIP(1),X=X_Y_"" BY : "" S D0=I(0,0) W X K DIP;S1;C1;Z;""""APPROVED IN ""_(SERVICE:ABBREVIATION)_"" BY : """"~"
^DIPT(395,"F",8)="111~""Date"";S1;C1~""Description"";C12~""Quantity"";C35~""Units"";C46~""Cost"";C54~""Total Cost"";C64~"
^DIPT(395,"F",9)="S X=""="",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~"
^DIPT(395,"F",10)="106,S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C1;Z;""NUMDATE4(DATE OF CHARGES)""~"
^DIPT(395,"F",11)="106,X DXS(3,9) W X K DIP;C35;Z;""$J(QUANTITY (UNITS),1,2)""~106,5;L5;C46~"
^DIPT(395,"F",12)="106,S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4),DIP(2)=X S X=1,DIP(3)=X S X=4,X=$J(DIP(2),DIP(3),X) W X K DIP;C54;Z;""$J(UNIT COST,1,4)""~"
^DIPT(395,"F",13)="106,S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=1,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(TOTAL AMOUNT,1,2)""~"
^DIPT(395,"F",14)="106,2,.01;C12~"
^DIPT(395,"H")="@"
^DIPT(395,"IOM")="80"
^DIPT(395,"LAST")=""
^DIPT(395,"ROU")="^PRCATO2"
^DIPT(395,"ROUOLD")="PRCATO2"
^DIPT(395,"SUB")="1"
^DIPT(396,0)="PRCAL L DC-DOJ^2880812^^430^^^^"
^DIPT(396,"%D",0)="^^3^3^2881006^"
^DIPT(396,"%D",1,0)="This template prints a listing of bills that may need to be referred"
^DIPT(396,"%D",2,0)="to the District Counsel or the Department of Justice."
^DIPT(396,"%D",3,0)="OPTIONS: PRCAL REFER DC, PRCAL REFER DOJ"
^DIPT(396,"DCL","430^71")="+"
^DIPT(396,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(396,"F",2)=".01;L12~9;C14;L25~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""CAT."";C43;L4;Z;""CATEGORY:ABBREVIATION""~63;C51;L12~71;C67~"
^DIPT(396,"H")="AR LIST"
^DIPT(397,0)="PRCA DISP ADJ^2990831.1315^^433^^^2990831"
^DIPT(397,"%D",0)="^^4^4^2880825^"
^DIPT(397,"%D",1,0)="This template displays a transaction prior to editing. Multiple"
^DIPT(397,"%D",2,0)="appropriations are shown."
^DIPT(397,"%D",3,0)="COMPILED: ^PRCATO4"
^DIPT(397,"%D",4,0)="OPTION: PRCAC TR ADJUSTMENT"
^DIPT(397,"F",1)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""BILL NO.: "";C1~.03;C13~"
^DIPT(397,"F",2)="""ADJUSTMENT AMOUNT: "";C40~15;C62~""ADJUSTMENT DATE: "";C1~11;C22~""ADJUSTMENT NO.: "";C40~14;C60~""FISCAL YEAR"";S1;C1~""ADJ.AMOUNT"";C20~"
^DIPT(397,"F",3)="""PRIN.BAL.(ADJUSTED)"";C35~.02,.01;C1~.02,4;C20~.02,1;C35~"" "";C1~""Brief Comment: "";C1~5.02;C16~""Follow-up Date: "";C50~"
^DIPT(397,"F",4)="S DIP(1)=$S($D(^PRCA(433,D0,5)):^(5),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C66;Z;""NUMDATE(FOLLOW-UP DATE)""~"
^DIPT(397,"F",5)=""" "";C1~""Comments: "";C1~41,.01;C1~"
^DIPT(397,"F",6)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;S1;C1;Z;""DUP(""="",75)""~"
^DIPT(397,"H")="@"
^DIPT(397,"IOM")="80"
^DIPT(397,"LAST")=""
^DIPT(397,"ROU")="^PRCATO4"
^DIPT(397,"ROUOLD")="PRCATO4"
^DIPT(397,"SUB")="1"
^DIPT(398,0)="PRCA DISP CARE^2990831.1317^^433^^^2990831"
^DIPT(398,"%D",0)="^^4^4^2890124^^"
^DIPT(398,"%D",1,0)="This template displays a transaction prior to editing. Multiple"
^DIPT(398,"%D",2,0)="units of care are shown."
^DIPT(398,"%D",3,0)="COMPILED: ^PRCATO5"
^DIPT(398,"%D",4,0)="OPTION: PRCAC TR ADJUSTMENT"
^DIPT(398,"F",1)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;Z;""DUP(""="",75)""~""BILL NO.: "";C1~.03;C13~"
^DIPT(398,"F",2)="""ADJUSTMENT AMOUNT: "";C40~15;C62~""ADJUSTMENT DATE: "";C1~11;C22~""ADJUSTMENT NO.: "";C40~14;C60~""FISCAL YEAR"";S1;C1~""ADJ.AMOUNT"";C20~"
^DIPT(398,"F",3)="""PRIN.BAL.(ADJUSTED)"";C35~.02,.01;C1~.02,4;C20~.02,1;C35~"
^DIPT(398,"H")="AR TRANS LIST"
^DIPT(398,"IOM")="80"
^DIPT(398,"LAST")=""
^DIPT(398,"ROU")="^PRCATO5"
^DIPT(398,"ROUOLD")="PRCATO5"
^DIPT(399,0)="PRCAT NEW TRANS^2990831.1329^^433^^^2990831"
^DIPT(399,"%D",0)="^^4^4^2880825^"
^DIPT(399,"%D",1,0)="This template prints a list of new transactions that are pending"
^DIPT(399,"%D",2,0)="CALM code sheets."
^DIPT(399,"%D",3,0)="COMPILED: ^PRCATP9"
^DIPT(399,"%D",4,0)="OPTION: PRCAT LIST NEW TRANSACTIONS"
^DIPT(399,"F",1)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~""TRANSACTION NO.:"";C1~.01;X~"
^DIPT(399,"F",2)="""BILL NO.: "";C1~.03;C15;X~S PRCABN=$P(X,U,2);Z;""S PRCABN=$P(X,U,2)""~"
^DIPT(399,"F",3)="-430,^PRCA(430,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".03:""~"
^DIPT(399,"F",4)="-430,S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=""CATEGORY: ""_$S('$D(^PRCA(430.2,+$P(DIP(101),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C40;L25;Z;""""CATEGORY: ""_CATEGORY""~"
^DIPT(399,"F",5)="""TRANS.DATE: "";C1~11;C15~""TRANS.TYPE: "";C40~12;C53;L20~""FY"";S1;C2~""APPROP.SYMBOL"";C10~""TRANS.AMOUNT"";C30~.02,.01;C1~.02,D APPR^PRCALM;Z;""D APPR^PRCALM""~"
^DIPT(399,"F",6)=".02,4;C30~S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~"
^DIPT(399,"H")="@"
^DIPT(399,"IOM")="80"
^DIPT(399,"LAST")=""
^DIPT(399,"ROU")="^PRCATP9"
^DIPT(399,"ROUOLD")="PRCATP9"
^DIPT(399,"SUB")="1"
^DIPT(400,0)="PRCAP COST^2871127^^433^^^^"
^DIPT(400,"%D",0)="^^4^4^2880825^"
^DIPT(400,"%D",1,0)="This template displays the administrative/Interest costs prior"
^DIPT(400,"%D",2,0)="to editing."
^DIPT(400,"%D",3,0)="COMPILED: ^PRCATO3"
^DIPT(400,"%D",4,0)="OPTION: PRCAC TR ADM"
^DIPT(400,"F",1)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C1;Z;""DUP(""="",79)""~""BILL N0.: "";C1~.03;C13;L12~"
^DIPT(400,"F",2)="""TRANSACTION DATE: "";C35~11;C55~""TYPE: "";C1~12;C12~""TOTAL TRANS. AMOUNT: "";C35~15;C60~""IRS LOC. COST: "";C1~21~""CREDIT REP.COST: "";C35~22~"
^DIPT(400,"F",3)="""DMV LOC.COST: "";C1~23~""CONSUMER REP.AGENCY COST: "";C35~24~""MARSHAL FEE: "";C1~25~""COURT COST: "";C35~26~"
^DIPT(400,"F",4)="I $D(PRCASUP) D EN2^PRCAEXM;Z;""I $D(PRCASUP) D EN2^PRCAEXM""~"
^DIPT(400,"F",5)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C1;Z;""DUP(""="",79)""~"
^DIPT(400,"H")="@"
^DIPT(400,"IOM")="80"
^DIPT(400,"LAST")=""
^DIPT(400,"ROU")="^PRCATO3"
^DIPT(400,"ROUOLD")="PRCATO3"
^DIPT(400,"SUB")="1"
^DIPT(401,0)="PRCAP DEBTOR LOCATE^2900802.102^^430^^^^"
^DIPT(401,"%D",0)="^^3^3^2881006^"
^DIPT(401,"%D",1,0)="This template prints a report of locator information for a debtor."
^DIPT(401,"%D",2,0)="COMPILED: ^PRCATO9"
^DIPT(401,"%D",3,0)="OPTION: PRCAC LOCATE DEBTOR"
^DIPT(401,"DXS",1,"N")="NO"
^DIPT(401,"DXS",1,"Y")="YES"
^DIPT(401,"DXS",2,"N")="NO"
^DIPT(401,"DXS",2,"Y")="YES"
^DIPT(401,"DXS",3,"N")="NO"
^DIPT(401,"DXS",3,"Y")="YES"
^DIPT(401,"DXS",4,"N")="NO"
^DIPT(401,"DXS",4,"Y")="YES"
^DIPT(401,"DXS",5,"N")="NO"
^DIPT(401,"DXS",5,"Y")="YES"
^DIPT(401,"DXS",6,"N")="NO"
^DIPT(401,"DXS",6,"Y")="YES"
^DIPT(401,"F",1)="""BILL NO.: "";C1~.01;C12;L15~""DEBTOR: "";C40~9;C50;L25~"
^DIPT(401,"F",2)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~""ABLE TO PAY:"";C1~86;C14~"
^DIPT(401,"F",3)="""ABLE TO LOCATE:"";C25~87;C42~""DMV LOCA. CHECK:"";C50~83.1;C68~""POSTAL LOC. DATE SENT:"";C1~88;C24~""POSTAL LOC. DATE REC'D:"";C40~89;C65~"
^DIPT(401,"F",4)="""IRS ABLE TO LOCATE:"";C1~89.1;C23~""IRS LOC. DATE SENT:"";C40~89.2;C62~""IRS LOC. DATE REC'D:"";C1~89.3~""CREDIT REP. ABLE TO PAY:"";C40~89.4;C66~"
^DIPT(401,"F",5)="""CREDIT REPT. DATE SENT:"";C1~89.5;C25~""CREDIT REP. DATE REC'D:"";C40~89.6;C65~""PATIENT FOLDER REVIEWED:"";C1~89.7;C26~""DATE FOLDER REVIEWED:"";C40~"
^DIPT(401,"F",6)="89.8;C63~""LETTER1:"";S1;C1~61;C10~""LETTER2:"";C26~62;C35~""LETTER3:"";C53~63;C62~"
^DIPT(401,"F",7)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~"
^DIPT(401,"H")="@"
^DIPT(401,"IOM")="80"
^DIPT(401,"LAST")=""
^DIPT(401,"ROU")="^PRCATO9"
^DIPT(401,"ROUOLD")="PRCATO9"
^DIPT(401,"SUB")="1"
^DIPT(402,0)="PRCAP WAIVED^2990831.1327^^433^^^2990831"
^DIPT(402,"%D",0)="^^4^4^2880825^^"
^DIPT(402,"%D",1,0)="This template displays waiver information prior to editing. Multiple"
^DIPT(402,"%D",2,0)="appropriations are shown."
^DIPT(402,"%D",3,0)="COMPILED: ^PRCATW2"
^DIPT(402,"%D",4,0)="OPTION: PRCAC TR WAIVED"
^DIPT(402,"F",1)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""BILL NO.: "";C1~.03;C13~"
^DIPT(402,"F",2)="""WAIVED AMOUNT: "";C40~15;C55;D2~""WAIVED DATE: "";C1~11;C16~""FISCAL YEAR"";S1;C1~""WAIVED AMOUNT"";C20~""PRIN.BAL. DUE"";C35~.02,.01;C1~.02,4;C20~.02,1;C35~"
^DIPT(402,"F",3)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;S1;C1;Z;""DUP(""="",75)""~"
^DIPT(402,"H")="@"
^DIPT(402,"IOM")="80"
^DIPT(402,"LAST")=""
^DIPT(402,"ROU")="^PRCATW2"
^DIPT(402,"ROUOLD")="PRCATW2"
^DIPT(402,"SUB")="1"
^DIPT(403,0)="PRCAP CARE WV^2990831.1324^^433^^^2990831"
^DIPT(403,"%D",0)="^^4^4^2880825^"
^DIPT(403,"%D",1,0)="This template displays a transaction prior to editing a waiver."
^DIPT(403,"%D",2,0)="Multiple appropriations are shown."
^DIPT(403,"%D",3,0)="COMPILED: ^PRCATW3"
^DIPT(403,"%D",4,0)="OPTION: PRCAC TR WAIVED"
^DIPT(403,"F",1)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""BILL NO.: "";C1~.03;C13~"
^DIPT(403,"F",2)="""WAIVED AMOUNT:"";C40~15;C55;D2~""WAIVED DATE: "";C1~11;C16~""FISCAL YEAR"";S1;C1~""WAIVED AMOUNT"";C20~""PRIN.BAL.(WAIVED)"";C35~.02,.01;C1~.02,4;C20~.02,1;C35~"
^DIPT(403,"H")="@"
^DIPT(403,"IOM")="80"
^DIPT(403,"LAST")=""
^DIPT(403,"ROU")="^PRCATW3"
^DIPT(403,"ROUOLD")="PRCATW3"
^DIPT(403,"SUB")="1"
^DIPT(404,0)="PRCAP REPAYMENT^2871216^^430^^^^"
^DIPT(404,"%D",0)="^^2^2^2881006^"
^DIPT(404,"%D",1,0)="This template prints a profile of a repayment plan."
^DIPT(404,"%D",2,0)="OPTION: PRCAC REPAYMENT MENU"
^DIPT(404,"DXS",1,0)="NO"
^DIPT(404,"DXS",1,1)="YES"
^DIPT(404,"DXS",2,0)="NO"
^DIPT(404,"DXS",2,1)="YES"
^DIPT(404,"F",1)="""BILL NO.: "";C1~.01;C12~""DEBTOR:"";C35~9;C45~""CURRENT BALANCE: "";C1~11;C19;L12~""REPAYMENT AMOUNT: "";C35~43;C55~""REPAYMENT SCHEDULE"";S1;C25~"
^DIPT(404,"F",2)="S X=""-"",DIP(1)=X S X=72,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C1;Z;""DUP(""-"",72)""~""DUE"";C1~""PAYMENT"";C18~"
^DIPT(404,"F",3)="""SEND PAYMENT"";C35~""DATE SENT PAYMENT"";C55~""DATE"";C1~""RECEIVED"";C18~""STATEMENT"";C35~""STATEMENT"";C55~"
^DIPT(404,"F",4)="S X=""-"",DIP(1)=X S X=72,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C1;Z;""DUP(""-"",72)""~51,.01;C1~51,1;C18~51,2;C35~"
^DIPT(404,"F",5)="51,5;C55~S X=""-"",DIP(1)=X S X=72,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C1;Z;""DUP(""-"",72)""~"
^DIPT(404,"H")="@"
^DIPT(404,"IOM")="80"
^DIPT(404,"LAST")=""
^DIPT(404,"ROU")="^PRCATR1"
^DIPT(404,"ROUOLD")="PRCATR1"
^DIPT(404,"SUB")="1"
^DIPT(405,0)="PRCAT DISP CP^2931227.1101^^430^^^^"
^DIPT(405,"%D",0)="^^4^4^2881006^^"
^DIPT(405,"%D",1,0)="This template display a bill's data for the Accounting Technician"
^DIPT(405,"%D",2,0)="to assign a PAT reference number."
^DIPT(405,"%D",3,0)="COMPILED: ^PRCATO8"
^DIPT(405,"%D",4,0)="OPTION: PRCAT PAT REF NUMBER"
^DIPT(405,"F",1)="S X=""="",DIP(1)=X S X=70,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",70)""~""BILL NO.: "";C1~.01;C13~"
^DIPT(405,"F",2)="""CATEGORY: "";C30~2;C43~""CONTROL POINT:"";C1~250;C22~""DATE BILL PREPARED:"";C30~10;C51~""FISCAL YEAR"";S1;C1~""APPROPR. SYMBOL"";C20~""ALD CODE"";C40~"
^DIPT(405,"F",3)="""AMOUNT"";C55~1,.01;C2~1,3;C21~1,4;C41~1,7;C56;L9~""BILL RESULTING FROM:"";S1;C1~4.5;C22~"
^DIPT(405,"F",4)="S X=""="",DIP(1)=X S X=70,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",70)""~"
^DIPT(405,"H")="@"
^DIPT(405,"IOM")="80"
^DIPT(405,"LAST")=""
^DIPT(405,"ROU")="^PRCATO8"
^DIPT(405,"ROUOLD")="PRCATO8"
^DIPT(405,"SUB")="1"
^DIPT(406,0)="PRCA NEWB LIST^2880414^^430^^^^"
^DIPT(406,"%D",0)="^^2^2^2881006^"
^DIPT(406,"%D",1,0)="This template prints a listing of new bills."
^DIPT(406,"%D",2,0)="OPTION: PRCAL L NEW"
^DIPT(406,"DCL","430^3")="+"
^DIPT(406,"F",2)=".01;C1;L11~9;C13;L25~2;C40;L14~10;C56;L12~3;C69~"
^DIPT(406,"H")="@"
^DIPT(406,"SUB")="1"
^DIPT(407,0)="PRCA LIST HOLD^2930907.0825^^430^^^^"
^DIPT(407,"%D",0)="^^3^3^2881006^"
^DIPT(407,"%D",1,0)="This template prints a list of accounts with holds on the"
^DIPT(407,"%D",2,0)="debt collection letters."
^DIPT(407,"%D",3,0)="OPTION: PRCAE LIST HOLD"
^DIPT(407,"F",1)=".01;C1;L12~9;C15;L20~21;C40~22;C55~"
^DIPT(407,"F",2)="W:$P($G(^PRCA(430,D0,1)),""^"",3)]"""" !?14,""Comments: "",$P(^(1),""^"",3);"""";Z;""W:$P($G(^PRCA(430,D0,1)),""^"",3)]"""" !?14,""Comments: "",$P(^(1),""^"",3)""~"
^DIPT(407,"H")="@"
^DIPT(407,"SUB")="1"
^DIPT(408,0)="PRCAC TR LIST^2880113^^433^^^^"
^DIPT(408,"%D",0)="^^3^3^2880825^"
^DIPT(408,"%D",1,0)="This template lists accounts that have been written-off."
^DIPT(408,"%D",2,0)="COMPILED: ^PRCATW1"
^DIPT(408,"%D",3,0)="OPTION: PRCAL L WRITTEN OFF"
^DIPT(408,"DXS",1,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",1,2)="BANKRUPTCY"
^DIPT(408,"DXS",1,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",1,4)="WAIVED"
^DIPT(408,"DXS",1,5)="COMPROMISED"
^DIPT(408,"DXS",1,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",1,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",1,8)="INCORRECT BILLING"
^DIPT(408,"DXS",1,9)="OTHERS"
^DIPT(408,"DXS",2,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",2,2)="BANKRUPTCY"
^DIPT(408,"DXS",2,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",2,4)="WAIVED"
^DIPT(408,"DXS",2,5)="COMPROMISED"
^DIPT(408,"DXS",2,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",2,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",2,8)="INCORRECT BILLING"
^DIPT(408,"DXS",2,9)="OTHERS"
^DIPT(408,"DXS",3,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",3,2)="BANKRUPTCY"
^DIPT(408,"DXS",3,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",3,4)="WAIVED"
^DIPT(408,"DXS",3,5)="COMPROMISED"
^DIPT(408,"DXS",3,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",3,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",3,8)="INCORRECT BILLING"
^DIPT(408,"DXS",3,9)="OTHERS"
^DIPT(408,"DXS",4,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",4,2)="BANKRUPTCY"
^DIPT(408,"DXS",4,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",4,4)="WAIVED"
^DIPT(408,"DXS",4,5)="COMPROMISED"
^DIPT(408,"DXS",4,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",4,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",4,8)="INCORRECT BILLING"
^DIPT(408,"DXS",4,9)="OTHERS"
^DIPT(408,"DXS",5,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",5,2)="BANKRUPTCY"
^DIPT(408,"DXS",5,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",5,4)="WAIVED"
^DIPT(408,"DXS",5,5)="COMPROMISED"
^DIPT(408,"DXS",5,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",5,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",5,8)="INCORRECT BILLING"
^DIPT(408,"DXS",5,9)="OTHERS"
^DIPT(408,"DXS",6,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",6,2)="BANKRUPTCY"
^DIPT(408,"DXS",6,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",6,4)="WAIVED"
^DIPT(408,"DXS",6,5)="COMPROMISED"
^DIPT(408,"DXS",6,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",6,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",6,8)="INCORRECT BILLING"
^DIPT(408,"DXS",6,9)="OTHERS"
^DIPT(408,"DXS",7,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",7,2)="BANKRUPTCY"
^DIPT(408,"DXS",7,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",7,4)="WAIVED"
^DIPT(408,"DXS",7,5)="COMPROMISED"
^DIPT(408,"DXS",7,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",7,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",7,8)="INCORRECT BILLING"
^DIPT(408,"DXS",7,9)="OTHERS"
^DIPT(408,"DXS",8,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",8,2)="BANKRUPTCY"
^DIPT(408,"DXS",8,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",8,4)="WAIVED"
^DIPT(408,"DXS",8,5)="COMPROMISED"
^DIPT(408,"DXS",8,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",8,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",8,8)="INCORRECT BILLING"
^DIPT(408,"DXS",8,9)="OTHERS"
^DIPT(408,"DXS",9,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",9,2)="BANKRUPTCY"
^DIPT(408,"DXS",9,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",9,4)="WAIVED"
^DIPT(408,"DXS",9,5)="COMPROMISED"
^DIPT(408,"DXS",9,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",9,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",9,8)="INCORRECT BILLING"
^DIPT(408,"DXS",9,9)="OTHERS"
^DIPT(408,"DXS",10,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",10,2)="BANKRUPTCY"
^DIPT(408,"DXS",10,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",10,4)="WAIVED"
^DIPT(408,"DXS",10,5)="COMPROMISED"
^DIPT(408,"DXS",10,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",10,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",10,8)="INCORRECT BILLING"
^DIPT(408,"DXS",10,9)="OTHERS"
^DIPT(408,"DXS",11,1)="DEBTOR'S DEATH"
^DIPT(408,"DXS",11,2)="BANKRUPTCY"
^DIPT(408,"DXS",11,3)="INABILITY TO LOCATE"
^DIPT(408,"DXS",11,4)="WAIVED"
^DIPT(408,"DXS",11,5)="COMPROMISED"
^DIPT(408,"DXS",11,6)="A DEBT UNDER $25"
^DIPT(408,"DXS",11,7)="INABILITY TO COLLECT"
^DIPT(408,"DXS",11,8)="INCORRECT BILLING"
^DIPT(408,"DXS",11,9)="OTHERS"
^DIPT(408,"F",2)="""WRITE-OFF PROCESS:"";S1;C1~11;C23~12;C38~17;C60~""PROCESSED BY:"";C3~42~41,.01~"
^DIPT(408,"H")="@"
^DIPT(408,"IOM")="80"
^DIPT(408,"LAST")=""
^DIPT(408,"ROU")="^PRCATW1"
^DIPT(408,"ROUOLD")="PRCATW1"
^DIPT(408,"SUB")="1"
^DIPT(409,0)="PRCAT NEW AR^2990831.1335^^430^^^2990831"
^DIPT(409,"%D",0)="^^4^4^2881006^^"
^DIPT(409,"%D",1,0)="This template displays a new bill for the Accounting Technician"
^DIPT(409,"%D",2,0)="after the AR Clerk has released it."
^DIPT(409,"%D",3,0)="COMPILED: ^PRCATP7"
^DIPT(409,"%D",4,0)="OPTION: PRCAT LIST PENDING CALM"
^DIPT(409,"F",1)="W:$D(IOF) @IOF;Z;""W:$D(IOF) @IOF""~""NEW ACCOUNTS RECEIVABLE"";S3;C28;X~"
^DIPT(409,"F",2)="S X=""="",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~""BILL NO.:"";C4~.01;C15~"
^DIPT(409,"F",3)="""NAME:"";C41~9;C49~""STATUS:"";S1;C4~8;C13~""CATEGORY:"";C41~2;C52;X~""GL NO.:"";C4~4;C13~""DATE BILL PREPARED:"";C41~10;C64~""FISCAL YEAR"";S1;C4~"
^DIPT(409,"F",4)="""APPROPRIATION SYMBOL"";C20~""AMOUNT"";C45~1,.01;C6~1,3;C22~1,7;C41~""BILL RESULTING FROM:"";S1;C4~4.5;C26~""SIGNATURE CODE:"";S1;C4~90;C22~"
^DIPT(409,"F",5)="S X=""="",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~"
^DIPT(409,"H")="@"
^DIPT(409,"IOM")="80"
^DIPT(409,"LAST")=""
^DIPT(409,"ROU")="^PRCATP7"
^DIPT(409,"ROUOLD")="PRCATP7"
^DIPT(409,"SUB")="1"
^DIPT(410,0)="PRCAS DC^2980303.122^^433^^^2980406"
^DIPT(410,"%D",0)="^^1^1^2980303^^"
^DIPT(410,"%D",1,0)="This option prints referred bill transactions to Regional Counsel."
^DIPT(410,"DCL","433^15")="+"
^DIPT(410,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(410,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(410,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(410,"DXS",2,9.3)="X DXS(2,9.2) S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,8) S:'$D(^PRCA(430.3,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRCA(430.3,D0,0)):^(0),1:"""")"
^DIPT(410,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430,D0,11)):^(11),1:"""")"
^DIPT(410,"F",1)=".03;S1;L15~15~11~X DXS(1,9.3) S X=$P(DIP(201),U,2) S D0=I(0,0) W X K DIP;""CAT."";Z;""BILL NUMBER:CATEGOR:ABB""~"
^DIPT(410,"F",2)="X DXS(2,9.3) S X=$P(DIP(201),U,2) S D0=I(0,0) W X K DIP;""STATUS"";Z;""BILL NUMBER:8:ABB""~"
^DIPT(410,"F",3)="X DXS(3,9.2) S X=$P(DIP(101),U,17) S D0=I(0,0) W X K DIP;""FUND"";Z;""BILL NUMBER:FUND""~81;C18~82~83~84~85~"
^DIPT(410,"H")="AR TRANSACTION STATISTICS"
^DIPT(411,0)="PRCAD COWC LIST^2880921^^430^^^^"
^DIPT(411,"%D",0)="^^3^3^2881006^"
^DIPT(411,"%D",1,0)="Tthis template prints a listing of bills that been referred to the"
^DIPT(411,"%D",2,0)="DVB Committee on Waivers and Compromise."
^DIPT(411,"%D",3,0)="OPTION: PRCAD COWC LIST"
^DIPT(411,"DCL","430^68.5")="+"
^DIPT(411,"F",2)="9;C1;L25~.01;C30;L12~68.4;C47;C12~68.5;C65~"
^DIPT(411,"H")="ACCOUNTS RECEIVABLE STATISTICS"
^DIPT(413,0)="PRCAP AMIS^2890126^^433^^^^"
^DIPT(413,"DCL","433^-1")="+"
^DIPT(413,"DCL","433^15")="+"
^DIPT(413,"DXS",1,9)="X DXS(1,9.6) S X=$S(DIP(4):DIP(6),DIP(11):DIP(102),DIP(103):X) S D0=I(0,0)"
^DIPT(413,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(17)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:""""),DIP(5)=$S($D(^(3)):^(3),1:""""),DIP(13)=$S($D(^(8)):^(8),1:"""")"
^DIPT(413,"DXS",1,9.3)="X DXS(1,9.2) S X=$P(DIP(1),U,2),X=X S X=X=2,DIP(2)=X,DIP(3)=X S X=$P(DIP(1),U,2),X=X S X=X=34,Y=X,X=DIP(2),X=X!Y,DIP(4)=X S X=$P(DIP(5),U,1),DIP(6)=X"
^DIPT(413,"DXS",1,9.4)="X DXS(1,9.3) S DIP(7)=X,DIP(8)=X S X=$P(DIP(1),U,2),X=X S X=X=8,DIP(9)=X,DIP(10)=X S X=$P(DIP(1),U,2),X=X S X=X=9,Y=X,X=DIP(9),X=X!Y,DIP(11)=X,DIP(12)=X"
^DIPT(413,"DXS",1,9.5)="X DXS(1,9.4) S X=$P(DIP(13),U,1)>0,DIP(14)=X S X=$P(DIP(13),U,1),DIP(15)=X S X=1,DIP(16)=X,D0=$P(DIP(17),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1"
^DIPT(413,"DXS",1,9.6)="X DXS(1,9.5) S DIP(101)=$S($D(^PRCA(430,D0,7)):^(7),1:"""") S X=$P(DIP(101),U,1),X=$S(DIP(14):DIP(15),DIP(16):X),DIP(102)=X S X=1,DIP(103)=X S X=$P(DIP(1),U,5)"
^DIPT(413,"F",1)=".03~5~15~"
^DIPT(413,"F",2)="X DXS(1,9);""APPLIED TO PRIN."";D2;;Z;""$S((INTERNAL(#12)=2)!(INTERNAL(#12)=34):#31,(INTERNAL(#12)=8)!(INTERNAL(#12)=9):$S(#81>0:#81,1:BILL NUMBER:PRINCIPAL BALANCE),1:#15)"";+~"
^DIPT(413,"H")="AR TRANSACTION STATISTICS"
^DIPT(413,"IOM")="80"
^DIPT(413,"LAST")=""
^DIPT(413,"STATS","N",1)="0"
^DIPT(413,"STATS","N",2)="0"
^DIPT(413,"STATS","S",1)="0"
^DIPT(413,"STATS","S",2)="0"
^DIPT(413,"T",45)="10^1^1^RNJ9,2^,2"
^DIPT(413,"T",57)="9^2^1^C0^,2"
^DIPT(414,0)="PRCAP OUTSTAND AMIS^2880617^^430^^^^"
^DIPT(414,"%D",0)="^^3^3^2881006^"
^DIPT(414,"%D",1,0)="This template is used to print the total amount of the outstanding"
^DIPT(414,"%D",2,0)="balances."
^DIPT(414,"%D",3,0)="OPTION: PRCAD AMIS REPORT"
^DIPT(414,"DCL","430^71")="+"
^DIPT(414,"DNP")="1"
^DIPT(414,"F",2)="71;S1~"
^DIPT(414,"H")="ACCOUNTS RECEIVABLE STATISTICS"
^DIPT(415,0)="PRCAP ESTABLISH AMIS^2880616^^430^^^^"
^DIPT(415,"%D",0)="^^2^2^2881006^"
^DIPT(415,"%D",1,0)="This template prints a listing of bills for the AMIS reports."
^DIPT(415,"%D",2,0)="OPTION: PRCAD AMIS REPORT"
^DIPT(415,"DCL","430^3")="+"
^DIPT(415,"F",2)=".01~16~3~"
^DIPT(415,"H")="ACCOUNTS RECEIVABLE STATISTICS"
^DIPT(416,0)="PRCAP RETURN BILL^2900807.1353^^430^^^^"
^DIPT(416,"%D",0)="^^3^3^2930709^^^"
^DIPT(416,"%D",1,0)="This template prints a listing in the Service/Section of bills that"
^DIPT(416,"%D",2,0)="have been returned by Accounts Receivable."
^DIPT(416,"%D",3,0)="OPTION: PRCAL RETURNED BILL"
^DIPT(416,"F",1)="""<< BILL RETURNED FROM AR >>"";C30~"
^DIPT(416,"F",2)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~""BILL NO.: "";C1~.01;C12~"
^DIPT(416,"F",3)="""PAYER:"";C40~9;C47~""PREV. STATUS:"";C1~95;C15;X~""CURR. STATUS:"";C40~8;C55;X~""ORIGINAL AMOUNT:"";C1~"
^DIPT(416,"F",4)="S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X="" $""_$P(DIP(1),U,3) W X K DIP;C17;Z;"""" $""_ORIGINAL AMOUNT""~""SERVICE:"";C40~101;C49;X~"
^DIPT(416,"F",5)="""<< SERVICE >>"";S1;C34~""APPROV. BY:"";C1~111;C13~""DATE:"";C40~113;C46~""<< FISCAL >>"";S1;C34~""RETN'D BY:"";C1~32;C13~""DATE:"";C40~31;C47~"
^DIPT(416,"F",6)="""RETN'D REASON:"";C1~S PRCAPC=6 D PRCOMM^PRCALST K PRCAPC;Z;""S PRCAPC=6 D PRCOMM^PRCALST K PRCAPC""~"
^DIPT(416,"F",7)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~"
^DIPT(416,"H")="@"
^DIPT(416,"IOM")="80"
^DIPT(416,"LAST")=""
^DIPT(416,"ROU")="^PRCATP6"
^DIPT(416,"ROUOLD")="PRCATP6"
^DIPT(416,"SUB")="1"
^DIPT(417,0)="PRCAA AMEND AUDIT^2920213.1047^^430^^^^"
^DIPT(417,"%D",0)="^^4^4^2881006^"
^DIPT(417,"%D",1,0)="This template prints a display of the amended bill data during"
^DIPT(417,"%D",2,0)="the AR Clerk's audit."
^DIPT(417,"%D",3,0)="COMPILED: ^PRCATR2"
^DIPT(417,"%D",4,0)="OPTION: PRCAA AMEND AUDIT"
^DIPT(417,"F",1)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~""BILL NO.:"";C1~.01;C11~"
^DIPT(417,"F",2)="""DEBTOR:"";C35~9;C45;X~""ORIGINAL AMOUNT:"";C1~S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X="" $""_$P(DIP(1),U,3) W X K DIP;C17;Z;"""" $""_ORIGINAL AMOUNT""~"
^DIPT(417,"F",3)="""CATEGORY:"";C35~2;C45~""<<RETURNED>>"";S1;C2~""DATE:"";C1~31;C7~"
^DIPT(417,"F",4)="S DIP(1)=$S($D(^PRCA(430,D0,3)):^(3),1:"""") S X=""BY: ""_$S('$D(^VA(200,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C35;Z;""""BY: ""_RETURNED BY""~"
^DIPT(417,"F",5)="""REASON:"";C1~S PRCAPC=6 D PRCOMM^PRCALST K PRCAPC;Z;""S PRCAPC=6 D PRCOMM^PRCALST K PRCAPC""~""<<AMENDED>>"";S1;C2~""DATE:"";C1~33;C7~"
^DIPT(417,"F",6)="S DIP(1)=$S($D(^PRCA(430,D0,3)):^(3),1:"""") S X=""AMENDED BY: ""_$S('$D(^VA(200,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C35;Z;""""AMENDED BY: ""_AMENDED BY""~"
^DIPT(417,"F",7)="S DIP(1)=$S($D(^PRCA(430,D0,3)):^(3),1:"""") S X=""AMENDED AMOUNT: $""_$P(DIP(1),U,5) W X K DIP;C1;Z;""""AMENDED AMOUNT: $""_AMENDED AMOUNT""~""COMMENTS:"";C1~"
^DIPT(417,"F",8)="S PRCAPC=7 D PRCOMM^PRCALST K PRCAPC;Z;""S PRCAPC=7 D PRCOMM^PRCALST K PRCAPC""~"
^DIPT(417,"F",9)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",79)""~"
^DIPT(417,"H")="@"
^DIPT(417,"IOM")="80"
^DIPT(417,"LAST")=""
^DIPT(417,"ROU")="^PRCATR2"
^DIPT(417,"ROUOLD")="PRCATR2"
^DIPT(417,"SUB")="1"
^DIPT(418,0)="PRCAR CONTINGENT REPORT^2980406.1436^^430^^^2980406"
^DIPT(418,"%D",0)="^^2^2^2881006^"
^DIPT(418,"%D",1,0)="This template prints the Contingent 3rd Party AR Report."
^DIPT(418,"%D",2,0)="OPTION: PRCAD CONTINGENT 3RD"
^DIPT(418,"DCL","430^66")="+"
^DIPT(418,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(418,"F",1)="7;""NAME"";C1;L23~.01;C26;L12~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""CAT."";C40;L2;Z;""CATEGORY:ABBR""~64;C45;L12~"
^DIPT(418,"F",2)="S DIP(1)=$S($D(^PRCA(430,D0,6)):^(6),1:"""") S X=$P(DIP(1),U,5),X=X W X K DIP;""TO"";C60;L3;Z;""INTERNAL(REFERRAL CODE)""~66;C64;L12~"
^DIPT(418,"H")="3RD PARTY ACCOUNTS RECEIVABLE"
^DIPT(419,0)="PRCAC RETURN AR^2890403^^430^^^^"
^DIPT(419,"%D",0)="^^3^3^2881006^"
^DIPT(419,"%D",1,0)="This template prints a listing of bills that have been returned"
^DIPT(419,"%D",2,0)="to the originating Service/Section."
^DIPT(419,"%D",3,0)="OPTION: PRCAL RETURN AR"
^DIPT(419,"F",1)=".01;C1;L11~9;C13;L23~"
^DIPT(419,"F",2)="S DIP(1)=$S($D(^PRCA(430,D0,3)):^(3),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;""RETN. DATE"";C39;L10;Z;""NUMDATE(DATE RETURNED TO SERVICE)""~"
^DIPT(419,"F",3)="32;""RETN. BY"";C52;L23~101;""SERV"";C76;L4~36;C3~"
^DIPT(419,"H")="ACCOUNTS RECEIVABLE LIST"
^DIPT(420,0)="PRCAL CAT LIST^2970430.1051^^430^^^2970711"
^DIPT(420,"%D",0)="^^3^3^2881006^"
^DIPT(420,"%D",1,0)="This template prints a listing of bills with Category, Current"
^DIPT(420,"%D",2,0)="Status, and balances."
^DIPT(420,"%D",3,0)="OPTION: PRCAL OTHER LIST"
^DIPT(420,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 S DIP(101)=$S($D(^RCD(340,D0,0)):^(0),1:"""")"
^DIPT(420,"DXS",1,9.3)="X DXS(1,9.2) S X=$P(DIP(101),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DIPT(420,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^PRCA(430.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.3,D0,0)):^(0),1:"""")"
^DIPT(420,"F",1)=".01;C1;L11~X DXS(1,9.3) S DIP(102)=X S X=1,DIP(103)=X S X=20,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) W X K DIP;"""";C14;Z;""$E(DEBTOR,1,20)""~"
^DIPT(420,"F",2)="S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;"""";C35;L10;Z;""NUMDATE(DATE BILL PREPARED)""~"
^DIPT(420,"F",3)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;"""";C43;R6;Z;""CURRENT STATUS:ABBR""~71;C51~"
^DIPT(420,"F",4)="S NDE=$G(^PRCA(430,D0,7)),STOT=STOT+$P($G(NDE),""^"");Z;""S NDE=$G(^PRCA(430,D0,7)),STOT=STOT+$P($G(NDE),""^"")""~11;C65~"
^DIPT(420,"H")="@"
^DIPT(420,"SUB")="1"
^DIPT(421,0)="PRCA TRANS PROFILE^2930726.1611^^433^^^^"
^DIPT(421,"%D",0)="^^1^1^2890124^"
^DIPT(421,"%D",1,0)="This template displays/prints a profile for transaction of an AR."
^DIPT(421,"DXS",1,9)="X DXS(1,9.3) S X=$P(DIP(201),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","" S D0=I(0,0)"
^DIPT(421,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(421,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 S DIP(201)=$S($D(^RCD(340,D0,0)):^(0),1:"""")"
^DIPT(421,"DXS",2,9.2)="S DIP(4)=$C(59)_$S($D(^DD(433,7,0)):$P(^(0),U,3),1:""""),DIP(3)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""")"
^DIPT(421,"DXS",2,9.3)="X DXS(2,9.2) S X=$S('$D(^PRCA(430.3,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=$P($P(DIP(4),$C(59)_$P(DIP(3),U,7)_"":"",2),$C(59),1)]"""",DIP(5)=X S X="" ("""
^DIPT(421,"DXS",2,9.4)="X DXS(2,9.3) S DIP(6)=X S X=$P(DIP(3),U,7),X=X S Y=X,X=DIP(6),X=X S X=X_Y_"")"",DIP(7)=X S X=1,DIP(8)=X S X="""",X=$S(DIP(5):DIP(7),DIP(8):X) S Y=X,X=DIP(2),X=X"
^DIPT(421,"F",1)="""ACCOUNT:"";C1~X DXS(1,9) W X K DIP;C10;L25;Z;"".03:9""~""SSN:"";C35~"
^DIPT(421,"F",2)="S X=$$SSN^RCFN01(+$$EN^PRCAFN1(D0)),X=$S(X<0:"""",1:X) W ?40,X;Z;""S X=$$SSN^RCFN01(+$$EN^PRCAFN1(D0)),X=$S(X<0:"""",1:X) W ?40,X""~""TRANS. NO:"";C1~"
^DIPT(421,"F",3)=".01;C12;L9~""BILL NO:"";C35~.03;C50~""TRANS. DATE:"";C1~11;C18~""TRANS. TYPE:"";C35~"
^DIPT(421,"F",4)="X DXS(2,9.4) S X=X_Y W X K DIP;C50;L26;Z;""TRANSACTION TYPE_$S(#7]"""":"" (""_INTERNAL(#7)_"")"",1:"""")""~D EN1^PRCADR3;Z;""D EN1^PRCADR3""~"" "";C1~"
^DIPT(421,"F",5)="""Brief Comment: "";C1~5.02;C16~""Follow-up Date: "";C50~"
^DIPT(421,"F",6)="S DIP(1)=$S($D(^PRCA(433,D0,5)):^(5),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C66;Z;""NUMDATE(FOLLOW-UP DATE)""~"
^DIPT(421,"F",7)=""" "";C1~""COMMENTS: "";S1;C1~86;C13;L75~41,.01;C13~""RECEIPT #: "";C1~13~""PROCESSED BY: "";S1;C1~42~"
^DIPT(421,"H")="@"
^DIPT(421,"IOM")="80"
^DIPT(421,"LAST")=""
^DIPT(421,"ROU")="^PRCATR3"
^DIPT(421,"ROUOLD")="PRCATR3"
^DIPT(421,"SUB")="1"
^DIPT(422,0)="PRCAL MEANS LIST^2890404^^430^^^^"
^DIPT(422,"%D",0)="^^3^3^2881006^"
^DIPT(422,"%D",1,0)="This template produces a listing of Means Test (Category 'C') bills"
^DIPT(422,"%D",2,0)="by AMIS Segment."
^DIPT(422,"%D",3,0)="OPTION: PRCAL MEANS LIST"
^DIPT(422,"DCL","430^11")="+"
^DIPT(422,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,16) S:'$D(^PRCA(430.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.2,D0,0)):^(0),1:"""")"
^DIPT(422,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^PRCA(430.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430.3,D0,0)):^(0),1:"""")"
^DIPT(422,"F",1)="9;C1;L23~.01;C26;L11~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""TYPE OF CARE"";C41;L3;Z;""TYPE OF CARE:ABBR""~"
^DIPT(422,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""STATUS"";C55;L3;Z;""CURRENT STATUS:ABBR""~11~"
^DIPT(422,"H")="@"
^DIPT(422,"SUB")="1"
^DIPT(428,0)="PRCA VENDOR PROFILE^2980311.1532^^430^^^2980311"
^DIPT(428,"DXS",1,9)="S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)"
^DIPT(428,"DXS",2,9)="S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,3) X:$D(^DD(430.02,3,2)) ^(2) S X=Y,DIP(2)=X S X=0,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X)"
^DIPT(428,"F",1)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;""NOW""~"" ACCOUNTS RECEIVABLE PROFILE""~"
^DIPT(428,"F",2)="S X=""="",DIP(1)=X S X=75,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",75)""~""NAME: "";C1~9;X~""BILL #: "";C40~"
^DIPT(428,"F",3)=".01;X~D EN2^PRCADR1;Z;""D EN2^PRCADR1""~""CURRENT STATUS: "";S1;C1~8;X~""CATEGORY: "";C40~2;X~""CP: "";C1~250;X~""FUND (APPROPRIATION): "";C40~203;X~"
^DIPT(428,"F",4)="""DATE BILL PREPARED: "";C40~10;X~D EN1^PRCADR1;Z;""D EN1^PRCADR1""~D EN3^PRCADR;Z;""D EN3^PRCADR""~"
^DIPT(428,"F",5)="D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """";Z;""D EN5^PRCADR Q:$D(PRCA(""HALT"")) W """"""~""TRANSACTIONS: "";S1;C1~D EN2^PRCADR;Z;""D EN2^PRCADR""~"
^DIPT(428,"F",6)="Q:$D(PRCA(""HALT"")) W """";Z;""Q:$D(PRCA(""HALT"")) W """"""~""BILL RESULTING FROM: "";S1;C1~"
^DIPT(428,"F",7)="X DXS(1,9);Z;""S X=$P(^PRCA(430,D0,0),U,5) W:X&$D(^PRCA(430.6,+X,0)) ?23,$E($P(^PRCA(430.6,X,0),U,2),1,55)""~"" "";C1~""Date"";C1~""Description"";C12~"
^DIPT(428,"F",8)="""Quantity"";C35~""Units"";C46~""Cost"";C54~""Total Cost"";C64~""============================================================================"";C1~"
^DIPT(428,"F",9)="106,S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C1;Z;""NUMDATE4(DATE OF CHARGES)""~"
^DIPT(428,"F",10)="106,X DXS(2,9) W X K DIP;C35;Z;""$J(QUANTITY (UNITS),0,2)""~106,5;L5;C46~"
^DIPT(428,"F",11)="106,S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4),DIP(2)=X S X=0,DIP(3)=X S X=4,X=$J(DIP(2),DIP(3),X) W X K DIP;C54;Z;""$J(UNIT COST,0,4)""~"
^DIPT(428,"F",12)="106,S DIP(1)=$S($D(^PRCA(430,D0,101,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=0,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(TOTAL AMOUNT,0,2)""~"
^DIPT(428,"F",13)="106,2,.01;C12~D EN4^PRCADR1;Z;""D EN4^PRCADR1""~"
^DIPT(428,"F",14)="Q:'$D(PRCA(""WROFF"")) K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS;Z;""Q:'$D(PRCA(""WROFF"")) K DXS S D0=PRCA(""WROFF"") D ^PRCATW1 K DXS""~"
^DIPT(428,"H")="@"
^DIPT(428,"IOM")="80"
^DIPT(428,"LAST")=""
^DIPT(428,"ROU")="^PRCATP3"
^DIPT(428,"ROUOLD")="PRCATP3"
^DIPT(428,"SUB")="1"
^DIPT(429,0)="PRCA FOLLOW-UP^2971203.0937^^433^^^2980126"
^DIPT(429,"%D",0)="^^2^2^2980227^"
^DIPT(429,"%D",1,0)="This template is used to print the Comment Transactions pending"
^DIPT(429,"%D",2,0)="follow-up actions."
^DIPT(429,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:"""")"
^DIPT(429,"DXS",2,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 X $P(^DD(430,11,0),U,5,99) S DIP(101)=X S X=DIP(101) S D0=I(0,0)"
^DIPT(429,"DXS",3,9)="X DXS(3,9.9) S X=$S(DIP(402):DIP(604),DIP(605):X) S Y=X,X=DIP(202),X=X_Y S D0=I(0,0)"
^DIPT(429,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(429,"DXS",3,9.3)="X DXS(3,9.2) S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 S I(200,0)=$S($D(D0):D0,1:""""),DIP(201)=$S($D(^RCD(340,D0,0)):^(0),1:"""")"
^DIPT(429,"DXS",3,9.4)="X DXS(3,9.3) S X=$P(DIP(201),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DIPT(429,"DXS",3,9.5)="X DXS(3,9.4) S DIP(202)=X,D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(300,0)=$S($D(D0):D0,1:""""),DIP(301)=$S($D(^PRCA(430,D0,0)):^(0),1:"""")"
^DIPT(429,"DXS",3,9.6)="X DXS(3,9.5) S D0=$P(DIP(301),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 X $P(^DD(340,110,0),U,5,99) S DIP(401)=X S I(400,0)=$S($D(D0):D0,1:"""") S X=DIP(401)>0"
^DIPT(429,"DXS",3,9.7)="X DXS(3,9.6) S DIP(402)=X S X="" ("",DIP(403)=X,D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(500,0)=$S($D(D0):D0,1:""""),DIP(501)=$S($D(^PRCA(430,D0,0)):^(0),1:"""")"
^DIPT(429,"DXS",3,9.8)="X DXS(3,9.7) S D0=$P(DIP(501),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 X $P(^DD(340,110,0),U,5,99) S DIP(601)=X S X=DIP(601),DIP(602)=X S X=6,DIP(603)=X S X=9"
^DIPT(429,"DXS",3,9.9)="X DXS(3,9.8) S X=$E(DIP(602),DIP(603),X) S Y=X,X=DIP(403),X=X_Y_"")"",DIP(604)=X S X=1,DIP(605)=X S X="""""
^DIPT(429,"DXS",4,9)="X DXS(4,9.7) S X=$S(DIP(102):DIP(404),DIP(405):X) S D0=I(0,0)"
^DIPT(429,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(433,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(429,"DXS",4,9.3)="X DXS(4,9.2) S DIP(101)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(101),U,7),0)):"""",1:$P(^(0),U,1))]"""",DIP(102)=X"
^DIPT(429,"DXS",4,9.4)="X DXS(4,9.3) S D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(200,0)=$S($D(D0):D0,1:""""),DIP(201)=$S($D(^PRCA(430,D0,0)):^(0),1:"""")"
^DIPT(429,"DXS",4,9.5)="X DXS(4,9.4) S X=$S('$D(^DPT(+$P(DIP(201),U,7),0)):"""",1:$P(^(0),U,1))_"" ("",DIP(202)=X,D0=$P(DIP(1),U,2) S:'$D(^PRCA(430,+D0,0)) D0=-1 S I(300,0)=$S($D(D0):D0,1:"""")"
^DIPT(429,"DXS",4,9.6)="X DXS(4,9.5) S DIP(301)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(301),U,7) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(401)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(401),U,9)"
^DIPT(429,"DXS",4,9.7)="X DXS(4,9.6) S DIP(402)=X S X=6,DIP(403)=X S X=9,X=$E(DIP(402),DIP(403),X) S Y=X,X=DIP(202),X=X_Y_"")"",DIP(404)=X S X=1,DIP(405)=X S X=""N/A"""
^DIPT(429,"DXS",5,9)="I +PRCAR>1 W ""Referred to ""_$P(PRCAR,""^"",2)_"" on ""_$$FMTE^XLFDT(+PRCAR)_"" for $""_$P(PRCAR,""^"",3)"
^DIPT(429,"F",1)=""
^DIPT(429,"F",2)="S DIP(1)=$S($D(^PRCA(433,D0,1)):^(1),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;""Date of Contact"";S1;Z;""NUMDATE(#11)""~"
^DIPT(429,"F",3)="5.02;""Brief Comment""~"
^DIPT(429,"F",4)="S DIP(1)=$S($D(^PRCA(433,D0,5)):^(5),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""Follow-up Date"";Z;""NUMDATE(#5.03)""~"
^DIPT(429,"F",5)=".03;L11;""Bill Number""~42;""Entered By"";L10~""Status: "";C12~"
^DIPT(429,"F",6)="X DXS(1,9.2) S X=$S('$D(^PRCA(430.3,+$P(DIP(101),U,8),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;L20;C20;"""";Z;""BILL NUMBER:CURRENT STAT""~"
^DIPT(429,"F",7)="""Cur.Bal: "";C45~X DXS(2,9) W X K DIP;L20;C54;"""";Z;""BILL NUMBER:CURRENT BALANCE""~""Debtor: "";C12~"
^DIPT(429,"F",8)="X DXS(3,9) W X K DIP;C20;"""";Z;""BILL NUMBER:DEBTOR_$S(BILL NUMBER:DEBTOR:SSN>0:"" (""_$E(BILL NUMBER:DEBTOR:SSN,6,9)_"")"",1:"""")""~"" Patient: "";C44~"
^DIPT(429,"F",9)="X DXS(4,9) W X K DIP;L25;C54;"""";Z;""$S(BILL NUMBER:PATIENT]"""":BILL NUMBER:PATIENT_"" (""_$E(BILL NUMBER:PATIENT:SOCIAL SECURITY NUMBER,6,9)_"")"",1:""N/A"")""~"
^DIPT(429,"F",10)="K PRCAR S PRCAR=$$REFST^RCRCUTL($P(^PRCA(433,D0,0),""^"",2));"""";Z;""K PRCAR S PRCAR=$$REFST^RCRCUTL($P(^PRCA(433,D0,0),""^"",2))""~"
^DIPT(429,"F",11)="X DXS(5,9);C12;"""";Z;""I +PRCAR>1 W ""Referred to ""_$P(PRCAR,""^"",2)_"" on ""_$$FMTE^XLFDT(+PRCAR)_"" for $""_$P(PRCAR,""^"",3)""~K PRCAR;"""";Z;""K PRCAR""~"
^DIPT(429,"F",12)="41,.01;C12;""""~"
^DIPT(429,"H")="TRANSACTION FOLLOW-UP LIST"
^DIPT(430,0)="RCAM COMMENT^2930824.1541^^341^^^^"
^DIPT(430,"DXS",1,9)="S DIP(1)=$S($D(^RC(341,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=""."",X=$P(DIP(2),X) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DIPT(430,"DXS",2,9)="S DIP(1)=$S($D(^RC(341,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,2),DIP(2)=X S X=""."",X=$P(DIP(2),X) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DIPT(430,"DXS",3,9.2)="X $P(^DD(340,110,0),U,5,99) S DIP(101)=X S X=DIP(101)>0,DIP(102)=X,DIP(103)=X S X=DIP(101),DIP(104)=X S X=1,DIP(105)=X S X=3,X=$E(DIP(104),DIP(105),X)"
^DIPT(430,"DXS",3,9.3)="X DXS(3,9.2) S X=X_""-"",DIP(106)=X S X=DIP(101),DIP(107)=X S X=4,DIP(108)=X S X=5,X=$E(DIP(107),DIP(108),X) S Y=X,X=DIP(106),X=X_Y_""-"",DIP(109)=X S X=DIP(101)"
^DIPT(430,"DXS",3,9.4)="X DXS(3,9.3) S DIP(110)=X S X=6,DIP(111)=X S X=9,X=$E(DIP(110),DIP(111),X) S Y=X,X=DIP(109),X=X_Y,DIP(112)=X S X=1,DIP(113)=X S X="""""
^DIPT(430,"F",1)="X DXS(1,9) W X K DIP;""Date of Contact"";C1;Z;""NUMDATE($P(#.06,"".""))""~4.01;""Brief Comment"";C12~"
^DIPT(430,"F",2)="X DXS(2,9) W X K DIP;""Follow-up Date"";C45;Z;""NUMDATE($P(#4.02,"".""))""~.05;L10;""Debtor"";C56~.08;L10;""Entered By"";C69~"
^DIPT(430,"F",3)="-340,^RCD(340,^^S I(0,0)=D0 S DIP(1)=$S($D(^RC(341,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=X S D(0)=+X;Z;""DEBTOR:""~"
^DIPT(430,"F",4)="-340,X DXS(3,9.4) S X=$S(DIP(102):DIP(112),DIP(113):X) W X K DIP;C56;"""";Z;""$S(SSN>0:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9),1:"""")""~2.01,.01;C12;""""~"
^DIPT(430,"H")="DEBTOR FOLLOW-UP LIST"
^DIPT(431,0)="RCMS INT/ADM/PEN^2960701.1448^^342^^^2960703"
^DIPT(431,"F",2)="4,.01~4,.02~4,.03~4,.04~4,.05~"
^DIPT(431,"H")="Accounts Receivable Interest/Admin/Penalty Rate Report"
^DIPT(432,0)="PRCA LAST ACTIVITY^2960506.084^^430^^^2960507^"
^DIPT(432,"DCL","430^-1")="+"
^DIPT(432,"F",1)=".01;L11~8;L10~9;L20~"
^DIPT(432,"F",2)="X $P(^DD(430,11,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=1,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X);R12;""CURRENT BALANCE"";;;Z;""$J(CURRENT BALANCE,1,2)"";+~"
^DIPT(432,"F",3)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$$ACT^PRCADEL(X) S:X<0 X="""" S Y=X D DT K DIP;""DATE OF LAST ACTIVITY"";L18;Z;""PRCA LAST ACTIVITY""~2;L12~"
^DIPT(432,"F",4)="10;L18~"
^DIPT(432,"H")="ACCOUNTS RECEIVABLE LAST ACTIVITY REPORT"
^DIPT(433,0)="PRCA DISCREPANCY^3010312.1033^^340^^^3010517"
^DIPT(433,"DCL","340^.01")="!"
^DIPT(433,"DXS",1,9)="X DXS(1,9.3) S X=$E(DIP(10),DIP(11),X) S Y=X,X=DIP(9),X=X_Y,DIP(12)=X S X=1,DIP(13)=X S X="""",X=$S(DIP(2):DIP(12),DIP(13):X)"
^DIPT(433,"DXS",1,9.2)="X ""N I,Y ""_$P(^DD(340,110,0),U,5,99) S DIP(1)=X S X=DIP(1)>0,DIP(2)=X,DIP(3)=X S X=DIP(1),DIP(4)=X S X=1,DIP(5)=X S X=3,X=$E(DIP(4),DIP(5),X)_""-"",DIP(6)=X S X=DIP(1)"
^DIPT(433,"DXS",1,9.3)="X DXS(1,9.2) S DIP(7)=X S X=4,DIP(8)=X S X=5,X=$E(DIP(7),DIP(8),X) S Y=X,X=DIP(6),X=X_Y_""-"",DIP(9)=X S X=DIP(1),DIP(10)=X S X=6,DIP(11)=X S X=9"
^DIPT(433,"F",1)="W $S($$REFUREVW^RCBEREFU(D0):""*"",1:"""");"""";C1;L1;Z;""W $S($$REFUREVW^RCBEREFU(D0):""*"",1:"""")""~.01;C5;L20~"
^DIPT(433,"F",2)="X DXS(1,9) W X K DIP;""SSN"";L11;Z;""$S(SSN>0:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9),1:"""")""~.03;""DAY""~"
^DIPT(433,"F",3)="W $S($$LST^RCFN01(D0,2)>0:$$SLH^RCFN01($P($$LST^RCFN01(D0,2),""."")),1:""N/A"");""LAST STATEMENT"";Z;""W $S($$LST^RCFN01(D0,2)>0:$$SLH^RCFN01($P($$LST^RCFN01(D0,2),""."")),1:""N/A"")""~"
^DIPT(433,"H")="ACCOUNT BALANCE DISCREPANCY LISTING"
^DIPT(435,0)="PRCARFD^2940819.1434^^430^^^^"
^DIPT(435,"%D",0)="^^2^2^2940609^^"
^DIPT(435,"%D",1,0)="This template is used to print all refunds that have not be REFUNDED"
^DIPT(435,"%D",2,0)="and passed to the CERTIFYING OFFICIAL."
^DIPT(435,"F",2)=".01~9;C15~79.19~79.18;C64~79.21;C47~"
^DIPT(435,"H")="REFUNDS TO BE APPROVED BY CERTIFYING OFFICIAL"
^DIPT(435,"IOM")="80"
^DIPT(435,"LAST")=""
^DIPT(435,"ROU")="^PRCATRF"
^DIPT(435,"ROUOLD")="PRCATRF"
^DIPT(436,0)="PRCA DISP AUDIT2^3051110.1651^^430^^^3060130"
^DIPT(436,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(2)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=""DEBTOR : "",DIP(1)=$G(X),DIP(3)=$G(X),D0=$P(DIP(2),U,9) S:'D0!'$D(^RCD(340,+D0,0)) D0=-1"
^DIPT(436,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'D0!'$D(^RCD(340,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(340,.05,0)),U,3)"
^DIPT(436,"F",1)="S X=""="",DIP(1)=$G(X) S X=80,X1=DIP(1) S %=X,X="""" S:X1]"""" $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~"
^DIPT(436,"F",2)="S DIP(2)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=""BILL # : "",DIP(1)=$G(X) S X=$P(DIP(2),U,1),Y=X,X=DIP(1),X=X_Y W X K DIP;C10;Z;""""BILL # : ""_(BILL NO.)""~"
^DIPT(436,"F",3)="X DXS(1,9.2) S DIP(101)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(340,.01,"""",$P(DIP(101),U,1)),Y=X,X=DIP(1),X=X_Y S D0=I(0,0) W X K DIP;C45;Z;""""DEBTOR : ""_(DEBTOR)""~"
^DIPT(436,"F",4)="""RECEIVABLE CODE : "";C36~"
^DIPT(436,"F",5)="X DXS(2,9.2) S DIP(101)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,5)_"":"",2),$C(59)) S D0=I(0,0) W X K DIP;Z;""9:.05""~"
^DIPT(436,"F",6)="""FISCAL YEAR"";S1;C1~""FUND (APPROPRIATION)"";C27~""ORIGINAL AMOUNT"";C66~1,.01~"
^DIPT(436,"F",7)="1,S DIP(1)=$S($D(^PRCA(430,D0,11)):^(11),1:"""") S X=$P(DIP(1),U,17) W X K DIP;C32;Z;""FUND""~1,7;C68;R9~"
^DIPT(436,"F",8)="S X=""="",DIP(1)=$G(X) S X=80,X1=DIP(1) S %=X,X="""" S:X1]"""" $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~W !,"" "";Z;""W !,"" """"~"
^DIPT(436,"F",9)="""*** REFUND ***"";C32~""CONTROL POINT : "";S1;C1~250;X~""BUDGET OBJECT : "";S1;C1~253;X~""COST CENTER : "";C44~251;X~"" SUB : "";C1~254;X~"
^DIPT(436,"F",10)=""" SUB : "";C39~252;X~"
^DIPT(436,"F",11)="S X=""="",DIP(1)=$G(X) S X=80,X1=DIP(1) S %=X,X="""" S:X1]"""" $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",80)""~W !,"" "";Z;""W !,"" """"~"
^DIPT(436,"F",12)="""*** REIMBURSEMENT ***"";C28~""REVENUE SOURCE :"";C1;S1~W $P($G(^PRCA(430,D0,11)),U,6);Z;""W $P($G(^PRCA(430,D0,11)),U,6)""~""SUB : "";C53~256;X~"
^DIPT(436,"H")="@"
^DIPT(436,"SUB")="1"
^DIPT(442,0)="PRCA FMS STATUS^2940629.1228^^347^^^^"
^DIPT(442,"DXS",1,0)="NOT-SENT"
^DIPT(442,"DXS",1,1)="SENT"
^DIPT(442,"DXS",1,2)="ACCEPTED"
^DIPT(442,"DXS",1,3)="REJECTED"
^DIPT(442,"F",1)="W:$D(IOF) @IOF;Z;""W:$D(IOF) @IOF""~"
^DIPT(442,"F",2)="S X=""A/R Document Status Inquiry"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""A/R Document Status Inquiry"")""~"
^DIPT(442,"F",3)=""" "";Y3;C1~""Bill Number: "";C1~.07;X~""Amount: "";C30~"
^DIPT(442,"F",4)="-430,^PRCA(430,^^S I(0,0)=D0 S DIP(1)=$S($D(^RC(347,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X S D(0)=+X;Z;"".07:""~-430,3;X~""Debtor: "";C50~"
^DIPT(442,"F",5)="-430,^PRCA(430,^^S I(0,0)=D0 S DIP(1)=$S($D(^RC(347,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X S D(0)=+X;Z;"".07:""~-430,9;X~"" "";Y6~""Last Update: "";C5~"
^DIPT(442,"F",6)=".05;X~""STATUS: "";C50~.03;X~W "" "";C1;Z;""W "" """"~"
^DIPT(442,"H")="AR FMS DOCUMENT LIST"
^DIPT(442,"IOM")="80"
^DIPT(442,"LAST")=""
^DIPT(442,"ROU")="^PRCATF1"
^DIPT(442,"ROUOLD")="PRCATF1"
^DIPT(443,0)="PRCA FMS TRANS STAT^2940629.1242^^347^^^^"
^DIPT(443,"DXS",1,0)="NOT-SENT"
^DIPT(443,"DXS",1,1)="SENT"
^DIPT(443,"DXS",1,2)="ACCEPTED"
^DIPT(443,"DXS",1,3)="REJECTED"
^DIPT(443,"F",1)="W:$D(IOF) @IOF;Z;""W:$D(IOF) @IOF""~"
^DIPT(443,"F",2)="S X=""A/R Document Status Inquiry"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""A/R Document Status Inquiry"")""~"
^DIPT(443,"F",3)=""" "";Y3;C1~""Transaction: "";C1~.08;X~""Amount: "";C30~"
^DIPT(443,"F",4)="-433,^PRCA(433,^^S I(0,0)=D0 S DIP(1)=$S($D(^RC(347,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S D(0)=+X;Z;"".08:""~-433,15;X~""Type: "";C50~"
^DIPT(443,"F",5)="-433,^PRCA(433,^^S I(0,0)=D0 S DIP(1)=$S($D(^RC(347,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S D(0)=+X;Z;"".08:""~-433,12;X~"" "";Y6~""Last Update: "";C5~"
^DIPT(443,"F",6)=".05;X~""STATUS: "";C50~.03;X~W "" "";C1;Z;""W "" """"~"
^DIPT(443,"H")="AR FMS DOCUMENT LIST"
^DIPT(443,"IOM")="80"
^DIPT(443,"LAST")=""
^DIPT(443,"ROU")="^PRCATF2"
^DIPT(443,"ROUOLD")="PRCATF2"
^DIPT(444,0)="PRCA FMS UNPROCESSED LIST^2940826.1512^^347^^^^"
^DIPT(444,"DXS",1,9)="X DXS(1,9.3) S DIP(101)=$S($D(^PRCA(433,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430,+$P(DIP(101),U,2),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X) S D0=I(0,0)"
^DIPT(444,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RC(347,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1))]"""",DIP(2)=X"
^DIPT(444,"DXS",1,9.3)="X DXS(1,9.2) S X=$S('$D(^PRCA(430,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)),DIP(3)=X S X=1,DIP(4)=X,D0=$P(DIP(1),U,8) S:'$D(^PRCA(433,+D0,0)) D0=-1"
^DIPT(444,"F",1)=".02;""Type of Document"";L23~.09;""FMS Doc. #"";L22,C26~"
^DIPT(444,"F",2)="S DIP(1)=$S($D(^RC(347,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""Doc. Dt."";C50;Z;""NUMDATE(DATE LAST UPDATED)""~"
^DIPT(444,"F",3)=".03;""Status"";C60~X DXS(1,9) W X K DIP;""AR Bill #"";L11;C70;Z;""$S(AR BILL NUMBER]"""":AR BILL NUMBER,1:AR TRANSACTION:BILL NUMBER)""~"
^DIPT(444,"H")="@"
^DIPT(444,"SUB")="1"
^DIPT(452,0)="PSNRPT4^2910903.2149^^50^^^2981002"
^DIPT(452,"F",2)=".01;C1~21;C42;L64~23;C108;L10~24;C120;L10~D ^PSNRPT2;"""";Z;""D ^PSNRPT2""~"
^DIPT(452,"H")="DRUG LIST"
^DIPT(453,0)="PSNLDG1^2981115.1803^^50^^^2981203"
^DIPT(453,"F",2)=".01;C1~D PROD^PSNLDG;Z;""D PROD^PSNLDG""~100;C51~3;C74~31;C85~"
^DIPT(453,"H")="DRUG LIST"
^DIPT(454,0)="PSNHEAD^2981203.0852^^50^^^2981203"
^DIPT(454,"F",1)="""LOCAL DRUG LIST (ALPHABETIC)"";C55~""# Not on National Formulary"";C3~""R National Formulary Restriction"";C3~"" "";C1~""LOCAL DRUG NAME"";C1~"
^DIPT(454,"F",2)="""INACTIVE"";C51~""DEA"";C74~""NDC"";C85~""DATE"";C53~"
^DIPT(454,"H")="DRUG LIST"
^DIPT(455,0)="PSNPRINT^2890518^^50.605^^^2981015^"
^DIPT(455,"F",2)="D PRINT^PSNCLS;"""";Z;""D PRINT^PSNCLS""~"
^DIPT(455,"H")="VA DRUG CLASS LIST"
^DIPT(456,0)="PSNFRMPRT^2930312.084^^50^^^2981014"
^DIPT(456,"F",2)="D LOOP^PSNHFRM1;"""";Z;""D LOOP^PSNHFRM1""~"
^DIPT(456,"H")="DRUG LIST"
^DIPT(457,0)="PSO DRUG LIST^2850829^^50^^^^"
^DIPT(457,"F",1)="3~16~"
^DIPT(457,"H")="FORMULARY LISTING"
^DIPT(458,0)="PSO ALPHA DRUG LIST^2930108.1548^@^50^^@^2970902^"
^DIPT(458,"DXS",1,9)="S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1) X ""F %=1:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X W X K Y"
^DIPT(458,"F",1)=".01~3~51;""N/F""~16~"
^DIPT(458,"F",2)="9,X DXS(1,9);C7;""Synonym"";L30;Z;""S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1) X ""F %=1:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X W X K Y""~"
^DIPT(458,"H")="ALPHABETIC DRUG LIST AND SYNONYMS"
^DIPT(459,0)="PSO SYNONYM LIST^2830119^^50^^^2951219^"
^DIPT(459,"F",1)="9,.01~.01;L32~51;L3;""N/F"""
^DIPT(459,"H")="DRUG LIST BY SYNONYM"
^DIPT(460,0)="PSO INACTIVE DRUG LIST^2850829^^50^^^^"
^DIPT(460,"F",1)="0~.01~100~"
^DIPT(460,"F",2)="9,S DIP(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X W X K DIP;C12;""Synonym"";l30;Z;""LOWERCASE(SYNONYM)""~"
^DIPT(460,"H")="INACTIVE DRUG LIST"
^DIPT(461,0)="PSO N/F LIST^2850829^^50^^^2960626^"
^DIPT(461,"DXS",1,9)="S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1) X ""F %=1:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X W X K Y"
^DIPT(461,"F",1)="0~.01~3~16~"
^DIPT(461,"F",2)="9,X DXS(1,9);C12;""Synonym"";L30;Z;""S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1) X ""F %=1:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X W X K Y""~"
^DIPT(461,"H")="NON-FORMULARY DRUG LIST"
^DIPT(462,0)="PSO SUSPENSE LIST^2930913.1413^^52.5^^^2970929^"
^DIPT(462,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(52.5,.04,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PS(52.5,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(462,"F",2)=".01~.03;L20~1;L30~X DXS(1,9.2) S DIP(3)=X S X=1,X=$E(DIP(3),X) W X K DIP;""TYPE"";L1;Z;""$E(TYPE,1)""~2~3~"
^DIPT(462,"H")="RX SUSPENSE LIST"
^DIPT(463,0)="PSO NARC LIST^2930308.1547^@^52^^@^2970902^"
^DIPT(463,"DCL","52^22")="!"
^DIPT(463,"DXS",1,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PSRX(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(463,"F",2)=".01;C1;L11~6;C15;L30~7;C50;L5~4;C57;L20~22;C80;L11~2;C95;L25~X DXS(1,9) W X K DIP;C122;L9;""ID#"";Z;""PATIENT:SSN""~"
^DIPT(463,"H")="NARCOTIC PRESCRIPTIONS"
^DIPT(464,0)="PSO PHARMACY STATS^2941025.1022^^50.9^^^2970410^"
^DIPT(464,"DCL","50.9^.035")="&"
^DIPT(464,"DCL","50.9^.04")="&"
^DIPT(464,"DCL","50.9^.045")="&"
^DIPT(464,"DCL","50.9^.06")="&"
^DIPT(464,"DCL","50.9^.07")="&"
^DIPT(464,"DCL","50.9^.12")="&"
^DIPT(464,"F",2)=".01;""FILLED""~.035;C13;""FILLS""~.06;C25;""MAIL""~.07;C35;""WINDOW""~.12;C45;""REQUESTS""~.04;C57;""TOTAL COST""~.045;C70;""AVE COST""~"
^DIPT(464,"H")="PHARMACY STATISTICS"
^DIPT(465,0)="PSO REQUEST STATISTICS^2930330.1532^@^50.9^^@^2960122^"
^DIPT(465,"DCL","50.9^.12")="&"
^DIPT(465,"DCL","50.9^.125")="&"
^DIPT(465,"DCL","50.9^.126")="&"
^DIPT(465,"F",2)=".01~.12~.125~.126~"
^DIPT(465,"H")="REQUEST STATISTICS"
^DIPT(466,0)="PSO ACTION PROFILE^2960327.0919^^44^^^2960327"
^DIPT(466,"DXS",1,9)="I DFN>0,CAN,'$D(DIRUT) W ! D HD^PSOSD2,PAT^PSOSD,RXPAD^PSOSD1:PSTYPE W:'$G(PSTYPE)&('$D(^TMP(""PSOD"",$J))) @IOF D ENSTUFF^PSODACT"
^DIPT(466,"F",1)="I $D(DIRUT) Q;Z;""I $D(DIRUT) Q""~S CLINICX=$P(^SC(D0,0),U,1);"""";Z;""S CLINICX=$P(^SC(D0,0),U,1)""~1900,I $D(DIRUT) Q;Z;""I $D(DIRUT) Q""~"
^DIPT(466,"F",2)="1900,S CLDT=D1;"""";Z;""S CLDT=D1""~1900,2,S PAGE=1;"""";Z;""S PAGE=1""~"
^DIPT(466,"F",3)="1900,2,S DFN=$S($D(^SC(D0,""S"",D1,1,D2,0)):+^(0),1:0);"""";Z;""S DFN=$S($D(^SC(D0,""S"",D1,1,D2,0)):+^(0),1:0)""~"
^DIPT(466,"F",4)="1900,2,S CAN=$S($P($G(^SC(D0,""S"",D1,1,D2,0)),""^"",9)="""":1,1:0);Z;""S CAN=$S($P($G(^SC(D0,""S"",D1,1,D2,0)),""^"",9)="""":1,1:0)""~"
^DIPT(466,"F",5)="1900,2,X DXS(1,9);"""";Z;""I DFN>0,CAN,'$D(DIRUT) W ! D HD^PSOSD2,PAT^PSOSD,RXPAD^PSOSD1:PSTYPE W:'$G(PSTYPE)&('$D(^TMP(""PSOD"",$J))) @IOF D ENSTUFF^PSODACT""~"
^DIPT(466,"F",6)="1900,2,D ^PSOSD3:'$D(DIRUT);Z;""D ^PSOSD3:'$D(DIRUT)""~I $D(DIRUT) Q;Z;""I $D(DIRUT) Q""~"
^DIPT(466,"H")="@"
^DIPT(466,"SUB")="1"
^DIPT(467,0)="PSO HOLD^2940519.1213^^52^^^2970902^"
^DIPT(467,"F",2)=".01;S2~2;L22~6;L28~1~""PROVIDER:"";C13~4;""""~""LAST FILL:""~101;""""~""ACTIVITY LOG"";C10~40,.01;C13;""""~40,.05;C40;"""";X~""HOLD COMMENTS:"";C10~99.1;C13;""""~"
^DIPT(467,"H")="PRESCRIPTIONS ON HOLD"
^DIPT(468,0)="PSO INTERVENTIONS^2930319.08^^9009032.4^^^2971218^"
^DIPT(468,"DCL","9009032.4^.02")="!"
^DIPT(468,"DCL","9009032.4^.12")="&"
^DIPT(468,"DXS",1,1)="PHARMACY"
^DIPT(468,"DXS",1,2)="PROVIDER"
^DIPT(468,"DXS",1,3)="NURSING"
^DIPT(468,"DXS",1,4)="PATIENT OR FAMILY"
^DIPT(468,"DXS",1,5)="OTHER"
^DIPT(468,"DXS",2,0)="YES"
^DIPT(468,"DXS",2,1)="NO"
^DIPT(468,"DXS",3,0)="NO"
^DIPT(468,"DXS",3,1)="YES"
^DIPT(468,"F",1)="""INTERVENTION DATE: "";C1;S1~.01;"""";C20;L15~""PATIENT: "";C40~.02;"""";C50;L25;~""PROVIDER: "";C1~.03;"""";C11;L28~""PHARMACIST: "";C40~.04;"""";C53;L20~"
^DIPT(468,"F",2)="""DRUG: "";C1~.05;"""";C7~""INSTITUTED BY: "";C40~.06;"""";C56~1100,.01;"""";C1~""RECOMMENDATION: "";C1~.08;"""";C17~1200,.01;"""";C1~""WAS PROVIDER CONTACTED: "";C1~"
^DIPT(468,"F",3)=".09;"""";C25~""RECOMMENDATION ACCEPTED: "";C40~.12;"""";C67~""PROVIDER CONTACTED: "";C1~.11;"""";C21~"
^DIPT(468,"F",4)="W:$D(^APSPQA(32.4,D0,13)) ""REASON FOR"";"""";C1;Z;""W:$D(^APSPQA(32.4,D0,13)) ""REASON FOR""""~1300,.01;"""";C1~"
^DIPT(468,"F",5)="W:$D(^APSPQA(32.4,D0,14)) ""ACTION TAKEN: "";"""";C1;Z;""W:$D(^APSPQA(32.4,D0,14)) ""ACTION TAKEN: """"~1400,.01;"""";C1~"
^DIPT(468,"F",6)="W:$D(^APSPQA(32.4,D0,15)) ""CLINICAL IMPACT:"";"""";C1;Z;""W:$D(^APSPQA(32.4,D0,15)) ""CLINICAL IMPACT:""""~1500,.01;"""";C1~"
^DIPT(468,"F",7)="W:$D(^APSPQA(32.4,D0,16)) ""FINANCIAL IMPACT:"";"""";C1;Z;""W:$D(^APSPQA(32.4,D0,16)) ""FINANCIAL IMPACT:""""~1600,.01;"""";C1~"
^DIPT(468,"H")="PHARMACY INTERVENTION LISTING"
^DIPT(468,"IOM")="80"
^DIPT(468,"LAST")=""
^DIPT(468,"ROU")="^APSPT16"
^DIPT(468,"ROUOLD")="APSPT16"
^DIPT(468,"STATS","N",1)="0"
^DIPT(468,"STATS","S",2)="0"
^DIPT(468,"T",49)="25^1^0^RFX^"
^DIPT(468,"T",66)="3^2^0^S^"
^DIPT(469,0)="PSOD PRINT ANSWER SHEET^2930226.0925^@^50.0731^^@^2970929^"
^DIPT(469,"DXS",1,9.2)="S DIP(1)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=$S('$D(^PS(50.073,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",2,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""DRUG: "",DIP(1)=X S X=$S('$D(^PSDRUG(+$P(DIP(2),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",3,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""RX #: "",DIP(1)=X S X=$S('$D(^PSRX(+$P(DIP(2),U,4),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",4,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""PROVIDER: "",DIP(1)=X S X=$S('$D(^VA(200,+$P(DIP(2),U,5),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",5,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""CREATOR: "",DIP(1)=X S X=$S('$D(^VA(200,+$P(DIP(2),U,6),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",6,9.2)="S DIP(3)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""ENTERED: "",DIP(1)=X,DIP(2)=X S X=$P(DIP(3),U,7),X=$P(X,""."",1) S X=X"
^DIPT(469,"DXS",7,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""PATIENT: "",DIP(1)=X S X=$S('$D(^DPT(+$P(DIP(2),U,8),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",8,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""SECTION: "",DIP(1)=X S X=$S('$D(^PS(50.0733,+$P(DIP(2),U,9),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",9,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,0)):^(0),1:"""") S X=""LAST EDITED: "",DIP(1)=X S X=$S('$D(^VA(200,+$P(DIP(2),U,10),0)):"""",1:$P(^(0),U,1))"
^DIPT(469,"DXS",10,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PS(50.0731,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^PS(50.073,+D0,0)) D0=-1 X DXS(10,9.2):D0>0 S X="""" S D0=I(0,0)"
^DIPT(469,"DXS",10,9.2)="S I(100)=""^PS(50.073,"",J(100)=50.073 F D=0:0 S (D,D1)=$N(^PS(50.073,D0,""N"",D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D1"
^DIPT(469,"DXS",11,9.2)="S DIP(2)=$S($D(^PS(50.0731,D0,1,D1,1)):^(1),1:"""") S X=""ANSWER: "",DIP(1)=X S X=$P(DIP(2),U,1)"
^DIPT(469,"F",1)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(QUESTIONNAIRE)""~"
^DIPT(469,"F",2)="W !!,""SEQ NUM.: "";Z;""W !!,""SEQ NUM.: """"~.01;L;X~"
^DIPT(469,"F",3)="X DXS(2,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""DRUG: "",DRUG)""~"
^DIPT(469,"F",4)="X DXS(3,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""RX #: "",RX #)""~"
^DIPT(469,"F",5)="X DXS(4,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""PROVIDER: "",PROVIDER)""~"
^DIPT(469,"F",6)="X DXS(5,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""CREATOR: "",CREATED BY)""~"
^DIPT(469,"F",7)="X DXS(6,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX S Y=X D DT K DIP;X;L18;Z;""PSODX(""ENTERED: "",DATE(DATE/TIME CREATED))""~"
^DIPT(469,"F",8)="X DXS(7,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""PATIENT: "",PATIENT)""~"
^DIPT(469,"F",9)="X DXS(8,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""SECTION: "",SECTION)""~"
^DIPT(469,"F",10)="X DXS(9,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;X;Z;""PSODX(""LAST EDITED: "",LAST EDITED BY)""~"
^DIPT(469,"F",11)="S:'$D(PSOQL) $P(PSOQL,""-"",IOM)="""";Z;""S:'$D(PSOQL) $P(PSOQL,""-"",IOM)=""""""~W !,PSOQL;Z;""W !,PSOQL""~"
^DIPT(469,"F",12)="X DXS(10,9) W X K DIP;C3;m;w;Z;""QUESTIONNAIRE:NARRATIVE""~20,.01;C1;L;X;S1~20,""."";L;X~20,1;W;C5;X~"
^DIPT(469,"F",13)="20,X DXS(11,9.2) S X1=DIP(1) S PSODX=X S:PSODX="""" X1="""" W:$X "" "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX W X K DIP;C5;X;S1;Z;""PSODX(""ANSWER: "",ANSWER)""~"
^DIPT(469,"F",14)="W @$S($E(IOST)=""P"":IOF,1:""!!"");Z;""W @$S($E(IOST)=""P"":IOF,1:""!!"")""~"
^DIPT(469,"H")="@"
^DIPT(469,"SUB")="1"
^DIPT(470,0)="PRCH CARD PRINT^2951020.1123^^442^^^^"
^DIPT(470,"F",2)=".1;""TRANS. DATE"";C1~.01;""TRANS. NO."";L11~.5;""STATUS"";L40~"
^DIPT(470,"H")="RECONCILIATION REPORT"
^DIPT(471,0)="PRCH OVERAGE^2960221.1604^^442^^^^"
^DIPT(471,"DXS",1,9)="S DIP(1)=$S($D(^PRC(442,D0,23)):^(23),1:"""") S X=$S('$D(^PRC(411,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=4,DIP(3)=X S X=5,X=$E(DIP(2),DIP(3),X)"
^DIPT(471,"F",1)="X DXS(1,9) W X K DIP;""SUB STA"";L3;Z;""$E(SUBSTATION,4,5)""~.01;"" PO #"";L11;C6~.1;""PO DATE"";L11;C18~.6,6;""WAREHOUSE APPROVAL"";L28;C31~"
^DIPT(471,"F",2)=".6,10;""DATE/TIME APPROVED"";C60~"
^DIPT(471,"H")="OVERAGE REPORT"
^DIPT(472,0)="XWB SEND API^2950202^^8994^^^^1"
^DIPT(472,1,0)="^.41^2^2"
^DIPT(472,1,1,0)="8994^1^^^^2950202^"
^DIPT(472,1,1,"F",0)="^.411^9^9"
^DIPT(472,1,1,"F",1,0)=".01"
^DIPT(472,1,1,"F",2,0)=".02"
^DIPT(472,1,1,"F",3,0)=".03"
^DIPT(472,1,1,"F",4,0)=".04"
^DIPT(472,1,1,"F",5,0)=".05"
^DIPT(472,1,1,"F",6,0)=".06"
^DIPT(472,1,1,"F",7,0)=".07"
^DIPT(472,1,1,"F",8,0)="1"
^DIPT(472,1,1,"F",9,0)="3"
^DIPT(472,1,2,0)="8994.02^2^8994^3^INPUT PARAMETER^2950202^"
^DIPT(472,1,2,"F",0)="^.411^5^5"
^DIPT(472,1,2,"F",1,0)=".01"
^DIPT(472,1,2,"F",2,0)=".02"
^DIPT(472,1,2,"F",3,0)=".03"
^DIPT(472,1,2,"F",4,0)=".04"
^DIPT(472,1,2,"F",5,0)="1"
^DIPT(472,1,"B",8994,1)=""
^DIPT(472,1,"B",8994.02,2)=""
^DIPT(472,"F",2)="S DIFGT=""XWB SEND API"",DIFGBFN=8994 D FG^DIFGB;X"
^DIPT(473,0)="GMRA PRINT FILE 120.83^2960201.1456^^120.83^^^2960321"
^DIPT(473,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(120.83,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^GMRD(120.83,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(473,"F",1)=".01~"
^DIPT(473,"F",2)="X DXS(1,9.2) S X=X]"""",DIP(3)=X S X=""National"",DIP(4)=X S X=1,DIP(5)=X S X=""Local"",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;""Nat'l/Local"";Z;""$S(NATIONAL SIGN/SYMPTOM]"""":""National"",1:""Local"")""~"
^DIPT(473,"F",3)="2,.01~"
^DIPT(473,"H")="SIGN/SYMPTOMS LIST"
^DIPT(474,0)="RT INPUT TEMPLATES^2861118^^.402^^^^"
^DIPT(474,"F",1)="4~.01~1815~1819~10,.01;X;"""";C1~"
^DIPT(474,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;"""";C1;Z;""DUP(""-"",IOM)""~"
^DIPT(474,"H")="Record Tracking Input Templates"
^DIPT(475,0)="RT PRINT TEMPLATES^2861118^^.4^^^^"
^DIPT(475,"F",1)="4~.01~1815~1819~10,.01;X;"""";C1~"
^DIPT(475,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;"""";C1;Z;""DUP(""-"",IOM)""~"
^DIPT(475,"H")="Record Tracking Print Templates"
^DIPT(476,0)="RT SORT TEMPLATES^2861118^^.401^^^^"
^DIPT(476,"F",1)="4~.01~10,.01;"""";C1~"
^DIPT(476,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;"""";C1;Z;""DUP(""-"",IOM)""~"
^DIPT(476,"H")="Record Tracking Sort Templates"
^DIPT(477,0)="RT WARD LIST^2870326^^2^^^^"
^DIPT(477,"DXS",1,9.2)="S DIP(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),DIP(2)=X S X=1,DIP(3)=X S X=3,X=$E(DIP(2),DIP(3),X)_""-"",DIP(4)=X S X=$P(DIP(1),U,9),DIP(5)=X S X=4"
^DIPT(477,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=5,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""-"",DIP(7)=X S X=$P(DIP(1),U,9),DIP(8)=X S X=6,DIP(9)=X S X=15"
^DIPT(477,"DXS",2,9.2)="F D=0:0 S (D,D0)=$N(^RT(""C"",I(0,0),D)) Q:D'>0 I $D(^RT(D,0)) S X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(477,"DXS",3,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^RT(D0,0)):^(0),1:""""),D0=$P(DIP(101),U,3) S:'$D(^DIC(195.2,+D0,0)) D0=-1 S DIP(201)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""")"
^DIPT(477,"DXS",4,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),D0=$P(DIP(101),U,5) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S DIP(201)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIPT(477,"DXS",5,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),D0=$P(DIP(101),U,14) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S DIP(201)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIPT(477,"F",1)="S DIP(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),DIP(2)=X S X=6,DIP(3)=X S X=9,X=$E(DIP(2),DIP(3),X) W X K DIP;"""";X;Z;""$E(SSN,6,9)""~.01;C6;L20~"
^DIPT(477,"F",2)="X DXS(1,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;""SSN"";C30;Z;""$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,15)""~.1;C45;L20~"
^DIPT(477,"F",3)="-190,^RT(^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(2,9.2) S X="""" S D0=I(0,0);Z;""RECORDS:""~-190,0;C70;""RECORD#""~"
^DIPT(477,"F",4)="-190,X DXS(3,9.2) S X=$P(DIP(201),U,2)_$P(DIP(101),U,7) S D0=I(100,0) W X K DIP;C83;""TYPE"";L5;Z;""TYPE OF RECORD:ABBREVIATION_VOLUME""~"
^DIPT(477,"F",5)="-190,105;C92;L20;""CURRENT BORROWER""~-190,114;C116;L16~-190,X DXS(4,9.2) S X=$P(DIP(201),U,7) S D0=I(100,0) W X K DIP;C92;X;L20;Z;""CURRENT BORROWER:#7""~"
^DIPT(477,"F",6)="-190,X DXS(5,9.2) S X=$P(DIP(201),U,7) S D0=I(100,0) W X K DIP;C116;X;L16;Z;""ASSOCIATED BORROWER:#7""~"
^DIPT(477,"F",7)="-190,S X=""="",DIP(101)=X S X=60,X1=DIP(101) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;C73;X;"""";Z;""DUP(""="",60)""~"
^DIPT(477,"F",8)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;C1;"""";Z;""DUP(""-"",IOM)""~"
^DIPT(477,"H")="IN-PATIENT RECORD LOCATION LISTS"
^DIPT(478,0)="RT PENDING REQUESTS^2870507^^190.1^^^^"
^DIPT(478,"F",1)=".01;C1;L15;N~-190,^RT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(478,"F",2)="-190,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(478,"F",3)="-190,-2,S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9),DIP(202)=X S X=6,DIP(203)=X S X=10,X=$E(DIP(202),DIP(203),X) W X K DIP;C17;X;"""";N;Z;""$E(SSN,6,10)""~"
^DIPT(478,"F",4)="-190,-195.2,^DIC(195.2,^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,3),X=X S D(0)=+X;Z;""TYPE OF RECORD:""~-190,-195.2,2;""TYPE"";C23~"
^DIPT(478,"F",5)="-190,S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""""_$P(DIP(101),U,7) W X K DIP;X;"""";Z;""""""_VOLUME""~-190,0;C30;""REC#""~-190,105;""CURRENT LOCATION"";C42;L15~"
^DIPT(478,"F",6)="-190,-195.9,^RTV(195.9,^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,""CL"")):^(""CL""),1:"""") S X=$P(DIP(101),U,5),X=X S D(0)=+X;Z;""CURRENT:""~"
^DIPT(478,"F",7)="-190,-195.9,7;""Phone/Room"";C60;L15~0;""REQ#"";C85~5;L15;C96~4;C113~S:$D(RTCOUNT) RTCOUNT=RTCOUNT+1;X;"""";Z;""S:$D(RTCOUNT) RTCOUNT=RTCOUNT+1""~"
^DIPT(478,"H")="Pending Requests"
^DIPT(478,"IOM")="132"
^DIPT(478,"LAST")=""
^DIPT(478,"ROU")="^RTCX"
^DIPT(478,"ROUOLD")="RTCX"
^DIPT(478,"STATS","DITTO",1)=""
^DIPT(478,"STATS","DITTO",2)=""
^DIPT(479,0)="RT HOME LOCATION^2910501.1424^^190^^^^"
^DIPT(479,"DCL","190^105")="!"
^DIPT(479,"DXS",1,9.2)="S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""") S X="" "",DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3"
^DIPT(479,"DXS",1,9.3)="X DXS(1,9.2) S X=$E(DIP(103),DIP(104),X) S Y=X,X=DIP(101),X=X_Y_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4,DIP(107)=X S X=5"
^DIPT(479,"DXS",1,9.4)="X DXS(1,9.3) S X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=10"
^DIPT(479,"F",1)=".01;""NAME"";C1;L15~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(479,"F",2)="-2,X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y W X K DIP;"""";X;C17;Z;"""" ""_$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,10)""~"
^DIPT(479,"F",3)="-195.2,^DIC(195.2,^^S I(0,0)=D0 S DIP(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""TYPE OF RECORD:""~-195.2,2;""TYPE"";C40~"
^DIPT(479,"F",4)="S DIP(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""""_$P(DIP(1),U,7) W X K DIP;"""";X;Z;""""""_VOLUME NUMBER""~0;C45;""REC #""~105;""BORROWER"";C57;L15~"
^DIPT(479,"F",5)="-195.9,^RTV(195.9,^^S I(0,0)=D0 S DIP(1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:"""") S X=$P(DIP(1),U,5),X=X S D(0)=+X;Z;""CURRENT BORROWER:""~"
^DIPT(479,"F",6)="-195.9,7;L15;C75;""PHONE/ROOM""~106;C95;""Since...""~201;C117~"
^DIPT(479,"H")="Charged Out Records By Home Location"
^DIPT(479,"IOM")="132"
^DIPT(479,"LAST")=""
^DIPT(479,"ROU")="^RTCH"
^DIPT(479,"ROUOLD")="RTCH"
^DIPT(479,"STATS","N",1)="0"
^DIPT(479,"T",56)="15^1^0^RV^"
^DIPT(480,0)="RT DAILY LOG^2870129^^190.3^^^^"
^DIPT(480,"DCL","190.3^8")="!"
^DIPT(480,"F",1)=".01~-190,^RT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RTV(190.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(480,"F",2)="-190,-195.2,^DIC(195.2,^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,3),X=X S D(0)=+X;Z;""TYPE OF RECORD:""~-190,-195.2,2;""RECORD""~"
^DIPT(480,"F",3)="-190,S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""""_$P(DIP(101),U,7) W X K DIP;X;"""";Z;""""""_VOLUME NUMBER""~8;""MOVEMENT""~6;""DATE CHARGED""~"
^DIPT(480,"H")="RECORD MOVEMENT HISTORY LIST"
^DIPT(481,0)="RT FORMATS^2870309^^194.4^^^^"
^DIPT(481,"F",1)=".01~2~4~50,.01;C1;""""~50,2;""""~50,3;""""~50,4;""""~50,5;""""~"
^DIPT(481,"F",2)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;"""";C1;Z;""DUP(""="",IOM)""~"
^DIPT(481,"H")="LABEL FORMAT LIST"
^DIPT(482,0)="RT MISSING^2880415^^190.2^^^^"
^DIPT(482,"DXS",1,9.2)="S DIP(202)=$S($D(^DPT(D0,0)):^(0),1:"""") S X="" "",DIP(201)=X S X=$P(DIP(202),U,9),DIP(203)=X S X=1,DIP(204)=X S X=3"
^DIPT(482,"DXS",1,9.3)="X DXS(1,9.2) S X=$E(DIP(203),DIP(204),X) S Y=X,X=DIP(201),X=X_Y_""-"",DIP(205)=X S X=$P(DIP(202),U,9),DIP(206)=X S X=4,DIP(207)=X S X=5"
^DIPT(482,"DXS",1,9.4)="X DXS(1,9.3) S X=$E(DIP(206),DIP(207),X) S Y=X,X=DIP(205),X=X_Y_""-"",DIP(208)=X S X=$P(DIP(202),U,9),DIP(209)=X S X=6,DIP(210)=X S X=9"
^DIPT(482,"DXS",2,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RTV(190.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RT(+D0,0)) D0=-1 S D(0)=D0 S I(100,0)=$S($D(D0):D0,1:"""") X DXS(2,9.2) S X="""" S D0=I(0,0)"
^DIPT(482,"DXS",2,9.2)="F D=0:0 S (D,D0)=$N(^RTV(190.3,""B"",I(100,0),D)) Q:D'>0 I $D(^RTV(190.3,D,0)) S X=$P(^(0),U,1) S:$D(^RT(+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(482,"DXS",3,"f")="FOUND"
^DIPT(482,"DXS",3,"m")="MISSING"
^DIPT(482,"DXS",3,"s")="FOUND/SUPE"
^DIPT(482,"DXS",4,"n")="NO"
^DIPT(482,"DXS",4,"y")="YES"
^DIPT(482,"F",1)=".01;C1;L20~-190,^RT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RTV(190.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(482,"F",2)="-190,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(482,"F",3)="-190,-2,X DXS(1,9.4) S X=$E(DIP(209),DIP(210),X) S Y=X,X=DIP(208),X=X_Y W X K DIP;X;"""";Z;"""" ""_$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(482,"F",4)="-190,-195.2,^DIC(195.2,^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,3),X=X S D(0)=+X;Z;""TYPE OF RECORD:""~-190,-195.2,2;C40;""TYPE""~"
^DIPT(482,"F",5)="-190,7;"""";X~4;C52;L10~-190.3,^RTV(190.3,^1^X DXS(2,9);Z;""NAME:RECORD MOVEMENT HISTORY:""~-190.3,5;C65;""BORROWER HISTORY"";L20~-190.3,6;C90;""CHARGED""~"
^DIPT(482,"F",6)="-190.3,15;C115;""BARCODED?""~""Entered as Missing : "";C1;S1~2;"""";X~""Entered By: "";C50~3;"""";X~""Supervisor Comments: "";C1;S1~100,.01;C25;"""";W~"
^DIPT(482,"F",7)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;"""";C1;Z;""DUP(""-"",IOM)""~"
^DIPT(482,"F",8)="""[The following fields will only contain information if the record was found by a user who is 'not' a file room supervisor.]"";C1~"
^DIPT(482,"F",9)="""Entered as Found : "";C1;S1~6;"""";X~""Entered By: "";C50~8;"""";X~""Where it was found: "";C90~5;"""";X~""User Comments : "";C1;S1~150,.01;C25;"""";W~"
^DIPT(482,"F",10)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;"""";C1;Z;""DUP(""="",IOM)""~"
^DIPT(482,"F",11)=""""";S1~"
^DIPT(482,"H")="Missing Records List"
^DIPT(482,"IOM")="132"
^DIPT(482,"LAST")=""
^DIPT(482,"ROU")="^RTCL"
^DIPT(482,"ROUOLD")="RTCL"
^DIPT(483,0)="RT TIME STUDY^2870423^^190.1^^^^"
^DIPT(483,"DCL","190.1^200")="#"
^DIPT(483,"F",1)="0;""REQUEST #"";C1~.01;C15;L20~-190,^RT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(483,"F",2)="-190,-195.2,^DIC(195.2,^^S I(100,0)=D0 S DIP(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,3),X=X S D(0)=+X;Z;""TYPE OF RECORD:""~-190,-195.2,2;C40;""TYPE""~"
^DIPT(483,"F",3)="-190,7;X;L2~5;C50;L20~2;""TIME REQUESTED/"";C75~7;""TIME OF STATUS/"";C100~200;C123;""MINUTES""~3;C75;""REQUESTING USER"";L20~8;C100;""RESPONSIBLE USER"";L20~"
^DIPT(483,"F",4)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X1 X:%]"""" ""F X=X:0 S %=%_X1 Q:$L(%)>X"" S X=$E(%,1,X) W X K DIP;X;C1;"""";Z;""DUP(""="",IOM)""~"
^DIPT(483,"H")="AD HOC REQUEST STATISTICS"
^DIPT(484,0)="RT PURGE PROFILE^2870428^^195.2^^^^"
^DIPT(484,"F",2)=".01~18~10~8~12~"
^DIPT(484,"H")="Record Tracking Purge Profile"
^DIPT(485,0)="RT RETIREMENT PROFILE^2910912.1734^^195.2^^^^"
^DIPT(485,"F",2)=".01~22~19~D BDAT^RTSM81;C53;""CUTOFF (date)"";Z;""D BDAT^RTSM81""~"
^DIPT(485,"H")="Record Tracking Retirement Profile"
^DIPT(486,0)="RT FILE ROOM/REMOTE^2910918.106^^195.9^^^^"
^DIPT(486,"F",2)=".01;L18;C1;""NAME""~21;L18;C21;""Domain""~5;L10;C40~22;L10;C56~23;L10;C70~"
^DIPT(486,"H")="BORROWERS/FILE AREAS LIST"
^DIPT(487,0)="RTW WARD LIST^2910716.1021^^190^^^^"
^DIPT(487,"F",1)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(487,"F",2)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=X S D(0)=+X;Z;""PATIENT FILE POINTER:""~"
^DIPT(487,"F",3)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(487,"F",4)="-2,S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) W X K DIP;"""";X;Z;""$E(SSN,6,9)""~"
^DIPT(487,"F",5)="-2,.01;C6;L20~-2,W $E(RTWARD,1,20);Z;""W $E(RTWARD,1,20)""~0;C70;""RECORD#""~3;C83;""TYPE"";L5~"
^DIPT(487,"H")="RECORDS LIST"
^DIPT(488,0)="PSGW ITEM LOC^2840915^^58.17^^^^"
^DIPT(488,"F",1)="W """";"""";Z;""W """"""~.01;C7;""ITEM ADDR CODE""~.5~"
^DIPT(488,"H")="AREA OF USE ITEM LOCATION EXPANSIONS"
^DIPT(489,0)="PSGW INV TYPE^2840915^^58.16^^^^"
^DIPT(489,"F",1)="W """";"""";Z;""W """"""~.01;C6;S~1,.01~"
^DIPT(489,"H")="AREA OF USE INVENTORY TYPES"
^DIPT(490,0)="PSGW PERCENTAGE^2880211^^58.1^^^^"
^DIPT(490,"F",1)=""
^DIPT(490,"F",2)="1,2,X $P(^DD(58.12,5,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C6;""STOCK ON HAND"";Z;""$J(PERCENTAGE OF STOCK ON HAND,6,2)""~"
^DIPT(490,"F",3)="1,2,""%"";C12;""""~1,2,1;C18;""STOCK LEVEL""~1,2,.01;C28~1,.01~.01~"
^DIPT(490,"H")="PERCENTAGE OF STOCK ON HAND"
^DIPT(491,0)="PSGW SHOW AREA OF USE^2890627.1447^^58.1^^^^"
^DIPT(491,"F",2)=".01;S1~2,.01~2,1~2,2,.01~2,2,1~"
^DIPT(491,"H")="AREA OF USE / WARDS AND SERVICES"
^DIPT(492,0)="PSADRI^2970401.1026^@^50^^@^2970926"
^DIPT(492,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PSDRUG(D0,2)):^(2),1:"""") S X=$P(DIP(1),U,4) K DIC S DIC=""^PRC(441,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y"
^DIPT(492,"DXS",2,9)="W ""$""_$P(^PRC(441,+NO,2,+VE,0),U,2)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)"
^DIPT(492,"DXS",3,9)="W $P(^PRC(441,+NO,2,+VE,0),U,8)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)"
^DIPT(492,"DXS",4,9)="S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=""PR"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X,X=$S($P(DIP(1),U,5):X/$P(DIP(1),U,5),1:""*******"")"
^DIPT(492,"DXS",5,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) K DIC S DIC=""^VA(200,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y"
^DIPT(492,"F",1)="""DRUG file"";C1~""ITEM MASTER file"";C40~"
^DIPT(492,"F",2)="S X=""_"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",80)""~.01;C1;L35;S~"
^DIPT(492,"F",3)="-441,^PRC(441,^^X DXS(1,9.2) S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0);Z;""NDC:ITEM MASTER:""~-441,.1,.01;W40~"
^DIPT(492,"F",4)="-441,S NO=D0;X;Z;""S NO=D0""~-441,S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=""ITEM NUMBER: ""_$P(DIP(101),U,1) W X K DIP;C40;Z;""""ITEM NUMBER: ""_#.01""~"
^DIPT(492,"F",5)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),0)):^(0),1:"""") S X=$P(DIP(1),U,6) W X K DIP;S;Z;""FSN""~-441,""-NSN-"";C30~-441,5;C40~"
^DIPT(492,"F",6)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),2)):^(2),1:"""") S X=$P(DIP(1),U,4) W X K DIP;S;Z;""NDC""~-441,S NDC=X;Z;""S NDC=X""~-441,""-NDC-"";C30~"
^DIPT(492,"F",7)="-441,S VE=$O(^PRC(441,""F"",NDC,+NO,"""")) W $P(^PRC(441,+NO,2,+VE,0),U,5);C40;Z;""S VE=$O(^PRC(441,""F"",NDC,+NO,"""")) W $P(^PRC(441,+NO,2,+VE,0),U,5)""~"
^DIPT(492,"F",8)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=""$""_$P(DIP(1),U,3)_""/""_$S('$D(^DIC(51.5,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;S;Z;""""$""_PRICE PER ORDER UNIT_""/""_ORDER UNIT""~"
^DIPT(492,"F",9)="-441,""-COST-"";C30~-441,X DXS(2,9);C40;Z;""W ""$""_$P(^PRC(441,+NO,2,+VE,0),U,2)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)""~"
^DIPT(492,"F",10)="-441,W ""Date of price: "" S Y=$P(^PRC(441,+NO,2,+VE,0),U,6) X ^DD(""DD"") W Y;Z;""W ""Date of price: "" S Y=$P(^PRC(441,+NO,2,+VE,0),U,6) X ^DD(""DD"") W Y""~"
^DIPT(492,"F",11)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=$P(DIP(1),U,5)_""/""_$S('$D(^DIC(51.5,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;S;Z;""DISPENSE UNITS PER ORDER UNIT_""/""_ORDER UNIT""~"
^DIPT(492,"F",12)="-441,""-PKG-"";C30~-441,X DXS(3,9);C40;Z;""W $P(^PRC(441,+NO,2,+VE,0),U,8)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)""~"
^DIPT(492,"F",13)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=""$""_$P(DIP(1),U,6)_""/""_$P(DIP(1),U,8) W X K DIP;S;Z;""""$""_PRICE PER DISPENSE UNIT_""/""_DISPENSE UNIT""~"
^DIPT(492,"F",14)="-441,""-UNIT COST-"";C27~-441,W ""$"";C40;Z;""W ""$""""~-441,S PR=$P(^PRC(441,+NO,2,+VE,0),U,2);X;Z;""S PR=$P(^PRC(441,+NO,2,+VE,0),U,2)""~"
^DIPT(492,"F",15)="-441,X DXS(4,9) W X K DIP;X;Z;""VAR(""PR"")/DISPENSE UNITS PER ORDER""~-441,""(Based on dispense unit)""~"
^DIPT(492,"F",16)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=$P(DIP(1),U,7) W X K DIP;S;Z;""SOURCE OF SUPPLY""~-441,""-SOURCE-"";C29~"
^DIPT(492,"F",17)="-441,W $P($G(^PRC(440,+$P(^PRC(441,+NO,2,+VE,0),U),0)),U);C40;Z;""W $P($G(^PRC(440,+$P(^PRC(441,+NO,2,+VE,0),U),0)),U)""~"
^DIPT(492,"F",18)="-441,S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=""Purchasing Agent: ""_$S('$D(^VA(200,+$P(DIP(101),U,11),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;S;Z;""""Purchasing Agent: ""_#15""~"
^DIPT(492,"F",19)="-441,-200,^VA(200,^^X DXS(5,9.2) S DIP(201)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(201),U,1) S D0=I(100,0);Z;"".01:NEW PERSON:""~"
^DIPT(492,"F",20)="-441,-200,S DIP(201)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=""Phone: ""_$P(DIP(201),U,2) W X K DIP;C40;Z;""""Phone: ""_#.132""~"
^DIPT(492,"H")="@"
^DIPT(492,"IOM")="80"
^DIPT(492,"LAST")=""
^DIPT(492,"ROU")="^PSADRI"
^DIPT(492,"ROUOLD")="PSADRI"
^DIPT(492,"SUB")="1"
^DIPT(493,0)="PSADRIP^2931028.1501^@^50^^@^2970926"
^DIPT(493,"DXS",1,9)="X DXS(1,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(493,"DXS",1,9.2)="S X=10"
^DIPT(493,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PSDRUG(D0,2)):^(2),1:"""") S X=$P(DIP(1),U,4) K DIC S DIC=""^PRC(441,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y"
^DIPT(493,"DXS",3,9)="W:VE]"""" ""$""_$P(^PRC(441,+NO,2,+VE,0),U,2)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)"
^DIPT(493,"DXS",4,9)="W:VE]"""" $P(^PRC(441,+NO,2,+VE,0),U,8)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)"
^DIPT(493,"F",1)="X DXS(1,9) W X K DIP;X;Z;""PAGEFEED(10)""~"
^DIPT(493,"F",2)="S X=""_"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",80)""~.01;L37;S~"
^DIPT(493,"F",3)="I $P($G(^PSDRUG(D0,2)),U,4)']"""" W "" NO NDC IN DRUG FILE, NO MATCH"";X;Z;""I $P($G(^PSDRUG(D0,2)),U,4)']"""" W "" NO NDC IN DRUG FILE, NO MATCH""""~"
^DIPT(493,"F",4)="S PR(1)=$P($G(^PSDRUG(D0,660)),U,5);Z;""S PR(1)=$P($G(^PSDRUG(D0,660)),U,5)""~"
^DIPT(493,"F",5)="-441,^PRC(441,^^X DXS(2,9.2) S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0);Z;""NDC:ITEM MASTER:""~"
^DIPT(493,"F",6)="-441,S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=""ITEM NUMBER: ""_$P(DIP(101),U,1) W X K DIP;C40;Z;""""ITEM NUMBER: ""_#.01""~"
^DIPT(493,"F",7)="-441,S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),DIP(102)=X S X=1,DIP(103)=X S X=40,X=$E(DIP(102),DIP(103),X) W X K DIP;C40;Z;""$E(SHORT DESCRIPTION,1,40)""~"
^DIPT(493,"F",8)="-441,S NO=D0;X;Z;""S NO=D0""~-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),0)):^(0),1:"""") S X=$P(DIP(1),U,6) W X K DIP;X;C1;Z;""FSN""~-441,""-NSN-"";C30~-441,5;C40~"
^DIPT(493,"F",9)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),2)):^(2),1:"""") S X=$P(DIP(1),U,4) W X K DIP;S;Z;""NDC""~-441,S NDC=X;Z;""S NDC=X""~-441,""-NDC-"";C30~"
^DIPT(493,"F",10)="-441,S VE=$O(^PRC(441,""F"",NDC,+NO,"""")) W:VE]"""" $P(^PRC(441,+NO,2,+VE,0),U,5);C40;Z;""S VE=$O(^PRC(441,""F"",NDC,+NO,"""")) W:VE]"""" $P(^PRC(441,+NO,2,+VE,0),U,5)""~"
^DIPT(493,"F",11)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=""$""_$P(DIP(1),U,3)_""/""_$S('$D(^DIC(51.5,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;S;Z;""""$""_PRICE PER ORDER UNIT_""/""_ORDER UNIT""~"
^DIPT(493,"F",12)="-441,""-COST-"";C30~-441,X DXS(3,9);C40;Z;""W:VE]"""" ""$""_$P(^PRC(441,+NO,2,+VE,0),U,2)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)""~"
^DIPT(493,"F",13)="-441,I VE]"""" W ""Date of price: "" S Y=$P(^PRC(441,+NO,2,+VE,0),U,6) X ^DD(""DD"") W Y;Z;""I VE]"""" W ""Date of price: "" S Y=$P(^PRC(441,+NO,2,+VE,0),U,6) X ^DD(""DD"") W Y""~"
^DIPT(493,"F",14)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=$P(DIP(1),U,5)_""/""_$S('$D(^DIC(51.5,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;S;Z;""DISPENSE UNITS PER ORDER UNIT_""/""_ORDER UNIT""~"
^DIPT(493,"F",15)="-441,""-PKG-"";C30~-441,X DXS(4,9);C40;Z;""W:VE]"""" $P(^PRC(441,+NO,2,+VE,0),U,8)_""/""_$P($G(^PRCD(420.5,+$P(^PRC(441,+NO,2,+VE,0),U,7),0)),U)""~"
^DIPT(493,"F",16)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=""$""_$P(DIP(1),U,6)_""/""_$P(DIP(1),U,8) W X K DIP;S;Z;""""$""_PRICE PER DISPENSE UNIT_""/""_DISPENSE UNIT""~"
^DIPT(493,"F",17)="-441,""-UNIT COST-"";C27~-441,S:VE]""""&(PR(1)) PR=$P(^PRC(441,+NO,2,+VE,0),U,2)/PR(1);X;Z;""S:VE]""""&(PR(1)) PR=$P(^PRC(441,+NO,2,+VE,0),U,2)/PR(1)""~"
^DIPT(493,"F",18)="-441,S:$G(PR) X=PR,X2=""3$"",X3=4 D COMMA^%DTC W X;Z;""S:$G(PR) X=PR,X2=""3$"",X3=4 D COMMA^%DTC W X""~-441,""(Based on dispense unit)"";X~"
^DIPT(493,"F",19)="-441,S DIP(1)=$S($D(^PSDRUG(I(0,0),660)):^(660),1:"""") S X=$P(DIP(1),U,7) W X K DIP;S;Z;""SOURCE OF SUPPLY""~-441,""-SOURCE-"";C29~"
^DIPT(493,"F",20)="-441,W:VE]"""" $P($G(^PRC(440,+$P(^PRC(441,+NO,2,+VE,0),U),0)),U);C40;Z;""W:VE]"""" $P($G(^PRC(440,+$P(^PRC(441,+NO,2,+VE,0),U),0)),U)""~"
^DIPT(493,"F",21)="K PR,NDC,NO,VE,X2,X3;Z;""K PR,NDC,NO,VE,X2,X3""~"
^DIPT(493,"H")="[PSADRIH]"
^DIPT(494,0)="PSAINV^2930305.1036^^58.8^^^2970826^"
^DIPT(494,"F",1)="S DIP(1)=$S($D(^PSD(58.8,D0,0)):^(0),1:"""") S X=""Location: ""_$P(DIP(1),U,1) W X K DIP;Z;""""Location: ""_#.01""~"
^DIPT(494,"F",2)="22,S DIP(1)=$S($D(^PSD(58.8,D0,4,D1,0)):^(0),1:"""") S X=""Inventory link: ""_$S('$D(^PRCP(445,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C40;Z;""""Inventory link: ""_#.01""~"
^DIPT(494,"F",3)="""Drug:"";S~""Balance:"";C50~10,.01;S~10,3;C50~10,W "" ""_$P($G(^PSDRUG(D1,660)),U,8);Z;""W "" ""_$P($G(^PSDRUG(D1,660)),U,8)""~"
^DIPT(494,"H")="@"
^DIPT(494,"SUB")="1"
^DIPT(495,0)="PSADRIH^2921201.1023^^50^^^2970926^"
^DIPT(495,"DXS",1,9)="S X=""DRUG file/ITEM MASTER file COMPARISON REPORT"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(495,"F",2)="X DXS(1,9) W X K DIP;Z;""CENTER(""DRUG file/ITEM MASTER file COMPARISON REPORT"")"";X~""DRUG"";S~""ITEM MASTER file"";C40~"
^DIPT(495,"H")="@"
^DIPT(495,"SUB")="1"
^DIPT(496,0)="VAQ WORK-LOAD REPORT^2930921.0849^^394.87^^^2931019^"
^DIPT(496,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^VAT(394.87,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^VAT(394.88,+D0,0)) D0=-1 S DIP(101)=$S($D(^VAT(394.88,D0,0)):^(0),1:"""")"
^DIPT(496,"F",1)="""Date/Time : "";C1;S1;""""~.01;X;""""~""Work Done : "";C1;""""~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;X;"""";Z;""Work Done:Work""~"
^DIPT(496,"F",2)="""Done By : "";C1;""""~.02;L65;X;""""~W:(Y="""") ""PDX Server"";X;"""";Z;""W:(Y="""") ""PDX Server""""~""Patient : "";C1;""""~11;L65;X;""""~""Patient ID : "";C1;""""~"
^DIPT(496,"F",3)="13;L65;X;""""~""Remote Facility : "";C1;""""~20;X;L60;""""~"
^DIPT(496,"F",4)="S X=""* "",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;S1;"""";Z;""DUP(""* "",IOM)""~"
^DIPT(496,"H")="Work Done Using Patient Data Exchange (PDX)"
^DIPT(497,0)="VAQ CUR. TRANSACTIONS REPORT^2930127.0831^^394.61^^^2931001^"
^DIPT(497,"DXS",1,9)="S DIP(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(DIP(1),U,3) Q:'$D(X) Q:(X="""") S X=$E(X,4,5)_""-""_$E(X,6,7)_""-""_(+$E(X,1,3)+1700)"
^DIPT(497,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^VAT(394.85,+D0,0)) D0=-1 S DIP(101)=$S($D(^VAT(394.85,D0,0)):^(0),1:"""")"
^DIPT(497,"F",1)="""Transaction # : "";C1;S1;""""~.01;L;X;""""~""Patient : "";C7;""""~10;L62;X;""""~""Patient ID : "";C4;""""~13;L62;X;""""~""Date Of Birth : "";C1;""""~"
^DIPT(497,"F",2)="X DXS(1,9) W X K DIP;X;"""";Z;""VAQ FORMAT DATE(Patient's DOB)""~""Status : "";C1;S1;""""~"
^DIPT(497,"F",3)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;X;"""";Z;""Current Status:Status""~""Segments : "";C1;S1;""""~80,.01;C12;X;""""~"
^DIPT(497,"F",4)="""Requested On : "";C8;S1;""""~20;X;""""~""Requested By : "";C8;""""~21;L56;X;""""~""Requesting Facility : "";C1;""""~30;L56;X;""""~""Released On : "";C9;S1;""""~50;X;""""~"
^DIPT(497,"F",5)="""Released By : "";C9;""""~51;L56;X;""""~""Releasing Facility : "";C2;""""~60;L56;X;""""~""Comments:"";C1;S1;""""~100,.01;C2;W;""""~"
^DIPT(497,"F",6)="S X=""* "",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;S1;"""";Z;""DUP(""* "",IOM)""~"
^DIPT(497,"H")="PDX Transactions Currently On File"
^DIPT(498,0)="VAQ REQUIRES PROCESSING REPORT^2930930.1031^^394.61^1934^^2930930"
^DIPT(498,"DXS",1,9)="S DIP(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(DIP(1),U,3) Q:'$D(X) Q:(X="""") S X=$E(X,4,5)_""-""_$E(X,6,7)_""-""_(+$E(X,1,3)+1700)"
^DIPT(498,"F",1)="""Transaction # : "";C1;S1;""""~.01;L;X;""""~""Patient : "";C7;""""~10;L62;X;""""~""Patient ID : "";C4;""""~13;L62;X;""""~""Date Of Birth : "";C1;""""~"
^DIPT(498,"F",2)="X DXS(1,9) W X K DIP;X;"""";Z;""VAQ FORMAT DATE(Patient's DOB)""~""Requested On : "";C2;""""~20;X;""""~""Requested By : "";C2;""""~21;L62;X;""""~""Facility : "";C6;""""~"
^DIPT(498,"F",3)="30;L62;X;""""~"
^DIPT(498,"F",4)="S X=""* "",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;S1;"""";Z;""DUP(""* "",IOM)""~"
^DIPT(498,"H")="PDX Requests That Require Manual Processing"
^DIPT(499,0)="VAQ DATA SEGMENT LIST^2930402.1139^^394.71^^^^"
^DIPT(499,"F",1)="""NAME: "";C1;S1;""""~.01;X;""""~""ABBREVIATION : "";C3;""""~.02;X;""""~""DISPLAY READY: "";C3;""""~.03;X;""""~""EXTRACT: "";C3;""""~10;X;""""~""DISPLAY: "";C3;""""~20;X;""""~"
^DIPT(499,"F",2)=""""";S1;""""~"
^DIPT(499,"H")="PDX Data Segments"
^DIPT(506,0)="PPPSTAP^2941216.1003^@^1020.3^11801^@^2941216"
^DIPT(506,"F",1)="""Date Initialized...................... "";C1~1;C40;""""~""Total PDX's Sent...................... "";C1~2;C40;"""";L10~"
^DIPT(506,"F",2)="""Total Alerts Issued................... "";C1~3;C40;L10;""""~""Total Alerts Ignored.................. "";C1~4;C40;L10;""""~"
^DIPT(506,"F",3)="""Total Manual Entries Added............ "";C1~5;C40;L10;""""~""Total Entries Deleted................. "";C1~6;C40;L10;""""~"
^DIPT(506,"F",4)="""Total Entries Edited.................. "";C1~7;C40;L10;""""~""Total New Patients Added.............. "";C1~8;C40;L10;""""~"
^DIPT(506,"F",5)="""Total Profiles Viewed................. "";C1~9;C40;L10;""""~"
^DIPT(506,"H")="STATISTICS FILE"
^DIPT(506,"IOM")="80"
^DIPT(506,"LAST")=""
^DIPT(506,"ROU")="^PPPXS"
^DIPT(506,"ROUOLD")="PPPXS"
^DIPT(507,0)="PPP LOG^2940412.1103^^1020.4^^^^"
^DIPT(507,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PPP(1020.6,+D0,0)) D0=-1 S DIP(101)=$S($D(^PPP(1020.6,D0,0)):^(0),1:"""")"
^DIPT(507,"F",2)=".01~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;Z;""CODE:DESC""~2~3~4~5~"
^DIPT(507,"H")="PPP LOG LIST"
^DIPT(508,0)="PPP LOGP^2940412.1112^^1020.4^^^2940520^"
^DIPT(508,100,0)="^.42A^^0"
^DIPT(508,"DXS",1,9.2)="S DIP(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=9,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X)_""00"",DIP(4)=X S X=1,DIP(5)=X S X=2"
^DIPT(508,"DXS",2,9.2)="S DIP(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=11,DIP(3)=X S X=12,X=$E(DIP(2),DIP(3),X)_""00"",DIP(4)=X S X=1,DIP(5)=X S X=2"
^DIPT(508,"DXS",3,9.2)="S DIP(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=13,DIP(3)=X S X=14,X=$E(DIP(2),DIP(3),X)_""00"",DIP(4)=X S X=1,DIP(5)=X S X=2"
^DIPT(508,"F",1)="""DATE/TIME:"";S1~"
^DIPT(508,"F",2)="S DIP(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C12;"""";X;Z;""NUMDATE(DATE)""~"
^DIPT(508,"F",3)="X DXS(1,9.2) S X=$E(DIP(4),DIP(5),X)_"":"" W X K DIP;L2;C21;"""";Z;""$E($E(DATE,9,10)_""00"",1,2)_"":""""~"":"";X;""""~"
^DIPT(508,"F",4)="X DXS(2,9.2) S X=$E(DIP(4),DIP(5),X) W X K DIP;L2;X;"""";Z;""$E($E(DATE,11,12)_""00"",1,2)""~"":"";X;""""~"
^DIPT(508,"F",5)="X DXS(3,9.2) S X=$E(DIP(4),DIP(5),X) W X K DIP;L2;X;"""";Z;""$E($E(DATE,13,14)_""00"",1,2)""~""USER:"";C35;X~3;C41;""""~""ROUTINE :"";C1;X~4;C12;""""~"
^DIPT(508,"F",6)="-1020.6,^PPP(1020.6,^^S I(0,0)=D0 S DIP(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""CODE:""~-1020.6,1;""""~5;""""~"
^DIPT(508,"H")="PPP LOG LIST"
^DIPT(508,"IOM")="80"
^DIPT(508,"LAST")=""
^DIPT(508,"ROU")="^PPPXL"
^DIPT(508,"ROUOLD")="PPPXL"
^DIPT(509,0)="PPP CODE LIST^2940412.1102^^1020.6^^^2950307^"
^DIPT(509,"F",2)="""CODE: ""~.01;C7;""""~""-->"";C13~1;L60;C18;""""~"
^DIPT(509,"H")="PPP CODE LIST"
^DIPT(513,0)="DVBHINQ PAT-HINQ COMP^3050811.0724^^2^^^3050908"
^DIPT(513,"DXS",1,9)="W ?30,""Patient File vs. HINQ"",!,?17,""Patient"",?55,""HINQ"",!,""--------------------------------------------------------------------------------"""
^DIPT(513,"DXS",2,9)="I $D(DVBDOB),DVBDOB S M=$E(DVBDOB,1,2) D MM^DVBHQM11 W ?50,M_"" ""_$E(DVBDOB,3,4)_"", ""_$E(DVBDOB,5,8) K M"
^DIPT(513,"DXS",3,9)="I $D(DVBP(6)),(+$P(DVBP(6),U)) S M=$E(DVBP(6),1,2) D MM^DVBHQM11 W ?50,M_"" ""_$E(DVBP(6),3,4)_"", ""_$E(DVBP(6),5,8) K M"
^DIPT(513,"DXS",4,9)="I $P(DVBP(6),U,7)'["" "" W ?50 W:$P(DVBP(6),U,7)=""Y"" ""YES"" W:$P(DVBP(6),U,7)=""N"" ""NO"" W:$P(DVBP(6),U,7)=""I"" ""YES"""
^DIPT(513,"DXS",5,9)="I $D(DVBPOW) W ?50,$S(DVBPOW=0:""No period of rec."",DVBPOW=1:""Less than 30 days"",DVBPOW=2:""30 days or more"",DVBPOW="" "":""Not applicable"",1:DVBPOW)"
^DIPT(513,"DXS",6,9)="I '$D(ZTSK),(IO=IO(0)) W !!,?35,""** Pausing **"" H 3 W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF)"
^DIPT(513,"DXS",7,9)="W !,?1,""Rated Disab. (HINQ) - Comb. SC%: "",+$G(DVBDXPCT),"" Eff. Date Comb. Eval.: "",$G(DVBEDT)"
^DIPT(513,"DXS",8,9)="I $D(DVBEOD(1)),DVBEOD(1)?8N S M=$E(DVBEOD(1),1,2) D MM^DVBHQM11 W M,"" "",$E(DVBEOD(1),3,4),"","",$E(DVBEOD(1),5,8)"
^DIPT(513,"DXS",9,9)="I $D(DVBRAD(1)),DVBRAD(1)?8N S M=$E(DVBRAD(1),1,2) D MM^DVBHQM11 W ?15,M,"" "",$E(DVBRAD(1),3,4),"","",$E(DVBRAD(1),5,8)"
^DIPT(513,"DXS",10,0)="NO"
^DIPT(513,"DXS",10,1)="YES"
^DIPT(513,"DXS",11,"N")="NO"
^DIPT(513,"DXS",11,"U")="UNKNOWN"
^DIPT(513,"DXS",11,"Y")="YES"
^DIPT(513,"DXS",12,"N")="NO"
^DIPT(513,"DXS",12,"U")="UNKNOWN"
^DIPT(513,"DXS",12,"Y")="YES"
^DIPT(513,"F",1)="W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF);Z;""W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF)""~"
^DIPT(513,"F",2)="X DXS(1,9);X;Z;""W ?30,""Patient File vs. HINQ"",!,?17,""Patient"",?55,""HINQ"",!,""--------------------------------------------------------------------------------""""~"
^DIPT(513,"F",3)="""Name:"";C1~.01;C20~I $D(DVBADR(1)) W ?56,DVBADR(1);Z;""I $D(DVBADR(1)) W ?56,DVBADR(1)""~"
^DIPT(513,"F",4)="I '$D(DVBADR(1)),$D(DVBNAME) W ?56,DVBNAME;Z;""I '$D(DVBADR(1)),$D(DVBNAME) W ?56,DVBNAME""~""Address:"";C1~.111;C20~"
^DIPT(513,"F",5)="I $D(DVBADR(1)) W ?56,DVBADR(1);Z;""I $D(DVBADR(1)) W ?56,DVBADR(1)""~.112;C20~I $D(DVBADR(2)) W ?56,DVBADR(2);Z;""I $D(DVBADR(2)) W ?56,DVBADR(2)""~"
^DIPT(513,"F",6)=".113;C20~I $D(DVBADR(3)) W ?56,DVBADR(3);Z;""I $D(DVBADR(3)) W ?56,DVBADR(3)""~""SSN:"";C1~.09;C20~I $D(DVBSSN) W ?50,DVBSSN;Z;""I $D(DVBSSN) W ?50,DVBSSN""~"
^DIPT(513,"F",7)="""Claim number:"";C1~.313;C20;L9;X~I $D(DVBCN),DVBCN>0 W ?50,DVBCN;X;Z;""I $D(DVBCN),DVBCN>0 W ?50,DVBCN""~""Date of Birth:"";C1~.03;C20;X~"
^DIPT(513,"F",8)="X DXS(2,9);Z;""I $D(DVBDOB),DVBDOB S M=$E(DVBDOB,1,2) D MM^DVBHQM11 W ?50,M_"" ""_$E(DVBDOB,3,4)_"", ""_$E(DVBDOB,5,8) K M""~""Date of Death:"";C1~.351;C20;X~"
^DIPT(513,"F",9)="X DXS(3,9);Z;""I $D(DVBP(6)),(+$P(DVBP(6),U)) S M=$E(DVBP(6),1,2) D MM^DVBHQM11 W ?50,M_"" ""_$E(DVBP(6),3,4)_"", ""_$E(DVBP(6),5,8) K M""~"
^DIPT(513,"F",10)="""Rated Incompetent:"";C1~.293;C20;X~"
^DIPT(513,"F",11)="X DXS(4,9);Z;""I $P(DVBP(6),U,7)'["" "" W ?50 W:$P(DVBP(6),U,7)=""Y"" ""YES"" W:$P(DVBP(6),U,7)=""N"" ""NO"" W:$P(DVBP(6),U,7)=""I"" ""YES""""~""POW"";C1~.525;C20;X~"
^DIPT(513,"F",12)="X DXS(5,9);Z;""I $D(DVBPOW) W ?50,$S(DVBPOW=0:""No period of rec."",DVBPOW=1:""Less than 30 days"",DVBPOW=2:""30 days or more"",DVBPOW="" "":""Not applicable"",1:DVBPOW)""~"
^DIPT(513,"F",13)="""Folder Location:"";C1~.314;C20;L27;X~I $D(DVBFL) W ?50,$E(DVBFL,1,27);Z;""I $D(DVBFL) W ?50,$E(DVBFL,1,27)""~""Verified SVC:"";C1~.322;C20;X~"
^DIPT(513,"F",14)="I $P(DVBP(6),U,8)'["" "" W ?50 W:$P(DVBP(6),U,8)=""Y"" ""YES"" W:$P(DVBP(6),U,8)=""N"" ""NO"";Z;""I $P(DVBP(6),U,8)'["" "" W ?50 W:$P(DVBP(6),U,8)=""Y"" ""YES"" W:$P(DVBP(6),U,8)=""N"" ""NO""""~"
^DIPT(513,"F",15)="""Vietnam Service:"";C1~.32101;C20;X~"
^DIPT(513,"F",16)="I $P(DVBP(6),U,4)'["" "" W ?50 W:$P(DVBP(6),U,4)=""Y"" ""YES"" W:$P(DVBP(6),U,4)=""N"" ""NO"";Z;""I $P(DVBP(6),U,4)'["" "" W ?50 W:$P(DVBP(6),U,4)=""Y"" ""YES"" W:$P(DVBP(6),U,4)=""N"" ""NO""""~"
^DIPT(513,"F",17)="X DXS(6,9);Z;""I '$D(ZTSK),(IO=IO(0)) W !!,?35,""** Pausing **"" H 3 W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF)""~""Rated Disab. (Patient file)"";S1;C1~"
^DIPT(513,"F",18)="D LSTR^DVBHQUP;Z;""D LSTR^DVBHQUP""~X DXS(7,9);Z;""W !,?1,""Rated Disab. (HINQ) - Comb. SC%: "",+$G(DVBDXPCT),"" Eff. Date Comb. Eval.: "",$G(DVBEDT)""~"
^DIPT(513,"F",19)="I $D(DVBDXNO),DVBDXNO'=0 D S1^DVBHQZ6;Z;""I $D(DVBDXNO),DVBDXNO'=0 D S1^DVBHQZ6""~W !,?34,""HINQ Data"";X;Z;""W !,?34,""HINQ Data""""~"
^DIPT(513,"F",20)="W !,?6,""EOD"",?20,""RAD"",?34,""Bran. Ser."",?48,""Char. Ser."",?62,""Ser Num."";X;Z;""W !,?6,""EOD"",?20,""RAD"",?34,""Bran. Ser."",?48,""Char. Ser."",?62,""Ser Num.""""~"
^DIPT(513,"F",21)="W !,""--------------------------------------------------------------------------------"";Z;""W !,""--------------------------------------------------------------------------------""""~"
^DIPT(513,"F",22)="I +$G(DVBEOD(2))>0 K DVBEOD(1);Z;""I +$G(DVBEOD(2))>0 K DVBEOD(1)""~I +$G(DVBRAD(2))>0 K DVBRAD(1);Z;""I +$G(DVBRAD(2))>0 K DVBRAD(1)""~"
^DIPT(513,"F",23)="I $G(DVBCSVC(2))]"""" K DVBCSVC(1);Z;""I $G(DVBCSVC(2))]"""" K DVBCSVC(1)""~I $G(DVBSN(2))]"""" K DVBSN(1);Z;""I $G(DVBSN(2))]"""" K DVBSN(1)""~"
^DIPT(513,"F",24)="I $G(DVBBOS(2))]"""" K DVBBOS(1);Z;""I $G(DVBBOS(2))]"""" K DVBBOS(1)""~"
^DIPT(513,"F",25)="X DXS(8,9);X;Z;""I $D(DVBEOD(1)),DVBEOD(1)?8N S M=$E(DVBEOD(1),1,2) D MM^DVBHQM11 W M,"" "",$E(DVBEOD(1),3,4),"","",$E(DVBEOD(1),5,8)""~"
^DIPT(513,"F",26)="X DXS(9,9);X;Z;""I $D(DVBRAD(1)),DVBRAD(1)?8N S M=$E(DVBRAD(1),1,2) D MM^DVBHQM11 W ?15,M,"" "",$E(DVBRAD(1),3,4),"","",$E(DVBRAD(1),5,8)""~"
^DIPT(513,"F",27)="I $D(DVBBOS(1)) S Y=DVBBOS(1) D XBOS^DVBHQM12 W ?34,$E(Y,1,16) K Y;X;Z;""I $D(DVBBOS(1)) S Y=DVBBOS(1) D XBOS^DVBHQM12 W ?34,$E(Y,1,16) K Y""~"
^DIPT(513,"F",28)="I $D(DVBCSVC(1)) S I=1,Y=DVBCSVC(1) D DISCHG^DVBHQM1 W ?48,Y K Y;X;Z;""I $D(DVBCSVC(1)) S I=1,Y=DVBCSVC(1) D DISCHG^DVBHQM1 W ?48,Y K Y""~"
^DIPT(513,"F",29)="I $D(DVBSN(1)) W ?62,DVBSN(1);X;Z;""I $D(DVBSN(1)) W ?62,DVBSN(1)""~"
^DIPT(513,"F",30)="W ! I $D(DVBEOD(2)),DVBEOD(2)?7N S Y=DVBEOD(2) X ^DD(""DD"") W ?1,Y K Y;X;Z;""W ! I $D(DVBEOD(2)),DVBEOD(2)?7N S Y=DVBEOD(2) X ^DD(""DD"") W ?1,Y K Y""~"
^DIPT(513,"F",31)="I $D(DVBRAD(2)),DVBRAD(2)?7N S Y=DVBRAD(2) X ^DD(""DD"") W ?15,Y K Y;X;Z;""I $D(DVBRAD(2)),DVBRAD(2)?7N S Y=DVBRAD(2) X ^DD(""DD"") W ?15,Y K Y""~"
^DIPT(513,"F",32)="I $D(DVBBOS(2)) W ?34,DVBBOS(2);X;Z;""I $D(DVBBOS(2)) W ?34,DVBBOS(2)""~I $D(DVBCSVC(2)) W ?48,DVBCSVC(2);X;Z;""I $D(DVBCSVC(2)) W ?48,DVBCSVC(2)""~"
^DIPT(513,"F",33)="I $D(DVBSN(2)) W ?62,DVBSN(2);X;Z;""I $D(DVBSN(2)) W ?62,DVBSN(2)""~"
^DIPT(513,"F",34)="W ! I $D(DVBEOD(3)),DVBEOD(3)?7N S Y=DVBEOD(3) X ^DD(""DD"") W ?1,Y K Y;X;Z;""W ! I $D(DVBEOD(3)),DVBEOD(3)?7N S Y=DVBEOD(3) X ^DD(""DD"") W ?1,Y K Y""~"
^DIPT(513,"F",35)="I $D(DVBRAD(3)),DVBRAD(3)?7N S Y=DVBRAD(3) X ^DD(""DD"") W ?15,Y K Y;X;Z;""I $D(DVBRAD(3)),DVBRAD(3)?7N S Y=DVBRAD(3) X ^DD(""DD"") W ?15,Y K Y""~"
^DIPT(513,"F",36)="I $D(DVBBOS(3)) W ?34,DVBBOS(3);X;Z;""I $D(DVBBOS(3)) W ?34,DVBBOS(3)""~I $D(DVBCSVC(3)) W ?48,DVBCSVC(3);X;Z;""I $D(DVBCSVC(3)) W ?48,DVBCSVC(3)""~"
^DIPT(513,"F",37)="I $D(DVBSN(3)) W ?62,DVBSN(3);X;Z;""I $D(DVBSN(3)) W ?62,DVBSN(3)""~"
^DIPT(513,"F",38)="W ! I $D(DVBEOD(4)),DVBEOD(4)?7N S Y=DVBEOD(4) X ^DD(""DD"") W ?1,Y K Y;X;Z;""W ! I $D(DVBEOD(4)),DVBEOD(4)?7N S Y=DVBEOD(4) X ^DD(""DD"") W ?1,Y K Y""~"
^DIPT(513,"F",39)="I $D(DVBRAD(4)),DVBRAD(4)?7N S Y=DVBRAD(4) X ^DD(""DD"") W ?15,Y K Y;X;Z;""I $D(DVBRAD(4)),DVBRAD(4)?7N S Y=DVBRAD(4) X ^DD(""DD"") W ?15,Y K Y""~"
^DIPT(513,"F",40)="I $D(DVBBOS(4)) W ?34,DVBBOS(4);X;Z;""I $D(DVBBOS(4)) W ?34,DVBBOS(4)""~I $D(DVBCSVC(4)) W ?48,DVBCSVC(4);X;Z;""I $D(DVBCSVC(4)) W ?48,DVBCSVC(4)""~"
^DIPT(513,"F",41)="I $D(DVBSN(4)) W ?62,DVBSN(4);X;Z;""I $D(DVBSN(4)) W ?62,DVBSN(4)""~W !!,?34,""Patient File"";X;Z;""W !!,?34,""Patient File""""~"
^DIPT(513,"F",42)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(513,"F",43)="W !,"" Last episode"";X;Z;""W !,"" Last episode""""~.326;C1~.327;C15~.325;C34~.324;C48~.328;C62;X~W !,"" NTL episode"";X;Z;""W !,"" NTL episode""""~.3292;C1~"
^DIPT(513,"F",44)=".3293;C15~.3291;C34~.329;C48~.3294;C62~W !,"" NNTL episode"";Z;""W !,"" NNTL episode""""~.3297;C1~.3298;C15~.3296;C34~.3295;C48~.3299;C62;X~"
^DIPT(513,"H")="@"
^DIPT(513,"IOM")="80"
^DIPT(513,"LAST")=""
^DIPT(513,"ROU")="^DVBHCG"
^DIPT(513,"ROUOLD")="DVBHCG"
^DIPT(513,"SUB")="1"
^DIPT(514,0)="DVBHINQ AUDIT/DT^2890920.1533^^395.7^^^^"
^DIPT(514,"F",2)="2;C1~1;C24;L26~.01;C51~"
^DIPT(514,"H")="HINQ Audit List by DATE/TIME"
^DIPT(515,0)="DVBHINQ AUDIT/USER^2890920.1536^^395.7^^^^"
^DIPT(515,"F",2)="1;C1;L26~2;C29~.01;C51;L27~"
^DIPT(515,"H")="HINQ Audit List by USER NAME"
^DIPT(516,0)="DVBHINQ AUDIT/PAT^2930623.2338^^395.7^^^^"
^DIPT(516,"F",1)=".01;C1;L20~2;C22~1;C45;L15~6;C22;""DATE/TIME ALERT""~5;C45;L15;""ALERT USER""~"
^DIPT(516,"F",2)="W $S($P(X,""^"",4)=""a"":""ACKNOWLEDGE"",$P(X,""^"",4)=""c"":""CORRECTED"",1:"""");C62;L11;""ALERT"";Z;""W $S($P(X,""^"",4)=""a"":""ACKNOWLEDGE"",$P(X,""^"",4)=""c"":""CORRECTED"",1:"""")""~"
^DIPT(516,"F",3)="W ""-------------------------------------------------------------------------------"";C1;X;Z;""W ""-------------------------------------------------------------------------------""""~"
^DIPT(516,"H")="HINQ Audit List by Patient"
^DIPT(517,0)="DVBA STATUS^2980306.1336^^396^^^2980309"
^DIPT(517,"DXS",1,9.2)="S DIP(2)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X="" Patient Name: "",DIP(1)=X S X=$S('$D(^DPT(+$P(DIP(2),U,1),0)):"""",1:$P(^(0),U,1)),DIP(3)=X S X=1,DIP(4)=X S X=25"
^DIPT(517,"DXS",2,9)="X DXS(2,9.2) S X=X=""ACTIVITY DATE"",DIP(3)=X S X="" Activity"",DIP(4)=X S X=1,DIP(5)=X S X=""Admission"",X=$S(DIP(3):DIP(4),DIP(5):X)_"" Date:"""
^DIPT(517,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(396,30,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(517,"DXS",3,9)="S FINALDTE=$P(^DVB(396,D0,1),U,12) W:FINALDTE'="""" ?45,""FINALIZED BY: "",$P(^DVB(396,D0,2),U,6),!,?56,""ON: "",$$FMTE^XLFDT(FINALDTE,""5DZ"")"
^DIPT(517,"DXS",4,9)="S:FINALDTE="""" ZDAT=$P(^DVB(396,D0,1),U,1),ZDAT1=$P(^DVB(396,D0,1),U,11) W:FINALDTE="""" ?49,""Date of Request: "",$$FMTE^XLFDT(ZDAT,""5DZ"")"
^DIPT(517,"F",1)="X DXS(1,9.2) S X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;Y1;Z;"""" Patient Name: ""_$E(PATIENT NAME,1,25)""~"
^DIPT(517,"F",2)="X DXS(2,9) W X K DIP;C42;Y1;Z;""$S(DOCUMENT TYPE=""ACTIVITY DATE"":"" Activity"",1:""Admission"")_"" Date:""""~"
^DIPT(517,"F",3)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C58;Y1;Z;""NUMDATE4(ADMISSION DATE)""~"
^DIPT(517,"F",4)="X $P(^DD(396,2,0),U,5,99) S DIP(1)=X S X=""SSN: ""_DIP(1) W X K DIP;Y2;C11;Z;""""SSN: ""_SOC SEC NUMBER""~"
^DIPT(517,"F",5)="X $P(^DD(396,1,0),U,5,99) S DIP(1)=X S X=""Claim Number: ""_DIP(1) W X K DIP;C44;Y2;Z;""""Claim Number: ""_C-NUMBER""~"
^DIPT(517,"F",6)="S DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=""Receiving Div: ""_$S('$D(^DG(40.8,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)) W X K DIP;Y3;Z;""""Receiving Div: ""_DIVISION""~"
^DIPT(517,"F",7)="""Requisition"";Y4;C5~""Status"";C23~""Status Date"";C35~""Operator"";C50~""Current Division"";C62~"
^DIPT(517,"F",8)="""---------------------------------------------------------------------------""~""Notice/Discharge:"";C3;Y6~4.5;C23~4.8;C35~4.9;C50;L11~4.6;C62;L16~"
^DIPT(517,"F",9)="""Hospital Summary:"";Y7;C3~5.5;C23~5.8;C35~5.9;C50;L11~5.6;C62;L16~""21-day Certificate:"";Y8~6.5;C23~6.8;C35~6.9;C50;L11~6.6;C62;L16~""Other/Exam:"";Y9;C9~"
^DIPT(517,"F",10)="8;C23~8.5;C35~8.7;C50;L11~7.6;C62;L16~""Special Report:"";Y10;C5~10;C23~10.5;C35~10.7;C50;L11~9.6;C62;L16~""Competency Report:"";Y11;C2~12;C23~12.5;C35~"
^DIPT(517,"F",11)="12.7;C50;L11~11.6;C62;L16~""Form 21-2680:"";Y12;C7~14;C23~14.5;C35~14.7;C50;L11~13.6;C62;L16~""Asset Information:"";Y13;C2~16;C23~16.5;C35~16.7;C50;L11~"
^DIPT(517,"F",12)="15.6;C62;L16~""Admission Report:"";Y14;C3~17.4;C23~17.8;C35~17.9;C50;L11~17.6;C62;L16~""OPT Treatment Rpt:"";Y15;C2~19;C23~19.5;C35~19.7;C50;L11~"
^DIPT(517,"F",13)="18.6;C62;L16~""Beg Date/Care:"";Y16;C6~21;C23~21.5;C35~21.7;C50;L11~20.6;C62;L16~""REMARKS:"";Y18~.5,.01;C11~""Requesting location: "";C0;Y20~"
^DIPT(517,"F",14)="S DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X) W X K DIP;C23;Z;""$E(REQUESTING LOCATION,1,20)""~"
^DIPT(517,"F",15)="X DXS(3,9);Z;""S FINALDTE=$P(^DVB(396,D0,1),U,12) W:FINALDTE'="""" ?45,""FINALIZED BY: "",$P(^DVB(396,D0,2),U,6),!,?56,""ON: "",$$FMTE^XLFDT(FINALDTE,""5DZ"")""~"
^DIPT(517,"F",16)="X DXS(4,9);Z;""S:FINALDTE="""" ZDAT=$P(^DVB(396,D0,1),U,1),ZDAT1=$P(^DVB(396,D0,1),U,11) W:FINALDTE="""" ?49,""Date of Request: "",$$FMTE^XLFDT(ZDAT,""5DZ"")""~"
^DIPT(517,"F",17)="""Requested by: "";C8;Y21~"
^DIPT(517,"F",18)="S DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,8),DIP(2)=X S X=1,DIP(3)=X S X=25,X=$E(DIP(2),DIP(3),X) W X K DIP;C23;Z;""$E(REQUESTED BY,1,25)""~"
^DIPT(517,"F",19)="W:FINALDTE="""" ?49,""Date Last Edited: "",$$FMTE^XLFDT(ZDAT1,""5DZ"");Z;""W:FINALDTE="""" ?49,""Date Last Edited: "",$$FMTE^XLFDT(ZDAT1,""5DZ"")""~"
^DIPT(517,"H")="@"
^DIPT(517,"ROUOLD")="DVBAXP"
^DIPT(518,0)="DVBA INCOMP REQ REPORT^2980128.1435^^396^^^2980306"
^DIPT(518,"DCL","396^-1")="!"
^DIPT(518,"DXS",1,9)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X)"
^DIPT(518,"F",1)="X DXS(1,9) W X K DIP;""PATIENT NAME"";C0;Z;""$E(PATIENT NAME,1,15)""~2;C18;L11~"
^DIPT(518,"F",2)="S DIP(1)=$S($D(^DVB(396,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3));L10;""DATE OF REQUEST"";;;;;;;Z;""NUMDATE4(DATE OF REQUEST)"";!~"
^DIPT(518,"F",3)="S DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=1,DIP(3)=X S X=12,X=$E(DIP(2),DIP(3),X) W X K DIP;""REQUESTING LOCATION"";C44;Z;""$E(REQUESTING LOCATION,1,12)""~"
^DIPT(518,"F",4)="S DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,8),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X) W X K DIP;""REQUESTED BY"";C58;Z;""$E(REQUESTED BY,1,15)""~"
^DIPT(518,"H")="A.M.I.E. Incomplete Request Report"
^DIPT(519,0)="DVBA FINALIZED REPORT^2980128.14^^396^^^2980204"
^DIPT(519,"DCL","396^-1")="&"
^DIPT(519,"DXS",1,9)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X)"
^DIPT(519,"DXS",2,9)="X DXS(2,9.2) S D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(519,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(519,"F",1)="X DXS(1,9) W X K DIP;""PATIENT NAME"";!;C0;Z;""$E(PATIENT NAME,1,15)""~"
^DIPT(519,"F",2)="X DXS(2,9) W X K DIP;""SSN"";C18;Z;""PATIENT NAME IN PATIENT FILE:SOCIAL SECURITY NUMBER""~"
^DIPT(519,"F",3)="S DIP(1)=$S($D(^DVB(396,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X) W X K DIP;""REQUESTING VARO"";C32;Z;""$E(REQUESTING LOCATION,1,15)""~"
^DIPT(519,"F",4)="S DIP(1)=$S($D(^DVB(396,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,12),X1=X,X2=$P(DIP(1),U,1),X="""" D:X2 ^%DTC:X1;""TOTAL DAYS TO PROCESS"";C50;;;;;;;;Z;""FINALIZATION DATE-DATE OF REQUEST"";&~"
^DIPT(519,"F",5)="S DIP(1)=$S($D(^DVB(396,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""DATE OF REQUEST"";C63;Z;""NUMDATE4(DATE OF REQUEST)""~"
^DIPT(519,"F",6)="S DIP(1)=$S($D(^DVB(396,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,12) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""FINAL DATE"";C76;Z;""NUMDATE4(FINALIZATION DATE)""~"
^DIPT(519,"F",7)="26;L15;C88~"
^DIPT(519,"H")="A.M.I.E. Finalized Report"
^DIPT(519,"IOM")="132"
^DIPT(519,"LAST")=""
^DIPT(519,"ROU")="^DVBAXF"
^DIPT(519,"ROUOLD")="DVBAXF"
^DIPT(519,"STATS","S",1)="0"
^DIPT(519,"T",49)="9^1^0^C0^"
^DIPT(520,0)="DVBA NOT/DIS-21 DAY CERT CHECK^2980128.1446^^396^^^2980128"
^DIPT(520,"DXS",1,9)="X DXS(1,9.2) S D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(520,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(520,"F",1)=".01;L20~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT NAME IN PATIENT FILE:SOCIAL SECURITY NUMBER""~4;L7;""NOT/DIS REQ?""~"
^DIPT(520,"F",2)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;L10;""NT/DIS COMP DATE"";Z;""NUMDATE4(NOTICE/DISCHG COMPLETION DATE)""~"
^DIPT(520,"F",3)="4.5;L8;""NOT/DIS STATUS""~4.9;""NOT/DIS COMPLETED BY"";L15~6;""21-DAY CERT REQ?"";L7~"
^DIPT(520,"F",4)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,14) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""21-DAY CERT COMP DATE"";L10;Z;""NUMDATE4(#6.8)""~"
^DIPT(520,"F",5)="6.5;L12;""21-DAY STATUS""~6.9;L15;""21-DAY CERT COMPLETED BY""~"
^DIPT(520,"H")="Notice of Discharge/21-day certificate Follow-up Listing"
^DIPT(521,0)="DVBA ADMISSION REVIEW^2980409.081^^405^^^2980409"
^DIPT(521,"F",1)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""PATIENT:""~-2,.01;L25~-2,.09;L12~-2,.314;""C-FOLD LOC"";L6~"
^DIPT(521,"F",2)="-2,.361;L27~-2,.3611;L15~"
^DIPT(521,"F",3)="-2,S DIP(101)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P(DIP(101),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;L10;""ELIG STATUS DATE"";Z;""NUMDATE4(ELIGIBILITY STATUS DATE)""~"
^DIPT(521,"F",4)="-2,.301;L3;""SC?""~-2,.36205;""A&A"";L3~-2,.36235;L3;""PEN""~-2,.293;""RATED INCOMP?""~"
^DIPT(521,"H")="PATIENT MOVEMENT LIST"
^DIPT(522,0)="DVBA C EXAM CHECKLIST^2900524.1114^^396.6^^^^"
^DIPT(522,"F",2)="""( )"";C0;S1~S DIP(1)=$S($D(^DVB(396.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) W ?($S($X>5:50,1:10)),X W X K DIP;Z;""DVBC SPLIT COL(NAME)""~"
^DIPT(522,"H")="[DVBC EXAM CHECKLIST HEADER]"
^DIPT(523,0)="DVBA C EXAM CHECKLIST HEADER^2900123^^396.6^^^^"
^DIPT(523,"F",1)="""Regional Office Compensation and Pension Exam Order Form""~"
^DIPT(523,"F",2)="""Veteran name: ___________________________________________ Location: ______________________________"";S1~"
^DIPT(523,"F",3)="""Date ordered: __________________ By: ____________________________"";S1~"
^DIPT(523,"F",4)="""Entered by: ________________________________________ Date: __________________"";S1~"
^DIPT(523,"H")="@"
^DIPT(523,"SUB")="1"
^DIPT(524,0)="DVBA C EXAM LAYOUT^2900220.1132^^396.6^^^^"
^DIPT(524,"F",2)="5,.01~5,1~5,2~5,5~5,3~5,4~"
^DIPT(524,"H")="2507 EXAM LAYOUT LISTING"
^DIPT(525,0)="DVBA C CHECK DR STRING^2900412.1639^^396.6^^^^"
^DIPT(525,"F",2)="4~S X=""_"",DIP(1)=X S X=125,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;S2;Z;""DUP(""_"",125)""~"
^DIPT(525,"H")="2507 DR STRING CHECK LIST"
^DIPT(526,0)="DVBA C REQUESTS BY DATE RANGE^2980128.1107^^396.3^^^2980128"
^DIPT(526,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396.3,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(526,"F",1)=".01;L30~X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""SSN"";L11;Z;""NAME:SOCIAL SECURITY NUMBER""~"
^DIPT(526,"F",2)="S DIP(1)=$S($D(^DVB(396.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""REQUEST DATE"";Z;""NUMDATE4(REQUEST DATE)""~"
^DIPT(526,"F",3)="3;L20~"
^DIPT(526,"H")="2507 REQUEST LIST"
^DIPT(527,0)="DVBA C REQUESTS BY PHYSICIAN^2980128.1333^^396.4^^^2980128"
^DIPT(527,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DVB(396.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^DVB(396.3,D0,0)):^(0),1:"""")"
^DIPT(527,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^DVB(396.3,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(527,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DVB(396.3,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(527,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DVB(396.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^DVB(396.3,D0,0)):^(0),1:"""")"
^DIPT(527,"F",1)="X DXS(1,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""NAME"";L25;Z;""2507 REQUEST:NAME""~"
^DIPT(527,"F",2)="X DXS(2,9) W X K DIP;""SSN"";L13;Z;""2507 REQUEST:NAME:SSN""~"
^DIPT(527,"F",3)="X DXS(3,9.2) S X=$S('$D(^DIC(4,+$P(DIP(101),U,3),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""REGIONAL OFFICE NUMBER"";L15;Z;""2507 REQUEST:REGIONAL OFFICE NUMBER""~"
^DIPT(527,"F",4)=".03;""EXAM"";L28~"
^DIPT(527,"F",5)="S DIP(1)=$S($D(^DVB(396.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""EXAM DATE"";L10;Z;""NUMDATE4(DATE OF EXAM)""~"
^DIPT(527,"F",6)=".07;""EXAMINING PHYSICIAN"";L30;~"
^DIPT(527,"H")="2507 EXAM LIST"
^DIPT(528,0)="DVBA NOTICE OF DISCHARGE^2980128.1456^^396^^^2980128"
^DIPT(528,"DXS",1,9)="X DXS(1,9.2) S D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(528,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(528,"F",1)=".01;L20~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT NAME IN PATIENT FILE:SOCIAL SECURITY NUMBER""~4;L7;""NOT/DIS REQ?""~"
^DIPT(528,"F",2)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;L10;""NT/DIS COMP DATE"";Z;""NUMDATE4(NOTICE/DISCHG COMPLETION DATE)""~"
^DIPT(528,"F",3)="4.5;L8;""NOT/DIS STATUS""~4.9;""NOT/DIS COMPLETED BY"";L15~"
^DIPT(528,"H")="FORM 7131 LIST"
^DIPT(529,0)="DVBA 21 DAY CERT^2980128.1^^396^^^2980128"
^DIPT(529,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(529,"F",1)=".01;L20~X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""SSN"";Z;""PATIENT:SOCIAL SECURITY NUMBER""~6;""21-DAY CERT REQ?"";L4~"
^DIPT(529,"F",2)="S DIP(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,14) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""21-DAY CERT COMP DATE"";L10;Z;""NUMDATE4(#6.8)""~"
^DIPT(529,"F",3)="6.5;L10;""21-DAY STATUS""~6.9;L15;""21-DAY CERT COMPLETED BY""~"
^DIPT(529,"H")="FORM 7131 LIST"
^DIPT(530,0)="QAQ AUDIT LIST^2891208.1013^^740.5^^^^"
^DIPT(530,"F",2)=".02;S2~1,.01;S1;C5~1,.03;C33~1,.02;C47~1,.04;C5;W70~"
^DIPT(530,"H")="QA AUDIT LIST"
^DIPT(551,0)="YSJOB^2920305^^624^^^^"
^DIPT(551,"F",1)="""Date of listing:""~13~""Job number:"";C50~0;C65~5;C1~6;C40~7;C1~8;C33~9;C65~""Hourly wage:"";C1~2;C14~""Hours/week:"";C47~3;C60~""Contact name:"";C1~11;C16~"
^DIPT(551,"F",2)="""Phone:"";C48~10;C56~"
^DIPT(551,"H")="W ?23,""JOB LIST FOR "" S Y=DT X ^DD(""DD"") W Y,!!"
^DIPT(551,"IOM")="80"
^DIPT(551,"LAST")=""
^DIPT(551,"ROU")="^YSCPAA"
^DIPT(551,"ROUOLD")="YSCPAA"
^DIPT(552,0)="YSSR 10-2683 FOOTER^2920305^^615.2^^^^"
^DIPT(552,"F",2)="""'*' Patient shown as not released."";C1~""VA Form 10-2683"";S1;C1~""Oct 1959"";C1~"
^DIPT(552,"H")="@"
^DIPT(552,"IOM")="132"
^DIPT(552,"LAST")=""
^DIPT(552,"ROU")="^YSCPAE"
^DIPT(552,"ROUOLD")="YSCPAE"
^DIPT(552,"SUB")="1"
^DIPT(553,0)="YSSR DATE MGT PRINT^2920519.1748^^615.2^^^^"
^DIPT(553,"DXS",1,9.2)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3)"
^DIPT(553,"DXS",2,9.2)="S DIP(1)=$S($D(^YS(615.2,D0,40)):^(40),1:"""") S X=$P(DIP(1),U,3)"
^DIPT(553,"DXS",3,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,10,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.5,+D0,0)) D0=-1"
^DIPT(553,"F",1)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=""NAME: ""_$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;S1;Z;""""NAME: ""_NAME""~"
^DIPT(553,"F",2)="""FROM: "";C1~S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;C8;L18;Z;""DATE(DATE/TIME APPLIED)""~"
^DIPT(553,"F",3)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(DATE/TIME APPLIED)""~"
^DIPT(553,"F",4)="""TO:"";C41~S DIP(1)=$S($D(^YS(615.2,D0,40)):^(40),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;L18;Z;""DATE(TIME REMOVED)""~"
^DIPT(553,"F",5)="X DXS(2,9.2) I $P(X,""."",2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""YSTIME(TIME REMOVED)""~"
^DIPT(553,"F",6)="""TOTAL TIME THIS EPISODE:"";C1~D PARSE^YSSRU;Z;""D PARSE^YSSRU""~"
^DIPT(553,"F",7)="S X=""YSTT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;Z;""YSPARAM(""YSTT"")""~""ORDERED BY: "";C1~25~""REASON: "";C1~"
^DIPT(553,"F",8)="10,X DXS(3,9.2) S DIP(101)=$S($D(^YSR(615.5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C11;Z;""REASONS:REASON""~"
^DIPT(553,"F",9)="10,""CIRCUMSTANCES:"";C1~10,1;C1;W60~""GENERAL COMMENTS: "";C1~30,.01;C1~"
^DIPT(553,"H")="[YSSR DATE MGT HEADER]"
^DIPT(553,"IOM")="80"
^DIPT(553,"LAST")=""
^DIPT(553,"ROU")="^YSCPAI"
^DIPT(553,"ROUOLD")="YSCPAI"
^DIPT(554,0)="YSSR DATE MGT HEADER^2920311.121^^615.2^^^^"
^DIPT(554,"DXS",1,9.2)="S X=""FROM: "",DIP(1)=X,DIP(2)=X S X=""YSBEG"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(554,"DXS",2,9.2)="S X=""THRU: "",DIP(1)=X,DIP(2)=X S X=""YSEND"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(554,"F",1)="""VAMC "";C1~S X=^DD(""SITE"") W X K DIP;C6;Z;""SITENAME""~"
^DIPT(554,"F",2)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C68;Z;""""PAGE: ""_PAGE""~"
^DIPT(554,"F",3)="S X=""SECLUSION/RESTRAINT MANAGEMENT REPORT"",X=$J("""",$S($D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""YSCENTER(""SECLUSION/RESTRAINT MANAGEMENT REPORT"")""~"
^DIPT(554,"F",4)="X DXS(1,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C15;Z;""""FROM: ""_$P(YSPARAM(""YSBEG""),""@"")""~"
^DIPT(554,"F",5)="X DXS(2,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C45;Z;""""THRU: ""_$P(YSPARAM(""YSEND""),""@"")""~"
^DIPT(554,"F",6)="S X=""BY DATE"",X=$J("""",$S($D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""YSCENTER(""BY DATE"")""~"
^DIPT(554,"F",7)="S X=""-------"",X=$J("""",$S($D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""YSCENTER(""-------"")""~"""";C1~"
^DIPT(554,"H")="@"
^DIPT(554,"IOM")="80"
^DIPT(554,"LAST")=""
^DIPT(554,"ROU")="^YSCPAH"
^DIPT(554,"ROUOLD")="YSCPAH"
^DIPT(554,"SUB")="1"
^DIPT(555,0)="YSSR WARD MGT HEADER^2920305^^615.2^^^^"
^DIPT(555,"DXS",1,9.2)="S X=""FROM: "",DIP(1)=X,DIP(2)=X S X=""YSBEG"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(555,"DXS",2,9.2)="S X=""THRU: "",DIP(1)=X,DIP(2)=X S X=""YSEND"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(555,"F",1)="""VAMC"";C1~S X=^DD(""SITE"") W X K DIP;C6;Z;""SITENAME""~"
^DIPT(555,"F",2)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C68;Z;""""PAGE: ""_PAGE""~"
^DIPT(555,"F",3)="S X=""SECLUSION/RESTRAINT MANAGEMENT REPORT"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""SECLUSION/RESTRAINT MANAGEMENT REPORT"")""~"
^DIPT(555,"F",4)="X DXS(1,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C15;Z;""""FROM: ""_$P(YSPARAM(""YSBEG""),""@"")""~"
^DIPT(555,"F",5)="X DXS(2,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C45;Z;""""THRU: ""_$P(YSPARAM(""YSEND""),""@"")""~"
^DIPT(555,"F",6)="S X=""BY WARD"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""BY WARD"")""~"
^DIPT(555,"F",7)="S X=""-------"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""-------"")""~"
^DIPT(555,"H")="@"
^DIPT(555,"IOM")="80"
^DIPT(555,"LAST")=""
^DIPT(555,"ROU")="^YSCPAP"
^DIPT(555,"ROUOLD")="YSCPAP"
^DIPT(555,"SUB")="1"
^DIPT(556,0)="YSSR WARD MGT PRINT^2920519.1949^^615.2^^^^"
^DIPT(556,"DXS",1,9.2)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3)"
^DIPT(556,"DXS",2,9.2)="S DIP(1)=$S($D(^YS(615.2,D0,40)):^(40),1:"""") S X=$P(DIP(1),U,3)"
^DIPT(556,"DXS",3,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,10,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.5,+D0,0)) D0=-1"
^DIPT(556,"F",1)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=""WARD: ""_$S('$D(^SC(+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;S1;Z;""""WARD: ""_WARD""~"
^DIPT(556,"F",2)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=""NAME: ""_$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""NAME: ""_NAME""~"
^DIPT(556,"F",3)="""FROM: "";C1~S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;C8;L18;Z;""DATE(DATE/TIME APPLIED)""~"
^DIPT(556,"F",4)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(DATE/TIME APPLIED)""~"
^DIPT(556,"F",5)="""TO:"";C41~S DIP(1)=$S($D(^YS(615.2,D0,40)):^(40),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;L18;Z;""DATE(TIME REMOVED)""~"
^DIPT(556,"F",6)="X DXS(2,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(TIME REMOVED)""~"
^DIPT(556,"F",7)="""TOTAL TIME THIS EPISODE: "";C1~D PARSE^YSSRU;Z;""D PARSE^YSSRU""~"
^DIPT(556,"F",8)="S X=""YSTT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C30;Z;""YSPARAM(""YSTT"")""~""ORDERED BY: "";C1~25~"
^DIPT(556,"F",9)="""REASON: "";C1~"
^DIPT(556,"F",10)="10,X DXS(3,9.2) S DIP(101)=$S($D(^YSR(615.5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C11;Z;""REASONS:REASON""~10,1;C11~"
^DIPT(556,"F",11)="""GENERAL COMMENTS: "";C1~30,.01;C1~"
^DIPT(556,"H")="[YSSR WARD MGT HEADER]"
^DIPT(556,"IOM")="80"
^DIPT(556,"LAST")=""
^DIPT(556,"ROU")="^YSCPAQ"
^DIPT(556,"ROUOLD")="YSCPAQ"
^DIPT(557,0)="YSSR NURSE MGT HEADER^2920305^^615.2^^^^"
^DIPT(557,"DXS",1,9.2)="S X=""FROM: "",DIP(1)=X,DIP(2)=X S X=""YSBEG"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(557,"DXS",2,9.2)="S X=""THRU: "",DIP(1)=X,DIP(2)=X S X=""YSEND"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(557,"F",1)="""VAMC"";C1~S X=^DD(""SITE"") W X K DIP;C6;Z;""SITENAME""~"
^DIPT(557,"F",2)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C68;Z;""""PAGE: ""_PAGE""~"
^DIPT(557,"F",3)="S X=""SECLUSION/RESTRAINT MANAGEMENT REPORT"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C21;X;Z;""CENTER(""SECLUSION/RESTRAINT MANAGEMENT REPORT"")""~"
^DIPT(557,"F",4)="X DXS(1,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C15;Z;""""FROM: ""_$P(YSPARAM(""YSBEG""),""@"")""~"
^DIPT(557,"F",5)="X DXS(2,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C45;Z;""""THRU: ""_$P(YSPARAM(""YSEND""),""@"")""~"
^DIPT(557,"F",6)="S X=""BY NURSING SHIFT"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""BY NURSING SHIFT"")""~"
^DIPT(557,"F",7)="S X=""----------------"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""----------------"")""~"
^DIPT(557,"H")="@"
^DIPT(557,"IOM")="80"
^DIPT(557,"LAST")=""
^DIPT(557,"ROU")="^YSCPAJ"
^DIPT(557,"ROUOLD")="YSCPAJ"
^DIPT(557,"SUB")="1"
^DIPT(558,0)="YSSR NURSE MGT PRINT^2920519.1758^^615.2^^^^"
^DIPT(558,"DXS",1,9.2)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3)"
^DIPT(558,"DXS",2,9.2)="S DIP(1)=$S($D(^YS(615.2,D0,40)):^(40),1:"""") S X=$P(DIP(1),U,3)"
^DIPT(558,"DXS",3,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,10,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.5,+D0,0)) D0=-1"
^DIPT(558,"F",1)=""
^DIPT(558,"F",2)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=""NURSING SHIFT: ""_$S('$D(^NURSF(211.6,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;S1;Z;""""NURSING SHIFT: ""_NURSING SHIFT""~"
^DIPT(558,"F",3)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=""NAME: ""_$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""NAME: ""_NAME""~"
^DIPT(558,"F",4)="""FROM: "";C1~S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;C8;L18;Z;""DATE(DATE/TIME APPLIED)""~"
^DIPT(558,"F",5)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(DATE/TIME APPLIED)""~"
^DIPT(558,"F",6)="""TO:"";C41~S DIP(1)=$S($D(^YS(615.2,D0,40)):^(40),1:"""") S X=$P(DIP(1),U,3),X=$P(X,""."",1) S Y=X D DT K DIP;L18;Z;""DATE(TIME REMOVED)""~"
^DIPT(558,"F",7)="X DXS(2,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(TIME REMOVED)""~"
^DIPT(558,"F",8)="""TOTAL TIME THIS EPISODE: "";C1~D PARSE^YSSRU;Z;""D PARSE^YSSRU""~"
^DIPT(558,"F",9)="S X=""YSTT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C30;Z;""YSPARAM(""YSTT"")""~""ORDERED BY: "";C1~25~"
^DIPT(558,"F",10)="""REASON: "";C1~10,X DXS(3,9.2) S DIP(101)=$S($D(^YSR(615.5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C11;Z;""REAS:REASON""~"
^DIPT(558,"F",11)="10,1;C11~""GENERAL COMMENTS: "";C1~30,.01;C1~"
^DIPT(558,"H")="[YSSR NURSE MGT HEADER]"
^DIPT(558,"IOM")="80"
^DIPT(558,"LAST")=""
^DIPT(558,"ROU")="^YSCPAK"
^DIPT(558,"ROUOLD")="YSCPAK"
^DIPT(559,0)="YSSR 10-2683 HEADER^2920305^^615.2^^^^"
^DIPT(559,"DXS",1,9.2)="S X=""FROM: "",DIP(1)=X,DIP(2)=X S X=""YSBEG"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(559,"DXS",2,9.2)="S X=""THRU: "",DIP(1)=X,DIP(2)=X S X=""YSEND"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(559,"F",1)=""
^DIPT(559,"F",2)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",IOM)""~"
^DIPT(559,"F",3)="""MONTHLY REPORT OF RESTRAINT AND SECLUSION"";C1~""NAME AND LOCATION OF STATION"";C70~"
^DIPT(559,"F",4)="S DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=""WARD: ""_$S('$D(^SC(+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C115;L17;Z;""""WARD: ""_WARD""~"
^DIPT(559,"F",5)="X DXS(1,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C1;Z;""""FROM: ""_$P(YSPARAM(""YSBEG""),""@"")""~"
^DIPT(559,"F",6)="X DXS(2,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C35;Z;""""THRU: ""_$P(YSPARAM(""YSEND""),""@"")""~"
^DIPT(559,"F",7)="S X=""YSLCN"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C70;L40;Z;""YSPARAM(""YSLCN"")""~"
^DIPT(559,"F",8)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",IOM)""~"
^DIPT(559,"F",9)="""NAME OF PATIENT & TYPE OF RESTRAINT TIME TIME TOTAL"";C11;S~""DIAGNOSIS & REASON FOR"";C111~"
^DIPT(559,"F",10)="""DATE SSN OR SECLUSION APPLIED RELEASED TIME ORDERED BY NURSE PRESENT RESTRAINT OR SECLUSION"";C1~"
^DIPT(559,"F",11)="""-------- -------------------- ------------------ ------- -------- ------ -------------- ------------- ----------------------"";C1~"
^DIPT(559,"H")="@"
^DIPT(559,"IOM")="132"
^DIPT(559,"LAST")=""
^DIPT(559,"ROU")="^YSCPAF"
^DIPT(559,"ROUOLD")="YSCPAF"
^DIPT(559,"SUB")="1"
^DIPT(560,0)="YSSR 10-2683 PRINT^2920519.1709^^615.2^^^^"
^DIPT(560,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(560,"DXS",2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,10,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.5,+D0,0)) D0=-1"
^DIPT(560,"F",1)="D PARSE^YSSRU;Z;""D PARSE^YSSRU""~"
^DIPT(560,"F",2)="S X=""YSAT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C1;Z;""NUMDATE(YSPARAM(""YSAT""))""~"
^DIPT(560,"F",3)=".02;C11;L20~5,.01;C33;L12~S X=""YSAT1"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C54;Z;""YSPARAM(""YSAT1"")""~"
^DIPT(560,"F",4)="S X=""YSRT1"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C62;Z;""YSPARAM(""YSRT1"")""~"
^DIPT(560,"F",5)="S X=""YSTT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C72;Z;""YSPARAM(""YSTT"")""~25;C80;L12~.05;C96;L13~7;C111;W22~"
^DIPT(560,"F",6)="X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;C11;Z;""NAME:SSN""~"
^DIPT(560,"F",7)="S X=""YSRT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C62;Z;""NUMDATE(YSPARAM(""YSRT""))""~"
^DIPT(560,"F",8)="10,X DXS(2,9.2) S X=$S('$D(^YSR(615.5,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) W X K DIP;C111;L20;Z;""REASONS FOR S/R:REASONS""~"
^DIPT(560,"F",9)="""GENERAL COMMENTS: "";C1~30,.01;C19~"
^DIPT(560,"F",10)="S X=""+"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-2,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""+"",IOM-2)""~"
^DIPT(560,"H")="[YSSR 10-2683 HEADER]-[YSSR 10-2683 FOOTER]"
^DIPT(560,"IOM")="132"
^DIPT(560,"LAST")=""
^DIPT(560,"ROU")="^YSCPAG"
^DIPT(560,"ROUOLD")="YSCPAG"
^DIPT(561,0)="YSSR REVIEW ACTION HEADER^2920305^^615.2^^^^"
^DIPT(561,"DXS",1,9)="S X=""REVIEW OF SECLUSION/RESTRAINT ACTION REPORT"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(561,"DXS",2,9.2)="S X=""FROM: "",DIP(1)=X,DIP(2)=X S X=""YSBEG"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(561,"DXS",3,9.2)="S X=""THRU: "",DIP(1)=X,DIP(2)=X S X=""YSEND"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X,DIP(3)=X S X=""@"""
^DIPT(561,"F",1)="""VAMC"";C1~S X=^DD(""SITE"") W X K DIP;C6;Z;""SITENAME""~"
^DIPT(561,"F",2)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C68;Z;""""PAGE: ""_PAGE""~"
^DIPT(561,"F",3)="X DXS(1,9) W X K DIP;C1;X;Z;""CENTER(""REVIEW OF SECLUSION/RESTRAINT ACTION REPORT"")""~"
^DIPT(561,"F",4)="X DXS(2,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C15;Z;""""FROM: ""_$P(YSPARAM(""YSBEG""),""@"")""~"
^DIPT(561,"F",5)="X DXS(3,9.2) S X=$P(DIP(3),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C45;Z;""""THRU: ""_$P(YSPARAM(""YSEND""),""@"")""~"
^DIPT(561,"F",6)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",IOM)""~"
^DIPT(561,"F",7)="""REVIEW"";C1~""NAME OF PATIENT &"";C11~""DATE/TIME"";C30~""DATE"";C1~""SSN"";C11~""OF EPISODE"";C30~""REASON FOR S/R"";C47~""TYPE OF S/R"";C64~""--------"";C1~"
^DIPT(561,"F",8)="""-----------------"";C11~""---------------"";C30~""---------------"";C47~""----------------"";C64~"
^DIPT(561,"H")="@"
^DIPT(561,"IOM")="80"
^DIPT(561,"LAST")=""
^DIPT(561,"ROU")="^YSCPAN"
^DIPT(561,"ROUOLD")="YSCPAN"
^DIPT(561,"SUB")="1"
^DIPT(562,0)="YSSR REVIEW ACTION PRINT^2920519.1942^^615.2^^^^"
^DIPT(562,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,10,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.5,+D0,0)) D0=-1"
^DIPT(562,"DXS",2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,5,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.6,+D0,0)) D0=-1"
^DIPT(562,"F",1)="D PARSE^YSSRU;Z;""D PARSE^YSSRU""~"
^DIPT(562,"F",2)="S DIP(1)=$S($D(^YS(615.2,D0,50)):^(50),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C1;Z;""NUMDATE(ACTUAL DATE OF REVIEW)""~"
^DIPT(562,"F",3)=".02;C11;L17~"
^DIPT(562,"F",4)="S X=""YSAT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C30;Z;""NUMDATE(YSPARAM(""YSAT""))""~"
^DIPT(562,"F",5)="S X=""YSAT1"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C40;Z;""YSPARAM(""YSAT1"")""~"
^DIPT(562,"F",6)="10,X DXS(1,9.2) S DIP(101)=$S($D(^YSR(615.5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C47;L14;Z;""REASONS FOR S/R:REASON""~"
^DIPT(562,"F",7)="5,X DXS(2,9.2) S DIP(101)=$S($D(^YSR(615.6,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C64;L17;Z;""TYPE OF SECLUSION/RESTRAINT:.01""~"
^DIPT(562,"F",8)="""COMMENTS ON REASON FOR S/R:"";C1~10,1~""GENERAL COMMENTS: "";C1~30,.01;C1~"" "";C1;S1~"
^DIPT(562,"H")="[YSSR REVIEW ACTION HEADER]"
^DIPT(562,"IOM")="80"
^DIPT(562,"LAST")=""
^DIPT(562,"ROU")="^YSCPAO"
^DIPT(562,"ROUOLD")="YSCPAO"
^DIPT(563,0)="YSSR PT INQ HEADER^2920305^^615.2^^^^"
^DIPT(563,"DXS",1,9.2)="S X=""As of: "",DIP(1)=X S X=2920305 S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X_Y"
^DIPT(563,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(563,"F",1)="D PARSE^YSSRU;Z;""D PARSE^YSSRU""~""VAMC"";C1~S X=^DD(""SITE"") W X K DIP;C6;Z;""SITENAME""~"
^DIPT(563,"F",2)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C68;Z;""""PAGE: ""_PAGE""~"
^DIPT(563,"F",3)="S X=""INDIVIDUAL PATIENT INQUIRY"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""INDIVIDUAL PATIENT INQUIRY"")""~"
^DIPT(563,"F",4)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C29;X;Z;""CENTER(""As of: ""_NUMDATE(T))""~"
^DIPT(563,"F",5)="""NAME:"";C1;S1~.02;C7~""FROM:"";C29~"
^DIPT(563,"F",6)="S X=""YSAT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C35;Z;""NUMDATE(YSPARAM(""YSAT""))""~"
^DIPT(563,"F",7)="S X=""YSAT1"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C44;Z;""YSPARAM(""YSAT1"")""~""TO:"";C51~"
^DIPT(563,"F",8)="S X=""YSRT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C55;Z;""NUMDATE(YSPARAM(""YSRT""))""~"
^DIPT(563,"F",9)="S X=""YSRT1"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C64;Z;""YSPARAM(""YSRT1"")""~""("";C71~"
^DIPT(563,"F",10)="S X=""YSTT"",X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""") W X K DIP;C72;Z;""YSPARAM(""YSTT"")""~"")"";C78~""SSN:"";C1~"
^DIPT(563,"F",11)="X DXS(2,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;C7;Z;""NAME:SSN""~""WARD:"";C29~.04;C35~"
^DIPT(563,"F",12)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""="",IOM)""~"
^DIPT(563,"F",13)=""" ""~"
^DIPT(563,"H")="@"
^DIPT(563,"IOM")="80"
^DIPT(563,"LAST")=""
^DIPT(563,"ROU")="^YSCPAL"
^DIPT(563,"ROUOLD")="YSCPAL"
^DIPT(563,"SUB")="1"
^DIPT(564,0)="YSSR PT INQ PRINT^2920519.1733^^615.2^^^^"
^DIPT(564,100,0)="^.42A"
^DIPT(564,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^YS(615.2,D0,10,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^YSR(615.5,+D0,0)) D0=-1"
^DIPT(564,"F",1)="D PARSE^YSSRU;Z;""D PARSE^YSSRU""~""EPISODE"";C1~""-------"";C1~""ORDERED BY: "";C1~25~""REASONS for S/R:"";C1;S1~"
^DIPT(564,"F",2)="10,X DXS(1,9.2) S DIP(101)=$S($D(^YSR(615.5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C17;Z;""REASONS FOR S/R:REASON""~"
^DIPT(564,"F",3)="10,""CIRCUMSTANCES: "";C1~10,1;C1;W50~""GENERAL COMMENTS: "";C1~30,.01;C1~"
^DIPT(564,"H")="[YSSR PT INQ HEADER]"
^DIPT(564,"IOM")="80"
^DIPT(564,"LAST")=""
^DIPT(564,"ROU")="^YSCPAM"
^DIPT(564,"ROUOLD")="YSCPAM"
^DIPT(565,0)="NURA-P-A1106B^2860313^^213.2^^^^"
^DIPT(565,"%D",0)="^^1^1^2910320^^^^"
^DIPT(565,"%D",1,0)="ROUTINE: NURAR1A IN OPTION NURAPR-RES-LOC-SER"
^DIPT(565,"DXS",1,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,1)-$P(DIP(2),U,12),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",2,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,2)-$P(DIP(2),U,13),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",3,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,3)-$P(DIP(2),U,14),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",4,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,4)-$P(DIP(2),U,15),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",5,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,5)-$P(DIP(2),U,16),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",6,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,6)-$P(DIP(2),U,17),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",7,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,7)-$P(DIP(2),U,18),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",8,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,8)-$P(DIP(2),U,19),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",9,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,9)-$P(DIP(2),U,20),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"DXS",10,9.2)="S DIP(2)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,10)-$P(DIP(2),U,21),DIP(3)=X S X=6,DIP(4)=X S X=1"
^DIPT(565,"F",1)="S X=DT S Y=X D DT K DIP;C6;S;L18;Z;""TODAY""~""AMIS 10-1106B (SEGMENT 202) CEILING (FTEE) AND POSITIONS FILLED (FTEE)"";C6;S2~"
^DIPT(565,"F",2)="""POSITION BUDGETED ACTUAL VARIANCE"";C10;S2~""-------- -------- ------ --------"";C10~"" "";C1;S~"
^DIPT(565,"F",3)="""RN (01)"";C5~1;C28~""(21)"";C42~21;C47~"
^DIPT(565,"F",4)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,22)-$P(DIP(1),U,2),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#21-#1,6,1)""~"
^DIPT(565,"F",5)="""LPN (02)"";C5~2;C28~""(22)"";C42~22;C47~"
^DIPT(565,"F",6)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,23)-$P(DIP(1),U,3),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#22-#2,6,1)""~"
^DIPT(565,"F",7)="""NA (03)"";C5~3;C28~""(23)"";C42~23;C47~"
^DIPT(565,"F",8)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,24)-$P(DIP(1),U,4),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#23-#3,6,1)""~"
^DIPT(565,"F",9)="""CLERICAL (04)"";C5~4;C28~""(24)"";C42~24;C47~"
^DIPT(565,"F",10)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,25)-$P(DIP(1),U,5),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#24-#4,6,1)""~"
^DIPT(565,"F",11)="""ADMIN OFFICER (05)"";C5~5;C28~""(25)"";C42~25;C47~"
^DIPT(565,"F",12)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,26)-$P(DIP(1),U,6),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#25-#5,6,1)""~"
^DIPT(565,"F",13)="""CLIN SPECIALIST (06)"";C5~6;C28~""(26)"";C42~26;C47~"
^DIPT(565,"F",14)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,27)-$P(DIP(1),U,7),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#26-#6,6,1)""~"
^DIPT(565,"F",15)="""NURSE PRACTIONER (07)"";C5~7;C28~""(27)"";C42~27;C47~"
^DIPT(565,"F",16)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,28)-$P(DIP(1),U,8),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#27-#7,6,1)""~"
^DIPT(565,"F",17)="""INFECTION CONTROL (08)"";C5~8;C28~""(28)"";C42~28;C47~"
^DIPT(565,"F",18)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,29)-$P(DIP(1),U,9),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#28-#8,6,1)""~"
^DIPT(565,"F",19)="""PUBLIC HEALTH (09)"";C5~9;C28~""(29)"";C42~29;C47~"
^DIPT(565,"F",20)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,30)-$P(DIP(1),U,10),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#29-#9,6,1)""~"
^DIPT(565,"F",21)="""STAFF NURSE (10)"";C5~10;C28~""(30)"";C42~30;C47~"
^DIPT(565,"F",22)="S DIP(1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,31)-$P(DIP(1),U,11),DIP(2)=X S X=6,DIP(3)=X S X=1,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#30-#10,6,1)""~"
^DIPT(565,"F",23)="""CHIEF NURSE (11)"";C5~11;C28~""(31)"";C42~31;C47~X DXS(1,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#31-#11,6,1)""~"
^DIPT(565,"F",24)="""ASST CHIEF NURSE (12)"";C5~12;C28~""(32)"";C42~32;C47~X DXS(2,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#32-#12,6,1)""~"
^DIPT(565,"F",25)="""ASSOC CHIEF N.S. (13)"";C5~13;C28~""(33)"";C42~33;C47~X DXS(3,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#33-#13,6,1)""~"
^DIPT(565,"F",26)="""SUPERVISOR (14)"";C5~14;C28~""(34)"";C42~34;C47~X DXS(4,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#34-#14,6,1)""~"
^DIPT(565,"F",27)="""HEAD NURSE (15)"";C5~15;C28~""(35)"";C42~35;C47~X DXS(5,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#35-#15,6,1)""~"
^DIPT(565,"F",28)="""OTHER NURSE (16)"";C5~16;C28~""(36)"";C42~36;C47~X DXS(6,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#36-#16,6,1)""~"
^DIPT(565,"F",29)="""NURSE RESHR (17)"";C5~17;C28~""(37)"";C42~37;C47~X DXS(7,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#37-#17,6,1)""~"
^DIPT(565,"F",30)="""ASSOC CHIEF/RESHR (18)"";C5~18;C28~""(38)"";C42~38;C47~X DXS(8,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#38-#18,6,1)""~"
^DIPT(565,"F",31)="""ASSOC CHIEF/EDU (19)"";C5~19;C28~""(39)"";C42~39;C47~X DXS(9,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#39-#19,6,1)""~"
^DIPT(565,"F",32)="""INSTR/EDU (20)"";C5~20;C28~""(40)"";C42~40;C47~X DXS(10,9.2) S X=$J(DIP(3),DIP(4),X) W X K DIP;C64;Z;""$J(#40-#20,6,1)""~"
^DIPT(565,"H")="@"
^DIPT(565,"IOM")="80"
^DIPT(565,"LAST")="3"
^DIPT(565,"ROUOLD")="NURAPA"
^DIPT(566,0)="NURA-P-SVC-POSITION^2860519^^211.3^^^^"
^DIPT(566,"%D",0)="^^2^2^2860902^^"
^DIPT(566,"%D",1,0)="NOT CONTAINED IN ANY OPTION; CAN BE USED IN DIPRINT TO GENERATE LISTING "
^DIPT(566,"%D",2,0)="OF DATA ENTRIES."
^DIPT(566,"F",2)=".01~1~3~4~2~""----------------------------------------------------------------------------------------------------------------------------------"";C1~"
^DIPT(566,"H")="NURS SERVICE POSITION LIST"
^DIPT(567,0)="NURA-H-EXCEPTION^2891010.1456^^213.5^^^2960829^"
^DIPT(567,"F",1)="S X=DT S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C1;L8;Z;""NUMDATE(TODAY)""~""UNCLASSIFIED AMIS 1106 PATIENTS FOR"";C12~"
^DIPT(567,"F",2)="S Y=NURSDATE D DT^DIQ;Z;""S Y=NURSDATE D DT^DIQ""~S:'$D(NURSPAGE) NURSPAGE=0;L0;Z;""S:'$D(NURSPAGE) NURSPAGE=0""~"
^DIPT(567,"F",3)="S NURSPAGE=NURSPAGE+1;L0;Z;""S NURSPAGE=NURSPAGE+1""~W ""PAGE ""_NURSPAGE;C66;L7;Z;""W ""PAGE ""_NURSPAGE""~""LAST"";S1;C66~""PATIENT NAME"";C1~""ERROR"";C24~"
^DIPT(567,"F",4)="""ABSENCE"";C50~""CLASSIFIED"";C63~""----------------------------------------"";C1~""----------------------------------------"";C41~"
^DIPT(567,"H")="@"
^DIPT(567,"SUB")="1"
^DIPT(568,0)="NURA-P-EXCEPTION^2900410.0955^^213.5^^^2960829^"
^DIPT(568,"DXS",1,1)="NO WARD ASSIGNED"
^DIPT(568,"DXS",1,2)="NOT CLASSIFIED"
^DIPT(568,"DXS",1,3)="CLASS. NOT CURRENT"
^DIPT(568,"DXS",1,4)="NOT CLASS. BY 3 PM"
^DIPT(568,"DXS",1,5)="BAD CLASS. XREF"
^DIPT(568,"DXS",1,6)="NO CLASS./NEW WARD"
^DIPT(568,"DXS",1,7)="BAD DATA"
^DIPT(568,"DXS",1,8)="NOT ADMITTED"
^DIPT(568,"DXS",1,9)="UNIT NOT CURRENT"
^DIPT(568,"DXS",2,1)="N/A"
^DIPT(568,"DXS",2,2)="LEAVE"
^DIPT(568,"DXS",2,3)="AWOL"
^DIPT(568,"DXS",2,4)="OTH. FAC"
^DIPT(568,"DXS",2,5)="ERROR"
^DIPT(568,"DXS",3,1)="NO WARD ASSIGNED"
^DIPT(568,"DXS",3,2)="NOT CLASSIFIED"
^DIPT(568,"DXS",3,3)="CLASS. NOT CURRENT"
^DIPT(568,"DXS",3,4)="NOT CLASS. BY 3 PM"
^DIPT(568,"DXS",3,5)="BAD CLASS. XREF"
^DIPT(568,"DXS",3,6)="NO CLASS./NEW WARD"
^DIPT(568,"DXS",3,7)="BAD DATA"
^DIPT(568,"DXS",3,8)="NOT ADMITTED"
^DIPT(568,"DXS",3,9)="NOT CLASS. BY 12 AM"
^DIPT(568,"DXS",4,1)="NO WARD ASSIGNED"
^DIPT(568,"DXS",4,2)="NOT CLASSIFIED"
^DIPT(568,"DXS",4,3)="CLASS. NOT CURRENT"
^DIPT(568,"DXS",4,4)="NOT CLASS. BY 3 PM"
^DIPT(568,"DXS",4,5)="BAD CLASS. XREF"
^DIPT(568,"DXS",4,6)="NO CLASS./NEW WARD"
^DIPT(568,"DXS",4,7)="BAD DATA"
^DIPT(568,"DXS",4,8)="NOT ADMITTED"
^DIPT(568,"DXS",4,9)="NOT CLASS. BY 12 AM"
^DIPT(568,"DXS",5,1)="NO WARD ASSIGNED"
^DIPT(568,"DXS",5,2)="NOT CLASSIFIED"
^DIPT(568,"DXS",5,3)="CLASS. NOT CURRENT"
^DIPT(568,"DXS",5,4)="NOT CLASS. BY 3 PM"
^DIPT(568,"DXS",5,5)="BAD CLASS. XREF"
^DIPT(568,"DXS",5,6)="NO CLASS./NEW WARD"
^DIPT(568,"DXS",5,7)="BAD DATA"
^DIPT(568,"DXS",5,8)="NOT ADMITTED"
^DIPT(568,"DXS",6,1)="N/A"
^DIPT(568,"DXS",6,2)="LEAVE"
^DIPT(568,"DXS",6,3)="AWOL"
^DIPT(568,"DXS",6,4)="OTH. FAC"
^DIPT(568,"DXS",6,5)="ERROR"
^DIPT(568,"F",2)="1,.01;C1;L20~1,2;C24;L20~1,3;C50;L8~1,4;C63;L17~"
^DIPT(568,"H")="@"
^DIPT(568,"IOM")="80"
^DIPT(568,"LAST")=""
^DIPT(568,"ROU")="^NURAPB"
^DIPT(568,"ROUOLD")="NURAPB"
^DIPT(569,0)="NURA-H-MDEXCEPTION^2900410.1218^^213.5^^^2970127^"
^DIPT(569,"F",1)="S X=DT S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C1;L8;Z;""NUMDATE(TODAY)""~""UNCLASSIFIED MIDNIGHT PATIENTS FOR"";C12~"
^DIPT(569,"F",2)="S Y=NURSDATE D DT^DIQ;Z;""S Y=NURSDATE D DT^DIQ""~S:'$D(NURSPAGE) NURSPAGE=0;L0;Z;""S:'$D(NURSPAGE) NURSPAGE=0""~"
^DIPT(569,"F",3)="S NURSPAGE=NURSPAGE+1;L0;Z;""S NURSPAGE=NURSPAGE+1""~W ""PAGE ""_NURSPAGE;C66;L7;Z;""W ""PAGE ""_NURSPAGE""~""LAST"";S1;C66~""PATIENT NAME"";C1~""ERROR"";C24~"
^DIPT(569,"F",4)="""ABSENCE"";C50~""CLASSIFIED"";C63~""----------------------------------------"";C1~""----------------------------------------"";C41~"
^DIPT(569,"H")="@"
^DIPT(569,"SUB")="1"
^DIPT(571,0)="NURS-P-MANHOURS^2890828.1107^^213.9^^^^"
^DIPT(571,"F",2)="8.1,.01~8.1,1;C15~8.1,2;C32~8.1,3;C51~"
^DIPT(571,"H")="[NURS-H-MANHOURS]"
^DIPT(572,0)="NURS-H-MANHOURS^2891016.1122^^213.9^^^^"
^DIPT(572,"F",1)="S X=DT S Y=X D DT K DIP;L18;Z;""TODAY""~""MANHOURS BATCH JOB STATUS REPORT"";C27~""PAGE: "";C68~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;L3;Z;""PAGE""~""DATE"";C1;S1~"
^DIPT(572,"F",2)="""NIGHT SHIFT"";C15~""DAY SHIFT"";C32~""EVENING SHIFT"";C51~W NURX;C1;Z;""W NURX""~"
^DIPT(572,"H")="@"
^DIPT(572,"SUB")="1"
^DIPT(573,0)="NURS-PRINT ENTRIES^2900706.1122^^219.7^^^^"
^DIPT(573,"F",2)=".01;L30~1;L30;C35~2;L10;C69~""--------------------------------------------------------------------------------"";C1~"
^DIPT(573,"H")="CONVERSION NAME CHANGE LIST"
^DIPT(574,0)="NURS-P-STF^2981214.1057^^210^^^3030304"
^DIPT(574,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""")"
^DIPT(574,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""")"
^DIPT(574,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""")"
^DIPT(574,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""")"
^DIPT(574,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""")"
^DIPT(574,"DXS",6,"N")="NO"
^DIPT(574,"DXS",6,"Y")="YES"
^DIPT(574,"DXS",7,"N")="NEIGHBOR"
^DIPT(574,"DXS",7,"O")="OTHER"
^DIPT(574,"DXS",7,"R")="RELATIVE"
^DIPT(574,"DXS",7,"S")="SELF"
^DIPT(574,"DXS",8,0)="NO SERVICE"
^DIPT(574,"DXS",8,1)="NONE"
^DIPT(574,"DXS",8,2)="5 PT."
^DIPT(574,"DXS",8,3)="10 PT. DISAB."
^DIPT(574,"DXS",8,4)="10 PT. COMP."
^DIPT(574,"DXS",8,5)="10 PT. OTHER"
^DIPT(574,"DXS",8,6)="10 PT./30% COMP"
^DIPT(574,"DXS",9,"A")="SPECIAL ADVANCEMENT FOR ACHIEVEMENT"
^DIPT(574,"DXS",9,"E")="ADVANCEMENT TO NEXT LEVEL"
^DIPT(574,"DXS",9,"G")="PROMOTION TO NEXT GRADE"
^DIPT(574,"DXS",9,"N")="NOT PROMOTED AT THIS TIME"
^DIPT(574,"DXS",9,"P")="SPECIAL ADVANCEMENT FOR PERFORMANCE"
^DIPT(574,"DXS",9,"S")="WITHIN GRADE STEP INCREASE"
^DIPT(574,"DXS",10,"N")="NO"
^DIPT(574,"DXS",10,"Y")="YES"
^DIPT(574,"F",1)="""INDIVIDUAL STAFF REPORT"";C28;S2~""-----------------------"";C28~""NAME: "";C1;S1~.01;C7~""SSN: "";C37~1;C42~""DATE: "";C55~"
^DIPT(574,"F",2)="S X=DT S Y=X D DT K DIP;C61;L18;Z;""TODAY""~""DOB: "";C2~7;C7;L18~""AGE: "";C37~7.5;C42~""SEX: "";C56~8;C61~""----------------------------------------"";C1~"
^DIPT(574,"F",3)="""----------------------------------------"";C41~""CURRENT FTEE INFORMATION"";C28~""------------------------"";C28~D EN1^NURASPL;Z;""D EN1^NURASPL""~"
^DIPT(574,"F",4)="""GRADE/STEP:"";C15~6.5;C27~""UNIFORM ALLOWANCE:"";C8~6.7;C27~K NURSX S $P(NURSX,""-"",80)="""" W !,NURSX;Z;""K NURSX S $P(NURSX,""-"",80)="""" W !,NURSX""~"
^DIPT(574,"F",5)="""ADDRESS/TELEPHONE"";C28~W $E(NURSX,1,17);C28;Z;""W $E(NURSX,1,17)""~""HOME ADDRESS INFORMATION"";C1;S1~""------------------------"";C1~""STREET: "";C7;S1~"
^DIPT(574,"F",6)="X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;C15;Z;"".01:.111""~X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C15;Z;"".01:.112""~"
^DIPT(574,"F",7)="X DXS(3,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;C15;Z;"".01:.113""~""CITY: "";C9~"
^DIPT(574,"F",8)="X DXS(4,9.2) S X=$P(DIP(101),U,4) S D0=I(0,0) W X K DIP;C15;Z;"".01:CITY""~""STATE: "";C8~12;C15~""ZIP"";C48~"
^DIPT(574,"F",9)="X DXS(5,9.2) S X=$P(DIP(101),U,6) S D0=I(0,0) W X K DIP;C53;Z;"".01:ZIP CODE""~""MAILING ADDRESS INFORMATION"";C1;S1~""---------------------------"";C1~"
^DIPT(574,"F",10)="""STREET: "";C7;S1~13.3;C15~13.35;C15~13.4;C15~""CITY: "";C9~13.5;C15~""STATE: "";C8~13.7;C15~""ZIP: "";C48~13.9;C53~""TELEPHONE NUMBER INFORMATION"";C1;S1~"
^DIPT(574,"F",11)="""----------------------------"";C1~14,""NUMBER: "";C7;S1~14,.01;C15~14,""OWNER: "";C8~14,1;C15~14,""OTHER OWNER: "";C2~14,2;C15~"
^DIPT(574,"F",12)="""EMERGENCY CONTACT INFORMATION"";C1;S1~""-----------------------------"";C1~15,""NAME: "";C9;S1~15,.01;C15~15,""RELATIONSHIP: "";C1~15,1;C15~15,""STREET: "";C7~"
^DIPT(574,"F",13)="15,2;C15~15,""CITY: "";C9~15,4;C15~15,""STATE: "";C8~15,5;C15~15,""ZIP: "";C48~15,6;C53~15,""PHONE NUMBER: "";C1~15,7;C15~"
^DIPT(574,"F",14)="""----------------------------------------"";C1~""----------------------------------------"";C41~""VA EMPLOYMENT INFORMATION"";C28~"
^DIPT(574,"F",15)="""-------------------------"";C28~""STATION ENTRY ON DUTY DATE: "";C1;S1~17;C29;L18~""SERVICE COMPUTATION DATE: "";C3~19;C29;L18~""VA STARTING DATE:"";C11~"
^DIPT(574,"F",16)="18;C29;L18~""VETERAN PREFERENCE:"";C9~16.5;C29;L18~""END OF PROBATIONARY PERIOD:"";C1~19.5;C29;L18~19.61,""DATE OF PROMOTION: "";C10;S1~19.61,.01;C29~"
^DIPT(574,"F",17)="19.61,""TYPE: "";C23~19.61,1;C29~W !,NURSX;Z;""W !,NURSX""~""EVALUATIONS/BOARD REVIEWS"";C28~""-------------------------"";C28~"
^DIPT(574,"F",18)="19.86,""DATE PROFICIENCY/NARRATIVE IS DUE: "";C1;S1~19.86,.01;C36~19.86,""NAME OF EVALUATOR: "";C17~19.86,1;C36~19.86,""DATE WORK COPY SENT OUT: "";C11~"
^DIPT(574,"F",19)="19.86,3;C36~19.86,""DATE PROF RETURNED FOR TYPING: "";C5~19.86,4;C36~19.86,""TENTATIVE DATE FOR BOARD ACTION: "";C3~19.86,5;C36~"
^DIPT(574,"F",20)="19.86,""ACTUAL DATE OF BOARD ACTION: "";C7~19.86,2;C36~19.86,""DATE OF NEXT BOARD ACTION: "";C7~19.86,6;C36~W !,NURSX;Z;""W !,NURSX""~"
^DIPT(574,"F",21)="""PROFESSIONAL LICENSE INFORMATION"";C28~""-------------------------------"";C28~16,""STATE: "";C19;S1~16,.01;C26~16,""LICENSE NUMBER: "";C10~16,1;C26~"
^DIPT(574,"F",22)="16,""EXPIRATION DATE: "";C9~16,2;C26~16,""VERIFIED BY: "";C13~16,1.6;C26~W !,NURSX;Z;""W !,NURSX""~""PROFESSIONAL EDUCATION"";C28~""----------------------"";C28~"
^DIPT(574,"F",23)="""HIGHEST NURSING DEGREE: "";C2;S1~21.5;C26;L30~""HIGHEST ACADEMIC DEGREE: "";C1~21.7;C26;L30~21.3,""DEGREE: "";C18;S1~21.3,.01;C26~21.3,""MAJOR: "";C19~21.3,1;C26~"
^DIPT(574,"F",24)="21.3,""COLLEGE/UNIVERSITY: "";C6~21.3,2;C26~21.3,""YEAR COMPLETED: "";C10~21.3,3;C26;L11~""FACULTY: "";C17~23.1;C26~23.2,""TYPE OF APPOINTMENT: "";C5~"
^DIPT(574,"F",25)="23.2,.01;C26;L45~23.2,""INSTITUTION: "";C13~23.2,1;C26;L45~W !,NURSX;Z;""W !,NURSX""~""NATIONAL CERTIFICATION"";C28~""----------------------"";C28~"
^DIPT(574,"F",26)="24,""NAME OF CERTIFICATION: "";C1;S1~24,.05;C24~24,""CERTIFYING AGENCY: "";C5~24,1;C24~24,""DATE OF CERTIFICATION: "";C1~24,2;C24~24,""DATE OF EXPIRATION: "";C4~"
^DIPT(574,"F",27)="24,3;C24~W !,NURSX;Z;""W !,NURSX""~""PROFESSIONAL EXPERIENCE"";C28~""-----------------------"";C28~22.5,""LOCATION: "";C25;S1~22.5,3;C35~"
^DIPT(574,"F",28)="22.5,""TYPE OF EXPERIENCE: "";C15~22.5,.01;C35~22.5,""TITLE/POSITION: "";C19~22.5,1;C35~22.5,""DATE PREVIOUS ASSIGNMENT STARTED: "";C1~22.5,2.1;C35~"
^DIPT(574,"F",29)="22.5,""DATE PREVIOUS ASSIGNMENT ENDED: "";C3~22.5,2.5;C35~W !,NURSX;Z;""W !,NURSX""~""MILITARY EXPERIENCE"";C28~""-------------------"";C28~"
^DIPT(574,"F",30)="D EN5^NURSAUTL;Z;""D EN5^NURSAUTL""~W !,NURSX;Z;""W !,NURSX""~""PRIVILEGES"";C28~""----------"";C28~29,""PRIVILEGE: "";C4;S1~29,.01;C15~29,""DATE GRANTED: "";C1~"
^DIPT(574,"F",31)="29,1;C15~29,""COMMENTS: "";C5~29,2,.01;C15~"
^DIPT(574,"H")="@"
^DIPT(574,"IOM")="80"
^DIPT(574,"LAST")="1"
^DIPT(574,"ROU")="^NURSPA"
^DIPT(574,"ROUOLD")="NURSPA"
^DIPT(574,"SUB")="1"
^DIPT(575,0)="PXTT EDUCATION TOPICS-DETAILED^2960606.1234^^9999999.09^^^2960606"
^DIPT(575,"F",1)=""""";C3;X~""TOPIC NAME:""~.01;W60;""""~.03;X;C74~"""";C3;X;S1~""PRINT NAME:""~.04;""""~"""";C8;X;S1~""GOALS:""~11,.01;""""~"""";C4;X;S1~""STANDARDS:""~12,.01;""""~"""";C5;S1;X~"
^DIPT(575,"F",2)="""SUBTOPIC:""~10,3;D0;L2;X;C15~10,.01;C18;"""";W60~""-------------"";C1~"
^DIPT(575,"H")="Active Patient Education Topics (DETAILED)"
^DIPT(576,0)="PXTT EDUCATION TOPICS-BRIEF^2951122.1029^^9999999.09^^^2960606^"
^DIPT(576,"F",2)=".03;""STATUS"";C1;L8~.01;C10;W68;""TOPIC NAME""~"
^DIPT(576,"H")="All Patient Education Topics (Brief)"
^DIPT(577,0)="PXTT LIST IMMUNIZATION^2950816.0655^^9999999.14^^^2960524^"
^DIPT(577,"F",2)=".01;L40~.02;C43;L10~.07;""STATUS"";C55;L8~"
^DIPT(577,"H")="PCE IMMUNIZATION LIST"
^DIPT(578,0)="PXTT LIST EXAMS^2950816.0622^^9999999.15^^^2960524^"
^DIPT(578,"F",2)=".01;C1;L30~8801;C33;L8~.03;C43;L10~.04;C56;""STATUS"";L8~"
^DIPT(578,"H")="PCE EXAM LIST"
^DIPT(579,0)="PXTT LIST HEALTH FACTORS^2950816.0638^^9999999.64^^^2960802^"
^DIPT(579,"F",2)=".03;C1;L10;N~.01;C13;L30~.09;C45;L22~.11;C69;L8~"
^DIPT(579,"H")="PCE HEALTH FACTORS LIST"
^DIPT(580,0)="PXTT LIST SKIN TESTS^2950816.0731^^9999999.28^^^2960524^"
^DIPT(580,"F",2)=".01;C1;L10~8801;C15;L10~.03;C30;L8;""STATUS""~"
^DIPT(580,"H")="PCE SKIN TEST LIST"
^DIPT(581,0)="PXTT LIST TREATMENTS^2950816.0825^^9999999.17^^^2960524^"
^DIPT(581,"F",2)=".01;C1;L30~8801;C35;L8~.04;C50;L8~"
^DIPT(581,"H")="TREATMENT LIST"
^DIPT(582,0)="PXTT EDUCATION TOPIC DETAIL^3060627.1546^^9999999.09^^^3060627"
^DIPT(582,"F",1)=""""";C3;X~""TOPIC NAME:""~.01;W60;""""~"""";C3;X;S1~""PRINT NAME:""~.04;""""~"""";C1;X;S1~""GOALS:"";X~"""";C1;X;S1~11,.01;C2;S1;""""~"""";C1;X;S1~""STANDARDS:"";X~"""";C1;X;S1~"
^DIPT(582,"F",2)="12,.01;C2;S1;""""~"""";C4;S1;X~""SUBTOPIC:""~10,3;D0;L2;X;C15~10,.01;C18;"""";W60~"
^DIPT(582,"H")="Active Patient Education Topics (DETAILED)"
^DIPT(583,0)="PX CODE MAPPING PRINT^2950307.1503^^811.1^^^2960524^"
^DIPT(583,"F",2)=".03;C1;L5~.01;C7;L20~.04;C29;L5~.02;C35;L30~.05;C70;L5~"
^DIPT(583,"H")="PCE CODE MAPPING LIST"
^DIPT(585,0)="PX HS/RPT PARAMETERS PRINT^3000509.1442^^815^^^3000509"
^DIPT(585,"F",1)="""PARAMETERS related to HEALTH SUMMARY"";C1~""-------------------------------------"";C1~"
^DIPT(585,"F",2)="""The Health Summary reminder disclaimer is now managed using the PXRM"";C1~"
^DIPT(585,"F",3)="""PARAMETER EDIT option. View the reminder disclaimer by printing a Health"";C1~""Summary with one of the following reminder components:"";C1~"
^DIPT(585,"F",4)=""" Reminders Due component"";C1~"" Clinical Mainenance component"";C1~"" Clinical Summary component"";C1~""PARAMETERS related to PCE REPORTS"";C1;S2~"
^DIPT(585,"F",5)="""----------------------------------"";C1~""Report ER Clinic Names:"";C1;S1~801,.01;X;C5;S1~""Report Glucose Names:"";C1;S1~802,.01;X;C5;S1~"
^DIPT(585,"F",6)="""Report Cholesterol Names:"";C1;S1~803,.01;X;C5;S1~""Report LDL Cholesterol Names:"";C1;S1~804,.01;X;C5;S1~""Report HBA1C Names:"";C1;S1~805,.01;X;C5;S1~"
^DIPT(585,"H")="PCE HS/RPT PARAMETERS PRINT"
^DIPT(586,0)="PXRM ITEM DEFINITION^2970213.0926^^811.9^^^2970612"
^DIPT(586,"F",1)=".01;C1;S1;X~1.6;C55;L10;X~""-----------------------------------"";C1~""Reminder Type:"";C1;S1~1;C31;X;L35~""Print Name: "";C1;S1~1.2;C31;X;L35~"
^DIPT(586,"F",2)="""Related VA-* Reminder: "";C1;S1~1.4;C31;X;L35~""Reminder Description:"";C1;S1~2,.01;C5;X~""Technical Description:"";C1;S1~3,.01;C5;X~"
^DIPT(586,"F",3)="""Target Groups - Baseline:"";C1;S2~""Do In Advance Time Frame: "";C4~D DUEWI^PXRMPT;X;Z;""D DUEWI^PXRMPT""~""Sex Specific: "";C16~1.9;C31;X~"
^DIPT(586,"F",4)="""Ignore on N/A: "";C15~1.8;C31;X~7,""Frequency for Age Range:"";C5;S1~7,D AFREQ^PXRMPT;X;Z;""D AFREQ^PXRMPT""~7,""Match Text:"";C18~7,3,.01;X;C31~"
^DIPT(586,"F",5)="7,""No Match Text:"";C15~7,4,.01;X;C31~""Targeted Result Findings for "";C1;S1~1;X~"" reminder type:""~4,.01;X;C5~4,4,.01;X;C10;X~"
^DIPT(586,"F",6)="4,""Target Result Match Text:"";C4;S1~4,5,.01;C31;X~4,""No Match Text"";C15~4,6,.01;C31;X~""Target Conditions:"";C1;S2~"
^DIPT(586,"F",7)="""1 Diagnosis/Procedure Taxonomy Findings:"";C5~5,""Taxonomy:"";C20;S1~5,.01;C31;X~5,D TAXIEN^PXRMPT;X;Z;""D TAXIEN^PXRMPT""~5,""Match freq/age:"";C14~"
^DIPT(586,"F",8)="5,D TAXFREQ^PXRMPT;X;Z;""D TAXFREQ^PXRMPT""~5,""Rank Frequency:"";C14~5,6;X;L4;C31~5,""Use in Date Due Calc:"";C8~5,7;X;C31~5,""Use in Apply Logic:"";C10~"
^DIPT(586,"F",9)="5,8;X;C31~5,""Match Text:"";C18~5,4,.01;C31;X~5,""No Match Text:"";C15~5,5,.01;C31;X~""General Match Text:"";C10;S1~5.1,.01;C31;X~"
^DIPT(586,"F",10)="""General No Match Text:"";C7~5.2,.01;C31;X~""2 Health Factor Findings:"";C5;S1~11,""Health Factor:"";C15;S1~11,.01;C31;X~"
^DIPT(586,"F",11)="11,D HFIEN^PXRMPT;X;Z;""D HFIEN^PXRMPT""~11,""Match Freq/Age:"";C14~11,D HFFREQ^PXRMPT;X;Z;""D HFFREQ^PXRMPT""~11,""Rank Frequency:"";C14~11,6;X;L4;C31~"
^DIPT(586,"F",12)="11,""Use in Date Due Calc:"";C8~11,7;X;C31~11,""Use in Apply Logic:"";C10~11,8;X;C31~11,""Match Text:"";C18~11,4,.01;C31;X~11,""No Match Text:"";C15~11,5,.01;C31;X~"
^DIPT(586,"F",13)="""General Match Text:"";C10;S1~11.1,.01;C31;X~""General No Match Text:"";C7~11.2,.01;C31;X~""3 Computed Findings:"";C5;S1~10,""Short Description:"";C10;S1~"
^DIPT(586,"F",14)="10,4;C31;X~10,""Routine:"";C21~10,.01;C31;X~10,""Match Freq/Age:"";C14~10,D CFFREQ^PXRMPT;X;Z;""D CFFREQ^PXRMPT""~10,""Match Text:"";C18~10,5,.01;C31;X~"
^DIPT(586,"F",15)="10,""No Match Text:"";C15~10,6,.01;C31;X~10,""Rank Frequency:"";C14~10,7;X;L4;C31~10,""Use in Date Due Calc:"";C8~10,8;X;C31~10,""Use in Apply Logic:"";C10~"
^DIPT(586,"F",16)="10,9;X;C31~"""";C1;S1~D DEFAULT^PXRMPTL;X;Z;""D DEFAULT^PXRMPTL""~"""";C1~W ?4,$G(LOGSTR);X;Z;""W ?4,$G(LOGSTR)""~"" Expanded Apply Logic:"";C1;S1~99,.01;X;C5~"
^DIPT(586,"F",17)="D KILLTEMP^PXRMPTL;X;Z;""D KILLTEMP^PXRMPTL""~"
^DIPT(586,"H")="PCE REMINDER/MAINTENANCE ITEM LIST"
^DIPT(588,0)="FB BATCH LIST^2930111.0813^@^161.7^705^@^2941219"
^DIPT(588,"%D",0)="^^1^1^2931012^^^^"
^DIPT(588,"%D",1,0)="List batch"
^DIPT(588,"F",2)=".01;""BATCH NUMBER""~1~2;""FEE PROGRAM""~11~"
^DIPT(588,"H")="FEE BASIS BATCH LIST"
^DIPT(589,0)="FBAA RX PENDING^3040301.1357^@^162.1^^@^3040301"
^DIPT(589,"%D",0)="^.4001^1^1^3031219^^^^"
^DIPT(589,"%D",1,0)="Prescriptions pending pharmacy review"
^DIPT(589,"F",1)="4,-161,^FBAAA(^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^FBAA(162.1,D0,""RX"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(589,"F",2)="4,-161,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^FBAAA(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(589,"F",3)="4,-161,-2,S DIP(201)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=""Pt.ID: ""_$P(DIP(201),U,3) W X K DIP;C20;N;"""";Z;""""Pt.ID: ""_PRIMARY LONG""~"
^DIPT(589,"F",4)="0;C1;L9;S1;""INVOICE #""~3;C12;L35~-161.2,^FBAAV(^^S I(0,0)=D0 S DIP(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S D(0)=+X;Z;""VEN:""~"
^DIPT(589,"F",5)="-161.2,1;C49;L15;""VENDOR ID""~13;C66;L13;~4,""Date Filled: "";C3;""""~4,2;C16;""""~4,""RX #: "";C45;""""~4,.01;C51;""""~4,1;C1;L28;~4,1.5;C30;L15;~4,1.6;C47;L15;~"
^DIPT(589,"F",6)="4,36;C65;L14;~"
^DIPT(589,"H")="PRESCRIPTIONS PENDING PHARMACY REVIEW"
^DIPT(590,0)="FBCH PENDING REQUEST^2930315.1147^@^162.2^1555^@^2941219"
^DIPT(590,"%D",0)="^^1^1^2931012^"
^DIPT(590,"%D",1,0)="Fee notifications/requests pending entitlement"
^DIPT(590,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^FBAA(162.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(590,"F",1)="W """";"""";Z;""W """"""~.01;""DATE of REQUEST"";S1~3;""PATIENT NAME""~X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""Pt.ID"";Z;""VET:SSN""~"
^DIPT(590,"F",2)="""Authorized From Date: "";C3~4;""""~""Admission Date: "";C3~3.5~"
^DIPT(590,"H")="FEE NOTIFICATION/REQUEST PENDING ENTITLEMENT"
^DIPT(591,0)="FBCH 7078 CANCEL^2921008.1505^@^162.4^705^@^2941219"
^DIPT(591,"%D",0)="^^1^1^2931012^"
^DIPT(591,"%D",1,0)="Listing of cancelled 7078s"
^DIPT(591,"F",2)=".01;C1;S1;R11;""7078""~2;C13;R30;""PATIENT NAME""~1;C45;R33~3;C2;R11;""FROM DATE""~8;C16;""CLERK ENTERING 7078""~.014;C50;R14""DATE CANCELLED""~"
^DIPT(591,"H")="CANCELLED 7078s"
^DIPT(592,0)="FBUC STATUS BY PATIENT^2930706.1435^@^162.7^10116^@^2950117"
^DIPT(592,"%D",0)="^^1^1^2931012^"
^DIPT(592,"%D",1,0)="Status listing of unauthorized claims by patient"
^DIPT(592,"DCL","162.7^24")="!"
^DIPT(592,"DXS",1,9)="S FBZ=$G(^FB583(D0,0)) W:""^40^70^90^""[$$ORDER^FBUCUTL($P(FBZ,U,24)) ""-""_$$CODE^FBUCOUT($P(FBZ,U,11))_"" """
^DIPT(592,"DXS",2,9)="W $S('FBZEXP:"""",FBZEXP<FBZLOW!(FBZEXP>FBZHI):"""",FBZORDER=10!(FBZORDER=55):""*"",1:"""") K FBZ"
^DIPT(592,"F",1)="2;L20~1;L20~24;L15~X DXS(1,9);X;Z;""S FBZ=$G(^FB583(D0,0)) W:""^40^70^90^""[$$ORDER^FBUCUTL($P(FBZ,U,24)) ""-""_$$CODE^FBUCOUT($P(FBZ,U,11))_"" """"~"
^DIPT(592,"F",2)="26;""EXPIRES""~S FBZEXP=$P(FBZ,U,26),FBZORDER=$$ORDER^FBUCUTL(+$P(FBZ,U,24));X;Z;""S FBZEXP=$P(FBZ,U,26),FBZORDER=$$ORDER^FBUCUTL(+$P(FBZ,U,24))""~"
^DIPT(592,"F",3)="X DXS(2,9);X;Z;""W $S('FBZEXP:"""",FBZEXP<FBZLOW!(FBZEXP>FBZHI):"""",FBZORDER=10!(FBZORDER=55):""*"",1:"""") K FBZ""~K FBZEXP,FBZORDER;X;Z;""K FBZEXP,FBZORDER""~"
^DIPT(592,"H")="STATUS LISTING OF UNAUTHORIZED CLAIMS"
^DIPT(593,0)="FBUC STATUS BY VENDOR^2930706.1449^@^162.7^10116^@^2931214"
^DIPT(593,"%D",0)="^^1^1^2931012^"
^DIPT(593,"%D",1,0)="Status listing of unauthorized claims by vendor"
^DIPT(593,"DCL","162.7^24")="!"
^DIPT(593,"DXS",1,9)="S FBZ=$G(^FB583(D0,0)) W:""^40^70^90^""[$$ORDER^FBUCUTL($P(FBZ,U,24)) ""-""_$$CODE^FBUCOUT($P(FBZ,U,11))"
^DIPT(593,"DXS",2,9)="W $S('FBZEXP:"""",FBZEXP<FBZLOW!(FBZEXP>FBZHI):"""",FBZORDER=10!(FBZORDER=55):""*"",1:"""") K FBZ"
^DIPT(593,"F",1)="1;L20~2;L20~24;L15~X DXS(1,9);X;Z;""S FBZ=$G(^FB583(D0,0)) W:""^40^70^90^""[$$ORDER^FBUCUTL($P(FBZ,U,24)) ""-""_$$CODE^FBUCOUT($P(FBZ,U,11))""~26;""EXPIRES""~"
^DIPT(593,"F",2)="S FBZEXP=$P(FBZ,U,26),FBZORDER=$$ORDER^FBUCUTL(+$P(FBZ,U,24));X;Z;""S FBZEXP=$P(FBZ,U,26),FBZORDER=$$ORDER^FBUCUTL(+$P(FBZ,U,24))""~"
^DIPT(593,"F",3)="X DXS(2,9);X;Z;""W $S('FBZEXP:"""",FBZEXP<FBZLOW!(FBZEXP>FBZHI):"""",FBZORDER=10!(FBZORDER=55):""*"",1:"""") K FBZ""~K FBZEXP,FBZORDER;X;Z;""K FBZEXP,FBZORDER""~"
^DIPT(593,"H")="STATUS LISTING OF UNAUTHORIZED CLAIMS"
^DIPT(594,0)="RA PROCEDURE LIST^3031113.0859^^71^^^3040809"
^DIPT(594,"%D",0)="^.4001^1^1^3020603^^^^"
^DIPT(594,"%D",1,0)="This template is used in the generation of long procedure listings."
^DIPT(594,"DXS",1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^RAMIS(71,D0,""DCM"",D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DIC(81.3,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(81.3,D0,0)):^(0),1:"""")"
^DIPT(594,"DXS",2,9)="W:$D(RADIO(0)) !?5,""Default Radiopharmaceutical: "",?39,$$GET1^DIQ(50,+$P(RADIO(0),""^"")_"","",.01)"
^DIPT(594,"DXS",3,9)="W:$D(RADIO(0)) !?5,"" Dflt Administration Route : "",?39,$$GET1^DIQ(71.6,+$P(RADIO(0),""^"",3)_"","",.01)"
^DIPT(594,"DXS",4,9)="W:$D(RADIO(0)) !?5,"" Dflt Administration Site : "",?39,$$GET1^DIQ(71.7,+$P(RADIO(0),""^"",4)_"","",.01)"
^DIPT(594,"DXS",5,9)="W:$D(RADIO(0)) !?5,"" Default Form : "",?39,$$GET1^DIQ(71.08,D1_"",""_D0_"","",7)"
^DIPT(594,"DXS",6,9)="W:$D(RAPHARM(0)) !?5,""Default Medication : "",?39,$$GET1^DIQ(50,+$P(RAPHARM(0),""^"")_"","",.01)"
^DIPT(594,"DXS",7,9)="S RA1=0 F S RA1=$O(^RAMIS(71,D0,""MDL"",RA1)) Q:'RA1 S RA2=+^(RA1,0) W ?39,$P(^RAMIS(73.1,RA2,0),U),?44,$P(^(0),U,2) W:$O(^RAMIS(71,D0,""MDL"",RA1)) !,"" """
^DIPT(594,"F",1)=""
^DIPT(594,"F",2)="S:$P($G(^RA(79.2,+$P($G(^RAMIS(71,D0,0)),""^"",12),0)),""^"",5)=""Y"" RADIO="""";"""";Z;""S:$P($G(^RA(79.2,+$P($G(^RAMIS(71,D0,0)),""^"",12),0)),""^"",5)=""Y"" RADIO=""""""~"
^DIPT(594,"F",3)="9;C1~.01;C10;""PROCEDURE / CPT MODIFIER"";L30~"
^DIPT(594,"F",4)="175,S DIP(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X W X K DIP;C45;X;Z;""INTERNAL(AMIS CODE)""~175,""-"";C48;X~175,.01;C50;L30~"
^DIPT(594,"F",5)="175,2;C85;""MULTIPLIER""~175,3;C100;""BILATERAL""~175,4;C115;""CT HEAD/BODY""~135,.01;C7;""""~135,""("";C10~"
^DIPT(594,"F",6)="135,X DXS(1,9.2) S X=$P(DIP(101),U,2),DIP(102)=$G(X) S X="" "",X=$P(DIP(102),X) S D0=I(0,0) S D1=I(1,0) W X K DIP;C11;"""";Z;""$P(.01:NAME,"" "")""~135,"")"";X~"
^DIPT(594,"F",7)="W !!?5,""Type of Procedure : "";X;Z;""W !!?5,""Type of Procedure : """"~6;C40;""""~"
^DIPT(594,"F",8)="D:+$O(^RAMIS(71,D0,""CM"",0)) CMDISP^RAMAINP1(D0);"""";Z;""D:+$O(^RAMIS(71,D0,""CM"",0)) CMDISP^RAMAINP1(D0)""~"
^DIPT(594,"F",9)="W !?5,""Required Flash Card Printer: "";X;"""";Z;""W !?5,""Required Flash Card Printer: """"~3;C40;""""~"
^DIPT(594,"F",10)="W !?5,""Required Flash Card Format : "";X;Z;""W !?5,""Required Flash Card Format : """"~4;C40;""""~"
^DIPT(594,"F",11)="W !?5,""Cost of Procedure : "";X;Z;""W !?5,""Cost of Procedure : """"~10;C40;L10;""""~"
^DIPT(594,"F",12)="W !?5,""Health Summary With Request: "";X;Z;""W !?5,""Health Summary With Request: """"~13;C40;""""~"
^DIPT(594,"F",13)="W !?5,""Staff Review of Reports Req: "";X;Z;""W !?5,""Staff Review of Reports Req: """"~7;C40;""""~"
^DIPT(594,"F",14)="W !?5,""Rad Approval of Request Req: "";X;Z;""W !?5,""Rad Approval of Request Req: """"~11;C40;""""~"
^DIPT(594,"F",15)="W !?5,""Type of Imaging : "";X;Z;""W !?5,""Type of Imaging : """"~12;C40;""""~"
^DIPT(594,"F",16)="W:$D(RADIO) !?5,""Ask Radiopharmaceutical : "";X;Z;""W:$D(RADIO) !?5,""Ask Radiopharmaceutical : """"~"
^DIPT(594,"F",17)="W:$D(RADIO) ?39,$$GET1^DIQ(71,D0_"","",2);X;Z;""W:$D(RADIO) ?39,$$GET1^DIQ(71,D0_"","",2)""~"
^DIPT(594,"F",18)="W:$D(RADIO) !?5,""Prompt for Radiopharm RX : "";X;Z;""W:$D(RADIO) !?5,""Prompt for Radiopharm RX : """"~"
^DIPT(594,"F",19)="W:$D(RADIO) ?39,$$GET1^DIQ(71,D0_"","",19);X;Z;""W:$D(RADIO) ?39,$$GET1^DIQ(71,D0_"","",19)""~"
^DIPT(594,"F",20)="50,S:$D(RADIO) RADIO(0)=$G(^RAMIS(71,D0,""NUC"",D1,0));"""";m;Z;""S:$D(RADIO) RADIO(0)=$G(^RAMIS(71,D0,""NUC"",D1,0))""~"
^DIPT(594,"F",21)="50,X DXS(2,9);X;Z;""W:$D(RADIO(0)) !?5,""Default Radiopharmaceutical: "",?39,$$GET1^DIQ(50,+$P(RADIO(0),""^"")_"","",.01)""~"
^DIPT(594,"F",22)="50,W:$D(RADIO(0)) !?5,"" Usual Dose : "",?39,$P(RADIO(0),""^"",2);X;Z;""W:$D(RADIO(0)) !?5,"" Usual Dose : "",?39,$P(RADIO(0),""^"",2)""~"
^DIPT(594,"F",23)="50,X DXS(3,9);X;Z;""W:$D(RADIO(0)) !?5,"" Dflt Administration Route : "",?39,$$GET1^DIQ(71.6,+$P(RADIO(0),""^"",3)_"","",.01)""~"
^DIPT(594,"F",24)="50,X DXS(4,9);X;Z;""W:$D(RADIO(0)) !?5,"" Dflt Administration Site : "",?39,$$GET1^DIQ(71.7,+$P(RADIO(0),""^"",4)_"","",.01)""~"
^DIPT(594,"F",25)="50,W:$D(RADIO(0)) !?5,"" High Adult Dose : "",?39,$P(RADIO(0),""^"",5);X;Z;""W:$D(RADIO(0)) !?5,"" High Adult Dose : "",?39,$P(RADIO(0),""^"",5)""~"
^DIPT(594,"F",26)="50,W:$D(RADIO(0)) !?5,"" Low Adult Dose : "",?39,$P(RADIO(0),""^"",6);X;Z;""W:$D(RADIO(0)) !?5,"" Low Adult Dose : "",?39,$P(RADIO(0),""^"",6)""~"
^DIPT(594,"F",27)="50,X DXS(5,9);X;Z;""W:$D(RADIO(0)) !?5,"" Default Form : "",?39,$$GET1^DIQ(71.08,D1_"",""_D0_"","",7)""~"
^DIPT(594,"F",28)="W !?5,""Prompt for Medication? : "",?39,$$GET1^DIQ(71,D0_"","",5);X;Z;""W !?5,""Prompt for Medication? : "",?39,$$GET1^DIQ(71,D0_"","",5)""~"
^DIPT(594,"F",29)="55,S RAPHARM(0)=$G(^RAMIS(71,D0,""P"",D1,0));"""";X;Z;""S RAPHARM(0)=$G(^RAMIS(71,D0,""P"",D1,0))""~"
^DIPT(594,"F",30)="55,X DXS(6,9);X;Z;""W:$D(RAPHARM(0)) !?5,""Default Medication : "",?39,$$GET1^DIQ(50,+$P(RAPHARM(0),""^"")_"","",.01)""~"
^DIPT(594,"F",31)="55,W:$D(RAPHARM(0)) !?5,"" Default Dose : "",?39,$P(RAPHARM(0),""^"",2);X;Z;""W:$D(RAPHARM(0)) !?5,"" Default Dose : "",?39,$P(RAPHARM(0),""^"",2)""~"
^DIPT(594,"F",32)="W !?5,""Descendents :"";"""";X;Z;""W !?5,""Descendents :""""~300,.01;C40;X~300,S RAZ71=+X;"""";Z;""S RAZ71=+X""~"
^DIPT(594,"F",33)="300,D:+$O(^RAMIS(71,RAZ71,""CM"",0)) CMDISP^RAMAINP1(RAZ71);"""";Z;""D:+$O(^RAMIS(71,RAZ71,""CM"",0)) CMDISP^RAMAINP1(RAZ71)""~"
^DIPT(594,"F",34)="W !?5,""Procedure Message :"";X;Z;""W !?5,""Procedure Message :""""~200,.01;C40;W35;"""";X~""Educational Description :"";C6;L28;""""~"
^DIPT(594,"F",35)="500,.01;C40;""""~W ?5,""Modality"",?32,"":"";"""";Z;""W ?5,""Modality"",?32,"":""""~"
^DIPT(594,"F",36)="X DXS(7,9);"""";X;Z;""S RA1=0 F S RA1=$O(^RAMIS(71,D0,""MDL"",RA1)) Q:'RA1 S RA2=+^(RA1,0) W ?39,$P(^RAMIS(73.1,RA2,0),U),?44,$P(^(0),U,2) W:$O(^RAMIS(71,D0,""MDL"",RA1)) !,"" """"~"
^DIPT(594,"F",37)="K RAZ71;Z;""K RAZ71""~"
^DIPT(594,"H")="Imaging Procedure List"
^DIPT(595,0)="RA PROCEDURE SHORT LIST^3031113.1133^^71^^^3040809"
^DIPT(595,"%D",0)="^^1^1^2940607^^"
^DIPT(595,"%D",1,0)="Used to generate the inactive short procedure listings."
^DIPT(595,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^RAMIS(71,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'D0!'$D(^RA(79.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^RA(79.2,D0,0)):^(0),1:"""")"
^DIPT(595,"DXS",2,9)="S RA1=0 F S RA1=$O(^RAMIS(71,D0,""MDL"",RA1)) Q:'RA1 S RA2=+^(RA1,0) W $P(^RAMIS(73.1,RA2,0),U) W:$X>(IOM-3)&($O(^RAMIS(71,D0,""MDL"",RA1))) !?116 W:$O(^RAMIS(71,D0,""MDL"",RA1)) "","" W:$X>(IOM-3) ?116"
^DIPT(595,"F",1)="9;C1~.01;C10;""PROCEDURE"";L40~175,S DIP(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X W X K DIP;C55;X;Z;""INTERNAL(AMIS CODE)""~"
^DIPT(595,"F",2)="175,""-"";C58;X~175,.01;C60;L30~175,2;L3;C93;""MULT""~175,3;C99;""BI- LAT""~175,4;C105;""CT""~"
^DIPT(595,"F",3)="X DXS(1,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;C111;""IMG TYPE"";L5;Z;""TYPE OF IMAGING:ABBREV""~"
^DIPT(595,"F",4)="X DXS(2,9);""MODALITY"";C117;Z;""S RA1=0 F S RA1=$O(^RAMIS(71,D0,""MDL"",RA1)) Q:'RA1 S RA2=+^(RA1,0) W $P(^RAMIS(73.1,RA2,0),U) W:$X>(IOM-3)&($O(^RAMIS(71,D0,""MDL"",RA1))) !?116 W:$O(^RAMIS(71,D0,""MDL"",RA1)) "","" W:$X>(IOM-3) ?116""~"
^DIPT(595,"F",5)="D:+$O(^RAMIS(71,D0,""CM"",0)) CMDISP^RAMAINP1(D0);"""";Z;""D:+$O(^RAMIS(71,D0,""CM"",0)) CMDISP^RAMAINP1(D0)""~"
^DIPT(595,"F",6)="""----------------------------------------------------------------------------------------------------------------------------------"";C1;""""~"
^DIPT(595,"H")="Imaging Procedure Quick List"
^DIPT(596,0)="RA ALPHA LIST OF ACTIVES^3031113.1346^^71^^^3040809"
^DIPT(596,"%D",0)="^^1^1^2940608^"
^DIPT(596,"%D",1,0)="Produces an alphabetic listing of all active imaging procedures."
^DIPT(596,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^RAMIS(71,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'D0!'$D(^RA(79.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^RA(79.2,D0,0)):^(0),1:"""")"
^DIPT(596,"DXS",2,9)="S RA1=0 F S RA1=$O(^RAMIS(71,D0,""MDL"",RA1)) Q:'RA1 S RA2=+^(RA1,0) W $P(^RAMIS(73.1,RA2,0),U) W:$X>(IOM-3)&($O(^RAMIS(71,D0,""MDL"",RA1))) !?116 W:$O(^RAMIS(71,D0,""MDL"",RA1)) "","" W:$X>(IOM-3) ?116"
^DIPT(596,"F",1)=".01;L40;C1~9;C45~175,S DIP(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X W X K DIP;L3;C55;"""";Z;""INTERNAL(AMIS CODE)""~175,.01;C60;L30~"
^DIPT(596,"F",2)="175,2;L3;C93;""MULT""~175,3;C99;""BI- LAT""~175,4;L4;C105;""CT""~"
^DIPT(596,"F",3)="X DXS(1,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) W X K DIP;C111;""IMG TYPE"";L5;Z;""TYPE OF IMAGING:ABBREV""~"
^DIPT(596,"F",4)="X DXS(2,9);""MODALITY"";C117;Z;""S RA1=0 F S RA1=$O(^RAMIS(71,D0,""MDL"",RA1)) Q:'RA1 S RA2=+^(RA1,0) W $P(^RAMIS(73.1,RA2,0),U) W:$X>(IOM-3)&($O(^RAMIS(71,D0,""MDL"",RA1))) !?116 W:$O(^RAMIS(71,D0,""MDL"",RA1)) "","" W:$X>(IOM-3) ?116""~"
^DIPT(596,"F",5)="D:+$O(^RAMIS(71,D0,""CM"",0)) CMDISP^RAMAINP1(D0);"""";Z;""D:+$O(^RAMIS(71,D0,""CM"",0)) CMDISP^RAMAINP1(D0)""~"
^DIPT(596,"F",6)="""----------------------------------------------------------------------------------------------------------------------------------"";C1~"
^DIPT(596,"H")="Alpha Listing of Active Procedures"
^DIPT(597,0)="RA PROCEDURE BY AMIS^2851212^^71^^^2970110^"
^DIPT(597,"%D",0)="^^1^1^2940607^^"
^DIPT(597,"%D",1,0)="This template is used to generate the short active procedure listings."
^DIPT(597,"F",1)=".01~9~6~"
^DIPT(597,"F",2)="175,S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RAMIS(71.1,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) W X K DIP;""AMIS CODE"";Z;"".01:.001""~"
^DIPT(597,"F",3)="175,2;""MULTIPLIER""~175,3~175,4~"
^DIPT(597,"H")="Procedures By Amis Codes"
^DIPT(598,0)="RA PERSONNEL LIST^2950406.1435^^200^^^2980204"
^DIPT(598,"%D",0)="^^2^2^2940607^"
^DIPT(598,"%D",1,0)="This print template is in the new user file, but is used to generate"
^DIPT(598,"%D",2,0)="a list of Radiology/Nuclear Medicine Personnel."
^DIPT(598,"F",1)=".01;C1;L20;S1~73;""INACTIVE DATE"";C23;L10~72,.01;C36;L12;""RAD/NUC MED CLASSIF.""~74,.01;C55;L22;""IMAGING LOC ACCESS""~"
^DIPT(598,"F",2)="W !,"" Rad/Nuc Med Keys: "";"""";Z;""W !,"" Rad/Nuc Med Keys: """"~D KEYS^RAPNL(D0);"""";Z;""D KEYS^RAPNL(D0)""~"
^DIPT(598,"F",3)="S ZZ="""",$P(ZZ,""-"",79)=""-"";"""";Z;""S ZZ="""",$P(ZZ,""-"",79)=""-""""~W ZZ;C1;"""";Z;""W ZZ""~K ZZ;"""";Z;""K ZZ""~"
^DIPT(598,"H")="RADIOLOGY/NUCLEAR MEDICINE PERSONNEL LIST"
^DIPT(599,0)="RA RESIDENT RADIOLOGIST^2950406.1434^^200^^^2971201"
^DIPT(599,"%D",0)="^^2^2^2940607^"
^DIPT(599,"%D",1,0)="This template is sent with the Radiology/Nuclear Medicine package and is"
^DIPT(599,"%D",2,0)="in the New Person file. It is used to generate the resident print listing."
^DIPT(599,"F",1)=".01;C1;L15;S1~73;""INACTIVE DATE"";C18;L8~70;C31;L5;""STAFF REV REQ'D""~72,.01;C40;L12;""RAD/NUC MED CLASSIF.""~74,.01;C55;L22;""IMAGING LOC ACCESS""~"
^DIPT(599,"F",2)="W !,"" Rad/Nuc Med Keys: "";"""";Z;""W !,"" Rad/Nuc Med Keys: """"~D KEYS^RAPNL(D0);"""";Z;""D KEYS^RAPNL(D0)""~"
^DIPT(599,"F",3)="S ZZ="""",$P(ZZ,""-"",79)=""-"";"""";Z;""S ZZ="""",$P(ZZ,""-"",79)=""-""""~W ZZ;C1;"""";Z;""W ZZ""~K ZZ;"""";Z;""K ZZ""~"
^DIPT(599,"H")="INTERPRETING RESIDENT LIST"
^DIPT(600,0)="RA STANDARD REPORTS LIST^2850416^^74.1^^^2971112^"
^DIPT(600,"%D",0)="^^1^1^2940607^^"
^DIPT(600,"%D",1,0)="Used to generate the Standard Reports Print option."
^DIPT(600,"F",1)="0~.01~""Report Text:"";C1~200,.01;C5;""""~""Impression:"";C1~300,.01;C5;""""~"
^DIPT(600,"H")="Standard Reports List"
^DIPT(601,0)="RA IMAGE LOC LIST^3000425.1343^^79.1^^^3000517"
^DIPT(601,"%D",0)="^^1^1^2940608^"
^DIPT(601,"%D",1,0)="Generates a list of locations from the Imaging Location file."
^DIPT(601,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RA(79.1,D0,""DCM"",D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DIC(81.3,+D0,0)) D0=-1"
^DIPT(601,"F",1)="""Location:"";C18~.01;C28;""""~""Division:"";C18~25;C28;""""~""Inactivation Date:"";C18~19;C37;""""~""Imaging Type:"";C14~6;C28;""""~""Credit Method:"";C13~21;C28;""""~"
^DIPT(601,"F",2)="W:$P($G(^RA(79.1,D0,0)),""^"",21)="""" ?28,""Regular Credit"";"""";Z;""W:$P($G(^RA(79.1,D0,0)),""^"",21)="""" ?28,""Regular Credit""""~""DSS ID:"";C20~22;C28;""""~"
^DIPT(601,"F",3)="""Allow 'Released/Unverified':"";C18~17;C47;""""~"""";S2~""Flash Card Parameters:"";C5~""Jacket Label Parameters:"";C50~""----------------------"";C5~"
^DIPT(601,"F",4)="""------------------------"";C50~""Default Printer:"";C5~3;"""";C22~""Default Printer :"";C50~5;"""";C68;L11~""Cards Per Visit:"";C5~2;"""";C22~"
^DIPT(601,"F",5)="""Labels Per Visit:"";C50~4;"""";C68;L11~""Default Format :"";C5~7;"""";C22~""Default Format :"";C50~11;"""";C68;L11~"""";S2~""Exam Label Parameters:"";C5~"
^DIPT(601,"F",6)="""Order Parameters:"";C50~""----------------------"";C5~""-----------------"";C50~""Default Printer: [Flash Card Printer]"";C5~""Default Printer:"";C50~"
^DIPT(601,"F",7)="16;"""";C68;L11~""Labels Per Exam:"";C5~8;"""";C22~""Cancelation Ptr:"";C50~24;"""";C68;L11~""Default Format :"";C5~9;"""";C22~"""";S2~""Radiopharmaceutical"";C50~"
^DIPT(601,"F",8)="""Reporting Parameters:"";C5~""Dosage Ticket Parameters"";C50~""---------------------"";C5~""------------------------"";C50~""Default Printer:"";C5~"
^DIPT(601,"F",9)="10;"""";C22;L25~""Default Printer:"";C50~23;"""";C68;L11~""Default Header:"";C5~12;"""";C21~""Default Footer:"";C5~13;"""";C21~""DX Codes in Rpt:"";C5~18;"""";C22~"
^DIPT(601,"F",10)="""Voice Dictation auto-print:"";C5~26;"""";C33~"""";S2~""Allowable Cam/Equip/Rms For This Location:"";C5~""------------------------------------------"";C5~"
^DIPT(601,"F",11)="100,.01;"""";C10~"""";S2~""Default CPT Modifiers for this location:"";C5~""----------------------------------------"";C5~135,.01;"""";C10~"
^DIPT(601,"F",12)="135,X DXS(1,9.2) S DIP(101)=$S($D(^DIC(81.3,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;"""";Z;"".01:NAME""~"""";S2~"
^DIPT(601,"F",13)="""'Stat' Alert Recipients For This Location:"";C5~""Urgent Request Alerts?: "";C50~20;"""";C75~""------------------------------------------"";C5~150,.01;"""";C10~"
^DIPT(601,"H")="Imaging Location List"
^DIPT(602,0)="RA IMAGE DIV LIST^3001017.15^^79^^^3010319"
^DIPT(602,"%D",0)="^^1^1^2960730^^"
^DIPT(602,"%D",1,0)="Generates a list of Divisions from the Rad/Nuc Med Division File."
^DIPT(602,"F",1)="""Division: "";C1;S1~.01;"""";C11~""--------"";C1~""Track Request Status Changes? :"";C3~.119;C37;""""~""Track Exam Status Changes? :"";C3~.11;C37;""""~"
^DIPT(602,"F",2)="""Ask for Exam Status Time? :"";C3~.111;C37;""""~""Print Flash Card For Each Exam? :"";C3~.12;C37;""""~""Ask for Imaging Location? :"";C3~"
^DIPT(602,"F",3)=".121;C37;""""~""Ask for Requested Date? :"";C3~.117;C37;""""~""Auto User Code Filing? :"";C3~.16;C37;""""~""Require Detail Procedure..."";C3~"
^DIPT(602,"F",4)="""...upon Initial Exam Entry?:"";C8~.17;C37;""""~""Print Jacket Labels..."";C3~""...with each Visit?:"";C16~.18;C37;""""~""Ask for Camera/Equipment/Room? :"";C3~"
^DIPT(602,"F",5)=".19;"""";C37~""Allow Rpts on Cancelled Exams? :"";C3~.122;C37;""""~""Auto e-mail to Req. Physicians? :"";C3~.126;C37;""""~""Time Limit For Future Exams..."";C3~"
^DIPT(602,"F",6)="""...in Hours?:"";C23~.124;C37;L3;""""~""Allow Standard reports? :"";C3~.112;C37;""""~""Allow Batching of reports? :"";C3~.113;C37;""""~"
^DIPT(602,"F",7)="""Allow Copying of reports? :"";C3~.114;C37;""""~""Impression Required on reports? :"";C3~.116;C37;""""~""Allow Verifying by Residents? :"";C3~"
^DIPT(602,"F",8)=".118;C37;""""~""Interpreting Staff Required? :"";C3~.128;C37;""""~""Warning on reports not yet..."";C3~""...Verified?:"";C23~.125;C37;""""~"
^DIPT(602,"F",9)="""Allow e-sig on COTS HL7 reports?:"";C3~.127;C37;""""~"""";S2~""Contrast Message:"";C3~""-----------------"";C3~25;"""";C5~"""";S2~""Clinical History Message:"";C3~"
^DIPT(602,"F",10)="""-------------------------"";C3~75;"""";C5~"""";S2~""Resource Device:"";C3~""----------------"";C3~100;"""";C5~"""";S2~"
^DIPT(602,"F",11)="""Radiopharmaceutical Dose Warning Message:"";C3~""-----------------------------------------"";C3~125,.01;"""";C5~"""";S2~"
^DIPT(602,"F",12)="""HL7 Receiving Applications for Division:"";C3~""----------------------------------------"";C3~.129,.01;"""";C5~"""";S2~""Imaging Locations:"";C3~"
^DIPT(602,"F",13)="""------------------"";C3~50,.01;"""";C5~"
^DIPT(602,"H")="Rad/Nuc Med Division List"
^DIPT(603,0)="RA OUTSIDE LIST^2940608.1505^^70^^^2971201"
^DIPT(603,"%D",0)="^^1^1^2940607^^^^"
^DIPT(603,"%D",1,0)="Used to generate the Delinquent Outside Film Report for Outpatients."
^DIPT(603,"F",1)=".01;""PATIENT""~S RADFN=D0 W $$SSN^RAUTL(RADFN) K RADFN,RASSN;""PT ID"";L12;C45;Z;""S RADFN=D0 W $$SSN^RAUTL(RADFN) K RADFN,RASSN""~50,2;C62;""NEEDED BACK""~"
^DIPT(603,"F",2)="50,""'OK' NEEDED:"";C1~50,5;C15;""""~50,""SOURCE :"";C1~50,4;C15;L64;""""~50,""REMARKS :"";C1~50,20;C15;W60;""""~"
^DIPT(603,"F",3)="50,""-------------------------------------------------------------------------------"";C1~"
^DIPT(603,"H")="IMAGING SERVICE DELINQUENT OUTSIDE FILM REPORT FOR OUTPATIENTS"
^DIPT(604,0)="RA DAILY LOG^2940608.1505^^70^^^2940608"
^DIPT(604,"%D",0)="^^1^1^2960730^^^^"
^DIPT(604,"%D",1,0)="Used to print a daily log of registered examinations."
^DIPT(604,"DCL","70.03^-1")="!"
^DIPT(604,"DXS",1,9.2)="S DIP(1)=$S($D(^RADPT(D0,""DT"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""."",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) S X=+X=0,DIP(4)=X S X="""",DIP(5)=X S X=1"
^DIPT(604,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X,DIP(7)=X S X=$P(DIP(1),U,1)"
^DIPT(604,"DXS",1,9.4)="X DXS(1,9.3) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S X=X"
^DIPT(604,"F",1)=".01;L20~S RADFN=D0 W $$SSN^RAUTL(RADFN) K RADFN,RASSN;""PID"";L12;Z;""S RADFN=D0 W $$SSN^RAUTL(RADFN) K RADFN,RASSN""~"
^DIPT(604,"F",2)="2,X DXS(1,9.4) S X=$S(DIP(4):DIP(5),DIP(6):X) W X K DIP;""TIME"";Z;""$S(+$P(EXAM DATE,""."",2)=0:"""",1:TIME(EXAM DATE))""~"
^DIPT(604,"F",3)="2,50,S DIP(1)=$S($D(^RADPT(D0,""DT"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S X=X D ^RAUTL1;""WARD/CLINIC"";L25;;;Z;""RACAT(INTERNAL(CATEGORY OF EXAM))"";!~"
^DIPT(604,"F",4)="2,50,2;""PROCEDURE"";L20~2,50,3;L20~2,50,.01;D0~"
^DIPT(604,"H")="IMAGING SERVICE DAILY LOG REPORT"
^DIPT(605,0)="RA EXAM ROOM LIST^2960814.1021^^79.1^^^2971110"
^DIPT(605,"F",2)="100,.01;C1;L15~25;C20;L20~.01;C45;L20~"
^DIPT(605,"H")="Imaging Camera/Equipment/Room List"
^DIPT(606,0)="RA STATUS PRINT^2961210.0839^^72^^^2961210"
^DIPT(606,"%D",0)="^^2^2^2940607^^^"
^DIPT(606,"%D",1,0)="This print template is used to generate the Examination Status List"
^DIPT(606,"%D",2,0)="from the Examination Status file."
^DIPT(606,"DXS",1,9)="F RAX=0:0 S RAX=$O(^DD(72,""GL"",.1,RAX)) Q:RAX'>0 F RAX1=0:0 S RAX1=$O(^DD(72,""GL"",.1,RAX,RAX1)) Q:RAX1'>0 I $D(^RA(72,D0,.1)),$P(^(.1),U,RAX)=""Y"" W !,?10,$P(^DD(72,RAX1,0),""REQUIRED"",1)"
^DIPT(606,"DXS",2,9)="F RAX=0:0 S RAX=$O(^DD(72,""GL"",.2,RAX)) Q:RAX'>0 F RAX1=0:0 S RAX1=$O(^DD(72,""GL"",.2,RAX,RAX1)) Q:RAX1'>0 I $D(^RA(72,D0,.2)),$P(^(.2),U,RAX)=""Y"" W !,?10,$P($P(^DD(72,RAX1,0),""?"",1),""ASK FOR "",2)"
^DIPT(606,"DXS",3,9)="F RAX=0:0 S RAX=$O(^DD(72,""GL"",.3,RAX)) Q:RAX'>0 F RAX1=0:0 S RAX1=$O(^DD(72,""GL"",.3,RAX,RAX1)) Q:RAX1'>0 I $D(^RA(72,D0,.3)),$P(^(.3),U,RAX)=""y"" W !?10,$P(^DD(72,RAX1,0),"" REPORT?"",1)"
^DIPT(606,"F",1)=".01;L23~3~2;L23~4;L20~""GENERATE EXAMINED HL7 MESSAGE: "";C5;S1;""""~8;X~""REQUIRED FOR CHANGE TO THIS STATUS:"";C5;S1;""""~"
^DIPT(606,"F",2)="""----------------------------------"";C5;""""~"
^DIPT(606,"F",3)="X DXS(1,9);X;Z;""F RAX=0:0 S RAX=$O(^DD(72,""GL"",.1,RAX)) Q:RAX'>0 F RAX1=0:0 S RAX1=$O(^DD(72,""GL"",.1,RAX,RAX1)) Q:RAX1'>0 I $D(^RA(72,D0,.1)),$P(^(.1),U,RAX)=""Y"" W !,?10,$P(^DD(72,RAX1,0),""REQUIRED"",1)""~"
^DIPT(606,"F",4)="""ASK ON STATUS TRACKING:"";C5;S1;""""~""----------------------"";C5;""""~"
^DIPT(606,"F",5)="X DXS(2,9);X;Z;""F RAX=0:0 S RAX=$O(^DD(72,""GL"",.2,RAX)) Q:RAX'>0 F RAX1=0:0 S RAX1=$O(^DD(72,""GL"",.2,RAX,RAX1)) Q:RAX1'>0 I $D(^RA(72,D0,.2)),$P(^(.2),U,RAX)=""Y"" W !,?10,$P($P(^DD(72,RAX1,0),""?"",1),""ASK FOR "",2)""~"
^DIPT(606,"F",6)="""WORKLOAD REPORTS THAT USE THIS STATUS IN ITS COMPILATION:"";C5;S1;""""~""--------------------------------------------------------"";C5;""""~"
^DIPT(606,"F",7)="X DXS(3,9);X;Z;""F RAX=0:0 S RAX=$O(^DD(72,""GL"",.3,RAX)) Q:RAX'>0 F RAX1=0:0 S RAX1=$O(^DD(72,""GL"",.3,RAX,RAX1)) Q:RAX1'>0 I $D(^RA(72,D0,.3)),$P(^(.3),U,RAX)=""y"" W !?10,$P(^DD(72,RAX1,0),"" REPORT?"",1)""~"
^DIPT(606,"F",8)="W !! F RAX=0:1:79 W ?RAX,""-"";X;Z;""W !! F RAX=0:1:79 W ?RAX,""-""""~K RAX,RAX1;X;Z;""K RAX,RAX1""~W !,"" "";X;Z;""W !,"" """"~"
^DIPT(606,"H")="EXAMINATION STATUS LIST"
^DIPT(607,0)="RA FLASH PRINT^2850221^^78.2^^^2980126^"
^DIPT(607,"%D",0)="^^1^1^2940607^^"
^DIPT(607,"%D",1,0)="This template is used to generate the Flash Card/Label List option."
^DIPT(607,"F",1)="50,.01;C3;L27~50,2;C32~50,3;""COL"";C36~50,4;""TITLE"";C41~50,5;""TEXT"";L27;C53~"
^DIPT(607,"H")="Flash Card/Label Formats"
^DIPT(608,0)="RA DIAGNOSTIC CODE PRINT^2961223.1326^^78.3^^^2971024"
^DIPT(608,"%D",0)="^^1^1^2940607^^"
^DIPT(608,"%D",1,0)="Used for printing the Diagnostic Code List."
^DIPT(608,"F",2)="0;C1;R5~.01;C10;L40~5;C51;L3~3;C61~4;C72~2;C1;""""~""------------------------------------------------------------------------------"";C1~"
^DIPT(608,"H")="DIAGNOSTIC CODES LIST"
^DIPT(609,0)="RA ACTIVITY LOG^2850607^^79.2^^^2971104^"
^DIPT(609,"%D",0)="^^1^1^2940607^"
^DIPT(609,"%D",1,0)="Used for printing the activity log out of the Imaging Location file."
^DIPT(609,"F",1)="100,.01;""DATE"";C1~100,2;C20;L20;""ACTION""~100,3;C43;L10;""USER""~100,4;C55;""EXAMS""~100,5;C70;""REPORTS""~"
^DIPT(609,"H")="Imaging Type Activity Log"
^DIPT(610,0)="RA PRINTED REPORTS^2960228.1427^^74.4^^^2971217"
^DIPT(610,"%D",0)="^^2^2^2940607^^"
^DIPT(610,"%D",1,0)="This print template is used to generate the List Reports in a Batch"
^DIPT(610,"%D",2,0)="option."
^DIPT(610,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^RARPT(D0,0)):^(0),1:"""")"
^DIPT(610,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^RARPT(D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=$P(DIP(201),U,4) S D0=I(0,0)"
^DIPT(610,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(610,"DXS",3,9)="X DXS(3,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=$S('$D(^DIC(42,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(610,"DXS",3,9.2)="S DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))]"""",DIP(2)=X S X=$S('$D(^SC(+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))"
^DIPT(610,"F",1)="W $$FLAGMEM^RAUTL20;C1;L1;"""";Z;""W $$FLAGMEM^RAUTL20""~.01;C2;""Day/Case""~"
^DIPT(610,"F",2)="X DXS(1,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;C14;L16;""Patient"";Z;""REPORT:PATIENT NAME""~"
^DIPT(610,"F",3)="X DXS(2,9) W X K DIP;C32;L7;""BID"";Z;""REPORT:PATIENT NAME:PRIMARY SHORT ID""~"
^DIPT(610,"F",4)="W $$DATX^RARTST3($P($G(^RABTCH(74.4,D0,0)),U,4));C40;L14;""Date Printed"";Z;""W $$DATX^RARTST3($P($G(^RABTCH(74.4,D0,0)),U,4))""~3;C56;L12;""Printed By""~"
^DIPT(610,"F",5)="X DXS(3,9) W X K DIP;C70;L10;""Ward/Clinic"";Z;""$S(PRINCIPAL CLINIC]"""":PRINCIPAL CLINIC,1:WARD)""~"
^DIPT(610,"H")="@"
^DIPT(610,"SUB")="1"
^DIPT(611,0)="RA ALL UNPRINTED REPORTS^2960228.1426^^74.4^^^2971217"
^DIPT(611,"%D",0)="^^2^2^2940607^^"
^DIPT(611,"%D",1,0)="Generates an output of reports in the distribution queue that"
^DIPT(611,"%D",2,0)="have not been printed."
^DIPT(611,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^RARPT(D0,0)):^(0),1:"""")"
^DIPT(611,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^RARPT(D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=$P(DIP(201),U,4) S D0=I(0,0)"
^DIPT(611,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(611,"DXS",3,9)="X DXS(3,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=$S('$D(^DIC(42,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(611,"DXS",3,9.2)="S DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))]"""",DIP(2)=X S X=$S('$D(^SC(+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))"
^DIPT(611,"F",1)="W $$FLAGMEM^RAUTL20;C1;L1;"""";Z;""W $$FLAGMEM^RAUTL20""~.01;C2;""Day/Case""~"
^DIPT(611,"F",2)="X DXS(1,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;C14;L16;""Patient"";Z;""REPORT:PATIENT NAME""~"
^DIPT(611,"F",3)="X DXS(2,9) W X K DIP;C32;L7;""BID"";Z;""REPORT:PATIENT NAME:PRIMARY SHORT ID""~"
^DIPT(611,"F",4)="W $$DATX^RARTST3($P($G(^RARPT(+$G(^RABTCH(74.4,D0,0)),0)),U,7));C39;L14;""Date Verified"";Z;""W $$DATX^RARTST3($P($G(^RARPT(+$G(^RABTCH(74.4,D0,0)),0)),U,7))""~"
^DIPT(611,"F",5)="X DXS(3,9) W X K DIP;C55;L10;""Ward/Clinic"";Z;""$S(PRINCIPAL CLINIC]"""":PRINCIPAL CLINIC,1:WARD)""~11;C67;L13;""Routing Queue""~"
^DIPT(611,"H")="@"
^DIPT(611,"SUB")="1"
^DIPT(613,0)="RA UNPRINTED REPORTS^2960228.1427^^74.4^^^2971217"
^DIPT(613,"%D",0)="^^2^2^2960730^^^"
^DIPT(613,"%D",1,0)="This template is used in the generation of reports in the"
^DIPT(613,"%D",2,0)="distribution queue yet to be printed."
^DIPT(613,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^RARPT(D0,0)):^(0),1:"""")"
^DIPT(613,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^RARPT(D0,0)):^(0),1:""""),D0=$P(DIP(101),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=$P(DIP(201),U,4) S D0=I(0,0)"
^DIPT(613,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(613,"DXS",3,9)="X DXS(3,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=$S('$D(^DIC(42,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(613,"DXS",3,9.2)="S DIP(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))]"""",DIP(2)=X S X=$S('$D(^SC(+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))"
^DIPT(613,"F",1)="W $$FLAGMEM^RAUTL20;C1;L1;"""";Z;""W $$FLAGMEM^RAUTL20""~.01;C2;""Day/Case""~"
^DIPT(613,"F",2)="X DXS(1,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;C15;L15;""Patient"";Z;""REPORT:PATIENT NAME""~"
^DIPT(613,"F",3)="X DXS(2,9) W X K DIP;C32;L7;""BID"";Z;""REPORT:PATIENT NAME:PRIMARY SHORT ID""~"
^DIPT(613,"F",4)="W $$DATX^RARTST3($P($G(^RARPT(+$G(^RABTCH(74.4,D0,0)),0)),U,7));C40;L14;""Date Verified"";Z;""W $$DATX^RARTST3($P($G(^RARPT(+$G(^RABTCH(74.4,D0,0)),0)),U,7))""~"
^DIPT(613,"F",5)="X DXS(3,9) W X K DIP;C56;L10;""Ward/Clinic"";Z;""$S(PRINCIPAL CLINIC]"""":PRINCIPAL CLINIC,1:WARD)""~"
^DIPT(613,"H")="@"
^DIPT(613,"SUB")="1"
^DIPT(614,0)="RA DISTRIBUTION^2970724.0943^^74.3^^^2971024"
^DIPT(614,"%D",0)="^^1^1^2940607^^"
^DIPT(614,"%D",1,0)="This print template is used to generate the Report Distribution Lists."
^DIPT(614,"F",1)=".01~2~125~75;S1;C1~"
^DIPT(614,"F",2)="S X=""="",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;"""";C1;X;Z;""DUP(""="",IOM)""~"
^DIPT(614,"H")="Report Distribution Queue List"
^DIPT(615,0)="RA FILM SIZE^2950103.1437^^78.4^^^2971030"
^DIPT(615,"%D",0)="^^1^1^2960730^^^"
^DIPT(615,"%D",1,0)=" This template is used to provide information on the FILM SIZES file."
^DIPT(615,"F",2)=".01;""Film"";L17~2;""C i n e"";L1~3;""F l u o r o"";L1~4;""Inactivation Dt"";L15~5;""W a s t e d"";L1~6;""Analogous Unwasted Film Size"";L17~"
^DIPT(615,"H")="Film Size Specifications"
^DIPT(617,0)="LBRY NEW LOCAL TITLES^2881004^^680.5^^^^"
^DIPT(617,"F",1)="""TITLE: "";C1;S2~.01;C8;X;L70~""FORMERLY: "";C1~8;C11;X;L68~""CONTINUED BY: "";C1~9;C15;X;L64~""SERLINE IDENTIFIER: "";C1~1;C21;X~""PUBLISHER: "";C1~2;C12;X~"
^DIPT(617,"F",2)="""NLM TITLE ABBREVIATION: "";C1~10;C24;X~""FIRST ISSUE: "";C1~5;C14;X~""LAST ISSUE: "";C1~6;C14;X~""INDEXED: "";C1~3,.01;C10;X~""GENERAL NOTES"";C1~4,.01;C1;X~"
^DIPT(617,"H")="New Local Titles"
^DIPT(618,0)="LBRY PATRON TITLES^2880729^^680.5^^^^"
^DIPT(618,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^LBRY(680.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) K DIC S DIC=""^LBRY(680,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y"
^DIPT(618,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^LBRY(680.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) K DIC S DIC=""^LBRY(680,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y"
^DIPT(618,"DXS",3,"C")="CANCELLED TITLE"
^DIPT(618,"DXS",3,"D")="DEAD TITLE"
^DIPT(618,"DXS",3,"R")="RENAMED TITLE"
^DIPT(618,"F",1)="""TITLE: "";C1;S~.01;C8;L160;X~"
^DIPT(618,"F",2)="-680,^LBRY(680,^^X DXS(1,9.2) S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0);Z;""TITLE:LOCAL SERIALS:""~"
^DIPT(618,"F",3)="-680,""INACTIVE: "";C1~-680,.02;C11;X~""FORMERLY: "";C1~8;C11;L160;X~""CONTINUED BY: "";C1~9;C15;L160;X~"
^DIPT(618,"F",4)="-680,^LBRY(680,^^X DXS(2,9.2) S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0);Z;""TITLE:LOCAL SERIALS:""~"
^DIPT(618,"F",5)="-680,""PLACEMENT: "";C1~-680,1.1;C12;X~-680,""MICROFILM HOLDINGS: "";C1~-680,2.1;C21;X~-680,""DETAILED HOLDINGS: "";C1~-680,9.1,.01;C3;X~"
^DIPT(618,"F",6)="-680,""SUMMARY HOLDINGS: "";C1~-680,9;C19;X~-680,""GAPS: "";C1~-680,9.8,.01;C3;X~-680,""RETENTION POLICY: "";C1~-680,9.4;C20;X~"
^DIPT(618,"H")="Journal Title Availability Inquiry"
^DIPT(618,"IOM")="80"
^DIPT(618,"LAST")=""
^DIPT(618,"ROU")="^LBRYPT1"
^DIPT(618,"ROUOLD")="LBRYPT1"
^DIPT(653,0)="LBRY MISSING ISSUES LIST^2880404^^682^^^^"
^DIPT(653,"%D",0)="^^1^1^2871104^^"
^DIPT(653,"%D",1,0)="A list of all copies (not ToCs) that are missing."
^DIPT(653,"F",1)=".02;X;L79;S2~1;X;C3;L12~1.1;X;C20;L12~""(""~1.2;X~"")""~1.4;X;C45;L2~"
^DIPT(653,"F",2)="S DIP(1)=$S($D(^LBRY(682,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,5)-$P(DIP(1),U,4) W X K DIP;X;C55;L2;Z;""COPIES ORDERED-COPIES RECEIVED""~"
^DIPT(653,"F",3)="-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(682,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""LOCAL SERIALS:""~"
^DIPT(653,"F",4)="-680,-680.5,^LBRY(680.5,^^S I(100,0)=D0 S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;""TITLE:""~-680,-680.5,7;X;C65;L9~"
^DIPT(653,"F",5)="4,""c"";X;C5~4,.01;X;C6;L2~4,1;X;C11~"
^DIPT(653,"F",6)="4,-681,^LBRY(681,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;"".02:""~4,-681,1.4;X;C31~"
^DIPT(653,"H")="[LBRY MISSING ISSUES HEADER]"
^DIPT(654,0)="LBRY MISSING ISSUES HEADER^2880314^^682^^^^"
^DIPT(654,"F",1)=""""";X;S2~""M I S S I N G I S S U E S L I S T"";X;C22~"""";X;S1~"
^DIPT(654,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C30;X;L18;Z;""NOW""~""PAGE "";X;C70~"
^DIPT(654,"F",3)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;75;Z;""PAGE""~"""";X;S1~""TITLE"";X;C1~""JOURNAL DATE"";X;C3~""V(I)"";X;C23~""VENDOR"";X;C30~""ORDERED"";X;C42~""MISSING"";X;C52~"
^DIPT(654,"F",4)="""ISSN"";X;C68~""--------------------------------------------------------------------------------"";X;C1~"
^DIPT(654,"H")=" "
^DIPT(655,0)="LBRY TITLE LOCATION^2880314^^680^^^^"
^DIPT(655,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(655,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C7;X~-680.5,""GENERAL NOTES: "";C1;S~"
^DIPT(655,"F",3)="-680.5,4,.01;C1;X~""MICROFILM HOLDINGS: "";C1;S~2.1;C1;X~""DETAILED HOLDINGS: "";C1;S~9.1,.01;C1;X~"
^DIPT(655,"H")="Local Serials Complete Title by Location"
^DIPT(656,0)="LBRY TITLE LOCATION BRIEF^2880314^^680^^^^"
^DIPT(656,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(656,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C7;X~-680.5,""GENERAL NOTES: "";C1;S~"
^DIPT(656,"F",3)="-680.5,4,.01;C1;X~""MICROFILM HOLDINGS: "";C1;S~2.1;C1;X~""SUMMARY HOLDINGS: "";C1;S~9;C19;X~"
^DIPT(656,"H")="Local Serials Brief Title by Location"
^DIPT(657,0)="LBRY GAPS LIST^2951003.1532^^680^^^2960507"
^DIPT(657,"F",2)="""TITLE: "";C1;S3~.01;C8;L70;X~""GAPS: "";C1;S~9.8,.01;C1;X~"
^DIPT(657,"H")="Local Gaps List"
^DIPT(658,0)="LBRY MICROFILM HOLDINGS^2880314^^680^^^^"
^DIPT(658,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~""MICROFILM VENDOR: "";C1~2.5;C19;X~""RENEWAL DATE (MF): "";C1~10.6;C20;X~""LOCATION: "";C1~1.1;C11;X~""MICROFILM HOLDINGS: "";C1~"
^DIPT(658,"F",2)="2.1;C1;X~"
^DIPT(658,"H")="Local Serials Microfilm Holdings"
^DIPT(659,0)="LBRY SUBSCRIPTION/VENDOR^2951012.1259^^681^^^2960521"
^DIPT(659,"F",1)="-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""LOCAL SERIALS TITLE:""~-680,""TITLE: "";C1;S3~"
^DIPT(659,"F",2)="-680,.01;C8;X;L70~-680,-680.5,^LBRY(680.5,^^S I(100,0)=D0 S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(659,"F",3)="-680,-680.5,""ISSN: "";C1~-680,-680.5,7;C7;X~-680,""CATEGORY: "";C1~-680,4,.01;C11;X;W~-680,""RENEWAL DATE (HC): "";C1~-680,10.5;C20;X~-680,""FUNDING SOURCE: "";C1~"
^DIPT(659,"F",4)="-680,8;C17;X~-680,""LAST YEAR'S UNIT COST: "";C1~-680,8.4;C24;X;D2~-680,""SUBSCRIPTION PERIOD: "";C1~-680,10.8;C22;X;D1~-680,""COPIES ORDERED: "";C1~-680,7;C17;X~"
^DIPT(659,"F",5)="-680,""UNIT COST: "";C1~-680,8.3;C12;X;D2~-680,""SERVICE CHARGE: "";C1~-680,8.5;C17;X~-680,""TOTAL COST: "";C1~-680,8.6;C13;X;L10~"
^DIPT(659,"H")="Current Subscriptions by Vendor"
^DIPT(660,0)="LBRY RECIPIENTS BY TITLE^2880304^^681^^^^"
^DIPT(660,"F",2)="""TITLE: "";C1;S3~.02;C8;X;L70~""COPY #: "";C1~1;C9;X~2,""RECIPIENTS: "";C1~2,.01;C14;X~2,""ROUTING ORDER: "";C50~2,1;C65;X~"
^DIPT(660,"H")="Recipients List by Title"
^DIPT(661,0)="LBRY RECIPIENTS WITH TITLES^2880225^^681^^^^"
^DIPT(661,"F",2)="2,.01;C8;"""";N~""COPY #: "";C1~1;C9;X~""TITLE: "";C15~.02;C22;X;L57~"
^DIPT(661,"H")="Recipients Receiving Title(s)"
^DIPT(662,0)="LBRY MICROFILM VENDOR^2881004^^680^^^^"
^DIPT(662,"F",2)="""TITLE: "";C1;S3~.01;C8;X;L70~""LOCATION: "";C1~1.1;C11;X~""RENEWAL DATE: "";C30~10.6;C44;X~""MICROFILM HOLDINGS: "";C1~2.1;C1;X~"
^DIPT(662,"H")="Local Serials Microfilm Vendor holdings"
^DIPT(663,0)="LBRY MEDICAL HOLDINGS^2951003.1044^^680^^^2970326"
^DIPT(663,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(663,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C7;X~-680.5,""GENERAL NOTES"";C1;S~"
^DIPT(663,"F",3)="-680.5,4,.01;C1;X~""LOCATION: "";C1;S~1.1;C11;X~""DETAILED HOLDINGS"";C1;S~9.1,.01;C1;X~"
^DIPT(663,"H")="Detailed Medical Titles"
^DIPT(664,0)="LBRY BRIEF MEDICAL HOLDINGS^2880322^^680^^^^"
^DIPT(664,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(664,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C7;X~-680.5,""GENERAL NOTES"";C1;S~"
^DIPT(664,"F",3)="-680.5,4,.01;C1;X~""LOCATION: "";C1;S~1.1;C11;X~""SUMMARY HOLDINGS: "";C1~9;C19;X~"
^DIPT(664,"H")="Brief Medical Titles"
^DIPT(665,0)="LBRY MEDICAL BY SUBJECT^2880226^^680^^^^"
^DIPT(665,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(665,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~""LOCATION:"";C1~1.1;C11;X~""DETAILED HOLDINGS"";C1;S~9.1,.01;C1;X~"
^DIPT(665,"H")="Detailed Medical Titles by Subject"
^DIPT(666,0)="LBRY BRIEF MEDICAL/SUBJECT^2880226^^680^^^^"
^DIPT(666,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(666,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~""LOCATION: "";C1~1.1;C11;X~""SUMMARY HOLDINGS: "";C1~9;C19;X~"
^DIPT(666,"H")="Brief Medical Titles by Subject"
^DIPT(667,0)="LBRY MEDICAL SUBSCRIPTIONS^2880301^^680^^^^"
^DIPT(667,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~""LOCATION: "";C1~1.1;C11;X~""REQUESTOR: "";C30~10.7;C41;X~""COPIES ORDERED: "";C1~7;C17;X~""UNIT COST: "";C30~8.3;C42;X;D2;R11~"
^DIPT(667,"F",2)="""TOTAL COST: "";C30~8.6;C42;X;D2;R11~"
^DIPT(667,"H")="Medical Subscriptions with Cost"
^DIPT(668,0)="LBRY PATIENT HOLDINGS^2880404^^680^^^^"
^DIPT(668,"F",2)="""TITLE: "";C1;S3~.01;C8;X;L70~""CATEGORY: "";C1~4,.01;C11;X;N~""COPIES ORDERED: "";C1~7.1;C17;X~"
^DIPT(668,"H")="Patient Titles Available"
^DIPT(669,0)="LBRY ADMIN TITLES^2951003.153^^680^^^2970327"
^DIPT(669,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(669,"F",2)="-680.5,""ISSN: "";C1~-680.5,7;C7;X~""COPIES ORDERED: "";C1~7.1;C17;X~""UNIT COST: "";C30~8.3;C42;X;D2;R11~""TOTAL COST: "";C30~8.6;C42;X;D2;R11~"
^DIPT(669,"H")="Administrative Titles"
^DIPT(670,0)="LBRY DONOR TITLES^2880301^^681^^^^"
^DIPT(670,"F",2)="""TITLE: "";C1~.02;C8;X;L70~"
^DIPT(670,"H")="Titles by Donor"
^DIPT(671,0)="LBRY PATIENT TITLES^2880302^^680^^^^"
^DIPT(671,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(671,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C8;X~-680.5,""GENERAL NOTES"";C1;S~"
^DIPT(671,"F",3)="-680.5,4,.01;C1;X;S~""CATEGORY: "";C1;S~4,.01;C11;X~""DETAILED HOLDINGS"";C1;S~9.1,.01;C1;X~"
^DIPT(671,"H")="Local Patient Holdings"
^DIPT(672,0)="LBRY PATIENT TITLES BRIEF^2880302^^680^^^^"
^DIPT(672,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(672,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C8;X~-680.5,""GENERAL NOTES"";C1;S~"
^DIPT(672,"F",3)="-680.5,4,.01;C1;X~""CATEGORY: "";C1;S~4,.01;C11;X~""SUMMARY HOLDINGS: "";C1;S~9;C19;X~"
^DIPT(672,"H")="Local Patient Brief Holdings"
^DIPT(673,0)="LBRY ROUTE-TO-RETURN^2881004^^682^^^^"
^DIPT(673,"F",1)="""TITLE: "";C1;S3~.02;C8;X;L70~""COPY NUMBER: "";C1~4,.01;C14;X~4,""ROUTED DATE: "";C25~"
^DIPT(673,"F",2)="4,S DIP(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=$P(X,""."",1) S Y=X D DT K DIP;C38;X;L18;Z;""DATE(PRINTING TIME)""~"
^DIPT(673,"F",3)="4,-681,^LBRY(681,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""COPY POINTER:""~"
^DIPT(673,"F",4)="4,-681,""RECIPIENT(S): "";C1;S~4,-681,2,.01;C15;X~""VOLUME: "";C1~1.1;C9;X~""ISSUE: "";C25~1.2;C32;X~"
^DIPT(673,"H")="Outstanding Routed-To-Return Titles"
^DIPT(674,0)="LBRY FYI LIST^2951003.1531^^680^^^2960520"
^DIPT(674,"F",2)="""TITLE: "";C1;S3~.01;C8;X;L70~""LOCATION: "";C1~1.1;C11;X~""CATEGORY: "";C1~4,.01;C11;X~""FOR-YOUR-INFORMATION:"";C1~1.5;C5;X~"
^DIPT(674,"H")="Titles with For-Your-Information"
^DIPT(675,0)="LBRY ADMIN RECIPIENTS^2880307^^681^^^^"
^DIPT(675,"F",2)="""TITLE: "";C1;S~.02;C8;X;L70~""COPY #: "";C1~1;C9;X~2,""RECIPIENT: "";C1~2,.01;C12;X~"
^DIPT(675,"H")="Administrative Titles with Recipients"
^DIPT(676,0)="LBRY UNION LIST CODE^2880307^^680^^^^"
^DIPT(676,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(676,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C8;X~-680.5,""FIRST ISSUE: "";C1~"
^DIPT(676,"F",3)="-680.5,5;C14;X~-680.5,""LAST ISSUE: "";C1~-680.5,6;C14;X~-680.5,""PUBLISHER: "";C1~-680.5,2;C12;X~-680.5,""SERLINE IDENTIFIER: "";C1~-680.5,1;C22;X~"
^DIPT(676,"F",4)="-680.5,""GENERAL NOTES"";C1;S~-680.5,4,.01;C1;X~""DETAILED HOLDINGS: "";C1;S~9.1,.01;C1;X~"
^DIPT(676,"H")="Union List with Complete Holdings"
^DIPT(677,0)="LBRY UNION LIST BRIEF^2880322^^680^^^^"
^DIPT(677,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(677,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C8;X~-680.5,""FIRST ISSUE: "";C1~"
^DIPT(677,"F",3)="-680.5,5;C14;X~-680.5,""LAST ISSUE: "";C1~-680.5,6;C14;X~-680.5,""PUBLISHER: "";C1~-680.5,2;C12;X~-680.5,""SERLINE IDENTIFIER: "";C1~-680.5,1;C22;X~"
^DIPT(677,"F",4)="-680.5,""GENERAL NOTES"";C1;S~-680.5,4,.01;C1;X~""SUMMARY HOLDINGS: "";C1;S~9;C19;X~"
^DIPT(677,"H")="Union List with Brief Holdings"
^DIPT(678,0)="LBRY TITLE ALPHABETICAL^2940527.1509^^680^^^2980317^"
^DIPT(678,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(678,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C7;X~-680.5,""GENERAL NOTES: "";C1;S~"
^DIPT(678,"F",3)="-680.5,4,.01;C1;X~""LOCATION: "";C1;S~1.1;C11;X~""MICROFILM HOLDINGS: "";C1;S~2.1;C1;X~""DETAILED HOLDINGS: "";C1;S~9.1,.01;C1;X~"
^DIPT(678,"H")="Local Serials Titles Complete Holdings"
^DIPT(679,0)="LBRY TITLE ALPHABETICAL BRIEF^2940527.1522^^680^^^2980317^"
^DIPT(679,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~-680.5,^LBRY(680.5,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TITLE:""~"
^DIPT(679,"F",2)="-680.5,""FORMERLY: "";C1~-680.5,8;C11;X;L68~-680.5,""CONTINUED BY: "";C1~-680.5,9;C15;X;L64~-680.5,""ISSN: "";C1~-680.5,7;C7;X~-680.5,""GENERAL NOTES: "";C1;S~"
^DIPT(679,"F",3)="-680.5,4,.01;C1;X~""LOCATION: "";C1;S~1.1;C11;X~""MICROFILM HOLDINGS: "";C1;S~2.1;C1;X~""SUMMARY HOLDINGS: "";C1;S~9;C19;X~"
^DIPT(679,"H")="Local Serials Titles Brief Holdings"
^DIPT(755,0)="XUSER PC BUILD^2960614.1105^^200^^^2960731"
^DIPT(755,"F",2)=".01~53.5~53.6~"
^DIPT(755,"H")="NEW PERSON PROVIDER LIST"
^DIPT(756,0)="SCDX NPCDB TRANSMISSION REPORT^2960617.1346^@^409.73^^@^2960815"
^DIPT(756,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(409.73,.04,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^SD(409.73,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(756,"F",1)=".06;C1~"
^DIPT(756,"F",2)="X DXS(1,9.2) S X=X=""YES"",DIP(3)=X S X=""NO"",DIP(4)=X S X=1,DIP(5)=X S X=""YES"",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;""TRANSMITTED"";Z;""$S(TRANSMISSION REQUIRED=""YES"":""NO"",1:""YES"")""~"
^DIPT(756,"F",3)=".05;""EVENT""~11;""DATE/TIME OF XMIT""~15;""STATUS""~20.01~20.02~"
^DIPT(756,"H")="TRANSMITTED OUTPATIENT ENCOUNTER STATISTICS"
^DIPT(757,0)="SCDX TRANSMITTED ERROR LIST^2970905.1328^@^409.75^^@^2970905"
^DIPT(757,"F",1)="10.01;C1~-409.76,^SD(409.76,^^S I(0,0)=D0 S DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(757,"F",2)="-409.73,^SD(409.73,^^S I(0,0)=D0 S DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~-409.73,20.01~-409.73,20.02~"
^DIPT(757,"F",3)="-409.73,20.03~-409.76,^SD(409.76,^^S I(0,0)=D0 S DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-409.76,.01;C1~"
^DIPT(757,"F",4)="-409.76,.02~-409.76,11~"
^DIPT(757,"H")="TRANSMITTED OUTPATIENT ENCOUNTER ERROR LIST"
^DIPT(758,0)="ONCOLOGY OPTION LIST^2920528.1849^^19^^@^^"
^DIPT(758,"F",2)=".01~25~W "" "";C1;Z;""W "" """"~3.5,.01;C1~W "" "";C1;Z;""W "" """"~"
^DIPT(758,"H")="ONCOLOGY OPTION LIST"
^DIPT(759,0)="ONCOLOGY SORT TEMPLATE LIST^2920527.1701^^.401^^@^^"
^DIPT(759,"F",2)=".01;C1;L30~4;C35;L6~491620;C45;L30~"
^DIPT(759,"H")="ONCOLOGY SORT TEMPLATE LIST"
^DIPT(760,0)="ONCOLOGY PRINT TEMPLATE LIST^2920527.13^^.4^^@^^"
^DIPT(760,"F",2)=".01;C1;L30~4;C40;L5~704;C50;L35~"
^DIPT(760,"H")="ONCOLOGY PRINT TEMPLATE LIST"
^DIPT(761,0)="ONCOLOGY INPUT TEMPLATE LIST^2920527.1347^^.402^^@^^"
^DIPT(761,"F",2)=".01;C1;L30~4;C40;L5~W "" "";C1;Z;""W "" """"~10,.01~"
^DIPT(761,"H")="ONCOLOGY INPUT TEMPLATE LIST"
^DIPT(762,0)="ONCOLOGY ROUTINE LIST^2920528.1852^^9.8^^@^^"
^DIPT(762,"F",2)=".01;C1~W "" "";C1;Z;""W "" """"~2,.01~W "" "";C1;Z;""W "" """"~"
^DIPT(762,"H")="ONCOLOGY ROUTINE LIST"
^DIPT(765,0)="ONCO ACOS DOCUMENTATION^2920816.1142^^160.2^^@^2960327^"
^DIPT(765,"F",2)="1,.01;X~"
^DIPT(765,"H")="ACOS DOCUMENTATION"
^DIPT(766,0)="ONCO WORKSHEET^2920906.2005^^160.2^^@^2960328^"
^DIPT(766,"F",2)="1,.01~"
^DIPT(766,"H")="@"
^DIPT(768,0)="ONCO SITE HEADING^2910709.1216^^160.1^^@^^"
^DIPT(768,"F",1)=""
^DIPT(768,"F",2)="S DIP(1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;Z;""CENTER(HOSPITAL NAME)"";X~"
^DIPT(768,"F",3)="S DIP(1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;Z;""CENTER(STREET ADDRESS)"";X~"
^DIPT(768,"F",4)=".032~W "" "";C1;Z;""W "" """"~W "" "";C1;Z;""W "" """"~"
^DIPT(768,"F",5)="X $P(^DD(160.1,.041,0),U,5,99) S DIP(1)=X S X=DIP(1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(YEARS)""~"
^DIPT(768,"F",6)="W "" "";C1;Z;""W "" """"~W "" "";C1;Z;""W "" """"~"
^DIPT(768,"F",7)="S X=""Tumor Registrar"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""Tumor Registrar"")""~"
^DIPT(768,"F",8)="W "" "";C1;Z;""W "" """"~"
^DIPT(768,"F",9)="S DIP(1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(#1)""~"
^DIPT(768,"F",10)="W "" "";C1;Z;""W "" """"~"
^DIPT(768,"F",11)="S DIP(1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,2),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(#1.02)""~"
^DIPT(768,"H")="W !"
^DIPT(769,0)="ONCO SITE-QA REPORT^2920402.0707^^160.1^^@^^"
^DIPT(769,"F",1)=".011~.021~.032~W "" "";C1;Z;""W "" """"~W "" "";C1;Z;""W "" """"~"
^DIPT(769,"F",2)="X $P(^DD(160.1,.041,0),U,5,99) S DIP(1)=X S X=DIP(1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(YEARS)""~"
^DIPT(769,"F",3)="W "" "";C1;Z;""W "" """"~W "" "";C1;Z;""W "" """"~"
^DIPT(769,"F",4)="S X=""Tumor Registrar"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""Tumor Registrar"")""~"
^DIPT(769,"F",5)="W "" "";C1;Z;""W "" """"~"
^DIPT(769,"F",6)="S DIP(1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(#1)""~"
^DIPT(769,"F",7)="W "" "";C1;Z;""W "" """"~"
^DIPT(769,"F",8)="S DIP(1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,2),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(#1.02)""~"
^DIPT(769,"H")="W @IOF,!!!?15,""QA REPORT"",!!"
^DIPT(770,0)="ONCO NEG-REPORT^2920524.2138^^160.1^^@^2960624^"
^DIPT(770,"F",2)="20~"
^DIPT(770,"H")="@"
^DIPT(770,"SUB")="1"
^DIPT(771,0)="ONCO PATIENT INDX-EOVA132^3000417.0937^^160^^@^3000417"
^DIPT(771,"DXS",1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M"
^DIPT(771,"DXS",1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^ONCO(165.5,""C"",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(1,9.2) Q:'$D(D) S D=D0"
^DIPT(771,"DXS",2,9.2)="S DIP(101)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$S('$D(^VA(200,+$P(DIP(101),U,3),0)):"""",1:$P(^(0),U,1)),DIP(102)=X S X="","",DIP(103)=X S X=1"
^DIPT(771,"DXS",3,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),I(101,0)=$S($D(D1):D1,1:"""") S DIP(203)=$C(59)_$S($D(^DD(160.04,1,0)):$P(^(0),U,3),1:""""),DIP(202)="""""
^DIPT(771,"DXS",3,9.3)="X DXS(3,9.2) X ""F D1=0:0 S D1=$O(^ONCO(160,I(0,0),""""F"""",D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,2),1:"""""""") S:Y'?."""" """" DIP(202)=Y"" S D(1)=D1 S X=DIP(202)"
^DIPT(771,"F",1)=".01;C1;L23~2;C25;L11~D DOB^ONCOES;X;Z;""D DOB^ONCOES""~W X;C41;L8;""DOB"";Z;""W X""~8;C54;L10~"
^DIPT(771,"F",2)="-165.5,^ONCO(165.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.3) S X="""" S D0=I(0,0);Z;""ONCO:""~"
^DIPT(771,"F",3)="-165.5,X DXS(2,9.2) S X=$P(DIP(102),DIP(103),X) W X K DIP;""ABSTRACTER"";C66;L14;Z;""$P(ABSTRACTER,"","",1)""~-165.5,.05;""ACC #"";C82~-165.5,.01;C92;L16~"
^DIPT(771,"F",4)="-165.5,3;""DX DATE"";C112;L10~"
^DIPT(771,"F",5)="-165.5,X DXS(3,9.3) S X=$P($P(DIP(203),$C(59)_X_"":"",2),$C(59),1) S D0=I(100,0) S D1=I(101,0) W X K DIP;""STATUS"";C124;L6;Z;""LAST(400:VITAL STATUS)""~"
^DIPT(771,"H")="ONCOLOGY PATIENT LIST"
^DIPT(774,0)="ONCO XPATIENT DATA^2980701.1322^^160^^@^3001107"
^DIPT(774,"DXS",1,0)="Non-Spanish, non-Hispanic"
^DIPT(774,"DXS",1,1)="Mexican"
^DIPT(774,"DXS",1,2)="Puerto Rican"
^DIPT(774,"DXS",1,3)="Cuban"
^DIPT(774,"DXS",1,4)="South/Central American"
^DIPT(774,"DXS",1,5)="Other specified Spanish/Hispanic"
^DIPT(774,"DXS",1,6)="Spanish, Hispanic, Latino, NOS"
^DIPT(774,"DXS",1,7)="Spanish surname only"
^DIPT(774,"DXS",1,8)="Dominican Republic"
^DIPT(774,"DXS",1,9)="Unknown/not stated"
^DIPT(774,"DXS",2,1)="Male"
^DIPT(774,"DXS",2,2)="Female"
^DIPT(774,"DXS",2,3)="Other (hermaphrodite)"
^DIPT(774,"DXS",2,4)="Transsexual"
^DIPT(774,"DXS",2,9)="Not stated"
^DIPT(774,"F",2)="""Place of Birth: "";C5;X;S~7;X;C21~""Race: "";C55~8;C61;X;L19~""Spanish origin: "";C5;X~9;C21;X~""Sex: "";C55;X~10;C61;X~"
^DIPT(774,"H")="@"
^DIPT(774,"IOM")="80"
^DIPT(774,"LAST")=""
^DIPT(774,"ROU")="^ONCOXP1"
^DIPT(774,"ROUOLD")="ONCOXP1"
^DIPT(774,"SUB")="1"
^DIPT(775,0)="ONCO PATIENT INDX80^2990909.1119^^160^^@^3000417"
^DIPT(775,"DXS",1,9.2)="S D=0 F S (D,D0)=$O(^ONCO(165.5,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(775,"F",1)=".01;C1;L19~2;C21;L11~10;""SX"";C34;L1~-165.5,^ONCO(165.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""ONCO:""~"
^DIPT(775,"F",2)="-165.5,.061;""ACC/SEQ #"";C37;L13~-165.5,.01;""PRIMARY SITE/GP"";C52;L17~-165.5,3;""DATE DX"";C71;L10~"
^DIPT(775,"H")="ONCOLOGY PATIENT LIST"
^DIPT(776,0)="ONCO PATIENT INDX-ACOS^3010411.102^^160^^@^3010411"
^DIPT(776,"DXS",1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M"
^DIPT(776,"DXS",1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^ONCO(165.5,""C"",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(1,9.2) Q:'$D(D) S D=D0"
^DIPT(776,"DXS",2,9)="X ""N I,Y ""_$P(^DD(165.5,20.1,0),U,5,99) S DIP(101)=X S DIP(102)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=DIP(101)_"" ""_$S('$D(^ONCO(164,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(776,"F",1)=".01;C1;L18~2;C20;L11;X~10;C32;L1;X~D DOB^ONCOES;X;Z;""D DOB^ONCOES""~W X;C34;L10;Z;""W X""~29;C46;L10~"
^DIPT(776,"F",2)="-165.5,^ONCO(165.5,^1^S I(0,0)=$G(D0) X DXS(1,9.3) S X="""" S D0=I(0,0);Z;""ONCOLOGY PRIMARY:""~-165.5,.061;C58;L13;X~-165.5,3;C73;L10~"
^DIPT(776,"F",3)="-165.5,X DXS(2,9) W X K DIP;C85;L21;X;Z;""ICDO TOPOGRAPHY-CODE_"" ""_ICDO-TOPOGRAPHY""~"
^DIPT(776,"F",4)="-165.5,S DIP(101)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(101),U,8),X=X W X K DIP;C108;L1;Z;""INTERNAL(LATERALITY)""~-165.5,22.3;C111;L22;X~"
^DIPT(776,"H")="[ONCO PATIENT INDX-ACOS-HDR]"
^DIPT(777,0)="ONCO SUSPENSE-HDR^2991029.161^^160^^@^3000404"
^DIPT(777,"DXS",1,9)="W !,""-----------------------------------------------------------------------------------------------------------------------------------"""
^DIPT(777,"DXS",2,9)="W !,""-----------------------------------------------------------------------------------------------------------------------------------"""
^DIPT(777,"F",1)=""
^DIPT(777,"F",2)="X DXS(1,9);Z;""W !,""-----------------------------------------------------------------------------------------------------------------------------------""""~"
^DIPT(777,"F",3)="""SUSPENSE PATIENT LIST"";C55~""Patient Name"";C1;X~""SSN"";C28~""Organ/Tissue"";X;C42~""Lab Morphology"";X;C69~""Suspense Dt"";X;C96~""Admission"";X;C110~"
^DIPT(777,"F",4)="""Discharge"";X;C123~"
^DIPT(777,"F",5)="X DXS(2,9);Z;""W !,""-----------------------------------------------------------------------------------------------------------------------------------""""~"
^DIPT(777,"H")="@"
^DIPT(777,"SUB")="1"
^DIPT(778,0)="ONCO SUSPENSE^3030203.1055^^160^^@^3030403"
^DIPT(778,"DCL","160^.01")="!"
^DIPT(778,"F",2)=".01;C1;X;L24~2;C28;L11~75,5;C42;X;L24~75,4;C69;X;L24~75,.01;X;C96;L11~33.1;C110;L10~33.2;C123;L10~"
^DIPT(778,"H")="[ONCO SUSPENSE-HDR]"
^DIPT(779,0)="ONCO PATIENT ONLY-HDR^2991101.093^^160^^@^3000403"
^DIPT(779,"%D",0)="^^1^1^2900718^"
^DIPT(779,"%D",1,0)="HEADER FOR Oncology patient list with Last Admit and Last Discharge date."
^DIPT(779,"F",1)=""
^DIPT(779,"F",2)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(779,"F",3)="""ONCOLOGY PATIENT ONLY"";C30~""Patient Name"";C1;X~""SSN"";C28;X~""Suspense"";X;C41~""Last Admit"";X;C56~""Last Disch"";X;C69~"
^DIPT(779,"F",4)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(779,"H")="@"
^DIPT(779,"SUB")="1"
^DIPT(780,0)="ONCO PATIENT ONLY^3000525.0936^^160^^@^3000808"
^DIPT(780,"%D",0)="^^1^1^2900718^"
^DIPT(780,"%D",1,0)="Oncology Patient listing with Last Admit and Discharge dates."
^DIPT(780,"F",1)=".01;C1;X;L25~2;C28;L11~75,.01;L10~D LAD^ONCOCON,DATEOT^ONCOES;Z;""D LAD^ONCOCON,DATEOT^ONCOES""~W X;C56;L10;Z;""W X""~"
^DIPT(780,"F",2)="D LDD^ONCOCON,DATEOT^ONCOES;Z;""D LDD^ONCOCON,DATEOT^ONCOES""~W X;C69;L10;Z;""W X""~"
^DIPT(780,"H")="[ONCO PATIENT ONLY-HDR]"
^DIPT(781,0)="ONCO DUE FOLLOWUP^3060330.1006^^160^^@^3060406"
^DIPT(781,"DCL","160^.01")="!"
^DIPT(781,"DXS",1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^ONCO(165.5,D,0)) S X=$P(^(0),U) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U) S DIXX=DIXX(1) D M"
^DIPT(781,"DXS",1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^ONCO(165.5,""C"",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(1,9.2) Q:'$D(D) S D=D0"
^DIPT(781,"F",1)=".01;C1;L22~2;C25;L11~D DLC^ONCOCRF,DATEOT^ONCOES;Z;""D DLC^ONCOCRF,DATEOT^ONCOES""~W X;C38;L8;Z;""W X""~"
^DIPT(781,"F",2)="-165.5,^ONCO(165.5,^1^S I(0,0)=$G(D0) X DXS(1,9.3) S X="""" S D0=I(0,0);Z;""ONCOLOGY PRIMARY:""~-165.5,.01;C50;L17~-165.5,3;C69;L10~"
^DIPT(781,"H")="[ONCO DUE FOLLOWUP-HDR]"
^DIPT(782,0)="ONCO FOLLOWUP HISTORY-HDR^2970304.0942^^160^^@^2970428"
^DIPT(782,"F",1)="""********************************************************************************"";C1~""DUE Follow-up: "";C1~27;C16~""PATIENT FOLLOW-UP HISTORY"";C30~"
^DIPT(782,"F",2)="45;C58;L12~""PAGE: "";C73;L5~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C79;R2;Z;""PAGE""~W "" "";C1;Z;""W "" """"~.01;C1~2;C35;L11~""DOB: "";C64~3;C69;L12~"
^DIPT(782,"F",3)="""********************************************************************************"";C1~"
^DIPT(782,"H")="@"
^DIPT(782,"SUB")="1"
^DIPT(783,0)="ONCO DELINQUENT(LTF) LIST^3060330.1005^^160^^@^3060330"
^DIPT(783,"DCL","160^.01")="!"
^DIPT(783,"DXS",1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^ONCO(165.5,D,0)) S X=$P(^(0),U) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U) S DIXX=DIXX(1) D M"
^DIPT(783,"DXS",1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^ONCO(165.5,""C"",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(1,9.2) Q:'$D(D) S D=D0"
^DIPT(783,"F",1)=".01;C1;L22~2;C24;L11~D DLC^ONCOCRF,DATEOT^ONCOES;X;Z;""D DLC^ONCOCRF,DATEOT^ONCOES""~W X;C37;L8;""DATE LAST CONTACT"";Z;""W X""~"
^DIPT(783,"F",2)="-165.5,^ONCO(165.5,^1^S I(0,0)=$G(D0) X DXS(1,9.3) S X="""" S D0=I(0,0);Z;""ONCOLOGY PRIMARY:""~-165.5,.01;C49;L17~-165.5,3;C69;L10~"
^DIPT(783,"H")="ONCOLOGY DELINQUENT (LTF) LIST"
^DIPT(784,0)="ONCO FOLLOWUP STATUS RPT^2990909.1133^^160^^@^3000404"
^DIPT(784,"DXS",1,9.2)="S D=0 F S (D,D0)=$O(^ONCO(165.5,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(784,"F",1)=".01;C1;L21~2;C23;L11~D DLC^ONCOCRF,DATEOT^ONCOES;X;Z;""D DLC^ONCOCRF,DATEOT^ONCOES""~W X;C36;L10;""DATE LAST CONTACT"";Z;""W X""~15;C48;L5~15.2;C55;L8~"
^DIPT(784,"F",2)="27;C65;L10~-165.5,^ONCO(165.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""ONCOLOGY PRIMARY:""~-165.5,.01;C77;L17~-165.5,3;C95;L10~"
^DIPT(784,"F",3)="-165.5,.042;C107;L12~-165.5,.061;C120~"
^DIPT(784,"H")="ONCOLOGY FOLLOW-UP STATUS LIST"
^DIPT(785,0)="ONCO FOLLOWUP PATIENT RPT^2920226.1504^^160^^@^2960221^"
^DIPT(785,"DXS",1,9.2)="F D=0:0 S (D,D0)=$N(^ONCO(165.5,""C"",I(0,0),D)) Q:D'>0 I $D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D0"
^DIPT(785,"DXS",2,9)="X DXS(2,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(785,"DXS",2,9.2)="S X=10"
^DIPT(785,"DXS",3,9)="X DXS(3,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(785,"DXS",3,9.2)="S X=10"
^DIPT(785,"F",1)="""Site of Malignancy: "";C10~S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0) W X K DIP;X;m;Z;""PRIMARY""~"
^DIPT(785,"F",2)="S X=""="",DIP(1)=X S X=69,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C10;S1;Z;""DUP(""="",69)""~"
^DIPT(785,"F",3)="""Date of Last Contact: "";C10;S1~16;X~""Vital Status: "";C56~15;X~""Name of Last Contact: "";C10~15.1;X~""Follow-up Status: "";C52~15.2;X~"
^DIPT(785,"F",4)="S X=""="",DIP(1)=X S X=69,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C10;S1;Z;""DUP(""="",69)""~"
^DIPT(785,"F",5)="""AVAILABLE CONTACTS"";C10;S1~""=================="";C10~420,"" "";C1~420,.01;C10~"
^DIPT(785,"F",6)="420,-165,^ONCO(165,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(160,D0,""C"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""NAME:""~420,-165,3;C30~"
^DIPT(785,"F",7)="420,-165,.01;C30~420,-165,.131;C30~420,-165,.132;C30~420,-165,.133;C30~420,-165,.134;C30~420,-165,.111;C30~420,-165,.112;C30~420,-165,.113;C30~"
^DIPT(785,"F",8)="420,-165,.119;C30~420,-165,"" "";C1~"" "";C1~X DXS(2,9) W X K DIP;X;Z;""PAGEFEED(10)""~""PAST FOLLOW-UP ATTEMPTS"";C10;S1~""======================"";C10~"
^DIPT(785,"F",9)="410,.01;C20;S1~410,1;C10~410,2;C10~410,3;C10~410,4;C10~X DXS(3,9) W X K DIP;X;Z;""PAGEFEED(10)""~""HISTORY OF SUCCESSFUL FOLLOW-UP"";C25;S1~"
^DIPT(785,"F",10)="""=============================="";C25~46~"
^DIPT(785,"H")="[ONCO FOLLOWUP PATIENT RPT-HDR]"
^DIPT(786,0)="ONCO DUE FOLLOWUP-ADM/DIS^2980317.0947^^160^^@^2980317"
^DIPT(786,"DXS",1,9.2)="S D=0 F S (D,D0)=$O(^ONCO(165.5,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(786,"F",1)=".01;C1;L17~2;C19;L11~-165.5,^ONCO(165.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""ONCO:""~-165.5,.01;C32;L15~-165.5,3;C48;L10~"
^DIPT(786,"F",2)="D LAD^ONCOCON,DATEOT^ONCOES;X;Z;""D LAD^ONCOCON,DATEOT^ONCOES""~W X;C59;L10;""LAST ADMIT DATE"";Z;""W X""~"
^DIPT(786,"F",3)="D LDD^ONCOCON,DATEOT^ONCOES;X;Z;""D LDD^ONCOCON,DATEOT^ONCOES""~W X;C70;L10;""LAST DISCHARGE DATE"";Z;""W X""~"
^DIPT(786,"H")="[ONCO DUE FOLLOWUP-ADM/DIS-HDR]"
^DIPT(787,0)="ONCO DUE FOLLOWUP-ADM/DIS-HDR^2980317.0951^^160^^@^2980317"
^DIPT(787,"F",1)="""********************************************************************************"";C1;~""ONCOLOGY Patient DUE FOLLOW-UP LIST"";C1~45;C45;L18~"
^DIPT(787,"F",2)="""PAGE: "";C73~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C79;R2;Z;""PAGE""~"" "";C1~""Patient Name"";C1;X~""Med Rec #"";C19;X~""Primary Site/Gp"";C32;X~""Date Dx"";C48;X~"
^DIPT(787,"F",3)="""Last Adm"";C59;X~""Last Dis"";C70;X~""********************************************************************************"";C1~"
^DIPT(787,"H")="@"
^DIPT(787,"SUB")="1"
^DIPT(788,0)="ONCO XDEATH INFO^3050216.1303^^160^^@^3050325"
^DIPT(788,"DXS",1,"D")="Directly related"
^DIPT(788,"DXS",1,"I")="Indirectly related"
^DIPT(788,"DXS",1,"N")="Not related"
^DIPT(788,"DXS",1,"U")="Unknown"
^DIPT(788,"DXS",2,0)="Patient alive at last follow-up"
^DIPT(788,"DXS",2,8)="ICDA-8"
^DIPT(788,"DXS",2,9)="ICD-9"
^DIPT(788,"DXS",3,0)="Patient alive"
^DIPT(788,"DXS",3,1)="Autopsy performed"
^DIPT(788,"DXS",3,2)="No autopsy performed"
^DIPT(788,"DXS",3,9)="Patient expired, unknown if autopsy performed"
^DIPT(788,"F",1)="""***********DEATH INFORMATION**********"";C20;X~"" "";C20;X~""Date: "";C5;X~29;X;~""Place: "";X;C45;L7~21;X~""Cause of Death/Cancer: "";X;C5~18.9;X~"
^DIPT(788,"F",2)="""ICD Cause: "";X;C5~-80,^ICD9(^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""19:""~-80,3;X~"
^DIPT(788,"F",3)="I $P($G(^ONCO(160,D0,1)),""^"",3)="""" D WRTSDC^ONCOAI;Z;""I $P($G(^ONCO(160,D0,1)),""^"",3)="""" D WRTSDC^ONCOAI""~""Care Center: "";X;C5;L13~24.5;X~"
^DIPT(788,"F",4)="""ICD Revision: "";X;C45~20;X~""Autopsy: "";C5~22.9;X~"" "";X~23;X~"" Autopsy #: "";X;C43~24;X~K ^UTILITY($J,""W"");Z;""K ^UTILITY($J,""W"")""~"
^DIPT(788,"F",5)="""Path/Autopsy (Gross & Micro):"";C5;X~31,.01;C7;X;L66;W~"" "";C20;X~"
^DIPT(788,"H")="@"
^DIPT(788,"IOM")="80"
^DIPT(788,"LAST")=""
^DIPT(788,"ROU")="^ONCOXDI"
^DIPT(788,"ROUOLD")="ONCOXDI"
^DIPT(788,"SUB")="1"
^DIPT(790,0)="ONCO DUE FOLLOWUP/TERMDIG^2980317.0954^^160^^@^2980317"
^DIPT(790,"DCL","160^2")="!"
^DIPT(790,"F",1)=".01;C1;L30~2;C35;L11~D LAD^ONCOCON,DATEOT^ONCOES;Z;""D LAD^ONCOCON,DATEOT^ONCOES""~W X;C55;L8;Z;""W X""~"
^DIPT(790,"F",2)="D LDD^ONCOCON,DATEOT^ONCOES;Z;""D LDD^ONCOCON,DATEOT^ONCOES""~W X;C71;L10;Z;""W X""~"
^DIPT(790,"H")="[ONCO DUE FOLLOWUP/TERMDIG-HDR]"
^DIPT(792,0)="ONCO DUE FOLLOWUP/TERMDIG-HDR^2980317.0956^^160^^@^2980317"
^DIPT(792,"F",1)="""********************************************************************************"";C1~""ONCOLOGY 'DUE Follow-up' CHART Request - FILEROOM"";C1~"
^DIPT(792,"F",2)="45;C58;L12~""PAGE: "";C73;L5~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C79;R2;Z;""PAGE""~W "" "";C1;Z;""W "" """"~""Patient"";C1;X~""Medical"";C35;X~""LAST"";C58;X~"
^DIPT(792,"F",3)="""LAST"";C74;X~""NAME"";C4;X~""Record#"";C35;X~""Admission"";X;C55~""Discharge"";X;C71~"
^DIPT(792,"F",4)="W ""********************************************************************************"";C1;Z;;Z;""W ""********************************************************************************""""~"
^DIPT(792,"F",5)="33.2~"
^DIPT(792,"H")="@"
^DIPT(792,"SUB")="1"
^DIPT(793,0)="ONCO XCONTACT LIST^2920226.143^^160^^@^^"
^DIPT(793,"DXS",1,9)="X DXS(1,9.2) S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DIPT(793,"DXS",1,9.2)="S X=10"
^DIPT(793,"DXS",2,"FR")="Friend"
^DIPT(793,"DXS",2,"GR")="Guardian"
^DIPT(793,"DXS",2,"HOSP")="Hospital"
^DIPT(793,"DXS",2,"HP")="Hospice"
^DIPT(793,"DXS",2,"INST")="Institution"
^DIPT(793,"DXS",2,"KIN")="Other Kin"
^DIPT(793,"DXS",2,"MD")="Physician"
^DIPT(793,"DXS",2,"NH")="Nursing Home"
^DIPT(793,"DXS",2,"NOK")="Next of Kin"
^DIPT(793,"DXS",2,"OTH")="Other"
^DIPT(793,"DXS",2,"PT")="Patient"
^DIPT(793,"DXS",2,"SO")="Significant Other"
^DIPT(793,"DXS",2,"TR")="Tumor Registrar"
^DIPT(793,"F",1)="""AVAILABLE CONTACTS"";C10;S1~""=================="";C10~420,"" "";C1~420,.01;C10~"
^DIPT(793,"F",2)="420,-165,^ONCO(165,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(160,D0,""C"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""NAME:""~420,-165,3;C30~"
^DIPT(793,"F",3)="420,-165,.01;C30~420,-165,.131;C30~420,-165,.132;C30~420,-165,.133;C30~420,-165,.134;C30~420,-165,.111;C30~420,-165,.112;C30~420,-165,.113;C30~"
^DIPT(793,"F",4)="420,-165,.119;C30~420,-165,"" "";C1~"" "";C1~X DXS(1,9) W X K DIP;X;Z;""PAGEFEED(10)""~"
^DIPT(793,"H")="@"
^DIPT(793,"IOM")="80"
^DIPT(793,"LAST")=""
^DIPT(793,"ROU")="^ONCOXCL"
^DIPT(793,"ROUOLD")="ONCOXCL"
^DIPT(793,"SUB")="1"
^DIPT(794,0)="ONCO DUE FOLLOWUP-HDR^3000404.1122^^160^^@^3040105"
^DIPT(794,"F",1)="""********************************************************************************"";C1~""TUMOR REGISTRY - DUE FOLLOW-UP"";C1~"
^DIPT(794,"F",2)="S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C35;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~45;C58;L18~""PAGE: "";C73~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C79;R2;Z;""PAGE""~"
^DIPT(794,"F",3)=""" "";C1~""Patient Name"";C1;X~""Med Rec#"";C25;X~""Contact"";C38;X~""Primary Site/Gp"";C50;X~""Date Dx"";C69;X~"
^DIPT(794,"F",4)="""********************************************************************************"";C1~"
^DIPT(794,"H")="@"
^DIPT(794,"SUB")="1"
^DIPT(795,0)="ONCO PATIENT INDX-ACOS-HDR^3050621.1158^^160^^@^3050621"
^DIPT(795,"%D",0)="^^1^1^2910319^"
^DIPT(795,"%D",1,0)="HEADER TEMPLATE for ACOS Patient Index in 132 column format."
^DIPT(795,"F",1)="""************************************************************************************************************************************"";C1~"
^DIPT(795,"F",2)="""ACOS PATIENT INDEX: "";C1~.012;C21~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C55;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(795,"F",3)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C90;L18;Z;""NOW"";d~""PAGE: "";C122~"
^DIPT(795,"F",4)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C128;R5;Z;""PAGE""~"" "";C1~""PATIENT NAME"";C1~""MED RECORD#"";C20~""S"";C32~""DT-BIRTH"";C34~""DT-DEATH"";C46~""ACC/SEQ-NO"";C58~"
^DIPT(795,"F",5)="""DATE DX"";C73~""ICDO - TOPOGRAPHY"";C85;~""L"";C108~""ICDO - MORPHOLOGY"";C111;~"
^DIPT(795,"F",6)="""************************************************************************************************************************************"";C1~"
^DIPT(795,"H")="@"
^DIPT(795,"SUB")="1"
^DIPT(796,0)="ONCO FOLLOWUP HISTORY^3000203.1555^^160^^@^3000210"
^DIPT(796,"F",1)="""Site of Malignancy: "";C10~49~""Date of Last Contact: "";C10;S1~16;X~""Vital Status: "";C56~15;X~""Name of Last Contact: "";C10~15.1;X~"
^DIPT(796,"F",2)="""Follow-up Status: "";C52~15.2;X~""HISTORY OF SUCCESSFUL FOLLOW-UP"";C25;S1~46~"
^DIPT(796,"H")="[ONCO FOLLOWUP HISTORY-HDR]"
^DIPT(797,0)="ONCO FOLLOWUP PATIENT RPT-HDR^2970304.1001^^160^^@^2970304"
^DIPT(797,"F",1)="""********************************************************************************"";C1~""DUE Follow-up: "";C1~27;C16~""PATIENT FOLLOW-UP REPORT"";C30~"
^DIPT(797,"F",2)="45;C58;L12~""PAGE: "";C73;L5~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C79;R2;Z;""PAGE""~W "" "";C1;Z;""W "" """"~.01;C1~2;C35;L11~""DOB: "";C64~3;C69;L12~"
^DIPT(797,"F",3)="""********************************************************************************"";C1~"
^DIPT(797,"H")="@"
^DIPT(797,"SUB")="1"
^DIPT(798,0)="ONCO FOLLOW-UP STATUS LIST^2980317.1007^^160^^@^2980317"
^DIPT(798,"DCL","160^2")="!"
^DIPT(798,"DXS",1,9.2)="S D=0 F S (D,D0)=$O(^ONCO(165.5,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(798,"F",1)=".01;C1;L22~2;C24;L11~D DLC^ONCOCRF,DATEOT^ONCOES;X;Z;""D DLC^ONCOCRF,DATEOT^ONCOES""~W X;C37;L10;""DATE LAST CONTACT"";Z;""W X""~15;C49;L5~27;C56;L8~"
^DIPT(798,"F",2)="-165.5,^ONCO(165.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""ONCOLOGY PRIMARY:""~-165.5,.01;C66;L18~-165.5,3;C86;L10~-165.5,95;C98;L10~"
^DIPT(798,"F",3)="-165.5,.042;C110;L12~-165.5,.061;C123~"
^DIPT(798,"H")="ONCOLOGY FOLLOW-UP STATUS LIST"
^DIPT(799,0)="ONCO LAB-CASEFINDING-HDR^3050620.1553^^160^^@^3050712"
^DIPT(799,"F",1)=""
^DIPT(799,"F",2)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(799,"F",3)="""LAB-CASEFINDING LIST"";C1~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C35;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(799,"F",4)="S X=DT D DD^ONCOES W X;C70;Z;""S X=DT D DD^ONCOES W X""~""Patient Name"";C1;L20;X~""PID"";C23;X;L5~""Suspense Date"";C30;X~""Source"";C45;X~"
^DIPT(799,"F",5)="""Date Last Contact"";C55;X~"
^DIPT(799,"F",6)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(799,"H")="@"
^DIPT(799,"SUB")="1"
^DIPT(800,0)="ONCO LAB-CASEFINDING REPORT^2910917.1236^^160^^@^^"
^DIPT(800,"F",2)="53~"
^DIPT(800,"H")="[ONCO LAB-CASEFINDING-HDR]"
^DIPT(801,0)="ONCO PTF-CASEFINDING-HDR^3050617.1455^^160^^@^3050629"
^DIPT(801,"F",1)=""
^DIPT(801,"F",2)="W !,""--------------------------------------------------------------------------------"";Z;;Z;""W !,""--------------------------------------------------------------------------------""""~"
^DIPT(801,"F",3)="""PTF-CASEFINDING LIST"";C1~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C35;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(801,"F",4)="S X=DT D DD^ONCOES W X;C70;X;;Z;""S X=DT D DD^ONCOES W X""~""Patient Name"";C1;X~""PID"";C23;X~""Admission - Discharge"";X;C31~"
^DIPT(801,"F",5)="W !,""--------------------------------------------------------------------------------"";Z;;Z;""W !,""--------------------------------------------------------------------------------""""~"
^DIPT(801,"H")="@"
^DIPT(801,"SUB")="1"
^DIPT(802,0)="ONCO PTF-CASEFINDING RPT^2920203^^160^^@^2951219^"
^DIPT(802,"F",2)="54~"
^DIPT(802,"H")="[ONCO PTF-CASEFINDING-HDR]"
^DIPT(802,"SUB")="1"
^DIPT(803,0)="ONCO RAD-CASEFINDING RPT^2920204.2102^^160^^@^2971030^"
^DIPT(803,"F",2)="58~"
^DIPT(803,"H")="[ONCO RAD-CASEFINDING-HDR]"
^DIPT(803,"SUB")="1"
^DIPT(804,0)="ONCO RAD-CASEFINDING-HDR^3061011.1116^^160^^@^3061101"
^DIPT(804,"%D",0)="^^1^1^2920206^"
^DIPT(804,"%D",1,0)="Header for Radiology Casefinding Search."
^DIPT(804,"F",1)=""
^DIPT(804,"F",2)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(804,"F",3)="""RADIOLOGY CASEFINDING LIST"";C1~W:$G(DUZ(2)) $P($G(^DIC(4,DUZ(2),0)),U,1);C38;Z;""W:$G(DUZ(2)) $P($G(^DIC(4,DUZ(2),0)),U,1)""~"
^DIPT(804,"F",4)="S X=DT D DD^ONCOES W X;C68;Z;""S X=DT D DD^ONCOES W X""~""Patient Name"";C1;L30;X~""PtID#"";C32;X;L5~""Exam Date"";C40;X~""Procedure"";C60;X;~"
^DIPT(804,"F",5)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(804,"H")="@"
^DIPT(804,"SUB")="1"
^DIPT(807,0)="ONCO XPATIENT CONTACTS^2920506.1711^^160^^@^^"
^DIPT(807,"DXS",1,"FR")="Friend"
^DIPT(807,"DXS",1,"GR")="Guardian"
^DIPT(807,"DXS",1,"HOSP")="Hospital"
^DIPT(807,"DXS",1,"HP")="Hospice"
^DIPT(807,"DXS",1,"INST")="Institution"
^DIPT(807,"DXS",1,"KIN")="Other Kin"
^DIPT(807,"DXS",1,"MD")="Physician"
^DIPT(807,"DXS",1,"NH")="Nursing Home"
^DIPT(807,"DXS",1,"NOK")="Next of Kin"
^DIPT(807,"DXS",1,"OTH")="Other"
^DIPT(807,"DXS",1,"PT")="Patient"
^DIPT(807,"DXS",1,"SO")="Significant "
^DIPT(807,"DXS",1,"TR")="Tumor Regist"
^DIPT(807,"F",2)="420,""Type: "";C10;L6~420,.01;C16;L12~420,""Name: "";C35;L6~420,1;C42;L30~"
^DIPT(807,"H")="ONCOLOGY PATIENT LIST"
^DIPT(807,"IOM")="80"
^DIPT(807,"LAST")=""
^DIPT(807,"ROU")="^ONCOXPC"
^DIPT(807,"ROUOLD")="ONCOXPC"
^DIPT(808,0)="ONCO CASEFINDING REPORT^2920524.2242^^160^^@^3000331^"
^DIPT(808,"F",2)="53~"
^DIPT(808,"H")="[ONCO CASEFINDING-HDR]"
^DIPT(809,0)="ONCO CASEFINDING-HDR^2991222.1551^^160^^@^3050617"
^DIPT(809,"F",1)=""
^DIPT(809,"F",2)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(809,"F",3)="""CASE FINDING LIST"";C1~W $P(^DIC(4,DUZ(2),0),U,1);C30;Z;""W $P(^DIC(4,DUZ(2),0),U,1)""~S X=DT D DD^ONCOES W X;C68;Z;""S X=DT D DD^ONCOES W X""~"
^DIPT(809,"F",4)="""Patient Name"";C1;L20;X~""PtID#"";C23;X;L5~""Lab Test"";C30;X~""Organ/Tissue"";C45;X;~""CODE-Morphology"";C61;X~"
^DIPT(809,"F",5)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(809,"H")="@"
^DIPT(809,"SUB")="1"
^DIPT(810,0)="ONCO CONTACT LIST-A^2920816.0846^^165^^@^^"
^DIPT(810,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(810,"F",1)=".01;C1;X~"
^DIPT(810,"F",2)="S DIP(1)=$S($D(^ONCO(165,D0,.11)):^(.11),1:"""") S X=$P(DIP(1),U,1)_"" ""_$P(DIP(1),U,2)_"" ""_$P(DIP(1),U,3) W X K DIP;C35;X;Z;""STREET ADDRESS 1_"" ""_STREET ADDRESS 2_"" ""_STREET ADDRESS 3""~"
^DIPT(810,"F",3)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C5;X;Z;""(LOWERCASE(TYPE))""~.119;C35;X~"
^DIPT(810,"F",4)=".131;C70;X~W "" "";C1;X;Z;""W "" """"~"
^DIPT(810,"H")="ONCOLOGY CONTACT LIST"
^DIPT(811,0)="ONCO CONTACT LIST-T^2920816.0849^^165^^@^2960401^"
^DIPT(811,"F",1)=".01;C1;X~"
^DIPT(811,"F",2)="S DIP(1)=$S($D(^ONCO(165,D0,.11)):^(.11),1:"""") S X=$P(DIP(1),U,1)_"" ""_$P(DIP(1),U,2)_"" ""_$P(DIP(1),U,3) W X K DIP;C35;X;Z;""STREET ADDRESS 1_"" ""_STREET ADDRESS 2_"" ""_STREET ADDRESS 3""~"
^DIPT(811,"F",3)=".119;C35;X~.131;C60;X~"
^DIPT(811,"H")="ONCOLOGY CONTACT LIST"
^DIPT(812,0)="ONCOY54^3051014.1039^^165.5^^@^3051014"
^DIPT(812,"DXS",1,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,58,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,26)_"":"",2),$C(59))"
^DIPT(812,"DXS",2,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,51.3,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59))"
^DIPT(812,"DXS",3,0)="None"
^DIPT(812,"DXS",3,1)="Bx/aspiration, NOS"
^DIPT(812,"DXS",3,2)="Sentinel Bx"
^DIPT(812,"DXS",3,3)="Nodes removed, num unk"
^DIPT(812,"DXS",3,4)="1-3 nodes removed"
^DIPT(812,"DXS",3,5)="4 or more nodes removed"
^DIPT(812,"DXS",3,6)="Sentinel + 3, 4 or 5, timing not s"
^DIPT(812,"DXS",3,7)="Sentinel + 3, 4, or 5, diff times"
^DIPT(812,"DXS",3,9)="Unknown/NA"
^DIPT(812,"DXS",4,0)="None"
^DIPT(812,"DXS",4,1)="Bx/aspiration, NOS"
^DIPT(812,"DXS",4,2)="Sentinel Bx"
^DIPT(812,"DXS",4,3)="Nodes removed, num unk"
^DIPT(812,"DXS",4,4)="1-3 nodes removed"
^DIPT(812,"DXS",4,5)="4 or more nodes removed"
^DIPT(812,"DXS",4,6)="Sentinel + 3, 4 or 5, timing not s"
^DIPT(812,"DXS",4,7)="Sentinel + 3, 4, or 5, diff times"
^DIPT(812,"DXS",4,9)="Unknown/NA"
^DIPT(812,"DXS",5,0)="None"
^DIPT(812,"DXS",5,1)="Nonprimary surg proc performed"
^DIPT(812,"DXS",5,2)="Nonprimary surg proc/other regiona"
^DIPT(812,"DXS",5,3)="Nonprimary surg proc/distant lymph"
^DIPT(812,"DXS",5,4)="Nonprimary surg proc/distant site"
^DIPT(812,"DXS",5,5)="Combination of codes"
^DIPT(812,"DXS",5,9)="Unknown"
^DIPT(812,"DXS",6,0)="None"
^DIPT(812,"DXS",6,1)="Nonprimary surg proc performed"
^DIPT(812,"DXS",6,2)="Nonprimary surg proc/other regiona"
^DIPT(812,"DXS",6,3)="Nonprimary surg proc/distant lymph"
^DIPT(812,"DXS",6,4)="Nonprimary surg proc/distant site"
^DIPT(812,"DXS",6,5)="Combination of codes"
^DIPT(812,"DXS",6,9)="Unknown"
^DIPT(812,"DXS",7,0)="None"
^DIPT(812,"DXS",7,1)="Beam radiation"
^DIPT(812,"DXS",7,2)="Radioactive implants"
^DIPT(812,"DXS",7,3)="Radioisotopes"
^DIPT(812,"DXS",7,4)="Beam rad w implants/radioisotopes"
^DIPT(812,"DXS",7,5)="Radiation therapy, NOS"
^DIPT(812,"DXS",7,7)="Refused radiation therapy"
^DIPT(812,"DXS",7,8)="Recommended, unk if given"
^DIPT(812,"DXS",7,9)="Unk if administered"
^DIPT(812,"DXS",8,0)="None"
^DIPT(812,"DXS",8,1)="Beam radiation"
^DIPT(812,"DXS",8,2)="Radioactive implants"
^DIPT(812,"DXS",8,3)="Radioisotopes"
^DIPT(812,"DXS",8,4)="Beam rad w implants/radioisotopes"
^DIPT(812,"DXS",8,5)="Radiation, NOS"
^DIPT(812,"DXS",8,7)="Refused radiation"
^DIPT(812,"DXS",8,8)="Recommended, unk if given"
^DIPT(812,"DXS",8,9)="Unk if admin"
^DIPT(812,"F",1)="""* FIRST COURSE OF TREATMENT *"";S1~""First Course of Treatment Date:"";C3;S1~49;C35~""Date of No Treatment..........:"";C3~124;C35~"
^DIPT(812,"F",2)="""Date First Surgical Procedure.:"";C3;S1~170;C35~""Surgery of Primary............:"";C3~50;C35~58.6;C46;L34~""Surgery of Primary @Fac.......:"";C3~50.3;C35~"
^DIPT(812,"F",3)="58.7;C46;L34~""Surgical Margins..............:"";C3~59;C35~""Scope of LN Surgery...........:"";C3~138.2;C35~138.4;C46;L34~"
^DIPT(812,"F",4)="""Scope of LN Surgery @Fac......:"";C3~138.3;C35~138.5;C46;L34~""Surg Proc/Other Site..........:"";C3~139.2;C35~139.4;C46;L34~"
^DIPT(812,"F",5)="""Surg Proc/Other Site @Fac.....:"";C3~139.3;C35~139.5;C46;L34~""Reason No Surgery of Primary..:"";C3~"
^DIPT(812,"F",6)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(#58)""~"
^DIPT(812,"F",7)="""Radiation.....................:"";C3;S1~51;C35~51.2;C46~""Radiation @Fac................:"";C3~51.5;C35~51.4;C46;L34~"
^DIPT(812,"F",8)="""Radiation/Surgery Sequence....:"";C3~"
^DIPT(812,"F",9)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(#51.3)""~"
^DIPT(812,"F",10)="""Regional Dose: cGy............:"";C3~442;C35~""Regional Treatment Modality...:"";C3~363;C35~"
^DIPT(812,"H")="@"
^DIPT(812,"IOM")="80"
^DIPT(812,"LAST")=""
^DIPT(812,"ROU")="^ONCOY54"
^DIPT(812,"ROUOLD")="ONCOY54"
^DIPT(812,"SUB")="1"
^DIPT(813,0)="ONCOY55^3051014.1134^^165.5^^@^3051014"
^DIPT(813,"DXS",1,82)="Not admin/contraindicated"
^DIPT(813,"DXS",1,85)="Pt died prior to tx"
^DIPT(813,"DXS",1,86)="Not admin, no reason given"
^DIPT(813,"DXS",1,87)="Refused by pt"
^DIPT(813,"DXS",1,88)="Unknown if admin"
^DIPT(813,"DXS",1,99)="Unknown, death cert"
^DIPT(813,"DXS",1,"00")="None"
^DIPT(813,"DXS",1,"01")="Chemotherapy, NOS"
^DIPT(813,"DXS",1,"02")="Single agent"
^DIPT(813,"DXS",1,"03")="Multiagent"
^DIPT(813,"DXS",2,82)="Not admin/contraindicated"
^DIPT(813,"DXS",2,85)="Pt died prior to tx"
^DIPT(813,"DXS",2,86)="Not admin, no reason given"
^DIPT(813,"DXS",2,87)="Refused by pt"
^DIPT(813,"DXS",2,88)="Unknown if admin"
^DIPT(813,"DXS",2,99)="Unknown, death cert"
^DIPT(813,"DXS",2,"00")="None"
^DIPT(813,"DXS",2,"01")="Chemotherapy, NOS"
^DIPT(813,"DXS",2,"02")="Single agent"
^DIPT(813,"DXS",2,"03")="Multiagent"
^DIPT(813,"DXS",3,82)="Not admin/contraindicated"
^DIPT(813,"DXS",3,85)="Pt died prior to tx"
^DIPT(813,"DXS",3,86)="Not admin, no reason given"
^DIPT(813,"DXS",3,87)="Refused by pt"
^DIPT(813,"DXS",3,88)="Unknown if admin"
^DIPT(813,"DXS",3,99)="Unknown, death cert"
^DIPT(813,"DXS",3,"00")="None"
^DIPT(813,"DXS",3,"01")="Hormone therapy"
^DIPT(813,"DXS",4,82)="Not admin/contraindicated"
^DIPT(813,"DXS",4,85)="Pt died prior to tx"
^DIPT(813,"DXS",4,86)="Not admin, no reason given"
^DIPT(813,"DXS",4,87)="Refused by pt"
^DIPT(813,"DXS",4,88)="Unknown if admin"
^DIPT(813,"DXS",4,99)="Unknown, death cert"
^DIPT(813,"DXS",4,"00")="None"
^DIPT(813,"DXS",4,"01")="Hormone therapy"
^DIPT(813,"DXS",5,82)="Not admin/contraindicated"
^DIPT(813,"DXS",5,85)="Pt died prior to tx"
^DIPT(813,"DXS",5,86)="Not admin, no reason given"
^DIPT(813,"DXS",5,87)="Refused by pt"
^DIPT(813,"DXS",5,88)="Unknown if admin"
^DIPT(813,"DXS",5,99)="Unknown, death cert"
^DIPT(813,"DXS",5,"00")="None"
^DIPT(813,"DXS",5,"01")="Immunotherapy"
^DIPT(813,"DXS",6,82)="Not admin/contraindicated"
^DIPT(813,"DXS",6,85)="Pt died prior to tx"
^DIPT(813,"DXS",6,86)="Not admin, no reason given"
^DIPT(813,"DXS",6,87)="Refused by pt"
^DIPT(813,"DXS",6,88)="Unknown if admin"
^DIPT(813,"DXS",6,99)="Unknown, death cert"
^DIPT(813,"DXS",6,"00")="None"
^DIPT(813,"DXS",6,"01")="Immunotherapy"
^DIPT(813,"DXS",7,0)="None"
^DIPT(813,"DXS",7,1)="Other"
^DIPT(813,"DXS",7,2)="Other - Experimental"
^DIPT(813,"DXS",7,3)="Other - Double Blind"
^DIPT(813,"DXS",7,6)="Other - Unproven"
^DIPT(813,"DXS",7,7)="Refusal"
^DIPT(813,"DXS",7,8)="Recommended, unknown if administer"
^DIPT(813,"DXS",7,9)="Unknown"
^DIPT(813,"DXS",8,0)="None"
^DIPT(813,"DXS",8,1)="Other"
^DIPT(813,"DXS",8,2)="Other - Experimental"
^DIPT(813,"DXS",8,3)="Other - Double Blind"
^DIPT(813,"DXS",8,6)="Other - Unproven"
^DIPT(813,"DXS",8,7)="Refusal"
^DIPT(813,"DXS",8,8)="Recommended, unknown if administer"
^DIPT(813,"DXS",8,9)="Unknown"
^DIPT(813,"DXS",9,0)="Not available"
^DIPT(813,"DXS",9,1)="On protocol"
^DIPT(813,"DXS",9,2)="Ineligible (age,stage,etc.)"
^DIPT(813,"DXS",9,3)="Ineligible (comorbidity, preexist cond)"
^DIPT(813,"DXS",9,4)="Entered but withdrawn"
^DIPT(813,"DXS",9,6)="Eligible, not entered"
^DIPT(813,"DXS",9,7)="Eligible, refused"
^DIPT(813,"DXS",9,8)="Not recommended"
^DIPT(813,"DXS",9,9)="Unknown"
^DIPT(813,"DXS",10,10)="ACS"
^DIPT(813,"DXS",10,11)="National protocol, NOS"
^DIPT(813,"DXS",10,12)="Local protocol, NOS"
^DIPT(813,"DXS",10,99)="Unknown"
^DIPT(813,"DXS",10,"00")="Not on/NA"
^DIPT(813,"DXS",10,"01")="NSABP"
^DIPT(813,"DXS",10,"02")="GOG"
^DIPT(813,"DXS",10,"03")="RTOG"
^DIPT(813,"DXS",10,"04")="SWOG"
^DIPT(813,"DXS",10,"05")="ECOG"
^DIPT(813,"DXS",10,"06")="POG"
^DIPT(813,"DXS",10,"07")="CCG"
^DIPT(813,"DXS",10,"08")="CALGB"
^DIPT(813,"DXS",10,"09")="NCI"
^DIPT(813,"F",1)="""Chemotherapy..................:"";C3;S1~53;C35~53.2;C46;L34~""Chemotherapy @Fac.............:"";C3~53.4;C35~53.3;C46;L34~"
^DIPT(813,"F",2)="""Hormone Therapy...............:"";S1;C3~54;C35~54.2;C46;L34~""Hormone Therapy @Fac..........:"";C3~54.4;C35~54.3;C46;L34~"
^DIPT(813,"F",3)="""Immunotherapy.................:"";S1;C3~55;C35~55.2;C46;L34~""Immunotherapy @Fac............:"";C3~55.4;C35~55.3;C46;L34~"
^DIPT(813,"F",4)="""Hema Trans/Endocrine Proc.....:"";S1;C3~153.1;C35~153;C46;L34~""Other Treatment...............:"";S1;C3~57;C35~57.2;C46;L34~"
^DIPT(813,"F",5)="""Other Treatment @Fac..........:"";C3~57.4;C35~57.3;C46;L34~""Protocol Eligibility Status...:"";C3;S1~346;C35~""Year Put on Protocol..........:"";C3~"
^DIPT(813,"F",6)="133;C35~""Protocol Participation........:"";C3~560;C35~""Text-Remarks:"";C3;S1~113,.01;C3~"
^DIPT(813,"H")="@"
^DIPT(813,"IOM")="80"
^DIPT(813,"LAST")=""
^DIPT(813,"ROU")="^ONCOY55"
^DIPT(813,"ROUOLD")="ONCOY55"
^DIPT(813,"SUB")="1"
^DIPT(814,0)="ONCOY56^3051206.1303^^165.5^^@^3051206"
^DIPT(814,"DXS",1,0)="None"
^DIPT(814,"DXS",1,1)="Peritoneum"
^DIPT(814,"DXS",1,2)="Lung"
^DIPT(814,"DXS",1,3)="Pleura"
^DIPT(814,"DXS",1,4)="Liver"
^DIPT(814,"DXS",1,5)="Bone"
^DIPT(814,"DXS",1,6)="Central Nervous System"
^DIPT(814,"DXS",1,7)="Skin"
^DIPT(814,"DXS",1,8)="Lymph Nodes (Distant)"
^DIPT(814,"DXS",1,9)="Other/Generalized/NOS"
^DIPT(814,"DXS",2,0)="None"
^DIPT(814,"DXS",2,1)="Peritoneum"
^DIPT(814,"DXS",2,2)="Lung"
^DIPT(814,"DXS",2,3)="Pleura"
^DIPT(814,"DXS",2,4)="Liver"
^DIPT(814,"DXS",2,5)="Bone"
^DIPT(814,"DXS",2,6)="Central Nervous System"
^DIPT(814,"DXS",2,7)="Skin"
^DIPT(814,"DXS",2,8)="Lymph Nodes (Distant)"
^DIPT(814,"DXS",2,9)="Other/Generalized/NOS"
^DIPT(814,"DXS",3,0)="None"
^DIPT(814,"DXS",3,1)="Peritoneum"
^DIPT(814,"DXS",3,2)="Lung"
^DIPT(814,"DXS",3,3)="Pleura"
^DIPT(814,"DXS",3,4)="Liver"
^DIPT(814,"DXS",3,5)="Bone"
^DIPT(814,"DXS",3,6)="Central Nervous System"
^DIPT(814,"DXS",3,7)="Skin"
^DIPT(814,"DXS",3,8)="Lymph Nodes (Distant)"
^DIPT(814,"DXS",3,9)="Other/Generalized/NOS"
^DIPT(814,"DXS",4,0)="None"
^DIPT(814,"DXS",4,1)="Peritoneum"
^DIPT(814,"DXS",4,2)="Lung"
^DIPT(814,"DXS",4,3)="Pleura"
^DIPT(814,"DXS",4,4)="Liver"
^DIPT(814,"DXS",4,5)="Bone"
^DIPT(814,"DXS",4,6)="Central Nervous System"
^DIPT(814,"DXS",4,7)="Skin"
^DIPT(814,"DXS",4,8)="Lymph Nodes (Distant)"
^DIPT(814,"DXS",4,9)="Other/Generalized/NOS"
^DIPT(814,"DXS",5,0)="None"
^DIPT(814,"DXS",5,1)="Peritoneum"
^DIPT(814,"DXS",5,2)="Lung"
^DIPT(814,"DXS",5,3)="Pleura"
^DIPT(814,"DXS",5,4)="Liver"
^DIPT(814,"DXS",5,5)="Bone"
^DIPT(814,"DXS",5,6)="Central Nervous System"
^DIPT(814,"DXS",5,7)="Skin"
^DIPT(814,"DXS",5,8)="Lymph Nodes (Distant)"
^DIPT(814,"DXS",5,9)="Other/Generalized/NOS"
^DIPT(814,"DXS",6,0)="None"
^DIPT(814,"DXS",6,1)="Peritoneum"
^DIPT(814,"DXS",6,2)="Lung"
^DIPT(814,"DXS",6,3)="Pleura"
^DIPT(814,"DXS",6,4)="Liver"
^DIPT(814,"DXS",6,5)="Bone"
^DIPT(814,"DXS",6,6)="Central Nervous System"
^DIPT(814,"DXS",6,7)="Skin"
^DIPT(814,"DXS",6,8)="Lymph Nodes (Distant)"
^DIPT(814,"DXS",6,9)="Other/Generalized/NOS"
^DIPT(814,"F",1)="""* RECURRENCES *"";S1~""Type of First Recurrence......:"";C3;S1~70;C35~71;C46;L34~""Distant Site 1................:"";C3~71.1;C35~"
^DIPT(814,"F",2)="""Distant Site 2................:"";C3~71.2;C35~""Distant Site 3................:"";C3~71.3;C35~72,""Type of Subsequent Recurrence.:"";C3;S1~72,.01;C35~"
^DIPT(814,"F",3)="72,.02;C46;L34~72,""Distant Site 1................:"";C3~72,.03;C35~72,""Distant Site 2................:"";C3~72,.031;C35~"
^DIPT(814,"F",4)="72,""Distant Site 3................:"";C3~72,.032;C35~"
^DIPT(814,"H")="@"
^DIPT(814,"IOM")="80"
^DIPT(814,"LAST")=""
^DIPT(814,"ROU")="^ONCOY56"
^DIPT(814,"ROUOLD")="ONCOY56"
^DIPT(814,"SUB")="1"
^DIPT(815,0)="ONCOY57^3051018.132^^165.5^^@^3051018"
^DIPT(815,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,4,D1,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.51,2,"""",$P(DIP(1),U,3))"
^DIPT(815,"DXS",2,0)="None"
^DIPT(815,"DXS",2,1)="Beam Radiation"
^DIPT(815,"DXS",2,2)="Radioactive Implants"
^DIPT(815,"DXS",2,3)="Radioisotopes"
^DIPT(815,"DXS",2,4)="Combination of Beam + Implants or "
^DIPT(815,"DXS",2,5)="Radiation NOS"
^DIPT(815,"DXS",2,7)="Radiation Therapy Refused"
^DIPT(815,"DXS",2,8)="Recommended, Unknown if Given"
^DIPT(815,"DXS",2,9)="Unknown if Recommended/Given"
^DIPT(815,"DXS",3,82)="Not admin/contraindicated"
^DIPT(815,"DXS",3,85)="Pt died prior to tx"
^DIPT(815,"DXS",3,86)="Not admin, no reason given"
^DIPT(815,"DXS",3,87)="Refused by pt"
^DIPT(815,"DXS",3,88)="Unknown if admin"
^DIPT(815,"DXS",3,99)="Unknown, death cert"
^DIPT(815,"DXS",3,"00")="None"
^DIPT(815,"DXS",3,"01")="Chemotherapy, NOS"
^DIPT(815,"DXS",3,"02")="Single agent"
^DIPT(815,"DXS",3,"03")="Multiagent"
^DIPT(815,"DXS",4,82)="Not admin/contraindicated"
^DIPT(815,"DXS",4,85)="Pt died prior to tx"
^DIPT(815,"DXS",4,86)="Not admin, no reason given"
^DIPT(815,"DXS",4,87)="Refused by pt"
^DIPT(815,"DXS",4,88)="Unknown if admin"
^DIPT(815,"DXS",4,99)="Unknown, death cert"
^DIPT(815,"DXS",4,"00")="None"
^DIPT(815,"DXS",4,"01")="Hormone therapy"
^DIPT(815,"DXS",5,82)="Not admin/contraindicated"
^DIPT(815,"DXS",5,85)="Pt died prior to tx"
^DIPT(815,"DXS",5,86)="Not admin, no reason given"
^DIPT(815,"DXS",5,87)="Refused by pt"
^DIPT(815,"DXS",5,88)="Unknown if admin"
^DIPT(815,"DXS",5,99)="Unknown, death cert"
^DIPT(815,"DXS",5,"00")="None"
^DIPT(815,"DXS",5,"01")="Immunotherapy"
^DIPT(815,"DXS",6,0)="None"
^DIPT(815,"DXS",6,1)="Other"
^DIPT(815,"DXS",6,2)="Other - Experimental"
^DIPT(815,"DXS",6,3)="Other - Double Blind"
^DIPT(815,"DXS",6,6)="Other - Unproven"
^DIPT(815,"DXS",6,7)="Refusal"
^DIPT(815,"DXS",6,8)="Reccommended, unknown if administe"
^DIPT(815,"DXS",6,9)="Unknown"
^DIPT(815,"F",1)="""* SUBSEQUENT COURSE OF TREATMENT *"";S1~60,""Initiation Date...............:"";C3;S1~60,.01;C35~60,""Place.........................:"";C3~"
^DIPT(815,"F",2)="60,X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PLACE)""~"
^DIPT(815,"F",3)="60,""Surgery of Primary Site.......:"";C3~60,.041;C35~60,.04;C46;L34~60,""Radiation.....................:"";C3~60,.051;C35~60,.05;C46;L34~"
^DIPT(815,"F",4)="60,""Chemotherapy..................:"";C3~60,.061;C35~60,.06;C46;L34~60,""Hormone Therapy...............:"";C3~60,.071;C35~60,.07;C46;L34~"
^DIPT(815,"F",5)="60,""Immunotherapy.................:"";C3~60,.081;C35~60,.08;C46;L34~60,""Hema Trans/Endocrine Proc.....:"";C3~60,.021;C35~60,.02;C46;L34~"
^DIPT(815,"F",6)="60,""Other Treatment...............:"";C3~60,.091;C35~60,.09;C46;L34~"
^DIPT(815,"H")="@"
^DIPT(815,"IOM")="80"
^DIPT(815,"LAST")=""
^DIPT(815,"ROU")="^ONCOY57"
^DIPT(815,"ROUOLD")="ONCOY57"
^DIPT(815,"SUB")="1"
^DIPT(816,0)="ONCOY58^3051215.0942^^165.5^^@^3051215"
^DIPT(816,"DXS",1,0)="Dead"
^DIPT(816,"DXS",1,1)="Alive"
^DIPT(816,"DXS",2,0)="Patient alive at last follow-up"
^DIPT(816,"DXS",2,8)="ICDA-8"
^DIPT(816,"DXS",2,9)="ICD-9"
^DIPT(816,"DXS",3,7777)="State death certificate or listing not availa"
^DIPT(816,"DXS",3,7797)="State death cert available, cause of death no"
^DIPT(816,"DXS",4,0)="Patient alive"
^DIPT(816,"DXS",4,1)="Autopsy performed"
^DIPT(816,"DXS",4,2)="No autopsy performed"
^DIPT(816,"DXS",4,9)="Patient expired, unknown if autopsy performed"
^DIPT(816,"F",1)="""* FOLLOW-UP *"";S1~K FUQA;Z;""K FUQA""~150~"
^DIPT(816,"F",2)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~"
^DIPT(816,"F",3)="-160,""Status........................:"";C3;S1~-160,15;C35~"
^DIPT(816,"F",4)="-160,I $P($G(^ONCO(160,D0,1)),U,1)=1 G A1R^ONCOY58;Z;""I $P($G(^ONCO(160,D0,1)),U,1)=1 G A1R^ONCOY58""~-160,""Cause of Death................:"";C3~-160,19;C35~"
^DIPT(816,"F",5)="-160,""ICD Revision..................:"";C3~-160,20;C35~-160,""State Death Cert..............:"";C3~-160,19.1;C35;L45~-160,""Autopsy.......................:"";C3~"
^DIPT(816,"F",6)="-160,22.9;C35~"
^DIPT(816,"H")="@"
^DIPT(816,"IOM")="80"
^DIPT(816,"LAST")=""
^DIPT(816,"ROU")="^ONCOY58"
^DIPT(816,"ROUOLD")="ONCOY58"
^DIPT(816,"SUB")="1"
^DIPT(817,0)="ONCOY49^3051019.0855^^165.5^^@^3060202"
^DIPT(817,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,3),0)),U)"
^DIPT(817,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.5,.03,"""",$P(DIP(1),U,3))"
^DIPT(817,"DXS",3,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,2,0),U,5,99) S DIP(101)=X"
^DIPT(817,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(164.2,+$P(DIP(1),U,1),0)),U)"
^DIPT(817,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U)"
^DIPT(817,"DXS",6,0)="Not a paired site"
^DIPT(817,"DXS",6,1)="Right"
^DIPT(817,"DXS",6,2)="Left"
^DIPT(817,"DXS",6,3)="One side involved, right/left not specified"
^DIPT(817,"DXS",6,4)="Bilateral involvement, side of origin unknown"
^DIPT(817,"DXS",6,9)="Paired site, but lateral origin unknown, midline tumor"
^DIPT(817,"F",1)="""CANCER REGISTRY EXTENDED ABSTRACT"";C3;S1~"
^DIPT(817,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,""."",1) S Y=X D DT K DIP;C65;d;L12;Z;""DATE(NOW)""~"
^DIPT(817,"F",3)="""Abstracted by.................:"";C3;S1~"
^DIPT(817,"F",4)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(ABSTRACTED BY)""~"
^DIPT(817,"F",5)="""Reporting Hospital............:"";C3~"
^DIPT(817,"F",6)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;L45;Z;""LOWERCASE(#.03)""~"
^DIPT(817,"F",7)="""FIN...........................:"";C3~-160.19,^ONCO(160.19,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;"".03:""~"
^DIPT(817,"F",8)="-160.19,.01;C35~""Date Case Completed...........:"";C3~90;C35~""Patient Name..................:"";C3~.02;C35~""SSN...........................:"";C3~"
^DIPT(817,"F",9)="X DXS(3,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C35;Z;"".02:2""~""Site/Gp.......................:"";C3~"
^DIPT(817,"F",10)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(SITE/GP)""~"
^DIPT(817,"F",11)="""Primary Site..................:"";C3~"
^DIPT(817,"F",12)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PRIMARY SITE)""~"
^DIPT(817,"F",13)="""Laterality....................:"";C3~28;C35;X~"
^DIPT(817,"H")="@"
^DIPT(817,"IOM")="80"
^DIPT(817,"LAST")=""
^DIPT(817,"ROU")="^ONCOY49"
^DIPT(817,"ROUOLD")="ONCOY49"
^DIPT(817,"SUB")="1"
^DIPT(818,0)="ONCO ANNUAL SITE/GP-HDR^3050621.114^^165.5^^@^3050621"
^DIPT(818,"F",1)="""************************************************************************************************************************************"";C1~"
^DIPT(818,"F",2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""ACOS SITE/GP INDEX - ""_$P(DIP(1),U,7)_"": "" W X K DIP;Z;""""ACOS SITE/GP INDEX - ""_ACCESSION YEAR_"": """"~"
^DIPT(818,"F",3)=".0101~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C60;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(818,"F",4)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C90;L18;d;Z;""NOW""~""PAGE "";C122;L5~"
^DIPT(818,"F",5)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C127;R6;Z;""PAGE""~"" "";C1~""PATIENT NAME"";C1~""MED RECORD#"";C22~""S"";C34~""DT-BIRTH"";C36~""DT-DEATH"";C47~""ACC/SEQ-NO"";C58~"
^DIPT(818,"F",6)="""DATE DX"";C72;~""ICDO - TOPOGRAPHY"";C83;~""ICDO - MORPHOPLOGY"";C107;~"
^DIPT(818,"F",7)="""************************************************************************************************************************************"";C1~"
^DIPT(818,"H")="@"
^DIPT(818,"SUB")="1"
^DIPT(819,0)="ONCO ANNUAL SITE/GP^3010411.0951^^165.5^^@^3010411"
^DIPT(819,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20;X~-160,2;C22;L11;X~"
^DIPT(819,"F",2)="-160,10;C34;L1;X~-160,D DOB^ONCOES;Z;""D DOB^ONCOES""~-160,W X;C36;L10;X;Z;""W X""~-160,29;C47;L10;X~.061;C58;L13;X~3;C72;L10;X~"
^DIPT(819,"F",3)="-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""20:""~-164,1;C83;L5;X~-164,.01;C89;L17;X~"
^DIPT(819,"F",4)="-169.3,^ONCO(169.3,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""22.3:""~-169.3,1;C107;L6;X~"
^DIPT(819,"F",5)="-169.3,.01;C114;L18;X~"
^DIPT(819,"H")="[ONCO ANNUAL SITE/GP-HDR]"
^DIPT(820,0)="ONCO ICDO-SITE80-HDR^2991029.1404^^165.5^^@^3000104"
^DIPT(820,"DXS",1,9)="W !,""--------------------------------------------------------------------------------"""
^DIPT(820,"DXS",2,9)="X $P(^DD(165.5,.023,0),U,5,99) S DIP(1)=X S DIP(2)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""ICDO-SITE: ""_DIP(1)_""-""_$S('$D(^ONCO(164.08,+$P(DIP(2),U,22),0)):"""",1:$P(^(0),U,1))"
^DIPT(820,"F",1)="X DXS(1,9);C1;;Z;""W !,""--------------------------------------------------------------------------------""""~"
^DIPT(820,"F",2)="X DXS(2,9) W X K DIP;C1;L52;Z;""""ICDO-SITE: ""_ICDO-SITE CODE_""-""_ICDO-SITE""~S X=DT S Y=X D DT K DIP;C55;L12;Z;""TODAY""~""PAGE"";C73;L5;X~"
^DIPT(820,"F",3)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C78;R3;X;Z;;Z;""S X=$S($D(DC)#2:DC,1:"""") W X K DIP""~"" "";C1~""PATIENT NAME"";C1~""SSN"";C22~""YEAR"";C35~""ACC/SEQ #"";C40~"
^DIPT(820,"F",4)="""TOPOGRAPHY"";C55~""DATE DX"";C71~""--------------------------------------------------------------------------------"";C1~"
^DIPT(820,"H")="@"
^DIPT(820,"SUB")="1"
^DIPT(821,0)="ONCO ICDO-SITE80^2990917.105^^165.5^^@^3000104"
^DIPT(821,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20~-160,2;C22;L11~"
^DIPT(821,"F",2)=".07;C35;L4~.061;C40;L13~20;C55;L14~3;C71;L10~"
^DIPT(821,"H")="[ONCO ICDO-SITE80-HDR]"
^DIPT(822,0)="ONCO ICDO-SITE132-HDR^3050621.1155^^165.5^^@^3050621"
^DIPT(822,"DXS",1,9)="X ""N I,Y ""_$P(^DD(165.5,20.1,0),U,5,99) S DIP(1)=X S DIP(2)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""PRIMARY SITE: ""_DIP(1)_""-""_$P($G(^ONCO(164,+$P(DIP(2),U,1),0)),U)"
^DIPT(822,"F",1)="""************************************************************************************************************************************"";C1~"
^DIPT(822,"F",2)="X DXS(1,9) W X K DIP;C1;Z;""""PRIMARY SITE: ""_PRIMARY SITE CODE_""-""_PRIMARY SITE""~"
^DIPT(822,"F",3)="S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C65;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(822,"F",4)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C90;L18;Z;""NOW"";d~""PAGE "";C122;L5~"
^DIPT(822,"F",5)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C127;R6;Z;""PAGE""~"" "";C1~""PATIENT NAME"";C1~""SSN"";C22~""DOB"";C35~""DOD"";C47~""YEAR"";C59~""ACC/SEQ #"";C65~""DATE DX"";C80~"
^DIPT(822,"F",6)="""TOPOGRAPHY"";C92~""MORPHOLOGY"";C113~"
^DIPT(822,"F",7)="""************************************************************************************************************************************"";C1~"
^DIPT(822,"H")="@"
^DIPT(822,"SUB")="1"
^DIPT(823,0)="ONCO ICDO-SITE132^3010411.0953^^165.5^^@^3010411"
^DIPT(823,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20;X~-160,2;C22;L11;X~"
^DIPT(823,"F",2)="-160,D DOB^ONCOES;Z;""D DOB^ONCOES""~-160,W X;C35;L10;X;Z;""W X""~-160,29;C47;L10;X~.07;C59;L4;X~.061;C65;L13;X~3;C80;L10;X~"
^DIPT(823,"F",3)="-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""20:""~-164,1;C92;L5;X~-164,.01;C98;L13;X~"
^DIPT(823,"F",4)="-169.3,^ONCO(169.3,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""22.3:""~-169.3,1;C113;L6;X~"
^DIPT(823,"F",5)="-169.3,.01;C120;L13;X~"
^DIPT(823,"H")="[ONCO ICDO-SITE132-HDR]"
^DIPT(824,0)="ONCO SITE80^2980317.1503^^165.5^^@^2980317"
^DIPT(824,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L21~-160,2;C23;L11~"
^DIPT(824,"F",2)=".07;C36;L4~.061;C41;L10~20;C53;L16~3;C71;L10~"
^DIPT(824,"H")="[ONCO SITE80-HEADER]"
^DIPT(825,0)="ONCO SITE80-HEADER^2980317.1507^^165.5^^@^2980317"
^DIPT(825,"F",1)=""
^DIPT(825,"F",2)="W !,""-------------------------------------------------------------------------------"";Z;""W !,""-------------------------------------------------------------------------------""""~"
^DIPT(825,"F",3)="""ICDO TOPOGRAPHY by SITE/GP"";C1~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C45;L18;Z;""NOW""~""PAGE"";C70;L5;X~"
^DIPT(825,"F",4)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C75;R5;X;Z;;Z;""S X=$S($D(DC)#2:DC,1:"""") W X K DIP""~"" "";C1~""PATIENT NAME"";C1~""Med Red#"";C23~""YR"";C36~"
^DIPT(825,"F",5)="""ACCESS/SEQ"";C41~""ICDO-Topography"";C53~""DT DIAG"";C71~""-------------------------------------------------------------------------------"";C1~"
^DIPT(825,"H")="@"
^DIPT(825,"SUB")="1"
^DIPT(826,0)="ONCO XABSTRACT RECORD^3070112.1603^^165.5^^@^3070116"
^DIPT(826,"DXS",1,1)="Male"
^DIPT(826,"DXS",1,2)="Female"
^DIPT(826,"DXS",1,3)="Other (hermaphrodite)"
^DIPT(826,"DXS",1,4)="Transsexual"
^DIPT(826,"DXS",1,9)="Not stated"
^DIPT(826,"DXS",2,0)="Dead"
^DIPT(826,"DXS",2,1)="Alive"
^DIPT(826,"DXS",3,0)="Incomplete"
^DIPT(826,"DXS",3,1)="Minimal data"
^DIPT(826,"DXS",3,2)="Partial"
^DIPT(826,"DXS",3,3)="Complete"
^DIPT(826,"F",1)="W @IOF;Z;""W @IOF""~.03;C3~"
^DIPT(826,"F",2)="S X=""PATIENT SUMMARY"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""PATIENT SUMMARY"")""~"
^DIPT(826,"F",3)="S X=DT S Y=X D DT K DIP;C68;L11;d;Z;""TODAY""~W !,"""";Z;""W !,""""""~"
^DIPT(826,"F",4)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~-160,""Name: "";C3~-160,.01;X;C9~"
^DIPT(826,"F",5)="-160,""SSN: "";C40~-160,2;X;C47~-160,""Sex: "";C3~-160,10;X;C9~-160,""DOB: "";C40~-160,3;X;C47~-160,""Race: "";C3~-160,8;X;C9~-160,""Status: "";C40~-160,15;X;C48~"
^DIPT(826,"F",6)="-160,W !,"" "";Z;""W !,"" """"~-160,D DLC^ONCOCRF,DATEOT^ONCOES;Z;""D DLC^ONCOCRF,DATEOT^ONCOES""~-160,""Date of Last Contact or Death:"";C3~-160,W X;C34;Z;""W X""~"
^DIPT(826,"F",7)="-160,""Autopsy Date/Time: "";C3~-160,23;X;C34~-160,""Autopsy #: "";C3~-160,24;X;C34~-160,""Cause of Death: "";C3~-160,19;X;C34~W !!,"" "";Z;""W !!,"" """"~"
^DIPT(826,"F",8)="""Abstract Status: "";C3~91;X~""Date Case Completed: "";C40~90;X~""Acc/Seq Number: "";C3~.061;X;C19~""Date Dx: "";C3~3;X;C20~""Site/Gp: "";C3~.01;X;C20~"
^DIPT(826,"F",9)="""Primary Site: "";C3~20;X;C20~""Histology: "";C3~22.3;X;C20~"
^DIPT(826,"H")="@"
^DIPT(826,"IOM")="80"
^DIPT(826,"LAST")=""
^DIPT(826,"ROU")="^ONCOXU"
^DIPT(826,"ROUOLD")="ONCOXU"
^DIPT(826,"SUB")="1"
^DIPT(827,0)="ONCOXA1^3030410.0921^^165.5^^@^3030708"
^DIPT(827,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U)"
^DIPT(827,"DXS",2,9)="S HISTXX=$$HIST^ONCFUNC(D0) I HISTXX'="""" S HISTZZ=$G(^ONCO(ICDFILE,HISTXX,0)) W ?25,$P(HISTZZ,U,1)"
^DIPT(827,"DXS",3,9)="X DXS(3,9.2) S X=$$EXTERNAL^DIDU(160,.01,"""",$P(DIP(101),U,1)) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X S D0=I(0,0)"
^DIPT(827,"DXS",3,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIPT(827,"DXS",4,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,1,0),U,5,99) S DIP(101)=X"
^DIPT(827,"DXS",5,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,4,0),U,5,99) S DIP(101)=X"
^DIPT(827,"DXS",6,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,.131,0),U,5,99) S DIP(101)=X"
^DIPT(827,"DXS",7,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,.04,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59))"
^DIPT(827,"DXS",8,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,11,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59)),DIP(3)=$G(X) S X=""("""
^DIPT(827,"DXS",9,1)="Hospital inpatient, hospital outpatient, clinic"
^DIPT(827,"DXS",9,3)="Laboratory only (hospital or private)"
^DIPT(827,"DXS",9,4)="Physician office/private practitioner"
^DIPT(827,"DXS",9,5)="Nursing/convalescent home, hospice"
^DIPT(827,"DXS",9,6)="Autopsy only"
^DIPT(827,"DXS",9,7)="Death certificate only"
^DIPT(827,"F",1)="""********** Print Abstract-Brief **********"";C15~S X=DT S Y=X D DT K DIP;C69;L18;d;Z;""TODAY""~20.1;C3;S1~"
^DIPT(827,"F",2)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C10;Z;""LOWERCASE(#20)""~"
^DIPT(827,"F",3)="""Reporting Hospital: "";C3~.03;L30;C26~""Date of First Contact: "";C3~155;L10;C26~""Histology: "";C3~"
^DIPT(827,"F",4)="X DXS(2,9);Z;""S HISTXX=$$HIST^ONCFUNC(D0) I HISTXX'="""" S HISTZZ=$G(^ONCO(ICDFILE,HISTXX,0)) W ?25,$P(HISTZZ,U,1)""~"
^DIPT(827,"F",5)="X DXS(3,9) W X K DIP;C3;S1;Z;""LOWERCASE(#.02)""~""Alias: "";C40~X DXS(4,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;Z;"".02:ALIAS""~""Acc/Seq Number: "";C3;S1~"
^DIPT(827,"F",6)=".061;X;C28~""Medical Record Number: "";C3~X DXS(5,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;X;C29;Z;""PATIENT NAME:MEDI""~""Telephone:"";C3~"
^DIPT(827,"F",7)="X DXS(6,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;X;C29;Z;"".02:TELEPHONE""~""Type of Reporting Source: "";C3~1.2;X~""Class of Case: "";C3~"
^DIPT(827,"F",8)="X DXS(7,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;C29;Z;""LOWERCASE(#.04)""~"
^DIPT(827,"F",9)="""Marital Status at Dx: "";C3~X DXS(8,9.2) S DIP(4)=$G(X) S X=1,X=$P(DIP(3),DIP(4),X) W X K DIP;X;C29;Z;""$P(MARITAL STATUS AT DX,""("",1)""~"
^DIPT(827,"H")="@"
^DIPT(827,"IOM")="80"
^DIPT(827,"LAST")=""
^DIPT(827,"ROU")="^ONCOXA1"
^DIPT(827,"ROUOLD")="ONCOXA1"
^DIPT(827,"SUB")="1"
^DIPT(828,0)="ONCOXA2^3030312.094^^165.5^^@^3030312"
^DIPT(828,"DXS",1,0)="Not a paired site"
^DIPT(828,"DXS",1,1)="Right"
^DIPT(828,"DXS",1,2)="Left"
^DIPT(828,"DXS",1,3)="One side involved, right/left not specified"
^DIPT(828,"DXS",1,4)="Bilateral involvement, side of origin unknown"
^DIPT(828,"DXS",1,9)="Paired site, but lateral origin unknown, midline tumor"
^DIPT(828,"F",1)="""Race: "";C3~.12~""Sex: "";C40~"
^DIPT(828,"F",2)="X ""N I,Y ""_$P(^DD(165.5,.1,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=$G(X) S X=""("",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;X;Z;""$P((SEX),""("",1)""~"
^DIPT(828,"F",3)="""Age at Dx: "";C3~4;X~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~"
^DIPT(828,"F",4)="-160,D DOB^ONCOES;Z;""D DOB^ONCOES""~-160,""Date of Birth: "";C40~-160,W X;X;Z;""W X""~-160,""Birthplace: "";C3~-160,7;X~-160,""Occupation: "";C40~-160,12;X~"
^DIPT(828,"F",5)="-160,""SSN: "";C3~-160,2;X~-160,""Religion: "";C40~-160,13;X~-160,""Employment status: "";C40~-160,47;X~""Facility referred from: "";C3~6;X~"
^DIPT(828,"F",6)="""Facility referred to: "";C3~7;X~""Date Dx: "";C3~3;X;L18~""Following physician: "";C3;S1~2.1;X~""Primary surgeon: "";C3~2;X~""Physician #3: "";C3~2.3;X~"
^DIPT(828,"F",7)="""Physician #4: "";C3~2.4;X~""Laterality: "";C3;S1~28;X~"
^DIPT(828,"H")="@"
^DIPT(828,"IOM")="80"
^DIPT(828,"LAST")=""
^DIPT(828,"ROU")="^ONCOXA2"
^DIPT(828,"ROUOLD")="ONCOXA2"
^DIPT(828,"SUB")="1"
^DIPT(829,0)="ONCOXA3^3041201.1601^^165.5^^@^3041201"
^DIPT(829,"DXS",1,1)="Positive histology"
^DIPT(829,"DXS",1,2)="Positive cytology"
^DIPT(829,"DXS",1,4)="Positive Microscopic, method not specified"
^DIPT(829,"DXS",1,5)="Positive lab test"
^DIPT(829,"DXS",1,6)="Direct visualization"
^DIPT(829,"DXS",1,7)="Radiography/other imaging techniques"
^DIPT(829,"DXS",1,8)="Clinical dx only"
^DIPT(829,"DXS",1,9)="Unknown"
^DIPT(829,"DXS",2,0)="In situ"
^DIPT(829,"DXS",2,1)="Localized"
^DIPT(829,"DXS",2,2)="Regional by direct extension"
^DIPT(829,"DXS",2,3)="Regional to lymph nodes"
^DIPT(829,"DXS",2,4)="Regional by extension & to nodes"
^DIPT(829,"DXS",2,5)="Regional, NOS"
^DIPT(829,"DXS",2,7)="Distant metastasis/systemic disease"
^DIPT(829,"DXS",2,8)="NA"
^DIPT(829,"DXS",2,9)="Unknown"
^DIPT(829,"DXS",3,0)="None"
^DIPT(829,"DXS",3,1)="Peritoneum"
^DIPT(829,"DXS",3,2)="Lung"
^DIPT(829,"DXS",3,3)="Pleura"
^DIPT(829,"DXS",3,4)="Liver"
^DIPT(829,"DXS",3,5)="Bone"
^DIPT(829,"DXS",3,6)="Central nervous sys"
^DIPT(829,"DXS",3,7)="Skin"
^DIPT(829,"DXS",3,8)="Lymph nodes (distan"
^DIPT(829,"DXS",3,9)="Other/Gen/Carcinoma"
^DIPT(829,"DXS",4,0)="None"
^DIPT(829,"DXS",4,1)="Peritoneum"
^DIPT(829,"DXS",4,2)="Lung"
^DIPT(829,"DXS",4,3)="Pleura"
^DIPT(829,"DXS",4,4)="Liver"
^DIPT(829,"DXS",4,5)="Bone"
^DIPT(829,"DXS",4,6)="Central nervous sys"
^DIPT(829,"DXS",4,7)="Skin"
^DIPT(829,"DXS",4,8)="Lymph nodes (distan"
^DIPT(829,"DXS",4,9)="Other/Gen/Carcinoma"
^DIPT(829,"DXS",5,0)="None"
^DIPT(829,"DXS",5,1)="Peritoneum"
^DIPT(829,"DXS",5,2)="Lung"
^DIPT(829,"DXS",5,3)="Pleura"
^DIPT(829,"DXS",5,4)="Liver"
^DIPT(829,"DXS",5,5)="Bone"
^DIPT(829,"DXS",5,6)="Central nervous"
^DIPT(829,"DXS",5,7)="Skin"
^DIPT(829,"DXS",5,8)="Lymph nodes (di"
^DIPT(829,"DXS",5,9)="Other/Gen/Carci"
^DIPT(829,"DXS",6,0)="Surgery performed"
^DIPT(829,"DXS",6,1)="Not part of 1st course"
^DIPT(829,"DXS",6,2)="Contraindicated/risk factors"
^DIPT(829,"DXS",6,5)="Patient died prior to surgery"
^DIPT(829,"DXS",6,6)="No reason in record"
^DIPT(829,"DXS",6,7)="Refused by patient"
^DIPT(829,"DXS",6,8)="Unknown if performed"
^DIPT(829,"DXS",6,9)="Unknown/dx at autopsy/death cert"
^DIPT(829,"DXS",7,0)="None"
^DIPT(829,"DXS",7,1)="Beam radiation"
^DIPT(829,"DXS",7,2)="Radioactive implants"
^DIPT(829,"DXS",7,3)="Radioisotopes"
^DIPT(829,"DXS",7,4)="Beam rad w implants/radioisotopes"
^DIPT(829,"DXS",7,5)="Radiation therapy, NOS"
^DIPT(829,"DXS",7,7)="Refused radiation therapy"
^DIPT(829,"DXS",7,8)="Recommended, unk if given"
^DIPT(829,"DXS",7,9)="Unk if administered"
^DIPT(829,"DXS",8,0)="No rad and/or surgery"
^DIPT(829,"DXS",8,2)="Rad before surgery"
^DIPT(829,"DXS",8,3)="Rad after surgery"
^DIPT(829,"DXS",8,4)="Rad both before/after surgery"
^DIPT(829,"DXS",8,5)="Intraoperative rad"
^DIPT(829,"DXS",8,6)="Intraoperative rad w rad before/after surgery"
^DIPT(829,"DXS",8,9)="Sequence unknown"
^DIPT(829,"DXS",9,0)="Radiation administered"
^DIPT(829,"DXS",9,1)="Not part of 1st course"
^DIPT(829,"DXS",9,2)="Contraindicated"
^DIPT(829,"DXS",9,5)="Patient died prior to tx"
^DIPT(829,"DXS",9,6)="Not administered, no reason"
^DIPT(829,"DXS",9,7)="Refused by patient"
^DIPT(829,"DXS",9,8)="Unknown if administered"
^DIPT(829,"DXS",9,9)="Unknown, death cert/autopsy cases"
^DIPT(829,"DXS",10,82)="Not admin/contraindicated"
^DIPT(829,"DXS",10,85)="Pt died prior to tx"
^DIPT(829,"DXS",10,86)="Not admin, no reason given"
^DIPT(829,"DXS",10,87)="Refused by pt"
^DIPT(829,"DXS",10,88)="Unknown if admin"
^DIPT(829,"DXS",10,99)="Unknown, death cert"
^DIPT(829,"DXS",10,"00")="None"
^DIPT(829,"DXS",10,"01")="Chemotherapy, NOS"
^DIPT(829,"DXS",10,"02")="Single agent"
^DIPT(829,"DXS",10,"03")="Multiagent"
^DIPT(829,"DXS",11,82)="Not admin/contraindicated"
^DIPT(829,"DXS",11,85)="Pt died prior to tx"
^DIPT(829,"DXS",11,86)="Not admin, no reason given"
^DIPT(829,"DXS",11,87)="Refused by pt"
^DIPT(829,"DXS",11,88)="Unknown if admin"
^DIPT(829,"DXS",11,99)="Unknown, death cert"
^DIPT(829,"DXS",11,"00")="None"
^DIPT(829,"DXS",11,"01")="Hormone therapy"
^DIPT(829,"DXS",12,82)="Not admin/contraindicated"
^DIPT(829,"DXS",12,85)="Pt died prior to tx"
^DIPT(829,"DXS",12,86)="Not admin, no reason given"
^DIPT(829,"DXS",12,87)="Refused by pt"
^DIPT(829,"DXS",12,88)="Unknown if admin"
^DIPT(829,"DXS",12,99)="Unknown, death cert"
^DIPT(829,"DXS",12,"00")="None"
^DIPT(829,"DXS",12,"01")="Immunotherapy"
^DIPT(829,"DXS",13,0)="None"
^DIPT(829,"DXS",13,1)="Other"
^DIPT(829,"DXS",13,2)="Other - Experimental"
^DIPT(829,"DXS",13,3)="Other - Double Blind"
^DIPT(829,"DXS",13,6)="Other - Unproven"
^DIPT(829,"DXS",13,7)="Refusal"
^DIPT(829,"DXS",13,8)="Recommended, unknown if administered"
^DIPT(829,"DXS",13,9)="Unknown"
^DIPT(829,"F",1)="""Diagnostic confirmation: "";C3~26;X~""Tumor size: "";C3~29;X~""Extension: "";C3~30;X~""Regional lymph nodes positive: "";C3~32;X~"
^DIPT(829,"F",2)="""Regional lymph nodes examined: "";C3~33;X~""Lymph nodes: "";C3~31;X~""SEER Summary Stage 2000: "";C3~35;X~""Sites of metastases: "";C3~34;C24;L19~"
^DIPT(829,"F",3)="34.1;C44;L19~34.2;C64;L15~""Clinical TNM: "";C3~37;C21;L12;X~""Pathologic TNM: "";C40~89.1;C60;L12;X~""AJCC Stage (Clin): "";C3~38;C24;X~"
^DIPT(829,"F",4)="""AJCC Stage (Path): "";C40~88;C60;X~W "" "";C30;Z;""W "" """"~""FIRST COURSE OF TREATMENT SUMMARY:"";C3~""Dx/Staging/Palliative Proc: "";C3~58.1;C34~"
^DIPT(829,"F",5)="""Date First Surgical Procedure: "";C3~170;C34~""Surgery of primary site (F): "";C3~58.6;C34~""Surgical Margins: "";C3~59;C34~""Reason for no surgery: "";C3~"
^DIPT(829,"F",6)="58;C34~""Radiation: "";C3~51.2;C34~""Radiation Sequence: "";C3~51.3;C34;L45~""Reason for no radiation: "";C3~75;C34~""Chemotherapy: "";C3~53.2;C34~"
^DIPT(829,"F",7)="""Hormone Therapy: "";C3~54.2;C34~""Immunotherapy: "";C3~55.2;C34~""Other treatment: "";C3~57.2;C34~"
^DIPT(829,"H")="@"
^DIPT(829,"IOM")="80"
^DIPT(829,"LAST")=""
^DIPT(829,"ROU")="^ONCOXA3"
^DIPT(829,"ROUOLD")="ONCOXA3"
^DIPT(829,"SUB")="1"
^DIPT(830,0)="ONCO ACCREG-ACOS80^2991029.1005^^165.5^^@^3000306"
^DIPT(830,"F",1)=".061;""ACC/SEQ #"";C1;L13~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(830,"F",2)="-160,.01;""PATIENT NAME"";C16;L20~-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""20:""~"
^DIPT(830,"F",3)="-164,1;""ICDO"";C38;L5~20;""TOPOGRAPHY"";C45;L18~3;""DATE DX"";C65;L10~.07;""YEAR"";C77~"
^DIPT(830,"H")="ACCESSON LIST (ACOS) complete"
^DIPT(831,0)="ONCO ACCREG-EOVA132^2990914.1008^^165.5^^@^3000103"
^DIPT(831,"F",1)=".061;C1;L13~.01;C16;L24~.02;C41;L19~3;""DX DATE""C62;L10~4;C75;L3~.042;C79;L11~"
^DIPT(831,"F",2)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~-160,2;C93;L11~-160,8;C105;L5~"
^DIPT(831,"F",3)="-160,10;C113;L6~-160,15;C121;L5~"
^DIPT(831,"H")="ACCESSION REGISTER"
^DIPT(832,0)="ONCO ACCREG-SITE/GP80^2991029.1151^^165.5^^@^3000403"
^DIPT(832,"F",1)=".061;""ACC/SEQ #"";C1;L13~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(832,"F",2)="-160,.01;""PATIENT NAME"";C15;L18~-160,2;""SSN"";C35;L11~.01;""PRIMARY SITE/GP"";C48;L15~3;""DATE DX"";C65;L10~.07;""YEAR"";C77~"
^DIPT(832,"H")="ACCESSION REGISTER - SITE/GP complete"
^DIPT(833,0)="ONCO ANNUAL ACCREG80^2990914.1024^^165.5^^@^3000306"
^DIPT(833,"DCL","165.5^.061")="!"
^DIPT(833,"F",1)=".061;C1;L13~.02;C16;L20~-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""20:""~-164,1;C38;L5~"
^DIPT(833,"F",2)="-164,.01;C45;L19~3;C66;L10~S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X W X K DIP;C78;L1;Z;""INTERNAL(CLASS OF CASE)""~"
^DIPT(833,"F",3)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,8),X=X W X K DIP;C80;L1;Z;""INTERNAL(LATERALITY)""~"
^DIPT(833,"H")="[ONCO ANNUAL ACCREG80-HDR]"
^DIPT(834,0)="ONCO ANNUAL ACCREG80-HDR^3050615.1131^^165.5^^@^3050621"
^DIPT(834,"F",1)="""********************************************************************************"";C1~"
^DIPT(834,"F",2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""ACCESSION REGISTER - ""_$P(DIP(1),U,7) W X K DIP;C1;Z;""""ACCESSION REGISTER - ""_ACCESSION YEAR""~"
^DIPT(834,"F",3)="S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C35;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~S X=DT S Y=X D DT K DIP;C60;L12;Z;""TODAY"";d~""PAGE"";C74;L5;X~"
^DIPT(834,"F",4)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C79;R2;Z;""PAGE""~"" "";C1~""ACC/SEQ-No"";C1~""Patient Name"";C16~""ICDO -"";C38~""Topography"";C45~""Date Dx"";C66~""C"";C78;L1~"
^DIPT(834,"F",5)="""L"";C80;L1~""********************************************************************************"";C1~"
^DIPT(834,"H")="@"
^DIPT(834,"SUB")="1"
^DIPT(835,0)="ONCO XADMISSION^3030410.0925^^165.5^^@^3030410"
^DIPT(835,"F",2)="""Site/Gp: "";C5;X~.01;C23;X~""Date of First Contact: "";C50;X~155;C67;X;L11~""Date Dx: "";C5;X~3;C23;X~"
^DIPT(835,"H")="PRIMARY LIST"
^DIPT(835,"IOM")="80"
^DIPT(835,"LAST")=""
^DIPT(835,"ROU")="^ONCOXS1"
^DIPT(835,"ROUOLD")="ONCOXS1"
^DIPT(836,0)="ONCO SITE/GP80^2990917.1105^^165.5^^@^3000306"
^DIPT(836,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L21~-160,2;C22;L11~"
^DIPT(836,"F",2)=".07;C35;L4~.061;C40;L13~20;C55;L15~3;C71;L10~"
^DIPT(836,"H")="[ONCO SITE/GP80-HDR]"
^DIPT(837,0)="ONCO SITE/GP80-HDR^2991029.1411^^165.5^^@^3000306"
^DIPT(837,"DXS",1,9)="W !,""--------------------------------------------------------------------------------"""
^DIPT(837,"F",1)="X DXS(1,9);C1;;Z;""W !,""--------------------------------------------------------------------------------""""~"
^DIPT(837,"F",2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""SITE/GP: ""_$S('$D(^ONCO(164.2,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""SITE/GP: ""_SITE/GP""~"
^DIPT(837,"F",3)="S X=DT S Y=X D DT K DIP;C55;L12;Z;""TODAY""~""PAGE"";C73;L5;X~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C78;R3;X;Z;;Z;""S X=$S($D(DC)#2:DC,1:"""") W X K DIP""~"" "";C1~"
^DIPT(837,"F",4)="""PATIENT NAME"";C1~""SSN"";C22~""YEAR"";C35~""ACC/SEQ #"";C40~""TOPOGRAPHY"";C55~""DATE DX"";C71~"
^DIPT(837,"F",5)="""--------------------------------------------------------------------------------"";C1~"
^DIPT(837,"H")="@"
^DIPT(837,"SUB")="1"
^DIPT(838,0)="ONCO ABSTRACT NOT-COMPLETE^3060718.0944^^165.5^^@^3061101"
^DIPT(838,"DCL","160^.01")="!"
^DIPT(838,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PAT:""~-160,.01;C1;L21~-160,2;C23;L11~"
^DIPT(838,"F",2)=".061;C36;L13~.01;C51;L14;~S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X W X K DIP;C67;L1;""COC"";Z;""INTERNAL(#.04)""~3;C71;L10~"
^DIPT(838,"H")="PRIMARY ABSTRACT NOT-COMPLETE Report"
^DIPT(839,0)="ONCOXA4^2980721.1038^^165.5^^@^2980721"
^DIPT(839,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 X $P(^DD(160,16,0),U,5,99) S DIP(101)=X"
^DIPT(839,"DXS",2,0)="Incomplete"
^DIPT(839,"DXS",2,1)="Minimal data"
^DIPT(839,"DXS",2,2)="Partial"
^DIPT(839,"DXS",2,3)="Complete"
^DIPT(839,"F",1)="""Abstract Date: "";C3;S1~90;X~""Status: "";C40~91;X~""Date Printed: "";C3~S X=DT S Y=X D DT K DIP;X;L18;Z;""TODAY""~""Abstracter: "";C40~92;X~"
^DIPT(839,"F",2)="""Date of Last Patient Contact: "";C3~X DXS(1,9.2) S X=DIP(101) S D0=I(0,0) S Y=X D DT K DIP;X;Z;"".02:16"";L18~"
^DIPT(839,"H")="@"
^DIPT(839,"IOM")="80"
^DIPT(839,"LAST")=""
^DIPT(839,"ROU")="^ONCOXA4"
^DIPT(839,"ROUOLD")="ONCOXA4"
^DIPT(839,"SUB")="1"
^DIPT(840,0)="ONCO ANNUAL PATIENT INDX^3010411.095^^165.5^^@^3020509"
^DIPT(840,"DCL","165.5^.061")="!"
^DIPT(840,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L18;X~-160,2;C20;L11;X~"
^DIPT(840,"F",2)="-160,10;C32;L1;X~-160,D DOB^ONCOES;Z;""D DOB^ONCOES""~-160,W X;C34;L10;X;Z;""W X""~-160,29;C45;L10;X~.061;C56;L13;X~3;C71;L10;X~"
^DIPT(840,"F",3)="-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""20:""~-164,1;C83;L5;X~-164,.01;C90;L15;X~"
^DIPT(840,"F",4)="-169.3,^ONCO(169.3,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""22.3:""~-169.3,1;C107;L6;X~"
^DIPT(840,"F",5)="-169.3,.01;C115;L15;X~S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,8),X=X W X K DIP;C132;L1;X;Z;""INTERNAL(LATERALITY)""~"
^DIPT(840,"H")="[ONCO ANNUAL PATIENT INDX-HDR]"
^DIPT(841,0)="ONCO ANNUAL PATIENT INDX-HDR^3050621.1128^^165.5^^@^3050621"
^DIPT(841,"F",1)="""************************************************************************************************************************************"";C1~"
^DIPT(841,"F",2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""ACOS ANNUAL PATIENT INDEX - ""_$P(DIP(1),U,7) W X K DIP;C1;Z;""""ACOS ANNUAL PATIENT INDEX - ""_ACCESSION YEAR""~"
^DIPT(841,"F",3)="S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C55;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(841,"F",4)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C90;L18;Z;""NOW"";d~""PAGE "";C122;L5~"
^DIPT(841,"F",5)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C127;R6;Z;""PAGE""~"" "";C1~""PATIENT NAME"";C1~""MED RECORD#"";C20~""S"";C32~""DT-BIRTH"";C34~""DT-DEATH"";C45~""ACC/SEQ-NO"";C56~"
^DIPT(841,"F",6)="""DATE DX"";C71~""ICDO - TOPOGRAPHY"";C83;~""ICDO - MORPHOLOGY"";C107;~""L"";C132;~"
^DIPT(841,"F",7)="""************************************************************************************************************************************"";C1~"
^DIPT(841,"H")="@"
^DIPT(841,"SUB")="1"
^DIPT(842,0)="ONCOX1^3021101.1448^^165.5^^@^3021101"
^DIPT(842,"DXS",1,9.2)="S X=""******************** CANCER REGISTRY ABSTRACT ********************"""
^DIPT(842,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(842,"DXS",3,9.2)="S DIP(2)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X="" "",DIP(1)=X S X=$S('$D(^ONCO(164.2,+$P(DIP(2),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(842,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),Y=$P(DIP(1),U,3) X:$D(^DD(165.5,.03,2)) ^(2) S X=Y"
^DIPT(842,"DXS",5,0)="Incomplete"
^DIPT(842,"DXS",5,1)="Minimal data"
^DIPT(842,"DXS",5,2)="Partial"
^DIPT(842,"DXS",5,3)="Complete"
^DIPT(842,"F",1)=""
^DIPT(842,"F",2)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""******************** CANCER REGISTRY ABSTRACT ********************"")""~"
^DIPT(842,"F",3)="""Abstracted by: "";C12;S1~"
^DIPT(842,"F",4)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(ABSTRACTER)""~"" - "";X~"
^DIPT(842,"F",5)=""" Abstract Status: "";X~91;X~"" on: "";X~90;X~S X=DT S Y=X D DT K DIP;C100;L18;d;Z;""TODAY""~""Patient Summary/Abstract for "";C12~.02;X~"" "";X~"
^DIPT(842,"F",6)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,2;X~"
^DIPT(842,"F",7)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;X;Z;"""" ""_LOWERCASE(SITE/GP)""~"
^DIPT(842,"F",8)="""- V A HOSPITAL - "";C25~"
^DIPT(842,"F",9)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(REPORTING HOSPITAL)""~"
^DIPT(842,"F",10)="""ACOS #: "";C70;~67~""State Hosp. No: "";C90;~68~"
^DIPT(842,"H")="@"
^DIPT(842,"IOM")="132"
^DIPT(842,"LAST")=""
^DIPT(842,"ROU")="^ONCOW"
^DIPT(842,"ROUOLD")="ONCOW"
^DIPT(842,"SUB")="1"
^DIPT(843,0)="ONCOX2^3030818.1207^^165.5^^@^3030818"
^DIPT(843,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(843,"DXS",1,9.2)="S X=""************************** PERSONAL DATA ***************************"""
^DIPT(843,"DXS",2,9.2)="S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(165.2,+$P(DIP(101),U,5),0)),U)"
^DIPT(843,"DXS",3,9)="X DXS(3,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(843,"DXS",3,9.2)="S X=""*********************** EMPLOYMENT HISTORY *************************"""
^DIPT(843,"DXS",4,9)="S I(100,0)=$G(D0) S I(201,0)=$G(D1) X DXS(4,9.4):D0>0 S X="""" X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X S D1=I(201,0)"
^DIPT(843,"DXS",4,9.2)="N Y S X=X"
^DIPT(843,"DXS",4,9.3)="F D=0:0 S (D,D1)=$O(^ONCO(160,D0,7,""B"",DICOB,D)) Q:D'>0 I $D(^ONCO(160,D0,7,D,0))#2 S X=$P(^(0),U) S:$D(^LAB(61.6,+X,0)) X=$P(^(0),U) X DXS(4,9.2) X DICMX Q:'$D(D) S D=D1"
^DIPT(843,"DXS",4,9.4)="S I(201)=""""""7"""""",J(201)=160.042 N DICOB S DICOB="""" F S DICOB=$O(^ONCO(160,D0,7,""B"",DICOB)) Q:DICOB="""" X DXS(4,9.3) Q:'$D(D)"
^DIPT(843,"DXS",5,9)="S DIP(101)=$S($D(^ONCO(160,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(101),U,4) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DIPT(843,"DXS",6,9)="X DXS(6,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(843,"DXS",6,9.2)="S X=""******************** TOBACCO & ALCOHOL USAGE *********************"""
^DIPT(843,"DXS",7,9)="X DXS(7,9.3) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(843,"DXS",7,9.2)="S DIP(102)=$C(59)_$P($G(^DD(160,38,0)),U,3),DIP(103)=$C(59)_$P($G(^DD(160,39,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,8)):^(8),1:"""") S X=""TOBACCO HISTORY: """
^DIPT(843,"DXS",7,9.3)="X DXS(7,9.2) S X=X_$P($P(DIP(102),$C(59)_$P(DIP(101),U,2)_"":"",2),$C(59))_"" ----------------------- ALCOHOL HISTORY: ""_$P($P(DIP(103),$C(59)_$P(DIP(101),U,3)_"":"",2),$C(59))"
^DIPT(843,"DXS",8,9.2)="S DIP(102)=$C(59)_$P($G(^DD(160.02,.01,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,5,D1,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59))"
^DIPT(843,"DXS",9,9.2)="S DIP(102)=$C(59)_$P($G(^DD(160.041,.01,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,6,D1,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59))"
^DIPT(843,"DXS",10,1)="Male"
^DIPT(843,"DXS",10,2)="Female"
^DIPT(843,"DXS",10,3)="Other (hermaphrodite)"
^DIPT(843,"DXS",10,4)="Transsexual"
^DIPT(843,"DXS",10,9)="Not stated"
^DIPT(843,"DXS",11,0)="Non-Spanish, non-Hispanic"
^DIPT(843,"DXS",11,1)="Mexican"
^DIPT(843,"DXS",11,2)="Puerto Rican"
^DIPT(843,"DXS",11,3)="Cuban"
^DIPT(843,"DXS",11,4)="South/Central American"
^DIPT(843,"DXS",11,5)="Other specified Spanish/Hispanic"
^DIPT(843,"DXS",11,6)="Spanish, Hispanic, Latino, NOS"
^DIPT(843,"DXS",11,7)="Spanish surname only"
^DIPT(843,"DXS",11,8)="Dominican Republic"
^DIPT(843,"DXS",11,9)="Unknown/not stated"
^DIPT(843,"DXS",12,1)="Single/Never married"
^DIPT(843,"DXS",12,2)="Married/Common Law"
^DIPT(843,"DXS",12,3)="Separated"
^DIPT(843,"DXS",12,4)="Divorced"
^DIPT(843,"DXS",12,5)="Widowed"
^DIPT(843,"DXS",12,9)="Unknown"
^DIPT(843,"F",1)=""" Patient Name: "";C2;S1~.02;X~""Alias: "";C10~"
^DIPT(843,"F",2)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,1;X~""Accession No: "";C60~"
^DIPT(843,"F",3)=".05;X~""Hospital No: "";C96~S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X W X K DIP;X;Z;""INTERNAL(#.03)""~""Home Address: "";C3~"
^DIPT(843,"F",4)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.119;X~""Accession Yr: "";C60~"
^DIPT(843,"F",5)=".07;X~""Hospital Chart No: "";C90~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(843,"F",6)="-160,2;X~-160,.116;C18;X~""Primary Sequence No: "";C53~.06;X~"
^DIPT(843,"F",7)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,""County: "";C9~-160,.12;X~"
^DIPT(843,"F",8)="-160,""Home Telephone: "";C1~-160,.131;X~""Date of First Contact: "";C91~155;X~"
^DIPT(843,"F",9)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,""Next of Kin: "";C1~-160,.214;X~"
^DIPT(843,"F",10)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""************************** PERSONAL DATA ***************************"")""~""Social Security No: "";C1~"
^DIPT(843,"F",11)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,2;X~-160,""Sex: "";C51~-160,10;X~"
^DIPT(843,"F",12)="-160,D DOB^ONCOES,DATEOT^ONCOES;Z;""D DOB^ONCOES,DATEOT^ONCOES""~-160,""Date of Birth: "";C90~-160,W X;X;Z;""W X""~-160,""Address at Dx: "";C2~8;X~"
^DIPT(843,"F",13)="""Race: "";C50~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,8;X~"
^DIPT(843,"F",14)="-160,""Birthplace: "";C93~"
^DIPT(843,"F",15)="-160,X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(PLACE OF BIRTH)""~"
^DIPT(843,"F",16)="D AAD^ONCOES,W17AAD^ONCOES;Z;""D AAD^ONCOES,W17AAD^ONCOES""~""Ethnicity: "";C45~"
^DIPT(843,"F",17)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,9;X~""Age at Dx: "";C94~4;C106~"
^DIPT(843,"F",18)="""County: "";C8~10;X~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(843,"F",19)="-160,""Religion: "";C46~-160,13;X~""Marital Status at Dx: "";C83~11;X~"
^DIPT(843,"F",20)="X DXS(3,9) W X K DIP;X;S1;Z;""CENTER(""*********************** EMPLOYMENT HISTORY *************************"")""~"" "";S1~"
^DIPT(843,"F",21)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~-160,42,""Occupation: "";C2~"
^DIPT(843,"F",22)="-160,42,X DXS(4,9) W X K DIP;X;m;Z;""LOWERCASE(OCCUPATION)""~-160,42,""Usual Industry: "";C2~-160,42,X DXS(5,9) W X K DIP;X;m;Z;""LOWERCASE(USUAL INDUSTRY)""~"
^DIPT(843,"F",23)="-160,X DXS(6,9) W X K DIP;X;S1;Z;""CENTER(""******************** TOBACCO & ALCOHOL USAGE *********************"")""~"
^DIPT(843,"F",24)="-160,X DXS(7,9) W X K DIP;X;S1;Z;""CENTER(""TOBACCO HISTORY: ""_#38_"" ----------------------- ALCOHOL HISTORY: ""_#39)""~-160,"" "";S1~"
^DIPT(843,"F",25)="-160,40,""Type of Tobacco user: "";C2~"
^DIPT(843,"F",26)="-160,40,X DXS(8,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(TYPE OF TOBACCO USER)""~"
^DIPT(843,"F",27)="-160,40,"" Packs-Years: "";X~-160,40,1;X~-160,40,"" YR. Quit Tobacco Use: "";X~-160,40,2;X~-160,41,""Type of Alcohol User: "";C2:S1~"
^DIPT(843,"F",28)="-160,41,X DXS(9,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(TYPE OF ALCOHOL USER)""~"
^DIPT(843,"F",29)="-160,41,"" Yrs. of Alcohol Use: "";X~-160,41,1;X~-160,41,"" Drinks per-day: "";X~-160,41,2;X~-160,41,"" Yr. Quit Drinking: "";X~-160,41,3;X~"
^DIPT(843,"H")="@"
^DIPT(843,"IOM")="132"
^DIPT(843,"LAST")=""
^DIPT(843,"ROU")="^ONCOX2"
^DIPT(843,"ROUOLD")="ONCOX2"
^DIPT(843,"SUB")="1"
^DIPT(844,0)="ONCOX3^3020508.1602^^165.5^^@^3020508"
^DIPT(844,"DXS",1,9)="X DXS(1,9.2) S X=X_"" *******************"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(844,"DXS",1,9.2)="S DIP(102)=$C(59)_$P($G(^DD(160,43,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,8)):^(8),1:"""") S X=""******************* CANCER FAMILY HISTORY: ""_$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)"
^DIPT(844,"DXS",2,9.2)="N C S C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y"
^DIPT(844,"DXS",2,9.3)="S DIP(1)=$S($D(^ONCO(165.5,I(0,0),0)):^(0),1:"""") S I(100,0)=$G(D0),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S D(0)=D0 S DIP(201)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIPT(844,"DXS",3,9.2)="S DIP(202)=$C(59)_$P($G(^DD(160.044,.01,0)),U,3),DIP(201)=$S($D(^ONCO(160,D0,9,D1,0)):^(0),1:"""") S X=$P($P(DIP(202),$C(59)_$P(DIP(201),U,1)_"":"",2),$C(59),1)"
^DIPT(844,"DXS",4,9.2)="S DIP(201)=$S($D(^ONCO(160,D0,9,D1,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.4,+$P(DIP(201),U,2),0)):"""",1:$P(^(0),U,1))"
^DIPT(844,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(844,"F",2)="-160,X DXS(1,9) W X K DIP;X;S1;Z;""CENTER(""******************* CANCER FAMILY HISTORY: ""_#43_"" *******************"")""~-160,"" "";S1~"
^DIPT(844,"F",3)="-160,-160,^ONCO(160,^^X DXS(2,9.3) S X=$P(DIP(201),U,1) X DXS(2,9.2) S X=X S D0=I(100,0);Z;""PATIENT NAME:""~-160,-160,44,""Family Member with Cancer: "";C2~"
^DIPT(844,"F",4)="-160,-160,44,X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(FAMILY MEMBER WITH CANCER)""~"
^DIPT(844,"F",5)="-160,-160,44,""Cancer: "";C48~"
^DIPT(844,"F",6)="-160,-160,44,X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(CANCER)""~"
^DIPT(844,"H")="@"
^DIPT(844,"IOM")="132"
^DIPT(844,"LAST")=""
^DIPT(844,"ROU")="^ONCOX3"
^DIPT(844,"ROUOLD")="ONCOX3"
^DIPT(844,"SUB")="1"
^DIPT(845,0)="ONCOX4^2960131.135^^165.5^^@^2960524"
^DIPT(845,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(845,"DXS",1,9.2)="S X=""************************* PHYSICIAN CONTACT ************************"""
^DIPT(845,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(165,+$P(DIP(1),U,11),0)):"""",1:$P(^(0),U,1))"
^DIPT(845,"DXS",3,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(165,+$P(DIP(1),U,12),0)):"""",1:$P(^(0),U,1))"
^DIPT(845,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(165,+$P(DIP(1),U,13),0)):"""",1:$P(^(0),U,1))"
^DIPT(845,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(165,+$P(DIP(1),U,14),0)):"""",1:$P(^(0),U,1))"
^DIPT(845,"DXS",6,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(165,+$P(DIP(1),U,15),0)):"""",1:$P(^(0),U,1))"
^DIPT(845,"F",1)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""************************* PHYSICIAN CONTACT ************************"")""~""Primary Surgeon: "";C2;S1~"
^DIPT(845,"F",2)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(PRIMARY SURGEON)""~"
^DIPT(845,"F",3)="""Managing Physician: "";C60~"
^DIPT(845,"F",4)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(MANAGING PHYSICIAN)""~"
^DIPT(845,"F",5)="""Following Physician: "";C60~"
^DIPT(845,"F",6)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(FOLLOWING PHYSICIAN)""~"
^DIPT(845,"F",7)="""Other Physician 3: "";C60~"
^DIPT(845,"F",8)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(OTHER PHYSICIAN (3))""~"
^DIPT(845,"F",9)="""Other Physician 4: "";C60~"
^DIPT(845,"F",10)="X DXS(6,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(OTHER PHYSICIAN (4))""~"
^DIPT(845,"H")="@"
^DIPT(845,"IOM")="132"
^DIPT(845,"LAST")=""
^DIPT(845,"ROU")="^ONCOX4"
^DIPT(845,"ROUOLD")="ONCOX4"
^DIPT(845,"SUB")="1"
^DIPT(846,0)="ONCOX5^3001027.103^^165.5^^@^3001027"
^DIPT(846,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(846,"DXS",1,9.2)="S X=""********************** CANCER IDENTIFICATION ***********************"""
^DIPT(846,"DXS",2,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,.04,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(846,"DXS",3,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,1.2,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(846,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$S('$D(^ONCO(164.1,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(846,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),Y=$P(DIP(1),U,17) X:$D(^DD(165.5,5,2)) ^(2) S X=Y"
^DIPT(846,"DXS",6,9)="S DIP(1)=$S($D(^ONCO(165.5,D0,8)):^(8),1:"""") S X=$P(DIP(1),U,2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DIPT(846,"DXS",7,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ONCO(164.43,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164.43,D0,0)):^(0),1:"""")"
^DIPT(846,"DXS",8,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^ONCO(164,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164,D0,0)):^(0),1:"""")"
^DIPT(846,"DXS",9,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$S('$D(^ONCO(164,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(846,"DXS",10,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),Y=$P(DIP(1),U,18) X:$D(^DD(165.5,6,2)) ^(2) S X=Y"
^DIPT(846,"DXS",11,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,28,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(846,"DXS",12,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),Y=$P(DIP(1),U,19) X:$D(^DD(165.5,7,2)) ^(2) S X=Y"
^DIPT(846,"DXS",13,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,26,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(846,"DXS",14,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:""""),Y=$P(DIP(1),U,11) X:$D(^DD(165.5,18,2)) ^(2) S X=Y"
^DIPT(846,"DXS",15,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(846,"DXS",16,9)="S DIP(1)=$S($D(^ONCO(165.5,D0,8)):^(8),1:"""") S X=$P(DIP(1),U,1) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DIPT(846,"DXS",17,9)="X DXS(17,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(846,"DXS",17,9.2)="S X=""*********************** OTHER PRIMARY SITES ***********************"""
^DIPT(846,"DXS",18,1)="Inpatient only"
^DIPT(846,"DXS",18,2)="Outpatient only"
^DIPT(846,"DXS",18,3)="In and outpatient"
^DIPT(846,"DXS",18,8)="Other, including physician's office"
^DIPT(846,"DXS",18,9)="Unknown"
^DIPT(846,"DXS",19,0)="Within normal limits"
^DIPT(846,"DXS",19,1)="Abnormal/not suggestive of cancer"
^DIPT(846,"DXS",19,2)="Abnormal/suggestive of cancer"
^DIPT(846,"DXS",19,3)="Equivocal/no followup necessary"
^DIPT(846,"DXS",19,4)="Equivocal/evaluation recommended"
^DIPT(846,"DXS",19,8)="NA"
^DIPT(846,"DXS",19,9)="Unknown result, not specified"
^DIPT(846,"DXS",20,0)="Not presented"
^DIPT(846,"DXS",20,1)="Prospective (diagnostic)"
^DIPT(846,"DXS",20,2)="Prospective (treatment)"
^DIPT(846,"DXS",20,3)="Prospective (follow-up)"
^DIPT(846,"DXS",20,4)="Prospective (combinations)"
^DIPT(846,"DXS",20,5)="Prospective, NOS"
^DIPT(846,"DXS",20,6)="Retrospective"
^DIPT(846,"DXS",20,7)="Follow-up"
^DIPT(846,"DXS",20,8)="Presentation, NOS"
^DIPT(846,"DXS",20,9)="Unknown"
^DIPT(846,"DXS",21,0)="No"
^DIPT(846,"DXS",21,1)="Yes"
^DIPT(846,"DXS",21,9)="Unknown"
^DIPT(846,"F",1)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""********************** CANCER IDENTIFICATION ***********************"")""~""DX Date: "";C15;S1~3;X~"
^DIPT(846,"F",2)="""Class of Case: "";C70~"
^DIPT(846,"F",3)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(CLASS OF CASE)""~"
^DIPT(846,"F",4)="""Type of Reporting Source: "";C15~"
^DIPT(846,"F",5)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#1.2)""~"
^DIPT(846,"F",6)="""Histology: "";C13~S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,3),X=X W X K DIP;X;Z;""INTERNAL(HISTOLOGY)""~"" "";X~"
^DIPT(846,"F",7)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(HISTOLOGY)""~"
^DIPT(846,"F",8)="""Dx Facility: "";C72~"
^DIPT(846,"F",9)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DX FACILITY)""~"
^DIPT(846,"F",10)="""Text Histology: "";C8~X DXS(6,9) W X K DIP;X;Z;""LOWERCASE(TEXT-HISTOLOGY)""~""Grade:"";C17~24~"
^DIPT(846,"F",11)="X DXS(7,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) K DIP;W;Z;""GRADE:EXPLANATION""~S TM1=$$PRINT^ONCOTM(D0,1);Z;""S TM1=$$PRINT^ONCOTM(D0,1)""~"
^DIPT(846,"F",12)="W !?7,TM1_"":"";Z;""W !?7,TM1_"":""""~25.1~""Tumor Marker 2:"";C8~25.2~""ICDO-Site: "";C13;S1~"
^DIPT(846,"F",13)="X DXS(8,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;X;Z;""20:CODE""~"" "";X~"
^DIPT(846,"F",14)="X DXS(9,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(ICDO-TOPOGRAPHY)""~"
^DIPT(846,"F",15)="""Referring Facility: "";C65~"
^DIPT(846,"F",16)="X DXS(10,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(REFERRING FACILITY)""~"
^DIPT(846,"F",17)="""Laterality: "";C12~"
^DIPT(846,"F",18)="X DXS(11,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(LATERALITY)""~"
^DIPT(846,"F",19)="""Transfer Facility: "";C66~"
^DIPT(846,"F",20)="X DXS(12,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(TRANSFER FACILITY)""~"
^DIPT(846,"F",21)="""DX Confirmation: "";C7~"
^DIPT(846,"F",22)="X DXS(13,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DIAGNOSTIC CONFIRMATION)""~"
^DIPT(846,"F",23)="""Primary Payer at Diagnosis: "";C57~"
^DIPT(846,"F",24)="X DXS(14,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#18)""~"
^DIPT(846,"F",25)="""IP/OP status: "";C10~123;X~""Screening Result: "";C6~119;X;L35~""Screening Date: "";C69~79;X~""Presentation at Cancer Conference: "";C2~120;X;L26~"
^DIPT(846,"F",26)="""Date of Cancer Conference: "";C66~121;X~""Referral to Support Services: "";C2~122~""Site/Gp: "";C15;S1~"
^DIPT(846,"F",27)="X DXS(15,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(SITE/GP)""~"
^DIPT(846,"F",28)=""" Primary Sequence No: "";X~.06;X~""Text-Primary Site Title: "";C5~X DXS(16,9) W X K DIP;X;Z;""LOWERCASE(TEXT-PRIMARY SITE)""~"" "";C7~"
^DIPT(846,"F",29)="""Text-Dx Proc-PE: "";C5~104,.01;X~""Text-Dx Proc-X-ray/scan: "";C5~105,.01;X~""Text-Dx Proc-Op: "";C5~103,.01;X~""Text-Dx Proc-Lab Tests: "";C5~116,.01;X~"
^DIPT(846,"F",30)="""Text-Dx Proc-Scopes: "";C5~106,.01;X~""Text-Dx Proc-Path: "";C5~107,.01;X~"
^DIPT(846,"F",31)="X DXS(17,9) W X K DIP;S1;X;Z;""CENTER(""*********************** OTHER PRIMARY SITES ***********************"")""~48;S1~"
^DIPT(846,"H")="@"
^DIPT(846,"IOM")="132"
^DIPT(846,"LAST")=""
^DIPT(846,"ROU")="^ONCOX5"
^DIPT(846,"ROUOLD")="ONCOX5"
^DIPT(846,"SUB")="1"
^DIPT(847,0)="ONCOX6^3030428.0933^^165.5^^@^3030428"
^DIPT(847,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(847,"DXS",1,9.2)="S X=""***************** STAGE of DISEASE at DIAGNOSIS ******************"""
^DIPT(847,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$$EXTERNAL^DIDU(165.5,30,"""",$P(DIP(1),U,10))"
^DIPT(847,"DXS",3,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$$EXTERNAL^DIDU(165.5,31,"""",$P(DIP(1),U,11))"
^DIPT(847,"DXS",4,0)="Not staged"
^DIPT(847,"DXS",4,1)="Managing MD"
^DIPT(847,"DXS",4,2)="Pathologist"
^DIPT(847,"DXS",4,3)="Pathologist & managing MD"
^DIPT(847,"DXS",4,4)="Committee chair, liaison MD, reg"
^DIPT(847,"DXS",4,5)="Registrar"
^DIPT(847,"DXS",4,6)="Registrar & MD"
^DIPT(847,"DXS",4,7)="Another facility"
^DIPT(847,"DXS",4,8)="NA"
^DIPT(847,"DXS",4,9)="Unknown"
^DIPT(847,"DXS",5,0)="Not staged"
^DIPT(847,"DXS",5,1)="Managing MD"
^DIPT(847,"DXS",5,2)="Pathologist"
^DIPT(847,"DXS",5,3)="Pathologist & managing MD"
^DIPT(847,"DXS",5,4)="Committee chair, liaison MD, registry advisor"
^DIPT(847,"DXS",5,5)="Registrar"
^DIPT(847,"DXS",5,6)="Registrar & MD"
^DIPT(847,"DXS",5,7)="Another facility"
^DIPT(847,"DXS",5,8)="NA"
^DIPT(847,"DXS",5,9)="Unknown"
^DIPT(847,"DXS",6,999)="NA"
^DIPT(847,"DXS",6,"000")="No peripheral blood involvement"
^DIPT(847,"DXS",6,"001")="<5% atypical circulating cells in blood"
^DIPT(847,"DXS",6,"002")=">5% atypical circulating cells in blood"
^DIPT(847,"DXS",6,"003")="% not stated"
^DIPT(847,"DXS",7,1)="Yes"
^DIPT(847,"DXS",7,2)="No"
^DIPT(847,"DXS",7,999)="Unknown"
^DIPT(847,"DXS",8,0)="None"
^DIPT(847,"DXS",8,1)="Peritoneum"
^DIPT(847,"DXS",8,2)="Lung"
^DIPT(847,"DXS",8,3)="Pleura"
^DIPT(847,"DXS",8,4)="Liver"
^DIPT(847,"DXS",8,5)="Bone"
^DIPT(847,"DXS",8,6)="Central nervous system"
^DIPT(847,"DXS",8,7)="Skin"
^DIPT(847,"DXS",8,8)="Lymph nodes (distant)"
^DIPT(847,"DXS",8,9)="Other/Gen/Carcinomatosis/Unkn"
^DIPT(847,"DXS",9,0)="None"
^DIPT(847,"DXS",9,1)="Peritoneum"
^DIPT(847,"DXS",9,2)="Lung"
^DIPT(847,"DXS",9,3)="Pleura"
^DIPT(847,"DXS",9,4)="Liver"
^DIPT(847,"DXS",9,5)="Bone"
^DIPT(847,"DXS",9,6)="Central nervous system"
^DIPT(847,"DXS",9,7)="Skin"
^DIPT(847,"DXS",9,8)="Lymph nodes (distant)"
^DIPT(847,"DXS",9,9)="Other/Gen/Carcinomatosis/Unkn"
^DIPT(847,"DXS",10,0)="In situ"
^DIPT(847,"DXS",10,1)="Localized"
^DIPT(847,"DXS",10,2)="Regional by direct extension"
^DIPT(847,"DXS",10,3)="Regional to lymph nodes"
^DIPT(847,"DXS",10,4)="Regional by extension & to nodes"
^DIPT(847,"DXS",10,5)="Regional, NOS"
^DIPT(847,"DXS",10,7)="Distant metastasis/systemic disease"
^DIPT(847,"DXS",10,9)="Unknown"
^DIPT(847,"DXS",11,0)="None"
^DIPT(847,"DXS",11,1)="Peritoneum"
^DIPT(847,"DXS",11,2)="Lung"
^DIPT(847,"DXS",11,3)="Pleura"
^DIPT(847,"DXS",11,4)="Liver"
^DIPT(847,"DXS",11,5)="Bone"
^DIPT(847,"DXS",11,6)="Central nervous system"
^DIPT(847,"DXS",11,7)="Skin"
^DIPT(847,"DXS",11,8)="Lymph nodes (distant)"
^DIPT(847,"DXS",11,9)="Other/Gen/Carcinomatosis/Unkn"
^DIPT(847,"F",1)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""***************** STAGE of DISEASE at DIAGNOSIS ******************"")""~"" "";C30~""Clinical TNM: "";C2~37;C17;X~"
^DIPT(847,"F",2)="""Pathologic TNM: "";C55~89.1;C72;X~""Clinical T: "";C2~37.1;C18;X~""Pathologic T: "";C55~85;C73;X~""Clinical N: "";C2~37.2;C18;X~"
^DIPT(847,"F",3)="""Pathologic N: "";C55~86;C73;X~""Clinical M: "";C2~37.3;C18;X~""Pathologic M: "";C55~87;C73;X~""Clinical Stage Group: "";C2~38;C28;X~"
^DIPT(847,"F",4)="""Pathologic Stage Group: "";C55~88;C81;X~""Staged By (Clin): "";C2~19;C21;L32;X~""Staged By (Path): "";C55~89;C74;X~""Other Stage: "";C2~39;C18;X~"
^DIPT(847,"F",5)="""Size of Tumor: "";C2~29;C17~""Positive nodes: "";C2~32;C20;X~""Peripheral Blood Inv.: "";C50~30.5;C73;X~""Nodes Examined: "";C2~33;C20;X~"
^DIPT(847,"F",6)="""Associated with HIV: "";C50~41;C71;X~""Extension: "";C2~"
^DIPT(847,"F",7)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C15;X;Z;""LOWERCASE(EXTENSION)""~"
^DIPT(847,"F",8)="""Metastasis-1: "";C50~34;X~""Lymph Nodes: "";C2~"
^DIPT(847,"F",9)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C16;X;Z;""LOWERCASE(LYMPH NODES)""~"
^DIPT(847,"F",10)="""Metastasis-2: "";C50~34.1;X~""General Summary Stage: "";C2~35;C26;X~""Metastasis-3: "";C50~34.2;X~"
^DIPT(847,"H")="@"
^DIPT(847,"IOM")="132"
^DIPT(847,"LAST")=""
^DIPT(847,"ROU")="^ONCOX6"
^DIPT(847,"ROUOLD")="ONCOX6"
^DIPT(847,"SUB")="1"
^DIPT(848,0)="ONCOX7^3001219.1416^^165.5^^@^3001219"
^DIPT(848,"DXS",1,9)="S X=""*************** FIRST COURSE OF TREATMENT ***************"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(848,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,2) X:$D(^DD(165.5,50.1,2)) ^(2) S X=Y"
^DIPT(848,"DXS",3,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,38) X:$D(^DD(165.5,58.2,2)) ^(2) S X=Y"
^DIPT(848,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,34) X:$D(^DD(165.5,74,2)) ^(2) S X=Y"
^DIPT(848,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,33) X:$D(^DD(165.5,23,2)) ^(2) S X=Y"
^DIPT(848,"DXS",6,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,58,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,26)_"":"",2),$C(59),1)"
^DIPT(848,"DXS",7,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,5) X:$D(^DD(165.5,51.1,2)) ^(2) S X=Y"
^DIPT(848,"DXS",8,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,75,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,35)_"":"",2),$C(59),1)"
^DIPT(848,"DXS",9,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,51.3,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(848,"DXS",10,9)="S DIP(1)=$S($D(^ONCO(165.5,D0,6,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DIPT(848,"DXS",11,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,6,D1,0)):^(0),1:"""") S X=$S('$D(^ONCO(164,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))"
^DIPT(848,"DXS",12,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.52,2,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,6,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(848,"DXS",13,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,9) X:$D(^DD(165.5,52.1,2)) ^(2) S X=Y"
^DIPT(848,"DXS",14,0)="None"
^DIPT(848,"DXS",14,1)="Beam radiation"
^DIPT(848,"DXS",14,2)="Radioactive implants"
^DIPT(848,"DXS",14,3)="Radioisotopes"
^DIPT(848,"DXS",14,4)="Beam rad w implants/radioisotopes"
^DIPT(848,"DXS",14,5)="Radiation therapy, NOS"
^DIPT(848,"DXS",14,7)="Refused radiation therapy"
^DIPT(848,"DXS",14,8)="Recommended, unk if given"
^DIPT(848,"DXS",14,9)="Unk if administered"
^DIPT(848,"DXS",15,0)="No radiation to CNS"
^DIPT(848,"DXS",15,1)="Radiation"
^DIPT(848,"DXS",15,7)="Patient refused radiation"
^DIPT(848,"DXS",15,8)="Radiation recommended, unk if admin"
^DIPT(848,"DXS",15,9)="Unknown/NA"
^DIPT(848,"DXS",16,0)="No radiation to CNS"
^DIPT(848,"DXS",16,1)="Radiation"
^DIPT(848,"DXS",16,7)="Patient refused radiation"
^DIPT(848,"DXS",16,8)="Radiation recommended, unk if admin"
^DIPT(848,"DXS",16,9)="Unknown/NA"
^DIPT(848,"F",1)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""*************** FIRST COURSE OF TREATMENT ***************"")""~""Dx/Stging/Palliative Proc: "";C2;S1~58.3;X~"
^DIPT(848,"F",2)="58.1;C60~""Surgery of Primary Site Date: "";C2~50;X~"
^DIPT(848,"F",3)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C60;Z;""LOWERCASE(SURGERY HOSPITAL)""~"
^DIPT(848,"F",4)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C60;Z;""LOWERCASE(#58.2)""~"
^DIPT(848,"F",5)="""Surgical Approach: "";C2~"
^DIPT(848,"F",6)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#74)""~"
^DIPT(848,"F",7)="""Reconstruction/Restoration: "";C2~"
^DIPT(848,"F",8)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#23)""~"
^DIPT(848,"F",9)="""- Text Rx-Surgery/No Surgery: "";C7~108,.01;X~""- Text Rx-Other Cancer Directed Surgery: "";C7~115,.01;X~""Surgical Margins: "";C2~59;X~"
^DIPT(848,"F",10)="""Reason for No Surgery: "";C60~"
^DIPT(848,"F",11)="X DXS(6,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(REASON FOR NO SURGERY)""~"
^DIPT(848,"F",12)="""Radiation Date: "";C2;S1~51;X~"
^DIPT(848,"F",13)="X DXS(7,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C40;Z;""LOWERCASE(RADIATION HOSPITAL)""~"
^DIPT(848,"F",14)="51.2;C60~""Regional Dose: "";C2~442;X;L12~""Regional Treatment Modality: "";C32~363;X;L50~""Reason for No Radiation: "";C2~"
^DIPT(848,"F",15)="X DXS(8,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#75)""~""Sequence: "";C8~"
^DIPT(848,"F",16)="X DXS(9,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#51.3)""~"
^DIPT(848,"F",17)="80,""Radiation Treatment - (either radiation or prophylactic) "";C15~80,""Target Place: "";C17~80,X DXS(10,9) W X K DIP;X;Z;""LOWERCASE(TARGET PLACE)""~"
^DIPT(848,"F",18)="80,"" Target Site: "";X~"
^DIPT(848,"F",19)="80,X DXS(11,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(TARGET SITE)""~"
^DIPT(848,"F",20)="80,"" Radiation Source: "";X~"
^DIPT(848,"F",21)="80,X DXS(12,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(RADIATION SOURCE)""~"
^DIPT(848,"F",22)="80,""Total due to target: "";C17~80,3;X~80,"" # Fractions: "";X~80,4;X~80,"" Predominant FXN size: "";X~80,5;X~80,""# Days: "";C17~80,6;X~"
^DIPT(848,"F",23)="80,"" Start Date: "";X~80,7;X~80,"" Stop Date: "";X~80,8;X~80,9,.01;X~80,"" "";C2;S1~""- Text Rx-Rad (BEAM): "";C7~109,.01;X~"
^DIPT(848,"F",24)="""- Text Rx-Rad-Other: "";C7~110,.01;X~""Radiation Therapy to CNS DAte: ""~52;X~"
^DIPT(848,"F",25)="X DXS(13,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C40;Z;""LOWERCASE(RADIATION THERAPY TO CNS HOSP)""~"
^DIPT(848,"F",26)="52.2;C60~"
^DIPT(848,"H")="@"
^DIPT(848,"IOM")="132"
^DIPT(848,"LAST")=""
^DIPT(848,"ROU")="^ONCOX7"
^DIPT(848,"ROUOLD")="ONCOX7"
^DIPT(848,"SUB")="1"
^DIPT(849,0)="ONCOX8^2990727.1319^^165.5^^@^2990727"
^DIPT(849,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,12) X:$D(^DD(165.5,53.1,2)) ^(2) S X=Y"
^DIPT(849,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.5,53.2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1)"
^DIPT(849,"DXS",3,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,15) X:$D(^DD(165.5,54.1,2)) ^(2) S X=Y"
^DIPT(849,"DXS",4,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.5,54.2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,16)_"":"",2),$C(59),1)"
^DIPT(849,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,18) X:$D(^DD(165.5,55.1,2)) ^(2) S X=Y"
^DIPT(849,"DXS",6,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:""""),Y=$P(DIP(1),U,24) X:$D(^DD(165.5,57.1,2)) ^(2) S X=Y"
^DIPT(849,"DXS",7,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.5,57.2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,25)_"":"",2),$C(59),1)"
^DIPT(849,"DXS",8,0)="Chemo administered"
^DIPT(849,"DXS",8,1)="Chemo not recommended"
^DIPT(849,"DXS",8,2)="Contraindicated, autopsy-only cases"
^DIPT(849,"DXS",8,6)="Reason unk"
^DIPT(849,"DXS",8,7)="Pt refused chemo"
^DIPT(849,"DXS",8,8)="Chemo recommended, unk if administered"
^DIPT(849,"DXS",8,9)="Unk if administered, death cert-only cas"
^DIPT(849,"DXS",9,0)="HT administered"
^DIPT(849,"DXS",9,1)="HT not recommended"
^DIPT(849,"DXS",9,2)="Contraindicated, autopsy-only cases"
^DIPT(849,"DXS",9,6)="Reason unk"
^DIPT(849,"DXS",9,7)="Pt refused HT"
^DIPT(849,"DXS",9,8)="HT recommended, unk if administered"
^DIPT(849,"DXS",9,9)="Unk if administered, death cert-only cas"
^DIPT(849,"DXS",10,82)="Not admin/contraindicated"
^DIPT(849,"DXS",10,85)="Pt died prior to tx"
^DIPT(849,"DXS",10,86)="Not admin, no reason given"
^DIPT(849,"DXS",10,87)="Refused by pt"
^DIPT(849,"DXS",10,88)="Unknown if admin"
^DIPT(849,"DXS",10,99)="Unknown, death cert"
^DIPT(849,"DXS",10,"00")="None"
^DIPT(849,"DXS",10,"01")="Immunotherapy"
^DIPT(849,"DXS",11,0)="Not available"
^DIPT(849,"DXS",11,1)="On protocol"
^DIPT(849,"DXS",11,2)="Ineligible (age,stage,etc.)"
^DIPT(849,"DXS",11,3)="Ineligible (comorbidity, preexist cond)"
^DIPT(849,"DXS",11,4)="Entered but withdrawn"
^DIPT(849,"DXS",11,6)="Eligible, not entered"
^DIPT(849,"DXS",11,7)="Eligible, refused"
^DIPT(849,"DXS",11,8)="Not recommended"
^DIPT(849,"DXS",11,9)="Unknown"
^DIPT(849,"DXS",12,10)="ACS"
^DIPT(849,"DXS",12,11)="National protocol, NOS"
^DIPT(849,"DXS",12,12)="Local protocol, NOS"
^DIPT(849,"DXS",12,99)="Unknown"
^DIPT(849,"DXS",12,"00")="Not on/NA"
^DIPT(849,"DXS",12,"01")="NSABP"
^DIPT(849,"DXS",12,"02")="GOG"
^DIPT(849,"DXS",12,"03")="RTOG"
^DIPT(849,"DXS",12,"04")="SWOG"
^DIPT(849,"DXS",12,"05")="ECOG"
^DIPT(849,"DXS",12,"06")="POG"
^DIPT(849,"DXS",12,"07")="CCG"
^DIPT(849,"DXS",12,"08")="CALGB"
^DIPT(849,"DXS",12,"09")="NCI"
^DIPT(849,"DXS",13,"Y")="YES"
^DIPT(849,"DXS",14,"N")="NO"
^DIPT(849,"DXS",14,"Y")="YES"
^DIPT(849,"F",1)="""Chemotherapy Date: "";C2;S1~53;X~"
^DIPT(849,"F",2)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C40;Z;""LOWERCASE(CHEMOTHERAPY HOSPITAL)""~"
^DIPT(849,"F",3)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C60;Z;""LOWERCASE(CHEMOTHERAPY)""~"
^DIPT(849,"F",4)="""Reason for No Chemotherapy: "";C2~76;;X;L40~""Text-Rx-Chemo: "";C7~111,.01;X~""Hormone Therapy Date: "";C2~54;X~"
^DIPT(849,"F",5)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C40;Z;""LOWERCASE(HORMONE THERAPY HOSPITAL)""~"
^DIPT(849,"F",6)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C60;Z;""LOWERCASE(HORMONE THERAPY)""~"
^DIPT(849,"F",7)="""Reason for No Hormone Therapy: "";C2~77;X;L40~""Text-Rx-Hormone: "";C7~112,.01;X~""Immunotherapy Date: "";C2~55;X~"
^DIPT(849,"F",8)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C40;Z;""LOWERCASE(IMMUNOTHERAPY HOSPITAL)""~"
^DIPT(849,"F",9)="55.2;C60~""Text-RX-Immunotherapy: "";C7~114,.01;X~""Other Therapy Date: "";C2~57;X~"
^DIPT(849,"F",10)="X DXS(6,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C40;Z;""LOWERCASE(OTHER TREATMENT HOSPITAL)""~"
^DIPT(849,"F",11)="X DXS(7,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C60;Z;""LOWERCASE(OTHER TREATMENT)""~"
^DIPT(849,"F",12)="""Text-Rx-Other: "";C7~115,.01;X~W "" "";C7;Z;""W "" """"~""Protocol Eligibility Status: "";C2~346;X;L40~""Protocol Participation: "";C2~560;C32;X~"
^DIPT(849,"F",13)="W "" "";C7;Z;""W "" """"~""Text Remarks: "";C7~113,.01~""Physician's Staging: "";C7~65;X~""MD: "";C50~66;X~""QA Selected: "";C7~62;X~""QA Review: "";C35~63;X~"
^DIPT(849,"F",14)="""QA Date: "";C55~64;X~"" "";C2~"
^DIPT(849,"H")="@"
^DIPT(849,"IOM")="132"
^DIPT(849,"LAST")=""
^DIPT(849,"ROU")="^ONCOX8"
^DIPT(849,"ROUOLD")="ONCOX8"
^DIPT(849,"SUB")="1"
^DIPT(850,0)="ONCOX9^2960205.1255^^165.5^^@^2960603"
^DIPT(850,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(850,"DXS",1,9.2)="S X=""*************************** RECURRENCES ****************************"""
^DIPT(850,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.5,71.1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,5)):^(5),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(850,"DXS",3,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,5)):^(5),1:""""),Y=$P(DIP(1),U,2) X:$D(^DD(165.5,71,2)) ^(2) S X=Y"
^DIPT(850,"DXS",4,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.5,71.2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,5)):^(5),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(850,"DXS",5,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.5,71.3,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,5)):^(5),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(850,"DXS",6,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,23,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,2) X:$D(^DD(165.572,.02,2)) ^(2) S X=Y"
^DIPT(850,"DXS",7,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.572,.03,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,23,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(850,"DXS",8,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.572,.031,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,23,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(850,"DXS",9,9.2)="S DIP(2)=$C(59)_$S($D(^DD(165.572,.032,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,23,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(850,"F",1)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""*************************** RECURRENCES ****************************"")""~""Recurrence Date: "";C2;S1~70;X~"
^DIPT(850,"F",2)="""Distant Site 1: "";C50~"
^DIPT(850,"F",3)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DISTANT SITE 1)""~"
^DIPT(850,"F",4)="""Type of 1st Recurrence: "";C2~"
^DIPT(850,"F",5)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(TYPE of FIRST RECURRENCE)""~"
^DIPT(850,"F",6)="""Distant Site 2: "";C50~"
^DIPT(850,"F",7)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DISTANT SITE 2)""~"
^DIPT(850,"F",8)="""Distant Site 3: "";C50~"
^DIPT(850,"F",9)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DISTANT SITE 3)""~"
^DIPT(850,"F",10)="72,""Subsequent Recurrence Date: "";C2;S1~72,.01;X~72,""Type of Subsequent Recurrence: "";C2~"
^DIPT(850,"F",11)="72,X DXS(6,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(TYPE)""~"
^DIPT(850,"F",12)="72,""Distant Site 1: "";C50~"
^DIPT(850,"F",13)="72,X DXS(7,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DISTANT SITE 1)""~"
^DIPT(850,"F",14)="72,""Distant Site 2: "";C50~"
^DIPT(850,"F",15)="72,X DXS(8,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DISTANT SITE 2)""~"
^DIPT(850,"F",16)="72,""Distant Site 3: "";C50~"
^DIPT(850,"F",17)="72,X DXS(9,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(DISTANT SITE 3)""~"
^DIPT(850,"H")="@"
^DIPT(850,"IOM")="132"
^DIPT(850,"LAST")=""
^DIPT(850,"ROU")="^ONCOX9"
^DIPT(850,"ROUOLD")="ONCOX9"
^DIPT(850,"SUB")="1"
^DIPT(851,0)="ONCOX10^3001226.0943^^165.5^^@^3020724"
^DIPT(851,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(851,"DXS",1,9.2)="S X=""****************** SUBSEQUENT COURSE OF THERAPY *******************"""
^DIPT(851,"DXS",2,9)="S I(2,0)=$G(D2) X DXS(2,9.2):D1>0 S X="""" X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X S D2=I(2,0)"
^DIPT(851,"DXS",2,9.2)="S I(0)=""^ONCO(165.5,"",J(0)=165.5 F D=0:0 S (D,D2)=$O(^ONCO(165.5,D0,4,D1,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D2"
^DIPT(851,"DXS",3,0)="None"
^DIPT(851,"DXS",3,1)="Beam Radiation"
^DIPT(851,"DXS",3,2)="Radioactive Implants"
^DIPT(851,"DXS",3,3)="Radioisotopes"
^DIPT(851,"DXS",3,4)="Combination of Beam + Implants or Isotopes"
^DIPT(851,"DXS",3,5)="Radiation NOS"
^DIPT(851,"DXS",3,7)="Radiation Therapy Refused"
^DIPT(851,"DXS",3,8)="Recommended, Unknown if Given"
^DIPT(851,"DXS",3,9)="Unknown if Recommended/Given"
^DIPT(851,"DXS",4,0)="Not Applicable"
^DIPT(851,"DXS",4,2)="Radiation Before Surgery"
^DIPT(851,"DXS",4,3)="Radiation After Surgery"
^DIPT(851,"DXS",4,4)="Both Before AND After Surgery"
^DIPT(851,"DXS",4,5)="Intraoperative Radiation"
^DIPT(851,"DXS",4,6)="Intraoperative Radiation with other radiation before/after surgery"
^DIPT(851,"DXS",4,9)="Sequence Unknown"
^DIPT(851,"DXS",5,0)="None"
^DIPT(851,"DXS",5,1)="Radiation Given"
^DIPT(851,"DXS",5,7)="Refused Radiation"
^DIPT(851,"DXS",5,8)="Recommended, Unknown if Given"
^DIPT(851,"DXS",5,9)="Unknown if Recommended/Given or Not Applicable"
^DIPT(851,"DXS",6,82)="Not admin/contraindicated"
^DIPT(851,"DXS",6,85)="Pt died prior to tx"
^DIPT(851,"DXS",6,86)="Not admin, no reason given"
^DIPT(851,"DXS",6,87)="Refused by pt"
^DIPT(851,"DXS",6,88)="Unknown if admin"
^DIPT(851,"DXS",6,99)="Unknown, death cert"
^DIPT(851,"DXS",6,"00")="None"
^DIPT(851,"DXS",6,"01")="Chemotherapy, NOS"
^DIPT(851,"DXS",6,"02")="Single agent"
^DIPT(851,"DXS",6,"03")="Multiagent"
^DIPT(851,"DXS",7,82)="Not admin/contraindicated"
^DIPT(851,"DXS",7,85)="Pt died prior to tx"
^DIPT(851,"DXS",7,86)="Not admin, no reason given"
^DIPT(851,"DXS",7,87)="Refused by pt"
^DIPT(851,"DXS",7,88)="Unknown if admin"
^DIPT(851,"DXS",7,99)="Unknown, death cert"
^DIPT(851,"DXS",7,"00")="None"
^DIPT(851,"DXS",7,"01")="Hormone therapy"
^DIPT(851,"DXS",8,82)="Not admin/contraindicated"
^DIPT(851,"DXS",8,85)="Pt died prior to tx"
^DIPT(851,"DXS",8,86)="Not admin, no reason given"
^DIPT(851,"DXS",8,87)="Refused by pt"
^DIPT(851,"DXS",8,88)="Unknown if admin"
^DIPT(851,"DXS",8,99)="Unknown, death cert"
^DIPT(851,"DXS",8,"00")="None"
^DIPT(851,"DXS",8,"01")="Immunotherapy"
^DIPT(851,"DXS",9,0)="None"
^DIPT(851,"DXS",9,1)="Other"
^DIPT(851,"DXS",9,2)="Other - Experimental"
^DIPT(851,"DXS",9,3)="Other - Double Blind"
^DIPT(851,"DXS",9,6)="Other - Unproven"
^DIPT(851,"DXS",9,7)="Refusal"
^DIPT(851,"DXS",9,8)="Reccommended, unknown if administered"
^DIPT(851,"DXS",9,9)="Unknown"
^DIPT(851,"F",1)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""****************** SUBSEQUENT COURSE OF THERAPY *******************"")""~60,""Date started: "";C30;S1~60,.01;X~"
^DIPT(851,"F",2)="60,""Surgery: "";C10~60,.041;X~60,"" "";X~60,.04;X~60,""Radiation: "";C10~60,.051;X~60,"" "";X~60,.05;X~60,""Radiation Sequence: "";C10~60,1;X~"
^DIPT(851,"F",3)="60,""Radiation Therapy to CNS: "";C10~60,.031;X~60,"" "";X~60,.03;X~60,""Chemotherapy: "";C10~60,.061;X~60,"" "";X~60,.06;X~60,""Hormone/Therapy: "";C10~60,.071;X~"
^DIPT(851,"F",4)="60,"" "";X~60,.07;X~60,""Immunotherapy (BRM): "";C10~60,.081;X;L18~60,"" "";X~60,.08;X~60,""Other Cancer Therapy: "";C10~60,.091;X~60,"" "";X~60,.09;X~"
^DIPT(851,"F",5)="60,""Place: "";C2~60,2;X~60,""Comment(s): "";C2~60,X DXS(2,9) W X K DIP;X;m;w;Z;""LOWERCASE(SUBSEQUENT THERAPY COMMENTS)""~"
^DIPT(851,"H")="@"
^DIPT(851,"IOM")="132"
^DIPT(851,"LAST")=""
^DIPT(851,"ROU")="^ONCOX10"
^DIPT(851,"ROUOLD")="ONCOX10"
^DIPT(851,"SUB")="1"
^DIPT(852,0)="ONCOX11^2970723.0959^^165.5^^@^2971002"
^DIPT(852,"DXS",1,9.2)="S DIP(101)=$S($D(^ONCO(160,D0,1)):^(1),1:""""),Y=$P(DIP(101),U,5) X:$D(^DD(160,21,2)) ^(2) S X=Y"
^DIPT(852,"DXS",2,9.2)="S DIP(101)=$S($D(^ONCO(160,D0,1)):^(1),1:""""),Y=$P(DIP(101),U,11) X:$D(^DD(160,24.5,2)) ^(2) S X=Y"
^DIPT(852,"DXS",3,9.2)="S DIP(102)=$C(59)_$S($D(^DD(160,22.9,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^ONCO(160,D0,1)):^(1),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,13)_"":"",2),$C(59),1)"
^DIPT(852,"DXS",4,0)="Patient alive at last follow-up"
^DIPT(852,"DXS",4,8)="ICDA-8"
^DIPT(852,"DXS",4,9)="ICD-9"
^DIPT(852,"DXS",5,"D")="Directly related"
^DIPT(852,"DXS",5,"I")="Indirectly related"
^DIPT(852,"DXS",5,"N")="Not related"
^DIPT(852,"DXS",5,"U")="Unknown"
^DIPT(852,"F",1)="""************************ FOLLOW-UP HISTORY ************************"";S1;X~150~""DATE OF LAST CONTACT: "";C2~200;X~""TUMOR STATUS: "";C45~95;X~"
^DIPT(852,"F",2)="W "" "";C10;Z;""W "" """"~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~"
^DIPT(852,"F",3)="-160,""ICD Revision: "";C2~-160,20;X~-160,""Place of Death: "";C2~"
^DIPT(852,"F",4)="-160,X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(PLACE OF DEATH)""~"
^DIPT(852,"F",5)="-160,""Care Center at Death: "";C2~"
^DIPT(852,"F",6)="-160,X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(CARE CENTER AT DEATH)""~"
^DIPT(852,"F",7)="-160,""Autopsy: "";C2~"
^DIPT(852,"F",8)="-160,X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(AUTOPSY)""~"
^DIPT(852,"F",9)="-160,""Autopsy Date/Time: "";C2~-160,23;X~-160,""Autopsy No: "";C2~-160,24;X~-160,""ICD Cause of Death: "";C2~"
^DIPT(852,"F",10)="-160,-80,^ICD9(^^S I(100,0)=D0 S DIP(101)=$S($D(^ONCO(160,D0,1)):^(1),1:"""") S X=$P(DIP(101),U,3),X=X S D(0)=+X;Z;""ICD CAUSE OF DEATH:""~-160,-80,.01~"
^DIPT(852,"F",11)="-160,-80,S DIP(201)=$S($D(^ICD9(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,3) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;Z;""LOWERCASE(DIAGNOSIS)""~"
^DIPT(852,"F",12)="-160,""Cause of Death/Cancer: "";C2~-160,18.9;X~-160,""Date of Death: "";C2~-160,29;X~-160,""Path/autopsy: "";C2~-160,31,.01;X~-160,W "" "";C1;Z;""W "" """"~"
^DIPT(852,"F",13)="-160,W ""TUMOR Status at DEATH (Multiple Primaries)"";C20;Z;""W ""TUMOR Status at DEATH (Multiple Primaries)""""~-160,W "" "";C1;Z;""W "" """"~-160,70;X~"" "";S1~"
^DIPT(852,"F",14)="I $G(PRTPCE)=1 D PCEPRT^ONCOGEN;Z;""I $G(PRTPCE)=1 D PCEPRT^ONCOGEN""~"
^DIPT(852,"H")="@"
^DIPT(852,"IOM")="80"
^DIPT(852,"LAST")=""
^DIPT(852,"ROU")="^ONCOX11"
^DIPT(852,"ROUOLD")="ONCOX11"
^DIPT(852,"SUB")="1"
^DIPT(853,0)="ONCO ANNUAL CLASS/PATIENT-HDR^3050621.1127^^165.5^^@^3050621"
^DIPT(853,"DXS",1,9)="S DIP(2)=$C(59)_$P($G(^DD(165.5,.042,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7)_"" - ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,20)_"":"",2),$C(59))"
^DIPT(853,"F",1)="""********************************************************************************"";C1~"
^DIPT(853,"F",2)="X DXS(1,9) W X K DIP;C1;X;Z;""ACCESSION YEAR_"" - ""_CLASS CATEGORY""~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C30;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(853,"F",3)="S X=DT S Y=X D DT K DIP;C55;L12;X;Z;""TODAY"";d~""PAGE:"";C72;X~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C77;R3;X;Z;""PAGE""~"" "";C1;~""Patient Name"";C1~"
^DIPT(853,"F",4)="""Med Rec#"";C22~""Sx"";C33;L2;X~""Acc/Seq#"";C36;L10;X~""Site/Group"";C51;L7;X~""Date Dx"";C72;L7;X~"
^DIPT(853,"F",5)="""********************************************************************************"";C1~"
^DIPT(853,"H")="@"
^DIPT(853,"SUB")="1"
^DIPT(854,0)="ONCO ANNUAL CLASS/PATIENT^2990914.1034^^165.5^^@^2991117"
^DIPT(854,"DCL","165.5^.061")="!"
^DIPT(854,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20~-160,2;C22;L11~"
^DIPT(854,"F",2)="-160,10;C34;L1~.061;C36;L13~.01;C51;L18~3;""DATE DX"";C71;L10~"
^DIPT(854,"H")="[ONCO ANNUAL CLASS/PATIENT-HDR]"
^DIPT(855,0)="ONCO AJCC SUMMARY STAGE GPS^2901029.152^^165.5^^@^^"
^DIPT(855,"F",2)="38~38.5~38.1~38.2~38.3~38.4~"
^DIPT(855,"H")="PRIMARY LIST"
^DIPT(856,0)="ONCO ANNUAL SITE/ICDT/ICDM^2990914.1409^^165.5^^@^2991117"
^DIPT(856,"DCL","165.5^.061")="!"
^DIPT(856,"F",2)=".061;C1;L13~58.1;C16;L18~51.2;C36;L18~53.2;C58;L18~4;C78;L2~"
^DIPT(856,"H")="PRIMARY STATISTICS"
^DIPT(857,0)="ONCO ANNUAL TREATMENT^2901109.0139^^165.5^^@^^"
^DIPT(857,"F",2)="58.1~52.2~51.2~53.2~"
^DIPT(857,"H")="PRIMARY LIST"
^DIPT(858,0)="ONCO ICDO PATIENT LIST^2901221.0654^^165.5^^@^^"
^DIPT(858,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20~-160,2;C22;L11~"
^DIPT(858,"F",2)="20;C35;L20~-164.1,^ONCO(164.1,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""22:""~-164.1,1;C57;L6~"
^DIPT(858,"F",3)="-164.1,.01;C64;L16~"
^DIPT(858,"H")="PRIMARY LIST"
^DIPT(859,0)="ONCO TREATMENT^2901109.0135^^165.5^^@^^"
^DIPT(859,"F",1)=".02~-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""20:""~-164,1~-164,.01~58.1~50.2~51.2~"
^DIPT(859,"F",2)="52.2~53.2~"
^DIPT(859,"H")="PRIMARY LIST"
^DIPT(860,0)="ONCOY50^3051006.1039^^165.5^^@^3051006"
^DIPT(860,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,1,0),U,5,99) S DIP(101)=X"
^DIPT(860,"DXS",2,9)="S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DIPT(860,"DXS",3,9)="S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,12) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DIPT(860,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"""") S X=$$EXTERNAL^DIDU(165.5,16,"""",$P(DIP(1),U,4))"
^DIPT(860,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"""") S X=$P($G(^VIC(5.1,+$P(DIP(1),U,3),0)),U)"
^DIPT(860,"F",1)="""* PATIENT IDENTIFICATION *"";S1~""Patient Name..................:"";C3;S1~.02;C35~""Alias.........................:"";C3~"
^DIPT(860,"F",2)="X DXS(1,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C35;Z;"".02:1""~""Address at Dx.................:"";C3~"
^DIPT(860,"F",3)="X DXS(2,9) W X K DIP;C35;Z;""LOWERCASE(PATIENT ADDRESS AT DX)""~""City/town at Dx...............:"";C3~"
^DIPT(860,"F",4)="X DXS(3,9) W X K DIP;C35;Z;""LOWERCASE(CITY/TOWN AT DX)""~""State at Dx...................:"";C3~"
^DIPT(860,"F",5)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(STATE AT DX)""~"
^DIPT(860,"F",6)="""Postal Code at Dx.............:"";C3~9;C35~""County at Dx..................:"";C3~"
^DIPT(860,"F",7)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;C35;Z;""LOWERCASE(COUNTY AT DX)""~"
^DIPT(860,"F",8)="""Accession Year................:"";C3~.07;C35~""Accession/Sequence Number.....:"";C3~.061;C35~"
^DIPT(860,"H")="@"
^DIPT(860,"IOM")="80"
^DIPT(860,"LAST")=""
^DIPT(860,"ROU")="^ONCOY50"
^DIPT(860,"ROUOLD")="ONCOY50"
^DIPT(860,"SUB")="1"
^DIPT(861,0)="ONCOY51^3051006.1042^^165.5^^@^3051006"
^DIPT(861,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(165,+$P(DIP(1),U,12),0)),U)"
^DIPT(861,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(165,+$P(DIP(1),U,11),0)),U)"
^DIPT(861,"DXS",3,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(165,+$P(DIP(1),U,14),0)),U)"
^DIPT(861,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(165,+$P(DIP(1),U,15),0)),U)"
^DIPT(861,"F",1)="""Following Physician...........:"";C3~"
^DIPT(861,"F",2)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(FOLLOWING PHYSICIAN)""~"
^DIPT(861,"F",3)="""Primary Surgeon...............:"";C3;X~"
^DIPT(861,"F",4)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PRIMARY SURGEON)""~"
^DIPT(861,"F",5)="""Physician #3..................:"";C3~"
^DIPT(861,"F",6)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PHYSICIAN #3)""~"
^DIPT(861,"F",7)="""Physician #4..................:"";C3~"
^DIPT(861,"F",8)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PHYSICIAN #4)""~"
^DIPT(861,"F",9)="""Primary Payer at Dx...........:"";C3~18;C35~"
^DIPT(861,"H")="@"
^DIPT(861,"IOM")="80"
^DIPT(861,"LAST")=""
^DIPT(861,"ROU")="^ONCOY51"
^DIPT(861,"ROUOLD")="ONCOY51"
^DIPT(861,"SUB")="1"
^DIPT(862,0)="ONCOY52^3051205.0958^^165.5^^@^3051205"
^DIPT(862,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U)"
^DIPT(862,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ONCO(164.43,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164.43,D0,0)):^(0),1:"""")"
^DIPT(862,"DXS",3,9.2)="S DIP(2)=$C(59)_$P($G(^DD(165.5,26,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59))"
^DIPT(862,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.5,6,"""",$P(DIP(1),U,18))"
^DIPT(862,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.5,7,"""",$P(DIP(1),U,19))"
^DIPT(862,"DXS",6,0)="Dx here, 1st tx ew"
^DIPT(862,"DXS",6,1)="Dx here, 1st tx here"
^DIPT(862,"DXS",6,2)="Dx ew, 1st tx here"
^DIPT(862,"DXS",6,3)="Dx ew, 1st tx ew"
^DIPT(862,"DXS",6,4)="Dx/1st tx before ref date"
^DIPT(862,"DXS",6,5)="Dx at autopsy"
^DIPT(862,"DXS",6,6)="Dx/1st tx in MD office"
^DIPT(862,"DXS",6,7)="Pathology report only"
^DIPT(862,"DXS",6,8)="Death cert"
^DIPT(862,"DXS",6,9)="Unknown"
^DIPT(862,"DXS",7,0)="No"
^DIPT(862,"DXS",7,1)="Yes"
^DIPT(862,"DXS",7,9)="Unknown"
^DIPT(862,"DXS",8,0)="Not presented"
^DIPT(862,"DXS",8,1)="Prospective (diagnostic)"
^DIPT(862,"DXS",8,2)="Prospective (treatment)"
^DIPT(862,"DXS",8,3)="Prospective (follow-up)"
^DIPT(862,"DXS",8,4)="Prospective (combinations)"
^DIPT(862,"DXS",8,5)="Prospective, NOS"
^DIPT(862,"DXS",8,6)="Retrospective"
^DIPT(862,"DXS",8,7)="Follow-up"
^DIPT(862,"DXS",8,8)="Presentation, NOS"
^DIPT(862,"DXS",8,9)="Unknown"
^DIPT(862,"F",1)="""* CANCER IDENTIFICATION *"";S1~""Date Dx.......................:"";C3;S1~3;C35;L10~""Class of Case.................:"";C3~.04;C35~"
^DIPT(862,"F",2)="""Histology (ICD-O-3)...........:"";C3~"
^DIPT(862,"F",3)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(HISTOLOGY (ICD-O-3))""~"
^DIPT(862,"F",4)="""Grade/Diff/Cell Type..........:"";C3~24;C35~X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C35;Z;""GRADE:EXPLANATION""~"
^DIPT(862,"F",5)="""AFIP Submission...............:"";C3~83;C35~""Dx Confirmation...............:"";C3~"
^DIPT(862,"F",6)="X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(DIAGNOSTIC CONFIRMATION)""~"
^DIPT(862,"F",7)="""Facility Referred From........:"";C3~"
^DIPT(862,"F",8)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(FACILITY REFERRED FROM)""~"
^DIPT(862,"F",9)="""Facility Referred To..........:"";C3~"
^DIPT(862,"F",10)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(FACILITY REFERRED TO)""~"
^DIPT(862,"F",11)="""Presentation at Cancer Conf...:"";C3~120;C35~""Date of Cancer Conf...........:"";C3~121;C35~"
^DIPT(862,"H")="@"
^DIPT(862,"IOM")="80"
^DIPT(862,"LAST")=""
^DIPT(862,"ROU")="^ONCOY52"
^DIPT(862,"ROUOLD")="ONCOY52"
^DIPT(862,"SUB")="1"
^DIPT(863,0)="ONCOY53^3060309.1524^^165.5^^@^3060309"
^DIPT(863,"DXS",1,0)="Not staged"
^DIPT(863,"DXS",1,1)="Managing MD"
^DIPT(863,"DXS",1,2)="Pathologist"
^DIPT(863,"DXS",1,3)="Pathologist & managing MD"
^DIPT(863,"DXS",1,4)="Committee chair, liaison MD, registry advisor"
^DIPT(863,"DXS",1,5)="Registrar"
^DIPT(863,"DXS",1,6)="Registrar & MD"
^DIPT(863,"DXS",1,7)="Another facility"
^DIPT(863,"DXS",1,8)="NA"
^DIPT(863,"DXS",1,9)="Unknown"
^DIPT(863,"DXS",2,0)="Not staged"
^DIPT(863,"DXS",2,1)="Managing MD"
^DIPT(863,"DXS",2,2)="Pathologist"
^DIPT(863,"DXS",2,3)="Pathologist & managing MD"
^DIPT(863,"DXS",2,4)="Committee chair, liaison MD, registry advisor"
^DIPT(863,"DXS",2,5)="Registrar"
^DIPT(863,"DXS",2,6)="Registrar & MD"
^DIPT(863,"DXS",2,7)="Another facility"
^DIPT(863,"DXS",2,8)="NA"
^DIPT(863,"DXS",2,9)="Unknown"
^DIPT(863,"DXS",3,0)="Not derived"
^DIPT(863,"DXS",3,"N")="Not applicable"
^DIPT(863,"DXS",3,"a")="autopsy only"
^DIPT(863,"DXS",3,"c")="clinical"
^DIPT(863,"DXS",3,"p")="pathological"
^DIPT(863,"DXS",3,"y")="y prefix"
^DIPT(863,"DXS",4,0)="Not derived"
^DIPT(863,"DXS",4,"N")="Not applicable"
^DIPT(863,"DXS",4,"a")="autopsy only"
^DIPT(863,"DXS",4,"c")="clinical"
^DIPT(863,"DXS",4,"p")="pathological"
^DIPT(863,"DXS",4,"y")="y prefix"
^DIPT(863,"DXS",5,0)="Not derived"
^DIPT(863,"DXS",5,"N")="Not applicable"
^DIPT(863,"DXS",5,"a")="autopsy only"
^DIPT(863,"DXS",5,"c")="clinical"
^DIPT(863,"DXS",5,"p")="pathological"
^DIPT(863,"DXS",5,"y")="y prefix"
^DIPT(863,"DXS",6,0)="In situ"
^DIPT(863,"DXS",6,1)="Localized"
^DIPT(863,"DXS",6,2)="Regional, direct extension"
^DIPT(863,"DXS",6,3)="Regional, lymph nodes only"
^DIPT(863,"DXS",6,4)="Regional, extension and nodes"
^DIPT(863,"DXS",6,5)="Regional, NOS"
^DIPT(863,"DXS",6,7)="Distant"
^DIPT(863,"DXS",6,8)="NA"
^DIPT(863,"DXS",6,9)="Unknown/Unstaged"
^DIPT(863,"DXS",7,0)="In situ"
^DIPT(863,"DXS",7,1)="Localized"
^DIPT(863,"DXS",7,2)="Regional, direct extension"
^DIPT(863,"DXS",7,3)="Regional, lymph nodes only"
^DIPT(863,"DXS",7,4)="Regional, extension and nodes"
^DIPT(863,"DXS",7,5)="Regional, NOS"
^DIPT(863,"DXS",7,7)="Distant"
^DIPT(863,"DXS",7,8)="NA"
^DIPT(863,"DXS",7,9)="Unknown/Unstaged"
^DIPT(863,"F",1)="""* STAGE OF DISEASE AT DIAGNOSIS *"";S1~""TNM Clinical..................: "";C3;S1~37;C35~""Stage Group Clinical..........:"";C3~38;C35~"
^DIPT(863,"F",2)="""Staged By (Clinical)..........:"";C3~19;C35~""TNM Pathologic................:"";C3~89.1;C35~""Stage Group Pathologic........:"";C3~88;C35;L14~"
^DIPT(863,"F",3)="""Staged By (Pathologic)........:"";C3~89;C35~""* COLLABORATIVE STAGING *"";S1~""Tumor Size....................: "";C3;S1~29.2;X~"
^DIPT(863,"F",4)="""Extension.....................: "";C3~30.2;X~""Tumor Size/Ext Eval...........:"";C3~29.1;C35~""Lymph Nodes ..................:"";C3~31.1;C35~"
^DIPT(863,"F",5)="""Reg Nodes Eval................:"";C3~32.1;C35~""Regional Nodes Examined.......:"";C3~33;C35~""Regional Nodes Positive.......:"";C3~32;C35~"
^DIPT(863,"F",6)="""Mets at Dx....................:"";C3~34.3;C35~""Mets Eval.....................:"";C3~34.4;C35~""Site-Specific Factor 1........:"";C3~44.1;C35~"
^DIPT(863,"F",7)="""Site-Specific Factor 2........:"";C3~44.2;C35~""Site-Specific Factor 3........:"";C3~44.3;C35~""Site-Specific Factor 4........:"";C3~44.4;C35~"
^DIPT(863,"F",8)="""Site-Specific Factor 5........:"";C3~44.5;C35~""Site-Specific Factor 6........:"";C3~44.6;C35~""Derived T.....................:"";C3;S1~160;C35~"
^DIPT(863,"F",9)="""Derived T Descriptor..........:"";C3~161;C35~""Derived N.....................:"";C3~162;C35~""Derived N Descriptor..........:"";C3~163;C35~"
^DIPT(863,"F",10)="""Derived M.....................:"";C3~164;C35~""Derived M Descriptor..........:"";C3~165;C35~""Derived Stage Group...........:"";C3~166;C35~"
^DIPT(863,"F",11)="""Derived SS1977................:"";C3~167;C35~""Derived SS2000................:"";C3~168;C35~"
^DIPT(863,"H")="@"
^DIPT(863,"IOM")="80"
^DIPT(863,"LAST")=""
^DIPT(863,"ROU")="^ONCOY53"
^DIPT(863,"ROUOLD")="ONCOY53"
^DIPT(863,"SUB")="1"
^DIPT(864,0)="ONCO ANNUAL ICDO/STAGE/TX^2980317.1428^^165.5^^@^2980317"
^DIPT(864,"DCL","165.5^43")="!"
^DIPT(864,"F",1)=".025;X;C1;L5~20.1;X;C7;L5~43;X;C14;L7~50;X;C23;L10~58.2;X;C34;L16~51;X;C52;L10~51.2;X;C63;L15~53;X;C80;L10~53.2;X;C91;L15~54;X;C108;L10~"
^DIPT(864,"F",2)="54.2;X;C119;L14~"
^DIPT(864,"H")="PRIMARY SITE/GP by STAGE by TREATMENT"
^DIPT(865,0)="ONCO PRIMARY INFORMATION132^3010411.094^^165.5^^@^3010411"
^DIPT(865,"DCL","165.5^.061")="!"
^DIPT(865,"F",2)=".02;C1;L21;X~.09;C23;L11;X~.061;C36;L13;X~3;C51;L10;X~20;C63;L19;X~22.3;C84;L20;X~37;C106;L10;X~38;C118;L5;X~43;C125;L7;X~"
^DIPT(865,"H")="PRIMARY LIST"
^DIPT(866,0)="ONCO ANNUAL HIST/SITE/ICDO^2990914.1059^^165.5^^@^2990914"
^DIPT(866,"DCL","165.5^.061")="!"
^DIPT(866,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20~-160,2;C22;L11~"
^DIPT(866,"F",2)="-160,10;C34;L1~.061;C36;L13~20;C51;L18~3;C71;L10~"
^DIPT(866,"H")="[ONCO ANNUAL CLASS/PATIENT-HDR]"
^DIPT(867,0)="ONCO ANNUAL PATIENT INFO-HDR^3050621.1129^^165.5^^@^3050621"
^DIPT(867,"DXS",1,9)="S DIP(2)=$C(59)_$P($G(^DD(165.5,.042,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7)_"" - ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,20)_"":"",2),$C(59))"
^DIPT(867,"F",1)="""********************************************************************************"";C1~S TEST=1 K TEST;Z;""S TEST=1 K TEST""~"
^DIPT(867,"F",2)="X DXS(1,9) W X K DIP;C1;X;Z;""ACCESSION YEAR_"" - ""_CLASS CATEGORY""~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C30;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(867,"F",3)="S X=DT S Y=X D DT K DIP;C55;L12;X;Z;""TODAY"";d~""PAGE:"";C72;X~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C77;R3;X;Z;""PAGE""~"" "";C1;~""Patient Name"";C1~"
^DIPT(867,"F",4)="""Med Rec#"";C22~""Sx"";C33;L2;X~""Acc/Seq#"";C36;L10;X~""ICDO-Topography"";C51;x~""Date Dx"";C72;L7;X~"
^DIPT(867,"F",5)="""********************************************************************************"";C1~"
^DIPT(867,"H")="@"
^DIPT(867,"SUB")="1"
^DIPT(868,0)="ONCO ANNUAL PATIENT INFO^2990914.1125^^165.5^^@^2991117"
^DIPT(868,"DCL","165.5^.061")="!"
^DIPT(868,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.01;C1;L20~-160,2;C22;L11~"
^DIPT(868,"F",2)="-160,10;C34;L1~.061;C36;L13~20;C51;L18~3;C71;L10~"
^DIPT(868,"H")="[ONCO ANNUAL PATIENT INFO-HDR]"
^DIPT(869,0)="ONCO ANNUAL SITE/STG/TX^2980317.1405^^165.5^^@^2980317"
^DIPT(869,"F",2)=".02;C1;L20~.091;C23;L5~3;C30;L10~37;C42;L8~38;C52;L3~35.1;C57;L10~43;C69~"
^DIPT(869,"H")="PRIMARY LIST"
^DIPT(870,0)="ONCO ANNUAL SITE/STAGE/TX-HDR^3050621.1143^^165.5^^@^3050621"
^DIPT(870,"F",1)="""************************************************************************************************************************************"";C1~"
^DIPT(870,"F",2)="""ANNUAL PRIMARY SITE/STAGE/TOPOGRAPHY INDEX"";C1~S X=$P(^DIC(4,DUZ(2),0),U,1) W X;C60;Z;""S X=$P(^DIC(4,DUZ(2),0),U,1) W X""~"
^DIPT(870,"F",3)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C90;L18;Z;""NOW"";d~""PAGE "";C122;L5~"
^DIPT(870,"F",4)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C127;R6;Z;""PAGE""~"" "";C1~""PT ID"";C1~""TX"";C7~""TREATMENT"";C14~""SURG DATE"";C27~""SURGERY"";C39~""RAD DATE"";C55~"
^DIPT(870,"F",5)="""RADIATION"";C67~""CHEMO DT"";C82~""CHEMOTHERAPY"";C94~""HT DATE"";C109~""HORMONE TPY"";C121~"
^DIPT(870,"F",6)="""************************************************************************************************************************************"";C1~"
^DIPT(870,"H")="@"
^DIPT(870,"SUB")="1"
^DIPT(871,0)="ONCO ANNUAL SITE/STAGE/TX^2990326.1128^^165.5^^@^2990608"
^DIPT(871,"DCL","165.5^43")="!"
^DIPT(871,"F",1)=".025;X;C1;L5~20.1;X;C7;L5~43;X;C14;L11~50;X;C27;L10~58.2;X;C39;L14~51;X;C55;L10~51.2;C67;L13;X~53;X;C82;L10~53.2;X;C94;L13~54;X;C109;L10~"
^DIPT(871,"F",2)="54.2;X;C121;L12~"
^DIPT(871,"H")="[ONCO ANNUAL SITE/STAGE/TX-HDR]"
^DIPT(872,0)="ONCO XINCIDENCE RPRT^3040224.1431^^165.5^^@^3040225"
^DIPT(872,"DXS",1,9)="S DIP(102)=$C(59)_$P($G(^DD(160,9,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=""ETHNICITY: ""_$P($P(DIP(102),$C(59)_$P(DIP(101),U,7)_"":"",2),$C(59))"
^DIPT(872,"DXS",2,9)="S DIP(2)=$C(59)_$P($G(^DD(165.5,28,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""LATERALITY: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59))"
^DIPT(872,"DXS",3,9)="S DIP(2)=$C(59)_$P($G(^DD(165.5,.04,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""CLASS of CASE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59))"
^DIPT(872,"DXS",4,9)="S DIP(2)=$C(59)_$P($G(^DD(165.5,26,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""DX CONFIRMATION: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59))"
^DIPT(872,"DXS",5,9)="S DIP(2)=$C(59)_$P($G(^DD(165.5,35,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""GEN SUMMARY STG: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,17)_"":"",2),$C(59))"
^DIPT(872,"F",1)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,1000.1~-160,1001.1~-160,1002.1~"
^DIPT(872,"F",2)="-160,W "" "";C1;X;Z;""W "" """"~-160,W "" "";C1;X;Z;""W "" """"~-160,.01;C5;X~"
^DIPT(872,"F",3)="-160,X ""N I,Y ""_$P(^DD(160,1003,0),U,5,99) S DIP(101)=X S X=""State Hospital No: ""_DIP(101) W X K DIP;C45;X;Z;""""State Hospital No: ""_#1003""~-160,.111;C5;X~"
^DIPT(872,"F",4)="-160,.118;C5;X~-160,W "" "";C1;X;Z;""W "" """"~-160,W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",5)="-160,W ""****************************************"";C20;X;Z;""W ""****************************************""""~-160,W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",6)="-160,W "" "";C1;X;Z;""W "" """"~-160,X ""N I,Y ""_$P(^DD(160,2,0),U,5,99) S DIP(101)=X S X=""SSN: ""_DIP(101) W X K DIP;C5;X;Z;""""SSN: ""_SSN""~"
^DIPT(872,"F",7)="-160,D DOB^ONCOES;Z;""D DOB^ONCOES""~-160,W ""DOB: ""_X;C45;X;L18;Z;""W ""DOB: ""_X""~"
^DIPT(872,"F",8)="-160,S DIP(102)=$C(59)_$P($G(^DD(160,10,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=""SEX: ""_$P($P(DIP(102),$C(59)_$P(DIP(101),U,8)_"":"",2),$C(59)) W X K DIP;C5;X;Z;""""SEX: ""_SEX""~"
^DIPT(872,"F",9)="-160,S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=""POB: ""_$P($G(^ONCO(165.2,+$P(DIP(101),U,5),0)),U) W X K DIP;C45;X;Z;""""POB: ""_#7""~"
^DIPT(872,"F",10)="-160,S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=""RACE: ""_$P($G(^ONCO(164.46,+$P(DIP(101),U,6),0)),U) W X K DIP;C5;X;Z;""""RACE: ""_#8""~"
^DIPT(872,"F",11)="-160,X DXS(1,9) W X K DIP;C45;X;L36;Z;""""ETHNICITY: ""_#9""~-160,W "" "";C1;X;Z;""W "" """"~-160,W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",12)="-160,W ""****************************************"";C20;X;Z;""W ""****************************************""""~-160,W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",13)="-160,W "" "";C1;X;Z;""W "" """"~W ""DATE DX: "";C5;Z;""W ""DATE DX: """"~3;C14;L10~"
^DIPT(872,"F",14)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""IDCO SITE: ""_$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U) W X K DIP;C45;X;Z;""""IDCO SITE: ""_#20""~"
^DIPT(872,"F",15)="S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=""HISTOLOGY (ICD-O-3): ""_$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U) W X K DIP;C5;X;L38;Z;""""HISTOLOGY (ICD-O-3): ""_#22.3""~"
^DIPT(872,"F",16)="X DXS(2,9) W X K DIP;C45;X;L36;Z;""""LATERALITY: ""_#28""~"
^DIPT(872,"F",17)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""GRADE: ""_$$EXTERNAL^DIDU(165.5,24,"""",$P(DIP(1),U,5)) W X K DIP;C5;X;Z;""""GRADE: ""_#24""~"
^DIPT(872,"F",18)="X DXS(3,9) W X K DIP;C45;X;L36;Z;""""CLASS of CASE: ""_#.04""~X DXS(4,9) W X K DIP;C5;X;Z;""""DX CONFIRMATION: ""_#26""~"
^DIPT(872,"F",19)="X DXS(5,9) W X K DIP;C45;X;L36;Z;""""GEN SUMMARY STG: ""_#35""~"
^DIPT(872,"F",20)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""Sequence Number: ""_$P(DIP(1),U,6) W X K DIP;C5;X;Z;""""Sequence Number: ""_#.06""~"
^DIPT(872,"F",21)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=""Primary Physician: ""_$P($G(^ONCO(165,+$P(DIP(1),U,12),0)),U) W X K DIP;C45;X;L35;Z;""""Primary Physician: ""_#2.1""~"
^DIPT(872,"F",22)="W "" "";C1;X;Z;""W "" """"~W "" "";C1;X;Z;""W "" """"~W ""***************************************"";C20;X;Z;""W ""***************************************""""~"
^DIPT(872,"F",23)="W "" "";C1;X;Z;""W "" """"~W "" "";C1;X;Z;""W "" """"~D PDLC^ONCOCRF,DATEOT^ONCOES;Z;""D PDLC^ONCOCRF,DATEOT^ONCOES""~"
^DIPT(872,"F",24)="W ""DATE of LAST CONTACT: ""_X;C5;X;L18;Z;""W ""DATE of LAST CONTACT: ""_X""~"
^DIPT(872,"F",25)="X ""N I,Y ""_$P(^DD(165.5,.091,0),U,5,99) S DIP(1)=X S X=""VITAL STATUS: ""_DIP(1) W X K DIP;C45;X;Z;""""VITAL STATUS: ""_#.091""~W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",26)="W "" "";C1;X;Z;""W "" """"~W ""***************************************"";C20;X;Z;""W ""***************************************""""~W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",27)="W "" "";C1;X;Z;""W "" """"~"
^DIPT(872,"F",28)="S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=""ABSTRACTER: ""_$P($G(^VA(200,+$P(DIP(1),U,3),0)),U) W X K DIP;C5;X;Z;""""ABSTRACTER: ""_#92""~"
^DIPT(872,"F",29)="W ""DATE CASE COMPLETED: "";C45;Z;""W ""DATE CASE COMPLETED: """"~90;C66;L10~"
^DIPT(872,"H")="@"
^DIPT(872,"IOM")="80"
^DIPT(872,"LAST")=""
^DIPT(872,"ROU")="^ONCOXNC"
^DIPT(872,"ROUOLD")="ONCOXNC"
^DIPT(872,"SUB")="1"
^DIPT(873,0)="ONCOX99^2960205.1538^^165.5^^@^2960205"
^DIPT(873,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(873,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),Y=$P(DIP(1),U,3) X:$D(^DD(165.5,.03,2)) ^(2) S X=Y"
^DIPT(873,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 X $P(^DD(160,2,0),U,5,99) S DIP(101)=X"
^DIPT(873,"DXS",4,9.2)="S DIP(2)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X="" "",DIP(1)=X S X=$S('$D(^ONCO(164.2,+$P(DIP(2),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(873,"F",1)="""CANCER REGISTRY ABSTRACT"";C20~""Abstracted by: "";C5;S1~"
^DIPT(873,"F",2)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(ABSTRACTER)""~"
^DIPT(873,"F",3)=""" - VA Hospital "";X~"
^DIPT(873,"F",4)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(#.03)""~"" - "";X~90;X~"
^DIPT(873,"F",5)="""Patient Summary/Abstract for: "";C5~.02;X~"" "";X~X DXS(3,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;X;Z;"".02:2""~"
^DIPT(873,"F",6)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C3;Z;"""" ""_LOWERCASE(SITE/GP)""~"
^DIPT(873,"H")="@"
^DIPT(873,"SUB")="1"
^DIPT(874,0)="ONCOW1^3030410.0934^^165.5^^@^3030410"
^DIPT(874,"DXS",1,9)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(874,"DXS",1,9.2)="S X=""************************** PERSONAL DATA ***************************"""
^DIPT(874,"DXS",2,9.2)="S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=$P($G(^ONCO(165.2,+$P(DIP(101),U,5),0)),U)"
^DIPT(874,"DXS",3,1)="Male"
^DIPT(874,"DXS",3,2)="Female"
^DIPT(874,"DXS",3,3)="Other (hermaphrodite)"
^DIPT(874,"DXS",3,4)="Transsexual"
^DIPT(874,"DXS",3,9)="Not stated"
^DIPT(874,"DXS",4,0)="Non-Spanish, non-Hispanic"
^DIPT(874,"DXS",4,1)="Mexican"
^DIPT(874,"DXS",4,2)="Puerto Rican"
^DIPT(874,"DXS",4,3)="Cuban"
^DIPT(874,"DXS",4,4)="South/Central American"
^DIPT(874,"DXS",4,5)="Other specified Spanish/Hispanic"
^DIPT(874,"DXS",4,6)="Spanish, Hispanic, Latino, NOS"
^DIPT(874,"DXS",4,7)="Spanish surname only"
^DIPT(874,"DXS",4,8)="Dominican Republic"
^DIPT(874,"DXS",4,9)="Unknown/not stated"
^DIPT(874,"F",1)=""" Patient Name: "";C2;S1~.02;X~""Alias: "";C10~"
^DIPT(874,"F",2)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,1;X~""Accession No: "";C60~"
^DIPT(874,"F",3)=".05;X~""Hospital No: "";C96~S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X W X K DIP;X;Z;""INTERNAL(#.03)""~""Home Address: "";C3~"
^DIPT(874,"F",4)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,.119;X~""Accession Yr: "";C60~"
^DIPT(874,"F",5)=".07;X~""Hospital Chart No: "";C90~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(874,"F",6)="-160,2;X~-160,.116;C18;X~""Primary Sequence No: "";C53~.06;X~""Regional No: "";C96~"
^DIPT(874,"F",7)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,5;X~-160,""County: "";C9~-160,.12;X~"
^DIPT(874,"F",8)="-160,""Central No: "";C97~-160,6;X~-160,""Home Telephone: "";C1~-160,.131;X~""Date of First Contact: "";C91~155;X~"
^DIPT(874,"F",9)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,""Next of Kin: "";C1~-160,.214;X~"
^DIPT(874,"F",10)="X DXS(1,9) W X K DIP;S1;X;Z;""CENTER(""************************** PERSONAL DATA ***************************"")""~""Social Security No: "";C1~"
^DIPT(874,"F",11)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,2;X~-160,""Sex: "";C51~-160,10;X~"
^DIPT(874,"F",12)="-160,D DOB^ONCOES,DATEOT^ONCOES;Z;""D DOB^ONCOES,DATEOT^ONCOES""~-160,""Date of Birth: "";C90~-160,W X;X;Z;""W X""~-160,""Address at Dx: "";C2~8;X~"
^DIPT(874,"F",13)="""Race: "";C50~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,8;X~"
^DIPT(874,"F",14)="-160,""Birthplace: "";C93~"
^DIPT(874,"F",15)="-160,X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;X;Z;""LOWERCASE(PLACE OF BIRTH)""~"
^DIPT(874,"F",16)="9;C18~""Ethnicity: "";C45~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-160,9;X~"
^DIPT(874,"F",17)="""Age at Dx: "";C94~4;C106~""County: "";C8~10;X~"
^DIPT(874,"H")="@"
^DIPT(874,"IOM")="132"
^DIPT(874,"LAST")=""
^DIPT(874,"ROU")="^ONCOW1"
^DIPT(874,"ROUOLD")="ONCOW1"
^DIPT(874,"SUB")="1"
^DIPT(875,0)="ONCO TOPOGRAPHY BY CODE^2930512.0937^^164^^@^^"
^DIPT(875,"F",2)="1~.01~0~"
^DIPT(875,"H")="ICDO TOPOGRAPHY LIST BY CODE SHOWING NAME AND MORPHOLOGY"
^DIPT(876,0)="ONCO TOPOG SITES^2930721.1155^^164.2^^@^2960516^"
^DIPT(876,"F",2)="0;""""~.01;""Description""~"
^DIPT(876,"H")="TOPOGRAPHIC SITE GROUPS"
^DIPT(877,0)="ONCO TOPOG BY SITEGRP^2930722.1023^^164^^@^2960516^"
^DIPT(877,"F",1)="-164.2,^ONCO(164.2,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(164,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,13),X=X S D(0)=+X;Z;""DEFAULT PRIMARY SITE GROUP:""~"
^DIPT(877,"F",2)="-164.2,.01;""Description"";N~1;""ICDO-2""~.01;""Topography Code""~"
^DIPT(877,"H")="ICDO TOPOGRAPHY LIST BY SITE GROUP"
^DIPT(878,0)="ONCO F/U HISTORY (NEW)^2931027.1359^^160^^@^2931027"
^DIPT(878,"DXS",1,9.2)="S D=0 F S (D,D0)=$O(^ONCO(165.5,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^ONCO(165.5,D,0)) S X=$P(^(0),U,1) S:$D(^ONCO(164.2,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M Q:'$D(D) S D=D0"
^DIPT(878,"F",1)="""Site(s) of Malignancy: "";C10~-165.5,^ONCO(165.5,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.2) S X="""" S D0=I(0,0);Z;""ONCOLOGY PRIMARY:""~-165.5,20;C35~"
^DIPT(878,"F",2)="""Date of Last Contact: "";C10;S1~16;X~""Vital Status: "";C56~15;X~""Name of Last Contact: "";C10~15.1;X~""Follow-up Status: "";C52~15.2;X~"
^DIPT(878,"F",3)="""HISTORY OF SUCCESSFUL FOLLOW-UP"";C25;S1~46~"
^DIPT(878,"H")="[ONCO FOLLOWUP HISTORY-HDR]"
^DIPT(879,0)="ONCO PRIMARY EXTENT CODE AUDIT^3010411.0937^^165.5^^@^3010411"
^DIPT(879,"F",1)="0;""#"";R5;S~.02;L20;""PATIENT""~3;""DATE DX""~"
^DIPT(879,"F",2)="-164,^ONCO(164,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""ICDO-TOPOGRAPHY:""~-164,1;""TPG#""~"
^DIPT(879,"F",3)="-164,.01;""DESCRIPTION""~-169.3,^ONCO(169.3,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""22.3:""~"
^DIPT(879,"F",4)="-169.3,1;""MRPH #""~-169.3,.01;""DESCRIPTION""~29.9;C10~30.9~"
^DIPT(879,"H")="ONCOLOGY SEER EXTENT OF DISEASE CODE AUDIT"
^DIPT(880,0)="ONCO PRIMARY SURGERY AUDIT^2940715.1354^^165.5^^@^2940715"
^DIPT(880,"F",2)="0;R5;""#""~.02;L20~58.1~"
^DIPT(880,"H")="ONCOLOGY PRIMARY LIST"
^DIPT(882,0)="ESP VEHICLE REGISTRATION LOG^2931021.1448^@^910.2^1221^@^2940314"
^DIPT(882,"%D",0)="^^2^2^2930601^^"
^DIPT(882,"%D",1,0)="This print template provides a listing of pertinent data on all"
^DIPT(882,"%D",2,0)="vehicles that the VA Police Service has registered with decals."
^DIPT(882,"DXS",1,9)="S DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(882,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^ESP(910,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(910,.04,0)):$P(^(0),U,3),1:"""")"
^DIPT(882,"F",1)=".01;""DECAL"";L8~X DXS(1,9) W X K DIP;""OWNER"";L20;Z;""$P(OWNER NAME,"" "",1)""~"
^DIPT(882,"F",2)="X DXS(2,9.2) S DIP(101)=$S($D(^ESP(910,D0,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,4)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;""STATUS"";L15;Z;""OWNER NAME:CATEGORY""~"
^DIPT(882,"F",3)="1.01;L12~1.03;L14~1.04;""MODEL"";L14~1.05;""STYLE"";L14~1.06;""COLOR"";L12~1.07;""YEAR"";L4~"
^DIPT(882,"H")="VEHICLE REGISTRATION LOG"
^DIPT(883,0)="ESP WARNINGS/VIOLATIONS ISSUED^2930727.0918^^914^^^^"
^DIPT(883,"%D",0)="^^3^3^2930601^"
^DIPT(883,"%D",1,0)="This print template provides pertinent information for a print-out"
^DIPT(883,"%D",2,0)="of all courtesy warnings and U.S.D.C. Violation notices issued"
^DIPT(883,"%D",3,0)="within a selected parameter of time frames."
^DIPT(883,"DXS",1,9)="S DIP(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="","",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(883,"F",2)=".02;L20~.03;""TICKET TYPE""~.05;L12~.04;L35~.09;L30~X DXS(1,9) W X K DIP;""ISSUING OFFICER"";Z;""$P(ISSUING OFFICER,"","",1)""~"
^DIPT(883,"H")="WARNINGS/VIOLATIONS ISSUED"
^DIPT(884,0)="ESP VIOLATIONS ISSUED^2930727.0916^^914^^^^"
^DIPT(884,"%D",0)="^^3^3^2930601^"
^DIPT(884,"%D",1,0)="This print template provides pertinent information for a print-out"
^DIPT(884,"%D",2,0)="of all U.S.D.C. Violationes notices issued within a selected parameter"
^DIPT(884,"%D",3,0)="of time frames."
^DIPT(884,"DXS",1,9)="S DIP(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="","",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(884,"F",2)=".02;L20~.03;""TICKET TYPE""~.05;L12~.04;L35~.09;L30~X DXS(1,9) W X K DIP;""ISSUING OFFICER"";Z;""$P(ISSUING OFFICER,"","",1)""~"
^DIPT(884,"H")="U.S.D.C. VIOLATIONS ISSUED"
^DIPT(885,0)="ESP STATUTE LOOKUP^2921029.1027^^915^^^2940315^"
^DIPT(885,"%D",0)="^^2^2^2930601^"
^DIPT(885,"%D",1,0)="This print template provides an on-line display for VA Police officers"
^DIPT(885,"%D",2,0)="to look up section codes and definitions of criminal offense codes."
^DIPT(885,"F",2)=".01~.03~.031~10,.01~"
^DIPT(885,"H")="@"
^DIPT(885,"SUB")="1"
^DIPT(886,0)="ESP TRAINING^2931021.1627^@^912.5^1221^@^2940314"
^DIPT(886,"%D",0)="^^2^2^2930601^"
^DIPT(886,"%D",1,0)="This print template displays pertinent data on the records of"
^DIPT(886,"%D",2,0)="training received by VA Police Officers."
^DIPT(886,"DCL","912.555^.04")="&"
^DIPT(886,"DCL","912.555^.05")="&"
^DIPT(886,"F",2)=".01;L25~5,.01;L12~5,5,.01;L25~5,5,.02;L12~5,5,.03;L25~5,5,.04;R10~5,5,.05;R10~"
^DIPT(886,"H")="POLICE TRAINING STATISTICS"
^DIPT(887,0)="ESP ALL EVIDENCE RECORDS^2930510.0904^^910.8^^^2940314^"
^DIPT(887,"%D",0)="^^2^2^2930601^"
^DIPT(887,"%D",1,0)="This print template displays pertinent data on Evidence Records"
^DIPT(887,"%D",2,0)="regardless of present status of 'Open' or 'Closed'."
^DIPT(887,"F",2)=".01;L8~.03;L20~1,.02;L22~1,.07;L14~1,.04;L30~1,.09;L20~10;L6~"
^DIPT(887,"H")="ALL EVIDENCE RECORDS"
^DIPT(888,0)="ESP OPEN EVIDENCE RECORDS^2931018.1555^@^910.8^1221^@^2940315"
^DIPT(888,"%D",0)="^^3^3^2930601^"
^DIPT(888,"%D",1,0)="This print template displays pertinent data on Evidence Records"
^DIPT(888,"%D",2,0)="with the current status of 'Open'. This allows the Chief of Police"
^DIPT(888,"%D",3,0)="to quickly generate an Evidence Locker Inventory List."
^DIPT(888,"F",2)=".01;L8~.03;L20~1,.02;L22~1,.07;L14~1,.04;L30~1,.09;L20~10;L6~"
^DIPT(888,"H")="OPEN EVIDENCE RECORDS"
^DIPT(889,0)="ESP WANTS & WARRANTS LIST^2930630.15^^913^^^2931206^"
^DIPT(889,"%D",0)="^^3^3^2930601^"
^DIPT(889,"%D",1,0)="This print template lists pertinent data on individuals that are"
^DIPT(889,"%D",2,0)="listed within the ESP Wants & Warrants file with some type of"
^DIPT(889,"%D",3,0)="detainer or flagging information."
^DIPT(889,"F",2)=".01;L25~.05;L8~.06;L8~1.01;L18~2.03;L10~"
^DIPT(889,"H")="WANTS & WARRANTS LIST"
^DIPT(890,0)="ESP CASE ASSIGNMENT REGISTER^3040831.1506^^912^^^3040831"
^DIPT(890,"%D",0)="^.4001^3^3^3040315^^"
^DIPT(890,"%D",1,0)="This print template displays pertinent data that allows the Chief"
^DIPT(890,"%D",2,0)="of Police or designee to generate a Case Assignment Register from"
^DIPT(890,"%D",3,0)="data already contained within the Offense Report file."
^DIPT(890,"DXS",1,9)="X DXS(1,9.5) S X=$P(DIP(15),DIP(16),X),X=$E(X) S Y=X,X=DIP(10),X=X_Y"
^DIPT(890,"DXS",1,9.2)="S DIP(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,6),0)),U),DIP(2)=$G(X) S X="","",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X),DIP(4)=$G(X) S X=1"
^DIPT(890,"DXS",1,9.3)="X DXS(1,9.2) S DIP(5)=$G(X) S X=5,X=$E(DIP(4),DIP(5),X)_"","",DIP(6)=$G(X),DIP(7)=$G(X) S X=$P($G(^VA(200,+$P(DIP(1),U,6),0)),U),DIP(8)=$G(X) S X="","""
^DIPT(890,"DXS",1,9.4)="X DXS(1,9.3) S DIP(9)=$G(X) S X=2,X=$P(DIP(8),DIP(9),X),X=$E(X) S Y=X,X=DIP(6),X=X_Y_"" "",DIP(10)=$G(X),DIP(11)=$G(X),DIP(12)=$G(X)"
^DIPT(890,"DXS",1,9.5)="X DXS(1,9.4) S X=$P($G(^VA(200,+$P(DIP(1),U,6),0)),U),DIP(13)=$G(X) S X="","",DIP(14)=$G(X) S X=2,X=$P(DIP(13),DIP(14),X),DIP(15)=$G(X) S X="" "",DIP(16)=$G(X) S X=2"
^DIPT(890,"DXS",2,9)="S DIP(1)=$S($D(^ESP(912,D0,40,D1,0)):^(0),1:"""") S X=$P($G(^ESP(910,+$P(DIP(1),U,2),0)),U),DIP(2)=$G(X) S X="" "",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(890,"DXS",3,9)="S DIP(1)=$S($D(^ESP(912,D0,30,D1,0)):^(0),1:"""") S X=$P($G(^ESP(910,+$P(DIP(1),U,2),0)),U),DIP(2)=$G(X) S X="" "",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(890,"DXS",4,9)="X DXS(4,9.5) S X=$P(DIP(15),DIP(16),X),X=$E(X) S Y=X,X=DIP(10),X=X_Y"
^DIPT(890,"DXS",4,9.2)="S DIP(1)=$S($D(^ESP(912,D0,130,D1,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,1),0)),U),DIP(2)=$G(X) S X="","",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(890,"DXS",4,9.3)="X DXS(4,9.2) S DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X=5,X=$E(DIP(4),DIP(5),X)_"","",DIP(6)=$G(X),DIP(7)=$G(X) S X=$P($G(^VA(200,+$P(DIP(1),U,1),0)),U)"
^DIPT(890,"DXS",4,9.4)="X DXS(4,9.3) S DIP(8)=$G(X) S X="","",DIP(9)=$G(X) S X=2,X=$P(DIP(8),DIP(9),X),X=$E(X) S Y=X,X=DIP(6),X=X_Y_"" "",DIP(10)=$G(X),DIP(11)=$G(X),DIP(12)=$G(X)"
^DIPT(890,"DXS",4,9.5)="X DXS(4,9.4) S X=$P($G(^VA(200,+$P(DIP(1),U,1),0)),U),DIP(13)=$G(X) S X="","",DIP(14)=$G(X) S X=2,X=$P(DIP(13),DIP(14),X),DIP(15)=$G(X) S X="" "",DIP(16)=$G(X) S X=2"
^DIPT(890,"F",1)=".1;""UOR"";L9~10,.01;""CLASSIFICATION"";L17~"
^DIPT(890,"F",2)="X DXS(1,9) W X K DIP;""OFFICER ASSIGNED"";L9;Z;""$E($P(INVESTIGATING OFFICER,"","",1),1,5)_"",""_$E($P(INVESTIGATING OFFICER,"","",2))_"" ""_$E($P($P(INVESTIGATING OFFICER,"","",2),"" "",2))""~"
^DIPT(890,"F",3)="40,X DXS(2,9) W X K DIP;""OFFENDER"";L20;Z;""$P(NAME,"" "",1)""~30,X DXS(3,9) W X K DIP;""VICTIM"";L19;Z;""$P(NAME,"" "",1)""~90,.03;L6~90,.04;L8~.08;L6~"
^DIPT(890,"F",4)="5.02;""REPORT STATUS"";L10~"
^DIPT(890,"F",5)="130,X DXS(4,9) W X K DIP;""FOLLOW-UP OFFICER"";L9;Z;""$E($P(INVESTIGATOR,"","",1),1,5)_"",""_$E($P(INVESTIGATOR,"","",2))_"" ""_$E($P($P(INVESTIGATOR,"","",2),"" "",2))""~"
^DIPT(890,"H")="CASE ASSIGNMENT REGISTER"
^DIPT(891,0)="ESP LOCATE VIOLATION PRINT^2931026.1309^@^914^1221^@^2940331"
^DIPT(891,"%D",0)="^^2^2^2930601^"
^DIPT(891,"%D",1,0)="This print template provides a display of pertinent data for"
^DIPT(891,"%D",2,0)="violation records contained within the ESP Violations file."
^DIPT(891,"DXS",1,9)="S DIP(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="","",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(891,"F",2)=".02;L20~.03;""TICKET TYPE""~.05;L12~.04;L35~.09;L30~X DXS(1,9) W X K DIP;""ISSUING OFFICER"";Z;""$P(ISSUING OFFICER,"","",1)""~"
^DIPT(891,"H")="VIOLATION MATCH LIST"
^DIPT(892,0)="ESP OFFENSE MATCH REPORT^3040601.1528^@^912^^@^3040601"
^DIPT(892,"%D",0)="^.4001^3^3^3040526^^^^"
^DIPT(892,"%D",1,0)="This print template provides pertinent data on offense reports"
^DIPT(892,"%D",2,0)="contained within the ESP Offense file that match specific pieces"
^DIPT(892,"%D",3,0)="of sort data input by VA Police staff."
^DIPT(892,"DXS",1,9)="X DXS(1,9.5) S X=$P(DIP(15),DIP(16),X),X=$E(X) S Y=X,X=DIP(10),X=X_Y"
^DIPT(892,"DXS",1,9.2)="S DIP(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,6),0)),U),DIP(2)=$G(X) S X="","",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X),DIP(4)=$G(X) S X=1"
^DIPT(892,"DXS",1,9.3)="X DXS(1,9.2) S DIP(5)=$G(X) S X=8,X=$E(DIP(4),DIP(5),X)_"","",DIP(6)=$G(X),DIP(7)=$G(X) S X=$P($G(^VA(200,+$P(DIP(1),U,6),0)),U),DIP(8)=$G(X) S X="","""
^DIPT(892,"DXS",1,9.4)="X DXS(1,9.3) S DIP(9)=$G(X) S X=2,X=$P(DIP(8),DIP(9),X),X=$E(X) S Y=X,X=DIP(6),X=X_Y_"" "",DIP(10)=$G(X),DIP(11)=$G(X),DIP(12)=$G(X)"
^DIPT(892,"DXS",1,9.5)="X DXS(1,9.4) S X=$P($G(^VA(200,+$P(DIP(1),U,6),0)),U),DIP(13)=$G(X) S X="","",DIP(14)=$G(X) S X=2,X=$P(DIP(13),DIP(14),X),DIP(15)=$G(X) S X="" "",DIP(16)=$G(X) S X=2"
^DIPT(892,"F",1)=".1;L11~10,.01;""CLASSIFICATION"";L16~40,.02;""OFFENDER"";L22~40,.11;L8~"
^DIPT(892,"F",2)="X DXS(1,9) W X K DIP;""INVESTIGATOR"";L13;Z;""$E($P(INVESTIGATING OFFICER,"","",1),1,8)_"",""_$E($P(INVESTIGATING OFFICER,"","",2))_"" ""_$E($P($P(INVESTIGATING OFFICER,"","",2),"" "",2))""~"
^DIPT(892,"F",3)=".03;L20~.04;L30~"
^DIPT(892,"H")="OFFENSE REPORT MATCHES"
^DIPT(893,0)="ESP PERSONAL DESCRIPTOR LOOKUP^2930506.0911^^910^^^2940315^"
^DIPT(893,"%D",0)="^^3^3^2930601^"
^DIPT(893,"%D",1,0)="This print template provides a portion of the basic demographic"
^DIPT(893,"%D",2,0)="data on file for individuals contained within the ESP Master Name"
^DIPT(893,"%D",3,0)="Index file."
^DIPT(893,"F",1)="""NAME:"";C1;S1~.01;C8~""DOB:"";C40~.03;C45~""SSN:"";C60~.02;C68~""RACE:"";C1~.09;C8~""HEIGHT:"";C40~3.01;C50~""WEIGHT:"";C60~3.02;C69~""EYES:"";C1~3.04;C8~"
^DIPT(893,"F",2)="""HAIR:"";C16~3.03;C24~""SCARS/MARKS:"";C40~3.06;C54;L25~""AKA:"";C1~10,.01;C8~""CATEGORY:"";C40~.04;C51~"
^DIPT(893,"H")="@"
^DIPT(893,"SUB")="1"
^DIPT(894,0)="ESP CAR POOL AVAILABILITY LIST^2931021.1442^@^910.2^1221^@^2940315"
^DIPT(894,"DXS",1,9)="S DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(894,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^ESP(910,+D0,0)) D0=-1 S DIP(101)=$S($D(^ESP(910,D0,0)):^(0),1:"""")"
^DIPT(894,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^ESP(910,+D0,0)) D0=-1 S DIP(101)=$S($D(^ESP(910,D0,1)):^(1),1:"""")"
^DIPT(894,"F",1)=".01;""DECAL #"";L6~.02;""COLOR"";L6~X DXS(1,9) W X K DIP;""OWNER"";L22;Z;""$P(OWNER NAME,"" "",1)""~"
^DIPT(894,"F",2)="X DXS(2,9.2) S X=$S('$D(^DIC(49,+$P(DIP(101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""SERVICE"";L20;Z;""OWNER NAME:SERVICE""~"
^DIPT(894,"F",3)="X DXS(3,9.2) S DIP(102)=X,Y=$P(DIP(101),U,5) X:$D(^DD(910,1.05,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;""ZIP CODE"";L9;Z;""OWNER NAME:ZIP""~"
^DIPT(894,"F",4)="1.09;""CAR POOLS"";L3~"
^DIPT(894,"H")="CAR POOL AVAILABILITY LIST"
^DIPT(895,0)="ESP CAR POOL ASSIGNMENTS^2931021.1444^@^910.2^1221^@^2940315"
^DIPT(895,"DXS",1,9)="S DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(895,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'$D(^ESP(910,+D0,0)) D0=-1 S DIP(101)=$S($D(^ESP(910,D0,0)):^(0),1:"""")"
^DIPT(895,"F",1)=".01;""DECAL"";L6~.02;""COLOR"";L6~X DXS(1,9) W X K DIP;""OWNER"";L22;Z;""$P(OWNER NAME,"" "",1)""~"
^DIPT(895,"F",2)="X DXS(2,9.2) S X=$S('$D(^DIC(49,+$P(DIP(101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""SERVICE"";L20;Z;""OWNER NAME:SERVICE""~"
^DIPT(895,"F",3)="1.08;""ASSIGNED SPACE"";L9~1.09;""CAR POOLS"";L3~"
^DIPT(895,"H")="CAR POOL ASSIGNMENT LIST"
^DIPT(896,0)="ESP VIOLATIONS BY OFFICER^2930727.0913^^914^^^2931027^"
^DIPT(896,"DXS",1,9)="S DIP(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X="","",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X)"
^DIPT(896,"F",2)=".02;L20~.03;""TICKET TYPE""~.05;L12~.04;L35~.09;L30~X DXS(1,9) W X K DIP;""ISSUING OFFICER"";Z;""$P(ISSUING OFFICER,"","",1)""~"
^DIPT(896,"H")="VIOLATIONS ISSUED BY OFFICER"
^DIPT(897,0)="ESP MISSING PATIENT REPORT-ALL^2930916.1454^@^912^0^@^2940315"
^DIPT(897,"%D",0)="^^4^4^2930916^"
^DIPT(897,"%D",1,0)="This print template allows VA Police staff to generate a report"
^DIPT(897,"%D",2,0)="of all Missing Patient Reaction investigations conducted within any"
^DIPT(897,"%D",3,0)="selected time period. The associated sort template allows for a"
^DIPT(897,"%D",4,0)="selection of date range."
^DIPT(897,"F",2)=".1~40,.02;L30~.04;L20~.08;L6~"
^DIPT(897,"H")="MISSING PATIENT REACTION REPORT-ALL"
^DIPT(898,0)="ESP MISSING PATIENT REPORT-OPN^2930916.1457^@^912^0^@^2940315"
^DIPT(898,"%D",0)="^^3^3^2930916^"
^DIPT(898,"%D",1,0)="This print template allows VA Police staff to generate a report"
^DIPT(898,"%D",2,0)="listing all Missing Patient Reaction investigations with a Case Status"
^DIPT(898,"%D",3,0)="of 'Open'."
^DIPT(898,"F",2)=".1~40,.02;L30~.04;L20~.08;L6~"
^DIPT(898,"H")="MISSING PATIENT REACTION REPORT-OPN"
^DIPT(899,0)="QAC RESP DUE^2970813.1323^^745.1^^^2970922"
^DIPT(899,"%D",0)="^^3^3^2950127^"
^DIPT(899,"%D",1,0)="This template is used by the option Responses Due."
^DIPT(899,"%D",2,0)="It prints the fields Contact Number, Patient Name, SSN, Refer Contact To,"
^DIPT(899,"%D",3,0)="and Issue Codes."
^DIPT(899,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^QA(745.1,D0,3,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^QA(745.2,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(899,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^QA(745.2,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,7) S:'$D(^QA(745.6,+D0,0)) D0=-1 S DIP(201)=$S($D(^QA(745.6,D0,0)):^(0),1:"""")"
^DIPT(899,"F",1)=".01;C1;S;""Contact #""~2;C15;""Patient Name"";L27~3;L9;C44~28,.01;C57;L23;""Refer To""~21,.01;C1;L60;""Issue Codes""~"
^DIPT(899,"F",2)="21,I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W ""(*"";X;Z;""I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W ""(*""""~"
^DIPT(899,"F",3)="21,X DXS(1,9.3) S X=$P(DIP(201),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;"".01:7:1""~"
^DIPT(899,"F",4)="21,I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W "")"";X;Z;""I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W "")""""~"
^DIPT(899,"H")="Responses Due"
^DIPT(900,0)="QAC EMPLOYEE^2971020.1635^^745.1^^^2980309"
^DIPT(900,"%D",0)="^^3^3^2950127^"
^DIPT(900,"%D",1,0)="This template is used by the option Report by Employee."
^DIPT(900,"%D",2,0)="It prints the fields Contact Number, Date of Contact, Patient Name, and"
^DIPT(900,"%D",3,0)="Issue Text."
^DIPT(900,"F",2)=".01;S1;""Contact #""~1;C25;""Date of Contact""~2;C45;""Patient Name""~22,.01;""Issue Text""~21,3,.01;C3~"
^DIPT(900,"H")="Report by Employee"
^DIPT(901,0)="QAC STATUS^2950109.0936^^745.1^1053^^2950530"
^DIPT(901,"%D",0)="^^3^3^2950127^"
^DIPT(901,"%D",1,0)="This template is used with the option List of Open Cases."
^DIPT(901,"%D",2,0)="It prints the fields Date of Contact, Patient Name, SSN, and Contact"
^DIPT(901,"%D",3,0)="Number."
^DIPT(901,"F",2)="1;""Date of Contact""~2;""Patient Name""~3~.01;c62;""Contact #""~"
^DIPT(901,"H")="List of Open Cases"
^DIPT(902,0)="QAC SERV RPT^2950123.1107^^745.1^1053^^2950530"
^DIPT(902,"%D",0)="^^3^3^2950127^"
^DIPT(902,"%D",1,0)="This template is used with the option Service/Section Contact Totals."
^DIPT(902,"%D",2,0)="It prints the fields Date of Contact, Patient Name, SSN, Contact Number,"
^DIPT(902,"%D",3,0)="and Issue Text."
^DIPT(902,"DCL","745.1^.01")="!"
^DIPT(902,"F",2)="1;S;""Contact Date""~2;C15;""Patient""~3;C45;""SSN""~.01;C65;""Contact #""~22,.01;""Issue Text""~"
^DIPT(902,"H")="Service/Section Contact Totals"
^DIPT(903,0)="QAC EMP TOT^2950127.1129^^745.1^1053^^2950724"
^DIPT(903,"%D",0)="^^2^2^2950127^"
^DIPT(903,"%D",1,0)="This template is used by the option Employee Contact Totals."
^DIPT(903,"%D",2,0)="It prints the fields Patient Name and Date of Contact."
^DIPT(903,"DCL","745.1^1")="!"
^DIPT(903,"F",2)="2;C2;""Patient""~1;C35;""Contact Date""~"
^DIPT(903,"H")="Employee Contact Totals"
^DIPT(904,0)="SOWKHRT^2870409^^652^^^^"
^DIPT(904,"F",1)="""CASE WORKER: "";C1;S2~3;C25;""""~""HOME:"";C1~.01;C25;""""~""ADDRESS 1: "";C1~4;C25;""""~""ADDRESS 2: "";C1~4.5;C25;""""~""CITY"";C1~5;C25;""""~""STATE: "";C1~6;C25;""""~"
^DIPT(904,"F",2)="""ZIP: "";C1~7;C25;""""~""TELEPHONE 1: "";C1~8;C25;""""~""TELEPHONE 2: "";C1~8.1;C25;""""~""LICENSED BY STATE ?: "";C1~9;C25;""""~""NUMBER OF BEDS: "";C1~"
^DIPT(904,"F",3)="S DIP(1)=$S($D(^SOWK(652,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),X=X W X K DIP;C25;"""";Z;""INTERNAL(NUMBER of BEDS)""~""VETERANS ONLY ?:"";C1~11;C25;""""~"
^DIPT(904,"F",4)="""LAST ASSESSMENT DATE: "";C1~12;C25;""""~""STATION NUMBER: "";C1~2;C25;""""~"
^DIPT(904,"H")="HOME REGISTRY REPORT"
^DIPT(905,0)="SOWKPRIT^2870409^^652^^^^"
^DIPT(905,"F",1)="""CASE WORKER: "";C1;S2~3;C15;""""~""HOME: "";C1~.01;C15;""""~""ADDRESS 1: "";C1~4;C15;""""~""ADDRESS 2: "";C1~4.5;C15;""""~""CITY: "";C1~5;C15;""""~""STATE: "";C1~6;C15;""""~"
^DIPT(905,"F",2)="""ZIP: "";C1~7;C15;""""~""TELEPHONE 1: "";C1~8;C15;""""~""TELEPHONE 2: "";C1~8.1;C15;""""~"
^DIPT(905,"H")="REGISTRY LIST FOR ALL WORKERS"
^DIPT(906,0)="SOWKOPCT^2910227.0828^^650^^^^"
^DIPT(906,"F",2)="0;""CASE NUMBER""~7;""NAME""~1~2~"
^DIPT(906,"H")="Active Residential Care Home Cases"
^DIPT(907,0)="SOWKCLT^2910227.0815^^650^^^^"
^DIPT(907,"F",2)="0;""CASE NUMBER""~7;""NAME""~1~17~2~"
^DIPT(907,"H")="Closed Residential Care Home Cases"
^DIPT(908,0)="SOWKHRS^2870409^^652^^^^"
^DIPT(908,"F",1)="""HOME: "";C1;S2~.01;C15;""""~""ADDRESS 1: "";C1~4;C15;""""~""ADDRESS 2: "";C1~4.5;C15;""""~""CITY: "";C1~5;C15;""""~""STATE: "";C1~6;C15;""""~""ZIP: "";C1~7;C15;""""~"
^DIPT(908,"F",2)="""TELEPHONE 1: "";C1~8;C15;""""~""TELEPHONE 2: "";C1~8.1;C15;""""~""CASE WORKER:"";C1~3;C15;""""~"
^DIPT(908,"H")="SUMMARY REGISTRY REPORT"
^DIPT(909,0)="SOWKHIFP^2921203.0829^^655^^^^"
^DIPT(909,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SOWK(655,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(909,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SOWK(655,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,.1)):^(.1),1:"""")"
^DIPT(909,"F",1)=".01~X DXS(1,9.2) S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) W X K DIP;""ID#"";Z;""$E(.01:SSN,6,9)""~"
^DIPT(909,"F",2)="X DXS(2,9.2) S X=$E(DIP(101),1,30) S D0=I(0,0) W X K DIP;""WARD"";Z;"".01:WARD""~"
^DIPT(909,"H")="PATIENTS DETERMINED FALSE HIGH-RISK"
^DIPT(910,0)="SOWKBHP^2900309.1317^^656^^^^"
^DIPT(910,"F",1)="""COMMUNITY RESOURCE MODULE"";C25;S2~""AGENCY"";C1;S1~S DIP(1)=$S($D(^SOWK(656,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X K DIP;C30;W;Z;""INTERNAL(AGENCY)""~"
^DIPT(910,"F",2)="""STREET ADDRESS 1:"";C1~1;C30~""STREET ADDRESS 2:"";C1~1.5;C30~""CITY"";C1~2;C30~""STATE"";C1~2.5;C30~""COUNTY"";C1~3;C30~""ZIP CODE"";C1~4;C30~""PHONE NUMBER"";C1~"
^DIPT(910,"F",3)="5;C30~""PHONE NUMBER #2"";C1~5.2;C30~""FAX NUMBER"";C1~5.1;C30~""HOURS"";C1~"
^DIPT(910,"F",4)="S DIP(1)=$S($D(^SOWK(656,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X K DIP;C30;W;Z;""INTERNAL(HOURS)""~""SERVICE"";C1~"
^DIPT(910,"F",5)="S DIP(1)=$S($D(^SOWK(656,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1),X=X K DIP;C30;W;Z;""INTERNAL(SERVICE)""~""ELIGIBILITY"";C1~"
^DIPT(910,"F",6)="S DIP(1)=$S($D(^SOWK(656,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,2),X=X K DIP;C30;W;Z;""INTERNAL(ELIGIBILITY)""~""FEES"";C1~"
^DIPT(910,"F",7)="S DIP(1)=$S($D(^SOWK(656,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,3),X=X K DIP;C30;W;Z;""INTERNAL(FEES)""~""REFERRAL"";C1~"
^DIPT(910,"F",8)="S DIP(1)=$S($D(^SOWK(656,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X K DIP;C30;W;Z;""INTERNAL(REFERRAL)""~""COMMENTS"";C1~"
^DIPT(910,"F",9)="S DIP(1)=$S($D(^SOWK(656,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,2),X=X K DIP;C30;W;Z;""INTERNAL(COMMENTS)""~""DATE OF INFORMATION"";C1~12;C30~""VA LIAISON"";C1~"
^DIPT(910,"F",10)="S DIP(1)=$S($D(^SOWK(656,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,4),X=X K DIP;C30;W;Z;""INTERNAL(VA LIAISON)""~""SPECIAL POPULATION"";C1~15;C30~""TYPE"";C1~"
^DIPT(910,"F",11)="W ?29 F ZZ=0:0 S ZZ=$O(^SOWK(656,D0,3,ZZ)) Q:'ZZ W $P(^SOWK(656,D0,3,ZZ,0),""^"")_"", "";Z;""W ?29 F ZZ=0:0 S ZZ=$O(^SOWK(656,D0,3,ZZ)) Q:'ZZ W $P(^SOWK(656,D0,3,ZZ,0),""^"")_"", """"~"
^DIPT(910,"H")="@"
^DIPT(910,"SUB")="1"
^DIPT(911,0)="RMPR PRINT ITEM^2941005.1622^^661^^^^"
^DIPT(911,"%D",0)="^^1^1^2940829^"
^DIPT(911,"%D",1,0)="Prints AMIS info for item."
^DIPT(911,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(911,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(911,"DXS",3,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 X DXS(3,9.2):D0>0 S X="""" S D0=I(0,0)"
^DIPT(911,"DXS",3,9.2)="S I(100)=""^PRC(441,"",J(100)=441 F D=0:0 S (D,D1)=$O(^PRC(441,D0,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D) S D=D1"
^DIPT(911,"F",1)="X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;L6;""ITEM NUMBER"";Z;"".01:.01""~"
^DIPT(911,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;L25;""SHORT DESCRIPTION"";Z;"".01:.05""~X DXS(3,9) W X K DIP;37;""DESCRIPTION"";m;w;Z;"".01:.1""~"
^DIPT(911,"F",3)="""ANC: "";C9~1;X;C16~""ARC: "";X;C25~2;X;C30~""ONC: "";X;C37~3;X;C42~""ORC: "";C46~4;X;C52~""RNC: "";C59~5;X;C65~""RRC: "";C69~6;X;C76~"
^DIPT(911,"H")="PROS ITEM MASTER LIST"
^DIPT(912,0)="RMPR SUSPENSE CLOSE^3000821.105^^668^^^3000821"
^DIPT(912,"%D",0)="^^1^1^2940829^^"
^DIPT(912,"%D",1,0)="Prints Prosthetics Closed Suspense file list."
^DIPT(912,"F",1)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""STATION: ""_$S('$D(^DIC(4,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)) W X K DIP;Z;""""STATION: ""_STATION""~"
^DIPT(912,"F",2)="""SUSPENSE DATE: "";C3~S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;C20;"""";d;L18;Z;""DATE(SUSPENSE DATE)""~"
^DIPT(912,"F",3)="1;C35;""""~9;C65;L8;""""~""COMPLETION DATE: "";C3~"
^DIPT(912,"F",4)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=$P(X,""."",1) S Y=X D DT K DIP;C20;"""";d;L18;Z;""DATE(COMPLETION DATE)""~"
^DIPT(912,"F",5)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""COMPLETED BY: ""_$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)) W X K DIP;C35;Z;""""COMPLETED BY: ""_COMPLETED BY""~"
^DIPT(912,"F",6)="""**First Line Description**"";C1~K WP S X=$$GET1^DIQ(668,D0,4,,""WP"") W $GET(WP(1));C1;X;Z;""K WP S X=$$GET1^DIQ(668,D0,4,,""WP"") W $GET(WP(1))""~"
^DIPT(912,"F",7)="""**Completion Note**"";C1~12,.01;C1;""""~"
^DIPT(912,"F",8)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(912,"H")="Prosthetics Closed Suspense File List"
^DIPT(913,0)="RMPR 7306D 4TH^2950614.0548^^663.3^^^^"
^DIPT(913,"%D",0)="^^1^1^2940829^"
^DIPT(913,"%D",1,0)="Print 4th quarter 7306D."
^DIPT(913,"F",1)="0;X;C1~"
^DIPT(913,"F",2)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;""ITEM"";Z;""$P(CATEGORY,"" "",1)""~"
^DIPT(913,"F",3)="""SC VIETNAM"";C24~13;C41;""BAL FWD""~17;""ADDI- TIONS"";C52~18;""DELE- TIONS"";C60~19;""NEW BAL"";C70~"
^DIPT(913,"F",4)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",2)""~"
^DIPT(913,"F",5)="""ALL OTHER SC"";C24~14;C41;X~20;X;C52~21;X;C60~22;X;C70~"
^DIPT(913,"F",6)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=3,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",3)""~"
^DIPT(913,"F",7)="""NSC A&A"";C24~15;X;C41~23;X;C52~24;X;C60~25;X;C70~""OTHERS ELIGIBLE"";C24~16;X;C41~26;X;C52~27;X;C60~28;X;C70~"
^DIPT(913,"F",8)="S $P(RL,""-"",IOM)="""" W !,RL;X;Z;""S $P(RL,""-"",IOM)="""" W !,RL""~"
^DIPT(913,"H")="PROSTHETICS DISABILITY WORKSHEET LIST"
^DIPT(914,0)="RMPR 7306D 1ST^2950614.0537^^663.3^^^2951107^"
^DIPT(914,"%D",0)="^^1^1^2940829^"
^DIPT(914,"%D",1,0)="Print 1st quarter 7306D."
^DIPT(914,"F",1)="0;X;C1~"
^DIPT(914,"F",2)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;""ITEM"";Z;""$P(CATEGORY,"" "",1)""~"
^DIPT(914,"F",3)="""SC VIETNAM"";C24~1;C41;""BAL FWD""~17;""ADDI- TIONS"";C52~18;""DELE- TIONS"";C60~19;""NEW BAL"";C70~"
^DIPT(914,"F",4)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",2)""~"
^DIPT(914,"F",5)="""ALL OTHER SC"";C24~2;C41;X~20;X;C52~21;X;C60~22;X;C70~"
^DIPT(914,"F",6)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=3,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",3)""~"
^DIPT(914,"F",7)="""NSC A&A"";C24~3;X;C41~23;X;C52~24;X;C60~25;X;C70~""OTHERS ELIGIBLE"";C24~4;X;C41~26;X;C52~27;X;C60~28;X;C70~"
^DIPT(914,"F",8)="S $P(RL,""-"",IOM)="""" W !,RL;X;Z;""S $P(RL,""-"",IOM)="""" W !,RL""~"
^DIPT(914,"H")="PROSTHETICS DISABILITY WORKSHEET LIST"
^DIPT(915,0)="RMPR 7306D 2ND^2950614.0541^^663.3^^^2960206^"
^DIPT(915,"%D",0)="^^1^1^2940829^"
^DIPT(915,"%D",1,0)="prints 2nd quarter 7306D"
^DIPT(915,"F",1)="0;X;C1~"
^DIPT(915,"F",2)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;""ITEM"";Z;""$P(CATEGORY,"" "",1)""~"
^DIPT(915,"F",3)="""SC VIETNAM"";C24~5;C41;""BAL FWD""~17;""ADDI- TIONS"";C52~18;""DELE- TIONS"";C60~19;""NEW BAL"";C70~"
^DIPT(915,"F",4)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",2)""~"
^DIPT(915,"F",5)="""ALL OTHER SC"";C24~6;C41;X~20;X;C52~21;X;C60~22;X;C70~"
^DIPT(915,"F",6)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=3,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",3)""~"
^DIPT(915,"F",7)="""NSC A&A"";C24~7;X;C41~23;X;C52~24;X;C60~25;X;C70~""OTHERS ELIGIBLE"";C24~8;X;C41~26;X;C52~27;X;C60~28;X;C70~"
^DIPT(915,"F",8)="S $P(RL,""-"",IOM)="""" W !,RL;X;Z;""S $P(RL,""-"",IOM)="""" W !,RL""~"
^DIPT(915,"H")="PROSTHETICS DISABILITY WORKSHEET LIST"
^DIPT(916,0)="RMPR 7306D 3RD^2950614.0546^^663.3^^^^"
^DIPT(916,"%D",0)="^^1^1^2940829^"
^DIPT(916,"%D",1,0)="Prints 3rd quarter 7306D."
^DIPT(916,"F",1)="0;X;C1~"
^DIPT(916,"F",2)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;""ITEM"";Z;""$P(CATEGORY,"" "",1)""~"
^DIPT(916,"F",3)="""SC VIETNAM"";C24~9;C41;""BAL FWD""~17;""ADDI- TIONS"";C52~18;""DELE- TIONS"";C60~19;""NEW BAL"";C70~"
^DIPT(916,"F",4)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",2)""~"
^DIPT(916,"F",5)="""ALL OTHER SC"";C24~10;C41;X~20;X;C52~21;X;C60~22;X;C70~"
^DIPT(916,"F",6)="S DIP(1)=$S($D(^RMPRA(663.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X="" "",DIP(3)=X S X=3,X=$P(DIP(2),DIP(3),X) W X K DIP;C5;X;Z;""$P(CATEGORY,"" "",3)""~"
^DIPT(916,"F",7)="""NSC A&A"";C24~11;X;C41~23;X;C52~24;X;C60~25;X;C70~""OTHERS ELIGIBLE"";C24~12;X;C41~26;X;C52~27;X;C60~28;X;C70~"
^DIPT(916,"F",8)="S $P(RL,""-"",IOM)="""" W !,RL;X;Z;""S $P(RL,""-"",IOM)="""" W !,RL""~"
^DIPT(916,"H")="PROSTHETICS DISABILITY WORKSHEET LIST"
^DIPT(917,0)="RMPR CLINIC PRINT^2930409.1459^^663.4^^^^"
^DIPT(917,"%D",0)="^^1^1^2940829^"
^DIPT(917,"%D",1,0)="Prints a clinic list."
^DIPT(917,"DXS",1,9)="X DXS(1,9.5) S X=$P(DIP(12),DIP(13),X) S Y=X,X=DIP(10),X=X_Y"
^DIPT(917,"DXS",1,9.2)="S DIP(1)=$S($D(^RMPRA(663.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=4,DIP(3)=X S X=5,X=$E(DIP(2),DIP(3),X)_""/"",DIP(4)=X S X=$P(DIP(1),U,1)"
^DIPT(917,"DXS",1,9.3)="X DXS(1,9.2) S DIP(5)=X S X=6,DIP(6)=X S X=7,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""/"",DIP(7)=X S X=$P(DIP(1),U,1),DIP(8)=X S X=2,DIP(9)=X S X=3"
^DIPT(917,"DXS",1,9.4)="X DXS(1,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y_"" "",DIP(10)=X,DIP(11)=X S X=$P(DIP(1),U,1)"
^DIPT(917,"DXS",1,9.5)="X DXS(1,9.4) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S X=X,DIP(12)=X S X="" "",DIP(13)=X S X=1"
^DIPT(917,"DXS",2,9.2)="S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9),DIP(202)=X S X=1,DIP(203)=X S X=3,X=$E(DIP(202),DIP(203),X)_""-"",DIP(204)=X S X=$P(DIP(201),U,9)"
^DIPT(917,"DXS",2,9.3)="X DXS(2,9.2) S DIP(205)=X S X=4,DIP(206)=X S X=5,X=$E(DIP(205),DIP(206),X) S Y=X,X=DIP(204),X=X_Y_""-"",DIP(207)=X S X=$P(DIP(201),U,9),DIP(208)=X S X=6"
^DIPT(917,"DXS",3,9)="X DXS(3,9.4) S X=$S(DIP(103):DIP(104),DIP(106):DIP(107),DIP(108):X)"
^DIPT(917,"DXS",3,9.2)="S DIP(102)=$C(59)_$S($D(^DD(665.01,2,0)):$P(^(0),U,3),1:""""),DIP(105)=$C(59)_$S($D(^DD(665.01,2,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^RMPR(665,D0,1,D1,0)):^(0),1:"""")"
^DIPT(917,"DXS",3,9.3)="X DXS(3,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,3)_"":"",2),$C(59),1)=""SERVICE CONNECTED"",DIP(103)=X S X=""SC"",DIP(104)=X"
^DIPT(917,"DXS",3,9.4)="X DXS(3,9.3) S X=$P($P(DIP(105),$C(59)_$P(DIP(101),U,3)_"":"",2),$C(59),1)=""NON-SERVICE CONNECTED"",DIP(106)=X S X=""NSC"",DIP(107)=X S X=1,DIP(108)=X S X="""""
^DIPT(917,"F",1)=""
^DIPT(917,"F",2)="X DXS(1,9) W X K DIP;C1;Z;""$E(APPOINTMENT DATE/TIME,4,5)_""/""_$E(APPOINTMENT DATE/TIME,6,7)_""/""_$E(APPOINTMENT DATE/TIME,2,3)_"" ""_$P(TIME(APPOINTMENT DATE/TIME),"" "",1)""~"
^DIPT(917,"F",3)="I $P(^RMPRA(663.4,D0,0),U,2) W ?20,$E($P(^DPT($P(^RMPRA(663.4,D0,0),U,2),0),U),1,15);X;Z;""I $P(^RMPRA(663.4,D0,0),U,2) W ?20,$E($P(^DPT($P(^RMPRA(663.4,D0,0),U,2),0),U),1,15)""~"
^DIPT(917,"F",4)="-665,^RMPR(665,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPRA(663.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""1:""~"
^DIPT(917,"F",5)="-665,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(917,"F",6)="-665,-2,X DXS(2,9.3) S DIP(209)=X S X=9,X=$E(DIP(208),DIP(209),X) S Y=X,X=DIP(207),X=X_Y W X K DIP;C37;Z;""$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(917,"F",7)="S DIP(1)=$S($D(^RMPRA(663.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=X W X K DIP;C53;Z;""INTERNAL(REFERRING STATION)""~"
^DIPT(917,"F",8)="-665,^RMPR(665,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPRA(663.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""1:""~-665,10,.01;C65~"
^DIPT(917,"F",9)="-665,10,X DXS(3,9) W X K DIP;C76;X;Z;""$S(SERVICE/NON-SERVICE=""SERVICE CONNECTED"":""SC"",SERVICE/NON-SERVICE=""NON-SERVICE CONNECTED"":""NSC"",1:"""")""~"
^DIPT(917,"F",10)="I $P(^RMPRA(663.4,D0,0),U,6)'="""" W !,""REASON FOR REFERRAL: "";X;Z;""I $P(^RMPRA(663.4,D0,0),U,6)'="""" W !,""REASON FOR REFERRAL: """"~5;C25~"
^DIPT(917,"F",11)="I $P(^RMPRA(663.4,D0,0),U,7)'="""" W !,?13,""ACTION: "";X;Z;""I $P(^RMPRA(663.4,D0,0),U,7)'="""" W !,?13,""ACTION: """"~6;C25~"
^DIPT(917,"F",12)="I $P(^RMPRA(663.4,D0,0),U,11)'="""" W !,?10,""STATUS: "";X;Z;""I $P(^RMPRA(663.4,D0,0),U,11)'="""" W !,?10,""STATUS: """"~10;C25;X~"
^DIPT(917,"H")="APPOINTMENT ROSTER AND ACTION SHEET"
^DIPT(918,0)="RMPR 2527 HDR^2950614.0423^^663.4^^^^"
^DIPT(918,"%D",0)="^^1^1^2940829^"
^DIPT(918,"%D",1,0)="Prints header for Prosthetics Appointment Roster and Action Sheet."
^DIPT(918,"F",1)="""APPOINTMENT ROSTER AND ACTION SHEET"";C1~""STATION"";C43~""DATE"";C55~""PAGE"";C65~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~"
^DIPT(918,"F",2)="S DIP(1)=$S($D(^RMPRA(663.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=30,X=$E(DIP(2),DIP(3),X) W X K DIP;C5;Z;""$E(CLINIC,1,30)""~"
^DIPT(918,"F",3)="W $$STA^RMPRUTIL;X;C45;Z;""W $$STA^RMPRUTIL""~S X=DT S Y=X D DT K DIP;C52;L18;Z;""TODAY""~""OPENED:"";C5~"
^DIPT(918,"F",4)="I $D(RMPRD) W ?15,RMPRD;X;Z;""I $D(RMPRD) W ?15,RMPRD""~""CLOSED: "";C50~I $D(RMPRCD) W ?60,RMPRCD;X;Z;""I $D(RMPRCD) W ?60,RMPRCD""~"
^DIPT(918,"F",5)="S $P(RL,""-"",IOM)="""" W !,RL;X;Z;""S $P(RL,""-"",IOM)="""" W !,RL""~""APP'MT TIME"";C1~""VETERAN'S NAME"";C19~""ID #"";C39~""REF. STATION"";C50~"
^DIPT(918,"F",6)="K RL S $P(RL,""-"",IOM)="""" W !,RL,"" "";X;Z;""K RL S $P(RL,""-"",IOM)="""" W !,RL,"" """"~"
^DIPT(918,"H")="@"
^DIPT(918,"SUB")="1"
^DIPT(919,0)="RMPR CLOSED VISITS^3000628.1229^^665.1^^^3000803"
^DIPT(919,"%D",0)="^^1^1^2950524^^"
^DIPT(919,"%D",1,0)="Prints list of closed Home/Liaison visits."
^DIPT(919,"DXS",1,9)="S DIP(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X DXS(1,9.2) S X=X,DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X)"
^DIPT(919,"DXS",1,9.2)="N C S C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y"
^DIPT(919,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,7) S:'D0!'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,99)):^(99),1:"""")"
^DIPT(919,"DXS",3,9)="S DIP(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(919,"F",1)=".01;C1;W12~X DXS(1,9) W X K DIP;C15;""PATIENT/INST"";Z;""$E(PATIENT NAME/INSTI,1,15)""~"
^DIPT(919,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;C35;""STATION"";Z;""STATION:STATION NUMBER""~2;W7;C45~"
^DIPT(919,"F",3)="X DXS(3,9) W X K DIP;C60;""VISITOR"";Z;""$E(VISITOR,1,20)""~""DATE VISIT CLOSED: "";C1;X~4;C20;X~""TOTAL HOURS:"";C45;X~4.5;C58;X~""REASON FOR VISIT: "";C1~"
^DIPT(919,"F",4)="5,.01;C20;W;X~"
^DIPT(919,"H")="PROSTHETICS HOME/LIAISON CLOSED LIST"
^DIPT(920,0)="RMPR OPEN VISITS^2930423.0835^^665.1^^^2951113^"
^DIPT(920,"%D",0)="^^1^1^2950524^^^^"
^DIPT(920,"%D",1,0)="Prints Open Home/Liaison Visits List."
^DIPT(920,"DXS",1,9.2)="S DIP(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""")"
^DIPT(920,"DXS",1,9.3)="X DXS(1,9.2) S X=$P(DIP(1),U,2),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DIPT(920,"DXS",2,9)="S DIP(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(920,"F",1)=".01;C1;W12~X DXS(1,9.3) S DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X) W X K DIP;C15;""PATIENT/INST"";Z;""$E(PATIENT NAME/INSTI,1,15)""~"
^DIPT(920,"F",2)="S DIP(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X W X K DIP;C35;""STATION"";Z;""INTERNAL(STATION)""~2;W7;C45~"
^DIPT(920,"F",3)="X DXS(2,9) W X K DIP;C60;""VISITOR"";Z;""$E(VISITOR,1,20)""~""REASON FOR VISIT: "";C1~5,.01;C20;W;X~"
^DIPT(920,"H")="PROSTHETICS HOME/LIAISON OPEN LIST"
^DIPT(921,0)="RMPR 2527 PHDR^2950614.0427^^663.4^^^^"
^DIPT(921,"%D",0)="^^1^1^2940829^"
^DIPT(921,"%D",1,0)="Prints a list of Prosthetic appointments for the current day by clinic."
^DIPT(921,"F",1)="""SCHEDULED CLINIC PRINT"";C1~""STATION"";C43~""DATE"";C55~""PAGE"";C65~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;Z;""PAGE""~"
^DIPT(921,"F",2)="S DIP(1)=$S($D(^RMPRA(663.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=30,X=$E(DIP(2),DIP(3),X) W X K DIP;C5;Z;""$E(CLINIC,1,30)""~"
^DIPT(921,"F",3)="W $$STA^RMPRUTIL;X;C45;Z;""W $$STA^RMPRUTIL""~S X=DT S Y=X D DT K DIP;C52;L18;Z;""TODAY""~S $P(RL,""-"",IOM)="""" W !,RL;X;Z;""S $P(RL,""-"",IOM)="""" W !,RL""~"
^DIPT(921,"F",4)="""APP'MT TIME"";C1~""VETERAN'S NAME"";C19~""ID #"";C39~""REF. STATION"";C50~K RL S $P(RL,""-"",IOM)="""" W !,RL,"" "";X;Z;""K RL S $P(RL,""-"",IOM)="""" W !,RL,"" """"~"
^DIPT(921,"H")="@"
^DIPT(921,"SUB")="1"
^DIPT(922,0)="RMPR 2529 INQ^2940426.1342^^664.1^^^^"
^DIPT(922,"%D",0)="^^1^1^2950524^^"
^DIPT(922,"%D",1,0)="Inquires into a VAF 10-2529-3."
^DIPT(922,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(922,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(922,"DXS",2,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(922,"DXS",3,9.2)="S DIP(2)=$C(59)_$S($D(^DD(664.16,9,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(922,"F",1)="6,X DXS(1,9.3) S X=$P(DIP(201),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C1;X;Z;"".01:.01:.01""~"
^DIPT(922,"F",2)="6,S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,1) X:$D(^DD(664.16,.01,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X) W X K DIP;C15;Z;""$E(ITEM,1,20)""~"
^DIPT(922,"F",3)="6,X DXS(2,9) W X K DIP;C45;Z;""STRIPBLANKS(QTY)""~6,3;C50~6,8;C55~"
^DIPT(922,"F",4)="6,X DXS(3,9.2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" W X K DIP;C65;X;Z;""STRIPBLANKS(PATIENT CATEGORY)""~"
^DIPT(922,"F",5)="6,7,.01;C15~6,"" "";C1~X ""I $Y<16 F W ! Q:$Y>17"";Z;""X ""I $Y<16 F W ! Q:$Y>17""""~"
^DIPT(922,"H")="@"
^DIPT(922,"SUB")="1"
^DIPT(923,0)="RMPR 2529 NT^2931128.0628^^660^^^^"
^DIPT(923,"DXS",1,9.2)="S DIP(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=4,DIP(3)=X S X=5,X=$E(DIP(2),DIP(3),X)_""/"",DIP(4)=X S X=$P(DIP(1),U,1),DIP(5)=X S X=6"
^DIPT(923,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=7,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""/"",DIP(7)=X S X=$P(DIP(1),U,1),DIP(8)=X S X=2,DIP(9)=X S X=3"
^DIPT(923,"DXS",2,9)="S DIP(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(923,"F",1)="""TYPE OF FORM: "";C1~11;C15~""INITIATOR:"";C32~27;C43~""DATE:"";C64~"
^DIPT(923,"F",2)="X DXS(1,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;C71;Z;""$E(ENTRY DATE,4,5)_""/""_$E(ENTRY DATE,6,7)_""/""_$E(ENTRY DATE,2,3)""~"
^DIPT(923,"F",3)="""TYPE TRANS:"";C1~2;C15;X~""QTY"";C32;X~X DXS(2,9) W X K DIP;C38;Z;""STRIPBLANKS(QTY)""~""SOURCE:"";C50~12;C60~"" "";C1~""VENDOR:"";C1~69;C15;X~"" "";C1~"
^DIPT(923,"F",4)="""COMPLETION DATE: "";C1~50;C20~"" "";C1~""EXTENDED DESCRIPTON"";C1~28,.01;C1~"" "";C1~"
^DIPT(923,"H")="@"
^DIPT(923,"SUB")="1"
^DIPT(924,0)="RMPR PAGE^2950921.1525^^665.4^^^2960108^"
^DIPT(924,"%D",0)="^^1^1^2940829^^"
^DIPT(924,"%D",1,0)="Writes the trailer that print page numbers on the bottoms of correspondence."
^DIPT(924,"F",2)="I $D(RMPRPG) S RMPRPG=RMPRPG+1 W:RMPRPG>0 ?65,""PAGE: "",RMPRPG;X;Z;""I $D(RMPRPG) S RMPRPG=RMPRPG+1 W:RMPRPG>0 ?65,""PAGE: "",RMPRPG""~"
^DIPT(924,"H")="@"
^DIPT(924,"SUB")="1"
^DIPT(925,0)="RMPR BLANK^2940105.0909^^665.4^^^2960108^"
^DIPT(925,"%D",0)="^^1^1^2940829^^"
^DIPT(925,"%D",1,0)="Prints a blank header for page numbering purposes for Correspondence module."
^DIPT(925,"F",2)=""""";C1~S IOSL=IOSL-2;Z;""S IOSL=IOSL-2""~"
^DIPT(925,"H")="@"
^DIPT(925,"SUB")="1"
^DIPT(926,0)="RMPR FL 10-90 ADP^2940125.1511^^665.4^^^^"
^DIPT(926,"%D",0)="^^1^1^2940829^"
^DIPT(926,"%D",1,0)="Prints out first half of FL 10-90."
^DIPT(926,"DXS",1,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) K DIC S DIC=""^VA(200,"",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y"
^DIPT(926,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(926,"F",1)="""REQUEST FOR QUOTATION"";S4;C29;""""~""Date:"";S1;C37;""""~S X=DT S Y=X D DT K DIP;C43;"""";L18;Z;""TODAY""~""TO:"";S1;C5;""""~7;C9;""""~""FROM:"";C47;"""";X~"
^DIPT(926,"F",2)="D DIV4^RMPRSIT W ?53,RMPR(""NAME"");Z;""D DIV4^RMPRSIT W ?53,RMPR(""NAME"")""~"
^DIPT(926,"F",3)="-200,^VA(200,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S D(0)=+X;Z;""EMPLOYEE:""~-200,29;C54;"""";X~"
^DIPT(926,"F",4)="-200,-200,^VA(200,^^X DXS(1,9.2) S DIP(201)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(201),U,1) S D0=I(100,0);Z;"".01:NEW PERSON:""~-200,-200,"" ("";"""";X~"
^DIPT(926,"F",5)="-200,-200,28;"""";X~-200,-200,"")"";"""";X~W !,?53,RMPR(""ADD"");Z;""W !,?53,RMPR(""ADD"")""~W !,?53,RMPR(""CITY"");Z;""W !,?53,RMPR(""CITY"")""~"
^DIPT(926,"F",6)="-4,^DIC(4,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=X S D(0)=+X;Z;""STATION:""~""VETERAN:"";S1;C47;""""~"
^DIPT(926,"F",7)="X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;C55;"""";X;Z;""NAME:.01""~""SSN: "";C47;"""";X~"
^DIPT(926,"F",8)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~-2,.09;C53;"""";X~""Dear "";S1;C5;""""~"
^DIPT(926,"F",9)="""Your firm is being considered as a possible source for the following:"";S1;C5;""""~D ITMLST^RMPRFO3;Z;""D ITMLST^RMPRFO3""~"
^DIPT(926,"F",10)="-665.2,^RMPR(665.2,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""LETTER TYPE:""~-665.2,1,.01;C5;W;X~"
^DIPT(926,"H")="@"
^DIPT(926,"SUB")="1"
^DIPT(927,0)="RMPR ITEM^2940121.0348^^665.4^^^^"
^DIPT(927,"%D",0)="^^1^1^2940829^"
^DIPT(927,"%D",1,0)="Prints item(s) for FL 10-90"
^DIPT(927,"F",2)="8,.01;C5;""""~"
^DIPT(927,"H")="@"
^DIPT(927,"SUB")="1"
^DIPT(928,0)="RMPR FL 10-90 CONT HEAD^2940121.0355^^665.4^^^^"
^DIPT(928,"%D",0)="^^1^1^2940829^"
^DIPT(928,"%D",1,0)="Prints header for FL 10-90 Continuation form."
^DIPT(928,"F",2)=""" Continuation of request for quotation"";S6;""""~""_____________________________________"";C5;""""~"
^DIPT(928,"H")="@"
^DIPT(928,"SUB")="1"
^DIPT(929,0)="RMPR FL 10-90 CONT TRLR^2940120.1436^^665.4^^^^"
^DIPT(929,"%D",0)="^^1^1^2940829^"
^DIPT(929,"%D",1,0)="Prints trailer for FL 10-90 continuation form."
^DIPT(929,"F",2)="""FL 10-90 ADP"";C64;""""~"
^DIPT(929,"H")="@"
^DIPT(929,"SUB")="1"
^DIPT(930,0)="RMPR 2421 LETTER INFO^2940131.1155^^664^^^^"
^DIPT(930,"%D",0)="^^1^1^2940829^^"
^DIPT(930,"%D",1,0)="Prints a 1358 list."
^DIPT(930,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.13)):^(.13),1:"""")"
^DIPT(930,"F",2)=".01~10~20~10~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;Z;""INIT:OFFICE PHONE""~2,.01~2,1~"
^DIPT(930,"H")="PROSTHETICS 1358 LIST"
^DIPT(931,0)="RMPR ITEM^2940215.1025^^664^^^^"
^DIPT(931,"%D",0)="^^1^1^2940829^"
^DIPT(931,"%D",1,0)="Prints item."
^DIPT(931,"F",2)="2,.01;"""";C8;X;"""";X;""""~2,"" - "";"""";X~2,1;""""~"
^DIPT(931,"H")="@"
^DIPT(931,"SUB")="1"
^DIPT(932,0)="RMPR 2529 EDT^2940520.0945^^664.1^^^2960103^"
^DIPT(932,"%D",0)="^^1^1^2940829^^^"
^DIPT(932,"%D",1,0)="Displays 2529. "
^DIPT(932,"DXS",1,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=""Authority for Issuance: ""_$S('$D(^RMPR(663.1,+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))"
^DIPT(932,"DXS",2,9.2)="S DIP(2)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=""Ordering Station: "",DIP(1)=X S X=$S('$D(^DIC(4,+$P(DIP(2),U,4),0)):"""",1:$P(^(0),U,1)),DIP(3)=X S X=1"
^DIPT(932,"DXS",3,9.2)="S DIP(2)=$C(59)_$S($D(^DD(664.15,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^RMPR(662,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(932,"DXS",4,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(932,"DXS",4,9.3)="X DXS(4,9.2) S DIP(101)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(932,"DXS",5,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(932,"F",1)="""TO: |"";X;C1~2;C7~""1. Veterans Last Name (Last, First, M.I.)"";C40;X~.11;C7;L30~"
^DIPT(932,"F",2)="S DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=15,X=$E(DIP(2),DIP(3),X) W X K DIP;C45;X;Z;""$E(PATIENT,1,15)""~"
^DIPT(932,"F",3)="W $P($G(VADM(2)),U,2);C65;Z;""W $P($G(VADM(2)),U,2)""~"" "";C1~X DXS(1,9) W X K DIP;C1;Z;""""Authority for Issuance: ""_AUTHORITY FOR ISSU""~"
^DIPT(932,"F",4)="X DXS(2,9.2) S DIP(4)=X S X=20,X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C40;X;Z;""""Ordering Station: ""_$E(ORDERING STATION,1,20)""~"
^DIPT(932,"F",5)="""Disability Codes: "";C1~"
^DIPT(932,"F",6)="5,X DXS(3,9.2) S X=X_"", ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1) K DIP;C20;W60;X;Z;""DISABILITY CODE_"", ""_SERVICE/NON-SERVICE""~"" "";C1~"
^DIPT(932,"F",7)="""ITEM #"";C1;X~""NOMENCLATURE"";C10;X~""QTY"";C37~""UNIT"";C50~""TYPE"";C62~""CATEGORY"";C72~"
^DIPT(932,"F",8)="6,X DXS(4,9.3) S X=$P(DIP(201),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C1;X;Z;"".01:.01:.01""~"
^DIPT(932,"F",9)="6,S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,1) X:$D(^DD(664.16,.01,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=24,X=$E(DIP(2),DIP(3),X) W X K DIP;C10;Z;""$E(ITEM,1,24)""~"
^DIPT(932,"F",10)="6,X DXS(5,9) W X K DIP;C38;Z;""STRIPBLANKS(QTY)""~6,3;C50~6,8;C61~6,9;C72~6,7,.01;C10;W70;X~6,"" "";C1~"
^DIPT(932,"F",11)="X ""I $Y<16 F W ! Q:$Y>20"";Z;""X ""I $Y<16 F W ! Q:$Y>20""""~"
^DIPT(932,"H")="@"
^DIPT(932,"SUB")="1"
^DIPT(933,0)="RMPR JOB LST^2940426.1433^^664.2^^^^"
^DIPT(933,"%D",0)="^^1^1^2940829^^"
^DIPT(933,"%D",1,0)="Prints a Prosthetic Job Record Section Screen."
^DIPT(933,"DXS",1,9)="S DIP(1)=$S($D(^RMPR(664.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(933,"DXS",2,9.2)="S DIP(102)=$C(59)_$S($D(^DD(660,2,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,4)_"":"",2),$C(59),1)"
^DIPT(933,"F",1)=""
^DIPT(933,"F",2)="S X=""JOB RECORD SECTION SCREEN"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""JOB RECORD SECTION SCREEN"")""~"
^DIPT(933,"F",3)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(933,"F",4)="""ITEM/JOB#""~X DXS(1,9) W X K DIP;C8;X;Z;""STRIPBLANKS(JOB NUMBER)""~"
^DIPT(933,"F",5)="-660,^RMPR(660,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(664.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""APPLIANCE/REPAIR:""~"
^DIPT(933,"F",6)="-660,S DIP(101)=$S($D(^RMPR(660,D0,0)):^(0),1:""""),Y=$P(DIP(101),U,6) X:$D(^DD(660,4,2)) ^(2) S X=Y,DIP(102)=X S X=1,DIP(103)=X S X=20,X=$E(DIP(102),DIP(103),X) W X K DIP;C15;X;Z;""$E(ITEM,1,20)""~"
^DIPT(933,"F",7)="-660,X DXS(2,9.2) S DIP(103)=X S X=1,DIP(104)=X S X=7,X=$E(DIP(103),DIP(104),X) W X K DIP;C37;Z;""$E(TYPE OF TRANSACTION,1,7)""~-660,62;C47~-660,5;C55~"
^DIPT(933,"F",8)="-660,78;C65~-660,"" "";C1~"
^DIPT(933,"H")="@"
^DIPT(933,"SUB")="1"
^DIPT(934,0)="RMPR 2529 VIEW^2940119.1619^^664.2^^^^"
^DIPT(934,"%D",0)="^^1^1^2940829^"
^DIPT(934,"%D",1,0)="View a 2529."
^DIPT(934,"DXS",1,9)="I $D(RMPRNAM) W ?1,$E(RMPRNAM,1,20),?23,""SSN: "",$P(VADM(2),U,2),?42,""DOB: "",$P(VADM(3),U,2),?61,""CLAIM# "",RMPRCNUM X ""W !!"""
^DIPT(934,"DXS",2,9.2)="S DIP(101)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),DIP(102)=X S X=4,DIP(103)=X S X=5,X=$E(DIP(102),DIP(103),X)_""/"",DIP(104)=X S X=$P(DIP(101),U,1)"
^DIPT(934,"DXS",2,9.3)="X DXS(2,9.2) S DIP(105)=X S X=6,DIP(106)=X S X=7,X=$E(DIP(105),DIP(106),X) S Y=X,X=DIP(104),X=X_Y_""/"",DIP(107)=X S X=$P(DIP(101),U,1),DIP(108)=X S X=2"
^DIPT(934,"DXS",3,9)="S DIP(101)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,7) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(934,"DXS",4,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664.2,D0,2,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RMPR(669.2,+D0,0)) D0=-1"
^DIPT(934,"DXS",4,9.3)="X DXS(4,9.2) S DIP(101)=$S($D(^RMPR(669.2,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)),DIP(102)=X S X=1,DIP(103)=X S X=20"
^DIPT(934,"DXS",5,9)="S DIP(1)=$S($D(^RMPR(664.2,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(934,"DXS",6,9)="S DIP(1)=$S($D(^RMPR(664.2,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(934,"DXS",7,9)="X DXS(7,9.2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" S Y=X,X=DIP(1),X=X S X=X_Y"
^DIPT(934,"DXS",7,9.2)="S DIP(2)=$S($D(^RMPR(664.2,D0,2,D1,0)):^(0),1:"""") S X=""TOTAL: "",DIP(1)=X S X=$P(DIP(2),U,3)*$P(DIP(2),U,2)"
^DIPT(934,"DXS",8,9)="S DIP(1)=$S($D(^RMPR(664.2,D0,1,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,1) X:$D(^DD(664.22,.01,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(934,"DXS",9,9)="S DIP(1)=$S($D(^RMPR(664.2,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(934,"DXS",10,9.2)="S DIP(1)=$S($D(^RMPR(664.2,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.5,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1))"
^DIPT(934,"DXS",11,9)="X DXS(11,9.2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" S Y=X,X=DIP(1),X=X S X=X_Y"
^DIPT(934,"DXS",11,9.2)="S DIP(2)=$S($D(^RMPR(664.2,D0,1,D1,0)):^(0),1:"""") S X=""TOTAL: "",DIP(1)=X S X=$P(DIP(2),U,2)*$P(DIP(2),U,3)"
^DIPT(934,"F",1)="X DXS(1,9);X;C1;Z;""I $D(RMPRNAM) W ?1,$E(RMPRNAM,1,20),?23,""SSN: "",$P(VADM(2),U,2),?42,""DOB: "",$P(VADM(3),U,2),?61,""CLAIM# "",RMPRCNUM X ""W !!""""~"
^DIPT(934,"F",2)="""REQUESTING STATION:"";C1~6;C23~"
^DIPT(934,"F",3)="-660,^RMPR(660,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(664.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""APPLIANCE/REPAIR:""~-660,""TYPE OF FORM:"";C1~"
^DIPT(934,"F",4)="-660,11;C15~-660,""INITIATOR:"";C32~-660,27;C43~-660,""DATE:"";C64~"
^DIPT(934,"F",5)="-660,X DXS(2,9.3) S DIP(109)=X S X=3,X=$E(DIP(108),DIP(109),X) S Y=X,X=DIP(107),X=X_Y W X K DIP;C70;Z;""$E(ENTRY DATE,4,5)_""/""_$E(ENTRY DATE,6,7)_""/""_$E(ENTRY DATE,2,3)""~"
^DIPT(934,"F",6)="-660,""TYPE OF TRANS:"";C1~-660,2;C16;X~-660,""QTY: "";C32~-660,X DXS(3,9) W X K DIP;C38;Z;""STRIPBLANKS(QTY)""~-660,""SOURCE:"";C45~-660,12;C53~-660,""VENDOR: "";C1~"
^DIPT(934,"F",7)="-660,69;10;X~-660,""COMPLETION DATE: "";C30~-660,50;C47~-660,"" "";C1~-660,""TOTAL LABOR COSTS: "";C1~-660,46;C25~-660,""TOTAL MATERIAL COST:"";C50~-660,47;C70~"
^DIPT(934,"F",8)="-660,""EXTENDED DESCRIPTION: "";C1~-660,28,.01;C5~-660,"" "";C1~""WORK ORDER #: "";C1~.01;C15~3,""TECHNICIAN:"";C1~"
^DIPT(934,"F",9)="3,X DXS(4,9.3) S X=$E(DIP(102),DIP(103),X) S D0=I(0,0) S D1=I(1,0) W X K DIP;C15;Z;""$E(TECHNICIAN,1,20)""~3,""HRS:"";C37~"
^DIPT(934,"F",10)="3,X DXS(5,9) W X K DIP;C43;X;Z;""STRIPBLANKS(TIME (HRS))""~3,""RATE:"";C50~3,X DXS(6,9) W X K DIP;C57;Z;""STRIPBLANKS(RATE PER HOUR)""~"
^DIPT(934,"F",11)="3,X DXS(7,9) W X K DIP;C65;X;Z;""""TOTAL: ""_STRIPBLANKS(RATE PER HOUR*TIME (HRS))""~2,""MATERIALS:"";C1~"
^DIPT(934,"F",12)="2,X DXS(8,9) W X K DIP;C15;Z;""$E(MATERIALS USED,1,20)""~2,X DXS(9,9) W X K DIP;C37;Z;""STRIPBLANKS(QTY)""~"
^DIPT(934,"F",13)="2,X DXS(10,9.2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" W X K DIP;C43;Z;""STRIPBLANKS(UNIT OF ISSUE)""~"
^DIPT(934,"F",14)="2,3;C50~2,X DXS(11,9) W X K DIP;C65;X;Z;""""TOTAL: ""_STRIPBLANKS(QTY*MATERIALS COST)""~"
^DIPT(934,"F",15)="2,I $P(^RMPR(664.2,D0,1,D1,0),U,10) W ?49,$P(^(0),U,10);X;C1;Z;""I $P(^RMPR(664.2,D0,1,D1,0),U,10) W ?49,$P(^(0),U,10)""~"
^DIPT(934,"H")="@"
^DIPT(934,"SUB")="1"
^DIPT(935,0)="RMPR 2529 HDR^2950614.0441^^664.1^^^^"
^DIPT(935,"%D",0)="^^1^1^2940829^"
^DIPT(935,"%D",1,0)="Prints header for 2529."
^DIPT(935,"DXS",1,9)="S X=""REQUEST AND RECEIPT FOR PROSTHETICS APPLIANCES OR SERVICES"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(935,"DXS",2,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,5),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(935,"DXS",3,9.2)="S DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$S('$D(^RMPR(663.1,+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1))"
^DIPT(935,"DXS",4,9)="I $D(^RMPR(664.1,D0,1)) F LP=0:0 S LP=$O(^RMPR(664.1,D0,1,LP)) Q:LP'>0 I $D(^(LP,0)) W "" "",$P(^RMPR(662,LP,0),U)_""-""_$S($P(^RMPR(664.1,D0,1,LP,0),U,2)=1:""SC"",1:""NSC"") I $O(^RMPR(664.1,D0,1,LP)) W "","""
^DIPT(935,"F",1)="X DXS(1,9) W X K DIP;C1;X;Z;""CENTER(""REQUEST AND RECEIPT FOR PROSTHETICS APPLIANCES OR SERVICES"")""~"
^DIPT(935,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(935,"F",3)="""VETERAN: "";C1~.02;C16;X~""WORK ORDER #:"";C42~4;C57~""VENDOR: "";C1~2;C16~""REQUESTOR: "";C42~X DXS(2,9) W X K DIP;C57;Z;""$E(REQUESTING OFFICIAL,1,20)""~"
^DIPT(935,"F",4)="""AUTHORITY: "";C1~"
^DIPT(935,"F",5)="X DXS(3,9.2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" W X K DIP;C16;X;Z;""STRIPBLANKS(AUTHORITY FOR ISSUANCE)""~"
^DIPT(935,"F",6)="""DATE REQUIRED:"";C42~.09;C57~""ASSIGNED TO:"";C1~15;C16~""DATE RECEIVED"";C42~.09;C57~""DISABILITY CODE:"";C1;X~"
^DIPT(935,"F",7)="X DXS(4,9);Z;""I $D(^RMPR(664.1,D0,1)) F LP=0:0 S LP=$O(^RMPR(664.1,D0,1,LP)) Q:LP'>0 I $D(^(LP,0)) W "" "",$P(^RMPR(662,LP,0),U)_""-""_$S($P(^RMPR(664.1,D0,1,LP,0),U,2)=1:""SC"",1:""NSC"") I $O(^RMPR(664.1,D0,1,LP)) W "",""""~"
^DIPT(935,"F",8)=""" "";C1~""ITEM #"";C1~""NOMENCLATURE"";C15~"
^DIPT(935,"F",9)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(935,"H")="@"
^DIPT(935,"SUB")="1"
^DIPT(936,0)="RMPR 2529-3 STATUS^2950614.0455^^664.1^^^2960119^"
^DIPT(936,"%D",0)="^^1^1^2940829^"
^DIPT(936,"%D",1,0)="Get status of a 2529-3."
^DIPT(936,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(664.1,2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(936,"DXS",2,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,16),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(936,"DXS",3,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(936,"DXS",3,9.3)="X DXS(3,9.2) S DIP(101)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(936,"DXS",4,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(936,"DXS",5,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(936,"DXS",6,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,11) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(936,"DXS",7,9)="S R90=$P(^RMPR(664.1,D0,2,D1,0),U,6) I +R90 W:$D(^RMPR(664.2,""E"",""PR"",R90)) !,?35,""PENDING COMPLETION OF 2421 REQUEST"" W:$D(^RMPR(664.2,""E"",""PD"",R90)) !,?35,""PENDING DELIVERY OF 2421"""
^DIPT(936,"F",1)=""
^DIPT(936,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(936,"F",3)="S X=""STATUS OF 2529-3"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""STATUS OF 2529-3"")""~"
^DIPT(936,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(936,"F",5)="""STATUS:"";C1~16;C20~""DATE OF ORDER:"";C1~.01;C20~""DATE DELIVERED: "";40~20;C60~""TO:"";C1~.11;C20~""VETERAN: "";C1~.02;C20~""WORK ORDER NUMBER:"";C1~4;C20~"
^DIPT(936,"F",6)="""PROCURMENT SOURCE:"";C40~X DXS(1,9.2) S DIP(3)=X S X=1,DIP(4)=X S X=20,X=$E(DIP(3),DIP(4),X) W X K DIP;C60;Z;""$E(SOURCE OF PROCUREMENT,1,20)""~"
^DIPT(936,"F",7)="""ASSIGNED TO:"";C1~X DXS(2,9) W X K DIP;C20;Z;""$E(TECHNICIAN,1,20)""~""DATE ASSIGNED:"";C40~19;C60~"
^DIPT(936,"F",8)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(936,"F",9)="""*UNIT"";C61~""*TOTAL"";C71~""ITEM #"";C1;X~""NOMENCLATURE"";C10;X~""QTY"";C37~""UNIT"";C50~""COST"";C62~""COST"";C72~"
^DIPT(936,"F",10)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(936,"F",11)="6,X DXS(3,9.3) S X=$P(DIP(201),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C1;X;Z;"".01:.01:.01""~"
^DIPT(936,"F",12)="6,S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,1) X:$D(^DD(664.16,.01,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=24,X=$E(DIP(2),DIP(3),X) W X K DIP;C10;Z;""$E(ITEM,1,24)""~"
^DIPT(936,"F",13)="6,X DXS(4,9) W X K DIP;C38;Z;""STRIPBLANKS(QTY)""~6,3;C50~6,X DXS(5,9) W X K DIP;C61;Z;""STRIPBLANKS(UNIT COST)""~"
^DIPT(936,"F",14)="6,X DXS(6,9) W X K DIP;C71;Z;""STRIPBLANKS(TOTAL COST)""~"
^DIPT(936,"F",15)="6,X DXS(7,9);C1;Z;""S R90=$P(^RMPR(664.1,D0,2,D1,0),U,6) I +R90 W:$D(^RMPR(664.2,""E"",""PR"",R90)) !,?35,""PENDING COMPLETION OF 2421 REQUEST"" W:$D(^RMPR(664.2,""E"",""PD"",R90)) !,?35,""PENDING DELIVERY OF 2421""""~"
^DIPT(936,"F",16)="6,7,.01;C10;W70;X~6,D ADC^RMPR293(D0,D1);Z;""D ADC^RMPR293(D0,D1)""~"
^DIPT(936,"H")="@"
^DIPT(936,"SUB")="1"
^DIPT(937,0)="RMPR APPROVE^2940916.0956^^664^^^^"
^DIPT(937,"DXS",1,9.2)="S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=""REFERENCE # ""_$P(DIP(1),U,7)"
^DIPT(937,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^RMPR(665,+D0,0)) D0=-1 S DIP(101)=$S($D(^RMPR(665,D0,0)):^(0),1:"""")"
^DIPT(937,"DXS",3,9)="S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20,X=$E(DIP(2),DIP(3),X)"
^DIPT(937,"DXS",4,9)="I $O(^RMPR(664,D0,1,0)) X ""W !,""""ITEM #"""",?15,""""DESCRIPTION"""",?45,""""QTY"""",?53,""""UNIT"""",?63,""""COST"""""""
^DIPT(937,"DXS",5,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(937,"DXS",5,9.3)="X DXS(5,9.2) S DIP(101)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(937,"DXS",6,9)="S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(937,"DXS",7,9.2)="S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.5,+$P(DIP(1),U,5),0)):"""",1:$P(^(0),U,1))"
^DIPT(937,"F",1)="X DXS(1,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""REFERENCE # ""_REFERENCE)""~"
^DIPT(937,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(937,"F",3)="""VETERAN:"";C1~"
^DIPT(937,"F",4)="X DXS(2,9.2) S X=$S('$D(^DPT(+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)),DIP(102)=X S X=1,DIP(103)=X S X=20,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) W X K DIP;C20;Z;""$E(PATIENT,1,20)""~"
^DIPT(937,"F",5)="""FORM TYPE:"";C45~"
^DIPT(937,"F",6)="S DIP(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,4),DIP(2)=X S X=1,DIP(3)=X S X=10,X=$E(DIP(2),DIP(3),X) W X K DIP;C60;Z;""$E(FORM TYPE,1,10)""~"
^DIPT(937,"F",7)="""VENDOR: "";C1~"
^DIPT(937,"F",8)="S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^PRC(440,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=23,X=$E(DIP(2),DIP(3),X) W X K DIP;C20;Z;""$E(VENDOR,1,23)""~"
^DIPT(937,"F",9)="""INITIATED BY:"";C45~X DXS(3,9) W X K DIP;C60;Z;""$E(INITIATED BY,1,20)""~""ORDER DATE:"";C1~.01;C20~""DATE REQUIRED:"";C45~20;C60~"
^DIPT(937,"F",10)="-660,^RMPR(660,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X S D(0)=+X;Z;""SHIPPING:""~-660,""SHIPPING CHARGE: "";C1~"
^DIPT(937,"F",11)="-660,S DIP(101)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,17),DIP(102)=X S X=0,DIP(103)=X S X=2,X=$J(DIP(102),DIP(103),X) W X K DIP;C20;Z;""$J(SHIP/DEL,0,2)""~"
^DIPT(937,"F",12)="-660,6.5;C30~"
^DIPT(937,"F",13)="-660,S DIP(101)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,18),DIP(102)=X S X=1,DIP(103)=X S X=20,X=$E(DIP(102),DIP(103),X) W X K DIP;C45;Z;""$E(REMARKS,1,20)""~"
^DIPT(937,"F",14)="""% DISCOUNT:"";C1~17;C20~X DXS(4,9);C1;Z;""I $O(^RMPR(664,D0,1,0)) X ""W !,""""ITEM #"""",?15,""""DESCRIPTION"""",?45,""""QTY"""",?53,""""UNIT"""",?63,""""COST""""""""~"
^DIPT(937,"F",15)="2,X DXS(5,9.3) S X=$P(DIP(201),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C1;Z;"".01:.01:.01""~"
^DIPT(937,"F",16)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,1) X:$D(^DD(664.02,.01,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=25,X=$E(DIP(2),DIP(3),X) W X K DIP;C16;Z;""$E(ITEM,1,25)""~"
^DIPT(937,"F",17)="2,X DXS(6,9) W X K DIP;C46;Z;""STRIPBLANKS(QTY)""~"
^DIPT(937,"F",18)="2,X DXS(7,9.2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" W X K DIP;C55;Z;""STRIPBLANKS(UNIT OF ISSUE)""~"
^DIPT(937,"F",19)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=0,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(UNIT COST,0,2)""~"
^DIPT(937,"F",20)="2,14,.01;C16;W50~"
^DIPT(937,"F",21)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(937,"H")="@"
^DIPT(937,"SUB")="1"
^DIPT(938,0)="RMPR NEED APP BY FORM TYPE^2940930.103^^664^^^^"
^DIPT(938,"F",1)=".01;S1;C1~1;C20~6;C50~7;C1~4;C20~25;C50~2,.01;C1~2,2;C17~2,3~2,4;C50~2,8;C1~2,11;C20~2,13~"
^DIPT(938,"F",2)="2,S DIP(2)=$C(59)_$S($D(^DD(664,16,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1) W X K DIP;C50;Z;""PSC""~"
^DIPT(938,"F",3)="2,S DIP(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,4) W X K DIP;C72;Z;""FORM""~"
^DIPT(938,"H")=" "
^DIPT(939,0)="RMPR OPEN TRANS^2950814.1148^^664^^^^"
^DIPT(939,"F",2)=".01~1~2,.01~2,1~2,2~2,3~2,4;""UOI""~2,11~2,12~2,13~2,14,.01~.6~11~12~19~20~22~23~24~"
^DIPT(939,"H")="PROSTHETICS 1358 LIST"
^DIPT(940,0)="RMPR 25293^2990223.1136^^664.1^^^2990301"
^DIPT(940,"DXS",1,9)="S X=""REQUEST AND RECEIPT FOR PROSTHETIC APPLIANCES OR SERVICES"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(940,"DXS",2,9)="I $D(^UTILITY(""VAPA"",$J)) W $P(^UTILITY(""VAPA"",$J,4),U)_"" ""_$P(^UTILITY(""VAPA"",$J,5),U,2)_"" ""_$P(^UTILITY(""VAPA"",$J,6),U)"
^DIPT(940,"DXS",3,9)="I $D(^UTILITY(""VAMB"",$J))!($D(^UTILITY(""VASV"",$J))) W:+$G(^UTILITY(""VAMB"",$J,1)) "" A&A"" W:+$G(^UTILITY(""VAMB"",$J,5)) "" MIL. RET."" W:+$G(^UTILITY(""VASV"",$J,1)) "" VIETNAM"""
^DIPT(940,"DXS",4,9)="I $D(^RMPR(664.1,D0,1)) F R90=0:0 S R90=$O(^RMPR(664.1,D0,1,R90)) Q:R90'>0 S RA=$G(^(R90,0)) I +RA W "" "",$P(^RMPR(662,+RA,0),U)_""-""_$S($P(^RMPR(664.1,D0,1,R90,0),U,2)=1:""SC"",1:""NSC"") I $O(^RMPR(664.1,D0,1,R90)) W "","""
^DIPT(940,"DXS",5,9)="S X=""10. TYPES AND QUANTITIES OF APPLIANCES AND/OR SERVICES REQUESTED"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DIPT(940,"DXS",6,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(940,"DXS",6,9.3)="X DXS(6,9.2) S DIP(101)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),DIP(102)=X,D0=$P(DIP(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S DIP(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIPT(940,"DXS",7,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(940,"DXS",8,9)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"""
^DIPT(940,"DXS",9,9.2)="S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,11) X:X["" "" ""F %=0:0 Q:$A(X)-32 S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32 S X=$E(X,1,%-1)"" S X=X"
^DIPT(940,"F",1)="X DXS(1,9) W X K DIP;X;Z;""CENTER(""REQUEST AND RECEIPT FOR PROSTHETIC APPLIANCES OR SERVICES"")""~"
^DIPT(940,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",3)="S X=""SECTION I"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;C1;Z;""CENTER(""SECTION I"")""~"
^DIPT(940,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",5)="""TO: |"";X;C1~2;C7~""1. VETERAN'S LAST NAME (LAST, FIRST,M.I.)"";C40;X~.11;C7;L30~.02;C43;X~"
^DIPT(940,"F",6)="I $D(RMPRFCTR) W RMPRFCTR(1);C7;X;Z;""I $D(RMPRFCTR) W RMPRFCTR(1)""~I $D(RMPRFCTR) W RMPRFCTR(2);C7;X;Z;""I $D(RMPRFCTR) W RMPRFCTR(2)""~"
^DIPT(940,"F",7)="I $D(RMPRINS),$D(RMPRAD),'$D(RMPRFCTR) W:RMPRAD(1)'="""" $E(RMPRAD(1),1,30);C7;X;Z;""I $D(RMPRINS),$D(RMPRAD),'$D(RMPRFCTR) W:RMPRAD(1)'="""" $E(RMPRAD(1),1,30)""~"
^DIPT(940,"F",8)="I $D(RMPRINS),$D(RMPRAD),'$D(RMPRFCTR) W:RMPRAD(2)'="""" $E(RMPRAD(2),1,30);C7;X;Z;""I $D(RMPRINS),$D(RMPRAD),'$D(RMPRFCTR) W:RMPRAD(2)'="""" $E(RMPRAD(2),1,30)""~"
^DIPT(940,"F",9)="I $D(RMPRINS),$D(RMPRAD),'$D(RMPRFCTR) W RMPRCT,"" "",RMPRST,"" "",RMPR9P;X;C7;Z;""I $D(RMPRINS),$D(RMPRAD),'$D(RMPRFCTR) W RMPRCT,"" "",RMPRST,"" "",RMPR9P""~"
^DIPT(940,"F",10)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",11)="""2. VETERANS ADDRESS"";X;C1~""3. CLAIM NO."";X;C33~""4. SSN"";X;C50~""5. STATION NO."";X;C66~"
^DIPT(940,"F",12)="-665,^RMPR(665,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~-665,.01;C4~"
^DIPT(940,"F",13)="-665,I $D(^UTILITY(""VAEL"",$J)) W $P(^UTILITY(""VAEL"",$J,7),U);C35;Z;""I $D(^UTILITY(""VAEL"",$J)) W $P(^UTILITY(""VAEL"",$J,7),U)""~"
^DIPT(940,"F",14)="-665,I $D(^UTILITY(""VADM"",$J)) W $P(^UTILITY(""VADM"",$J,2),U);C50;Z;""I $D(^UTILITY(""VADM"",$J)) W $P(^UTILITY(""VADM"",$J,2),U)""~"
^DIPT(940,"F",15)="-665,I $D(RMPR) W $$STA^RMPRUTIL;C70;Z;""I $D(RMPR) W $$STA^RMPRUTIL""~"
^DIPT(940,"F",16)="-665,I $D(^UTILITY(""VAPA"",$J)) W ^UTILITY(""VAPA"",$J,1);C4;L30;Z;""I $D(^UTILITY(""VAPA"",$J)) W ^UTILITY(""VAPA"",$J,1)""~"
^DIPT(940,"F",17)="-665,I $D(^UTILITY(""VAPA"",$J)) W ^UTILITY(""VAPA"",$J,2);C4;L30;Z;""I $D(^UTILITY(""VAPA"",$J)) W ^UTILITY(""VAPA"",$J,2)""~"
^DIPT(940,"F",18)="-665,I $D(^UTILITY(""VAPA"",$J)) W ^UTILITY(""VAPA"",$J,3);C4;L30;Z;""I $D(^UTILITY(""VAPA"",$J)) W ^UTILITY(""VAPA"",$J,3)""~"
^DIPT(940,"F",19)="-665,X DXS(2,9);C4;X;Z;""I $D(^UTILITY(""VAPA"",$J)) W $P(^UTILITY(""VAPA"",$J,4),U)_"" ""_$P(^UTILITY(""VAPA"",$J,5),U,2)_"" ""_$P(^UTILITY(""VAPA"",$J,6),U)""~"
^DIPT(940,"F",20)="-665,I $D(^UTILITY(""VAPA"",$J)) W ""VETERANS PHONE: "",$P(^UTILITY(""VAPA"",$J,8),U);C50;X;Z;""I $D(^UTILITY(""VAPA"",$J)) W ""VETERANS PHONE: "",$P(^UTILITY(""VAPA"",$J,8),U)""~"
^DIPT(940,"F",21)="-665,S X=""-"",DIP(101)=X,DIP(102)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(101) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",22)="""6. AUTHORITY FOR ISSUANCE"";C1;X~""7. ELIGIBILITY STATUS"";C33;X~""8. DATE REQUIRED"";C65;X~""CFR 17.115"";C4;X~"
^DIPT(940,"F",23)="W $S($P($G(^UTILITY(""VAEL"",$J,3)),U,1)=1:""SC"",1:""NSC"");C35;Z;""W $S($P($G(^UTILITY(""VAEL"",$J,3)),U,1)=1:""SC"",1:""NSC"")""~"
^DIPT(940,"F",24)="X DXS(3,9);Z;""I $D(^UTILITY(""VAMB"",$J))!($D(^UTILITY(""VASV"",$J))) W:+$G(^UTILITY(""VAMB"",$J,1)) "" A&A"" W:+$G(^UTILITY(""VAMB"",$J,5)) "" MIL. RET."" W:+$G(^UTILITY(""VASV"",$J,1)) "" VIETNAM""""~"
^DIPT(940,"F",25)=".09;C69;X~""9. DISABILITY CODE:"";X;C1~"
^DIPT(940,"F",26)="X DXS(4,9);Z;""I $D(^RMPR(664.1,D0,1)) F R90=0:0 S R90=$O(^RMPR(664.1,D0,1,R90)) Q:R90'>0 S RA=$G(^(R90,0)) I +RA W "" "",$P(^RMPR(662,+RA,0),U)_""-""_$S($P(^RMPR(664.1,D0,1,R90,0),U,2)=1:""SC"",1:""NSC"") I $O(^RMPR(664.1,D0,1,R90)) W "",""""~"
^DIPT(940,"F",27)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",28)="X DXS(5,9) W X K DIP;C1;X;Z;""CENTER(""10. TYPES AND QUANTITIES OF APPLIANCES AND/OR SERVICES REQUESTED"")""~"
^DIPT(940,"F",29)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",30)="""*UNIT"";C61~""*TOTAL"";C71~""ITEM #"";C1;X~""NOMENCLATURE"";C10;X~""QTY"";C37~""UNIT"";C50~""COST"";C62~""COST"";C72~"
^DIPT(940,"F",31)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",32)="6,X DXS(6,9.3) S X=$P(DIP(201),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;C1;X;Z;"".01:.01:.01""~"
^DIPT(940,"F",33)="6,S DIP(1)=$S($D(^RMPR(664.1,D0,2,D1,0)):^(0),1:""""),Y=$P(DIP(1),U,1) X:$D(^DD(664.16,.01,2)) ^(2) S X=Y,DIP(2)=X S X=1,DIP(3)=X S X=24,X=$E(DIP(2),DIP(3),X) W X K DIP;C10;Z;""$E(ITEM,1,24)""~"
^DIPT(940,"F",34)="6,X DXS(7,9) W X K DIP;C38;Z;""STRIPBLANKS(QTY)""~6,3;C50~6,X DXS(8,9) W X K DIP;C61;Z;""STRIPBLANKS(UNIT COST)""~"
^DIPT(940,"F",35)="6,X DXS(9,9.2) S DIP(2)=X S X=1,DIP(3)=X S X=8,X=$E(DIP(2),DIP(3),X) W X K DIP;C71;Z;""$E(STRIPBLANKS(TOTAL COST),1,8)""~"
^DIPT(940,"F",36)="6,D ADC^RMPR293(D0,D1);X;Z;""D ADC^RMPR293(D0,D1)""~6,7,.01;C10;W 65;X~6,D HCP^RMPR29LU(D0,D1);Z;""D HCP^RMPR29LU(D0,D1)""~"
^DIPT(940,"F",37)="I IOST'[""C-"" X ""I $Y<30 F W ! Q:$Y>30"";Z;""I IOST'[""C-"" X ""I $Y<30 F W ! Q:$Y>30""""~"
^DIPT(940,"F",38)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",39)="""11. PROCUREMENT SOURCE: "";C1;X~2;C25;X~"
^DIPT(940,"F",40)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",41)="""14. SIGNATURE AND TITLE OF"";C1;X~""15. DATE"";C30~""16. SIGNATURE AND TITLE OF"";C41~""17. DATE"";C69~""REQUESTING OFFICIAL"";C5~17;C30~"
^DIPT(940,"F",42)="""APPROVING OFFICIAL"";C45~"
^DIPT(940,"F",43)="X ""S REQ=$P(^RMPR(664.1,D0,0),U,5) W $S(REQ:$P(^VA(200,REQ,20),U,2),1:"""""""")"";C5;Z;""X ""S REQ=$P(^RMPR(664.1,D0,0),U,5) W $S(REQ:$P(^VA(200,REQ,20),U,2),1:"""""""")""""~"
^DIPT(940,"F",44)="X ""W $G(RMPR(""""SIG""""))"";C45;Z;""X ""W $G(RMPR(""""SIG""""))""""~"" "";C1~"
^DIPT(940,"F",45)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",46)="S X=""SECTION III"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;C1;X;Z;""CENTER(""SECTION III"")""~"
^DIPT(940,"F",47)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",48)="""18. ORDER NUMBER"";C1~""19. DATE OF ORDER"";C30;X~""20. DATE ITEM RECEIVED"";C55;X~4;C5;X~.01;C35;X~"
^DIPT(940,"F",49)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",50)="""21. DATE DELIVERED"";C1;X~""22. SIGNATURE OF INSPECTING OFFICIAL"";C45;X~20;C5~"" "";C50~"
^DIPT(940,"F",51)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;X;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",52)="""23. CERTIFICATE OF RECEIPT OR DELIVERY (Check one)"";X;C1~""[ ] I CERTIFY that I have received the items listed above"";C1;X~"
^DIPT(940,"F",53)="""[ ] I CERTIFY that the above items have been sent to"";X;C1~""the Veteran or the requesting field station"";C6;X~"
^DIPT(940,"F",54)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",55)="""24. SIGNATURE OF VETERAN OR VA OFFICIAL"";C1;X~"" "";C1;X~"
^DIPT(940,"F",56)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",57)="""25. SIGNATURE OF DESIGNATED EMPLOYEE"";C1~""26. DATE"";C45~""27. STATION NO."";C60~"" "";C1;X~23;C45;X~"
^DIPT(940,"F",58)="X ""I $D(RMPR(""""STA"""")) W $P($G(^DIC(4,+RMPR(""""STA""""),99)),U)"";C65;Z;""X ""I $D(RMPR(""""STA"""")) W $P($G(^DIC(4,+RMPR(""""STA""""),99)),U)""""~"
^DIPT(940,"F",59)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(940,"F",60)="""ADP FORM 2529-3"";C1~I $D(RMPRDA) D DISP^RMPR293(D0);Z;""I $D(RMPRDA) D DISP^RMPR293(D0)""~"
^DIPT(940,"H")="@"
^DIPT(940,"SUB")="1"
^DIPT(941,0)="QAO QAI POSSIBLE INCIDENTS^2891204.1022^@^741^363^@^2920108"
^DIPT(941,"F",2)=".01;S1~1;C33~4;C47;L15~6;C64;L15;""TREATING SPECIALTY""~"
^DIPT(941,"H")="[QAO QAI POSSIBLE INCIDENTS HDR]"
^DIPT(942,0)="QAO QAI POSSIBLE INCIDENTS HDR^2911001.1417^@^741^363^@^2920108"
^DIPT(942,"F",1)="""OCCURRENCES (DEATHS) THAT MAY ALSO BE INCIDENTS"";S1;C1~S X=DT S Y=X D DT K DIP;C53;L11;Z;""TODAY""~""PAGE:"";C69~"
^DIPT(942,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C75;L4;Z;""PAGE""~D EN6^QAQAUTL;Z;""D EN6^QAQAUTL""~""PATIENT"";S1;C1~""OCCURRENCE"";C33~""WARD OF"";C47~""TREATING"";C64~"
^DIPT(942,"F",3)="""NAME"";C1~""DATE"";C33~""OCCURRENCE"";C47~""SPECIALTY"";C64~""--------------------------------------------------------------------------------"";C1~"
^DIPT(942,"H")="@"
^DIPT(942,"SUB")="1"
^DIPT(945,0)="SPNL REGISTRY DUMP^3000927.0825^^154^^^3000927"
^DIPT(945,"DXS",1,9)="S DIP(2)=$C(59)_$P($G(^DD(154,.03,0)),U,3),DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=""Registration Status: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(945,"DXS",2,9.2)="S DIP(2)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=""Registration Date: "",DIP(1)=X S X=$P(DIP(2),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(945,"DXS",3,9)="S DIP(2)=$C(59)_$P($G(^DD(154,2.6,0)),U,3),DIP(1)=$S($D(^SPNL(154,D0,2)):^(2),1:"""") S X=""VA SCI Status: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(945,"DXS",4,9)="S DIP(2)=$C(59)_$P($G(^DD(154,6.09,0)),U,3),DIP(1)=$S($D(^SPNL(154,D0,6)):^(6),1:"""") S X=""Extent of SCI: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,9)_"":"",2),$C(59),1)"
^DIPT(945,"DXS",5,9)="S DIP(2)=$C(59)_$P($G(^DD(154,10.1,0)),U,3),DIP(1)=$S($D(^SPNL(154,D0,""BCR"")):^(""BCR""),1:"""") S X=""BCR Care Remb: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(945,"DXS",6,9.2)="S DIP(2)=$S($D(^SPNL(154,D0,""BCR"")):^(""BCR""),1:"""") S X=""BCR Date Cert: "",DIP(1)=X S X=$P(DIP(2),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(945,"DXS",7,9)="S DIP(2)=$C(59)_$P($G(^DD(154,2.2,0)),U,3),DIP(1)=$S($D(^SPNL(154,D0,2)):^(2),1:"""") S X=""MS Subtype: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(945,"DXS",8,9.2)="S DIP(1)=$S($D(^SPNL(154,D0,""E"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3)]"""",DIP(2)=X S X="" ""_$P(DIP(1),U,3),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(945,"F",1)="S DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;S1;X;Z;""""Patient: ""_#.01""~"
^DIPT(945,"F",2)="X ""N I,Y ""_$P(^DD(154,999.01,0),U,5,99) S DIP(1)=X S X=""SSN: ""_DIP(1) W X K DIP;C44;X;Z;""""SSN: ""_#999.01""~""DOB: "";C64~"
^DIPT(945,"F",3)="X ""N I,Y ""_$P(^DD(154,999.02,0),U,5,99) S DIP(1)=X S X=DIP(1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C69;Z;""NUMDATE4(DOB)""~"
^DIPT(945,"F",4)="X DXS(1,9) W X K DIP;C1;X;Z;""""Registration Status: ""_#.03""~X DXS(2,9.2) S X=X_Y W X K DIP;C50;X;Z;""""Registration Date: ""_NUMDATE4(#.02)""~"
^DIPT(945,"F",5)="X DXS(3,9) W X K DIP;C1;X;Z;""""VA SCI Status: ""_#2.6""~"
^DIPT(945,"F",6)="S DIP(1)=$S($D(^SPNL(154,D0,2)):^(2),1:"""") S X=""SCI Level: ""_$S('$D(^SPNL(154.01,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;X;Z;""""SCI Level: ""_#2.1""~"
^DIPT(945,"F",7)="X DXS(4,9) W X K DIP;C44;X;Z;""""Extent of SCI: ""_#6.09""~""Last Annual Rehab Received:"";C1~999.07~X DXS(5,9) W X K DIP;C1;X;Z;""""BCR Care Remb: ""_#10.1""~"
^DIPT(945,"F",8)="X DXS(6,9.2) S X=X_Y W X K DIP;C21;X;Z;""""BCR Date Cert: ""_NUMDATE4(#10.2)""~"
^DIPT(945,"F",9)="S DIP(1)=$S($D(^SPNL(154,D0,""BCR"")):^(""BCR""),1:"""") S X=""BCR Provider: ""_$P(DIP(1),U,3) W X K DIP;C48;X;Z;""""BCR Provider: ""_#10.3""~"
^DIPT(945,"F",10)="X DXS(7,9) W X K DIP;C1;X;Z;""""MS Subtype: ""_#2.2""~""Date of Last Update: "";C1~"
^DIPT(945,"F",11)="S DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C22;Z;""NUMDATE4(DATE OF LAST UPDATE)""~"
^DIPT(945,"F",12)="S DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=""Last Update By: ""_$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)) W X K DIP;C36;X;Z;""""Last Update By: ""_#.06""~"
^DIPT(945,"F",13)="S DIP(1)=$S($D(^SPNL(154,D0,""REM"")):^(""REM""),1:"""") S X=""Remarks: ""_$P(DIP(1),U,1) W X K DIP;C1;Z;""""Remarks: ""_#11""~""Date of Onset"";S1;C5;X~"
^DIPT(945,"F",14)="""Etiology"";C22;X~""Type of Cause"";C57;X~""============="";C5;X~""========"";C22;X~""============="";C57;X~"
^DIPT(945,"F",15)="4,S DIP(1)=$S($D(^SPNL(154,D0,""E"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C5;Z;""NUMDATE4(#.02)""~"
^DIPT(945,"F",16)="4,.01;C22~4,999.01;C57;L9~4,X DXS(8,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;Z;""$S(#.03]"""":"" ""_#.03,1:"""")""~"
^DIPT(945,"H")="@"
^DIPT(945,"SUB")="1"
^DIPT(946,0)="ABSV ORGANIZATION DETAIL LIST^2881205^^503335^^^2980422^"
^DIPT(946,"DCL","503335^10")="+"
^DIPT(946,"DCL","503335^11")="+"
^DIPT(946,"DCL","503335^12")="+"
^DIPT(946,"DCL","503335^13")="+"
^DIPT(946,"DCL","503335^14")="+"
^DIPT(946,"DCL","503335^15")="+"
^DIPT(946,"DCL","503335^16")="+"
^DIPT(946,"DCL","503335^17")="+"
^DIPT(946,"DCL","503335^18")="+"
^DIPT(946,"DCL","503335^19")="+"
^DIPT(946,"DCL","503335^20")="+"
^DIPT(946,"DCL","503335^21")="+"
^DIPT(946,"DCL","503335^22")="+"
^DIPT(946,"DCL","503335^23")="+"
^DIPT(946,"DCL","503335^24")="+"
^DIPT(946,"DCL","503335^25")="+"
^DIPT(946,"DCL","503335^26")="+"
^DIPT(946,"DCL","503335^27")="+"
^DIPT(946,"DCL","503335^28")="+"
^DIPT(946,"DCL","503335^29")="+"
^DIPT(946,"DCL","503335^30")="+"
^DIPT(946,"DCL","503335^31")="+"
^DIPT(946,"DCL","503335^32")="+"
^DIPT(946,"DCL","503335^33")="+"
^DIPT(946,"DCL","503335^34")="+"
^DIPT(946,"DCL","503335^35")="+"
^DIPT(946,"DCL","503335^38")="+"
^DIPT(946,"DCL","503335^5")="+"
^DIPT(946,"DCL","503335^6")="+"
^DIPT(946,"DCL","503335^7")="+"
^DIPT(946,"DCL","503335^8")="+"
^DIPT(946,"DCL","503335^9")="+"
^DIPT(946,"F",2)=".01~4~38~5~6~7~8~9~10~11~12~13~14~15~16~17~18~19~20~21~22~23~24~25~26~27~28~29~30~31~32~33~34~35~"
^DIPT(946,"H")="VOLUNTEER HOURS BY ORGANIZATION"
^DIPT(947,0)="ABSV SERVICE LIST^2910702.144^^503335^^^2980406^"
^DIPT(947,"DCL","503335^38")="&"
^DIPT(947,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ABS(503335,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^ABS(503332,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""")"
^DIPT(947,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;N;L25;""SERVICE"";Z;""SERVICE:#1""~.01~4~38~"
^DIPT(947,"H")="VOLUNTEER HOURS WORKED BY SERVICE"
^DIPT(948,0)="ABSV BATCH LIST^2930208.1104^^503335^^^2980422^"
^DIPT(948,"DCL","503335^.01")="!"
^DIPT(948,"DCL","503335^38")="&"
^DIPT(948,"F",2)=".01~4~39;""COL 49-50"";L4~1~38~1.9~"
^DIPT(948,"H")="VOLUNTARY TIME CARD PRE-TRANSMISSION LISTING"
^DIPT(949,0)="ABSV TRANSMIT^3000225.1332^^503335^^^3000225"
^DIPT(949,"DCL","503335^36")="!"
^DIPT(949,"F",1)="36;C1~I X]"""" S ^TMP(CPUJOB,""ABSVBATCH"",BATCH,KOUNT,0)=X;"""";Z;""I X]"""" S ^TMP(CPUJOB,""ABSVBATCH"",BATCH,KOUNT,0)=X""~"
^DIPT(949,"F",2)="S KOUNT=KOUNT+1 I KOUNT>300 S BATCH=BATCH+1,KOUNT=1;"""";Z;""S KOUNT=KOUNT+1 I KOUNT>300 S BATCH=BATCH+1,KOUNT=1""~"
^DIPT(949,"F",3)="S ^TMP(CPUJOB,""ABSVLIST"",D0)="""";"""";Z;""S ^TMP(CPUJOB,""ABSVLIST"",D0)=""""""~"
^DIPT(949,"H")="VOLUNTARY SERVICE TIME CARD TRANSMISSION LISTING"
^DIPT(950,0)="ABSV ERROR LIST^2880811^^503335^^^3000602^"
^DIPT(950,"F",2)=".01~4~1~1.9~3~38~"
^DIPT(950,"H")="VOLUNTARY SERVICE TIME CARD ERROR LISTING"
^DIPT(951,0)="ABSV REVIEW DAILY ENTRIES^2940606.1523^^503331^^^2980427^"
^DIPT(951,"DCL","503331^4")="&"
^DIPT(951,"F",2)="6~2~4;""HOURS WORKED""~"
^DIPT(951,"H")="VOLUNTEER DAILY REVIEW LISTING"
^DIPT(952,0)="ABSV ORGANIZATION SUMMARY^2880902^^503335^^^2971202^"
^DIPT(952,"DCL","503335^10")="+"
^DIPT(952,"DCL","503335^11")="+"
^DIPT(952,"DCL","503335^12")="+"
^DIPT(952,"DCL","503335^13")="+"
^DIPT(952,"DCL","503335^14")="+"
^DIPT(952,"DCL","503335^15")="+"
^DIPT(952,"DCL","503335^16")="+"
^DIPT(952,"DCL","503335^17")="+"
^DIPT(952,"DCL","503335^18")="+"
^DIPT(952,"DCL","503335^19")="+"
^DIPT(952,"DCL","503335^20")="+"
^DIPT(952,"DCL","503335^21")="+"
^DIPT(952,"DCL","503335^22")="+"
^DIPT(952,"DCL","503335^23")="+"
^DIPT(952,"DCL","503335^24")="+"
^DIPT(952,"DCL","503335^25")="+"
^DIPT(952,"DCL","503335^26")="+"
^DIPT(952,"DCL","503335^27")="+"
^DIPT(952,"DCL","503335^28")="+"
^DIPT(952,"DCL","503335^29")="+"
^DIPT(952,"DCL","503335^30")="+"
^DIPT(952,"DCL","503335^31")="+"
^DIPT(952,"DCL","503335^32")="+"
^DIPT(952,"DCL","503335^33")="+"
^DIPT(952,"DCL","503335^34")="+"
^DIPT(952,"DCL","503335^35")="+"
^DIPT(952,"DCL","503335^38")="+"
^DIPT(952,"DCL","503335^5")="+"
^DIPT(952,"DCL","503335^6")="+"
^DIPT(952,"DCL","503335^7")="+"
^DIPT(952,"DCL","503335^8")="+"
^DIPT(952,"DCL","503335^9")="+"
^DIPT(952,"DNP")="1"
^DIPT(952,"F",2)="38~5~6~7~8~9~10~11~12~13~14~15~16~17~18~19~20~21~22~23~24~25~26~27~28~29~30~31~32~33~34~35~"
^DIPT(952,"H")="VOLUNTEER HOURS BY ORGANIZATION (SUMMARY)"
^DIPT(953,0)="ABSV SERVICE SUMMARY^2880902^^503335^^^2970903^"
^DIPT(953,"DCL","503335^38")="&"
^DIPT(953,"DNP")="1"
^DIPT(953,"F",2)="38~"
^DIPT(953,"H")="VOLUNTEER HOURS WORKED BY SERVICE (SUMMARY)"
^DIPT(954,0)="ABSV MONTHLY REPORT^2880426^^503331^^^^"
^DIPT(954,"DCL","503331^4")="+"
^DIPT(954,"F",2)=".01~2~4~"
^DIPT(954,"H")="VOLUNTARY SERVICE MONTHLY REPORT BY ORGANIZATION"
^DIPT(955,0)="ABSV MONTHLY SUMMARY^2880426^^503331^^^^"
^DIPT(955,"DCL","503331^4")="&"
^DIPT(955,"DNP")="1"
^DIPT(955,"F",2)="4~"
^DIPT(955,"H")="VOLUNTARY SERVICE MONTHLY SUMMARY REPORT"
^DIPT(956,0)="ABSV TC PRINT^2880803^^503335^^^3000602^"
^DIPT(956,"DCL","503335^10")="+"
^DIPT(956,"DCL","503335^11")="+"
^DIPT(956,"DCL","503335^12")="+"
^DIPT(956,"DCL","503335^13")="+"
^DIPT(956,"DCL","503335^14")="+"
^DIPT(956,"DCL","503335^15")="+"
^DIPT(956,"DCL","503335^16")="+"
^DIPT(956,"DCL","503335^17")="+"
^DIPT(956,"DCL","503335^18")="+"
^DIPT(956,"DCL","503335^19")="+"
^DIPT(956,"DCL","503335^20")="+"
^DIPT(956,"DCL","503335^21")="+"
^DIPT(956,"DCL","503335^22")="+"
^DIPT(956,"DCL","503335^23")="+"
^DIPT(956,"DCL","503335^24")="+"
^DIPT(956,"DCL","503335^25")="+"
^DIPT(956,"DCL","503335^26")="+"
^DIPT(956,"DCL","503335^27")="+"
^DIPT(956,"DCL","503335^28")="+"
^DIPT(956,"DCL","503335^29")="+"
^DIPT(956,"DCL","503335^30")="+"
^DIPT(956,"DCL","503335^31")="+"
^DIPT(956,"DCL","503335^32")="+"
^DIPT(956,"DCL","503335^33")="+"
^DIPT(956,"DCL","503335^34")="+"
^DIPT(956,"DCL","503335^35")="+"
^DIPT(956,"DCL","503335^38")="+"
^DIPT(956,"DCL","503335^5")="+"
^DIPT(956,"DCL","503335^6")="+"
^DIPT(956,"DCL","503335^7")="+"
^DIPT(956,"DCL","503335^8")="+"
^DIPT(956,"DCL","503335^9")="+"
^DIPT(956,"F",2)=".01~1~38~5~6~7~8~9~10~11~12~13~14~15~16~17~18~19~20~21~22~23~24~25~26~27~28~29~30~31~32~33~34~35~"
^DIPT(956,"H")="VOLUNTEER TIME CARD"
^DIPT(957,0)="ABSV OCC TRANSMIT^2930311.1104^^503336^^^2980406^"
^DIPT(957,"DCL","503336^13")="!"
^DIPT(957,"F",1)="13;C1~I X]"""" S ^TMP(CPUJOB,""ABSVOBATCH"",BATCH,KOUNT,0)=X;"""";Z;""I X]"""" S ^TMP(CPUJOB,""ABSVOBATCH"",BATCH,KOUNT,0)=X""~"
^DIPT(957,"F",2)="S KOUNT=KOUNT+1 I KOUNT>100 S BATCH=BATCH+1,KOUNT=1;"""";Z;""S KOUNT=KOUNT+1 I KOUNT>100 S BATCH=BATCH+1,KOUNT=1""~"
^DIPT(957,"F",3)="S ^TMP(CPUJOB,""ABSVOLIST"",D0)="""";"""";Z;""S ^TMP(CPUJOB,""ABSVOLIST"",D0)=""""""~"
^DIPT(957,"H")="OCCASIONAL HOUR TRANSMISSION LISTING"
^DIPT(958,0)="ABSV OCC ERROR LIST^2980619.0851^^503336^^^2980805"
^DIPT(958,"F",2)=".01~2~2.5~4~3~5~6~7~8~"
^DIPT(958,"H")="OCCASIONAL VOLTUNTEER TIME SHEET ERROR LISTING"
^DIPT(959,0)="ABSV OCC BATCH LIST^2950629.1257^^503336^^^2980406^"
^DIPT(959,"DCL","503336^2")="!"
^DIPT(959,"DCL","503336^5")="&"
^DIPT(959,"DCL","503336^6")="&"
^DIPT(959,"F",2)="2~7~2.5~3~4~5~6~"
^DIPT(959,"H")="OCCASIONAL VOLTUNTEER TIME SHEET BATCH LISTING"
^DIPT(960,0)="ABSV WEEKLY WORK SUMMARY^2930513.1045^^503331^^^2980213^"
^DIPT(960,"DCL","503331^4")="&"
^DIPT(960,"F",2)=".01;N;L30~S DIP(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3) D DW^%DTC W X K DIP;""DAY OF WEEK"";Z;""DAYOFWEEK(DATE WORKED)""~4;""HOURS""~6~"
^DIPT(960,"H")="VOLUNTEER WEEKLY WORK SUMMARY"
^DIPT(961,0)="ABSV POST PRINT^2930315.0906^^503330.1^^^2980427^"
^DIPT(961,"DCL","503330.1^11")="!"
^DIPT(961,"DCL","503330.1^6")="&"
^DIPT(961,"F",2)=".01;T~6~11;""COMBINATION""~"
^DIPT(961,"H")="VOLUNTEER AUTOMATIC LOG-IN TRANSFER RECORD"
^DIPT(962,0)="ABSV POST ERROR PRINT^2891020^^503330.1^^^2950829^"
^DIPT(962,"F",2)=".01~1~6~7~"
^DIPT(962,"H")="POST DAILY TIME ENTRY ERROR LISTING"
^DIPT(963,0)="ABSV ALPHA PRINT^2930203.1327^^503330^^^^"
^DIPT(963,"F",2)=".01~1~.1,.01~.1,.01~.1,1~.1,2~.1,3~"
^DIPT(963,"H")="VOLUNTARY MASTER LIST"
^DIPT(964,0)="ABSV LABEL^2930204.1354^^503330^^^2980406^"
^DIPT(964,"F",2)="D ONE^ABSVLBL1(D0);Z;""D ONE^ABSVLBL1(D0)""~"
^DIPT(964,"H")="@"
^DIPT(964,"SUB")="1"
^DIPT(965,0)="ABSV TT88 LIST^2930513.1024^^503330^^^2980422^"
^DIPT(965,"DCL","503330^1")="!"
^DIPT(965,"F",1)=".01;L30~1;L15~"
^DIPT(965,"F",2)=".1,-503338,^ABS(503338,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""STATION NAME:""~"
^DIPT(965,"F",3)=".1,-503338,9~.1,11~.1,12~.1,13;""ACTIVE IN AUSTIN"";L10~"
^DIPT(965,"H")="PENDING TT88 LISTING"
^DIPT(966,0)="ABSV STATION LIST^2930420.152^^503330.1^^^3000523^"
^DIPT(966,"DCL","503330.1^6")="&"
^DIPT(966,"F",2)=".01;""NAME"";L30~1~11;""COMBINATION"";R11~5~6~"
^DIPT(966,"H")="LIST OF VOLUNTEERS SIGNED IN"
^DIPT(967,0)="ABSV SCAN^2940310.1147^^503330^^^2970225^"
^DIPT(967,"DCL","503330^1")="!"
^DIPT(967,"DXS",1,9)="K ^TMP(""ABSVSCAN"",$J,+$G(COUNT)) S COUNT=$O(^TMP(""ABSVSCAN"",$J,0)),D0=$S('COUNT:9999999999,1:+^(COUNT)-1)"
^DIPT(967,"F",1)=".01;L30~1;L12~S ABSVX=$G(^TMP(""ABSVSCAN"",$J,+$G(COUNT)));"""";L1;Z;""S ABSVX=$G(^TMP(""ABSVSCAN"",$J,+$G(COUNT)))""~"
^DIPT(967,"F",2)="W $P(ABSVX,""^"",3);""COMBINATION"";L11;Z;""W $P(ABSVX,""^"",3)""~W $P(ABSVX,""^"",2);""DAYS WORKED"";L7;Z;""W $P(ABSVX,""^"",2)""~"
^DIPT(967,"F",3)="X DXS(1,9);"""";L1;Z;""K ^TMP(""ABSVSCAN"",$J,+$G(COUNT)) S COUNT=$O(^TMP(""ABSVSCAN"",$J,0)),D0=$S('COUNT:9999999999,1:+^(COUNT)-1)""~"
^DIPT(967,"H")="VOLUNTEERS EXCEEDING 26 ENTRIES FOR A SINGLE COMBINATION"
^DIPT(968,0)="ACKQ WORKLOAD DISPLAY^2920330.1531^^509850.7^^^^"
^DIPT(968,"DXS",1,9)="S ACKMN=""January$February$March$April$May$June$July$August$September$October$November$December"""
^DIPT(968,"F",1)="D HOME^%ZIS;X;Z;""D HOME^%ZIS""~W @IOF;X;Z;""W @IOF""~"
^DIPT(968,"F",2)="X DXS(1,9);X;Z;""S ACKMN=""January$February$March$April$May$June$July$August$September$October$November$December""""~"
^DIPT(968,"F",3)="S ACKWDT=$E(D0,4,8)_""00"";Z;""S ACKWDT=$E(D0,4,8)_""00""""~S ACKM=$E(ACKWDT,4,5);X;Z;""S ACKM=$E(ACKWDT,4,5)""~"
^DIPT(968,"F",4)="S ACKM=$P(ACKMN,""$"",+ACKM)_"" ""_($E(ACKWDT,1,3)+1700);X;Z;""S ACKM=$P(ACKMN,""$"",+ACKM)_"" ""_($E(ACKWDT,1,3)+1700)""~"
^DIPT(968,"F",5)="S X=""VERIFY A&SP WORKLOAD DATA FOR"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""VERIFY A&SP WORKLOAD DATA FOR"")""~"
^DIPT(968,"F",6)="W !?(IOM\2-($L(ACKM)\2)),ACKM;X;Z;""W !?(IOM\2-($L(ACKM)\2)),ACKM""~""TOTAL VISITS: "";S2;C1;X~.02~"" "";C1;S;X~1,.01;C1;S;X~1,"": "";X~1,""AUDIOLOGY: "";C5;X~"
^DIPT(968,"F",7)="1,.04;X~1,""SPEECH: "";C28;X~1,.05;X~1,""C&P: "";C45;X~1,.03~"" "";C1;S1;X~"
^DIPT(968,"F",8)="S X=""DIAGNOSIS CODES USED"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;"""";Z;""CENTER(""DIAGNOSIS CODES USED"")"";X~"
^DIPT(968,"F",9)=""" "";C1~2,""CODE: "";C1;X~2,.01;"""";""""~2,.02;""""~"" "";"""";C1;S1~"
^DIPT(968,"F",10)="S X=""PROCEDURE CODES"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;"""";Z;""CENTER(""PROCEDURE CODES"")"";X~"" "";C1~"
^DIPT(968,"F",11)="3,""CODE: "";X~3,.01;"""";""""~3,""COUNT: "";C20;X~"" "";C1;S1;""""~"
^DIPT(968,"F",12)="S X=""CDR ACCOUNTS"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;"""";Z;""CENTER(""CDR ACCOUNTS"")"";X~"" "";C1;""""~"
^DIPT(968,"F",13)="4,""ACCOUNT: "";X~4,.01;""""~4,""# VISITS: "";X~4,.02;""""~"
^DIPT(968,"H")="@"
^DIPT(968,"SUB")="1"
^DIPT(971,0)="MCARCATH4^2970306.1335^^691.1^^^2970306"
^DIPT(971,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(971,"DXS",1,9.2)="S X=""ANGIOPLASTY"""
^DIPT(971,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(971,"DXS",2,9.2)="S X=""OTHER RESULTS"""
^DIPT(971,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(691.1,49,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,38)):^(38),1:"""") S X=""LEFT VENTRICULOGRAPHY: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(971,"DXS",4,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,""CO"")):^(""CO""),1:"""") S X=$P(DIP(1),U,2)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""EDV: ""_$P(DIP(1),U,2)_""ml"""
^DIPT(971,"DXS",5,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,""CO"")):^(""CO""),1:"""") S X=$P(DIP(1),U,3)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""ESV: ""_$P(DIP(1),U,3)_""ml"""
^DIPT(971,"DXS",6,9.2)="X $P(^DD(691.1,2009,0),U,5,99) S DIP(1)=X S X=DIP(1)]"""",DIP(2)=X S X=""CARDIAC OUTPUT: ""_DIP(1)_""ml/min"",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(971,"DXS",7,9)="S DIP(2)=$C(59)_$S($D(^DD(691.1,52,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""THROMBUS ON LV GRAM ?: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(971,"DXS",8,9)="S DIP(2)=$C(59)_$S($D(^DD(691.1,54,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""AORTIC REGURGITATION: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(971,"DXS",9,9)="S DIP(2)=$C(59)_$S($D(^DD(691.1,55,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""AORTIC ROOT: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(971,"DXS",10,9)="X DXS(10,9.3) S DIP(102)=$S($D(^MCAR(691.1,D0,41,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(696.9,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(971,"DXS",10,9.2)="S I(0)=""^MCAR(691.1,"",J(0)=691.1 F D=0:0 S (D,D1)=$O(^MCAR(691.1,D0,41,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(696.9,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(971,"DXS",10,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(10,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(691.1,D0,41,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(971,"DXS",11,1)="NORMAL"
^DIPT(971,"DXS",11,2)="HYPOKINETIC"
^DIPT(971,"DXS",11,3)="AKINETIC"
^DIPT(971,"DXS",11,4)="DYSKINETIC"
^DIPT(971,"DXS",11,5)="ANEURYSMAL"
^DIPT(971,"DXS",11,6)="MILDLY HYPOKINETIC"
^DIPT(971,"DXS",11,7)="SEVERELY HYPOKINETIC"
^DIPT(971,"F",1)="48,X DXS(1,9) W X K DIP;C33;S2;X;Z;""UNDERLINE(""ANGIOPLASTY"")""~48,""STARTING"";C24;S~48,""RESULTING"";C39~48,""STARTING"";C54~48,""RESULTING"";C66~48,""SEGMENT"";C7~"
^DIPT(971,"F",2)="48,""% OBSTRUCTION"";C22~48,""% OBSTRUCTION"";C37~48,""GRADIENT"";C54~48,""GRADIENT"";C66~48,.01;C8~48,1;C24~48,1.5;C24~48,2;C41~48,2.5;C41~48,3;C56~48,4;C68~"
^DIPT(971,"F",3)="X DXS(2,9) W X K DIP;C30;S2;X;Z;""UNDERLINE(""OTHER RESULTS"")""~X DXS(3,9) W X K DIP;C5;S;Z;""""LEFT VENTRICULOGRAPHY: ""_LEFT VENTRICULOGRAPHY""~"
^DIPT(971,"F",4)="X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#2007="""":"""",1:""EDV: ""_#2007_""ml"")""~"
^DIPT(971,"F",5)="X DXS(5,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#2008="""":"""",1:""ESV: ""_#2008_""ml"")""~"
^DIPT(971,"F",6)="X DXS(6,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#2009]"""":""CARDIAC OUTPUT: ""_#2009_""ml/min"",1:"""")""~""WALL MOTION:"";C8~50,.01;C21;X~50,"", "";X~"
^DIPT(971,"F",7)="50,1;X~S DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""EJECTION FRACTION: ""_$P(DIP(1),U,3) W X K DIP;C5;S;Z;""""EJECTION FRACTION: ""_LV EJ""~"
^DIPT(971,"F",8)="X DXS(7,9) W X K DIP;C45;Z;""""THROMBUS ON LV GRAM ?: ""_#52""~"
^DIPT(971,"F",9)="S DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""MITRAL REGURGITATION: ""_$S('$D(^MCAR(696.7,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""MITRAL REGURGITATION: ""_#51""~"
^DIPT(971,"F",10)="X DXS(8,9) W X K DIP;C5;S;Z;""""AORTIC REGURGITATION: ""_#54""~X DXS(9,9) W X K DIP;C45;Z;""""AORTIC ROOT: ""_#55""~""COMPLICATIONS: "";C5;S~"
^DIPT(971,"F",11)="X DXS(10,9) W X K DIP;C21;X;m;Z;""COMPLICATION:COMPLICATION""~"
^DIPT(971,"F",12)="S DIP(1)=$S($D(^MCAR(691.1,D0,42)):^(42),1:"""") S X=""IMPRESSION: ""_$S('$D(^MCAR(693.2,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""IMPRESSION: ""_INTERPRETATION""~"
^DIPT(971,"F",13)="""CONCLUSION:"";C5;S~60,.01;W60;C18~""PLAN:"";C5;S~61,.01;W65~""------------------------------"";C25~""CARDIOLOGY FELLOW: "";C5;S~62~"
^DIPT(971,"F",14)="""CARDIOLOGY FELLOW (2nd): "";C5;X~64~""CARDIOLOGY STAFF: "";C5;S~63~""CARDIOLOGY STAFF (2nd): "";C5;X~65~"
^DIPT(971,"F",15)="S MCFILE=691.1 D DISP^MCMAG;Z;""S MCFILE=691.1 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(971,"H")="@"
^DIPT(971,"IOM")="80"
^DIPT(971,"LAST")="1"
^DIPT(971,"ROU")="^MCAROC4"
^DIPT(971,"ROUOLD")="MCAROC4"
^DIPT(971,"SUB")="1"
^DIPT(972,0)="MCARCATH3^2960510.1447^^691.1^^^2960510"
^DIPT(972,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(972,"DXS",1,9.2)="S X=""CORONARY ANGIOGRAPHY"""
^DIPT(972,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(691.1,45,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,35)):^(35),1:"""") S X=""DOMINANCE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(972,"DXS",3,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,22)):^(22),1:"""") S X=$S('$D(^MCAR(696.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))'="""",DIP(2)=X S X=""DISTAL VESSEL: ""_$S('$D(^MCAR(696.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(972,"DXS",4,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.1,30,0)):$P(^(0),U,3),1:""""),DIP(4)=$C(59)_$S($D(^DD(691.1,30,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,22)):^(22),1:"""")"
^DIPT(972,"DXS",4,9.3)="X DXS(4,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)'="""",DIP(3)=X S X=""COLLATERALS: ""_$P($P(DIP(4),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(972,"DXS",5,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,28)):^(28),1:"""") S X=$S('$D(^MCAR(696.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))'="""",DIP(2)=X S X=""DISTAL VESSEL: ""_$S('$D(^MCAR(696.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(972,"DXS",6,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.1,37,0)):$P(^(0),U,3),1:""""),DIP(4)=$C(59)_$S($D(^DD(691.1,37,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,28)):^(28),1:"""")"
^DIPT(972,"DXS",6,9.3)="X DXS(6,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)'="""",DIP(3)=X S X=""COLLATERALS: ""_$P($P(DIP(4),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(972,"DXS",7,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,32)):^(32),1:"""") S X=$S('$D(^MCAR(696.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))'="""",DIP(2)=X S X=""DISTAL VESSEL: ""_$S('$D(^MCAR(696.3,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(972,"DXS",8,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.1,42,0)):$P(^(0),U,3),1:""""),DIP(4)=$C(59)_$S($D(^DD(691.1,42,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,32)):^(32),1:"""")"
^DIPT(972,"DXS",8,9.3)="X DXS(8,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)'="""",DIP(3)=X S X=""COLLATERALS: ""_$P($P(DIP(4),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(972,"DXS",9,"N")="NOT PRESENT"
^DIPT(972,"DXS",9,"P")="PRESENT"
^DIPT(972,"F",1)="X DXS(1,9) W X K DIP;C30;S2;X;Z;""UNDERLINE(""CORONARY ANGIOGRAPHY"")""~X DXS(2,9) W X K DIP;C5;S;Z;""""DOMINANCE: ""_DOMINANCE""~"
^DIPT(972,"F",2)="""RIGHT CORONARY ARTERY:"";C5;S~27~28,.01;C10~28,1;C34~28,1.5;C34~28,2~"
^DIPT(972,"F",3)="X DXS(3,9.2) S DIP(3)=X S X=1,DIP(4)=X S X="""",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#29'="""":""DISTAL VESSEL: ""_#29,1:"""")""~"
^DIPT(972,"F",4)="X DXS(4,9.3) S DIP(5)=X S X=1,DIP(6)=X S X="""",X=$S(DIP(3):DIP(5),DIP(6):X) W X K DIP;C8;Z;""$S(#30'="""":""COLLATERALS: ""_#30,1:"""")""~31,""FROM:"";C9~31,.01~"
^DIPT(972,"F",5)="31,""TO:"";C45~31,1~"
^DIPT(972,"F",6)="S DIP(1)=$S($D(^MCAR(691.1,D0,24)):^(24),1:"""") S X=""LEFT MAIN CA: ""_$S('$D(^MCAR(695.9,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""LEFT MAIN CA: ""_#32""~"
^DIPT(972,"F",7)="33,.01;C34~33,1~33.5,.01;C34~33.5,1~"
^DIPT(972,"F",8)="S DIP(1)=$S($D(^MCAR(691.1,D0,26)):^(26),1:"""") S X=""LAD: ""_$S('$D(^MCAR(695.9,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""LAD: ""_#34""~"
^DIPT(972,"F",9)="35,.01;C10~35,1;C34~35,1.5;C34~35,2~"
^DIPT(972,"F",10)="X DXS(5,9.2) S DIP(3)=X S X=1,DIP(4)=X S X="""",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#36'="""":""DISTAL VESSEL: ""_#36,1:"""")""~"
^DIPT(972,"F",11)="X DXS(6,9.3) S DIP(5)=X S X=1,DIP(6)=X S X="""",X=$S(DIP(3):DIP(5),DIP(6):X) W X K DIP;C8;Z;""$S(#37'="""":""COLLATERALS: ""_#37,1:"""")""~"
^DIPT(972,"F",12)="38,S DIP(1)=$S($D(^MCAR(691.1,D0,29,D1,0)):^(0),1:"""") S X=""FROM: ""_$S('$D(^MCAR(696,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C9;Z;""""FROM: ""_#.01""~"
^DIPT(972,"F",13)="38,S DIP(1)=$S($D(^MCAR(691.1,D0,29,D1,0)):^(0),1:"""") S X=""TO: ""_$S('$D(^MCAR(696,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""TO: ""_#1""~"
^DIPT(972,"F",14)="S DIP(1)=$S($D(^MCAR(691.1,D0,30)):^(30),1:"""") S X=""CIRCUMFLEX: ""_$S('$D(^MCAR(695.9,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""CIRCUMFLEX: ""_#39""~"
^DIPT(972,"F",15)="40,.01;C10~40,1;C34~40,1.5;C34~40,2~"
^DIPT(972,"F",16)="X DXS(7,9.2) S DIP(3)=X S X=1,DIP(4)=X S X="""",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#41'="""":""DISTAL VESSEL: ""_#41,1:"""")""~"
^DIPT(972,"F",17)="X DXS(8,9.3) S DIP(5)=X S X=1,DIP(6)=X S X="""",X=$S(DIP(3):DIP(5),DIP(6):X) W X K DIP;C8;Z;""$S(#42'="""":""COLLATERALS: ""_#42,1:"""")""~"
^DIPT(972,"F",18)="43,S DIP(1)=$S($D(^MCAR(691.1,D0,33,D1,0)):^(0),1:"""") S X=""FROM: ""_$S('$D(^MCAR(696,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C9;Z;""""FROM: ""_#.01""~"
^DIPT(972,"F",19)="43,S DIP(1)=$S($D(^MCAR(691.1,D0,33,D1,0)):^(0),1:"""") S X=""TO: ""_$S('$D(^MCAR(696,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""TO: ""_#1""~"
^DIPT(972,"F",20)="""BYPASS GRAFTS ?:"";C5;S~46~47,""DISTAL ANASTOMOSIS:"";C8~47,.01;C10~47,1;C34~47,1.5;C34~47,2;L25~"
^DIPT(972,"H")="@"
^DIPT(972,"IOM")="80"
^DIPT(972,"LAST")="1"
^DIPT(972,"ROU")="^MCAROC3"
^DIPT(972,"ROUOLD")="MCAROC3"
^DIPT(972,"SUB")="1"
^DIPT(973,0)="MCARCATH2^2960514.0907^^691.1^^^2960514"
^DIPT(973,"%D",0)="^^1^1^2870413^"
^DIPT(973,"%D",1,0)="Second page of the Cardiac Cath report."
^DIPT(973,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(973,"DXS",1,9.2)="S X=""METHODS"""
^DIPT(973,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(691.1,18,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.1,D0,12)):^(12),1:"""") S X=""SHEATH USED ?: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(973,"DXS",3,9)="X DXS(3,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(973,"DXS",3,9.2)="S X=""HEMODYNAMICS"""
^DIPT(973,"DXS",4,"B")="DIPHENHYDRAMINE"
^DIPT(973,"DXS",4,"N")="NONE"
^DIPT(973,"DXS",4,"S")="STEROIDS"
^DIPT(973,"DXS",4,"V")="DIAZEPAM"
^DIPT(973,"DXS",5,"LBA")="LEFT BRACHIAL ARTERY"
^DIPT(973,"DXS",5,"LBV")="LEFT BRACHIAL VEIN"
^DIPT(973,"DXS",5,"LFA")="LEFT FEMORAL ARTERY"
^DIPT(973,"DXS",5,"LFV")="LEFT FEMORAL VEIN"
^DIPT(973,"DXS",5,"RBA")="RIGHT BRACHIAL ARTERY"
^DIPT(973,"DXS",5,"RBV")="RIGHT BRACHIAL VEIN"
^DIPT(973,"DXS",5,"RFA")="RIGHT FEMORAL ARTERY"
^DIPT(973,"DXS",5,"RFV")="RIGHT FEMORAL VEIN"
^DIPT(973,"DXS",6,"C")="7F COURNAND"
^DIPT(973,"DXS",6,"E")="7F EPPENDORF"
^DIPT(973,"DXS",6,"S")="7F SWAN GANZ"
^DIPT(973,"DXS",6,"Z")="7F ZUCKER"
^DIPT(973,"DXS",7,1)="ADEQUATE"
^DIPT(973,"DXS",7,2)="POOR"
^DIPT(973,"DXS",7,3)="INADEQUATE"
^DIPT(973,"DXS",8,1)="ADEQUATE"
^DIPT(973,"DXS",8,2)="POOR"
^DIPT(973,"DXS",8,3)="INADEQUATE"
^DIPT(973,"DXS",9,1)="ADEQUATE"
^DIPT(973,"DXS",9,2)="POOR"
^DIPT(973,"DXS",9,3)="INADEQUATE"
^DIPT(973,"DXS",10,1)="BASELINE"
^DIPT(973,"DXS",10,2)="POST CONTRAST"
^DIPT(973,"DXS",10,3)="AFTER EXERCISE"
^DIPT(973,"DXS",10,4)="AFTER DRUGS"
^DIPT(973,"DXS",10,9)="OTHER"
^DIPT(973,"F",1)="X DXS(1,9) W X K DIP;C35;S;X;Z;""UNDERLINE(""METHODS"")""~""PREMEDICATIONS:"";C5;S~15,.01~""VASCULAR ACCESS:"";C5;S~16,.01~"
^DIPT(973,"F",2)="X DXS(2,9) W X K DIP;C23;Z;""""SHEATH USED ?: ""_USE OF SHEATH""~""CATHETERS:"";C5;S~""TYPE AND SIZE"";C30~""ENGAGEMENT"";C58~""RIGHT HEART"";C8~19;C28~"
^DIPT(973,"F",3)="""LEFT HEART"";C8~20,.01;C28~20,1;C59;L18~""RIGHT CORONARY"";C8~21,.01;C28~21,1;C59;L18~""LEFT CORONARY"";C8~22,.01;C28~22,1;C59;L18~""FLOURO TIME:"";C5;S~17~"
^DIPT(973,"F",4)=""" MINUTES"";X~""OTHER PROCEDURE AND COMMENT:"";C5;S~24,.01;C27;W~""TECH COMMENTS:"";C7~7,.01;W55~X DXS(3,9) W X K DIP;C30;S;X;Z;""UNDERLINE(""HEMODYNAMICS"")""~"
^DIPT(973,"F",5)="26,""INTERVENTION:"";C5;S~26,.01~26,""PRESSURES:"";C7~"
^DIPT(973,"F",6)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""RA A: ""_$P(DIP(1),U,2) W X K DIP;C8;Z;""""RA A: ""_RA A WAVE""~"
^DIPT(973,"F",7)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PCW A: ""_$P(DIP(1),U,13) W X K DIP;C28;Z;""""PCW A: ""_PCW A WAVE""~"
^DIPT(973,"F",8)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""AO S: ""_$P(DIP(1),U,1) W X K DIP;C52;Z;""""AO S: ""_AORTIC SYSTOLIC""~"
^DIPT(973,"F",9)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""V: ""_$P(DIP(1),U,3) W X K DIP;C11;Z;""""V: ""_RA V WAVE""~"
^DIPT(973,"F",10)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""V: ""_$P(DIP(1),U,14) W X K DIP;C32;Z;""""V: ""_PCW V WAVE""~"
^DIPT(973,"F",11)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""D: ""_$P(DIP(1),U,2) W X K DIP;C55;Z;""""D: ""_AORTIC D""~"
^DIPT(973,"F",12)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""M: ""_$P(DIP(1),U,4) W X K DIP;C11;Z;""""M: ""_RA MEAN PRESSURE""~"
^DIPT(973,"F",13)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""M: ""_$P(DIP(1),U,15) W X K DIP;C32;Z;""""M: ""_PCW MEAN""~"
^DIPT(973,"F",14)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""M: ""_$P(DIP(1),U,3) W X K DIP;C55;Z;""""M: ""_AORTIC MEAN PRESSURE""~"
^DIPT(973,"F",15)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""RV S: ""_$P(DIP(1),U,6) W X K DIP;C8;Z;""""RV S: ""_RV SYSTOLIC""~"
^DIPT(973,"F",16)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LA A: ""_$P(DIP(1),U,16) W X K DIP;C29;Z;""""LA A: ""_LA A WAVE""~"
^DIPT(973,"F",17)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LV S: ""_$P(DIP(1),U,22) W X K DIP;C52;Z;""""LV S: ""_LV SYSTOLIC""~"
^DIPT(973,"F",18)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""D: ""_$P(DIP(1),U,7) W X K DIP;C11;Z;""""D: ""_RV DIASTOLIC""~"
^DIPT(973,"F",19)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""V: ""_$P(DIP(1),U,17) W X K DIP;C32;Z;""""V: ""_LA V WAVE""~"
^DIPT(973,"F",20)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PRE A: ""_$P(DIP(1),U,20) W X K DIP;C51;Z;""""PRE A: ""_#19""~"
^DIPT(973,"F",21)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""M: ""_$P(DIP(1),U,18) W X K DIP;C32;Z;""""M: ""_LA MEAN PRESSURE""~"
^DIPT(973,"F",22)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""Z: ""_$P(DIP(1),U,21) W X K DIP;C55;Z;""""Z: ""_#20""~"
^DIPT(973,"F",23)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PA S: ""_$P(DIP(1),U,9) W X K DIP;C8;Z;""""PA S: ""_PA SYSTOLIC""~"
^DIPT(973,"F",24)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LV S: ""_$P(DIP(1),U,24) W X K DIP;C52;Z;""""LV S: ""_#23""~26,""(POST DYE)""~"
^DIPT(973,"F",25)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""D: ""_$P(DIP(1),U,10) W X K DIP;C11;Z;""""D: ""_PA DIASTOLIC""~"
^DIPT(973,"F",26)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PRE A: ""_$P(DIP(1),U,25) W X K DIP;C51;Z;""""PRE A: ""_LV PRE A POST CONTRAST""~"
^DIPT(973,"F",27)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""M: ""_$P(DIP(1),U,11) W X K DIP;C11;Z;""""M: ""_PA MEAN""~"
^DIPT(973,"F",28)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""Z: ""_$P(DIP(1),U,26) W X K DIP;C55;Z;""""Z: ""_#25""~26,""SATURATIONS: "";C7;S~"
^DIPT(973,"F",29)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""RA: ""_$P(DIP(1),U,5) W X K DIP;C10;Z;""""RA: ""_RA SATURATION""~"
^DIPT(973,"F",30)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PA: ""_$P(DIP(1),U,12) W X K DIP;C31;Z;""""PA: ""_PA SATURATION""~"
^DIPT(973,"F",31)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LV: ""_$P(DIP(1),U,23) W X K DIP;C47;Z;""""LV: ""_LV SATURATION""~"
^DIPT(973,"F",32)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""IVC: ""_$P(DIP(1),U,8) W X K DIP;C64;Z;""""IVC: ""_IVC SATURATION""~"
^DIPT(973,"F",33)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""RV: ""_$P(DIP(1),U,8) W X K DIP;C10;Z;""""RV: ""_RV SATURATION""~"
^DIPT(973,"F",34)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LA: ""_$P(DIP(1),U,19) W X K DIP;C31;Z;""""LA: ""_LA SATURATION""~"
^DIPT(973,"F",35)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""AO: ""_$P(DIP(1),U,4) W X K DIP;C47;Z;""""AO: ""_AORTIC SATURATION""~"
^DIPT(973,"F",36)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""SVC: ""_$P(DIP(1),U,6) W X K DIP;C64;Z;""""SVC: ""_SVC SATURATION""~26,""OUTPUT AND INDEX"";C7;S~"
^DIPT(973,"F",37)="26,""(L/MIN)"";C30~26,""(L/MIN/M2)"";C55~26,""ASSUMED FICK"";C10~26,35;C30~26,36;C56~26,""INDOGREEN"";C10~26,38;C30~26,39;C56~26,""THERMODILUTION"";C10~26,40;C30~"
^DIPT(973,"F",38)="26,41;C56~26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=""A V AREA (CM SQ): ""_$P(DIP(1),U,19) W X K DIP;C7;S;Z;""""A V AREA (CM SQ): ""_A V AREA""~"
^DIPT(973,"H")="@"
^DIPT(973,"IOM")="80"
^DIPT(973,"LAST")="2"
^DIPT(973,"ROU")="^MCAROC2"
^DIPT(973,"ROUOLD")="MCAROC2"
^DIPT(973,"SUB")="1"
^DIPT(974,0)="MCARCATH1^2960510.1435^^691.1^^^2960510"
^DIPT(974,"%D",0)="^^1^1^2910815^^"
^DIPT(974,"%D",1,0)="First page of the Cardiac Cath report."
^DIPT(974,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,0)):^(0),1:"""") S X='$P(DIP(1),U,7),DIP(2)=X S X="""",DIP(3)=X S X='$P(DIP(1),U,8),DIP(4)=X S X="""",DIP(5)=X S X=1,DIP(6)=X S X=""BSA: """
^DIPT(974,"F",1)="""WARD/CLINIC: "";C50~5;X~""REF HOSP OR PHYS: "";C5~4;X~"
^DIPT(974,"F",2)="S DIP(1)=$S($D(^MCAR(691.1,D0,0)):^(0),1:"""") S X=""CATH NO: ""_$P(DIP(1),U,4) W X K DIP;C50;Z;""""CATH NO: ""_CATH NUMBER""~""HT IN: "";C5~1.2;X~"
^DIPT(974,"F",3)="""WT LBS: "";C28~1.1;X~X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):X) W X K DIP;C50;Z;""$S('#1.1:"""",'#1.2:"""",1:""BSA: "")""~1.3;X~"
^DIPT(974,"F",4)="""PROCEDURES:"";C5;S~8,.01~""HISTORY:"";C5;S~9,.01;C15;W~""SYMPTOMS INCLUDED:"";C8~.04,.01;C27;X~""RISK FACTORS:"";C5~.05,.01~""HEART MEDS:"";C5~11,.01~"
^DIPT(974,"F",5)="11,S DIP(1)=$S($D(^MCAR(691.1,D0,6,D1,0)):^(0),1:"""") S X="", ""_$P(DIP(1),U,2) W X K DIP;X;Z;"""", ""_DOSE""~"
^DIPT(974,"F",6)="11,S DIP(1)=$S($D(^MCAR(691.1,D0,6,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,3) W X K DIP;X;Z;"""" ""_FREQUENCY""~""PHYSICAL:"";C5;S~12,.01;C17;W60~"
^DIPT(974,"H")="@"
^DIPT(974,"IOM")="80"
^DIPT(974,"LAST")=""
^DIPT(974,"ROU")="^MCAROC1"
^DIPT(974,"ROUOLD")="MCAROC1"
^DIPT(974,"SUB")="1"
^DIPT(975,0)="MCARETT1^3010322.1223^^691.7^^^3010322"
^DIPT(975,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(691.7,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1)"
^DIPT(975,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^MCAR(691.7,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^MCAR(690,+D0,0)) D0=-1 S I(100,0)=$G(D0),DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:"""")"
^DIPT(975,"DXS",2,9.3)="X DXS(2,9.2) S DIP(102)=X,D0=$P(DIP(101),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(202)=$C(59)_$P($G(^DD(2,.02,0)),U,3),DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(975,"DXS",3,9.2)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,16)'="""",DIP(2)=X S X=$P(DIP(1),U,16)_""/""_$P(DIP(1),U,17),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(975,"DXS",4,9.2)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,18)'="""",DIP(2)=X S X=$P(DIP(1),U,18)_""/""_$P(DIP(1),U,19),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(975,"DXS",5,9.2)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,13)'="""",DIP(2)=X S X=$P(DIP(1),U,13)_"":""_$P(DIP(1),U,14),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(975,"DXS",6,9)="S DIP(1)=$S($D(^MCAR(691.7,D0,5)):^(5),1:"""") S X=""REASON FOR STOPPING: ""_$S('$D(^MCAR(695.8,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(975,"DXS",7,"A")="ARM ERGOMETRY"
^DIPT(975,"DXS",7,"BA")="BALKE"
^DIPT(975,"DXS",7,"BI")="BICYCLE ERGOMETRY"
^DIPT(975,"DXS",7,"BL")="BLOCKER"
^DIPT(975,"DXS",7,"BR")="BRUCE"
^DIPT(975,"DXS",7,"L")="LEVEL MODIFIED BRUCE"
^DIPT(975,"DXS",7,"M")="MODIFIED BRUCE"
^DIPT(975,"DXS",7,"MN")="MODIFIED NAUGHTON"
^DIPT(975,"DXS",7,"N")="NAUGHTON"
^DIPT(975,"DXS",7,"S")="SPECIAL"
^DIPT(975,"DXS",8,"DP")="DEC PVCS"
^DIPT(975,"DXS",8,"IFP")="INC FREQ PVCS"
^DIPT(975,"DXS",8,"IGC")="INC GRADE, COUPLETS"
^DIPT(975,"DXS",8,"IGT")="INC GRADE, TRIPLETS"
^DIPT(975,"DXS",8,"IVT")="INC SUST VT (>10)"
^DIPT(975,"DXS",8,"N")="NONE"
^DIPT(975,"DXS",9,"H")="HYPERTENSIVE"
^DIPT(975,"DXS",9,"N")="NORMAL"
^DIPT(975,"DXS",9,"SR")="SYSTOLIC ROLL-OVER"
^DIPT(975,"DXS",10,"A")="ABNORMAL"
^DIPT(975,"DXS",10,"B")="BORDERLINE"
^DIPT(975,"DXS",10,"N")="NORMAL"
^DIPT(975,"F",1)="""TIME TEST:"";C45~"
^DIPT(975,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;Z;""TIME(DATE/TIME OF TEST)""~"
^DIPT(975,"F",3)="""AGE: "";C5~W $$RPTAGE^MCARUTL4(691.7,D0);X;Z;""W $$RPTAGE^MCARUTL4(691.7,D0)""~""WT LBS:"";C45~6.1~""SEX:"";C5~"
^DIPT(975,"F",4)="X DXS(2,9.3) S X=$P($P(DIP(202),$C(59)_$P(DIP(201),U,2)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;Z;""1:.01:SEX""~""WARD/CLINIC: "";C45~69;X;L20~"
^DIPT(975,"F",5)="""REF PHYS: "";C5~6~""ETT PROTOCOL:"";C5;S~7~"
^DIPT(975,"F",6)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=""HYPERVENTILATION: ""_$P(DIP(1),U,3) W X K DIP;C5;Z;""""HYPERVENTILATION: ""_#8""~"
^DIPT(975,"F",7)="X ""N I,Y ""_$P(^DD(691.7,46,0),U,5,99) S DIP(1)=X S X=""TARGET HR: ""_DIP(1) W X K DIP;C5;Z;""""TARGET HR: ""_#46""~""RESTING EKG:"";C5~5,.01;W60~"
^DIPT(975,"F",8)="""----------------------------------------------------------------------"";C5~""SUPINE"";C19~""UPRIGHT"";C34~""ONSET CP"";C49~""PEAK EX"";C64~""------"";C19~"
^DIPT(975,"F",9)="""-------"";C34~""--------"";C49~""-------"";C64~""HR"";C7~9;C19~13;C34~23;C49~29;C64~""SBP/DBP"";C7~"
^DIPT(975,"F",10)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,5)_""/""_$P(DIP(1),U,6) W X K DIP;C19;Z;""RS SBP_""/""_RS DBP""~"
^DIPT(975,"F",11)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,8)_""/""_$P(DIP(1),U,9) W X K DIP;C34;Z;""RU SBP_""/""_RU DBP""~"
^DIPT(975,"F",12)="X DXS(3,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C49;Z;""$S(#24'="""":ONSET CP SBP_""/""_ONSET CP DBP,1:"""")""~"
^DIPT(975,"F",13)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,2)_""/""_$P(DIP(1),U,3) W X K DIP;C64;Z;""PK SBP_""/""_PK DBP""~""ST/SLP"";C7~"
^DIPT(975,"F",14)="S DIP(1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,10)_""/""_$P(DIP(1),U,11) W X K DIP;C19;Z;""RS ST_""/""_#18""~"
^DIPT(975,"F",15)="S DIP(2)=$S($D(^MCAR(691.7,D0,3)):^(3),1:""""),DIP(1)=$S($D(^(7)):^(7),1:"""") S X=$P(DIP(1),U,3)_""/""_$P(DIP(2),U,12) W X K DIP;C34;Z;""RU ST_""/""_#19""~"
^DIPT(975,"F",16)="X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C49;Z;""$S(#26'="""":ONSET CP ST_""/""_#27,1:"""")""~"
^DIPT(975,"F",17)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,7)_""/""_$P(DIP(1),U,8) W X K DIP;C64;Z;""PK ST_""/""_#40""~""RPP/1000"";C7~"
^DIPT(975,"F",18)="X ""N I,Y ""_$P(^DD(691.7,12,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C19;Z;""$J(#12,6,2)""~"
^DIPT(975,"F",19)="X ""N I,Y ""_$P(^DD(691.7,16,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C34;Z;""$J(#16,6,2)""~"
^DIPT(975,"F",20)="X ""N I,Y ""_$P(^DD(691.7,28,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C49;Z;""$J(#28,6,2)""~"
^DIPT(975,"F",21)="X ""N I,Y ""_$P(^DD(691.7,42,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C64;Z;""$J(#42,6,2)""~"
^DIPT(975,"F",22)="""MIN:SEC"";C7~X DXS(5,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C50;Z;""$S(#20'="""":CP TME MIN_"":""_CP TME SEC,1:"""")""~"
^DIPT(975,"F",23)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,9)_"":""_$P(DIP(1),U,10) W X K DIP;C65;Z;""EX TIME MIN_"":""_EX TIME SEC""~"
^DIPT(975,"F",24)="""----------------------------------------------------------------------"";C5;S~"
^DIPT(975,"F",25)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=""PEAK MPH: ""_$P(DIP(1),U,4) W X K DIP;C5;S;Z;""""PEAK MPH: ""_#32""~"
^DIPT(975,"F",26)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X="" % GRADE: ""_$P(DIP(1),U,5) W X K DIP;Z;"""" % GRADE: ""_#33""~"
^DIPT(975,"F",27)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X="" METS: ""_$P(DIP(1),U,6) W X K DIP;Z;"""" METS: ""_#34""~"
^DIPT(975,"F",28)="X ""N I,Y ""_$P(^DD(691.7,48,0),U,5,99) S DIP(1)=X S X="" % TARGET HR: ""_DIP(1) W X K DIP;Z;"""" % TARGET HR: ""_% TARGET HR""~"
^DIPT(975,"F",29)="X DXS(6,9) W X K DIP;C5;S;Z;""""REASON FOR STOPPING: ""_REASON FOR STOPPING""~"
^DIPT(975,"F",30)="S DIP(1)=$S($D(^MCAR(691.7,D0,5)):^(5),1:"""") S X=""TIME ST SEGMENT RETURN TO BASELINE: ""_$P(DIP(1),U,7) W X K DIP;S;C5;Z;""""TIME ST SEGMENT RETURN TO BASELINE: ""_#54""~"
^DIPT(975,"F",31)="""SIGNIFICANT ARRHYTHMIAS:"";C5;S~51~""BLOOD PRESSURE CHANGES:"";C5;S~53.5~""OTHER EKG CHANGES:"";C5;S~52,.01~""INTERPRETATION:"";C5;S~55~""COMMENTS:"";C5;S~"
^DIPT(975,"F",32)="56,.01;S1;W75~""HEART MEDS:"";C5;S~4,.01~4,"" "";X~4,1;X~4,"" "";X~4,2;X~""COMPLICATIONS:"";C5;S~70,.01;C20;X~""EKG TECH:"";C5;S~57~""ATTN PHYS:"";C5;S~58~"
^DIPT(975,"H")="@"
^DIPT(975,"IOM")="80"
^DIPT(975,"LAST")="1"
^DIPT(975,"ROU")="^MCAROT"
^DIPT(975,"ROUOLD")="MCAROT"
^DIPT(975,"SUB")="1"
^DIPT(976,0)="MCAREKG1^3010307.0912^^691.5^^^3010307"
^DIPT(976,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^MCAR(690,+D0,0)) D0=-1 S I(100,0)=$G(D0),DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:"""")"
^DIPT(976,"DXS",1,9.3)="X DXS(1,9.2) S DIP(102)=X,D0=$P(DIP(101),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(202)=$C(59)_$P($G(^DD(2,.02,0)),U,3),DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(976,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(691.5,D0,4)):^(4),1:"""") S X='$P(DIP(1),U,1),DIP(2)=X S X="""",DIP(3)=X S X='$P(DIP(1),U,2),DIP(4)=X S X="""",DIP(5)=X S X=1,DIP(6)=X S X=$P(DIP(1),U,2)"
^DIPT(976,"DXS",3,"C")="CONFIRMED"
^DIPT(976,"DXS",3,"U")="UNCONFIRMED"
^DIPT(976,"F",1)=""
^DIPT(976,"F",2)="S DIP(1)=$S($D(^MCAR(691.5,D0,8)):^(8),1:"""") S X=""WARD/CLINIC: ""_$S('$D(^SC(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""WARD/CLINIC: ""_#18""~"
^DIPT(976,"F",3)="""AGE: "";C5~W $$RPTAGE^MCARUTL4(691.5,D0);X;Z;""W $$RPTAGE^MCARUTL4(691.5,D0)""~""SEX:"";C45~"
^DIPT(976,"F",4)="X DXS(1,9.3) S X=$P($P(DIP(202),$C(59)_$P(DIP(201),U,2)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;Z;""1:.01:SEX""~"
^DIPT(976,"F",5)="S DIP(1)=$S($D(^MCAR(691.5,D0,4)):^(4),1:"""") S X=""HT IN: ""_$P(DIP(1),U,4) W X K DIP;C5;Z;""""HT IN: ""_#.08""~"
^DIPT(976,"F",6)="S DIP(1)=$S($D(^MCAR(691.5,D0,4)):^(4),1:"""") S X=""WT LBS: ""_$P(DIP(1),U,3) W X K DIP;C45;Z;""""WT LBS: ""_#.07""~""BLOOD PRESSURE: "";C5~"
^DIPT(976,"F",7)="X DXS(2,9.2) S X=X_""/""_$P(DIP(1),U,1),X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):X) W X K DIP;X;Z;""$S('#15:"""",'#16:"""",1:#16_""/""_#15)""~"
^DIPT(976,"F",8)="S DIP(2)=$C(59)_$P($G(^DD(691.5,2,0)),U,3),DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""TYPE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1) W X K DIP;C45;Z;""""TYPE: ""_TYPE OF EKG""~"
^DIPT(976,"F",9)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""VENT RATE: ""_$P(DIP(1),U,4) W X K DIP;S;C10;Z;""""VENT RATE: ""_VENT. RATE""~"
^DIPT(976,"F",10)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""PR INTERVAL: ""_$P(DIP(1),U,5) W X K DIP;C32;Z;""""PR INTERVAL: ""_PR INTERVAL""~"
^DIPT(976,"F",11)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""QRS DURATION: ""_$P(DIP(1),U,6) W X K DIP;C55;Z;""""QRS DURATION: ""_QRS DURATION""~"
^DIPT(976,"F",12)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""QT: ""_$P(DIP(1),U,7) W X K DIP;C10;Z;""""QT: ""_QT""~"
^DIPT(976,"F",13)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""QTC: ""_$P(DIP(1),U,8) W X K DIP;C32;Z;""""QTC: ""_QTC""~"
^DIPT(976,"F",14)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""P AXIS: ""_$P(DIP(1),U,9) W X K DIP;C10;Z;""""P AXIS: ""_P AXIS""~"
^DIPT(976,"F",15)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""R AXIS: ""_$P(DIP(1),U,10) W X K DIP;C32;Z;""""R AXIS: ""_R AXIS""~"
^DIPT(976,"F",16)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""T AXIS: ""_$P(DIP(1),U,11) W X K DIP;C55;Z;""""T AXIS: ""_T AXIS""~""INTERPRETATION: "";S;C5~14,.01;C22~"
^DIPT(976,"F",17)="14.1,.01;C22~14.2,.01;C22~""INSTRUMENT DX: "";C5;S~20,.01;C21~""CONFIRMATION STATUS: "";C5;S~11;X~""COMPARISON: "";C5;S~13;X;W60~""COMMENTS: "";C5;S~17,.01;X;W65~"
^DIPT(976,"F",18)="""HEART MEDS:"";C5;S~.06,.01;C18~.06,S DIP(1)=$S($D(^MCAR(691.5,D0,2,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,2) W X K DIP;X;Z;"""" ""_#1""~"
^DIPT(976,"F",19)=".06,S DIP(1)=$S($D(^MCAR(691.5,D0,2,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,3) W X K DIP;X;Z;"""" ""_#2""~""INTERPRETED BY: "";C5;S~12;X~"
^DIPT(976,"H")="@"
^DIPT(976,"IOM")="80"
^DIPT(976,"LAST")=""
^DIPT(976,"ROU")="^MCAROK"
^DIPT(976,"ROUOLD")="MCAROK"
^DIPT(976,"SUB")="1"
^DIPT(977,0)="MCAREP1^2910913.1134^^691.8^^^^"
^DIPT(977,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(691.8,D0,8)):^(8),1:"""") S X=$P(DIP(1),U,1)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""EJECTION FRACTION: ""_$P(DIP(1),U,1)"
^DIPT(977,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.8,9,0)):$P(^(0),U,3),1:""""),DIP(6)=$C(59)_$S($D(^DD(691.8,9,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,8)):^(8),1:"""")"
^DIPT(977,"DXS",2,9.3)="X DXS(2,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)="""",DIP(3)=X S X="""",DIP(4)=X S X=1,DIP(5)=X S X=""METHOD: ""_$P($P(DIP(6),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(977,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(691.804,.01,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,9,D1,0)):^(0),1:"""") S X=""HEART BLOCK: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(977,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(691.811,.01,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,10,D1,0)):^(0),1:"""") S X=""CAROTID STIMULATION: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(977,"DXS",5,9.2)="S DIP(1)=$S($D(^MCAR(691.8,D0,10,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""LONGEST PAUSE: """
^DIPT(977,"DXS",6,9.2)="S I(0)=""^MCAR(691.8,"",J(0)=691.8 F D=0:0 S (D,D1)=$N(^MCAR(691.8,D0,11,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1),Y=$F(^DD(691.812,.01,0),X_$C(58)) S:Y X=$P($E(^(0),Y,999),$C(59),1) X DICMX Q:'$D(D) S D=D1"
^DIPT(977,"DXS",6,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(6,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(691.8,D0,11,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(977,"DXS",6,9.4)="X DXS(6,9.3) S DIP(103)=$C(59)_$S($D(^DD(691.812,.01,0)):$P(^(0),U,3),1:""""),DIP(102)=$S($D(^MCAR(691.8,D0,11,D1,0)):^(0),1:"""")"
^DIPT(977,"DXS",7,"D")="PATIENT DEATH"
^DIPT(977,"DXS",7,"H")="REHOSPITALIZATION"
^DIPT(977,"DXS",7,"R")="RECURRENT VT/VF"
^DIPT(977,"DXS",7,"S")="SIDE EFFECTS FROM DRUGS"
^DIPT(977,"F",1)="""WARD/CLINIC: "";C45~18;X;L20~""ARRHYTHMIA DIAGNOSIS:"";C5;S;~5,.01;C27~""CARDIAC DIAGNOSIS:"";C5~6;C25~""REASON FOR STUDY:"";C5~4;W55;C25~""SYMPTOMS:"";C5~"
^DIPT(977,"F",2)=".04,.01;C16;W60~""RISK FACTORS:"";C5~.05,.01;C19~""HX:"";C5;S~7,.01~"
^DIPT(977,"F",3)="X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C5;S;Z;""$S(#8="""":"""",1:""EJECTION FRACTION: ""_#8)""~"
^DIPT(977,"F",4)="X DXS(2,9.3) S X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;C45;Z;""$S(#9="""":"""",1:""METHOD: ""_#9)""~10,X DXS(3,9) W X K DIP;C5;S;Z;""""HEART BLOCK: ""_#.01""~"
^DIPT(977,"F",5)="10,""RHYTHM:"";C8~10,1;C17;W60~10,""RESPONSE TO ATROPINE:"";C8~10,2;C31;W47~10,""RESPONSE TO EXERCISE:"";C8~10,3;C31;W47~10,""RESPONSE TO CAROTID MASSAGE:"";C8~"
^DIPT(977,"F",6)="10,4;C38;W40~11,X DXS(4,9) W X K DIP;C5;Z;""""CAROTID STIMULATION: ""_#.01""~"
^DIPT(977,"F",7)="11,X DXS(5,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C8;Z;""$S(#1="""":"""",1:""LONGEST PAUSE: "")""~11,1;X~""HEART MEDICATIONS:"";C5;S~.9,.01;C8~"
^DIPT(977,"F",8)=".9,S DIP(1)=$S($D(^MCAR(691.8,D0,3,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,2) W X K DIP;X;Z;"""" ""_DOSE""~"
^DIPT(977,"F",9)=".9,S DIP(1)=$S($D(^MCAR(691.8,D0,3,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,3) W X K DIP;X;Z;"""" ""_FREQUENCY""~""SVT TYPE: "";C5;S~"
^DIPT(977,"F",10)="X DXS(6,9.4) S X=$P($P(DIP(103),$C(59)_$P(DIP(102),U,1)_"":"",2),$C(59),1) S D0=I(0,0) S D1=I(1,0) W X K DIP;m;Z;""SVT-TYPE:SVT-TYPE""~"
^DIPT(977,"F",11)="""INTERPRETATION:"";C5;S~13,.01;C22;W~""COMMENTS: "";C5;S~14,.01;W60;X~""FOLLOW UP: "";C5;S~15,.01;C17~""CARDIOLOGY STAFF: "";C5;S2~16~"
^DIPT(977,"F",12)="""CARDIOLOGY STAFF (2nd): "";C5~19~""CARDIOLOGY FELLOW: "";C5;S~17~""CARDIOLOGY FELLOW (2ND) "";C5~20~"
^DIPT(977,"H")="@"
^DIPT(977,"IOM")="80"
^DIPT(977,"LAST")="1"
^DIPT(977,"ROU")="^MCAROEP"
^DIPT(977,"ROUOLD")="MCAROEP"
^DIPT(977,"SUB")="1"
^DIPT(978,0)="MCAREP3^2960513.1007^^692^^^2960513"
^DIPT(978,"DXS",1,9.2)="S DIP(2)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""VENTRICULAR STUDY DATE: "",DIP(1)=X S X=$P(DIP(2),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(978,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(978,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""INTERVENTION: ""_$S('$D(^MCAR(693.6,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(978,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(692,5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""PACING SITE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(978,"DXS",4,9)="X DXS(4,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(978,"DXS",4,9.2)="S X=""1 VES"""
^DIPT(978,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(978,"DXS",5,9.2)="S X=""2 VES"""
^DIPT(978,"DXS",6,9)="X DXS(6,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(978,"DXS",6,9.2)="S X=""3 VES"""
^DIPT(978,"DXS",7,9)="X DXS(7,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(978,"DXS",7,9.2)="S X=""ELECTROCARDIOGRAM"""
^DIPT(978,"DXS",8,9.2)="S DIP(2)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""DATE: "",DIP(1)=X S X=$P(DIP(2),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(978,"DXS",9,9.2)="S DIP(2)=$S($D(^MCAR(692,D0,4,D1,0)):^(0),1:"""") S X=""DISCHARGE DATE: "",DIP(1)=X S X=$P(DIP(2),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(978,"DXS",10,"L")="LBBB"
^DIPT(978,"DXS",10,"N")="NON DESC."
^DIPT(978,"DXS",10,"R")="RBBB"
^DIPT(978,"DXS",10,"V")="VARIABLE"
^DIPT(978,"DXS",11,"C")="EXTERNAL CARDIOVERSION"
^DIPT(978,"DXS",11,"C+P")="CARDIOVERSION+PACE OUT"
^DIPT(978,"DXS",11,"C+S")="CARDIOVERSION+SELF TERM"
^DIPT(978,"DXS",11,"IC")="INTERNAL CARDIOVERSION"
^DIPT(978,"DXS",11,"P")="PACED OUT"
^DIPT(978,"DXS",11,"P+S")="PACE OUT+SELF TERM"
^DIPT(978,"DXS",11,"S")="SELF TERMINATION"
^DIPT(978,"DXS",12,"N")="NO V-T INDUCED"
^DIPT(978,"DXS",12,"N-S")="NON-SUS. V.T. INDUCED"
^DIPT(978,"DXS",12,"Y")="SUS. V-T INDUCED"
^DIPT(978,"F",1)="""-------------------------------VENTRICULAR STUDY----------------------------"";S~"
^DIPT(978,"F",2)="X DXS(1,9.2) S X=X_Y W X K DIP;S;Z;""""VENTRICULAR STUDY DATE: ""_NUMDATE(#.01)""~X DXS(2,9) W X K DIP;C5;S;X;Z;""UNDERLINE(""INTERVENTION: ""_#.9)""~"
^DIPT(978,"F",3)="S DIP(1)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""PREMEDICATION: ""_$P(DIP(1),U,4) W X K DIP;C8;Z;""""PREMEDICATION: ""_#1""~"
^DIPT(978,"F",4)="S DIP(1)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""ENTRY SITE: ""_$S('$D(^MCAR(697,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)) W X K DIP;C8;Z;""""ENTRY SITE: ""_#3""~"
^DIPT(978,"F",5)="X DXS(3,9) W X K DIP;C43;Z;""""PACING SITE: ""_#5""~"
^DIPT(978,"F",6)="S DIP(1)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""RECORDING SITE SITE: ""_$S('$D(^MCAR(693.5,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)) W X K DIP;C8;Z;""""RECORDING SITE SITE: ""_#4""~"
^DIPT(978,"F",7)="S DIP(1)=$S($D(^MCAR(692,D0,0)):^(0),1:"""") S X=""VENTRICULAR THRESHOLD (mA): ""_$P(DIP(1),U,9) W X K DIP;C8;Z;""""VENTRICULAR THRESHOLD (mA): ""_#6""~"
^DIPT(978,"F",8)="X DXS(4,9) W X K DIP;C44;X;Z;""UNDERLINE(""1 VES"")""~X DXS(5,9) W X K DIP;C55;X;Z;""UNDERLINE(""2 VES"")""~X DXS(6,9) W X K DIP;C66;X;Z;""UNDERLINE(""3 VES"")""~"
^DIPT(978,"F",9)="7,S DIP(1)=$S($D(^MCAR(692,D0,1,D1,0)):^(0),1:"""") S X=""DRIVE CYCLE LENGTH: ""_$P(DIP(1),U,1) W X K DIP;C10;Z;""""DRIVE CYCLE LENGTH: ""_#.01""~"
^DIPT(978,"F",10)="7,""REPETITIVE RESPONSES"";C15~7,1;C45~7,3;C56~7,5;C67~7,""VENT. EFF. REFR. PERIOD"";C15~7,2;C44~7,4;C55~7,6;C66~"
^DIPT(978,"F",11)="S DIP(1)=$S($D(^MCAR(692,D0,2)):^(2),1:"""") S X=""BURST PACING (# REP. RESPONSES): ""_$P(DIP(1),U,1) W X K DIP;C8;Z;""""BURST PACING (# REP. RESPONSES): ""_#8""~"
^DIPT(978,"F",12)="S DIP(1)=$S($D(^MCAR(692,D0,2)):^(2),1:"""") S X=""SHORTEST BURST CL: ""_$P(DIP(1),U,2) W X K DIP;C45;Z;""""SHORTEST BURST CL: ""_#9""~"
^DIPT(978,"F",13)="""INITIATION SEQUENCE OF V-T: "";C8~11;W40;X~"
^DIPT(978,"F",14)="S DIP(1)=$S($D(^MCAR(692,D0,2)):^(2),1:"""") S X=""DURATION OF V-T/V-F: ""_$P(DIP(1),U,5) W X K DIP;C8;Z;""""DURATION OF V-T/V-F: ""_#12""~"
^DIPT(978,"F",15)="""V-T CYCLE LENGTH: "";C8~14;X~"" MORPHOLOGY: ""~15~S DIP(1)=$S($D(^MCAR(692,D0,2)):^(2),1:"""") S X=""AXIS: ""_$P(DIP(1),U,6) W X K DIP;Z;""""AXIS: ""_#13""~"
^DIPT(978,"F",16)="""TERMINATION OF VT: "";C8~16;X~"
^DIPT(978,"F",17)="S DIP(1)=$S($D(^MCAR(692,D0,2)):^(2),1:"""") S X=""PACE OUT CYCLE LENGTH OF V-T: ""_$P(DIP(1),U,10) W X K DIP;C8;Z;""""PACE OUT CYCLE LENGTH OF V-T: ""_#17""~"
^DIPT(978,"F",18)="""CARDIOVERSION (J): "";C8~18;W50~""COMMENTS: "";C8~10;C19~20,.01;C19;W60~2,X DXS(7,9) W X K DIP;C28;S;X;Z;""UNDERLINE(""ELECTROCARDIOGRAM"")""~"
^DIPT(978,"F",19)="2,X DXS(8,9.2) S X=X_Y W X K DIP;C8;Z;""""DATE: ""_NUMDATE(DATE)""~"
^DIPT(978,"F",20)="2,S DIP(1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""ATRIAL CYCLE LENGTH (MSEC): ""_$P(DIP(1),U,3) W X K DIP;C10;Z;""""ATRIAL CYCLE LENGTH (MSEC): ""_ATRIAL CYCLE LENGTH""~"
^DIPT(978,"F",21)="2,S DIP(1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""VENT CYCLE LENGTH (MSEC): ""_$P(DIP(1),U,4) W X K DIP;C45;Z;""""VENT CYCLE LENGTH (MSEC): ""_#3""~"
^DIPT(978,"F",22)="2,S DIP(1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""QRS DURATION: ""_$P(DIP(1),U,5) W X K DIP;C10;Z;""""QRS DURATION: ""_#4""~"
^DIPT(978,"F",23)="2,S DIP(1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""QRS AXIS: ""_$P(DIP(1),U,6) W X K DIP;C45;Z;""""QRS AXIS: ""_#5""~"
^DIPT(978,"F",24)="2,S DIP(1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""QT: ""_$P(DIP(1),U,8) W X K DIP;C10;Z;""""QT: ""_QT""~"
^DIPT(978,"F",25)="2,X $P(^DD(692.02,8,0),U,5,99) S DIP(2)=X S X=""QTC: "",DIP(1)=X S X=DIP(2),DIP(3)=X S X=3,DIP(4)=X S X=0,X=$J(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C45;Z;""""QTC: ""_$J(QTC,3,0)""~"
^DIPT(978,"F",26)="2,S DIP(1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=""P-R DURATION: ""_$P(DIP(1),U,7) W X K DIP;C10;Z;""""P-R DURATION: ""_#6""~2,""RHYTHM: "";C10~2,1,.01~"
^DIPT(978,"F",27)="2,""INTERPRETATION: "";C10~2,9;C28;W50~19,X DXS(9,9.2) S X=X_Y W X K DIP;C5;S;Z;""""DISCHARGE DATE: ""_NUMDATE(DISCHARGE DATE)""~"
^DIPT(978,"F",28)="19,""MEDICATIONS ON DISCHARGE:"";C8~19,1;W42;C35~"
^DIPT(978,"H")="@"
^DIPT(978,"IOM")="80"
^DIPT(978,"LAST")="1"
^DIPT(978,"ROU")="^MCAROV"
^DIPT(978,"ROUOLD")="MCAROV"
^DIPT(978,"SUB")="1"
^DIPT(979,0)="MCARHOLT1^2980506.0829^^691.6^^^2980506"
^DIPT(979,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,24,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X=""TAPE QUALITY: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(979,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X='$P(DIP(1),U,10),DIP(2)=X S X="""",DIP(3)=X S X='$P(DIP(1),U,3),DIP(4)=X S X="""",DIP(5)=X S X=1,DIP(6)=X"
^DIPT(979,"DXS",3,9.2)="S DIP(1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X='$P(DIP(1),U,22),DIP(2)=X S X="""",DIP(3)=X S X='$P(DIP(1),U,3),DIP(4)=X S X="""",DIP(5)=X S X=1,DIP(6)=X"
^DIPT(979,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,65,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,9)):^(9),1:"""") S X=""ST LEVEL: ""_$P(DIP(1),U,2)_"" MM ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(979,"DXS",5,1)="SYNCOPE"
^DIPT(979,"DXS",5,2)="HX SUDDEN DEATH OR SUSTAINED V-T"
^DIPT(979,"DXS",5,3)="DOCUMENTED V ECTOPY"
^DIPT(979,"DXS",5,4)="DOCUMENTED SVT"
^DIPT(979,"DXS",5,5)="WPW"
^DIPT(979,"DXS",5,6)="PACEMAKER"
^DIPT(979,"DXS",5,7)="EFFICACY OF THERAPY"
^DIPT(979,"DXS",5,8)="LIGHTHEADEDNESS"
^DIPT(979,"DXS",5,9)="RECENT INFARCT"
^DIPT(979,"F",1)=""
^DIPT(979,"F",2)="S DIP(1)=$S($D(^MCAR(691.6,D0,0)):^(0),1:"""") S X=""WARD/CLINIC: ""_$S('$D(^SC(+$P(DIP(1),U,18),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;Z;""""WARD/CLINIC: ""_#17""~"
^DIPT(979,"F",3)="""REQUESTED BY: "";C5;S~4;X~""REASON FOR STUDY:"";C5;S~5.5,.01;C25~""REVIEWED BY: "";C5;S~14;X~X DXS(1,9) W X K DIP;C5;S;Z;""""TAPE QUALITY: ""_TAPE QUALITY""~"
^DIPT(979,"F",4)="S DIP(1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X=""HOURS: ""_$P(DIP(1),U,2)_"" TOTAL, ""_$P(DIP(1),U,3)_"" READABLE"" W X K DIP;C45;Z;""""HOURS: ""_#25_"" TOTAL, ""_#26_"" READABLE""""~"
^DIPT(979,"F",5)="""MALFUNCTIONS:"";C5;S~23,.01;W60~""---------------------------- RESULTS ----------------------------"";S2;C5~""HEART RATE"";C30;S~""TIME"";C58~"
^DIPT(979,"F",6)="""----------"";C30~""------"";C57~""AVERAGE"";C10~27;C33~""MAXIMUM"";C10~28;C33~29;C58~""MINIMUM"";C10~30;C33~31;C58~""VENTRICULAR"";C14;S~""ATRIAL"";C54~"
^DIPT(979,"F",7)="""-------------------------"";C8~""-------------------------"";C45~32;R8;C4;X~""TOTAL BEATS"";L25;C13~45;R8;C40~""TOTAL BEATS"";L25;C49~33;R8;C4~"
^DIPT(979,"F",8)="""TOTAL VPBS,"";L11;C13~34;R2;C25~""% OF BTS""~46;R8;C40~""TOTAL ECTOPICS,"";L15;C49~47;R2;C65~""% OF BTS""~"
^DIPT(979,"F",9)="X DXS(2,9.2) S X=$P(DIP(1),U,10),X=$S($P(DIP(1),U,3):X\$P(DIP(1),U,3),1:""*******""),X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):X) W X K DIP;R8;C4;Z;""$S('#33:"""",'#26:"""",1:#33\#26)""~"
^DIPT(979,"F",10)="""AVE/HOUR"";L25;C13~"
^DIPT(979,"F",11)="X DXS(3,9.2) S X=$P(DIP(1),U,22),X=$S($P(DIP(1),U,3):X\$P(DIP(1),U,3),1:""*******""),X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):X) W X K DIP;R8;C40;Z;""$S('#46:"""",'#26:"""",1:#46\#26)""~"
^DIPT(979,"F",12)="""AVE/HOUR"";L25;C49~36;R8;C4~""MAX/HOUR"";L25;C13~49;R8;C40~""MAX/HOUR"";L25;C49~37;R8;C4~""ISOLATED"";L25;C13~50;R8;C40~""ISOLATED"";L25;C49~38;R8;C4~"
^DIPT(979,"F",13)="""BIGEMINY"";L25;C13~51;R8;C40~""BLOCKED APCS"";L25;C49~39;R8;C4~""COUPLETS"";L25;C13~50.5;R8;C40~""COUPLETS"";L25;C49~41;R8;C4~""BEATS IN RUNS"";L25;C13~"
^DIPT(979,"F",14)="52;R8;C40~""RUNS SV-T"";L25;C49~42;R8;C4~""BEATS IN LONGEST RUN"";L25;C13~53;R8;C40~""BEATS IN RUNS"";L25;C49~43;R8;C4~""BEATS FASTEST RUN AT"";L20;C13~"
^DIPT(979,"F",15)="44;R3;C34~""BPM"";L3;C38~54;R7;C41~""BEATS IN LONGEST RUN"";L25;C49~55;R8;C40~""BTS FASTEST RUN AT"";L18;C49~56;R3;C68~""BPM"";L3;C72~"
^DIPT(979,"F",16)="X DXS(4,9) W X K DIP;C8;S1;Z;""""ST LEVEL: ""_#64_"" MM ""_#65""~"
^DIPT(979,"H")="@"
^DIPT(979,"IOM")="80"
^DIPT(979,"LAST")=""
^DIPT(979,"ROU")="^MCAROH1"
^DIPT(979,"ROUOLD")="MCAROH1"
^DIPT(979,"SUB")="1"
^DIPT(980,0)="MCARHOLT2^2960513.095^^691.6^^^2960513"
^DIPT(980,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,57,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X=""HEART BLOCK: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(980,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,58,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X=""PAUSES SINUS:""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(980,"DXS",3,9)="X DXS(3,9.2) S X=X[""Y"",DIP(3)=X S X=""LONGEST PAUSE: ""_$P(DIP(1),U,9)_"" SEC"",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X)"
^DIPT(980,"DXS",3,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.6,58,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(980,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,60,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X=""PAUSES VENTRICULAR: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(980,"DXS",5,9)="X DXS(5,9.2) S X=X[""Y"",DIP(3)=X S X=""LONGEST PAUSE: ""_$P(DIP(1),U,11)_"" SEC"",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X)"
^DIPT(980,"DXS",5,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.6,60,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(980,"F",1)="""------------------------------ SUMMARY -------------------------------"";C5;S~X DXS(1,9) W X K DIP;C5;S;Z;""""HEART BLOCK: ""_HEART BLOCK""~"
^DIPT(980,"F",2)="X DXS(2,9) W X K DIP;C5;S;Z;""""PAUSES SINUS:""_#58""~X DXS(3,9) W X K DIP;C45;Z;""$S(#58[""Y"":""LONGEST PAUSE: ""_#59_"" SEC"",1:"""")""~"
^DIPT(980,"F",3)="X DXS(4,9) W X K DIP;C5;Z;""""PAUSES VENTRICULAR: ""_PAUSES (VENT)""~"
^DIPT(980,"F",4)="X DXS(5,9) W X K DIP;C45;Z;""$S(#60[""Y"":""LONGEST PAUSE: ""_LONGEST PAUSE (VENT)_"" SEC"",1:"""")""~""HEART MEDS:"";C5;S~18,.01~"
^DIPT(980,"F",5)="18,S DIP(1)=$S($D(^MCAR(691.6,D0,1,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,2) W X K DIP;X;Z;"""" ""_#1""~"
^DIPT(980,"F",6)="18,S DIP(1)=$S($D(^MCAR(691.6,D0,1,D1,0)):^(0),1:"""") S X="" ""_$P(DIP(1),U,3) W X K DIP;X;Z;"""" ""_#2""~""INTERPRETATION:"";C5;S~62,.01;W55;X~"
^DIPT(980,"F",7)="""COMMENTS:"";C5;S~63,.01;S1;W75~"
^DIPT(980,"H")="@"
^DIPT(980,"IOM")="80"
^DIPT(980,"LAST")=""
^DIPT(980,"ROU")="^MCAROH2"
^DIPT(980,"ROUOLD")="MCAROH2"
^DIPT(980,"SUB")="1"
^DIPT(981,0)="MCARGIRCLI^2960513.1052^^699^^^2960612"
^DIPT(981,"DXS",1,9)="X DXS(1,9.2) S DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(DIP(201),U,1) S D0=I(0,0)"
^DIPT(981,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(981,"DXS",2,1)="VISIT FOLLOW-UP"
^DIPT(981,"DXS",2,2)="ENDOSCOPY FOLLOW-UP"
^DIPT(981,"DXS",2,3)="TEST (LAB OR XRAY)"
^DIPT(981,"DXS",2,4)="CONSULT OTHER SPECIALIST"
^DIPT(981,"DXS",2,5)="RETURN TO REFERRING MD"
^DIPT(981,"DXS",2,6)="ADMIT TO HOSPITAL"
^DIPT(981,"DXS",2,7)="DISCHARGED TO HOME"
^DIPT(981,"DXS",2,8)="DISCHARGED TO WARD"
^DIPT(981,"DXS",2,9)="OTHER"
^DIPT(981,"F",1)="""Proc: "";S1~1;X~""Patient: "";C20~.02;C30;L22;X~""PHONE: "";C60~X DXS(1,9) W X K DIP;X;Z;"".02:.01:.131""~39,""DISPOSITION: "";C1~39,.01;X~"
^DIPT(981,"F",2)="39,""Follow-up Date: "";C45~39,1;X~39,""REASON: "";C1~39,2;X~39,F I=1:1:80 W ""-"";C1;X;Z;""F I=1:1:80 W ""-""""~"
^DIPT(981,"H")="RECALL LIST"
^DIPT(981,"IOM")="80"
^DIPT(981,"LAST")=""
^DIPT(981,"ROU")="^MCAROGR"
^DIPT(981,"ROUOLD")="MCAROGR"
^DIPT(982,0)="MCARGICON^2960513.1104^^699^^^2960513"
^DIPT(982,"F",1)="""Consulting Doctor: "";C1;S~6~""Consultation Type: "";C1;S~31.5~""Subjective:"";C1;S2~32,.01;C14;W60~""Objective:"";C1;S2~33,.01;C14;W60~"
^DIPT(982,"F",2)="""Assessment:"";C1;S2~34,.01;C14;W60~""Planned:"";C1;S2~35,.01;C14;W60~""Indication Comment: "";C1;S2~3;C25;X;W60~D DISP^MCMAG;Z;""D DISP^MCMAG""~"
^DIPT(982,"H")="@"
^DIPT(982,"IOM")="80"
^DIPT(982,"LAST")=""
^DIPT(982,"ROU")="^MCAROGI"
^DIPT(982,"ROUOLD")="MCAROGI"
^DIPT(982,"SUB")="1"
^DIPT(983,0)="MCARGINON^2960513.1045^^699^^^2960513"
^DIPT(983,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(983,"DXS",1,9.2)="S X=""Non-Endoscopic Procedure(s):"""
^DIPT(983,"DXS",2,9)="X DXS(2,9.3) S DIP(102)=$S($D(^MCAR(699,D0,18,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(699.88,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(983,"DXS",2,9.2)="S I(0)=""^MCAR(699,"",J(0)=699 F D=0:0 S (D,D1)=$O(^MCAR(699,D0,18,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(699.88,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(983,"DXS",2,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(2,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(699,D0,18,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(983,"F",1)="""Physician: "";C1;S~6~S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(983,"F",2)="X DXS(1,9) W X K DIP;C1;S2;X;Z;""UNDERLINE(""Non-Endoscopic Procedure(s):"")""~"
^DIPT(983,"F",3)="X DXS(2,9) W X K DIP;C31;X;m;Z;""NON-ENDOSCOPIC PROCEDURE:NON-ENDOSCOPIC PROCEDURE""~""Subjective:"";C1;S2~32,.01;C14;W60~""Objective:"";C1;S2~33,.01;C14;W60~"
^DIPT(983,"F",4)="""Assessment:"";C1;S2~34,.01;C14;W60~""Planned:"";C1;S2~35,.01;C14;W60~""Indication Comment: "";C1;S2~3;C25;X~"
^DIPT(983,"F",5)="S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(983,"H")="@"
^DIPT(983,"IOM")="80"
^DIPT(983,"LAST")=""
^DIPT(983,"ROU")="^MCAROGN"
^DIPT(983,"ROUOLD")="MCAROGN"
^DIPT(983,"SUB")="1"
^DIPT(984,0)="MCAROG^2960513.1054^^699^^^2960513"
^DIPT(984,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(984,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(984,"DXS",2,9.2)="S X=""HISTORY"""
^DIPT(984,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,1,0)):$P(^(0),U,3),1:"""")"
^DIPT(984,"DXS",4,9)="X DXS(4,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,3)_"":"",2),$C(59),1) S D0=I(0,0)"
^DIPT(984,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,3,0)):$P(^(0),U,3),1:"""")"
^DIPT(984,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,4,0)):$P(^(0),U,3),1:"""")"
^DIPT(984,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,5,0)):$P(^(0),U,3),1:"""")"
^DIPT(984,"DXS",7,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""")"
^DIPT(984,"DXS",8,9)="X DXS(8,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(984,"DXS",8,9.2)="S X=""INDICATION FOR PROCEDURE"""
^DIPT(984,"DXS",9,9)="X DXS(9,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(984,"DXS",9,9.2)="S X=""PROCEDURE AND PRERARATION"""
^DIPT(984,"DXS",10,1)="ELECTIVE"
^DIPT(984,"DXS",10,2)="URGENT"
^DIPT(984,"DXS",10,3)="EMERGENCY"
^DIPT(984,"DXS",11,"IM")="INTRAMUSCULAR"
^DIPT(984,"DXS",11,"IV")="INTRAVENOUS"
^DIPT(984,"DXS",11,"O")="ORAL"
^DIPT(984,"DXS",11,"PV")="PARAVARICEAL"
^DIPT(984,"DXS",11,"SM")="SUBMUCOSAL"
^DIPT(984,"DXS",11,"SQ")="SUBCUTANEOUS"
^DIPT(984,"DXS",11,"T")="TOPICAL"
^DIPT(984,"DXS",11,"V")="INTRAVARICEAL"
^DIPT(984,"F",1)="""PROCEDURE: "";C2~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;X;Z;""PROCEDURE:PRINT NAME""~""WARD/CLINIC: "";C45~9;X;L20~""Endoscopist: "";C2~"
^DIPT(984,"F",2)="6;C16~""FELLOW: "";C45~200;X~""2ND FELLOW: "";C45~201;X~"
^DIPT(984,"F",3)="S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(984,"F",4)="X DXS(2,9) W X K DIP;C1;X;S;Z;""UNDERLINE(""HISTORY"")""~""Liver Biopsy: "";C3~"
^DIPT(984,"F",5)="X DXS(3,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:LIVER BIOPSY""~"
^DIPT(984,"F",6)="""Bleeding Disorder: "";C45~X DXS(4,9) W X K DIP;X;Z;""MEDICAL PATIENT:HISTORY OF BLEEDING DISORDER""~""Valvular Heart Disease: "";C3~"
^DIPT(984,"F",7)="X DXS(5,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,4)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:VALVULAR HEART DISEASE""~"
^DIPT(984,"F",8)="""Glaucoma: "";C45~"
^DIPT(984,"F",9)="X DXS(6,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,5)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:GLAUCOMA""~"
^DIPT(984,"F",10)="""Allergies:"";C3~-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~-690,2;m;X~"
^DIPT(984,"F",11)="""Comments: "";C3~X DXS(7,9.2) S X=$P(DIP(101),U,6) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:HISTORY COMMENTS""~"
^DIPT(984,"F",12)="X DXS(8,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""INDICATION FOR PROCEDURE"")""~D IND^MCARGS;Z;""D IND^MCARGS""~""COMMENT:"";C3~3;C13;W;X~"
^DIPT(984,"F",13)="X DXS(9,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE AND PRERARATION"")""~""Where Performed: "";C3~8;X~""Start - End: "";C45~"
^DIPT(984,"F",14)="S DIP(1)=$S($D(^MCAR(699,D0,9)):^(9),1:"""") S X=$P(DIP(1),U,1)_"" - ""_$P(DIP(1),U,2) W X K DIP;X;Z;""TIME STARTED_"" - ""_TIME COMPLETED""~""Urgency: "";C3~"
^DIPT(984,"F",15)="12;X~""Instrument:"";S1;C3~4,.01;m;C5~""Insertion Depth: "";C3;S1~24;X~D:MCARGNAM=""COL"" COL^MCARGS;Z;""D:MCARGNAM=""COL"" COL^MCARGS""~"
^DIPT(984,"F",16)="""Medications Used:"";C3;S~5,.01;C22;X~5,"" "";X~"
^DIPT(984,"F",17)="5,S DIP(1)=$S($D(^MCAR(699,D0,8,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3)_"" mg "" W X K DIP;X;Z;""TOTAL DOSE (in mg.)_"" mg """"~5,1;X~"
^DIPT(984,"F",18)="D:MCARGNAM=""LAP"" LAP^MCARGS;Z;""D:MCARGNAM=""LAP"" LAP^MCARGS""~"
^DIPT(984,"H")="@"
^DIPT(984,"IOM")="80"
^DIPT(984,"LAST")="1"
^DIPT(984,"ROU")="^MCAROG"
^DIPT(984,"ROUOLD")="MCAROG"
^DIPT(984,"SUB")="1"
^DIPT(985,0)="MCARHEMD^2960513.101^^694^^^2960513"
^DIPT(985,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(985,"DXS",1,9.2)="S X=""DIFFERENTIAL"""
^DIPT(985,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,10)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=$P(DIP(1),U,10)_"": ""_$P(DIP(1),U,9)"
^DIPT(985,"F",1)="X DXS(1,9) W X K DIP;C29;X;S;Z;""UNDERLINE(""DIFFERENTIAL"")""~"
^DIPT(985,"F",2)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""NO. CELLS COUNTED: ""_$P(DIP(1),U,13) W X K DIP;C8;S;Z;""""NO. CELLS COUNTED: ""_#7""~"
^DIPT(985,"F",3)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""NEUTROPHILS: ""_$P(DIP(1),U,11) W X K DIP;C8;Z;""""NEUTROPHILS: ""_#13""~"
^DIPT(985,"F",4)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""ORTHOCHROMATIC NORMOBLASTS: ""_$P(DIP(1),U,1) W X K DIP;C40;Z;""""ORTHOCHROMATIC NORMOBLASTS: ""_#22""~"
^DIPT(985,"F",5)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""BANDS: ""_$P(DIP(1),U,12) W X K DIP;C8;Z;""""BANDS: ""_BANDS""~"
^DIPT(985,"F",6)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""POLYCHROMATIC NORMOBLASTS: ""_$P(DIP(1),U,2) W X K DIP;C40;Z;""""POLYCHROMATIC NORMOBLASTS: ""_#23""~"
^DIPT(985,"F",7)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""METAMYELOCYTES: ""_$P(DIP(1),U,14) W X K DIP;C8;Z;""""METAMYELOCYTES: ""_#15""~"
^DIPT(985,"F",8)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""BASOPHILIC NORMOBLASTS: ""_$P(DIP(1),U,3) W X K DIP;C40;Z;""""BASOPHILIC NORMOBLASTS: ""_#24""~"
^DIPT(985,"F",9)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""MYELOCYTES: ""_$P(DIP(1),U,15) W X K DIP;C8;Z;""""MYELOCYTES: ""_#16""~"
^DIPT(985,"F",10)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""PRONORMOBLASTS: ""_$P(DIP(1),U,4) W X K DIP;C40;Z;""""PRONORMOBLASTS: ""_#25""~"
^DIPT(985,"F",11)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""PROMYLOCYTES: ""_$P(DIP(1),U,16) W X K DIP;C8;Z;""""PROMYLOCYTES: ""_#17""~"
^DIPT(985,"F",12)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""LYMPHOBLASTS: ""_$P(DIP(1),U,5) W X K DIP;C40;Z;""""LYMPHOBLASTS: ""_#26""~"
^DIPT(985,"F",13)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""MYELOBLASTS: ""_$P(DIP(1),U,17) W X K DIP;C8;Z;""""MYELOBLASTS: ""_#18""~"
^DIPT(985,"F",14)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""PLASMA CELLS: ""_$P(DIP(1),U,6) W X K DIP;C40;Z;""""PLASMA CELLS: ""_#27""~"
^DIPT(985,"F",15)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""EOSINOPHILS: ""_$P(DIP(1),U,18) W X K DIP;C8;Z;""""EOSINOPHILS: ""_#19""~"
^DIPT(985,"F",16)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""MONOCYTES: ""_$P(DIP(1),U,7) W X K DIP;C40;Z;""""MONOCYTES: ""_#28""~"
^DIPT(985,"F",17)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""BASOPHILS: ""_$P(DIP(1),U,19) W X K DIP;C8;Z;""""BASOPHILS: ""_#20""~"
^DIPT(985,"F",18)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""HISTIOCYTES: ""_$P(DIP(1),U,8) W X K DIP;C40;Z;""""HISTIOCYTES: ""_#29""~"
^DIPT(985,"F",19)="S DIP(1)=$S($D(^MCAR(694,D0,4)):^(4),1:"""") S X=""LYMPHOCYTES: ""_$P(DIP(1),U,20) W X K DIP;C8;Z;""""LYMPHOCYTES: ""_#21""~"
^DIPT(985,"F",20)="X DXS(2,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C40;X;Z;""$S(#31="""":"""",1:OTHER CELL TYPE_"": ""_#30)""~"" "";S~"
^DIPT(985,"H")="@"
^DIPT(985,"IOM")="80"
^DIPT(985,"LAST")=""
^DIPT(985,"ROU")="^MCAROHD"
^DIPT(985,"ROUOLD")="MCAROHD"
^DIPT(985,"SUB")="1"
^DIPT(986,0)="MCARHEMB^3010418.1156^^694^^^3010418"
^DIPT(986,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(694,D0,0)):^(0),1:"""") S X=$S('$D(^MCAR(697.2,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))=""BMA"",DIP(2)=X S X=""BONE MARROW ASPIRATE"",DIP(3)=X"
^DIPT(986,"DXS",1,9.3)="X DXS(1,9.2) S X=$S('$D(^MCAR(697.2,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))=""BMB"",DIP(4)=X S X=""BONE MARROW BIOPSY"",DIP(5)=X"
^DIPT(986,"DXS",1,9.4)="X DXS(1,9.3) S X=$S('$D(^MCAR(697.2,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))=""HEM"",DIP(6)=X S X=""HEMATOLOGY"",DIP(7)=X S X=1,DIP(8)=X S X="""""
^DIPT(986,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(694,D0,0)):^(0),1:"""") S X=$S('$D(^MCAR(697,+$P(DIP(1),U,5),0)):"""",1:$P(^(0),U,1))'="""",DIP(2)=X S X="",""_$S('$D(^MCAR(697,+$P(DIP(1),U,5),0)):"""",1:$P(^(0),U,1))"
^DIPT(986,"DXS",3,9)="I $D(^MCAR(694,MCARGDA,10,1,0))!($S('$D(^MCAR(694,MCARGDA,1)):0,$P(^(1),U,2)'="""":1,1:0)) W !!,?4,""PROVISIONAL DIAGNOSIS(ES):"""
^DIPT(986,"F",1)="""WARD/CLINIC: "";C5~3;C18;X~""PROCEDURE: "";C5~"
^DIPT(986,"F",2)="X DXS(1,9.4) S X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):DIP(7),DIP(8):X) W X K DIP;X;Z;""$S(#2=""BMA"":""BONE MARROW ASPIRATE"",#2=""BMB"":""BONE MARROW BIOPSY"",#2=""HEM"":""HEMATOLOGY"",1:"""")""~"
^DIPT(986,"F",3)="X DXS(2,9.2) S DIP(3)=X S X=1,DIP(4)=X S X="""",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(#2.5'="""":"",""_ANATOMIC SITE,1:"""")""~""PERFORMED BY:"";C5;S~"
^DIPT(986,"F",4)="50;C19;X~""DATE PERFORMED:"";C50~"
^DIPT(986,"F",5)="S DIP(1)=$S($D(^MCAR(694,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C66;X;Z;""NUMDATE(DATE PERFORMED)""~"
^DIPT(986,"F",6)="""APPROVED BY:"";C5~51;C19;X~""DATE APPROVED:"";C50~"
^DIPT(986,"F",7)="S DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;X;C66;Z;""NUMDATE(APPROVAL DATE)""~"
^DIPT(986,"F",8)="""DATE OF ORIGINAL CONSULT:"";C40~"
^DIPT(986,"F",9)="S DIP(1)=$S($D(^MCAR(694,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C66;X;Z;""NUMDATE(ORIGINAL CONSULT DATE)""~"
^DIPT(986,"F",10)="""INDICATION(S) FOR PERFORMANCE: "";C5;S~57,.01;C10~58,.01;C7;W70~"
^DIPT(986,"F",11)="X DXS(3,9);Z;""I $D(^MCAR(694,MCARGDA,10,1,0))!($S('$D(^MCAR(694,MCARGDA,1)):0,$P(^(1),U,2)'="""":1,1:0)) W !!,?4,""PROVISIONAL DIAGNOSIS(ES):""""~"
^DIPT(986,"F",12)="38,.01;C10;W70~6.5;C7;W70~"" "";C1;S~"
^DIPT(986,"F",13)="D BMB^MCARHP:$P(^MCAR(697.2,$P(^MCAR(694,D0,0),U,3),0),U)=""BMB"";Z;""D BMB^MCARHP:$P(^MCAR(697.2,$P(^MCAR(694,D0,0),U,3),0),U)=""BMB""""~"
^DIPT(986,"F",14)="""PERIPHERAL BLOOD SMEAR:"";C5;X~56;C30;X;W70~"
^DIPT(986,"H")="@"
^DIPT(986,"IOM")="80"
^DIPT(986,"LAST")=""
^DIPT(986,"ROU")="^MCAROHB"
^DIPT(986,"ROUOLD")="MCAROHB"
^DIPT(986,"SUB")="1"
^DIPT(987,0)="MCARHEMF^2980828.1136^^694^^^2980828"
^DIPT(987,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(987,"DXS",1,9.2)="S X=""BONE MARROW EVALUATION"""
^DIPT(987,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(694,9.5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=""IRON STORES: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(987,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(694,10,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=""MEGAKARYOCYTES: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(987,"DXS",4,9.2)="S DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,4)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""M:E RATIO: ""_$P(DIP(1),U,4)"
^DIPT(987,"DXS",5,9)="I $D(^MCAR(694,MCARGDA,5,1,0))!($S('$D(^MCAR(694,MCARGDA,7)):0,$P(^MCAR(694,MCARGDA,7,1,0),U)'="""":1,1:0)) W !!?4,""MICROSCOPIC DESCRIPTION:"""
^DIPT(987,"DXS",6,9)="I $D(^MCAR(694,MCARGDA,8,1,0))!($D(^MCAR(694,MCARGDA,3,1,0))) W !,?4,""FINAL DIAGNOSIS(ES):"""
^DIPT(987,"DXS",7,"D")="DECREASED"
^DIPT(987,"DXS",7,"I")="INCREASED"
^DIPT(987,"DXS",7,"N")="NORMAL"
^DIPT(987,"DXS",8,"MA")="MARKEDLY"
^DIPT(987,"DXS",8,"MO")="MODERATELY"
^DIPT(987,"DXS",8,"SE")="SEVERELY"
^DIPT(987,"DXS",8,"SL")="SLIGHTLY"
^DIPT(987,"DXS",9,"A")="Abnormal"
^DIPT(987,"DXS",9,"N")="Normal"
^DIPT(987,"DXS",9,"ND")="Non-Diagnostic"
^DIPT(987,"DXS",9,"T")="Technically unsatisfactory"
^DIPT(987,"F",1)=""" "";C1~X DXS(1,9) W X K DIP;C26;X;Z;""UNDERLINE(""BONE MARROW EVALUATION"")""~""CELLULARITY: "";C8;S~8;X~"" ""~8.1;X~"
^DIPT(987,"F",2)="X DXS(2,9) W X K DIP;C50;Z;""""IRON STORES: ""_#9.5""~X DXS(3,9) W X K DIP;C8;Z;""""MEGAKARYOCYTES: ""_#10""~"
^DIPT(987,"F",3)="S DIP(2)=$C(59)_$S($D(^DD(694,10.1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X="" ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1) W X K DIP;X;Z;"""" ""_#10.1""~"
^DIPT(987,"F",4)="X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C50;X;Z;""$S(#9="""":"""",1:""M:E RATIO: ""_#9)""~"
^DIPT(987,"F",5)="S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(987,"F",6)="X DXS(5,9);Z;""I $D(^MCAR(694,MCARGDA,5,1,0))!($S('$D(^MCAR(694,MCARGDA,7)):0,$P(^MCAR(694,MCARGDA,7,1,0),U)'="""":1,1:0)) W !!?4,""MICROSCOPIC DESCRIPTION:""""~"
^DIPT(987,"F",7)="40,.01;C10;W70;X~54,.01;C7;W70~S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(987,"F",8)="""COMPLICATIONS: "";C5~55,.01;C21;X~S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(987,"F",9)="X DXS(6,9);Z;""I $D(^MCAR(694,MCARGDA,8,1,0))!($D(^MCAR(694,MCARGDA,3,1,0))) W !,?4,""FINAL DIAGNOSIS(ES):""""~35,.01;C10;W70~41,.01;C7;W70~"
^DIPT(987,"F",10)="""SUMMARY: "";C5;S~1.5;X~""PROCEDURE SUMMARY: "";C5;S~600;X;W70;C10~S MCFILE=694 D DISP^MCMAG;Z;""S MCFILE=694 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(987,"H")="@"
^DIPT(987,"IOM")="80"
^DIPT(987,"LAST")=""
^DIPT(987,"ROU")="^MCAROHF"
^DIPT(987,"ROUOLD")="MCAROHF"
^DIPT(987,"SUB")="1"
^DIPT(988,0)="MCARPG^2960513.1018^^698^^^2960513"
^DIPT(988,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(988,"DXS",1,9.2)="S X=""IMPLANT DATA"""
^DIPT(988,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(698,6,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""PACING MODE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(988,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(698,14,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""LEADS: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(988,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(698,19,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""IMPLANTATION ETIOLOGY: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(988,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(988,"DXS",5,9.2)="S X=""BEGIN OF LIFE"""
^DIPT(988,"DXS",6,9)="X DXS(6,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(988,"DXS",6,9.2)="S X=""END OF LIFE"""
^DIPT(988,"DXS",7,9)="X DXS(7,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(988,"DXS",7,9.2)="S X=""PATIENT HISTORY"""
^DIPT(988,"DXS",8,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(988,"DXS",8,9.3)="X DXS(8,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)="""",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""INDICATION FOR CLOSURE: """
^DIPT(988,"DXS",9,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,11,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(988,"DXS",9,9.3)="X DXS(9,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""CAUSE: ""_$P($P(DIP(106),$C(59)_$P(DIP(101),U,2)_"":"",2),$C(59),1)"
^DIPT(988,"DXS",10,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"""
^DIPT(988,"DXS",11,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,4)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DATE OF CLOSURE: """
^DIPT(988,"DXS",12,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,5)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DISCHARGE REASON: """
^DIPT(988,"DXS",13,1)="LOSS OF CAPTURE"
^DIPT(988,"DXS",13,2)="UNDERSENSING"
^DIPT(988,"DXS",13,3)="OVERSENSING"
^DIPT(988,"DXS",13,4)="RATE DECREASE"
^DIPT(988,"DXS",13,5)="RATE INCREASE"
^DIPT(988,"DXS",14,1)="EAST PSC FOLLOW-UP"
^DIPT(988,"DXS",14,2)="ARTIFICIAL"
^DIPT(988,"DXS",14,3)="DEAD"
^DIPT(988,"DXS",14,4)="REGISTRY ONLY"
^DIPT(988,"DXS",14,5)="EXPLANT TEST ONLY"
^DIPT(988,"DXS",14,6)="EXPLANTED,NO REPLACEMENT"
^DIPT(988,"DXS",14,7)="WEST PSC FOLLOW-UP"
^DIPT(988,"DXS",14,8)="LOST TO FOLLOW-UP"
^DIPT(988,"DXS",15,1)="SUDDEN-WITHIN ONE HOUR OF SYMPTOMS"
^DIPT(988,"DXS",15,2)="NON-SUDDEN"
^DIPT(988,"DXS",15,3)="UNKNOWN"
^DIPT(988,"F",1)="X DXS(1,9) W X K DIP;C33;X;Z;""UNDERLINE(""IMPLANT DATA"")""~"
^DIPT(988,"F",2)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""HOSPITAL WHERE IMPLANTED: ""_$S('$D(^DIC(4,+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1)) W X K DIP;C3;S;Z;""""HOSPITAL WHERE IMPLANTED: ""_#7""~"
^DIPT(988,"F",3)="""GENERATOR"";C3;S~"
^DIPT(988,"F",4)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C6;Z;""""MODEL: ""_#2""~"
^DIPT(988,"F",5)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""MANUFACTURER: ""_$S('$D(^MCAR(698.6,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""MANUFACTURER: ""_#3""~"
^DIPT(988,"F",6)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""SERIAL NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C6;Z;""""SERIAL NUMBER: ""_#4""~"
^DIPT(988,"F",7)="X DXS(2,9) W X K DIP;C45;Z;""""PACING MODE: ""_#6""~""TRANSMITTER"";C3;S~"
^DIPT(988,"F",8)="S DIP(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C6;Z;""""MODEL: ""_#12""~"
^DIPT(988,"F",9)="S DIP(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"""") S X=""MANUFACTURER: ""_$S('$D(^MCAR(698.6,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""MANUFACTURER: ""_#13""~"
^DIPT(988,"F",10)="X DXS(3,9) W X K DIP;C3;S;Z;""""LEADS: ""_#14""~""ATTENDING PHYSICIAN: "";C3~300;X~""FELLOW-1st: "";C3~301;X~""FELLOW-2nd: "";C3~302;X~"
^DIPT(988,"F",11)="X DXS(4,9) W X K DIP;C3;Z;""""IMPLANTATION ETIOLOGY: ""_#19""~""FIRST SCHEDULED FOLLOW-UP: "";C3~30;X~"
^DIPT(988,"F",12)="X DXS(5,9) W X K DIP;C35;X;S2;Z;""UNDERLINE(""BEGIN OF LIFE"")""~X DXS(6,9) W X K DIP;C55;X;Z;""UNDERLINE(""END OF LIFE"")""~""NON-MAG RATE"";C5~32;C36~42;C55~"
^DIPT(988,"F",13)="""MAGNET RATE"";C5~34;C36~44;C55~""NON-MAG PULSE WIDTH"";C5~36;C38~46;C57~""MAGNET PULSE WIDTH"";C5~38;C38~48;C57~""OTHER INDICATOR"";C5~40;C37~50;C57;X;W20~"
^DIPT(988,"F",14)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""NUMBER OF PULSE GENERATORS: ""_$P(DIP(1),U,13) W X K DIP;C3;S;Z;""""NUMBER OF PULSE GENERATORS: ""_#70""~"
^DIPT(988,"F",15)="""LAST PREVIOUS IMPLANT: "";C3;L18;S~75;X~""INCIPIENT MALFUNCTION: "";C3;L18~90;X~""PACING FAILURE: "";C3~93,.01~93,"", "";X~93,1~"
^DIPT(988,"F",16)="""GENERATOR EXPLANT DATE: "";C3;S~96;X~"
^DIPT(988,"F",17)="S DIP(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"""") S X=""REASON FOR CHANGE: ""_$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C3;Z;""""REASON FOR CHANGE: ""_#99""~"
^DIPT(988,"F",18)="""COMMENTS: "";C3;S~500,.01;C14;X;W~"
^DIPT(988,"F",19)="-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~"
^DIPT(988,"F",20)="-690,X DXS(7,9) W X K DIP;C32;X;S2;Z;""UNDERLINE(""PATIENT HISTORY"")""~-690,""PACING INDICATION:"";C3;S~-690,7,.01~-690,""RISK FACTORS: "";C3;S~-690,8,.01;C18~"
^DIPT(988,"F",21)="-690,8,"", "";X~-690,8,1;X~-690,""PSC STATUS: "";C3;S~-690,9~"
^DIPT(988,"F",22)="-690,X DXS(8,9.3) S X=X_$P($P(DIP(106),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1),X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C3;S;X;Z;""$S(#10="""":"""",1:""INDICATION FOR CLOSURE: ""_#10)""~"
^DIPT(988,"F",23)="-690,X DXS(9,9.3) S X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C6;X;Z;""$S(#10'[""DEATH"":"""",1:""CAUSE: ""_#11)""~"
^DIPT(988,"F",24)="-690,X DXS(10,9.2) S DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""SUDDENESS: "",X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C6;X;Z;""$S(#10'[""DEATH"":"""",1:""SUDDENESS: "")""~"
^DIPT(988,"F",25)="-690,12;X~-690,X DXS(11,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C3;S;Z;""$S(#13="""":"""",1:""DATE OF CLOSURE: "")""~-690,13;X~"
^DIPT(988,"F",26)="-690,X DXS(12,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C3;S;Z;""$S(#14="""":"""",1:""DISCHARGE REASON: "")""~-690,14;X~"
^DIPT(988,"H")="@"
^DIPT(988,"IOM")="80"
^DIPT(988,"LAST")="1"
^DIPT(988,"ROU")="^MCAROPG"
^DIPT(988,"ROUOLD")="MCAROPG"
^DIPT(988,"SUB")="1"
^DIPT(989,0)="MCAROPA^2960513.1022^^698.2^^^2960513"
^DIPT(989,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(989,"DXS",1,9.2)="S X=""IMPLANT DATA"""
^DIPT(989,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(698.2,D0,1)):^(1),1:"""") S X=$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X"
^DIPT(989,"DXS",3,9)="X DXS(3,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(989,"DXS",3,9.2)="S X=""PATIENT HISTORY"""
^DIPT(989,"DXS",4,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(989,"DXS",4,9.3)="X DXS(4,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)="""",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""INDICATION FOR CLOSURE: """
^DIPT(989,"DXS",5,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,11,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(989,"DXS",5,9.3)="X DXS(5,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""CAUSE: ""_$P($P(DIP(106),$C(59)_$P(DIP(101),U,2)_"":"",2),$C(59),1)"
^DIPT(989,"DXS",6,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"""
^DIPT(989,"DXS",7,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,4)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DATE OF CLOSURE: """
^DIPT(989,"DXS",8,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,5)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DISCHARGE REASON: """
^DIPT(989,"DXS",9,1)="EAST PSC FOLLOW-UP"
^DIPT(989,"DXS",9,2)="ARTIFICIAL"
^DIPT(989,"DXS",9,3)="DEAD"
^DIPT(989,"DXS",9,4)="REGISTRY ONLY"
^DIPT(989,"DXS",9,5)="EXPLANT TEST ONLY"
^DIPT(989,"DXS",9,6)="EXPLANTED,NO REPLACEMENT"
^DIPT(989,"DXS",9,7)="WEST PSC FOLLOW-UP"
^DIPT(989,"DXS",9,8)="LOST TO FOLLOW-UP"
^DIPT(989,"DXS",10,1)="SUDDEN-WITHIN ONE HOUR OF SYMPTOMS"
^DIPT(989,"DXS",10,2)="NON-SUDDEN"
^DIPT(989,"DXS",10,3)="UNKNOWN"
^DIPT(989,"F",1)="X DXS(1,9) W X K DIP;C33;X;Z;""UNDERLINE(""IMPLANT DATA"")""~"
^DIPT(989,"F",2)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C3;S2;Z;""""MODEL: ""_#2""~"
^DIPT(989,"F",3)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""MANUFACTURER: ""_$S('$D(^MCAR(698.6,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""MANUFACTURER: ""_#3""~"
^DIPT(989,"F",4)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""SERIAL NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C3;Z;""""SERIAL NUMBER: ""_#4""~""ATTENDING PHYSICIAN: "";C3~"
^DIPT(989,"F",5)="300;X~""FELLOW-1st: "";C3~301;X~""FELLOW-2nd: "";C3~302;X~""THRESHOLD (VOLTS):"";C3;S~11;X~"
^DIPT(989,"F",6)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""RESISTANCE (OHMS): ""_$P(DIP(1),U,8) W X K DIP;C45;Z;""""RESISTANCE (OHMS): ""_#13""~"
^DIPT(989,"F",7)=""" (mA'S):"";C3~12;X~"
^DIPT(989,"F",8)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""P WAVE AMPLITUDE (mV): ""_$P(DIP(1),U,9) W X K DIP;C3;S;Z;""""P WAVE AMPLITUDE (mV): ""_#14""~"
^DIPT(989,"F",9)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""PSA USED: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,10),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""PSA USED: ""_#15""~"
^DIPT(989,"F",10)="X DXS(2,9.2) S X=""LEAD EXPLANT REASON: "",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C3;S;Z;""$S(#57="""":"""",1:""LEAD EXPLANT REASON: "")""~57;X~"
^DIPT(989,"F",11)="S DIP(1)=$S($D(^MCAR(698.2,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X="", "",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(#56="""":"""",1:"", "")""~"
^DIPT(989,"F",12)="56;X~""COMMENTS: "";C3;S~500,.01;W65~"
^DIPT(989,"F",13)="-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~"
^DIPT(989,"F",14)="-690,X DXS(3,9) W X K DIP;C30;X;S2;Z;""UNDERLINE(""PATIENT HISTORY"")""~-690,""PACING INDICATION:"";C3;S~-690,7,.01~-690,""RISK FACTORS: "";C3;S~-690,8,.01;C18~"
^DIPT(989,"F",15)="-690,8,"", "";X~-690,8,1;X~-690,""PSC STATUS: "";C3;S~-690,9~"
^DIPT(989,"F",16)="-690,X DXS(4,9.3) S X=X_$P($P(DIP(106),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1),X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C3;S;X;Z;""$S(#10="""":"""",1:""INDICATION FOR CLOSURE: ""_#10)""~"
^DIPT(989,"F",17)="-690,X DXS(5,9.3) S X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C6;X;Z;""$S(#10'[""DEATH"":"""",1:""CAUSE: ""_#11)""~"
^DIPT(989,"F",18)="-690,X DXS(6,9.2) S DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""SUDDENESS: "",X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C6;X;Z;""$S(#10'[""DEATH"":"""",1:""SUDDENESS: "")""~"
^DIPT(989,"F",19)="-690,12;X~-690,X DXS(7,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C3;S;Z;""$S(#13="""":"""",1:""DATE OF CLOSURE: "")""~-690,13;X~"
^DIPT(989,"F",20)="-690,X DXS(8,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C3;S;Z;""$S(#14="""":"""",1:""DISCHARGE REASON: "")""~-690,14;X~"
^DIPT(989,"H")="@"
^DIPT(989,"IOM")="80"
^DIPT(989,"LAST")="1"
^DIPT(989,"ROU")="^MCAROPA"
^DIPT(989,"ROUOLD")="MCAROPA"
^DIPT(989,"SUB")="1"
^DIPT(990,0)="MCAROPV^2960513.102^^698.1^^^2960513"
^DIPT(990,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(990,"DXS",1,9.2)="S X=""IMPLANT DATA"""
^DIPT(990,"DXS",2,9)="X DXS(2,9.2) S X=""LEAD EXPLANT REASON: ""_$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))_"", "",X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(990,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(698.1,D0,1)):^(1),1:"""") S X=$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X"
^DIPT(990,"DXS",3,9)="X DXS(3,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(990,"DXS",3,9.2)="S X=""PATIENT HISTORY"""
^DIPT(990,"DXS",4,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(990,"DXS",4,9.3)="X DXS(4,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)="""",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""INDICATION FOR CLOSURE: """
^DIPT(990,"DXS",5,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,11,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(990,"DXS",5,9.3)="X DXS(5,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""CAUSE: ""_$P($P(DIP(106),$C(59)_$P(DIP(101),U,2)_"":"",2),$C(59),1)"
^DIPT(990,"DXS",6,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"""
^DIPT(990,"DXS",7,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,4)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DATE OF CLOSURE: """
^DIPT(990,"DXS",8,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,5)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DISCHARGE REASON: """
^DIPT(990,"DXS",9,1)="EAST PSC FOLLOW-UP"
^DIPT(990,"DXS",9,2)="ARTIFICIAL"
^DIPT(990,"DXS",9,3)="DEAD"
^DIPT(990,"DXS",9,4)="REGISTRY ONLY"
^DIPT(990,"DXS",9,5)="EXPLANT TEST ONLY"
^DIPT(990,"DXS",9,6)="EXPLANTED,NO REPLACEMENT"
^DIPT(990,"DXS",9,7)="WEST PSC FOLLOW-UP"
^DIPT(990,"DXS",9,8)="LOST TO FOLLOW-UP"
^DIPT(990,"DXS",10,1)="SUDDEN-WITHIN ONE HOUR OF SYMPTOMS"
^DIPT(990,"DXS",10,2)="NON-SUDDEN"
^DIPT(990,"DXS",10,3)="UNKNOWN"
^DIPT(990,"F",1)="X DXS(1,9) W X K DIP;C33;X;Z;""UNDERLINE(""IMPLANT DATA"")""~"
^DIPT(990,"F",2)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C3;S;Z;""""MODEL: ""_#2""~"
^DIPT(990,"F",3)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""MANUFACTURER: ""_$S('$D(^MCAR(698.6,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""MANUFACTURER: ""_#3""~"
^DIPT(990,"F",4)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""SERIAL NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C3;Z;""""SERIAL NUMBER: ""_#4""~""ATTENDING PHYSICIAN: "";C3~"
^DIPT(990,"F",5)="300;X~""FELLOW-1st: "";C3~301;X~""FELLOW-2nd: "";C3~302;X~""THRESHOLD (VOLTS):"";C3~11;X~"
^DIPT(990,"F",6)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""RESISTANCE (OHMS): ""_$P(DIP(1),U,8) W X K DIP;C45;Z;""""RESISTANCE (OHMS): ""_#13""~"
^DIPT(990,"F",7)=""" (mA'S:)"";C3~12;X~"
^DIPT(990,"F",8)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""R WAVE AMPLITUDE (mV): ""_$P(DIP(1),U,9) W X K DIP;C3;S;Z;""""R WAVE AMPLITUDE (mV): ""_#14""~"
^DIPT(990,"F",9)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""PSA USED: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,10),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""PSA USED: ""_#15""~"
^DIPT(990,"F",10)="X DXS(2,9) W X K DIP;C3;S;Z;""$S(#57="""":"""",1:""LEAD EXPLANT REASON: ""_#57_"", "")""~56;X~""COMMENTS: "";C3;S~500,.01;W65;X~"
^DIPT(990,"F",11)="-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~"
^DIPT(990,"F",12)="-690,X DXS(3,9) W X K DIP;C30;S2;X;Z;""UNDERLINE(""PATIENT HISTORY"")""~-690,""PACING INDICATION: "";C3;S~-690,7,.01~-690,""RISK FACTORS: "";C3;S~-690,8,.01;C18~"
^DIPT(990,"F",13)="-690,8,"", "";X~-690,8,1;X~-690,""PSC STATUS: "";C3;S~-690,9~"
^DIPT(990,"F",14)="-690,X DXS(4,9.3) S X=X_$P($P(DIP(106),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1),X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C3;S;X;Z;""$S(#10="""":"""",1:""INDICATION FOR CLOSURE: ""_#10)""~"
^DIPT(990,"F",15)="-690,X DXS(5,9.3) S X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C6;X;Z;""$S(#10'[""DEATH"":"""",1:""CAUSE: ""_#11)""~"
^DIPT(990,"F",16)="-690,X DXS(6,9.2) S DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""SUDDENESS: "",X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C6;X;Z;""$S(#10'[""DEATH"":"""",1:""SUDDENESS: "")""~"
^DIPT(990,"F",17)="-690,12;X~-690,X DXS(7,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C3;S;Z;""$S(#13="""":"""",1:""DATE OF CLOSURE: "")""~-690,13;X~"
^DIPT(990,"F",18)="-690,X DXS(8,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C3;S;Z;""$S(#14="""":"""",1:""DISCHARGE REASON: "")""~-690,14;X~"
^DIPT(990,"H")="@"
^DIPT(990,"IOM")="80"
^DIPT(990,"LAST")="1"
^DIPT(990,"ROU")="^MCAROPV"
^DIPT(990,"ROUOLD")="MCAROPV"
^DIPT(990,"SUB")="1"
^DIPT(991,0)="MCAROPS^2960513.1028^^698.3^^^2960513"
^DIPT(991,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",1,9.2)="S X=""SURVEILLANCE DATA"""
^DIPT(991,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(698.3,3,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""GATHERING MODE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(991,"DXS",3,9)="X DXS(3,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",3,9.2)="S X=""WIHTOUT MAGNET"""
^DIPT(991,"DXS",4,9)="X DXS(4,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",4,9.2)="S X=""WITH MAGNET"""
^DIPT(991,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",5,9.2)="S X="" ATRIAL """
^DIPT(991,"DXS",6,9)="X DXS(6,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",6,9.2)="S X=""VENTRICULAR"""
^DIPT(991,"DXS",7,9)="X DXS(7,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",7,9.2)="S X=""REPROGRAMMED DATA"""
^DIPT(991,"DXS",8,9)="S DIP(2)=$C(59)_$S($D(^DD(698.3,54,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""PACING MODE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,19)_"":"",2),$C(59),1)"
^DIPT(991,"DXS",9,9)="X DXS(9,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(991,"DXS",9,9.2)="S X=""PATIENT HISTORY"""
^DIPT(991,"DXS",10,9)="X DXS(10,9.2) S X=X="""",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""INDICATION FOR CLOSURE: "",X=$S(DIP(103):DIP(104),DIP(105):X)"
^DIPT(991,"DXS",10,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)"
^DIPT(991,"DXS",11,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(106)=$C(59)_$S($D(^DD(690,11,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""")"
^DIPT(991,"DXS",11,9.3)="X DXS(11,9.2) S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"",DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""CAUSE: ""_$P($P(DIP(106),$C(59)_$P(DIP(101),U,2)_"":"",2),$C(59),1)"
^DIPT(991,"DXS",12,9.2)="S DIP(102)=$C(59)_$S($D(^DD(690,10,0)):$P(^(0),U,3),1:""""),DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,1)_"":"",2),$C(59),1)'[""DEATH"""
^DIPT(991,"DXS",13,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,4)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DATE OF CLOSURE: """
^DIPT(991,"DXS",14,9.2)="S DIP(101)=$S($D(^MCAR(690,D0,""P3"")):^(""P3""),1:"""") S X=$P(DIP(101),U,5)="""",DIP(102)=X S X="""",DIP(103)=X S X=1,DIP(104)=X S X=""DISCHARGE REASON: """
^DIPT(991,"DXS",15,"I")="INTERMITTENT"
^DIPT(991,"DXS",15,"N")="NO"
^DIPT(991,"DXS",15,"NA")="NOT APPLICABLE"
^DIPT(991,"DXS",15,"U")="UNKNOWN"
^DIPT(991,"DXS",15,"Y")="YES"
^DIPT(991,"DXS",16,"I")="INTERMITTENT"
^DIPT(991,"DXS",16,"N")="NO"
^DIPT(991,"DXS",16,"NA")="NOT APPLICABLE"
^DIPT(991,"DXS",16,"UNK")="UNKNOWN"
^DIPT(991,"DXS",16,"Y")="YES"
^DIPT(991,"DXS",17,"I")="INTERMITTENT"
^DIPT(991,"DXS",17,"N")="NO"
^DIPT(991,"DXS",17,"NA")="NOT APPLICABLE"
^DIPT(991,"DXS",17,"U")="UNKNOWN"
^DIPT(991,"DXS",17,"Y")="YES"
^DIPT(991,"DXS",18,"I")="INTERMITTENT"
^DIPT(991,"DXS",18,"N")="NO"
^DIPT(991,"DXS",18,"NA")="NOT APPLICABLE"
^DIPT(991,"DXS",18,"UNK")="UNKNOWN"
^DIPT(991,"DXS",18,"Y")="YES"
^DIPT(991,"DXS",19,1)="EAST PSC FOLLOW-UP"
^DIPT(991,"DXS",19,2)="ARTIFICIAL"
^DIPT(991,"DXS",19,3)="DEAD"
^DIPT(991,"DXS",19,4)="REGISTRY ONLY"
^DIPT(991,"DXS",19,5)="EXPLANT TEST ONLY"
^DIPT(991,"DXS",19,6)="EXPLANTED,NO REPLACEMENT"
^DIPT(991,"DXS",19,7)="WEST PSC FOLLOW-UP"
^DIPT(991,"DXS",19,8)="LOST TO FOLLOW-UP"
^DIPT(991,"DXS",20,1)="SUDDEN-WITHIN ONE HOUR OF SYMPTOMS"
^DIPT(991,"DXS",20,2)="NON-SUDDEN"
^DIPT(991,"DXS",20,3)="UNKNOWN"
^DIPT(991,"F",1)="X DXS(1,9) W X K DIP;C32;X;Z;""UNDERLINE(""SURVEILLANCE DATA"")""~X DXS(2,9) W X K DIP;C3;S2;Z;""""GATHERING MODE: ""_#3""~"
^DIPT(991,"F",2)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""CALLER: ""_$S('$D(^VA(200,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C45;Z;""""CALLER: ""_#2""~"
^DIPT(991,"F",3)="""ATTENDING PHYSICIAN: "";C3~300;X~""FELLOW: "";C3~301;X~"
^DIPT(991,"F",4)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""BASIC RHYTHM: ""_$S('$D(^MCAR(698.9,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)) W X K DIP;C3;Z;""""BASIC RHYTHM: ""_#15""~"
^DIPT(991,"F",5)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""PERCENT OF PACED BEATS: ""_$P(DIP(1),U,10) W X K DIP;C45;Z;""""PERCENT OF PACED BEATS: ""_#16""~"
^DIPT(991,"F",6)="X DXS(3,9) W X K DIP;C41;S;X;Z;""UNDERLINE(""WIHTOUT MAGNET"")""~X DXS(4,9) W X K DIP;C62;X;Z;""UNDERLINE(""WITH MAGNET"")""~""PULSE INTERVAL (mSec)"";C6~4;C43~"
^DIPT(991,"F",7)="6;C63~""RATE (BPM)"";C6~5;C41~7;C61~""A-V DELAY (mSec)"";C6~11;C43~12;C63~X DXS(5,9) W X K DIP;C43;X;S2;Z;""UNDERLINE("" ATRIAL "")""~"
^DIPT(991,"F",8)="X DXS(6,9) W X K DIP;C62;X;Z;""UNDERLINE(""VENTRICULAR"")""~""PULSE WIDTH (mSec)"";C6~101;C44~201;C65~""MEASURED LEAD AMPLITUDE (mV)"";C6~102;C42~202;C63~"
^DIPT(991,"F",9)="""RATIO (T/L)"";C6~103;C43~203;C64~""THRESHOLD WIDTH"";C6~104;C43~204;C64~""THRESHOLD AMPLITUDE"";C6~105;C43~205;C64~""CAPTURE"";C6~106;C44~206;C65~""SENSE"";C6~"
^DIPT(991,"F",10)="107;C44~207;C65~X DXS(7,9) W X K DIP;C32;S2;X;Z;""UNDERLINE(""REPROGRAMMED DATA"")""~"
^DIPT(991,"F",11)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""RATE: ""_$P(DIP(1),U,15) W X K DIP;C6;S;Z;""""RATE: ""_#50""~"
^DIPT(991,"F",12)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""RATE UPPER LIMIT: ""_$P(DIP(1),U,16) W X K DIP;C45;Z;""""RATE UPPER LIMIT: ""_#51""~"
^DIPT(991,"F",13)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""A-V DELAY (mSec): ""_$P(DIP(1),U,17) W X K DIP;C6;Z;""""A-V DELAY (mSec): ""_#52""~"
^DIPT(991,"F",14)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""HYSTERESIS: ""_$P(DIP(1),U,18) W X K DIP;C6;Z;""""HYSTERESIS: ""_#53""~"
^DIPT(991,"F",15)="X DXS(8,9) W X K DIP;C45;Z;""""PACING MODE: ""_#54""~"
^DIPT(991,"F",16)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""PULSE WIDTH (ATRIAL mSec): ""_$P(DIP(1),U,8) W X K DIP;C6;Z;""""PULSE WIDTH (ATRIAL mSec): ""_#121""~"
^DIPT(991,"F",17)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""PULSE WIDTH (VENT. mSec): ""_$P(DIP(1),U,8) W X K DIP;C45;Z;""""PULSE WIDTH (VENT. mSec): ""_#221""~"
^DIPT(991,"F",18)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""A-AMPLITUDE (VOLTS): ""_$P(DIP(1),U,9) W X K DIP;C6;Z;""""A-AMPLITUDE (VOLTS): ""_#122""~"
^DIPT(991,"F",19)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""V-AMPLITUDE (VOLTS): ""_$P(DIP(1),U,9) W X K DIP;C45;Z;""""V-AMPLITUDE (VOLTS): ""_#222""~"
^DIPT(991,"F",20)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""SENSITIVITY (ATRIAL mV): ""_$P(DIP(1),U,10) W X K DIP;C6;Z;""""SENSITIVITY (ATRIAL mV): ""_#123""~"
^DIPT(991,"F",21)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""SENSITIVITY (VENT. mV): ""_$P(DIP(1),U,10) W X K DIP;C45;Z;""""SENSITIVITY (VENT. mV): ""_#223""~"
^DIPT(991,"F",22)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""REFRACTORY PERIOD (ATRIAL): ""_$P(DIP(1),U,11) W X K DIP;C6;Z;""""REFRACTORY PERIOD (ATRIAL): ""_#124""~"
^DIPT(991,"F",23)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""REFRACTORY PERIOD (VENT.): ""_$P(DIP(1),U,11) W X K DIP;C45;Z;""""REFRACTORY PERIOD (VENT.): ""_#224""~"
^DIPT(991,"F",24)="""BATTERY VOLTAGE: "";C6~13;X~""BATTERY RESISTANCE: "";C45~14;X~""REASON FOR REPROGRAMMING: "";C6;S~55;X~"
^DIPT(991,"F",25)="-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~"
^DIPT(991,"F",26)="-690,X DXS(9,9) W X K DIP;C32;S2;X;Z;""UNDERLINE(""PATIENT HISTORY"")""~-690,""PACING INDICATION:"";C6;S~-690,7,.01~-690,""RISK FACTORS: "";C6;S~-690,8,.01;X;C21~"
^DIPT(991,"F",27)="-690,8,"", "";X~-690,8,1;X~-690,""PSC STATUS: "";C6;S~-690,9~-690,X DXS(10,9) W X K DIP;C6;S;X;Z;""$S(#10="""":"""",1:""INDICATION FOR CLOSURE: "")""~"
^DIPT(991,"F",28)="-690,X DXS(11,9.3) S X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C9;X;Z;""$S(#10'[""DEATH"":"""",1:""CAUSE: ""_#11)""~"
^DIPT(991,"F",29)="-690,X DXS(12,9.2) S DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""SUDDENESS: "",X=$S(DIP(103):DIP(104),DIP(105):X) W X K DIP;C9;Z;""$S(#10'[""DEATH"":"""",1:""SUDDENESS: "")""~"
^DIPT(991,"F",30)="-690,12;X~-690,X DXS(13,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C9;Z;""$S(#13="""":"""",1:""DATE OF CLOSURE: "")""~-690,13;X~"
^DIPT(991,"F",31)="-690,X DXS(14,9.2) S X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;C6;S;Z;""$S(#14="""":"""",1:""DISCHARGE REASON: "")""~-690,14;X~"
^DIPT(991,"H")="@"
^DIPT(991,"IOM")="80"
^DIPT(991,"LAST")="1"
^DIPT(991,"ROU")="^MCAROPS"
^DIPT(991,"ROUOLD")="MCAROPS"
^DIPT(991,"SUB")="1"
^DIPT(993,0)="MCARSR^2960513.1012^^694.5^^^2960513"
^DIPT(993,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,103,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""PTCA: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(993,"DXS",2,9.3)="X DXS(2,9.2) S DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(202)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:"""")"
^DIPT(993,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,33.5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""Prior MI: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,27,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Prior heart surgery ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",5,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,21,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""COPD ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",6,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,31,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Peripheral vascular disease ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",7,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,40,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Cardiomegaly(x-ray) ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,21)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",8,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,38,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Pulmonary rales ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,19)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",9,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,30,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Current diuretic use ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",10,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,23,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Current smoker ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",11,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,29,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Current digoxin use ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",12,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,25,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""IV NTG within 48 hr of surgery ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",13,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,35,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Rest Angina ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,16)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",14,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,34,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Preoperative use of IABP ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,15)_"":"",2),$C(59),1)"
^DIPT(993,"DXS",15,1)="NO SYMPTOMS AT ANY LEVEL OF ACTIVITY"
^DIPT(993,"DXS",15,2)="SYMPTOMS ON MORE THAN ORDINARY ACTIVITY"
^DIPT(993,"DXS",15,3)="SYMPTOMS ON ACTIVITIES OF DAILY LIVING"
^DIPT(993,"DXS",15,4)="SYMPTOMS AT REST"
^DIPT(993,"F",1)="""II. CLINICAL DATA"";X;S~"" "";C1;X~X DXS(1,9) W X K DIP;C35;X//;Z;""""PTCA: ""_#103""~""Sex "";C1~"
^DIPT(993,"F",2)="X DXS(2,9.3) S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P($P(DIP(202),$C(59)_$P(DIP(201),U,2)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X//;Z;""1:.01:SEX""~"
^DIPT(993,"F",3)="X DXS(3,9) W X K DIP;C35;X//;Z;""""Prior MI: ""_#33.5""~"
^DIPT(993,"F",4)="S DIP(1)=$S($D(^MCAR(694.5,D0,0)):^(0),1:"""") S X=""Age ""_$P(DIP(1),U,4) W X K DIP;C1;X;Z;""""Age ""_#3""~"
^DIPT(993,"F",5)="X DXS(4,9) W X K DIP;C35;X//;Z;""""Prior heart surgery ""_#27""~X DXS(5,9) W X K DIP;C1;X;Z;""""COPD ""_#21""~"
^DIPT(993,"F",6)="X DXS(6,9) W X K DIP;C35;X;Z;""""Peripheral vascular disease ""_#31""~X DXS(7,9) W X K DIP;C1;X;Z;""""Cardiomegaly(x-ray) ""_#40""~"
^DIPT(993,"F",7)="""NYHA functional class "";C35;X~36;C67;X;W15~X DXS(8,9) W X K DIP;C1;X;Z;""""Pulmonary rales ""_#38""~"
^DIPT(993,"F",8)="X DXS(9,9) W X K DIP;C35;X;Z;""""Current diuretic use ""_#30""~X DXS(10,9) W X K DIP;C1;X;Z;""""Current smoker ""_#23""~"
^DIPT(993,"F",9)="X DXS(11,9) W X K DIP;C35;X;Z;""""Current digoxin use ""_#29""~"
^DIPT(993,"F",10)="S DIP(1)=$S($D(^MCAR(694.5,D0,1)):^(1),1:"""") S X=""Creatinine ""_$P(DIP(1),U,23) W X K DIP;C1;X;Z;""""Creatinine ""_#42""~"
^DIPT(993,"F",11)="X DXS(12,9) W X K DIP;C35;X;Z;""""IV NTG within 48 hr of surgery ""_#25""~X DXS(13,9) W X K DIP;C1;X;Z;""""Rest Angina ""_#35""~"
^DIPT(993,"F",12)="X DXS(14,9) W X K DIP;C35;X;Z;""""Preoperative use of IABP ""_#34""~"
^DIPT(993,"H")="@"
^DIPT(993,"IOM")="80"
^DIPT(993,"LAST")=""
^DIPT(993,"ROU")="^MCAROS0"
^DIPT(993,"ROUOLD")="MCAROS0"
^DIPT(993,"SUB")="1"
^DIPT(994,0)="MCARSR1^2960513.1013^^694.5^^^2960513"
^DIPT(994,"DXS",1,0)="? unknown No LV study"
^DIPT(994,"DXS",1,1)="I > 0.54 Normal"
^DIPT(994,"DXS",1,2)="II 0.45-0.54 Mild dysfunction"
^DIPT(994,"DXS",1,3)="III 0.35-0.44 Moderate dysfunction"
^DIPT(994,"DXS",1,4)="IV 0.25-0.34 Severe dysfunction"
^DIPT(994,"DXS",1,5)="V <0.25 Very severe dysfunction"
^DIPT(994,"F",1)="""III. CARDIAC CATHETERIZATION AND ANGIOGRAPHIC DATA"";C1;X;S~"
^DIPT(994,"F",2)="S DIP(1)=$S($D(^MCAR(694.5,D0,2)):^(2),1:"""") S X=""LVEDP ""_$P(DIP(1),U,6)_""mm Hg"" W X K DIP;C1;X;S;Z;""""LVEDP ""_#50_""mm Hg""""~"
^DIPT(994,"F",3)="""Lv Contraction Score (from contrast or"";C35;X~"
^DIPT(994,"F",4)="S DIP(1)=$S($D(^MCAR(694.5,D0,2)):^(2),1:"""") S X=""Aortic systolic pressure ""_$P(DIP(1),U,2)_""mm Hg"" W X K DIP;C1;X;Z;""""Aortic systolic pressure ""_#46_""mm Hg""""~"
^DIPT(994,"F",5)="""radionuclide angiogram or 2D echo)"";C35;X~"
^DIPT(994,"F",6)="S DIP(1)=$S($D(^MCAR(694.5,D0,2)):^(2),1:"""") S X=""*PA systolic pressure ""_$P(DIP(1),U,3)_""mm Hg"" W X K DIP;C1;X;Z;""""*PA systolic pressure ""_#47_""mm Hg""""~"
^DIPT(994,"F",7)="S DIP(1)=$S($D(^MCAR(694.5,D0,2)):^(2),1:"""") S X=""*PAW mean pressure ""_$P(DIP(1),U,4)_""mm Hg"" W X K DIP;C1;X;Z;""""*PAW mean pressure ""_#48_""mm Hg""""~"
^DIPT(994,"F",8)="""Grade Ejection Fraction Definition"";C35;X~""*patients having right heart cath."";C1;X~""Range"";C42;X~104;C42;X~"
^DIPT(994,"F",9)="S DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""Percent left main stenosis ""_$P(DIP(1),U,1)_""%"" W X K DIP;C1;X;Z;""""Percent left main stenosis ""_#66_""%""""~"
^DIPT(994,"F",10)="""Number of other major coronary"";C1;X~"" arteries (LAD,right with PDA,"";C1;X~"" circumflex with marginals)"";C1;X~"
^DIPT(994,"F",11)="S DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X="" with stenosis(es) => 50% ""_$P(DIP(1),U,14) W X K DIP;C1;X;Z;"""" with stenosis(es) => 50% ""_#66.5""~"
^DIPT(994,"H")="CARDIAC SURGERY RISK ASSESSMENT LIST"
^DIPT(994,"IOM")="80"
^DIPT(994,"LAST")=""
^DIPT(994,"ROU")="^MCAROS1"
^DIPT(994,"ROUOLD")="MCAROS1"
^DIPT(995,0)="MCARSR2^2960513.1014^^694.5^^^2960513"
^DIPT(995,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,73,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""General medical condition: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,74,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""Surgical priority: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,9)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,75.5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""Intended procedure: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,84,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""Valve repair ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,9)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",5,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,85,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""LV aneurysmectomy ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",6,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,82,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""Aortic valve replacement ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",7,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,79,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""cardiopulmonary bypass ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",8,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,81,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""Mitral valve replacement ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",9,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,80,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""Cardiac transplant ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",10,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,83,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""Tricuspid valve replacement ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(995,"DXS",11,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,105,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""Electrophysiologic procedure ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,16)_"":"",2),$C(59),1)"
^DIPT(995,"F",1)="""IV. OPERATIVE RISK SUMMARY DATA"";C1;X;S~""Physician's preoperative "";C1;X;S~X DXS(1,9) W X K DIP;C35;X;Z;""""General medical condition: ""_#73""~"
^DIPT(995,"F",2)="""estimate of operative "";C1;X~X DXS(2,9) W X K DIP;C35;X;Z;""""Surgical priority: ""_#74""~"
^DIPT(995,"F",3)="S DIP(1)=$S($D(^MCAR(694.5,D0,4)):^(4),1:"""") S X=""mortality ""_$P(DIP(1),U,18)_""%"" W X K DIP;C1;X;Z;""""mortality ""_#107_""%""""~"
^DIPT(995,"F",4)="X DXS(3,9) W X K DIP;C1;X;Z;""""Intended procedure: ""_#75.5""~""V. OPERATIVE DATA"";C1;X;S~""A.Procedure(s)"";C2;X;S~""CABG distal anastomoses:"";C5;X~"
^DIPT(995,"F",5)="X DXS(4,9) W X K DIP;C45;X;Z;""""Valve repair ""_#84""~"
^DIPT(995,"F",6)="S DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""number with vein ""_$P(DIP(1),U,2) W X K DIP;C10;X;Z;""""number with vein ""_#77""~"
^DIPT(995,"F",7)="X DXS(5,9) W X K DIP;C45;X;Z;""""LV aneurysmectomy ""_#85""~"
^DIPT(995,"F",8)="S DIP(1)=$S($D(^MCAR(694.5,D0,10)):^(10),1:"""") S X=""number with IMA ""_$P(DIP(1),U,3) W X K DIP;C10;X;Z;""""number with IMA ""_#78""~"
^DIPT(995,"F",9)="""Great vessel repair requiring"";C45;X~X DXS(6,9) W X K DIP;C5;X;Z;""""Aortic valve replacement ""_#82""~"
^DIPT(995,"F",10)="X DXS(7,9) W X K DIP;C45;X;Z;""""cardiopulmonary bypass ""_#79""~X DXS(8,9) W X K DIP;C5;X;Z;""""Mitral valve replacement ""_#81""~"
^DIPT(995,"F",11)="X DXS(9,9) W X K DIP;C45;X;Z;""""Cardiac transplant ""_#80""~X DXS(10,9) W X K DIP;C5;X;Z;""""Tricuspid valve replacement ""_#83""~"
^DIPT(995,"F",12)="X DXS(11,9) W X K DIP;C45;X;Z;""""Electrophysiologic procedure ""_#105""~""Other(not checked above)"";C5;X~86,.01;C5;X~"
^DIPT(995,"H")="CARDIAC SURGERY RISK ASSESSMENT LIST"
^DIPT(995,"IOM")="80"
^DIPT(995,"LAST")=""
^DIPT(995,"ROU")="^MCAROS2"
^DIPT(995,"ROUOLD")="MCAROS2"
^DIPT(996,0)="MCARSR3^2960513.1015^^694.5^^^2960513"
^DIPT(996,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,90,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""B.Operative Death ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,93,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Perioperative MI ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,98,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Reoperation for bleeding ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,94,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Endocarditis ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",5,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,100,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""On ventilator > 48 hr ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,14)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",6,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,95,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""dialysis ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,9)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",7,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,99,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""bypass ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",8,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,96,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Low cardiac output > 6 hr ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",9,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,101,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Coma => 24 hr ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,15)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",10,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,97,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Mediastinitis ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(996,"DXS",11,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,102,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Stroke ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,16)_"":"",2),$C(59),1)"
^DIPT(996,"F",1)="X DXS(1,9) W X K DIP;C2;X;Z;""""B.Operative Death ""_#90""~""Date of death"";C45;X~91;C66;W15;X~""C.Perioperative (30 day) Complications"";C2;X~"
^DIPT(996,"F",2)="X DXS(2,9) W X K DIP;C5;X;Z;""""Perioperative MI ""_#93""~X DXS(3,9) W X K DIP;C45;X;Z;""""Reoperation for bleeding ""_#98""~"
^DIPT(996,"F",3)="X DXS(4,9) W X K DIP;C5;X;Z;""""Endocarditis ""_#94""~X DXS(5,9) W X K DIP;C45;X;Z;""""On ventilator > 48 hr ""_#100""~"
^DIPT(996,"F",4)="""Renal failure requiring"";C5;X~""Repeat cardiopulmonary"";C45;X~X DXS(6,9) W X K DIP;C6;X;Z;""""dialysis ""_#95""~"
^DIPT(996,"F",5)="X DXS(7,9) W X K DIP;C46;X;Z;""""bypass ""_#99""~X DXS(8,9) W X K DIP;C5;X;Z;""""Low cardiac output > 6 hr ""_#96""~"
^DIPT(996,"F",6)="X DXS(9,9) W X K DIP;C45;X;Z;""""Coma => 24 hr ""_#101""~X DXS(10,9) W X K DIP;C5;X;Z;""""Mediastinitis ""_#97""~"
^DIPT(996,"F",7)="X DXS(11,9) W X K DIP;C45;X;Z;""""Stroke ""_#102""~"
^DIPT(996,"H")="CARDIAC SURGERY RISK ASSESSMENT LIST"
^DIPT(996,"IOM")="80"
^DIPT(996,"LAST")=""
^DIPT(996,"ROU")="^MCAROS3"
^DIPT(996,"ROUOLD")="MCAROS3"
^DIPT(997,0)="MCPFTP^2960513.1116^^700^^^2960513"
^DIPT(997,"F",1)="""INTERPRETATION:"";S2~D COMP^MCPFTP5;Z;""D COMP^MCPFTP5""~33.5,.01;C18;W70;X~""COMMENTS AND RECOMMENDATIONS: "";S2~30,.01;W70;X~""INTERPRETED BY:"";S2~"
^DIPT(997,"F",2)="21,.01;C17;X~""REVIEWED BY:"";S2~31;C17~"
^DIPT(997,"H")="@"
^DIPT(997,"IOM")="80"
^DIPT(997,"LAST")=""
^DIPT(997,"ROU")="^MCAROPF"
^DIPT(997,"ROUOLD")="MCAROPF"
^DIPT(997,"SUB")="1"
^DIPT(998,0)="MCARSR4^2960513.1015^^694.5^^^2960513"
^DIPT(998,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,96,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Low Cardiac Output ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,10)_"":"",2),$C(59),1)"
^DIPT(998,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,97,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Mediastinitis ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(998,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,98,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Reoperation for Bleeding ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59),1)"
^DIPT(998,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,100,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""On Ventilator(=> 48 hrs) ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,14)_"":"",2),$C(59),1)"
^DIPT(998,"DXS",5,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,99,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Bypass ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59),1)"
^DIPT(998,"DXS",6,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,101,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Coma (24 hrs or more) ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,15)_"":"",2),$C(59),1)"
^DIPT(998,"DXS",7,9)="S DIP(2)=$C(59)_$S($D(^DD(694.5,102,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(694.5,D0,13)):^(13),1:"""") S X=""Stroke ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,16)_"":"",2),$C(59),1)"
^DIPT(998,"F",1)="X DXS(1,9) W X K DIP;C3;X;Z;""""Low Cardiac Output ""_#96""~X DXS(2,9) W X K DIP;C40;X;Z;""""Mediastinitis ""_#97""~"
^DIPT(998,"F",2)="X DXS(3,9) W X K DIP;C3;X;Z;""""Reoperation for Bleeding ""_#98""~""Repeat Cardiopulmonary "";C40;X~"
^DIPT(998,"F",3)="X DXS(4,9) W X K DIP;C3;X;Z;""""On Ventilator(=> 48 hrs) ""_#100""~X DXS(5,9) W X K DIP;C40;X;Z;""""Bypass ""_#99""~"
^DIPT(998,"F",4)="X DXS(6,9) W X K DIP;C3;X;Z;""""Coma (24 hrs or more) ""_#101""~X DXS(7,9) W X K DIP;C40;X;Z;""""Stroke ""_#102""~"
^DIPT(998,"H")="@"
^DIPT(998,"IOM")="80"
^DIPT(998,"LAST")=""
^DIPT(998,"ROU")="^MCAROS4"
^DIPT(998,"ROUOLD")="MCAROS4"
^DIPT(998,"SUB")="1"
^DIPT(999,0)="MCRHBACK^3020906.1347^^701^^^3020906"
^DIPT(999,"DXS",1,"F")="FEMALE"
^DIPT(999,"DXS",1,"M")="MALE"
^DIPT(999,"DXS",2,1)="EMPLOYED FULL TIME"
^DIPT(999,"DXS",2,2)="EMPLOYED PART TIME"
^DIPT(999,"DXS",2,3)="NOT EMPLOYED"
^DIPT(999,"DXS",2,4)="SELF EMPLOYED"
^DIPT(999,"DXS",2,5)="RETIRED"
^DIPT(999,"DXS",2,6)="ACTIVE MILITARY DUTY"
^DIPT(999,"DXS",2,9)="UNKNOWN"
^DIPT(999,"F",1)="""BACK GROUND INFORMATION"";C1~-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(701,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""1:""~"
^DIPT(999,"F",2)="-690,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-690,-2,""Address:"";C1;S~"
^DIPT(999,"F",3)="-690,-2,.111;C20;X~-690,-2,.112;C20;X~-690,-2,.113;C20;X~-690,-2,.115;C20;X~-690,-2,.116;C30;X~-690,-2,""Home phone:"";C1;S~-690,-2,.131;C20;X~"
^DIPT(999,"F",4)="-690,-2,""Work phone:"";C1~-690,-2,.132;C20;X~-690,-2,""Sex:"";C1;S~-690,-2,.02;C20;X~-690,-2,""Race: "";C1~-690,-2,W ?19,$G(MCARRC);Z;""W ?19,$G(MCARRC)""~"
^DIPT(999,"F",5)="-690,-2,""Maritus status: "";C1;S~-690,-2,.05;C20;X~-690,-2,""Employment status: "";C1;S~-690,-2,.31115;C20;X~-690,-2,""Occupation:"";C1;S~-690,-2,.07;C20;X~"
^DIPT(999,"F",6)="-690,"" "";Y-1;C1~"
^DIPT(999,"H")="@"
^DIPT(999,"IOM")="80"
^DIPT(999,"LAST")=""
^DIPT(999,"ROU")="^MCARORB"
^DIPT(999,"ROUOLD")="MCARORB"
^DIPT(999,"SUB")="1"
^DIPT(1000,0)="MCRHHIST^2960513.1245^^701^^^2960513"
^DIPT(1000,"DXS",1,0)="NO"
^DIPT(1000,"DXS",1,1)="YES"
^DIPT(1000,"DXS",2,0)="NO"
^DIPT(1000,"DXS",2,1)="YES"
^DIPT(1000,"DXS",3,0)="NO"
^DIPT(1000,"DXS",3,1)="YES"
^DIPT(1000,"DXS",4,0)="NO"
^DIPT(1000,"DXS",4,1)="YES"
^DIPT(1000,"DXS",5,0)="NO"
^DIPT(1000,"DXS",5,1)="YES"
^DIPT(1000,"DXS",6,0)="NO"
^DIPT(1000,"DXS",6,1)="YES"
^DIPT(1000,"DXS",7,0)="NO"
^DIPT(1000,"DXS",7,1)="YES"
^DIPT(1000,"DXS",8,0)="NO"
^DIPT(1000,"DXS",8,1)="YES"
^DIPT(1000,"DXS",9,0)="NO"
^DIPT(1000,"DXS",9,1)="YES"
^DIPT(1000,"DXS",10,0)="NO"
^DIPT(1000,"DXS",10,1)="YES"
^DIPT(1000,"DXS",11,0)="NO"
^DIPT(1000,"DXS",11,1)="YES"
^DIPT(1000,"DXS",12,0)="NO"
^DIPT(1000,"DXS",12,1)="YES"
^DIPT(1000,"DXS",13,0)="NO"
^DIPT(1000,"DXS",13,1)="YES"
^DIPT(1000,"DXS",14,0)="NO"
^DIPT(1000,"DXS",14,1)="YES"
^DIPT(1000,"DXS",15,0)="NO"
^DIPT(1000,"DXS",15,1)="YES"
^DIPT(1000,"DXS",16,0)="NO"
^DIPT(1000,"DXS",16,1)="YES"
^DIPT(1000,"DXS",17,0)="NO"
^DIPT(1000,"DXS",17,1)="YES"
^DIPT(1000,"DXS",18,0)="NO"
^DIPT(1000,"DXS",18,1)="YES"
^DIPT(1000,"DXS",19,0)="NO"
^DIPT(1000,"DXS",19,1)="YES"
^DIPT(1000,"DXS",20,0)="NO"
^DIPT(1000,"DXS",20,1)="YES"
^DIPT(1000,"DXS",21,0)="NO"
^DIPT(1000,"DXS",21,1)="YES"
^DIPT(1000,"DXS",22,0)="NO"
^DIPT(1000,"DXS",22,1)="YES"
^DIPT(1000,"DXS",23,0)="NO"
^DIPT(1000,"DXS",23,1)="YES"
^DIPT(1000,"DXS",24,0)="NO"
^DIPT(1000,"DXS",24,1)="YES"
^DIPT(1000,"DXS",25,0)="NO"
^DIPT(1000,"DXS",25,1)="YES"
^DIPT(1000,"DXS",26,0)="NO"
^DIPT(1000,"DXS",26,1)="YES"
^DIPT(1000,"DXS",27,0)="NO"
^DIPT(1000,"DXS",27,1)="YES"
^DIPT(1000,"DXS",28,0)="NO"
^DIPT(1000,"DXS",28,1)="YES"
^DIPT(1000,"DXS",29,0)="NO"
^DIPT(1000,"DXS",29,1)="YES"
^DIPT(1000,"DXS",30,0)="NO"
^DIPT(1000,"DXS",30,1)="YES"
^DIPT(1000,"DXS",31,0)="NO"
^DIPT(1000,"DXS",31,1)="YES"
^DIPT(1000,"DXS",32,0)="NO"
^DIPT(1000,"DXS",32,1)="YES"
^DIPT(1000,"DXS",33,0)="NO"
^DIPT(1000,"DXS",33,1)="YES"
^DIPT(1000,"DXS",34,0)="NO"
^DIPT(1000,"DXS",34,1)="YES"
^DIPT(1000,"DXS",35,0)="NO"
^DIPT(1000,"DXS",35,1)="YES"
^DIPT(1000,"DXS",36,0)="NO"
^DIPT(1000,"DXS",36,1)="YES"
^DIPT(1000,"DXS",37,0)="NO"
^DIPT(1000,"DXS",37,1)="YES"
^DIPT(1000,"DXS",38,0)="NO"
^DIPT(1000,"DXS",38,1)="YES"
^DIPT(1000,"DXS",39,0)="NO"
^DIPT(1000,"DXS",39,1)="YES"
^DIPT(1000,"DXS",40,0)="NO"
^DIPT(1000,"DXS",40,1)="YES"
^DIPT(1000,"DXS",41,0)="NO"
^DIPT(1000,"DXS",41,1)="YES"
^DIPT(1000,"DXS",42,0)="NO"
^DIPT(1000,"DXS",42,1)="YES"
^DIPT(1000,"DXS",43,0)="NO"
^DIPT(1000,"DXS",43,1)="YES"
^DIPT(1000,"DXS",44,0)="NO"
^DIPT(1000,"DXS",44,1)="YES"
^DIPT(1000,"DXS",45,0)="NO"
^DIPT(1000,"DXS",45,1)="YES"
^DIPT(1000,"DXS",46,0)="NO"
^DIPT(1000,"DXS",46,1)="YES"
^DIPT(1000,"DXS",47,0)="NO"
^DIPT(1000,"DXS",47,1)="YES"
^DIPT(1000,"DXS",48,0)="NO"
^DIPT(1000,"DXS",48,1)="YES"
^DIPT(1000,"DXS",49,0)="NO"
^DIPT(1000,"DXS",49,1)="YES"
^DIPT(1000,"DXS",50,0)="NO"
^DIPT(1000,"DXS",50,1)="YES"
^DIPT(1000,"DXS",51,0)="NO"
^DIPT(1000,"DXS",51,1)="YES"
^DIPT(1000,"DXS",52,0)="NO"
^DIPT(1000,"DXS",52,1)="YES"
^DIPT(1000,"DXS",53,0)="NO"
^DIPT(1000,"DXS",53,1)="YES"
^DIPT(1000,"DXS",54,0)="NO"
^DIPT(1000,"DXS",54,1)="YES"
^DIPT(1000,"DXS",55,0)="NO"
^DIPT(1000,"DXS",55,1)="YES"
^DIPT(1000,"DXS",56,0)="NO"
^DIPT(1000,"DXS",56,1)="YES"
^DIPT(1000,"DXS",57,0)="NO"
^DIPT(1000,"DXS",57,1)="YES"
^DIPT(1000,"DXS",58,0)="NO"
^DIPT(1000,"DXS",58,1)="YES"
^DIPT(1000,"F",1)="""Patient History"";Y1;C1~""Head,Eyes,Ears,Nose,Mouth:"";S2;C1~""BLURRED VISION:"";C1;X~2;C34;X~""DRY EYES:"";C1;X~4;C34;X~""Musculosketal:"";C40;X~"
^DIPT(1000,"F",2)="""RINGING IN EARS:"";C1;X~14;C34;X~""STIFF IN THE MORNING HOW LONG:"";C40;X~35;C72;R2;X~""HEARING DIFFICULTIES:"";C1;X~8;C34;X~""JOINT PAIN:"";C40;X~36;C72;X~"
^DIPT(1000,"F",3)="""MOUTH SORES:"";C1;X~12;C34;X~""JOINT SWELLING:"";C40;X~37;C72;X~""DRY MOUTH:"";C1;X~5;C34;X~""LOW BACK PAIN:"";C40;X~38;C72;X~""LOSS,CHANGE IN TASTE:"";C1;X~"
^DIPT(1000,"F",4)="10;C34;X~""MUSCLE PAIN:"";C40;X~39;C72;X~""HEADACHE:"";C1;X~7;C34;X~""NECK PAIN:"";C40;X~40;C72;X~""DIZZINESS:"";C1;X~3;C34;X~""NUMBNESS OR TINGLING:"";C40;X~"
^DIPT(1000,"F",5)="42;C72;X~""FEVER:"";C1;X~6;C34;X~""SWELLING OF LEGS:"";C40;X~43;C72;X~""NIGHT SWEATS:"";C1;X~9.1;C34;X~""WEAKNESS OF MUSCLES:"";C40;X~44;C72;X~"
^DIPT(1000,"F",6)="""Chest, Lung, and Heart:"";C1;S2;X~""Neurologic and Psychologic:"";C40;X~""CHEST PAIN/TAKING DEEP BREATH:"";C1;X~16;C34;X~""DEPRESSION:"";C40;X~45;C72;X~"
^DIPT(1000,"F",7)="""SHORTNESS OF BREATH:"";C1;X~17;C34;X~""INSOMNIA:"";C40;X~46;C72;X~""WHEEZING(ASTHMA):"";C1;X~18;C34;X~""NERVOUSNESS:"";C40;X~47;C72;X~"
^DIPT(1000,"F",8)="""SEIZURES OR CONVULSION:"";C40;X~48;C72;X~""TIREDNESS:"";C40;X~49;C72;X~""TROUBLE REMEMBERING/THINKING:"";C40;X~50;C72;X~""Gastrointestinal Tract:"";C1;S2;X~"
^DIPT(1000,"F",9)="""Skin:"";C40;X~""LOSS OF APPETITE:"";C1;X~27;C34;X~""EASY BRUISING:"";C40;X~51;C72;X~""DIFFICULTY SWALLOWING:"";C1;X~22;C34;X~""FACIAL SKIN TIGHTENING:"";C40;X~"
^DIPT(1000,"F",10)="52;C72;X~""NAUSEA:"";C1;X~610;C34;X~""HIVES OR WELTS:"";C40;X~53;C72;X~""HEARTBURN,INDIGESTION,BELCHING:"";C1;X~24;C34;X~""LOSS OF HAIR:"";C40;X~11;C72;X~"
^DIPT(1000,"F",11)="""VOMITING:"";C1;X~30;C34;X~""ITCHING:"";C40;X~54;C72;X~""PAIN/DISCOMFORT UPPER ABDOMEN:"";C1;X~29;C34;X~""RASH:"";C40;X~55;C72;X~""JAUNDICE:"";C1;X~25;C34;X~"
^DIPT(1000,"F",12)="""RASH OVER CHEEKS:"";C40;X~56;C72;X~""LIVER:"";C1;X~19.1;R29;X~""SKIN COLOR CHANGE IN FINGERS:"";C40;X~57;C72;X~""PAIN/CRAMPS LOWER ABDOMEN:"";C1;X~28;C34;X~"
^DIPT(1000,"F",13)="""SUN SENSITIVITY:"";C40;X~58;C72;X~""DIARRHEA(FREQUENT,WATERY):"";C1;X~21;C34;X~""CONSTIPATION:"";C1;X~20;C34;X~""BLK/TARRY STOOL(NOT FROM IRON:"";C1;X~"
^DIPT(1000,"F",14)="19;C34;X~""Genitourinary:"";C1;S2;X~""Blood:"";C40;X~""URINE PROTEIN:"";C1;X~31.1;C34;X~""LOW WHITE BLOOD COUNT:"";C40;X~350;C72;X~""BLOOD IN URINE:"";C1;X~"
^DIPT(1000,"F",15)="31;C34;X~""LOW PLATELETS:"";C40;X~351;C72;X~""BURNING ON URINATION:"";C1;X~32;C34;X~""LOW RED BLOOD COUNT:"";C40;X~352;C72;X~""KIDNEY PROBLEMS:"";C1;X~"
^DIPT(1000,"F",16)="31.5;R19;X~""Females Only:"";C1;S2;X~""PREGNANT:"";C1;X~33;C34;X~""Males Only:"";C40;X~""DISCHARGE FROM PENIS:"";C40;X~59;C72;X~""Other:"";C1;X~"
^DIPT(1000,"F",17)="""IMPOTENCE:"";C40;X~60;C72;X~""OTHER:"";C1;X~31.8;R30;X~""RASH/ULCERS ON PENIS:"";C40;X~61;C72;X~"
^DIPT(1000,"H")="@"
^DIPT(1000,"IOM")="80"
^DIPT(1000,"LAST")="2"
^DIPT(1000,"ROU")="^MCARORH"
^DIPT(1000,"ROUOLD")="MCARORH"
^DIPT(1000,"SUB")="1"
^DIPT(1001,0)="MCAROGA^2960513.1056^^699^^^2960513"
^DIPT(1001,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1001,"DXS",1,9.2)="S X=""FINDINGS"""
^DIPT(1001,"DXS",2,9)="F ZI=0:0 S ZI=$O(^MCAR(699,D0,30,D1,1,ZI)) Q:ZI'?1N.N S ZZ=^(ZI,0) W "", "",^MCAR(699.57,ZZ,0)"
^DIPT(1001,"DXS",3,9.2)="S DIP(1)=$S($D(^MCAR(699,D0,30,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4)'="""",DIP(2)=X S X=""Measurement: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1001,"DXS",4,9)="I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,4) W !,?2,""Common Bile Duct Size(mm): "",$P(^(15),U,4)"
^DIPT(1001,"DXS",5,9)="I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,5) W !,?2,""Pancreatic Duct Size(mm): "",$P(^(15),U,5)"
^DIPT(1001,"DXS",6,9)="X DXS(6,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1001,"DXS",6,9.2)="S X=""PROCEDURE SUMMARY"""
^DIPT(1001,"DXS",7,9)="X DXS(7,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1001,"DXS",7,9.2)="S X=""DIAGNOSIS(ES)"""
^DIPT(1001,"DXS",8,9.2)="S DIP(1)=$S($D(^MCAR(699,D0,19)):^(19),1:"""") S X=$P(DIP(1),U,2)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""Revised: ""_$P(DIP(1),U,2)"
^DIPT(1001,"DXS",9,9)="X DXS(9,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1001,"DXS",9,9.2)="S X=""MEDS & INSTRUCTIONS"""
^DIPT(1001,"DXS",10,1)="REQUIRED NO THERAPY"
^DIPT(1001,"DXS",10,2)="REQUIRED TRANSFUSION"
^DIPT(1001,"DXS",10,3)="REQUIRED MEDICAL THERAPY"
^DIPT(1001,"DXS",10,4)="REQUIRED ENDOSCOPIC THERAPY"
^DIPT(1001,"DXS",10,5)="REQUIRED SURGICAL THERAPY"
^DIPT(1001,"DXS",10,6)="RESULTED IN DEATH"
^DIPT(1001,"DXS",11,1)="VISIT FOLLOW-UP"
^DIPT(1001,"DXS",11,2)="ENDOSCOPY FOLLOW-UP"
^DIPT(1001,"DXS",11,3)="TEST (LAB OR XRAY)"
^DIPT(1001,"DXS",11,4)="CONSULT OTHER SPECIALIST"
^DIPT(1001,"DXS",11,5)="RETURN TO REFERRING MD"
^DIPT(1001,"DXS",11,6)="ADMIT TO HOSPITAL"
^DIPT(1001,"DXS",11,7)="DISCHARGED TO HOME"
^DIPT(1001,"DXS",11,8)="DISCHARGED TO WARD"
^DIPT(1001,"DXS",11,9)="OTHER"
^DIPT(1001,"F",1)="X DXS(1,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""FINDINGS"")""~50,""LOCATION: "";C3;S~50,.01~50,""DESCRIPTION: "";C3~50,2;C17;X~"
^DIPT(1001,"F",2)="50,X DXS(2,9);Z;""F ZI=0:0 S ZI=$O(^MCAR(699,D0,30,D1,1,ZI)) Q:ZI'?1N.N S ZZ=^(ZI,0) W "", "",^MCAR(699.57,ZZ,0)""~50,K ZI,ZZ;Z;""K ZI,ZZ""~"
^DIPT(1001,"F",3)="50,X DXS(3,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;C3;Z;""$S(#4'="""":""Measurement: "",1:"""")""~50,4;X~50,""Technique: "";C3~50,5,.01;C17;X~"
^DIPT(1001,"F",4)="50,""Impression: "";C3~50,6;C17;X~50,D TECH^MCARGS;Z;""D TECH^MCARGS""~"
^DIPT(1001,"F",5)="X DXS(4,9);Z;""I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,4) W !,?2,""Common Bile Duct Size(mm): "",$P(^(15),U,4)""~"
^DIPT(1001,"F",6)="X DXS(5,9);Z;""I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,5) W !,?2,""Pancreatic Duct Size(mm): "",$P(^(15),U,5)""~"
^DIPT(1001,"F",7)="X DXS(6,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE SUMMARY"")""~""Results:"";C3~28,.01;C12;X~""Complications: "";C3~30,.01;C18;X~30,"", "";X~30,1;X~"
^DIPT(1001,"F",8)="39,""Disposition: "";C3~39,.01;C21;X~39,""Date: "";C13~39,1;X;C21~39,""Reason: "";C13~39,2;C21;X~X DXS(7,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""DIAGNOSIS(ES)"")""~"
^DIPT(1001,"F",9)="""Primary: "";C3~204;C18;X~205;C18~41,""Secondary: "";C3~41,.01;C18;X~41,1;C18;X~""Supplement: "";C3~37.1,.01;C18;X~"
^DIPT(1001,"F",10)="X DXS(8,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C3;X;Z;""$S(#38="""":"""",1:""Revised: ""_#38)""~"
^DIPT(1001,"F",11)="X DXS(9,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""MEDS & INSTRUCTIONS"")""~""Prescriptions: "";C3~40,.01;C18;X~40,"" "";X~40,1;X~""Instructions: "";C3~203,.01;X;W65~"
^DIPT(1001,"F",12)="""PHYSICIANS' SIGNATURE ____________________________________"";C3;S2~S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1001,"H")="@"
^DIPT(1001,"IOM")="80"
^DIPT(1001,"LAST")="1"
^DIPT(1001,"ROU")="^MCAROGA"
^DIPT(1001,"ROUOLD")="MCAROGA"
^DIPT(1001,"SUB")="1"
^DIPT(1002,0)="MCAROP^2960513.1101^^699^^^2960513"
^DIPT(1002,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(1002,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1002,"DXS",2,9.2)="S X=""HISTORY"""
^DIPT(1002,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,5,0)):$P(^(0),U,3),1:"""")"
^DIPT(1002,"DXS",4,9)="X DXS(4,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,3)_"":"",2),$C(59),1) S D0=I(0,0)"
^DIPT(1002,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,3,0)):$P(^(0),U,3),1:"""")"
^DIPT(1002,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,4,0)):$P(^(0),U,3),1:"""")"
^DIPT(1002,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""")"
^DIPT(1002,"DXS",7,9)="X DXS(7,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1002,"DXS",7,9.2)="S X=""INDICATION FOR PROCEDURE"""
^DIPT(1002,"DXS",8,9)="X DXS(8,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1002,"DXS",8,9.2)="S X=""PROCEDURE AND PREPARATION"""
^DIPT(1002,"DXS",9,9)="X DXS(9,9.3) S DIP(102)=$S($D(^MCAR(699,D0,34,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(699.48,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1002,"DXS",9,9.2)="S I(0)=""^MCAR(699,"",J(0)=699 F D=0:0 S (D,D1)=$O(^MCAR(699,D0,34,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(699.48,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(1002,"DXS",9,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(9,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(699,D0,34,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(1002,"DXS",10,1)="ELECTIVE"
^DIPT(1002,"DXS",10,2)="URGENT"
^DIPT(1002,"DXS",10,3)="EMERGENCY"
^DIPT(1002,"DXS",11,"IM")="INTRAMUSCULAR"
^DIPT(1002,"DXS",11,"IV")="INTRAVENOUS"
^DIPT(1002,"DXS",11,"LA")="LARYNGEAL"
^DIPT(1002,"DXS",11,"N/P")="NASOPHARYNGEAL"
^DIPT(1002,"DXS",11,"SQ")="SUBCUTANEOUS"
^DIPT(1002,"DXS",11,"TR")="TRACHEAL"
^DIPT(1002,"F",1)="""Procedure: "";C2~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;X;Z;""PROCEDURE:PRINT NAME""~""Ward/Clinic: "";C45~9;X;L20~""Bronchoscopist: "";C2~"
^DIPT(1002,"F",2)="6;C19;X~""Fellow: "";C45~200;X~""2nd Fellow: "";C45~201;X~"
^DIPT(1002,"F",3)="S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(1002,"F",4)="X DXS(2,9) W X K DIP;C1;X;S;Z;""UNDERLINE(""HISTORY"")""~""Glaucoma: "";C3~"
^DIPT(1002,"F",5)="X DXS(3,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,5)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:GLAUCOMA""~"
^DIPT(1002,"F",6)="""Bleeding Disorder: "";C45~X DXS(4,9) W X K DIP;X;Z;""MEDICAL PATIENT:HISTORY OF BLEEDING DISORDER""~""Valvular Heart Disease: "";C3~"
^DIPT(1002,"F",7)="X DXS(5,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,4)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:VALVULAR HEART DISEASE""~"
^DIPT(1002,"F",8)="""Comments:"";C3~X DXS(6,9.2) S X=$P(DIP(101),U,6) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:HISTORY COMMENTS""~D ^MCARGEA;Z;""D ^MCARGEA""~"
^DIPT(1002,"F",9)="X DXS(7,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""INDICATION FOR PROCEDURE"")""~2,.01;C3~""Comment: "";C3~3;C13;W;X~D IND^MCARGS;Z;""D IND^MCARGS""~"
^DIPT(1002,"F",10)="X DXS(8,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE AND PREPARATION"")""~""Where Performed: "";C3~8;X~""Start - End: "";C45~"
^DIPT(1002,"F",11)="S DIP(1)=$S($D(^MCAR(699,D0,9)):^(9),1:"""") S X=$P(DIP(1),U,1)_"" - ""_$P(DIP(1),U,2) W X K DIP;X;Z;""TIME STARTED_"" - ""_TIME COMPLETED""~""Urgency: "";C3~"
^DIPT(1002,"F",12)="12;X~""Instrument: "";C3~X DXS(9,9) W X K DIP;X;m;Z;""INSTRUMENT:INSTRUMENT""~""Medications Used:"";C3;S~5,.01;C22;X~5,"" "";X~"
^DIPT(1002,"F",13)="5,S DIP(1)=$S($D(^MCAR(699,D0,8,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3)_"" mg "" W X K DIP;X;Z;""TOTAL DOSE (in mg.)_"" mg """"~5,3;X~"
^DIPT(1002,"H")="@"
^DIPT(1002,"IOM")="80"
^DIPT(1002,"LAST")=""
^DIPT(1002,"ROU")="^MCAROP"
^DIPT(1002,"ROUOLD")="MCAROP"
^DIPT(1002,"SUB")="1"
^DIPT(1003,0)="MCAROPE^2960513.1103^^699^^^2960513"
^DIPT(1003,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1003,"DXS",1,9.2)="S X=""FINDINGS"""
^DIPT(1003,"DXS",2,9)="F ZI=0:0 S ZI=$O(^MCAR(699,D0,30,D1,1,ZI)) Q:ZI'?1N.N S ZZ=^(ZI,0) W "", "",^MCAR(699.57,ZZ,0)"
^DIPT(1003,"DXS",3,9.2)="S DIP(1)=$S($D(^MCAR(699,D0,30,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4)'="""",DIP(2)=X S X=""Measurement: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1003,"DXS",4,9)="X DXS(4,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1003,"DXS",4,9.2)="S X=""PROCEDURE SUMMARY"""
^DIPT(1003,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1003,"DXS",5,9.2)="S X=""DIAGNOSIS(ES)"""
^DIPT(1003,"DXS",6,9.2)="S DIP(1)=$S($D(^MCAR(699,D0,19)):^(19),1:"""") S X=$P(DIP(1),U,2)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X=""Revised: ""_$P(DIP(1),U,2)"
^DIPT(1003,"DXS",7,9)="X DXS(7,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1003,"DXS",7,9.2)="S X=""MEDS & INSTRUCTIONS"""
^DIPT(1003,"DXS",8,1)="REQUIRED NO THERAPY"
^DIPT(1003,"DXS",8,2)="REQUIRED TRANSFUSION"
^DIPT(1003,"DXS",8,3)="REQUIRED MEDICAL THERAPY"
^DIPT(1003,"DXS",8,4)="REQUIRED ENDOSCOPIC THERAPY"
^DIPT(1003,"DXS",8,5)="REQUIRED SURGICAL THERAPY"
^DIPT(1003,"DXS",8,6)="RESULTED IN DEATH"
^DIPT(1003,"DXS",9,1)="VISIT FOLLOW-UP"
^DIPT(1003,"DXS",9,2)="ENDOSCOPY FOLLOW-UP"
^DIPT(1003,"DXS",9,3)="TEST (LAB OR XRAY)"
^DIPT(1003,"DXS",9,4)="CONSULT OTHER SPECIALIST"
^DIPT(1003,"DXS",9,5)="RETURN TO REFERRING MD"
^DIPT(1003,"DXS",9,6)="ADMIT TO HOSPITAL"
^DIPT(1003,"DXS",9,7)="DISCHARGED TO HOME"
^DIPT(1003,"DXS",9,8)="DISCHARGED TO WARD"
^DIPT(1003,"DXS",9,9)="OTHER"
^DIPT(1003,"F",1)="X DXS(1,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""FINDINGS"")""~50,""LOCATION: "";C3;S~50,.01~50,""DESCRIPTION: "";C3~50,2;C17;X~"
^DIPT(1003,"F",2)="50,X DXS(2,9);Z;""F ZI=0:0 S ZI=$O(^MCAR(699,D0,30,D1,1,ZI)) Q:ZI'?1N.N S ZZ=^(ZI,0) W "", "",^MCAR(699.57,ZZ,0)""~50,K ZI,ZZ;Z;""K ZI,ZZ""~"
^DIPT(1003,"F",3)="50,X DXS(3,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;C3;Z;""$S(#4'="""":""Measurement: "",1:"""")""~50,4;X~50,""Technique: "";C3~50,5,.01;C17;X~"
^DIPT(1003,"F",4)="50,""Impression: "";C3~50,6;C17;X~X DXS(4,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE SUMMARY"")""~""Results:"";C3~28,.01;C12;X~""Complications: "";C3~"
^DIPT(1003,"F",5)="30,.01;C18;X~30,"", "";X~30,1;X~39,""Disposition: "";C3~39,.01;C21;X~39,""Date: "";C13~39,1;X;C21~39,""Reason: "";C13~39,2;C21;X~"
^DIPT(1003,"F",6)="X DXS(5,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""DIAGNOSIS(ES)"")""~""Primary: "";C3~204;C18;X~205;C18~41,""Secondary: "";C3~41,.01;C18;X~41,1;C18;X~"
^DIPT(1003,"F",7)="""Supplement: "";C3~37.1,.01;C18;X~X DXS(6,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C3;X;Z;""$S(#38="""":"""",1:""Revised: ""_#38)""~"
^DIPT(1003,"F",8)="X DXS(7,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""MEDS & INSTRUCTIONS"")""~""Prescriptions: "";C3~40,.01;C18;X~40,"" "";X~40,1;X~""Instructions: "";C3~203,.01;X;W65~"
^DIPT(1003,"F",9)="S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1003,"H")="@"
^DIPT(1003,"IOM")="80"
^DIPT(1003,"LAST")="1"
^DIPT(1003,"ROU")="^MCAROPE"
^DIPT(1003,"ROUOLD")="MCAROPE"
^DIPT(1003,"SUB")="1"
^DIPT(1004,0)="MCRHHAQ^2960513.1243^^701^^^2960513"
^DIPT(1004,"DXS",1,0)="ONGOING"
^DIPT(1004,"DXS",1,1)="LOSS OF FUNDS"
^DIPT(1004,"DXS",1,2)="DEAD"
^DIPT(1004,"DXS",1,3)="WITHDRAWN FROM "
^DIPT(1004,"DXS",1,4)="DX CHANGED"
^DIPT(1004,"DXS",1,5)="NON-PART REFUSE"
^DIPT(1004,"DXS",1,6)="NON-PART NO RES"
^DIPT(1004,"DXS",1,7)="TEMP OUT OF STU"
^DIPT(1004,"DXS",1,8)="STEY RE-ENTRY"
^DIPT(1004,"DXS",2,1)="COHORT I"
^DIPT(1004,"DXS",2,2)="COHORT II"
^DIPT(1004,"DXS",2,3)="COHORT III"
^DIPT(1004,"DXS",2,4)="COHORT IV"
^DIPT(1004,"DXS",2,5)="COHORT V"
^DIPT(1004,"DXS",2,6)="COHORT VI"
^DIPT(1004,"DXS",2,7)="COHORT VII"
^DIPT(1004,"DXS",2,8)="COHORT VIII"
^DIPT(1004,"F",1)="""HEALTH ASSESSMENT"";C1~""Questionnaire date:"";C1;S~602;C24;L15;X~""Study status:"";C1~605;C24;L15;X~""Drug Study:"";C1~606;C24;L15;X~"
^DIPT(1004,"F",2)="""Dressing and Grooming:"";C1~302;C24;L15;X~""Arising:"";C1~303;C24;L15;X~""Eating:"";C1~304;C24;L15;X~""Walking:"";C1~305;C24;L15;X~""Hygiene:"";C1~"
^DIPT(1004,"F",3)="306;C24;L15;X~""Reach:"";C1~307;C24;L15;X~""Activities:"";C1~309;C24;L15;X~""Pain Scale:"";C1~300;C24;L15;X~"" "";Y-1;C1~"
^DIPT(1004,"H")="@"
^DIPT(1004,"IOM")="80"
^DIPT(1004,"LAST")=""
^DIPT(1004,"ROU")="^MCARORQ"
^DIPT(1004,"ROUOLD")="MCARORQ"
^DIPT(1004,"SUB")="1"
^DIPT(1005,0)="MCRHDEATH^2960513.1242^^701^^^2960513"
^DIPT(1005,"DXS",1,0)="CLINIC ALIVE"
^DIPT(1005,"DXS",1,1)="CLINIC LOST"
^DIPT(1005,"DXS",1,2)="CLINIC DEAD"
^DIPT(1005,"DXS",2,0)="NO"
^DIPT(1005,"DXS",2,1)="YES"
^DIPT(1005,"DXS",3,1)="NOT RHEUM DIS"
^DIPT(1005,"DXS",3,2)="RHEUM DIS"
^DIPT(1005,"DXS",3,3)="RHEUM DIS SURGERY"
^DIPT(1005,"DXS",3,4)="RHEUM DIS DRUG TOXICITY"
^DIPT(1005,"DXS",4,0)="HAQ"
^DIPT(1005,"DXS",4,1)="UNMARKED, RDC VI, OR R"
^DIPT(1005,"DXS",4,2)="RDC VIII"
^DIPT(1005,"DXS",4,3)="RDC IX"
^DIPT(1005,"DXS",4,4)="RDC X"
^DIPT(1005,"DXS",4,5)="RDC XI (1985)"
^DIPT(1005,"DXS",4,6)="DEATH INFORMATION"
^DIPT(1005,"DXS",4,7)="DISCHARGE SUMMARY"
^DIPT(1005,"F",1)="""DEATH - ADMIN."";C1~""Lost or death status:"";C1;S~318;C24;L25;X~""Death date:"";C1~319;C24;L25;X~""Disease activity:"";C1~297;C24;L25;X~"
^DIPT(1005,"F",2)="""Autopsy available:"";C1~321;C24;L25;X~""Cause of Death:"";C1~322;C24;L25;X~""Chart type:"";C1~313;C24;L25;X~""Observer:"";C1~314;C24;L25;X~""DEC number:"";C1~"
^DIPT(1005,"F",3)="316;C24;L25;X~""Visit number:"";C1~317;C24;L25;X~"" "";Y-1;C1~"
^DIPT(1005,"H")="@"
^DIPT(1005,"IOM")="80"
^DIPT(1005,"LAST")=""
^DIPT(1005,"ROU")="^MCARORD"
^DIPT(1005,"ROUOLD")="MCARORD"
^DIPT(1005,"SUB")="1"
^DIPT(1006,0)="MCRHNARR^2960513.1248^^701^^^2960513"
^DIPT(1006,"F",2)="""NARRATIVE HISTORY"";C1~"" "";C1~611,.01;C1;S~"" "";Y-1;C1~"
^DIPT(1006,"H")="@"
^DIPT(1006,"IOM")="80"
^DIPT(1006,"LAST")=""
^DIPT(1006,"ROU")="^MCARORN"
^DIPT(1006,"ROUOLD")="MCARORN"
^DIPT(1006,"SUB")="1"
^DIPT(1008,0)="MCRHPHYS1^2960513.1254^^701^^^2960513"
^DIPT(1008,"DXS",1,0)="NONE"
^DIPT(1008,"DXS",1,1)="MILD"
^DIPT(1008,"DXS",1,2)="MODERATE"
^DIPT(1008,"DXS",1,3)="SEVERE"
^DIPT(1008,"DXS",2,0)="NONE"
^DIPT(1008,"DXS",2,1)="MILD"
^DIPT(1008,"DXS",2,2)="MODERATE"
^DIPT(1008,"DXS",2,3)="SEVERE"
^DIPT(1008,"DXS",3,0)="NONE"
^DIPT(1008,"DXS",3,1)="MILD"
^DIPT(1008,"DXS",3,2)="MODERATE"
^DIPT(1008,"DXS",3,3)="SEVERE"
^DIPT(1008,"DXS",4,0)="NONE"
^DIPT(1008,"DXS",4,1)="MILD"
^DIPT(1008,"DXS",4,2)="MODERATE"
^DIPT(1008,"DXS",4,3)="SEVERE"
^DIPT(1008,"DXS",5,0)="NONE"
^DIPT(1008,"DXS",5,1)="MILD"
^DIPT(1008,"DXS",5,2)="MODERATE"
^DIPT(1008,"DXS",5,3)="SEVERE"
^DIPT(1008,"DXS",6,0)="NONE"
^DIPT(1008,"DXS",6,1)="MILD"
^DIPT(1008,"DXS",6,2)="MODERATE"
^DIPT(1008,"DXS",6,3)="SEVERE"
^DIPT(1008,"DXS",7,0)="NONE"
^DIPT(1008,"DXS",7,1)="MILD"
^DIPT(1008,"DXS",7,2)="MODERATE"
^DIPT(1008,"DXS",7,3)="SEVERE"
^DIPT(1008,"DXS",8,0)="NONE"
^DIPT(1008,"DXS",8,1)="MILD"
^DIPT(1008,"DXS",8,2)="MODERATE"
^DIPT(1008,"DXS",8,3)="SEVERE"
^DIPT(1008,"DXS",9,0)="NONE"
^DIPT(1008,"DXS",9,1)="MILD"
^DIPT(1008,"DXS",9,2)="MODERATE"
^DIPT(1008,"DXS",9,3)="SEVERE"
^DIPT(1008,"DXS",10,0)="NONE"
^DIPT(1008,"DXS",10,1)="MILD"
^DIPT(1008,"DXS",10,2)="MODERATE"
^DIPT(1008,"DXS",10,3)="SEVERE"
^DIPT(1008,"DXS",11,0)="NONE"
^DIPT(1008,"DXS",11,1)="MILD"
^DIPT(1008,"DXS",11,2)="MODERATE"
^DIPT(1008,"DXS",11,3)="SEVERE"
^DIPT(1008,"DXS",12,0)="NONE"
^DIPT(1008,"DXS",12,1)="MILD"
^DIPT(1008,"DXS",12,2)="MODERATE"
^DIPT(1008,"DXS",12,3)="SEVERE"
^DIPT(1008,"DXS",13,0)="NONE"
^DIPT(1008,"DXS",13,1)="MILD"
^DIPT(1008,"DXS",13,2)="MODERATE"
^DIPT(1008,"DXS",13,3)="SEVERE"
^DIPT(1008,"DXS",14,0)="NONE"
^DIPT(1008,"DXS",14,1)="MILD"
^DIPT(1008,"DXS",14,2)="MODERATE"
^DIPT(1008,"DXS",14,3)="SEVERE"
^DIPT(1008,"DXS",15,0)="NONE"
^DIPT(1008,"DXS",15,1)="MILD"
^DIPT(1008,"DXS",15,2)="MODERATE"
^DIPT(1008,"DXS",15,3)="SEVERE"
^DIPT(1008,"DXS",16,0)="NONE"
^DIPT(1008,"DXS",16,1)="MILD"
^DIPT(1008,"DXS",16,2)="MODERATE"
^DIPT(1008,"DXS",16,3)="SEVERE"
^DIPT(1008,"DXS",17,0)="NONE"
^DIPT(1008,"DXS",17,1)="MILD"
^DIPT(1008,"DXS",17,2)="MODERATE"
^DIPT(1008,"DXS",17,3)="SEVERE"
^DIPT(1008,"DXS",18,0)="NONE"
^DIPT(1008,"DXS",18,1)="MILD"
^DIPT(1008,"DXS",18,2)="MODERATE"
^DIPT(1008,"DXS",18,3)="SEVERE"
^DIPT(1008,"DXS",19,0)="NONE"
^DIPT(1008,"DXS",19,1)="MILD"
^DIPT(1008,"DXS",19,2)="MODERATE"
^DIPT(1008,"DXS",19,3)="SEVERE"
^DIPT(1008,"DXS",20,0)="NONE"
^DIPT(1008,"DXS",20,1)="MILD"
^DIPT(1008,"DXS",20,2)="MODERATE"
^DIPT(1008,"DXS",20,3)="SEVERE"
^DIPT(1008,"DXS",21,0)="NONE"
^DIPT(1008,"DXS",21,1)="MILD"
^DIPT(1008,"DXS",21,2)="MODERATE"
^DIPT(1008,"DXS",21,3)="SEVERE"
^DIPT(1008,"DXS",22,0)="NONE"
^DIPT(1008,"DXS",22,1)="MILD"
^DIPT(1008,"DXS",22,2)="MODERATE"
^DIPT(1008,"DXS",22,3)="SEVERE"
^DIPT(1008,"DXS",23,0)="NONE"
^DIPT(1008,"DXS",23,1)="MILD"
^DIPT(1008,"DXS",23,2)="MODERATE"
^DIPT(1008,"DXS",23,3)="SEVERE"
^DIPT(1008,"DXS",24,0)="NONE"
^DIPT(1008,"DXS",24,1)="MILD"
^DIPT(1008,"DXS",24,2)="MODERATE"
^DIPT(1008,"DXS",24,3)="SEVERE"
^DIPT(1008,"DXS",25,0)="NORMAL"
^DIPT(1008,"DXS",25,1)="MILD"
^DIPT(1008,"DXS",25,2)="MODERATE"
^DIPT(1008,"DXS",25,3)="SEVERE"
^DIPT(1008,"DXS",26,0)="NONE"
^DIPT(1008,"DXS",26,1)="MILD"
^DIPT(1008,"DXS",26,2)="MODERATE"
^DIPT(1008,"DXS",26,3)="SEVERE"
^DIPT(1008,"DXS",27,0)="NONE"
^DIPT(1008,"DXS",27,1)="MILD"
^DIPT(1008,"DXS",27,2)="MODERATE"
^DIPT(1008,"DXS",27,3)="SEVERE"
^DIPT(1008,"DXS",28,0)="NONE"
^DIPT(1008,"DXS",28,1)="MILD"
^DIPT(1008,"DXS",28,2)="MODERATE"
^DIPT(1008,"DXS",28,3)="SEVERE"
^DIPT(1008,"DXS",29,0)="NONE"
^DIPT(1008,"DXS",29,1)="MILD"
^DIPT(1008,"DXS",29,2)="MODERATE"
^DIPT(1008,"DXS",29,3)="SEVERE"
^DIPT(1008,"DXS",30,0)="NONE"
^DIPT(1008,"DXS",30,1)="MILD"
^DIPT(1008,"DXS",30,2)="MODERATE"
^DIPT(1008,"DXS",30,3)="SEVERE"
^DIPT(1008,"DXS",31,0)="NONE"
^DIPT(1008,"DXS",31,1)="MILD"
^DIPT(1008,"DXS",31,2)="MODERATE"
^DIPT(1008,"DXS",31,3)="SEVERE"
^DIPT(1008,"DXS",32,0)="NONE"
^DIPT(1008,"DXS",32,1)="MILD"
^DIPT(1008,"DXS",32,2)="MODERATE"
^DIPT(1008,"DXS",32,3)="SEVERE"
^DIPT(1008,"DXS",33,0)="NONE"
^DIPT(1008,"DXS",33,1)="MILD"
^DIPT(1008,"DXS",33,2)="MODERATE"
^DIPT(1008,"DXS",33,3)="SEVERE"
^DIPT(1008,"DXS",34,0)="NONE"
^DIPT(1008,"DXS",34,1)="MILD"
^DIPT(1008,"DXS",34,2)="MODERATE"
^DIPT(1008,"DXS",34,3)="SEVERE"
^DIPT(1008,"DXS",35,0)="NONE"
^DIPT(1008,"DXS",35,1)="MILD"
^DIPT(1008,"DXS",35,2)="MODERATE"
^DIPT(1008,"DXS",35,3)="SEVERE"
^DIPT(1008,"DXS",36,0)="NONE"
^DIPT(1008,"DXS",36,1)="MILD"
^DIPT(1008,"DXS",36,2)="MODERATE"
^DIPT(1008,"DXS",36,3)="SEVERE"
^DIPT(1008,"DXS",37,0)="NONE"
^DIPT(1008,"DXS",37,1)="MILD"
^DIPT(1008,"DXS",37,2)="MODERATE"
^DIPT(1008,"DXS",37,3)="SEVERE"
^DIPT(1008,"DXS",38,0)="NONE"
^DIPT(1008,"DXS",38,1)="MILD"
^DIPT(1008,"DXS",38,2)="MODERATE"
^DIPT(1008,"DXS",38,3)="SEVERE"
^DIPT(1008,"DXS",39,0)="NONE"
^DIPT(1008,"DXS",39,1)="MILD"
^DIPT(1008,"DXS",39,2)="MODERATE"
^DIPT(1008,"DXS",39,3)="SEVERE"
^DIPT(1008,"DXS",40,0)="NONE"
^DIPT(1008,"DXS",40,1)="MILD"
^DIPT(1008,"DXS",40,2)="MODERATE"
^DIPT(1008,"DXS",40,3)="SEVERE"
^DIPT(1008,"DXS",41,0)="NONE"
^DIPT(1008,"DXS",41,1)="MILD"
^DIPT(1008,"DXS",41,2)="MODERATE"
^DIPT(1008,"DXS",41,3)="SEVERE"
^DIPT(1008,"F",1)="""Physical Examination"";C1;S2;X~""General:"";C1;S2;X~""LYMPH NODE ENLARGEMENT:"";C40;X~77;C70;X~""UVEITIS/IRITIS:"";C1;X~67.5;C30;X~"
^DIPT(1008,"F",2)="""MUSCLE TENDERNESS:"";C40;X~78;C70;X~""CONJUNCTIVITIS/EPISCLERITIS:"";C1;X~67.7;C30;X~""MUSCLE WEAKNESS-DISTAL:"";C40;X~79;C70;X~""CATARACT:"";C1;X~68;C30;X~"
^DIPT(1008,"F",3)="""MUSCLE WEAKNESS-PROXIMAL:"";C40;X~82;C70;X~""ORAL ULCERS:"";C1;X~70;C30;X~""MUSCLE ATROPHY"";C40;X~83;C70;X~""RALES:"";C1;X~71;C30;X~""PSYCHOSIS:"";C40;X~"
^DIPT(1008,"F",4)="84;C70;X~""PLEURAL RUB/"";C1;X~""CLINICAL PLEURISY:"";C1;X~72;C30;X~""ORGANIC BRAIN SYNDROME:"";C40;X~85;C70;X~""PLEURAL EFFUSION:"";C1;X~73;C30;X~"
^DIPT(1008,"F",5)="""MOTOR NEUROPATHY:"";C40;X~86;C70;X~""PERICARDIAL RUB/PERICARDITIS:"";C1;X~74;C30;X~""SENSORY NEUROPATHY:"";C40;X~87;C70;X~""Skin:"";C1;X;S2~"
^DIPT(1008,"F",6)="""CUTANEOUS VASCULTITIS:"";C40;X~99;C70;X~""RASH-MALAR:"";C1;X~89;C30;X~""PALPABLE PUPURA:"";C40;X~93;C70;X~""RASH-DISCOID:"";C1;X~91;C30;X~"
^DIPT(1008,"F",7)="""SKIN ULCERS:"";C40;X~105;C70;X~""RASH-JRA:"";C1;X~92;C30;X~""ERYTHEMA NODOSUM:"";C40;X~106;C70;X~""RASH-SLE,NON-MALAR:"";C1;X~89.1;C30;X~"
^DIPT(1008,"F",8)="""PERIUNGAL ERYTHEMA:"";C40;X~100;C70;X~""RASH-OTHER:"";C1;X~89.2;C30;X~""HELIOTROPE EYELIDS:"";C40;X~88;C70;X~""KNUCKLE ERYTHEMA:"";C40;X~102;C70;X~"
^DIPT(1008,"F",9)="""TELANGIECTASIS:"";C1;X~98;C30;X~""SUBCUTANEOUS CALCIFICATIONS:"";C40;X~112.5;C70;X~""SCLERODACTYLY:"";C1;X~94;C30;X~""KERATODERMIA BLENNORRHAGICA:"";C40;X~"
^DIPT(1008,"F",10)="101;C70;X~""SCLERODERMA-EXTREMITY:"";C1;X~95;C30;X~""DACTYLITIS:"";C40;X~110;C70;X~""SCLERODERMA-GENERALIZED:"";C1;X~96;C30;X~""NAIL PITTING:"";C40;X~"
^DIPT(1008,"F",11)="104;C70;X~""MORPHEA:"";C1;X~97;C30;X~""PSORIASIS:"";C40;X~90;C70;X~""DIGITAL ULCERS:"";C1;X~103;C30;X~""HEEL PAIN:"";C40;X~114;C70;X~"
^DIPT(1008,"H")="@"
^DIPT(1008,"IOM")="80"
^DIPT(1008,"LAST")="1"
^DIPT(1008,"ROU")="^MCARORP"
^DIPT(1008,"ROUOLD")="MCARORP"
^DIPT(1008,"SUB")="1"
^DIPT(1009,0)="MCRHLAB^2960513.1247^^701^^^2960513"
^DIPT(1009,"F",1)="""PATIENT LABORATORY INFORMATION"";Y1;C1~""C H E M I S T R Y :"";S1;C1~""S E R O L O G Y :"";C40~""Aldolase"";C1~"
^DIPT(1009,"F",2)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,63)) ^(63);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,63)) ^(63)""~""Anti-DNA Antibody"";C40~"
^DIPT(1009,"F",3)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,563)) ^(563);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,563)) ^(563)""~""Albumin"";C1~"
^DIPT(1009,"F",4)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,14)) ^(14);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,14)) ^(14)""~""Anti-skeletal muscle"";C40~"
^DIPT(1009,"F",5)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,595)) ^(595);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,595)) ^(595)""~""Alkaline phosphatase"";C1~"
^DIPT(1009,"F",6)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,17)) ^(17);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,17)) ^(17)""~""Anti-RNP"";C40~"
^DIPT(1009,"F",7)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,594)) ^(594);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,594)) ^(594)""~""Urea nitrogen"";C1~"
^DIPT(1009,"F",8)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,3)) ^(3);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,3)) ^(3)""~""Hepatitis B Antibody"";C40~"
^DIPT(1009,"F",9)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,581)) ^(581);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,581)) ^(581)""~""Calcium"";C1~"
^DIPT(1009,"F",10)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,9)) ^(9);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,9)) ^(9)""~""Hepatitis B Antigen"";C40~"
^DIPT(1009,"F",11)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,553)) ^(553);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,553)) ^(553)""~""Cholesterol"";C1~"
^DIPT(1009,"F",12)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,12)) ^(12);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,12)) ^(12)""~""Complement CH50"";C40~"
^DIPT(1009,"F",13)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,587)) ^(587);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,587)) ^(587)""~""CPK"";C1~"
^DIPT(1009,"F",14)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,41)) ^(41);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,41)) ^(41)""~""Cryoglobulins"";C40~"
^DIPT(1009,"F",15)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,549)) ^(549);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,549)) ^(549)""~""Creatinine"";C1~"
^DIPT(1009,"F",16)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,4)) ^(4);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,4)) ^(4)""~""Complement"";C40~"
^DIPT(1009,"F",17)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,547)) ^(547);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,547)) ^(547)""~""Glucose"";C1~"
^DIPT(1009,"F",18)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,2)) ^(2);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,2)) ^(2)""~""Complement C4"";C40~"
^DIPT(1009,"F",19)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,548)) ^(548);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,548)) ^(548)""~""LDH"";C1~"
^DIPT(1009,"F",20)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,18)) ^(18);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,18)) ^(18)""~""HLA B27"";C40~"
^DIPT(1009,"F",21)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,174)) ^(174);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,174)) ^(174)""~""PO4"";C1~"
^DIPT(1009,"F",22)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,10)) ^(10);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,10)) ^(10)""~""IGA"";C40~"
^DIPT(1009,"F",23)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,625)) ^(625);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,625)) ^(625)""~""SGOT"";C1~"
^DIPT(1009,"F",24)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,19)) ^(19);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,19)) ^(19)""~""IGG"";C40~"
^DIPT(1009,"F",25)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,627)) ^(627);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,627)) ^(627)""~""SPGT"";C1~"
^DIPT(1009,"F",26)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,20)) ^(20);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,20)) ^(20)""~""IGM"";C40~"
^DIPT(1009,"F",27)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,631)) ^(631);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,631)) ^(631)""~""Bilirubin, total"";C1~"
^DIPT(1009,"F",28)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,15)) ^(15);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,15)) ^(15)""~""Latex fixation"";C40~"
^DIPT(1009,"F",29)="W:$D(^UTILITY(""DIQ1"",$J,63.04,639)) ^(639);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,639)) ^(639)""~""Protein, total"";C1~"
^DIPT(1009,"F",30)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,13)) ^(13);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,13)) ^(13)""~""VDRL"";C40~"
^DIPT(1009,"F",31)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,561)) ^(561);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,561)) ^(561)""~""Uric acid"";C1~"
^DIPT(1009,"F",32)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,11)) ^(11);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,11)) ^(11)""~""A D D I T I O N A L"";S2;C1~"
^DIPT(1009,"F",33)="""C H E M I S T R Y :"";C1~""U R I N E "";C40~""Salicylate"";C1~"
^DIPT(1009,"F",34)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,45)) ^(45);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,45)) ^(45)""~""UR Glucose"";C40~"
^DIPT(1009,"F",35)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,690)) ^(690);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,690)) ^(690)""~""T-4"";C1~"
^DIPT(1009,"F",36)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,771)) ^(771);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,771)) ^(771)""~""UR Protein"";C40~"
^DIPT(1009,"F",37)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,691)) ^(691);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,691)) ^(691)""~""T-3"";C1~"
^DIPT(1009,"F",38)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,738)) ^(738);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,738)) ^(738)""~""RBC/HPF"";C40~"
^DIPT(1009,"F",39)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,694)) ^(694);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,694)) ^(694)""~""TSH"";C1~"
^DIPT(1009,"F",40)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,741)) ^(741);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,741)) ^(741)""~""WBC/HPF"";C40~"
^DIPT(1009,"F",41)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,693)) ^(693);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,693)) ^(693)""~""Sodium"";C1~"
^DIPT(1009,"F",42)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,5)) ^(5);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,5)) ^(5)""~""Granular/cast/lpf"";C40~"
^DIPT(1009,"F",43)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,703)) ^(703);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,703)) ^(703)""~""Choloride"";C1~"
^DIPT(1009,"F",44)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,7)) ^(7);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,7)) ^(7)""~""WBC/CASTS/LPF"";C40~"
^DIPT(1009,"F",45)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,700)) ^(700);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,700)) ^(700)""~""Bicarbonate"";C1~"
^DIPT(1009,"F",46)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,454)) ^(454);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,454)) ^(454)""~""Creatinine Clearance"";C40~"
^DIPT(1009,"F",47)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,96)) ^(96);C70;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,96)) ^(96)""~""H E M A T O L O G Y :"";S2;C1~""WBC"";C1~"
^DIPT(1009,"F",48)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,384)) ^(384);C28;R15;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,384)) ^(384)""~""HGB"";C1~"
^DIPT(1009,"F",49)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,386)) ^(386);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,386)) ^(386)""~""HCT"";C1~"
^DIPT(1009,"F",50)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,387)) ^(387);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,387)) ^(387)""~""Neutrophil"";C1~"
^DIPT(1009,"F",51)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,468)) ^(468);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,468)) ^(468)""~""Bands"";C1~"
^DIPT(1009,"F",52)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,395)) ^(395);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,395)) ^(395)""~""Lymphs"";C1~"
^DIPT(1009,"F",53)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,396)) ^(396);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,396)) ^(396)""~""Monocytes"";C1~"
^DIPT(1009,"F",54)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,397)) ^(397);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,397)) ^(397)""~""Eosino"";C1~"
^DIPT(1009,"F",55)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,398)) ^(398);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,398)) ^(398)""~""Baso"";C1~"
^DIPT(1009,"F",56)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,399)) ^(399);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,399)) ^(399)""~""Platelet"";C1~"
^DIPT(1009,"F",57)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,649)) ^(649);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,649)) ^(649)""~""Reticulocytes"";C1~"
^DIPT(1009,"F",58)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,428)) ^(428);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,428)) ^(428)""~""Westergren ESR"";C1~"
^DIPT(1009,"F",59)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,469)) ^(469);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,469)) ^(469)""~""Protrhombin time"";C1~"
^DIPT(1009,"F",60)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,430)) ^(430);C28;R15;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,430)) ^(430)""~""Partial thromboplastin"";C1~"
^DIPT(1009,"F",61)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,431)) ^(431);C28;R15;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,431)) ^(431)""~""IRON"";C1~"
^DIPT(1009,"F",62)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,750)) ^(750);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,750)) ^(750)""~""TIBC"";C1~"
^DIPT(1009,"F",63)="W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,748)) ^(748);C28;R8;X;Z;""W:$D(^UTILITY(""DIQ1"",$J,63.04,DA,748)) ^(748)""~"" "";Y-1;C1~"
^DIPT(1009,"H")="@"
^DIPT(1009,"IOM")="80"
^DIPT(1009,"LAST")="2"
^DIPT(1009,"ROU")="^MCARORL"
^DIPT(1009,"ROUOLD")="MCARORL"
^DIPT(1009,"SUB")="1"
^DIPT(1010,0)="MCRHPROG^2960513.1255^^701^^^2960513"
^DIPT(1010,"F",1)="""PROVIDER: "";S2;C1~701;X~""PROBLEM LIST"";C1~.01;S2;C1~""PATIENT"";C1~""DATE"";C17~""DIAGNOSIS"";C30~""ICD9 CODE"";C68~""-------"";C1~""----"";C17~""---------"";C30~"
^DIPT(1010,"F",2)="""---------"";C68~1;C1;L15~"
^DIPT(1010,"F",3)="615,S DIP(1)=$S($D(^MCAR(701,D0,13,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C17;L10;Z;""NUMDATE(DATE OF SYMPTOM)""~"
^DIPT(1010,"F",4)="615,.01;C30;L35~615,D PRINT^MCRH2;Z;""D PRINT^MCRH2""~"
^DIPT(1010,"H")="@"
^DIPT(1010,"IOM")="80"
^DIPT(1010,"LAST")=""
^DIPT(1010,"ROU")="^MCARORA"
^DIPT(1010,"ROUOLD")="MCARORA"
^DIPT(1010,"SUB")="1"
^DIPT(1011,0)="MCRHPHYS2^2960626.0942^^701^^^2960626"
^DIPT(1011,"DXS",1,0)="NO"
^DIPT(1011,"DXS",1,1)="YES"
^DIPT(1011,"DXS",2,0)="NO"
^DIPT(1011,"DXS",2,1)="YES"
^DIPT(1011,"DXS",3,0)="NO"
^DIPT(1011,"DXS",3,1)="YES"
^DIPT(1011,"DXS",4,0)="NO"
^DIPT(1011,"DXS",4,1)="YES"
^DIPT(1011,"DXS",5,0)="NONE"
^DIPT(1011,"DXS",5,1)="MILD"
^DIPT(1011,"DXS",5,2)="MODERATE"
^DIPT(1011,"DXS",5,3)="SEVERE"
^DIPT(1011,"DXS",6,0)="NONE"
^DIPT(1011,"DXS",6,1)="MILD"
^DIPT(1011,"DXS",6,2)="MODERATE"
^DIPT(1011,"DXS",6,3)="SEVERE"
^DIPT(1011,"DXS",7,0)="NONE"
^DIPT(1011,"DXS",7,1)="MILD"
^DIPT(1011,"DXS",7,2)="MODERATE"
^DIPT(1011,"DXS",7,3)="SEVERE"
^DIPT(1011,"DXS",8,1)="NORMAL"
^DIPT(1011,"DXS",8,2)="ADEQUATE"
^DIPT(1011,"DXS",8,3)="LIMITED"
^DIPT(1011,"DXS",8,4)="INCAPACITATED"
^DIPT(1011,"DXS",9,1)="MB (MUCH BETTER)"
^DIPT(1011,"DXS",9,2)="B (BETTER)"
^DIPT(1011,"DXS",9,3)="S (SAME)"
^DIPT(1011,"DXS",9,4)="W (WORSE)"
^DIPT(1011,"DXS",9,5)="MW (MUCH WORSE)"
^DIPT(1011,"DXS",10,1)="MB (MUCH BETTER)"
^DIPT(1011,"DXS",10,2)="B (BETTER)"
^DIPT(1011,"DXS",10,3)="S (SAME)"
^DIPT(1011,"DXS",10,4)="W (WORSE)"
^DIPT(1011,"DXS",10,5)="MW (MUCH WORSE)"
^DIPT(1011,"DXS",11,0)="NONE"
^DIPT(1011,"DXS",11,1)="MILD"
^DIPT(1011,"DXS",11,2)="MODERATE"
^DIPT(1011,"DXS",11,3)="SEVERE"
^DIPT(1011,"DXS",12,0)="NONE"
^DIPT(1011,"DXS",12,1)="MILD"
^DIPT(1011,"DXS",12,2)="MODERATE"
^DIPT(1011,"DXS",12,3)="SEVERE"
^DIPT(1011,"DXS",13,0)="NONE"
^DIPT(1011,"DXS",13,1)="MILD"
^DIPT(1011,"DXS",13,2)="MODERATE"
^DIPT(1011,"DXS",13,3)="SEVERE"
^DIPT(1011,"DXS",14,0)="NONE"
^DIPT(1011,"DXS",14,1)="MILD"
^DIPT(1011,"DXS",14,2)="MODERATE"
^DIPT(1011,"DXS",14,3)="SEVERE"
^DIPT(1011,"DXS",15,0)="NONE"
^DIPT(1011,"DXS",15,1)="MILD"
^DIPT(1011,"DXS",15,2)="MODERATE"
^DIPT(1011,"DXS",15,3)="SEVERE"
^DIPT(1011,"DXS",16,0)="NONE"
^DIPT(1011,"DXS",16,1)="MILD"
^DIPT(1011,"DXS",16,2)="MODERATE"
^DIPT(1011,"DXS",16,3)="SEVERE"
^DIPT(1011,"DXS",17,0)="NONE"
^DIPT(1011,"DXS",17,1)="MILD"
^DIPT(1011,"DXS",17,2)="MODERATE"
^DIPT(1011,"DXS",17,3)="SEVERE"
^DIPT(1011,"DXS",18,0)="NONE"
^DIPT(1011,"DXS",18,1)="MILD"
^DIPT(1011,"DXS",18,2)="MODERATE"
^DIPT(1011,"DXS",18,3)="SEVERE"
^DIPT(1011,"DXS",19,0)="NONE"
^DIPT(1011,"DXS",19,1)="MILD"
^DIPT(1011,"DXS",19,2)="MODERATE"
^DIPT(1011,"DXS",19,3)="SEVERE"
^DIPT(1011,"DXS",20,0)="NONE"
^DIPT(1011,"DXS",20,1)="MILD"
^DIPT(1011,"DXS",20,2)="MODERATE"
^DIPT(1011,"DXS",20,3)="SEVERE"
^DIPT(1011,"DXS",21,0)="NONE"
^DIPT(1011,"DXS",21,1)="MILD"
^DIPT(1011,"DXS",21,2)="MODERATE"
^DIPT(1011,"DXS",21,3)="SEVERE"
^DIPT(1011,"DXS",22,0)="NONE"
^DIPT(1011,"DXS",22,1)="MILD"
^DIPT(1011,"DXS",22,2)="MODERATE"
^DIPT(1011,"DXS",22,3)="SEVERE"
^DIPT(1011,"DXS",23,0)="NONE"
^DIPT(1011,"DXS",23,1)="MILD"
^DIPT(1011,"DXS",23,2)="MODERATE"
^DIPT(1011,"DXS",23,3)="SEVERE"
^DIPT(1011,"DXS",24,0)="NONE"
^DIPT(1011,"DXS",24,1)="MILD"
^DIPT(1011,"DXS",24,2)="MODERATE"
^DIPT(1011,"DXS",24,3)="SEVERE"
^DIPT(1011,"DXS",25,0)="NORMAL"
^DIPT(1011,"DXS",25,1)="MILD"
^DIPT(1011,"DXS",25,2)="MODERATE"
^DIPT(1011,"DXS",25,3)="SEVERE"
^DIPT(1011,"DXS",26,0)="NORMAL"
^DIPT(1011,"DXS",26,1)="MILD"
^DIPT(1011,"DXS",26,2)="MODERATE"
^DIPT(1011,"DXS",26,3)="SEVERE"
^DIPT(1011,"DXS",27,0)="NORMAL"
^DIPT(1011,"DXS",27,1)="MILD"
^DIPT(1011,"DXS",27,2)="MODERATE"
^DIPT(1011,"DXS",27,3)="SEVERE"
^DIPT(1011,"DXS",28,0)="NORMAL"
^DIPT(1011,"DXS",28,1)="MILD"
^DIPT(1011,"DXS",28,2)="MODERATE"
^DIPT(1011,"DXS",28,3)="SEVERE"
^DIPT(1011,"DXS",29,0)="NONE"
^DIPT(1011,"DXS",29,1)="MILD"
^DIPT(1011,"DXS",29,2)="MODERATE"
^DIPT(1011,"DXS",29,3)="SEVERE"
^DIPT(1011,"DXS",30,0)="NONE"
^DIPT(1011,"DXS",30,1)="MILD"
^DIPT(1011,"DXS",30,2)="MODERATE"
^DIPT(1011,"DXS",30,3)="SEVERE"
^DIPT(1011,"DXS",31,0)="NONE"
^DIPT(1011,"DXS",31,1)="MILD"
^DIPT(1011,"DXS",31,2)="MODERATE"
^DIPT(1011,"DXS",31,3)="SEVERE"
^DIPT(1011,"DXS",32,0)="NONE"
^DIPT(1011,"DXS",32,1)="MILD"
^DIPT(1011,"DXS",32,2)="MODERATE"
^DIPT(1011,"DXS",32,3)="SEVERE"
^DIPT(1011,"DXS",33,0)="NONE"
^DIPT(1011,"DXS",33,1)="MILD"
^DIPT(1011,"DXS",33,2)="MODERATE"
^DIPT(1011,"DXS",33,3)="SEVERE"
^DIPT(1011,"DXS",34,0)="NONE"
^DIPT(1011,"DXS",34,1)="MILD"
^DIPT(1011,"DXS",34,2)="MODERATE"
^DIPT(1011,"DXS",34,3)="SEVERE"
^DIPT(1011,"DXS",35,0)="NONE"
^DIPT(1011,"DXS",35,1)="MILD"
^DIPT(1011,"DXS",35,2)="MODERATE"
^DIPT(1011,"DXS",35,3)="SEVERE"
^DIPT(1011,"DXS",36,0)="NONE"
^DIPT(1011,"DXS",36,1)="MILD"
^DIPT(1011,"DXS",36,2)="MODERATE"
^DIPT(1011,"DXS",36,3)="SEVERE"
^DIPT(1011,"DXS",37,0)="NONE"
^DIPT(1011,"DXS",37,1)="MILD"
^DIPT(1011,"DXS",37,2)="MODERATE"
^DIPT(1011,"DXS",37,3)="SEVERE"
^DIPT(1011,"DXS",38,0)="NONE"
^DIPT(1011,"DXS",38,1)="MILD"
^DIPT(1011,"DXS",38,2)="MODERATE"
^DIPT(1011,"DXS",38,3)="SEVERE"
^DIPT(1011,"DXS",39,0)="NONE"
^DIPT(1011,"DXS",39,1)="MILD"
^DIPT(1011,"DXS",39,2)="MODERATE"
^DIPT(1011,"DXS",39,3)="SEVERE"
^DIPT(1011,"DXS",40,0)="NONE"
^DIPT(1011,"DXS",40,1)="MILD"
^DIPT(1011,"DXS",40,2)="MODERATE"
^DIPT(1011,"DXS",40,3)="SEVERE"
^DIPT(1011,"DXS",41,0)="NONE"
^DIPT(1011,"DXS",41,1)="MILD"
^DIPT(1011,"DXS",41,2)="MODERATE"
^DIPT(1011,"DXS",41,3)="SEVERE"
^DIPT(1011,"F",1)="""Rheumatic:"";C1;S2;X~""Measurements:"";C40;X~""SYMMETRICAL ARTHRITIS:"";C1;X~109;C30;X~""GRIP STRENGTH-LEFT:"";C40;X~118;C70;X~""SUB-CUTANEOUS NODULES:"";C1;X~"
^DIPT(1011,"F",2)="112;C30;X~""GRIP STRENGTH-RIGHT:"";C40;X~119;C70;X~""SYNOVIAL (BAKER'S) CYST:"";C1;X~113;C30;X~""SCHOBER TEST (10 cm BASE):"";C40;X~120;C70;X~""TOPHI:"";C1;X~"
^DIPT(1011,"F",3)="111;C30;X~""CHEST EXPANSION:"";C40;X~121;C70;X~""TENOSYNOVITIS(TENDON RUBS):"";C1;X~115;C30;X~""OCCIPUT-WALL:"";C40;X~122;C70;X~"
^DIPT(1011,"F",4)="""TEMPORAL ARTERY TENDERNESS:"";C1;X~116;C30;X~""FINGER-TO-PALM CREASE-LEFT:"";C40;X~123;C70;X~""COSTOCHONDRITIS:"";C1;X~117;C30;X~"
^DIPT(1011,"F",5)="""FINGER-TO-PALM CREASE-RIGHT:"";C40;X~124;C70;X~""INTERINCISOR DISTANCE:"";C40;X~125;C70;X~""Miscellaneous:"";C1;X~""SCHIRMER TEST:"";C40;X~126;C70;X~"
^DIPT(1011,"F",6)="""FUNCTIONAL CLASS (ACR):"";C1;X~128;C34;X~""DISEASE SEVERITY-PAT. ESTIMATE:"";C1;X~129;C34;X~""DISEASE SEVERITY-PHY. ESTIMATE:"";C1;X~329;C34;X~"
^DIPT(1011,"F",7)="""Joint Examination:"";C32;S2;X~""Left"";C30;X~""Right"";C70;X~""----"";C30;X~""-----"";C70;X~""FINGERS-DIP"";C1;X~130;C30;X~131;C70;X~""MCPS:"";C1;X~134;C30;X~"
^DIPT(1011,"F",8)="135;C70;X~""1st CARPOMETACARPAL:"";C1;X~136;C30;X~137;C70;X~""WRIST:"";C1;X~138;C30;X~139;C70;X~""ELBOW:"";C1;X~140;C30;X~141;C70;X~""SHOULDER:"";C1;X~"
^DIPT(1011,"F",9)="142;C30;X~143;C70;X~""TMJ:"";C1;X~146;C30;X~147;C70;X~""COSTOCHONDRAL:"";C1;X~160;C30;X~161;C70;X~""SACROILIAC:"";C1;X~162;C30;X~163;C70;X~""HIP:"";C1;X~"
^DIPT(1011,"F",10)="148;C30;X~149;C70;X~""KNEE:"";C1;X~150;C30;X~151;C70;X~""ANKLE:"";C1;X~152;C30;X~153;C70;X~""MTP:"";C1;X~154;C30;X~155;C70;X~""TOES-PIP:"";C1;X~156;C30;X~"
^DIPT(1011,"F",11)="157;C70;X~""CERVICAL SPINE:"";C25;X~158;C45;X~""THORACIC SPINE:"";C25;X~164;C45;X~""LUMBAR SPINE:"";C25;X~159;C45;X~"
^DIPT(1011,"H")="@"
^DIPT(1011,"IOM")="80"
^DIPT(1011,"LAST")="1"
^DIPT(1011,"ROU")="^MCARORE"
^DIPT(1011,"ROUOLD")="MCARORE"
^DIPT(1011,"SUB")="1"
^DIPT(1012,0)="MCAROGH^2960513.1058^^699^^^2960513"
^DIPT(1012,"%D",0)="^^2^2^2930309^^^^"
^DIPT(1012,"%D",1,0)="This print template prints general patient data including allergies,"
^DIPT(1012,"%D",2,0)="and results from the endoscopic examination in question."
^DIPT(1012,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(1012,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1012,"DXS",2,9.2)="S X=""HISTORY"""
^DIPT(1012,"DXS",3,9)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S D(0)=D0 S I(200,0)=$S($D(D0):D0,1:"""") X DXS(3,9.2) S X="""" S D0=I(100,0)"
^DIPT(1012,"DXS",3,9.2)="S D=0 F S (D,D0)=$O(^GMR(120.8,""B"",I(200,0),D)) S:D="""" (D,D0)=-1 Q:D'>0 I $D(^GMR(120.8,D,0)) S X=$P(^(0),U,1) S:$D(^DPT(+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(2) D M Q:'$D(D) S D=D0"
^DIPT(1012,"DXS",4,9)="X DXS(4,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1012,"DXS",4,9.2)="S X=""INDICATION FOR PROCEDURE:"""
^DIPT(1012,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1012,"DXS",5,9.2)="S X=""PROCEDURE AND PREPARATION"""
^DIPT(1012,"DXS",6,9)="X DXS(6,9.3) S DIP(102)=$S($D(^MCAR(699,D0,34,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(699.48,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1012,"DXS",6,9.2)="S I(0)=""^MCAR(699,"",J(0)=699 F D=0:0 S (D,D1)=$O(^MCAR(699,D0,34,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(699.48,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(1012,"DXS",6,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(6,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(699,D0,34,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(1012,"F",1)="""PROCEDURE: "";C2~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;X;Z;""PROCEDURE:PRINT NAME""~""WARD/CLINIC: "";C45~9;X;L20~""Endoscopist: "";C2~"
^DIPT(1012,"F",2)="6;C16~""FELLOW: "";C45~200;X~""2ND FELLOW: "";C45~201;X~"
^DIPT(1012,"F",3)="S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(1012,"F",4)="X DXS(2,9) W X K DIP;C1;X;S;Z;""UNDERLINE(""HISTORY"")""~""Liver Biopsy: "";C3~"
^DIPT(1012,"F",5)="-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~-690,1;X~"
^DIPT(1012,"F",6)="-690,""Bleeding Disorder: "";C45~-690,3;X~-690,""Valvular Heart Disease: "";C3~-690,4;X~-690,""Glaucoma: "";C45~-690,5;X~-690,""Allergies/Adverse Reactions: "";C3~"
^DIPT(1012,"F",7)="-690,-120.8,^GMR(120.8,^1^X DXS(3,9);Z;""NAME:PATIENT ALLERGIES:""~-690,-120.8,.02;C6;X~-690,-120.8,10,.01;C36;X;C36;X~-690,""Comments: "";C3~-690,6;X~"
^DIPT(1012,"F",8)="X DXS(4,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""INDICATION FOR PROCEDURE:"")""~D IND^MCARGS;Z;""D IND^MCARGS""~""COMMENT:"";C3~3;C13;W;X~"
^DIPT(1012,"F",9)="X DXS(5,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE AND PREPARATION"")""~""Where Performed: "";C3~8;X~""Start - End: "";C45~"
^DIPT(1012,"F",10)="S DIP(1)=$S($D(^MCAR(699,D0,9)):^(9),1:"""") S X=$P(DIP(1),U,1)_"" - ""_$P(DIP(1),U,2) W X K DIP;X;Z;""TIME STARTED_"" - ""_TIME COMPLETED""~""Urgency: "";C3~"
^DIPT(1012,"F",11)="12;X~""Instrument: "";C3~X DXS(6,9) W X K DIP;C6;X;m;Z;""INSTRUMENT:INSTRUMENT""~""Insertion Depth: "";C3;~24;X~"
^DIPT(1012,"F",12)="D:MCARGNAM=""COL"" COL^MCARGS;Z;""D:MCARGNAM=""COL"" COL^MCARGS""~""Medications Used:"";C3;S~5,.01;C22;X~5,"" "";X~"
^DIPT(1012,"F",13)="5,S DIP(1)=$S($D(^MCAR(699,D0,8,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3)_"" mg "" W X K DIP;X;Z;""TOTAL DOSE (in mg.)_"" mg """"~5,1;X~"
^DIPT(1012,"F",14)="D:MCARGNAM=""LAP"" LAP^MCARGS;Z;""D:MCARGNAM=""LAP"" LAP^MCARGS""~"
^DIPT(1012,"H")="@"
^DIPT(1012,"ROUOLD")="MCAROGH"
^DIPT(1012,"SUB")="1"
^DIPT(1013,0)="MCAROGM^2960513.1059^^699^^^2960513"
^DIPT(1013,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(1013,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1013,"DXS",2,9.2)="S X=""HISTORY"""
^DIPT(1013,"DXS",3,9)="X DXS(3,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1013,"DXS",3,9.2)="S X=""INDICATION FOR PROCEDURE:"""
^DIPT(1013,"DXS",4,9)="X DXS(4,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1013,"DXS",4,9.2)="S X=""PROCEDURE AND PREPARATION"""
^DIPT(1013,"DXS",5,9)="X DXS(5,9.3) S DIP(102)=$S($D(^MCAR(699,D0,34,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(699.48,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1013,"DXS",5,9.2)="S I(0)=""^MCAR(699,"",J(0)=699 F D=0:0 S (D,D1)=$O(^MCAR(699,D0,34,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(699.48,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(1013,"DXS",5,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(5,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(699,D0,34,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(1013,"DXS",6,"N")="NO"
^DIPT(1013,"DXS",6,"Y")="YES"
^DIPT(1013,"DXS",7,"N")="NO"
^DIPT(1013,"DXS",7,"Y")="YES"
^DIPT(1013,"DXS",8,"N")="NO"
^DIPT(1013,"DXS",8,"Y")="YES"
^DIPT(1013,"DXS",9,"N")="NO"
^DIPT(1013,"DXS",9,"Y")="YES"
^DIPT(1013,"DXS",10,1)="ELECTIVE"
^DIPT(1013,"DXS",10,2)="URGENT"
^DIPT(1013,"DXS",10,3)="EMERGENCY"
^DIPT(1013,"DXS",11,"IM")="INTRAMUSCULAR"
^DIPT(1013,"DXS",11,"IV")="INTRAVENOUS"
^DIPT(1013,"DXS",11,"O")="ORAL"
^DIPT(1013,"DXS",11,"PV")="PARAVARICEAL"
^DIPT(1013,"DXS",11,"SM")="SUBMUCOSAL"
^DIPT(1013,"DXS",11,"SQ")="SUBCUTANEOUS"
^DIPT(1013,"DXS",11,"T")="TOPICAL"
^DIPT(1013,"DXS",11,"V")="INTRAVARICEAL"
^DIPT(1013,"F",1)="""PROCEDURE: "";C2~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;X;Z;""PROCEDURE:PRINT NAME""~""WARD/CLINIC: "";C45~9;X;L20~""Endoscopist: "";C2~"
^DIPT(1013,"F",2)="6;C16~""FELLOW: "";C45~200;X~""2ND FELLOW: "";C45~201;X~"
^DIPT(1013,"F",3)="S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(1013,"F",4)="X DXS(2,9) W X K DIP;C1;X;S;Z;""UNDERLINE(""HISTORY"")""~"
^DIPT(1013,"F",5)="-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""MEDICAL PATIENT:""~-690,""Liver Biopsy: "";C3~"
^DIPT(1013,"F",6)="-690,1;X~-690,""Bleeding Disorder: "";C45~-690,3;X~-690,""Valvular Heart Disease: "";C3~-690,4;X~-690,""Glaucoma: "";C45~-690,5;X~"
^DIPT(1013,"F",7)="-690,""Allergies/Adverse Reactions: "";C3~-690,D ^MCARGPA;Z;""D ^MCARGPA""~-690,""Comments: "";C3~-690,6;X~"
^DIPT(1013,"F",8)="X DXS(3,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""INDICATION FOR PROCEDURE:"")""~D IND^MCARGS;Z;""D IND^MCARGS""~""COMMENT:"";C3~3;C13;W;X~"
^DIPT(1013,"F",9)="X DXS(4,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE AND PREPARATION"")""~""Where Performed: "";C3~8;X~""Start - End: "";C45~"
^DIPT(1013,"F",10)="S DIP(1)=$S($D(^MCAR(699,D0,9)):^(9),1:"""") S X=$P(DIP(1),U,1)_"" - ""_$P(DIP(1),U,2) W X K DIP;X;Z;""TIME STARTED_"" - ""_TIME COMPLETED""~""Urgency: "";C3~"
^DIPT(1013,"F",11)="12;X~""Instrument: "";C3~X DXS(5,9) W X K DIP;C6;X;m;Z;""INSTRUMENT:INSTRUMENT""~""Insertion Depth: "";C3;~24;X~"
^DIPT(1013,"F",12)="D:MCARGNAM=""COL"" COL^MCARGS;Z;""D:MCARGNAM=""COL"" COL^MCARGS""~""Medications Used:"";C3;S~5,.01;C22;X~5,"" "";X~"
^DIPT(1013,"F",13)="5,S DIP(1)=$S($D(^MCAR(699,D0,8,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3)_"" mg "" W X K DIP;X;Z;""TOTAL DOSE (in mg.)_"" mg """"~5,1;X~"
^DIPT(1013,"F",14)="D:MCARGNAM=""LAP"" LAP^MCARGS;Z;""D:MCARGNAM=""LAP"" LAP^MCARGS""~"
^DIPT(1013,"H")="@"
^DIPT(1013,"IOM")="80"
^DIPT(1013,"LAST")=""
^DIPT(1013,"ROU")="^MCAROGM"
^DIPT(1013,"ROUOLD")="MCAROGM"
^DIPT(1013,"SUB")="1"
^DIPT(1014,0)="MCAREP1A^2861007^^691.8^^^^"
^DIPT(1014,"DXS",1,9)="X DXS(1,9.2) S DIP(101)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9) S D0=I(0,0)"
^DIPT(1014,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(1014,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(691.8,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,1)'="""",DIP(2)=X S X=""EJECTION FRACTION: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1014,"DXS",3,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.8,9,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,4)):^(4),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)'="""""
^DIPT(1014,"DXS",4,9.2)="S DIP(1)=$S($D(^MCAR(691.8,D0,8)):^(8),1:"""") S X=$P(DIP(1),U,1)'="""",DIP(2)=X S X=""PREMEDICATIONS:"",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1014,"DXS",5,9)="S DIP(2)=$C(59)_$S($D(^DD(691.85,2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,9,D1,0)):^(0),1:"""") S X="" ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(1014,"DXS",6,9)="S DIP(2)=$C(59)_$S($D(^DD(691.86,2,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,10,D1,0)):^(0),1:"""") S X="" ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(1014,"DXS",7,9)="S DIP(2)=$C(59)_$S($D(^DD(691.84,5,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.8,D0,7,D1,0)):^(0),1:"""") S X=""RHYTHM: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(1014,"F",1)="""ELECTROPHYSIOLOGY REPORT"";C30;S2~""CLINICAL ELECTROPHYSIOLOGY LABORATORY REPORT"";C23;S2~""VETERANS ADMINISTRATION MEDICAL CENTER"";C26~""NAME:"";C3;S2~1~"
^DIPT(1014,"F",2)="""SSN;"";C30~X DXS(1,9) W X K DIP;Z;""1:#.01:SS""~""DATE:"";C55~.01~5,""ARRHYTHMIA DIAGNOSIOS:"";C3;S~5,.01~""CARDIAC DIAGNOSIS:"";C3;S1~6~"
^DIPT(1014,"F",3)="X DXS(2,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C3;S;Z;""$S(#8'="""":""EJECTION FRACTION: "",1:"""")""~"
^DIPT(1014,"F",4)="S DIP(1)=$S($D(^MCAR(691.8,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,1) W X K DIP;Z;""EJECTION FRACTION""~"
^DIPT(1014,"F",5)="X DXS(3,9.2) S DIP(3)=X S X=""METHOD:"",DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;C40;Z;""$S(#9'="""":""METHOD:"",1:"""")""~9~"
^DIPT(1014,"F",6)="S DIP(1)=$S($D(^MCAR(691.8,D0,0)):^(0),1:"""") S X=""REASON FOR STUDY: ""_$P(DIP(1),U,5) W X K DIP;C3;S;Z;""""REASON FOR STUDY: ""_#4""~""HX:"";C3;S~7,.01;W70~"
^DIPT(1014,"F",7)="X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C3;S;Z;""$S(#13'="""":""PREMEDICATIONS:"",1:"""")""~13~""ENTRY SITE, STUDY, AND DATE:"";C3;S~14,.01;C8~"
^DIPT(1014,"F",8)="14,X DXS(5,9) W X K DIP;X;Z;"""" ""_#2""~14,"" ""~14,1~""CATHETER PLACEMENT SITE, STUDY, AND DATE:"";C3;S~15,.01;C8~15,X DXS(6,9) W X K DIP;X;Z;"""" ""_#2""~"
^DIPT(1014,"F",9)="15,"" ""~15,1~12,"".............................. ECG ............................"";C3;S~"
^DIPT(1014,"F",10)="12,S DIP(1)=$S($D(^MCAR(691.8,D0,7,D1,0)):^(0),1:"""") S X=""TYPE: ""_$P(DIP(1),U,1) W X K DIP;C5;S;Z;""""TYPE: ""_ECG""~"
^DIPT(1014,"F",11)="12,S DIP(1)=$S($D(^MCAR(691.8,D0,7,D1,0)):^(0),1:"""") S X=""HR: ""_$P(DIP(1),U,2) W X K DIP;C40;Z;""""HR: ""_HEART RATE""~"
^DIPT(1014,"F",12)="12,X DXS(7,9) W X K DIP;C5;Z;""""RHYTHM: ""_RHYTHM""~"
^DIPT(1014,"F",13)="12,S DIP(1)=$S($D(^MCAR(691.8,D0,7,D1,0)):^(0),1:"""") S X=""PR INTERVAL: ""_$P(DIP(1),U,3) W X K DIP;C40;Z;""""PR INTERVAL: ""_PR INTERVAL""~"
^DIPT(1014,"F",14)="12,S DIP(1)=$S($D(^MCAR(691.8,D0,7,D1,0)):^(0),1:"""") S X=""QRS DURATION: ""_$P(DIP(1),U,4) W X K DIP;C5;Z;""""QRS DURATION: ""_QRS DURATION""~"
^DIPT(1014,"F",15)="12,S DIP(1)=$S($D(^MCAR(691.8,D0,7,D1,0)):^(0),1:"""") S X=""QT INTERVAL: ""_$P(DIP(1),U,5) W X K DIP;C40;Z;""""QT INTERVAL: ""_QT INTERVAL""~"
^DIPT(1014,"F",16)="12,""INTERPRETATION:"";C5~12,6;W55~"
^DIPT(1014,"H")="@"
^DIPT(1014,"SUB")="1"
^DIPT(1015,0)="MCRHPHYS^2960513.1251^^701^^^2960702"
^DIPT(1015,"DXS",1,0)="NONE"
^DIPT(1015,"DXS",1,1)="MILD"
^DIPT(1015,"DXS",1,2)="MODERATE"
^DIPT(1015,"DXS",1,3)="SEVERE"
^DIPT(1015,"DXS",2,0)="NONE"
^DIPT(1015,"DXS",2,1)="MILD"
^DIPT(1015,"DXS",2,2)="MODERATE"
^DIPT(1015,"DXS",2,3)="SEVERE"
^DIPT(1015,"DXS",3,0)="NONE"
^DIPT(1015,"DXS",3,1)="MILD"
^DIPT(1015,"DXS",3,2)="MODERATE"
^DIPT(1015,"DXS",3,3)="SEVERE"
^DIPT(1015,"DXS",4,0)="NONE"
^DIPT(1015,"DXS",4,1)="MILD"
^DIPT(1015,"DXS",4,2)="MODERATE"
^DIPT(1015,"DXS",4,3)="SEVERE"
^DIPT(1015,"DXS",5,0)="NONE"
^DIPT(1015,"DXS",5,1)="MILD"
^DIPT(1015,"DXS",5,2)="MODERATE"
^DIPT(1015,"DXS",5,3)="SEVERE"
^DIPT(1015,"DXS",6,0)="NONE"
^DIPT(1015,"DXS",6,1)="MILD"
^DIPT(1015,"DXS",6,2)="MODERATE"
^DIPT(1015,"DXS",6,3)="SEVERE"
^DIPT(1015,"DXS",7,0)="NONE"
^DIPT(1015,"DXS",7,1)="MILD"
^DIPT(1015,"DXS",7,2)="MODERATE"
^DIPT(1015,"DXS",7,3)="SEVERE"
^DIPT(1015,"DXS",8,0)="NONE"
^DIPT(1015,"DXS",8,1)="MILD"
^DIPT(1015,"DXS",8,2)="MODERATE"
^DIPT(1015,"DXS",8,3)="SEVERE"
^DIPT(1015,"DXS",9,0)="NONE"
^DIPT(1015,"DXS",9,1)="MILD"
^DIPT(1015,"DXS",9,2)="MODERATE"
^DIPT(1015,"DXS",9,3)="SEVERE"
^DIPT(1015,"DXS",10,0)="NONE"
^DIPT(1015,"DXS",10,1)="MILD"
^DIPT(1015,"DXS",10,2)="MODERATE"
^DIPT(1015,"DXS",10,3)="SEVERE"
^DIPT(1015,"DXS",11,0)="NONE"
^DIPT(1015,"DXS",11,1)="MILD"
^DIPT(1015,"DXS",11,2)="MODERATE"
^DIPT(1015,"DXS",11,3)="SEVERE"
^DIPT(1015,"DXS",12,0)="NONE"
^DIPT(1015,"DXS",12,1)="MILD"
^DIPT(1015,"DXS",12,2)="MODERATE"
^DIPT(1015,"DXS",12,3)="SEVERE"
^DIPT(1015,"DXS",13,0)="NONE"
^DIPT(1015,"DXS",13,1)="MILD"
^DIPT(1015,"DXS",13,2)="MODERATE"
^DIPT(1015,"DXS",13,3)="SEVERE"
^DIPT(1015,"DXS",14,0)="NONE"
^DIPT(1015,"DXS",14,1)="MILD"
^DIPT(1015,"DXS",14,2)="MODERATE"
^DIPT(1015,"DXS",14,3)="SEVERE"
^DIPT(1015,"DXS",15,0)="NONE"
^DIPT(1015,"DXS",15,1)="MILD"
^DIPT(1015,"DXS",15,2)="MODERATE"
^DIPT(1015,"DXS",15,3)="SEVERE"
^DIPT(1015,"DXS",16,0)="NONE"
^DIPT(1015,"DXS",16,1)="MILD"
^DIPT(1015,"DXS",16,2)="MODERATE"
^DIPT(1015,"DXS",16,3)="SEVERE"
^DIPT(1015,"DXS",17,0)="NONE"
^DIPT(1015,"DXS",17,1)="MILD"
^DIPT(1015,"DXS",17,2)="MODERATE"
^DIPT(1015,"DXS",17,3)="SEVERE"
^DIPT(1015,"DXS",18,0)="NONE"
^DIPT(1015,"DXS",18,1)="MILD"
^DIPT(1015,"DXS",18,2)="MODERATE"
^DIPT(1015,"DXS",18,3)="SEVERE"
^DIPT(1015,"DXS",19,0)="NONE"
^DIPT(1015,"DXS",19,1)="MILD"
^DIPT(1015,"DXS",19,2)="MODERATE"
^DIPT(1015,"DXS",19,3)="SEVERE"
^DIPT(1015,"DXS",20,0)="NONE"
^DIPT(1015,"DXS",20,1)="MILD"
^DIPT(1015,"DXS",20,2)="MODERATE"
^DIPT(1015,"DXS",20,3)="SEVERE"
^DIPT(1015,"DXS",21,0)="NONE"
^DIPT(1015,"DXS",21,1)="MILD"
^DIPT(1015,"DXS",21,2)="MODERATE"
^DIPT(1015,"DXS",21,3)="SEVERE"
^DIPT(1015,"DXS",22,0)="NONE"
^DIPT(1015,"DXS",22,1)="MILD"
^DIPT(1015,"DXS",22,2)="MODERATE"
^DIPT(1015,"DXS",22,3)="SEVERE"
^DIPT(1015,"DXS",23,0)="NONE"
^DIPT(1015,"DXS",23,1)="MILD"
^DIPT(1015,"DXS",23,2)="MODERATE"
^DIPT(1015,"DXS",23,3)="SEVERE"
^DIPT(1015,"DXS",24,0)="NONE"
^DIPT(1015,"DXS",24,1)="MILD"
^DIPT(1015,"DXS",24,2)="MODERATE"
^DIPT(1015,"DXS",24,3)="SEVERE"
^DIPT(1015,"DXS",25,0)="NONE"
^DIPT(1015,"DXS",25,1)="MILD"
^DIPT(1015,"DXS",25,2)="MODERATE"
^DIPT(1015,"DXS",25,3)="SEVERE"
^DIPT(1015,"DXS",26,0)="NONE"
^DIPT(1015,"DXS",26,1)="MILD"
^DIPT(1015,"DXS",26,2)="MODERATE"
^DIPT(1015,"DXS",26,3)="SEVERE"
^DIPT(1015,"DXS",27,0)="NONE"
^DIPT(1015,"DXS",27,1)="MILD"
^DIPT(1015,"DXS",27,2)="MODERATE"
^DIPT(1015,"DXS",27,3)="SEVERE"
^DIPT(1015,"DXS",28,0)="NONE"
^DIPT(1015,"DXS",28,1)="MILD"
^DIPT(1015,"DXS",28,2)="MODERATE"
^DIPT(1015,"DXS",28,3)="SEVERE"
^DIPT(1015,"DXS",29,0)="NONE"
^DIPT(1015,"DXS",29,1)="MILD"
^DIPT(1015,"DXS",29,2)="MODERATE"
^DIPT(1015,"DXS",29,3)="SEVERE"
^DIPT(1015,"DXS",30,0)="NONE"
^DIPT(1015,"DXS",30,1)="MILD"
^DIPT(1015,"DXS",30,2)="MODERATE"
^DIPT(1015,"DXS",30,3)="SEVERE"
^DIPT(1015,"DXS",31,0)="NONE"
^DIPT(1015,"DXS",31,1)="MILD"
^DIPT(1015,"DXS",31,2)="MODERATE"
^DIPT(1015,"DXS",31,3)="SEVERE"
^DIPT(1015,"DXS",32,0)="NONE"
^DIPT(1015,"DXS",32,1)="MILD"
^DIPT(1015,"DXS",32,2)="MODERATE"
^DIPT(1015,"DXS",32,3)="SEVERE"
^DIPT(1015,"DXS",33,0)="NONE"
^DIPT(1015,"DXS",33,1)="MILD"
^DIPT(1015,"DXS",33,2)="MODERATE"
^DIPT(1015,"DXS",33,3)="SEVERE"
^DIPT(1015,"DXS",34,0)="NONE"
^DIPT(1015,"DXS",34,1)="MILD"
^DIPT(1015,"DXS",34,2)="MODERATE"
^DIPT(1015,"DXS",34,3)="SEVERE"
^DIPT(1015,"DXS",35,0)="NONE"
^DIPT(1015,"DXS",35,1)="MILD"
^DIPT(1015,"DXS",35,2)="MODERATE"
^DIPT(1015,"DXS",35,3)="SEVERE"
^DIPT(1015,"DXS",36,0)="NONE"
^DIPT(1015,"DXS",36,1)="MILD"
^DIPT(1015,"DXS",36,2)="MODERATE"
^DIPT(1015,"DXS",36,3)="SEVERE"
^DIPT(1015,"DXS",37,0)="NONE"
^DIPT(1015,"DXS",37,1)="MILD"
^DIPT(1015,"DXS",37,2)="MODERATE"
^DIPT(1015,"DXS",37,3)="SEVERE"
^DIPT(1015,"DXS",38,0)="NONE"
^DIPT(1015,"DXS",38,1)="MILD"
^DIPT(1015,"DXS",38,2)="MODERATE"
^DIPT(1015,"DXS",38,3)="SEVERE"
^DIPT(1015,"DXS",39,0)="NONE"
^DIPT(1015,"DXS",39,1)="MILD"
^DIPT(1015,"DXS",39,2)="MODERATE"
^DIPT(1015,"DXS",39,3)="SEVERE"
^DIPT(1015,"DXS",40,0)="NONE"
^DIPT(1015,"DXS",40,1)="MILD"
^DIPT(1015,"DXS",40,2)="MODERATE"
^DIPT(1015,"DXS",40,3)="SEVERE"
^DIPT(1015,"DXS",41,0)="NO"
^DIPT(1015,"DXS",41,1)="YES"
^DIPT(1015,"DXS",42,0)="NONE"
^DIPT(1015,"DXS",42,1)="MILD"
^DIPT(1015,"DXS",42,2)="MODERATE"
^DIPT(1015,"DXS",42,3)="SEVERE"
^DIPT(1015,"DXS",43,0)="NO"
^DIPT(1015,"DXS",43,1)="YES"
^DIPT(1015,"DXS",44,0)="NO"
^DIPT(1015,"DXS",44,1)="YES"
^DIPT(1015,"DXS",45,0)="NO"
^DIPT(1015,"DXS",45,1)="YES"
^DIPT(1015,"DXS",46,0)="NONE"
^DIPT(1015,"DXS",46,1)="MILD"
^DIPT(1015,"DXS",46,2)="MODERATE"
^DIPT(1015,"DXS",46,3)="SEVERE"
^DIPT(1015,"DXS",47,0)="NONE"
^DIPT(1015,"DXS",47,1)="MILD"
^DIPT(1015,"DXS",47,2)="MODERATE"
^DIPT(1015,"DXS",47,3)="SEVERE"
^DIPT(1015,"DXS",48,0)="NONE"
^DIPT(1015,"DXS",48,1)="MILD"
^DIPT(1015,"DXS",48,2)="MODERATE"
^DIPT(1015,"DXS",48,3)="SEVERE"
^DIPT(1015,"DXS",49,0)="NONE"
^DIPT(1015,"DXS",49,1)="MILD"
^DIPT(1015,"DXS",49,2)="MODERATE"
^DIPT(1015,"DXS",49,3)="SEVERE"
^DIPT(1015,"DXS",50,1)="NORMAL"
^DIPT(1015,"DXS",50,2)="ADEQUATE"
^DIPT(1015,"DXS",50,3)="LIMITED"
^DIPT(1015,"DXS",50,4)="INCAPACITATED"
^DIPT(1015,"DXS",51,1)="MB (MUCH BETTER)"
^DIPT(1015,"DXS",51,2)="B (BETTER)"
^DIPT(1015,"DXS",51,3)="S (SAME)"
^DIPT(1015,"DXS",51,4)="W (WORSE)"
^DIPT(1015,"DXS",51,5)="MW (MUCH WORSE)"
^DIPT(1015,"DXS",52,1)="MB (MUCH BETTER)"
^DIPT(1015,"DXS",52,2)="B (BETTER)"
^DIPT(1015,"DXS",52,3)="S (SAME)"
^DIPT(1015,"DXS",52,4)="W (WORSE)"
^DIPT(1015,"DXS",52,5)="MW (MUCH WORSE)"
^DIPT(1015,"DXS",53,0)="NONE"
^DIPT(1015,"DXS",53,1)="MILD"
^DIPT(1015,"DXS",53,2)="MODERATE"
^DIPT(1015,"DXS",53,3)="SEVERE"
^DIPT(1015,"DXS",54,0)="NONE"
^DIPT(1015,"DXS",54,1)="MILD"
^DIPT(1015,"DXS",54,2)="MODERATE"
^DIPT(1015,"DXS",54,3)="SEVERE"
^DIPT(1015,"DXS",55,0)="NONE"
^DIPT(1015,"DXS",55,1)="MILD"
^DIPT(1015,"DXS",55,2)="MODERATE"
^DIPT(1015,"DXS",55,3)="SEVERE"
^DIPT(1015,"DXS",56,0)="NONE"
^DIPT(1015,"DXS",56,1)="MILD"
^DIPT(1015,"DXS",56,2)="MODERATE"
^DIPT(1015,"DXS",56,3)="SEVERE"
^DIPT(1015,"DXS",57,0)="NONE"
^DIPT(1015,"DXS",57,1)="MILD"
^DIPT(1015,"DXS",57,2)="MODERATE"
^DIPT(1015,"DXS",57,3)="SEVERE"
^DIPT(1015,"DXS",58,0)="NONE"
^DIPT(1015,"DXS",58,1)="MILD"
^DIPT(1015,"DXS",58,2)="MODERATE"
^DIPT(1015,"DXS",58,3)="SEVERE"
^DIPT(1015,"DXS",59,0)="NONE"
^DIPT(1015,"DXS",59,1)="MILD"
^DIPT(1015,"DXS",59,2)="MODERATE"
^DIPT(1015,"DXS",59,3)="SEVERE"
^DIPT(1015,"DXS",60,0)="NONE"
^DIPT(1015,"DXS",60,1)="MILD"
^DIPT(1015,"DXS",60,2)="MODERATE"
^DIPT(1015,"DXS",60,3)="SEVERE"
^DIPT(1015,"DXS",61,0)="NONE"
^DIPT(1015,"DXS",61,1)="MILD"
^DIPT(1015,"DXS",61,2)="MODERATE"
^DIPT(1015,"DXS",61,3)="SEVERE"
^DIPT(1015,"DXS",62,0)="NONE"
^DIPT(1015,"DXS",62,1)="MILD"
^DIPT(1015,"DXS",62,2)="MODERATE"
^DIPT(1015,"DXS",62,3)="SEVERE"
^DIPT(1015,"DXS",63,0)="NONE"
^DIPT(1015,"DXS",63,1)="MILD"
^DIPT(1015,"DXS",63,2)="MODERATE"
^DIPT(1015,"DXS",63,3)="SEVERE"
^DIPT(1015,"DXS",64,0)="NONE"
^DIPT(1015,"DXS",64,1)="MILD"
^DIPT(1015,"DXS",64,2)="MODERATE"
^DIPT(1015,"DXS",64,3)="SEVERE"
^DIPT(1015,"DXS",65,0)="NONE"
^DIPT(1015,"DXS",65,1)="MILD"
^DIPT(1015,"DXS",65,2)="MODERATE"
^DIPT(1015,"DXS",65,3)="SEVERE"
^DIPT(1015,"DXS",66,0)="NONE"
^DIPT(1015,"DXS",66,1)="MILD"
^DIPT(1015,"DXS",66,2)="MODERATE"
^DIPT(1015,"DXS",66,3)="SEVERE"
^DIPT(1015,"DXS",67,0)="NONE"
^DIPT(1015,"DXS",67,1)="MILD"
^DIPT(1015,"DXS",67,2)="MODERATE"
^DIPT(1015,"DXS",67,3)="SEVERE"
^DIPT(1015,"DXS",68,0)="NONE"
^DIPT(1015,"DXS",68,1)="MILD"
^DIPT(1015,"DXS",68,2)="MODERATE"
^DIPT(1015,"DXS",68,3)="SEVERE"
^DIPT(1015,"DXS",69,0)="NONE"
^DIPT(1015,"DXS",69,1)="MILD"
^DIPT(1015,"DXS",69,2)="MODERATE"
^DIPT(1015,"DXS",69,3)="SEVERE"
^DIPT(1015,"DXS",70,0)="NONE"
^DIPT(1015,"DXS",70,1)="MILD"
^DIPT(1015,"DXS",70,2)="MODERATE"
^DIPT(1015,"DXS",70,3)="SEVERE"
^DIPT(1015,"DXS",71,0)="NONE"
^DIPT(1015,"DXS",71,1)="MILD"
^DIPT(1015,"DXS",71,2)="MODERATE"
^DIPT(1015,"DXS",71,3)="SEVERE"
^DIPT(1015,"DXS",72,0)="NONE"
^DIPT(1015,"DXS",72,1)="MILD"
^DIPT(1015,"DXS",72,2)="MODERATE"
^DIPT(1015,"DXS",72,3)="SEVERE"
^DIPT(1015,"DXS",73,0)="NONE"
^DIPT(1015,"DXS",73,1)="MILD"
^DIPT(1015,"DXS",73,2)="MODERATE"
^DIPT(1015,"DXS",73,3)="SEVERE"
^DIPT(1015,"DXS",74,0)="NONE"
^DIPT(1015,"DXS",74,1)="MILD"
^DIPT(1015,"DXS",74,2)="MODERATE"
^DIPT(1015,"DXS",74,3)="SEVERE"
^DIPT(1015,"DXS",75,0)="NONE"
^DIPT(1015,"DXS",75,1)="MILD"
^DIPT(1015,"DXS",75,2)="MODERATE"
^DIPT(1015,"DXS",75,3)="SEVERE"
^DIPT(1015,"DXS",76,0)="NONE"
^DIPT(1015,"DXS",76,1)="MILD"
^DIPT(1015,"DXS",76,2)="MODERATE"
^DIPT(1015,"DXS",76,3)="SEVERE"
^DIPT(1015,"DXS",77,0)="NONE"
^DIPT(1015,"DXS",77,1)="MILD"
^DIPT(1015,"DXS",77,2)="MODERATE"
^DIPT(1015,"DXS",77,3)="SEVERE"
^DIPT(1015,"DXS",78,0)="NONE"
^DIPT(1015,"DXS",78,1)="MILD"
^DIPT(1015,"DXS",78,2)="MODERATE"
^DIPT(1015,"DXS",78,3)="SEVERE"
^DIPT(1015,"DXS",79,0)="NONE"
^DIPT(1015,"DXS",79,1)="MILD"
^DIPT(1015,"DXS",79,2)="MODERATE"
^DIPT(1015,"DXS",79,3)="SEVERE"
^DIPT(1015,"DXS",80,0)="NONE"
^DIPT(1015,"DXS",80,1)="MILD"
^DIPT(1015,"DXS",80,2)="MODERATE"
^DIPT(1015,"DXS",80,3)="SEVERE"
^DIPT(1015,"DXS",81,0)="NONE"
^DIPT(1015,"DXS",81,1)="MILD"
^DIPT(1015,"DXS",81,2)="MODERATE"
^DIPT(1015,"DXS",81,3)="SEVERE"
^DIPT(1015,"DXS",82,0)="NONE"
^DIPT(1015,"DXS",82,1)="MILD"
^DIPT(1015,"DXS",82,2)="MODERATE"
^DIPT(1015,"DXS",82,3)="SEVERE"
^DIPT(1015,"F",1)="""PATIENT PHYSICAL EXAMINATION"";Y1;C1~-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(701,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""1:""~"
^DIPT(1015,"F",2)="""Height"";S;C1~62;C28;R8;X~"" cm"";C37~""Weight"";C1~63;C28;R8;X~"" kg"";C37~""Systolic pressure"";C1~64;C28;R8;X~"" mmhg"";C37~""Diastolic pressure"";C1~"
^DIPT(1015,"F",3)="65;C28;R8;X~"" mmhg"";C37~""Pulse"";C1~66;C28;R8;X~"" /min"";C37~""G E N E R A L :"";S;C1~""Uveitis"";C1~67;C28;R8;X~""Lymph Node Enlargement"";C40~77;C71;R8;X~"
^DIPT(1015,"F",4)="""Cataract"";C1~68;C28;R8;X~""Muscle Tenderness"";C40~78;C71;R8;X~""Iritis"";C1~69;C28;R8;X~""Muscle Weakness - Dital"";C40~79;C71;R8;X~""Oral Ulcers"";C1~"
^DIPT(1015,"F",5)="70;C28;R8;X~""Hepatomegaly"";C40~80;C71;R8;X~""Rales"";C1~71;C28;R8;X~""Splenomegoly"";C40~81;C71;R8;X~""Pleural Rub"";S;C1~72;C28;R8;X~"
^DIPT(1015,"F",6)="""Muscle Weakness - Proximal"";C40~82;C71;X~""Pleural Effusion"";C1~73;C28;R8;X~""Muscle Atrophy"";C40~83;C71;R8;X~""Pericardial Rub"";C1~74;C28;R8;X~"
^DIPT(1015,"F",7)="""Psychosis"";C40~84;C71;R8;X~""Systolic Murmur"";C1~75;C28;R8;X~""Organic Brain Syndrome"";C40~85;C71;R8;X~""Diastolic Murmur"";C1~76;C28;R8;X~"
^DIPT(1015,"F",8)="""Motor Neurophathy"";C40~86;C71;R8;X~""Sensory Neurophathy"";C40~87;C71;R8;X~""S K I N"";S;C1~""Heliotrope Eyelids"";C1~88;C28;R8;X~""Telangiectasis"";C40~"
^DIPT(1015,"F",9)="98;C71;R8;X~""Rash - Malar"";C1~89;C28;R8;X~""Cutaneous Vasculitis"";C40~99;C71;R8;X~""Psoriasis"";C1~90;C28;R8;X~""Periungal Erythema"";C40~100;C71;R8;X~"
^DIPT(1015,"F",10)="""Rash - Discoid"";C1~91;C28;R8;X~""Keratodermia Blennorrhagica"";C40~101;C71;R8;X~""Rash - JRA"";C1~92;C28;R8;X~""Knuckle Erythema"";C40~102;C71;R8;X~"
^DIPT(1015,"F",11)="""Palpable Purpura"";S1;C1~93;C28;R8;X~""Digital Ulcers"";C40~103;C71;R8;X~""Sclerodactyly"";C1~94;C28;R8;X~""Nail Pitting"";C40~104;C71;R8;X~"
^DIPT(1015,"F",12)="""Scleroderma - Extremity"";C1~95;C28;R8;X~""Skin Ulcers"";C40~105;C71;R8;X~""Scleroderma - Generalized"";C1~96;C28;R8;X~""Erythema Nodosum"";C40~106;C71;R8;X~"
^DIPT(1015,"F",13)="""Morphea"";C1~97;C28;R8;X~""C U R R E N T M E D I C A T I O N :"";S1;C1~107;C1~""P R E S R I B E D M E D I C A T I O N S :"";S1;C1~108,.01;C1~"" "";Y-1~"
^DIPT(1015,"F",14)="""PATIENT PHYSICAL EXAMINATION"";Y1;C1~-690,^MCAR(690,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(701,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""1:""~"
^DIPT(1015,"F",15)="""R H E U M A T I C :"";S1;C1~""Sysmmetrical Arthritis"";C1~109;C33;R8;X~""Dactylitis"";C1~110;C33;R8;X~""Tophi"";C1~111;C33;R8;X~""Sub-Cutaneous Nodules"";C1~"
^DIPT(1015,"F",16)="112;C33;R8;X~""Synovial (Baker's) Cyst"";C1~113;C33;R8;X~""Heel Pain"";S1;C1~114;C33;R8;X~""Tenosynovitis (Tendon Rubs)"";C1~115;C33;R8;X~"
^DIPT(1015,"F",17)="""Temporal Artery Tenderness"";C1~116;C33;R8;X~""Costochondritis"";C1~117;C33;R8;X~""F U N C T I O N A L A S S E S S M E N T :"";S1;C1~"
^DIPT(1015,"F",18)="""Grip Strength - left"";C1~118;C33;R8;X~"" mmHg"";C41~""Grip Strength - Right"";C1~119;C33;R8;X~"" mmHg"";C41~""Schober Test (10 cm Base)"";C1~120;C33;R8;X~"
^DIPT(1015,"F",19)=""" cm"";C41~""Chest Expansion"";C1~121;C33;R8;X~"" cm"";C41~""Occiput - Wall"";C1~122;C33;R8;X~"" cm"";C41~""Finger-to-Palm Crease - left"";C1~123;C33;R8;X~"
^DIPT(1015,"F",20)=""" cm"";C41~""Finger-to-Palm Crease - Right"";C1~124;C33;R8;X~"" cm"";C41~""Interincisor Distance"";C1~125;C33;R8;X~"" mm"";C41~""Schirmer Test"";C1~126;C33;R8;X~"
^DIPT(1015,"F",21)=""" mm"";C41~""Walk Time (50 feet)"";C1~127;C33;R8;X~"" secs"";C41~""M I S C E L L A N E O U S :"";S1;C1~""Functional Class (ARA)"";C1~128;C64;R16;X~"
^DIPT(1015,"F",22)="""Disease Severity - Patient Estimate"";C1~129;C64;R16;X~""Disease Severity - Physician Estimate"";C1~329;C64;R16;X~"
^DIPT(1015,"F",23)="""J O I N T E X A M I N A T I O N:"";S1;C1~""LEFT"";C1~""RIGHT"";C71~""----"";C1~""-----"";C71~130;C1;L8;X~""Fingers - DIPs"";C31~131;C71;R8;X~132;C1;L8;X~"
^DIPT(1015,"F",24)="""Fingers - PIPs"";C31~133;C71;R8;X~134;C1;L8;X~""MCPs"";C31~135;C71;R8;X~136;C1;L8;X~""First Carpomentacarpal"";C31~137;C71;R8;X~138;C1;L8;X~""Wrist"";C31~"
^DIPT(1015,"F",25)="139;C71;R8;X~140;C1;L8;X~""Elbow"";C31~141;C71;R8;X~142;C1;L8;X~""Shoulder"";C31~143;C71;R8;X~144;C1;L8;X~""Sternoclavicular"";C31~145;C71;R8;X~146;C1;L8;X~"
^DIPT(1015,"F",26)="""TMJ"";C31~147;C71;R8;X~148;C1;L8;X~""HIP"";C31~149;C71;R8;X~150;C1;L8;X~""Knee"";C31~151;C71;R8;X~152;C1;L8;X~""Ankle"";C31~153;C71;R8;X~154;C1;L8;X~"
^DIPT(1015,"F",27)="""MTP"";C31~155;C71;R8;X~156;C1;L8;X~""Toes - PIP"";C31~157;C71;R8;X~""Cervical Spine"";C31;S~158;C71;R8;X~""Lumber Spine"";C31~159;C71;R8;X~"" "";Y-1;C1~"
^DIPT(1015,"H")="@"
^DIPT(1015,"IOM")="80"
^DIPT(1015,"LAST")="3"
^DIPT(1015,"ROU")="^MCARORF"
^DIPT(1015,"ROUOLD")="MCARORF"
^DIPT(1015,"SUB")="1"
^DIPT(1016,0)="MCCONSULT^2960513.1109^^699.5^^^2960513"
^DIPT(1016,"F",1)="""Provider/Physician: "";C1;S1~6~""Consultation Type: "";C1;S~31.5~""Subjective: "";C1;S2~32,.01;C14;W60~""Objective:"";C1;S2~33,.01;C14;W60~"
^DIPT(1016,"F",2)="""Assessment:"";C1;S2~34,.01;C14;W60~""Planned:"";C1;S2~35,.01;C14;W60~""Indication Comment: "";C1;S2~3;C25;X;W60~""Procedure Summary: "";C1;S2//~"
^DIPT(1016,"F",3)="600;C22;X;W60//~S MCFILE=699.5 D DISP^MCMAG;Z;""S MCFILE=699.5 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1016,"H")="@"
^DIPT(1016,"IOM")="80"
^DIPT(1016,"LAST")=""
^DIPT(1016,"ROU")="^MCAROGC"
^DIPT(1016,"ROUOLD")="MCAROGC"
^DIPT(1016,"SUB")="1"
^DIPT(1017,0)="MCPFTBRIEF^2960513.1114^^700^^^2960513"
^DIPT(1017,"F",2)=".01~.03~1~17,.01~17,1~18,.01~18,1~18,2~18,5.5~20,.01~20,2~20,3~20,4~600~"
^DIPT(1017,"H")="PULMONARY FUNCTION TESTS BRIEF LIST"
^DIPT(1018,0)="MCGENERICPRINT^2970701.125^^699.5^^^2970701"
^DIPT(1018,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(1018,"DXS",2,"A")="ABNORMAL"
^DIPT(1018,"DXS",2,"I")="INCOMPLETE EXAMINATION"
^DIPT(1018,"DXS",2,"N")="NORMAL"
^DIPT(1018,"F",1)="""PROCEDURE: "";S;C5~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;C20;Z;""PROCEDURE:PRINT NAME""~""INDICATION: "";S;C5~1,.01;C20;W55;X~"
^DIPT(1018,"F",2)="""MEDICATIONS: "";S;C5~5,.01;C20;X~""PROVIDER/PHYSICIAN: "";C5;S~6;X~""TECHNIQUE: "";C5;S~7,.01;C20;X~""COMPLICATIONS: "";C5;S~30,.01;C20;X~"
^DIPT(1018,"F",3)="""SUBJECTIVE: "";C5;S~32,.01;C20;W55;X~""OBJECTIVE: "";C5;S~33,.01;C20;W55;X~""ASSESSMENT/FINDINGS: "";C5;S~34,.01;C20;W55;X~""PLAN: "";C5;S~35,.01;C20;W55;X~"
^DIPT(1018,"F",4)="""SUMMARY: "";S;C5~601;C20;X~""PROCEDURE SUMMARY: "";S;C5~600;C20;W55;X~S MCFILE=699.5 D DISP^MCMAG;Z;""S MCFILE=699.5 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1018,"H")="@"
^DIPT(1018,"IOM")="80"
^DIPT(1018,"LAST")=""
^DIPT(1018,"ROU")="^MCAROGE"
^DIPT(1018,"ROUOLD")="MCAROGE"
^DIPT(1018,"SUB")="1"
^DIPT(1019,0)="MCARCATHBRPR^2960403.1015^^691.1^^^2960403"
^DIPT(1019,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,9)="""",DIP(2)=X S X=$P(DIP(1),U,10)="""",Y=X,X=DIP(2),X=X&Y,DIP(3)=X S X="" "",DIP(4)=X S X=1"
^DIPT(1019,"DXS",2,9)="X DXS(2,9.3) S DIP(102)=$S($D(^MCAR(691.1,D0,41,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(696.9,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1019,"DXS",2,9.2)="S I(0)=""^MCAR(691.1,"",J(0)=691.1 F D=0:0 S (D,D1)=$O(^MCAR(691.1,D0,41,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(696.9,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(1019,"DXS",2,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(2,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(691.1,D0,41,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(1019,"DXS",3,1)="BASELINE"
^DIPT(1019,"DXS",3,2)="POST CONTRAST"
^DIPT(1019,"DXS",3,3)="AFTER EXERCISE"
^DIPT(1019,"DXS",3,4)="AFTER DRUGS"
^DIPT(1019,"DXS",3,9)="OTHER"
^DIPT(1019,"DXS",4,"A")="ABNORMAL"
^DIPT(1019,"DXS",4,"B")="BORDERLINE"
^DIPT(1019,"DXS",4,"N")="NORMAL"
^DIPT(1019,"F",1)="""DATE/TIME: ""~.01;X~""MEDICAL PATIENT: "";C35~1;X~""PROCEDURES: "";C5;S~8,.01;C20~""INDICATIONS: "";C5;S~13,.01;C20~26,""INTERVENTION: "";C5;S~26,.01;C20~"
^DIPT(1019,"F",2)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""RA MEAN PRESSURE: ""_$P(DIP(1),U,4) W X K DIP;C10;S;Z;""""RA MEAN PRESSURE: ""_RA MEAN PRESSURE""~"
^DIPT(1019,"F",3)="26,""PA SYSTOLIC/DIASTOLIC: "";C40~"
^DIPT(1019,"F",4)="26,X DXS(1,9.2) S DIP(5)=X S X=$P(DIP(1),U,9)_""/""_$P(DIP(1),U,10),X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;Z;""$S(#8=""""&(#9=""""):"" "",1:#8_""/""_#9)""~"
^DIPT(1019,"F",5)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PCW MEAN: ""_$P(DIP(1),U,15) W X K DIP;C10;Z;""""PCW MEAN: ""_PCW MEAN""~"
^DIPT(1019,"F",6)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LV END DIASTOLIC (Z): ""_$P(DIP(1),U,21) W X K DIP;C40;Z;""""LV END DIASTOLIC (Z): ""_#20""~"
^DIPT(1019,"F",7)=""" "";S~28,.01;C10~28,1;C40~28,1.5;C40~33,""LEFT MAIN CA NARROWING"";C10~33,.01;C40~33.5,""LEFT MAIN CA NARROWING NUMBER"";C10~33.5,.01;C40~35,.01;C10~35,1;C40~"
^DIPT(1019,"F",8)="35,1.5;C40~40,.01;C10~40,1;C40~40,1.5;C40~48,""STARTING"";C24;S~48,""RESULTING"";C39~48,""% OBSTRUCTION"";C22~48,""% OBSTRUCTION"";C37~48,.01;C8~48,1;C24~"
^DIPT(1019,"F",9)="48,1.5;C24~48,2;C41~48,2.5;C41~"
^DIPT(1019,"F",10)="S DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""EJECTION FRACTION: ""_$P(DIP(1),U,3) W X K DIP;C5;S;Z;""""EJECTION FRACTION: ""_LV EJ""~"
^DIPT(1019,"F",11)="""COMPLICATIONS: "";C5;S~X DXS(2,9) W X K DIP;C21;X;m;Z;""COMPLICATION:COMPLICATION""~""CONCLUSION: "";C5;S~60,.01;W60;C18~""PLAN: "";C5;S~61,.01;W65~"
^DIPT(1019,"F",12)="""SUMMARY: "";C5;S~.03;X~""PROCEDURE SUMMARY: "";C5;S~600;W60;C18~""CARDIOLOGY STAFF: "";C5;S~63;X~"
^DIPT(1019,"F",13)="S MCFILE=691.1 D DISP^MCMAG;Z;""S MCFILE=691.1 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1019,"H")="@"
^DIPT(1019,"IOM")="80"
^DIPT(1019,"LAST")="1"
^DIPT(1019,"ROU")="^MCOBC1"
^DIPT(1019,"ROUOLD")="MCOBC1"
^DIPT(1019,"SUB")="1"
^DIPT(1020,0)="MCARECGBRPR^2960513.0946^^691.5^^^2960513"
^DIPT(1020,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(691.5,.03,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.5,D0,.2)):^(.2),1:"""") S X=""SUMMARY: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(1020,"F",1)="""DATE/TIME: ""~.01;C12;L18;X~""MEDICAL PATIENT: "";C35~1;X~"
^DIPT(1020,"F",2)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""VENT RATE: ""_$P(DIP(1),U,4) W X K DIP;S;C10;Z;""""VENT RATE: ""_VENT. RATE""~"
^DIPT(1020,"F",3)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""PR INTERVAL: ""_$P(DIP(1),U,5) W X K DIP;C32;Z;""""PR INTERVAL: ""_PR INTERVAL""~"
^DIPT(1020,"F",4)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""QRS DURATION: ""_$P(DIP(1),U,6) W X K DIP;C10;Z;""""QRS DURATION: ""_QRS DURATION""~"
^DIPT(1020,"F",5)="S DIP(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=""QT: ""_$P(DIP(1),U,7) W X K DIP;C32;Z;""""QT: ""_QT""~""COMPARISON: "";C5;S~13;X;W60~""INSTRUMENT DX: "";C5;S~"
^DIPT(1020,"F",6)="20,.01;C21~X DXS(1,9) W X K DIP;C5;S;Z;""""SUMMARY: ""_SUMMARY""~"
^DIPT(1020,"F",7)="S DIP(1)=$S($D(^MCAR(691.5,D0,.2)):^(.2),1:"""") S X=""PROCEDURE SUMMARY: ""_$P(DIP(1),U,2) W X K DIP;C5;S;Z;""""PROCEDURE SUMMARY: ""_PROCEDURE SUMMARY""~"
^DIPT(1020,"F",8)="""INTERPRETED BY: "";C5;S~12;X~S MCFILE=691.5 D DISP^MCMAG;Z;""S MCFILE=691.5 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1020,"H")="@"
^DIPT(1020,"IOM")="80"
^DIPT(1020,"LAST")=""
^DIPT(1020,"ROU")="^MCOBE1"
^DIPT(1020,"ROUOLD")="MCOBE1"
^DIPT(1020,"SUB")="1"
^DIPT(1021,0)="MCARECHOBRPR^2960606.132^^691^^^2960606"
^DIPT(1021,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(691.04,1,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691,D0,6,D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(1021,"DXS",2,1)="HYPERKINETIC"
^DIPT(1021,"DXS",2,2)="NORMAL"
^DIPT(1021,"DXS",2,3)="MILDLY HYPOKINETIC"
^DIPT(1021,"DXS",2,4)="HYPOKINETIC"
^DIPT(1021,"DXS",2,5)="AKINETIC"
^DIPT(1021,"DXS",2,6)="DYSKINETIC"
^DIPT(1021,"DXS",2,7)="UNINTERPRETABLE"
^DIPT(1021,"DXS",3,"A")="ABNORMAL"
^DIPT(1021,"DXS",3,"B")="BORDERLINE"
^DIPT(1021,"DXS",3,"N")="NORMAL"
^DIPT(1021,"F",1)="""DATE/TIME: ""~.01;C12;L18;X~""MEDICAL PATIENT: "";C35~1;X~""SEPTUM: "";C10~11;X;L~""(8-11mm)"";C29~""POST LV WALL: "";C10~12;X;L~""(8-11mm)"";C29~"
^DIPT(1021,"F",2)="""LV DIASTOLE: "";C10~17;X;L~""(40-55mm)"";C28~""LV SYSTOLE: "";C10~18;X;L~""(25-30mm)"";C28~""% FRACT SHORT: "";C10~19;X;L~""(25-45)"";C30~"
^DIPT(1021,"F",3)="""REGIONAL WALL MOTION"";C10~33,.01;C12~"
^DIPT(1021,"F",4)="33,X DXS(1,9.2) S X=X="""",DIP(3)=X S X="""",DIP(4)=X S X=1,DIP(5)=X S X="", "",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;X;Z;""$S(#1="""":"""",1:"", "")""~33,1;X~"
^DIPT(1021,"F",5)="""FINDINGS: "";S;C5~37,.01;C10;W65~""DIAGNOSIS(ES): "";C5;S~37.5,.01;C10~""OTHER CONCLUSIONS:"";C5;S~38,.01;C10;W65~""SUMMARY: "";C5;S~.03;X~"
^DIPT(1021,"F",6)="""PROCEDURE SUMMARY: "";C5;S~600;C10;W65~""CARDIOLOGY ATTENDING:"";C5;S~39~S MCFILE=691 D DISP^MCMAG;Z;""S MCFILE=691 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1021,"H")="@"
^DIPT(1021,"IOM")="80"
^DIPT(1021,"LAST")=""
^DIPT(1021,"ROU")="^MCOBK"
^DIPT(1021,"ROUOLD")="MCOBK"
^DIPT(1021,"SUB")="1"
^DIPT(1022,0)="MCAREPBRPR^2960514.091^^691.8^^^2960514"
^DIPT(1022,"F",1)="""DATE/TIME: ""~.01;C12;L18;X~""MEDICAL PATIENT: "";C35~1;X~""REASON FOR STUDY: "";C5;S~4;C25;W55~""INTERPRETATION: "";C5;S~13,.01;C25;W55~""COMMENTS: "";C5;S~"
^DIPT(1022,"F",2)="14,.01;X;W60~""CARDIOLOGY STAFF: "";C5;S~16;X~""CARDIOLOGY FELLOW: "";C5;S~17;X~""PROCEDURE SUMMARY: "";C5;S~600;C10;W65~S MCFILE=691.8;Z;""S MCFILE=691.8""~"
^DIPT(1022,"F",3)="D DISP^MCMAG;Z;""D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1022,"H")="@"
^DIPT(1022,"IOM")="80"
^DIPT(1022,"LAST")=""
^DIPT(1022,"ROU")="^MCOBEP"
^DIPT(1022,"ROUOLD")="MCOBEP"
^DIPT(1022,"SUB")="1"
^DIPT(1023,0)="MCARHOLTERBRPR^2960513.0952^^691.6^^^2960513"
^DIPT(1023,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X='$P(DIP(1),U,22),DIP(2)=X S X="""",DIP(3)=X S X='$P(DIP(1),U,3),DIP(4)=X S X="""",DIP(5)=X S X=1,DIP(6)=X"
^DIPT(1023,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,57,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X=""HEART BLOCK: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(1023,"DXS",3,9.2)="S DIP(3)=$C(59)_$S($D(^DD(691.6,60,0)):$P(^(0),U,3),1:""""),DIP(2)=$S($D(^MCAR(691.6,D0,6)):^(6),1:"""") S X="" "",DIP(1)=X"
^DIPT(1023,"DXS",3,9.3)="X DXS(3,9.2) S X=$P($P(DIP(3),$C(59)_$P(DIP(2),U,10)_"":"",2),$C(59),1)[""Y"",DIP(4)=X S X=""LONGEST PAUSE: ""_$P(DIP(2),U,11)_"" SEC"",DIP(5)=X S X=1,DIP(6)=X S X="""""
^DIPT(1023,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(691.6,65,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.6,D0,9)):^(9),1:"""") S X=""ST LEVEL DEP/ELEV: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(1023,"DXS",5,1)="SYNCOPE"
^DIPT(1023,"DXS",5,2)="HX SUDDEN DEATH OR SUSTAINED V-T"
^DIPT(1023,"DXS",5,3)="DOCUMENTED V ECTOPY"
^DIPT(1023,"DXS",5,4)="DOCUMENTED SVT"
^DIPT(1023,"DXS",5,5)="WPW"
^DIPT(1023,"DXS",5,6)="PACEMAKER"
^DIPT(1023,"DXS",5,7)="EFFICACY OF THERAPY"
^DIPT(1023,"DXS",5,8)="LIGHTHEADEDNESS"
^DIPT(1023,"DXS",5,9)="RECENT INFARCT"
^DIPT(1023,"DXS",6,"A")="ABNORMAL"
^DIPT(1023,"DXS",6,"B")="BORDERLINE"
^DIPT(1023,"DXS",6,"N")="NORMAL"
^DIPT(1023,"DXS",6,"T")="TECHNICALLY UNSATISFACTORY"
^DIPT(1023,"F",1)="""HOOK-UP DATE/TIME: ""~.01;X~""PATIENT: "";S1;C5~1;X~""REQUESTED BY: "";C5;S~4;X~""REASON FOR STUDY: "";C5;S~5.5,.01;C25~""OTHER INDICATIONS: "";C5;S~5.8,.01;W55;X~"
^DIPT(1023,"F",2)="""REVIEWED BY: "";C5;S~14;X~""MAXIMUM"";C10~28;C33~""AVERAGE"";C10~27;C33~39;R8;C4~""COUPLETS"";L25;C13~""NUMBER OF RUNS 3 OR MORE (VENT)"";C4~40;X~42;R8;C4~"
^DIPT(1023,"F",3)="""BEATS IN LONGEST RUN"";L25;C13~43;R8;C4~""BEATS FASTEST RUN AT"";L20;C13~"
^DIPT(1023,"F",4)="X DXS(1,9.2) S X=$P(DIP(1),U,22),X=$S($P(DIP(1),U,3):X\$P(DIP(1),U,3),1:""*******""),X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):X) W X K DIP;R8;C4;Z;""$S('#46:"""",'#26:"""",1:#46\#26)""~"
^DIPT(1023,"F",5)="""AVE/HOUR"";L25;C13~X DXS(2,9) W X K DIP;C5;S2;Z;""""HEART BLOCK: ""_HEART BLOCK""~"
^DIPT(1023,"F",6)="X DXS(3,9.3) S X=$S(DIP(4):DIP(5),DIP(6):X) S Y=X,X=DIP(1),X=X_Y W X K DIP;Z;"""" ""_$S(#60[""Y"":""LONGEST PAUSE: ""_LONGEST PAUSE (VENT)_"" SEC"",1:"""")""~"
^DIPT(1023,"F",7)="S DIP(1)=$S($D(^MCAR(691.6,D0,9)):^(9),1:"""") S X=""ST LEVEL: ""_$P(DIP(1),U,2) W X K DIP;C5;S;Z;""""ST LEVEL: ""_ST LEVEL""~"
^DIPT(1023,"F",8)="X DXS(4,9) W X K DIP;C5;S;Z;""""ST LEVEL DEP/ELEV: ""_ST LEVEL DEP/ELEV""~""INTERPRETATION: "";C5;S~62,.01;W55;X~""SUMMARY: "";C5;S~.03;X~"
^DIPT(1023,"F",9)="""PROCEDURE SUMMARY: "";C5;S~600;C10;W65~S MCFILE=691.6 D DISP^MCMAG;Z;""S MCFILE=691.6 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1023,"H")="@"
^DIPT(1023,"IOM")="80"
^DIPT(1023,"LAST")=""
^DIPT(1023,"ROU")="^MCOBH1"
^DIPT(1023,"ROUOLD")="MCOBH1"
^DIPT(1023,"SUB")="1"
^DIPT(1024,0)="MCARETTBRPR^2960513.0956^^691.7^^^2960513"
^DIPT(1024,"DXS",1,9)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(1),X=X S X=X_Y"
^DIPT(1024,"DXS",1,9.2)="S DIP(2)=$S($D(^MCAR(691.7,D0,0)):^(0),1:"""") S X=""TIME TEST: "",DIP(1)=X S X=$P(DIP(2),U,1)"
^DIPT(1024,"DXS",2,9)="S DIP(1)=$S($D(^MCAR(691.7,D0,5)):^(5),1:"""") S X=""REASON FOR STOPPING: ""_$S('$D(^MCAR(695.8,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DIPT(1024,"DXS",3,"A")="Overt or Latent C.H.D."
^DIPT(1024,"DXS",3,"B")="Diff. diag. - chest pain etiology"
^DIPT(1024,"DXS",3,"C")="Determination of functional capacity"
^DIPT(1024,"DXS",3,"D")="Determination of need for cardiac rehab."
^DIPT(1024,"DXS",3,"E")="Research - drug evaluation"
^DIPT(1024,"DXS",3,"F")="Screening for employm. or ins."
^DIPT(1024,"DXS",4,"A")="ARM ERGOMETRY"
^DIPT(1024,"DXS",4,"BA")="BALKE"
^DIPT(1024,"DXS",4,"BI")="BICYCLE ERGOMETRY"
^DIPT(1024,"DXS",4,"BL")="BLOCKER"
^DIPT(1024,"DXS",4,"BR")="BRUCE"
^DIPT(1024,"DXS",4,"L")="LEVEL MODIFIED BRUCE"
^DIPT(1024,"DXS",4,"M")="MODIFIED BRUCE"
^DIPT(1024,"DXS",4,"MN")="MODIFIED NAUGHTON"
^DIPT(1024,"DXS",4,"N")="NAUGHTON"
^DIPT(1024,"DXS",4,"S")="SPECIAL"
^DIPT(1024,"DXS",5,"H")="HYPERTENSIVE"
^DIPT(1024,"DXS",5,"N")="NORMAL"
^DIPT(1024,"DXS",5,"SR")="SYSTOLIC ROLL-OVER"
^DIPT(1024,"DXS",6,"A")="ABNORMAL"
^DIPT(1024,"DXS",6,"B")="BORDERLINE"
^DIPT(1024,"DXS",6,"N")="NORMAL"
^DIPT(1024,"DXS",6,"T")="TECHNICALLY UNSATISFACTORY"
^DIPT(1024,"F",1)="X DXS(1,9) W X K DIP;L18;Z;""""TIME TEST: ""_TIME(DATE/TIME OF TEST)""~""MEDICAL PATIENT: "";C35~1;X~""REASON FOR TEST: "";C5;S~3;X;W55~""ETT PROTOCOL: "";C5;S~"
^DIPT(1024,"F",2)="7;X~""PEAK EX"";C17~""-------"";C17~""HR"";C8;X~29;C17~""SBP/DBP"";C8;X~"
^DIPT(1024,"F",3)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,2)_""/""_$P(DIP(1),U,3) W X K DIP;C17;Z;""PK SBP_""/""_PK DBP""~""ST/SLP"";C8;X~"
^DIPT(1024,"F",4)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,7)_""/""_$P(DIP(1),U,8) W X K DIP;C17;Z;""PK ST_""/""_#40""~""RPP/1000"";C8;X~"
^DIPT(1024,"F",5)="X $P(^DD(691.7,42,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C17;Z;""$J(#42,6,2)""~"
^DIPT(1024,"F",6)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=""PEAK MPH: ""_$P(DIP(1),U,4) W X K DIP;C5;S;Z;""""PEAK MPH: ""_#32""~"
^DIPT(1024,"F",7)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X="" %GRADE: ""_$P(DIP(1),U,5) W X K DIP;Z;"""" %GRADE: ""_#33""~"
^DIPT(1024,"F",8)="S DIP(1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X="" METS: ""_$P(DIP(1),U,6) W X K DIP;Z;"""" METS: ""_#34""~"
^DIPT(1024,"F",9)="X $P(^DD(691.7,48,0),U,5,99) S DIP(1)=X S X="" %TARGET HR: ""_DIP(1) W X K DIP;Z;"""" %TARGET HR: ""_% TARGET HR""~"
^DIPT(1024,"F",10)="X DXS(2,9) W X K DIP;C5;S;Z;""""REASON FOR STOPPING: ""_REASON FOR STOPPING""~""SIGNIFICANT ARRHYTHMIAS:"";C5;S~""BLOOD PRESSURE CHANGES:"";C5;S~53.5~"
^DIPT(1024,"F",11)="""COMPLICATIONS:"";C5;S~70,.01;C20;X~""SUMMARY: "";C5;S~.03;X~""PROCEDURE SUMMARY: "";C5;S~600;C10;W65~""EKG TECH:"";C5;S~57;X~""ATTN PHYS:"";C5;S~58;X~"
^DIPT(1024,"F",12)="S MCFILE=691.7 D DISP^MCMAG;Z;""S MCFILE=691.7 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1024,"H")="@"
^DIPT(1024,"IOM")="80"
^DIPT(1024,"LAST")=""
^DIPT(1024,"ROU")="^MCOBT"
^DIPT(1024,"ROUOLD")="MCOBT"
^DIPT(1024,"SUB")="1"
^DIPT(1025,0)="MCCONSULTBRPR^2960513.111^^699.5^^^2960513"
^DIPT(1025,"DXS",1,1)="YES"
^DIPT(1025,"F",1)=""
^DIPT(1025,"F",2)="S DIP(1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:"""") S X=""DATE/TIME OF CONSULTATION: ""_$P(DIP(1),U,1) S Y=X D DT K DIP;L18;Z;""""DATE/TIME OF CONSULTATION: ""_DATE/TIME""~"
^DIPT(1025,"F",3)="""MEDICAL PATIENT: "";C40~.02;X~""PROBLEM ORIENTED CONSULT?: "";C5;S~2;X~""SUBJECTIVE: "";C5;S~32,.01;W55;X~""OBJECTIVE: "";C5;S~33,.01;W55;X~"
^DIPT(1025,"F",4)="""ASSESSMENT/FINDINGS: "";C5;S~34,.01;W55;X~S MCFILE=699.5 D DISP^MCMAG;Z;""S MCFILE=699.5 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1025,"H")="@"
^DIPT(1025,"IOM")="80"
^DIPT(1025,"LAST")=""
^DIPT(1025,"ROU")="^MCOBGC"
^DIPT(1025,"ROUOLD")="MCOBGC"
^DIPT(1025,"SUB")="1"
^DIPT(1026,0)="MCARGIBRPR^2960513.1042^^699^^^2960513"
^DIPT(1026,"DXS",1,9)="F ZI=0:0 S ZI=$O(^MCAR(699,D0,30,D1,1,ZI)) Q:ZI'?1N.N S ZZ=^(ZI,0) W "", "",^MCAR(699.57,ZZ,0)"
^DIPT(1026,"DXS",2,9.2)="S DIP(1)=$S($D(^MCAR(699,D0,30,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4)'="""",DIP(2)=X S X=""Measurement: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1026,"DXS",3,9)="I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,4) W !,?2,""Common Bile Duct Size (mm)"",$P(^(15),U,4)"
^DIPT(1026,"DXS",4,9)="I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,5) W !,?2,""Pancreatic Duct Size (mm)"",$P(^(15),U,5)"
^DIPT(1026,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1026,"DXS",5,9.2)="S X=""PROCEDURE SUMMARY"""
^DIPT(1026,"DXS",6,9)="X DXS(6,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1026,"DXS",6,9.2)="S X=""DIAGNOSIS(ES)"""
^DIPT(1026,"DXS",7,"A")="ABNORMAL"
^DIPT(1026,"DXS",7,"I")="INCOMPLETE EXAMINATION"
^DIPT(1026,"DXS",7,"N")="NORMAL"
^DIPT(1026,"DXS",8,1)="REQUIRED NO THERAPY"
^DIPT(1026,"DXS",8,2)="REQUIRED TRANSFUSION"
^DIPT(1026,"DXS",8,3)="REQUIRED MEDICAL THERAPY"
^DIPT(1026,"DXS",8,4)="REQUIRED ENDOSCOPIC THERAPY"
^DIPT(1026,"DXS",8,5)="REQUIRED SURGICAL THERAPY"
^DIPT(1026,"DXS",8,6)="RESULTED IN DEATH"
^DIPT(1026,"DXS",9,1)="VISIT FOLLOW-UP"
^DIPT(1026,"DXS",9,2)="ENDOSCOPY FOLLOW-UP"
^DIPT(1026,"DXS",9,3)="TEST (LAB OR XRAY)"
^DIPT(1026,"DXS",9,4)="CONSULT OTHER SPECIALIST"
^DIPT(1026,"DXS",9,5)="RETURN TO REFERRING MD"
^DIPT(1026,"DXS",9,6)="ADMIT TO HOSPITAL"
^DIPT(1026,"DXS",9,7)="DISCHARGED TO HOME"
^DIPT(1026,"DXS",9,8)="DISCHARGED TO WARD"
^DIPT(1026,"DXS",9,9)="OTHER"
^DIPT(1026,"F",1)="""APPT DATE/TIME: ""~.01;C17;L18;X~""MEDICAL PATIENT: "";C40~.02;X~""INDICATED THERAPY: "";C5;S~2.1,.01;W55;X~""SIGNS AND SYMPTOMS: "";C5;S~2.2,.01;W55;X~"
^DIPT(1026,"F",2)="""DISEASE FOLLOWUP: "";C5;S~2.5,.01;W55;X~""FOLLOWUP DEVICE OR THERAPY: "";C5;S~2.6,.01;W55;X~""SURVEILLANCE: "";C5;S~2.7,.01;W55;X~"
^DIPT(1026,"F",3)="S DIP(1)=$S($D(^MCAR(699,D0,31)):^(31),1:"""") S X=""PROTOCOL: ""_$P(DIP(1),U,1) W X K DIP;C5;Z;""""PROTOCOL: ""_#2.8""~"
^DIPT(1026,"F",4)="S DIP(1)=$S($D(^MCAR(699,D0,31)):^(31),1:"""") S X=""EGD SIMPLE PRIMARY EXAM: ""_$P(DIP(1),U,2) W X K DIP;C5;Z;""""EGD SIMPLE PRIMARY EXAM: ""_EGD SIMPLE PRIMARY EXAM""~"
^DIPT(1026,"F",5)="S DIP(1)=$S($D(^MCAR(699,D0,31)):^(31),1:"""") S X=""LAB OR XRAY: ""_$P(DIP(1),U,3) W X K DIP;C5;Z;""""LAB OR XRAY: ""_LAB OR XRAY""~"
^DIPT(1026,"F",6)="S DIP(1)=$S($D(^MCAR(699,D0,32)):^(32),1:"""") S X=""OCCULT BLOOD: ""_$P(DIP(1),U,1) W X K DIP;C5;Z;""""OCCULT BLOOD: ""_OCCULT BLOOD""~"
^DIPT(1026,"F",7)="S DIP(1)=$S($D(^MCAR(699,D0,32)):^(32),1:"""") S X=""SPECIMEN COLLECTION: ""_$P(DIP(1),U,2) W X K DIP;C5;Z;""""SPECIMEN COLLECTION: ""_SPECIMEN COLLECTION""~"
^DIPT(1026,"F",8)="""COMMENT: "";C3~3;C13;X;W~""ENDOSCOPIST: "";C2~6;C16~""FELLOW: "";C45~200;X~D:MCARGNAM=""COL"" COL^MCARGS;Z;""D:MCARGNAM=""COL"" COL^MCARGS""~"
^DIPT(1026,"F",9)="D:MCARGNAM=""LAP"" LAP^MCARGS;Z;""D:MCARGNAM=""LAP"" LAP^MCARGS""~""SUMMARY: "";C5;S~202;X~""LOCATION: "";C3;S~50,.01~50,""DESCRIPTION: "";C3~50,2;C17;X~"
^DIPT(1026,"F",10)="50,X DXS(1,9);Z;""F ZI=0:0 S ZI=$O(^MCAR(699,D0,30,D1,1,ZI)) Q:ZI'?1N.N S ZZ=^(ZI,0) W "", "",^MCAR(699.57,ZZ,0)""~50,K ZI,ZZ;Z;""K ZI,ZZ""~"
^DIPT(1026,"F",11)="50,X DXS(2,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;C3;Z;""$S(#4'="""":""Measurement: "",1:"""")""~50,4;X~50,""TECHNIQUE: "";C3~50,5,.01;C17;X~"
^DIPT(1026,"F",12)="50,""IMPRESSION: "";C3~50,6;C17;X~50,D TECH^MCARGS;Z;""D TECH^MCARGS""~"
^DIPT(1026,"F",13)="X DXS(3,9);Z;""I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,4) W !,?2,""Common Bile Duct Size (mm)"",$P(^(15),U,4)""~"
^DIPT(1026,"F",14)="X DXS(4,9);Z;""I $D(^MCAR(699,MCARGDA,15)),$P(^(15),U,5) W !,?2,""Pancreatic Duct Size (mm)"",$P(^(15),U,5)""~"
^DIPT(1026,"F",15)="X DXS(5,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""PROCEDURE SUMMARY"")""~""RESULTS: "";C3~28,.01;C12;X~""COMPLICATIONS: "";C3~30,.01;C18;X~30,"", "";X~30,1;X~"
^DIPT(1026,"F",16)="39,""DISPOSITION: "";C3~39,.01;C21;X~39,""DATE: "";C13~39,1;X;C21~X DXS(6,9) W X K DIP;C1;S;X;Z;""UNDERLINE(""DIAGNOSIS(ES)"")""~""PRIMARY: "";C3~204;C18;X~"
^DIPT(1026,"F",17)="41,""SECONDARY: "";C3~41,.01;C18;X~""PROCEDURE SUMMARY: "";C5;S~600;X;W55~S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1026,"H")="@"
^DIPT(1026,"IOM")="80"
^DIPT(1026,"LAST")="1"
^DIPT(1026,"ROU")="^MCOBGA"
^DIPT(1026,"ROUOLD")="MCOBGA"
^DIPT(1026,"SUB")="1"
^DIPT(1027,0)="MCARGINONBRPR^2960513.1046^^699^^^2960513"
^DIPT(1027,"DXS",1,"A")="ABNORMAL"
^DIPT(1027,"DXS",1,"I")="INCOMPLETE EXAMINATION"
^DIPT(1027,"DXS",1,"N")="NORMAL"
^DIPT(1027,"F",1)="""APPT DATE/TIME: ""~.01;C17;L18;X~""MEDICAL PATIENT: "";C40~.02;X~""ENDOSCOPIST: "";C5;S~6;X~""NON-ENDOSCOPIC PROCEDURE: "";C5;S~31,.01;X~""SUMMARY: "";C5;S~"
^DIPT(1027,"F",2)="202;X~""SUBJECTIVE: "";C5;S~32,.01;X;W55~""OBJECTIVE: "";C5;S~33,.01;X;W55~""ASSESSMENT: "";C5;S~34,.01;X;W55~""PLANNED: "";C5;S~35,.01;X;W55~"
^DIPT(1027,"F",3)="""PROCEDURE SUMMARY: "";C5;S~600;C10;W60~S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1027,"H")="@"
^DIPT(1027,"IOM")="80"
^DIPT(1027,"LAST")=""
^DIPT(1027,"ROU")="^MCOBGN"
^DIPT(1027,"ROUOLD")="MCOBGN"
^DIPT(1027,"SUB")="1"
^DIPT(1028,0)="MCARPULMBRPR^2960513.1106^^699^^^2960513"
^DIPT(1028,"DXS",1,"A")="ABNORMAL"
^DIPT(1028,"DXS",1,"I")="INCOMPLETE EXAMINATION"
^DIPT(1028,"DXS",1,"N")="NORMAL"
^DIPT(1028,"F",1)=""
^DIPT(1028,"F",2)="S DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=""APPOINTMENT DATE/TIME: ""_$P(DIP(1),U,1) S Y=X D DT K DIP;L18;Z;""""APPOINTMENT DATE/TIME: ""_APPOINTMENT DATE/TIME""~"
^DIPT(1028,"F",3)="""MEDICAL PATIENT: "";C40~.02;X~""SIGNS AND SYMPTOMS: "";C5;S~2.2,.01;W55;X~""COUGH: "";C5;S~206,.01;X;W55~""PNEUMONIA: "";C5;S~207,.01;X;W55~"
^DIPT(1028,"F",4)="""DISEASE FOLLOWUP: "";C5;S~2.5,.01;X;W55~""FOLLOWUP DEVICE OR THERAPY: "";C5;S~2.6,.01;X;W55~""OTHER FOLLOWUP DEVICE/THERAPY: "";C5;S~208;X;W55~"
^DIPT(1028,"F",5)="""INDICATED THERAPY: "";C5;S~2.1,.01;X;W55~""BRONCHOSCOPIST: "";C5;S~6;X~""SUMMARY: "";C5;S~202;X~""PROCEDURE SUMMARY: "";C5;S~600;X;W55~"
^DIPT(1028,"F",6)="S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1028,"H")="@"
^DIPT(1028,"IOM")="80"
^DIPT(1028,"LAST")=""
^DIPT(1028,"ROU")="^MCOBPE"
^DIPT(1028,"ROUOLD")="MCOBPE"
^DIPT(1028,"SUB")="1"
^DIPT(1029,0)="MCPFTBRPR^2960513.1114^^700^^^2960513"
^DIPT(1029,"DXS",1,"A")="ABNORMAL"
^DIPT(1029,"DXS",1,"B")="BORDERLINE"
^DIPT(1029,"DXS",1,"N")="NORMAL"
^DIPT(1029,"DXS",1,"T")="TECHNICALLY UNSATISFACTORY"
^DIPT(1029,"DXS",2,"B")="BODY BOX"
^DIPT(1029,"DXS",2,"I")="INERT GAS DILUTION"
^DIPT(1029,"DXS",2,"N")="NITROGEN WASH OUT"
^DIPT(1029,"DXS",2,"X")="X-RAY PLANIMETRY"
^DIPT(1029,"DXS",3,"B")="AFTER BRONCHODILATORS"
^DIPT(1029,"DXS",3,"I")="AFTER INHALATION CHALLENGE"
^DIPT(1029,"DXS",3,"S")="STANDARD STUDY"
^DIPT(1029,"DXS",3,"X")="AFTER EXERCISE"
^DIPT(1029,"DXS",4,"M")="MAXIMUM EXERCISE"
^DIPT(1029,"DXS",4,"O")="100% O2 STUDY"
^DIPT(1029,"DXS",4,"P")="PRE EXERCISE"
^DIPT(1029,"DXS",4,"R")="ROOM AIR"
^DIPT(1029,"DXS",4,"S")="SUPPLEMENTAL O2 STUDY"
^DIPT(1029,"DXS",4,"X")="POST EXERCISE"
^DIPT(1029,"F",1)="""DATE/TIME: ""~.01;X~""MEDICAL PATIENT: "";C35~1;X~""SUMMARY: "";C5;S~.03;X~""VOLUME STUDY: "";C5;S~17,.01;C10~17,1;C10~18,""FLOWS STUDY: "";C5;S~18,.01;C10~"
^DIPT(1029,"F",2)="18,1;C10~18,2;C10~18,5;C10~18,5.5;C10~20,""BLOOD GAS: "";C5;S~20,.01;C10~20,2;C10~20,3;C10~20,4;C10~""PROCEDURE SUMMARY: "";C5;S~600;X;W55~"
^DIPT(1029,"F",3)="""INTERPRETATION: "";C5;S2~D COMP^MCPFTP5;Z;""D COMP^MCPFTP5""~33.5,.01;C18;W70;X~""INTERPRETED BY: "";C5;S~21,.01;C17;X;X~"
^DIPT(1029,"H")="@"
^DIPT(1029,"IOM")="80"
^DIPT(1029,"LAST")=""
^DIPT(1029,"ROU")="^MCOBPFT"
^DIPT(1029,"ROUOLD")="MCOBPFT"
^DIPT(1029,"SUB")="1"
^DIPT(1030,0)="MCARHEMBRPR^3010418.1204^^694^^^3010418"
^DIPT(1030,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(694,D0,0)):^(0),1:"""") S X=$S('$D(^MCAR(697.2,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))=""BMA"",DIP(2)=X S X=""BONE MARROW ASPIRATE"",DIP(3)=X"
^DIPT(1030,"DXS",1,9.3)="X DXS(1,9.2) S X=$S('$D(^MCAR(697.2,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))=""BMB"",DIP(4)=X S X=""BONE MARROW BIOPSY"",DIP(5)=X"
^DIPT(1030,"DXS",1,9.4)="X DXS(1,9.3) S X=$S('$D(^MCAR(697.2,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1))=""HEM"",DIP(6)=X S X=""HEMATOLOGY"",DIP(7)=X S X=1,DIP(8)=X S X="""""
^DIPT(1030,"DXS",2,9)="S DIP(2)=$C(59)_$P($G(^DD(694,9.5,0)),U,3),DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=""IRON STORES: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(1030,"DXS",3,9)="S DIP(2)=$C(59)_$P($G(^DD(694,10,0)),U,3),DIP(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=""MEGAKARYOCYTES: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(1030,"DXS",4,"D")="DECREASED"
^DIPT(1030,"DXS",4,"I")="INCREASED"
^DIPT(1030,"DXS",4,"N")="NORMAL"
^DIPT(1030,"DXS",5,"A")="Abnormal"
^DIPT(1030,"DXS",5,"N")="Normal"
^DIPT(1030,"DXS",5,"ND")="Non-Diagnostic"
^DIPT(1030,"DXS",5,"T")="Technically unsatisfactory"
^DIPT(1030,"F",1)="""PROCEDURE: "";C5;S~"
^DIPT(1030,"F",2)="X DXS(1,9.4) S X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(6):DIP(7),DIP(8):X) W X K DIP;X;Z;""$S(#2=""BMA"":""BONE MARROW ASPIRATE"",#2=""BMB"":""BONE MARROW BIOPSY"",#2=""HEM"":""HEMATOLOGY"",1:"""")""~"
^DIPT(1030,"F",3)="""INDICATION(S) FOR PERFORMANCE: "";C5;S~57,.01;C10~""PROVISIONAL DIAGNOSIS(ES):"";C5;S~38,.01;C10;W70~6.5;C7;W70~""CELLULARITY: "";C5;S~8;X~"
^DIPT(1030,"F",4)="X DXS(2,9) W X K DIP;C5;Z;""""IRON STORES: ""_IRON STORES""~X DXS(3,9) W X K DIP;C5;Z;""""MEGAKARYOCYTES: ""_MEGAKARYOCYTES""~""FINAL DIAGNOSIS(ES): "";C5;S~"
^DIPT(1030,"F",5)="35,.01;C10;W70~41,.01;C7;W70~""SUMMARY: "";C5;S~1.5;X~""PROCEDURE SUMMARY: "";C5;S~600;X;W70;C10~S MCFILE=694 D DISP^MCMAG;Z;""S MCFILE=694 D DISP^MCMAG""~"
^DIPT(1030,"F",6)="K MCFILE;Z;""K MCFILE""~"
^DIPT(1030,"H")="@"
^DIPT(1030,"IOM")="80"
^DIPT(1030,"LAST")=""
^DIPT(1030,"ROU")="^MCOBHEM"
^DIPT(1030,"ROUOLD")="MCOBHEM"
^DIPT(1030,"SUB")="1"
^DIPT(1031,0)="MCARPACEGENBRPR^2960513.1017^^698^^^2960513"
^DIPT(1031,"DXS",1,9)="S DIP(2)=$C(59)_$S($D(^DD(698,6,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""PACING MODE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(1031,"DXS",2,1)="CONDUCTION TISSUE FIBROSIS"
^DIPT(1031,"DXS",2,2)="ISCHEMIA"
^DIPT(1031,"DXS",2,3)="POST INFARCTION"
^DIPT(1031,"DXS",2,4)="SURGICAL"
^DIPT(1031,"DXS",2,5)="CONGENITAL"
^DIPT(1031,"DXS",2,6)="MYOCARDIOPATHY"
^DIPT(1031,"DXS",2,7)="VALVULAR HEART DISEASE"
^DIPT(1031,"DXS",2,8)="CAROTID SINUS SYNDROME"
^DIPT(1031,"DXS",2,9)="IDIOPATHIC"
^DIPT(1031,"DXS",2,10)="OTHER"
^DIPT(1031,"DXS",3,1)="LOSS OF CAPTURE"
^DIPT(1031,"DXS",3,2)="UNDERSENSING"
^DIPT(1031,"DXS",3,3)="OVERSENSING"
^DIPT(1031,"DXS",3,4)="RATE DECREASE"
^DIPT(1031,"DXS",3,5)="RATE INCREASE"
^DIPT(1031,"F",1)="""DATE OF IMPLANT: ""~.01;L18;C18;X~""MEDICAL PATIENT: "";C40~1;X~"
^DIPT(1031,"F",2)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""MODEL: ""_#2""~"
^DIPT(1031,"F",3)="S DIP(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=""SERIAL NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C40;Z;""""SERIAL NUMBER: ""_#4""~"
^DIPT(1031,"F",4)="X DXS(1,9) W X K DIP;C5;Z;""""PACING MODE: ""_#6""~""IMPLANTATION ETIOLOGY: "";C5;S~19;X~""NON-MAG RATE AT END-OF-LIFE: "";C5;S~42;X~"
^DIPT(1031,"F",5)="""MAGNET RATE AT END-OF-LIFE: "";C5~44;X~""INCIPIENT MALFUNCTION: "";C5;L18~90;X~""PACING FAILURE: "";C5~93,.01;X~93,"", "";X~93,1;X~"
^DIPT(1031,"F",6)="S DIP(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"""") S X=""REASON FOR CHANGE: ""_$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;Z;""""REASON FOR CHANGE: ""_#99""~"
^DIPT(1031,"F",7)="""PROCEDURE SUMMARY: "";C5;S~600;X;W55~S MCFILE=698 D DISP^MCMAG;Z;""S MCFILE=698 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1031,"H")="@"
^DIPT(1031,"IOM")="80"
^DIPT(1031,"LAST")=""
^DIPT(1031,"ROU")="^MCOBPG"
^DIPT(1031,"ROUOLD")="MCOBPG"
^DIPT(1031,"SUB")="1"
^DIPT(1032,0)="MCARPACALEADBRPR^2960513.1023^^698.2^^^2960513"
^DIPT(1032,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(698.2,D0,1)):^(1),1:"""") S X=$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X"
^DIPT(1032,"F",1)="""DATE OF IMPLANT: ""~.01;L18;C18;X~""MEDICAL PATIENT: "";C40~1;X~"
^DIPT(1032,"F",2)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""MODEL: ""_#2""~"
^DIPT(1032,"F",3)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""SERIAL NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C5;Z;""""SERIAL NUMBER: ""_#4""~""THRESHOLD (VOLTS): "";C5;S~"
^DIPT(1032,"F",4)="11;X~S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""RESISTANCE (OHMS): ""_$P(DIP(1),U,8) W X K DIP;C45;Z;""""RESISTANCE (OHMS): ""_#13""~"
^DIPT(1032,"F",5)=""" (mA'S): "";C5~12;X~"
^DIPT(1032,"F",6)="S DIP(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=""P WAVE AMPLITUDE (mV): ""_$P(DIP(1),U,9) W X K DIP;C5;S;Z;""""P WAVE AMPLITUDE (mV): ""_#14""~"
^DIPT(1032,"F",7)="X DXS(1,9.2) S X=""LEAD EXPLANT REASON: "",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C5;S;Z;""$S(#57="""":"""",1:""LEAD EXPLANT REASON: "")""~57;X~"
^DIPT(1032,"F",8)="S DIP(1)=$S($D(^MCAR(698.2,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1)="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X S X="", "",X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(#56="""":"""",1:"", "")""~"
^DIPT(1032,"F",9)="56;X~""COMMENTS: "";C5;S~500,.01;X;W55~""PROCEDURE SUMMARY: "";C5;S~600;X;W55~S MCFILE=698.2 D DISP^MCMAG;Z;""S MCFILE=698.2 D DISP^MCMAG""~"
^DIPT(1032,"F",10)="K MCFILE;Z;""K MCFILE""~"
^DIPT(1032,"H")="@"
^DIPT(1032,"IOM")="80"
^DIPT(1032,"LAST")=""
^DIPT(1032,"ROU")="^MCOBPA"
^DIPT(1032,"ROUOLD")="MCOBPA"
^DIPT(1032,"SUB")="1"
^DIPT(1033,0)="MCARPACVLEADBRPR^2960513.1021^^698.1^^^2960513"
^DIPT(1033,"DXS",1,9)="X DXS(1,9.2) S X=""LEAD EXPLANT REASON: ""_$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))_"", "",X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(1033,"DXS",1,9.2)="S DIP(1)=$S($D(^MCAR(698.1,D0,1)):^(1),1:"""") S X=$S('$D(^MCAR(695.8,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1))="""",DIP(2)=X S X="""",DIP(3)=X S X=1,DIP(4)=X"
^DIPT(1033,"DXS",2,"A")="ABNORMAL"
^DIPT(1033,"DXS",2,"N")="NORMAL"
^DIPT(1033,"F",1)="""DATE OF IMPLANT: ""~.01;L18;C18;X~""MEDICAL PATIENT: "";C40~1;X~"
^DIPT(1033,"F",2)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""MODEL: ""_$S('$D(^MCAR(698.4,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""MODEL: ""_#2""~"
^DIPT(1033,"F",3)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""SERIAL NUMBER: ""_$P(DIP(1),U,5) W X K DIP;C5;Z;""""SERIAL NUMBER: ""_#4""~""THRESHOLD (VOLTS): "";C5~11;X~"
^DIPT(1033,"F",4)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""RESISTANCE (OHMS): ""_$P(DIP(1),U,8) W X K DIP;C45;Z;""""RESISTANCE (OHMS): ""_#13""~"
^DIPT(1033,"F",5)=""" (mA'S): "";C5~12;X~"
^DIPT(1033,"F",6)="S DIP(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=""R WAVE AMPLITUDE (mV): ""_$P(DIP(1),U,9) W X K DIP;C5;S;Z;""""R WAVE AMPLITUDE (mV): ""_#14""~"
^DIPT(1033,"F",7)="X DXS(1,9) W X K DIP;C5;S;Z;""$S(#57="""":"""",1:""LEAD EXPLANT REASON: ""_#57_"", "")""~56;X~""COMMENTS: "";C5;S~500,.01;X;W55~""PROCEDURE SUMMARY: "";C5;S~"
^DIPT(1033,"F",8)="600;X;W55~""SUMMARY: "";C5;S~601;X~S MCFILE=698.1 D DISP^MCMAG;Z;""S MCFILE=698.1 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1033,"H")="@"
^DIPT(1033,"IOM")="80"
^DIPT(1033,"LAST")=""
^DIPT(1033,"ROU")="^MCOBPV"
^DIPT(1033,"ROUOLD")="MCOBPV"
^DIPT(1033,"SUB")="1"
^DIPT(1034,0)="MCPACSURVBRPR^2960513.1031^^698.3^^^2960513"
^DIPT(1034,"DXS",1,9)="X DXS(1,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1034,"DXS",1,9.2)="S X=""WITHOUT MAGNET"""
^DIPT(1034,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1034,"DXS",2,9.2)="S X=""WITH MAGNET"""
^DIPT(1034,"DXS",3,9)="X DXS(3,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1034,"DXS",3,9.2)="S X="" ATRIAL """
^DIPT(1034,"DXS",4,9)="X DXS(4,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1034,"DXS",4,9.2)="S X=""VENTRICULAR"""
^DIPT(1034,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1034,"DXS",5,9.2)="S X=""REPROGRAMMED DATA"""
^DIPT(1034,"DXS",6,9)="S DIP(2)=$C(59)_$S($D(^DD(698.3,54,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""PACING MODE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,19)_"":"",2),$C(59),1)"
^DIPT(1034,"DXS",7,"I")="INTERMITTENT"
^DIPT(1034,"DXS",7,"N")="NO"
^DIPT(1034,"DXS",7,"NA")="NOT APPLICABLE"
^DIPT(1034,"DXS",7,"U")="UNKNOWN"
^DIPT(1034,"DXS",7,"Y")="YES"
^DIPT(1034,"DXS",8,"I")="INTERMITTENT"
^DIPT(1034,"DXS",8,"N")="NO"
^DIPT(1034,"DXS",8,"NA")="NOT APPLICABLE"
^DIPT(1034,"DXS",8,"UNK")="UNKNOWN"
^DIPT(1034,"DXS",8,"Y")="YES"
^DIPT(1034,"DXS",9,"I")="INTERMITTENT"
^DIPT(1034,"DXS",9,"N")="NO"
^DIPT(1034,"DXS",9,"NA")="NOT APPLICABLE"
^DIPT(1034,"DXS",9,"U")="UNKNOWN"
^DIPT(1034,"DXS",9,"Y")="YES"
^DIPT(1034,"DXS",10,"I")="INTERMITTENT"
^DIPT(1034,"DXS",10,"N")="NO"
^DIPT(1034,"DXS",10,"NA")="NOT APPLICABLE"
^DIPT(1034,"DXS",10,"UNK")="UNKNOWN"
^DIPT(1034,"DXS",10,"Y")="YES"
^DIPT(1034,"DXS",11,"A")="ABNORMAL"
^DIPT(1034,"DXS",11,"B")="BORDERLINE"
^DIPT(1034,"DXS",11,"N")="NORMAL"
^DIPT(1034,"F",1)="""DATE/TIME: ""~.01;L18;C12;X~""MEDICAL PATIENT: "";C35~1;X~"
^DIPT(1034,"F",2)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""BASIC RHYTHM: ""_$S('$D(^MCAR(698.9,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)) W X K DIP;C5;S;Z;""""BASIC RHYTHM: ""_#15""~"
^DIPT(1034,"F",3)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""PERCENT OF PACED BEATS: ""_$P(DIP(1),U,10) W X K DIP;C45;Z;""""PERCENT OF PACED BEATS: ""_#16""~"
^DIPT(1034,"F",4)="X DXS(1,9) W X K DIP;C41;S;X;Z;""UNDERLINE(""WITHOUT MAGNET"")""~X DXS(2,9) W X K DIP;C62;X;Z;""UNDERLINE(""WITH MAGNET"")""~""PULSE INTERVAL (MSEC)"";C5~4;C43~"
^DIPT(1034,"F",5)="6;C63~""A-V DELAY (MSEC)"";C5~11;C43~12;C63~X DXS(3,9) W X K DIP;C43;X;S2;Z;""UNDERLINE("" ATRIAL "")""~"
^DIPT(1034,"F",6)="X DXS(4,9) W X K DIP;C62;X;Z;""UNDERLINE(""VENTRICULAR"")""~""PULSE WIDTH (MSEC)"";C5~101;C44~201;C65~""MEASURED LEAD AMPLITUDE (mV)"";C5~102;C42~202;C63~"
^DIPT(1034,"F",7)="""CAPTURE"";C5~106;C44~206;C65~""SENSE"";C5~107;C44~207;C65~X DXS(5,9) W X K DIP;C32;S2;X;Z;""UNDERLINE(""REPROGRAMMED DATA"")""~"
^DIPT(1034,"F",8)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""RATE: ""_$P(DIP(1),U,15) W X K DIP;C5;S;Z;""""RATE: ""_#50""~"
^DIPT(1034,"F",9)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""RATE UPPER LIMIT: ""_$P(DIP(1),U,16) W X K DIP;C45;Z;""""RATE UPPER LIMIT: ""_#51""~"
^DIPT(1034,"F",10)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""A-V DELAY (MSEC): ""_$P(DIP(1),U,17) W X K DIP;C5;Z;""""A-V DELAY (MSEC): ""_#52""~"
^DIPT(1034,"F",11)="S DIP(1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=""HYSTERESIS: ""_$P(DIP(1),U,18) W X K DIP;C5;Z;""""HYSTERESIS: ""_#53""~"
^DIPT(1034,"F",12)="X DXS(6,9) W X K DIP;C45;Z;""""PACING MODE: ""_#54""~"
^DIPT(1034,"F",13)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""PULSE WIDTH (ATRIAL MSEC): ""_$P(DIP(1),U,8) W X K DIP;C5;Z;""""PULSE WIDTH (ATRIAL MSEC): ""_#121""~"
^DIPT(1034,"F",14)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""PULSE WIDTH (VENT. MSEC): ""_$P(DIP(1),U,8) W X K DIP;C45;Z;""""PULSE WIDTH (VENT. MSEC): ""_#221""~"
^DIPT(1034,"F",15)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""A-AMPLITUDE (VOLTS): ""_$P(DIP(1),U,9) W X K DIP;C5;Z;""""A-AMPLITUDE (VOLTS): ""_#122""~"
^DIPT(1034,"F",16)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""V-AMPLITUDE (VOLTS): ""_$P(DIP(1),U,9) W X K DIP;C45;Z;""""V-AMPLITUDE (VOLTS): ""_#222""~"
^DIPT(1034,"F",17)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""SENSITIVITY (ATRIAL MV): ""_$P(DIP(1),U,10) W X K DIP;C5;Z;""""SENSITIVITY (ATRIAL MV): ""_#123""~"
^DIPT(1034,"F",18)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""SENSITIVITY (VENT. MV): ""_$P(DIP(1),U,10) W X K DIP;C45;Z;""""SENSITIVITY (VENT. MV): ""_#223""~"
^DIPT(1034,"F",19)="S DIP(1)=$S($D(^MCAR(698.3,D0,1)):^(1),1:"""") S X=""REFRACTORY PERIOD (ATRIAL): ""_$P(DIP(1),U,11) W X K DIP;C5;Z;""""REFRACTORY PERIOD (ATRIAL): ""_#124""~"
^DIPT(1034,"F",20)="S DIP(1)=$S($D(^MCAR(698.3,D0,2)):^(2),1:"""") S X=""REFRACTORY PERIOD (VENT.): ""_$P(DIP(1),U,11) W X K DIP;C45;Z;""""REFRACTORY PERIOD (VENT.): ""_#224""~"
^DIPT(1034,"F",21)="""PROCEDURE SUMMARY: "";C5;S~600;X;W55~""SUMMARY: "";C5;S~601;X;W55~S MCFILE=698.3 D DISP^MCMAG;Z;""S MCFILE=698.3 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1034,"H")="@"
^DIPT(1034,"IOM")="80"
^DIPT(1034,"LAST")="1"
^DIPT(1034,"ROU")="^MCOBPS"
^DIPT(1034,"ROUOLD")="MCOBPS"
^DIPT(1034,"SUB")="1"
^DIPT(1035,0)="MCGENERICBRPR^2970701.1248^^699.5^^^2970701"
^DIPT(1035,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(1035,"DXS",2,"A")="ABNORMAL"
^DIPT(1035,"DXS",2,"I")="INCOMPLETE EXAMINATION"
^DIPT(1035,"DXS",2,"N")="NORMAL"
^DIPT(1035,"F",1)="""PROCEDURE: "";C5;S~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;Z;""PROCEDURE:PRINT NAME""~""SUBJECTIVE: "";C5;S~32,.01;X;W55;C7~"
^DIPT(1035,"F",2)="""OBJECTIVE: "";C5;S~33,.01;X;W55;C7~""ASSESSMENT/FINDINGS: "";C5;S~34,.01;X;W55;C7~""PROVIDER/PHYSICIAN: "";C5;S~6;X~""SUMMARY: "";C5;S~601;X~"
^DIPT(1035,"F",3)="""PROCEDURE SUMMARY: "";C5;S~600;X~S MCFILE=699.5 D DISP^MCMAG;Z;""S MCFILE=699.5 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1035,"H")="@"
^DIPT(1035,"IOM")="80"
^DIPT(1035,"LAST")=""
^DIPT(1035,"ROU")="^MCOBGEN"
^DIPT(1035,"ROUOLD")="MCOBGEN"
^DIPT(1035,"SUB")="1"
^DIPT(1036,0)="MCRHBRPR^2960513.124^^701^^^2960513"
^DIPT(1036,"DXS",1,0)="NONE"
^DIPT(1036,"DXS",1,1)="MILD"
^DIPT(1036,"DXS",1,2)="MODERATE"
^DIPT(1036,"DXS",1,3)="SEVERE"
^DIPT(1036,"DXS",2,0)="NONE"
^DIPT(1036,"DXS",2,1)="MILD"
^DIPT(1036,"DXS",2,2)="MODERATE"
^DIPT(1036,"DXS",2,3)="SEVERE"
^DIPT(1036,"DXS",3,0)="NONE"
^DIPT(1036,"DXS",3,1)="MILD"
^DIPT(1036,"DXS",3,2)="MODERATE"
^DIPT(1036,"DXS",3,3)="SEVERE"
^DIPT(1036,"DXS",4,0)="NONE"
^DIPT(1036,"DXS",4,1)="MILD"
^DIPT(1036,"DXS",4,2)="MODERATE"
^DIPT(1036,"DXS",4,3)="SEVERE"
^DIPT(1036,"DXS",5,0)="NONE"
^DIPT(1036,"DXS",5,1)="MILD"
^DIPT(1036,"DXS",5,2)="MODERATE"
^DIPT(1036,"DXS",5,3)="SEVERE"
^DIPT(1036,"DXS",6,0)="NONE"
^DIPT(1036,"DXS",6,1)="MILD"
^DIPT(1036,"DXS",6,2)="MODERATE"
^DIPT(1036,"DXS",6,3)="SEVERE"
^DIPT(1036,"DXS",7,0)="NONE"
^DIPT(1036,"DXS",7,1)="MILD"
^DIPT(1036,"DXS",7,2)="MODERATE"
^DIPT(1036,"DXS",7,3)="SEVERE"
^DIPT(1036,"DXS",8,0)="NONE"
^DIPT(1036,"DXS",8,1)="MILD"
^DIPT(1036,"DXS",8,2)="MODERATE"
^DIPT(1036,"DXS",8,3)="SEVERE"
^DIPT(1036,"DXS",9,0)="NONE"
^DIPT(1036,"DXS",9,1)="MILD"
^DIPT(1036,"DXS",9,2)="MODERATE"
^DIPT(1036,"DXS",9,3)="SEVERE"
^DIPT(1036,"DXS",10,0)="NONE"
^DIPT(1036,"DXS",10,1)="MILD"
^DIPT(1036,"DXS",10,2)="MODERATE"
^DIPT(1036,"DXS",10,3)="SEVERE"
^DIPT(1036,"DXS",11,0)="NONE"
^DIPT(1036,"DXS",11,1)="MILD"
^DIPT(1036,"DXS",11,2)="MODERATE"
^DIPT(1036,"DXS",11,3)="SEVERE"
^DIPT(1036,"DXS",12,0)="NONE"
^DIPT(1036,"DXS",12,1)="MILD"
^DIPT(1036,"DXS",12,2)="MODERATE"
^DIPT(1036,"DXS",12,3)="SEVERE"
^DIPT(1036,"DXS",13,0)="NONE"
^DIPT(1036,"DXS",13,1)="MILD"
^DIPT(1036,"DXS",13,2)="MODERATE"
^DIPT(1036,"DXS",13,3)="SEVERE"
^DIPT(1036,"DXS",14,0)="NONE"
^DIPT(1036,"DXS",14,1)="MILD"
^DIPT(1036,"DXS",14,2)="MODERATE"
^DIPT(1036,"DXS",14,3)="SEVERE"
^DIPT(1036,"DXS",15,0)="NONE"
^DIPT(1036,"DXS",15,1)="MILD"
^DIPT(1036,"DXS",15,2)="MODERATE"
^DIPT(1036,"DXS",15,3)="SEVERE"
^DIPT(1036,"DXS",16,0)="NONE"
^DIPT(1036,"DXS",16,1)="MILD"
^DIPT(1036,"DXS",16,2)="MODERATE"
^DIPT(1036,"DXS",16,3)="SEVERE"
^DIPT(1036,"DXS",17,0)="NONE"
^DIPT(1036,"DXS",17,1)="MILD"
^DIPT(1036,"DXS",17,2)="MODERATE"
^DIPT(1036,"DXS",17,3)="SEVERE"
^DIPT(1036,"DXS",18,0)="NONE"
^DIPT(1036,"DXS",18,1)="MILD"
^DIPT(1036,"DXS",18,2)="MODERATE"
^DIPT(1036,"DXS",18,3)="SEVERE"
^DIPT(1036,"DXS",19,0)="NONE"
^DIPT(1036,"DXS",19,1)="MILD"
^DIPT(1036,"DXS",19,2)="MODERATE"
^DIPT(1036,"DXS",19,3)="SEVERE"
^DIPT(1036,"DXS",20,0)="NONE"
^DIPT(1036,"DXS",20,1)="MILD"
^DIPT(1036,"DXS",20,2)="MODERATE"
^DIPT(1036,"DXS",20,3)="SEVERE"
^DIPT(1036,"DXS",21,0)="NO"
^DIPT(1036,"DXS",21,1)="YES"
^DIPT(1036,"DXS",22,0)="NO"
^DIPT(1036,"DXS",22,1)="YES"
^DIPT(1036,"DXS",23,0)="NO"
^DIPT(1036,"DXS",23,1)="YES"
^DIPT(1036,"F",1)="""MEDICAL PATIENT: "";C1~1;X~""HEIGHT:"";C1;X~62;C30;X~""WEIGHT:"";C40;X~63;C70;X~""SYSTOLIC PRESSURE: "";C1~64;C30;X~""DIASTOLIC PRESSURE: "";C40;X~65;C70;X~"
^DIPT(1036,"F",2)="""PULSE: "";C1~66;C30;X~""PHYSICAL EXAMINATION"";C1;S2~""General: "";C1;S2~""UVEITIS/IRITIS: "";C1~67.5;C30;X~""ORAL ULCERS: "";C1;X~70;C30;X~"
^DIPT(1036,"F",3)="""MUSCLE ATROPHY: "";C40;X~83;C70;X~""RALES: "";C1;X~71;C30;X~""PSYCHOSIS: "";C40;X~84;C70;X~""PLEURAL RUB/"";C1;X~""CLINICAL PLEURISY:"";C1;X~72;C30;X~"
^DIPT(1036,"F",4)="""PERICARDIAL RUB/PERICARDITIS: "";C40;X~74;C70;X~""Skin: "";C1;X;S2~""CUTANEOUS VASCULTITIS: "";C1;X~99;C30;X~""RASH-MALAR: "";C1;X~89;C30;X~"
^DIPT(1036,"F",5)="""PERIUNGAL ERYTHEMA: "";C40;X~100;C70;X~""RASH-OTHER: "";C1;X~89.2;C30;X~""HELIOTROPE EYELIDS:"";C40;X~88;C70;X~""KNUCKLE ERYTHEMA:"";C1;X~102;C30;X~"
^DIPT(1036,"F",6)="""TELANGIECTASIS:"";C40;X~98;C70;X~""SCLERODACTYLY:"";C1;X~94;C30;X~""SCLERODERMA-EXTREMITY:"";C40;X~95;C70;X~""DACTYLITIS:"";C1;X~110;C30;X~"
^DIPT(1036,"F",7)="""SCLERODERMA-GENERALIZED:"";C40;X~96;C70;X~""PSORIASIS:"";C1;X~90;C30;X~""DIGITAL ULCERS:"";C40;X~103;C70;X~""Rheumatic:"";C1;S2;X~""Measurements:"";C40;X~"
^DIPT(1036,"F",8)="""SUB-CUTANEOUS NODULES:"";C1;X~112;C30;X~""GRIP STRENGTH-LEFT:"";C40;X~118;C70;X~""SYNOVIAL (BAKER'S) CYST:"";C1;X~113;C30;X~""GRIP STRENGTH-RIGHT:"";C40;X~"
^DIPT(1036,"F",9)="119;C70;X~""TOPHI:"";C1;X~111;C30;X~"
^DIPT(1036,"H")="@"
^DIPT(1036,"IOM")="80"
^DIPT(1036,"LAST")="1"
^DIPT(1036,"ROU")="^MCOBRH"
^DIPT(1036,"ROUOLD")="MCOBRH"
^DIPT(1036,"SUB")="1"
^DIPT(1037,0)="MCRHBRPR1^2960513.1242^^701^^^2960513"
^DIPT(1037,"DXS",1,1)="NORMAL"
^DIPT(1037,"DXS",1,2)="ADEQUATE"
^DIPT(1037,"DXS",1,3)="LIMITED"
^DIPT(1037,"DXS",1,4)="INCAPACITATED"
^DIPT(1037,"DXS",2,1)="MB (MUCH BETTER)"
^DIPT(1037,"DXS",2,2)="B (BETTER)"
^DIPT(1037,"DXS",2,3)="S (SAME)"
^DIPT(1037,"DXS",2,4)="W (WORSE)"
^DIPT(1037,"DXS",2,5)="MW (MUCH WORSE)"
^DIPT(1037,"DXS",3,1)="MB (MUCH BETTER)"
^DIPT(1037,"DXS",3,2)="B (BETTER)"
^DIPT(1037,"DXS",3,3)="S (SAME)"
^DIPT(1037,"DXS",3,4)="W (WORSE)"
^DIPT(1037,"DXS",3,5)="MW (MUCH WORSE)"
^DIPT(1037,"DXS",4,0)="NONE"
^DIPT(1037,"DXS",4,1)="MILD"
^DIPT(1037,"DXS",4,2)="MODERATE"
^DIPT(1037,"DXS",4,3)="SEVERE"
^DIPT(1037,"DXS",5,0)="NONE"
^DIPT(1037,"DXS",5,1)="MILD"
^DIPT(1037,"DXS",5,2)="MODERATE"
^DIPT(1037,"DXS",5,3)="SEVERE"
^DIPT(1037,"DXS",6,0)="NONE"
^DIPT(1037,"DXS",6,1)="MILD"
^DIPT(1037,"DXS",6,2)="MODERATE"
^DIPT(1037,"DXS",6,3)="SEVERE"
^DIPT(1037,"DXS",7,0)="NONE"
^DIPT(1037,"DXS",7,1)="MILD"
^DIPT(1037,"DXS",7,2)="MODERATE"
^DIPT(1037,"DXS",7,3)="SEVERE"
^DIPT(1037,"DXS",8,0)="NONE"
^DIPT(1037,"DXS",8,1)="MILD"
^DIPT(1037,"DXS",8,2)="MODERATE"
^DIPT(1037,"DXS",8,3)="SEVERE"
^DIPT(1037,"DXS",9,0)="NONE"
^DIPT(1037,"DXS",9,1)="MILD"
^DIPT(1037,"DXS",9,2)="MODERATE"
^DIPT(1037,"DXS",9,3)="SEVERE"
^DIPT(1037,"DXS",10,0)="NONE"
^DIPT(1037,"DXS",10,1)="MILD"
^DIPT(1037,"DXS",10,2)="MODERATE"
^DIPT(1037,"DXS",10,3)="SEVERE"
^DIPT(1037,"DXS",11,0)="NONE"
^DIPT(1037,"DXS",11,1)="MILD"
^DIPT(1037,"DXS",11,2)="MODERATE"
^DIPT(1037,"DXS",11,3)="SEVERE"
^DIPT(1037,"DXS",12,0)="NONE"
^DIPT(1037,"DXS",12,1)="MILD"
^DIPT(1037,"DXS",12,2)="MODERATE"
^DIPT(1037,"DXS",12,3)="SEVERE"
^DIPT(1037,"DXS",13,0)="NONE"
^DIPT(1037,"DXS",13,1)="MILD"
^DIPT(1037,"DXS",13,2)="MODERATE"
^DIPT(1037,"DXS",13,3)="SEVERE"
^DIPT(1037,"DXS",14,0)="NONE"
^DIPT(1037,"DXS",14,1)="MILD"
^DIPT(1037,"DXS",14,2)="MODERATE"
^DIPT(1037,"DXS",14,3)="SEVERE"
^DIPT(1037,"DXS",15,0)="NONE"
^DIPT(1037,"DXS",15,1)="MILD"
^DIPT(1037,"DXS",15,2)="MODERATE"
^DIPT(1037,"DXS",15,3)="SEVERE"
^DIPT(1037,"DXS",16,0)="NONE"
^DIPT(1037,"DXS",16,1)="MILD"
^DIPT(1037,"DXS",16,2)="MODERATE"
^DIPT(1037,"DXS",16,3)="SEVERE"
^DIPT(1037,"DXS",17,0)="NONE"
^DIPT(1037,"DXS",17,1)="MILD"
^DIPT(1037,"DXS",17,2)="MODERATE"
^DIPT(1037,"DXS",17,3)="SEVERE"
^DIPT(1037,"DXS",18,0)="NORMAL"
^DIPT(1037,"DXS",18,1)="MILD"
^DIPT(1037,"DXS",18,2)="MODERATE"
^DIPT(1037,"DXS",18,3)="SEVERE"
^DIPT(1037,"DXS",19,0)="NORMAL"
^DIPT(1037,"DXS",19,1)="MILD"
^DIPT(1037,"DXS",19,2)="MODERATE"
^DIPT(1037,"DXS",19,3)="SEVERE"
^DIPT(1037,"DXS",20,0)="NORMAL"
^DIPT(1037,"DXS",20,1)="MILD"
^DIPT(1037,"DXS",20,2)="MODERATE"
^DIPT(1037,"DXS",20,3)="SEVERE"
^DIPT(1037,"DXS",21,0)="NORMAL"
^DIPT(1037,"DXS",21,1)="MILD"
^DIPT(1037,"DXS",21,2)="MODERATE"
^DIPT(1037,"DXS",21,3)="SEVERE"
^DIPT(1037,"DXS",22,0)="NONE"
^DIPT(1037,"DXS",22,1)="MILD"
^DIPT(1037,"DXS",22,2)="MODERATE"
^DIPT(1037,"DXS",22,3)="SEVERE"
^DIPT(1037,"DXS",23,0)="NONE"
^DIPT(1037,"DXS",23,1)="MILD"
^DIPT(1037,"DXS",23,2)="MODERATE"
^DIPT(1037,"DXS",23,3)="SEVERE"
^DIPT(1037,"DXS",24,0)="NONE"
^DIPT(1037,"DXS",24,1)="MILD"
^DIPT(1037,"DXS",24,2)="MODERATE"
^DIPT(1037,"DXS",24,3)="SEVERE"
^DIPT(1037,"DXS",25,0)="NONE"
^DIPT(1037,"DXS",25,1)="MILD"
^DIPT(1037,"DXS",25,2)="MODERATE"
^DIPT(1037,"DXS",25,3)="SEVERE"
^DIPT(1037,"DXS",26,0)="NONE"
^DIPT(1037,"DXS",26,1)="MILD"
^DIPT(1037,"DXS",26,2)="MODERATE"
^DIPT(1037,"DXS",26,3)="SEVERE"
^DIPT(1037,"DXS",27,0)="NONE"
^DIPT(1037,"DXS",27,1)="MILD"
^DIPT(1037,"DXS",27,2)="MODERATE"
^DIPT(1037,"DXS",27,3)="SEVERE"
^DIPT(1037,"DXS",28,0)="NONE"
^DIPT(1037,"DXS",28,1)="MILD"
^DIPT(1037,"DXS",28,2)="MODERATE"
^DIPT(1037,"DXS",28,3)="SEVERE"
^DIPT(1037,"DXS",29,0)="NONE"
^DIPT(1037,"DXS",29,1)="MILD"
^DIPT(1037,"DXS",29,2)="MODERATE"
^DIPT(1037,"DXS",29,3)="SEVERE"
^DIPT(1037,"DXS",30,0)="NONE"
^DIPT(1037,"DXS",30,1)="MILD"
^DIPT(1037,"DXS",30,2)="MODERATE"
^DIPT(1037,"DXS",30,3)="SEVERE"
^DIPT(1037,"DXS",31,0)="NONE"
^DIPT(1037,"DXS",31,1)="MILD"
^DIPT(1037,"DXS",31,2)="MODERATE"
^DIPT(1037,"DXS",31,3)="SEVERE"
^DIPT(1037,"DXS",32,0)="NONE"
^DIPT(1037,"DXS",32,1)="MILD"
^DIPT(1037,"DXS",32,2)="MODERATE"
^DIPT(1037,"DXS",32,3)="SEVERE"
^DIPT(1037,"DXS",33,0)="NONE"
^DIPT(1037,"DXS",33,1)="MILD"
^DIPT(1037,"DXS",33,2)="MODERATE"
^DIPT(1037,"DXS",33,3)="SEVERE"
^DIPT(1037,"DXS",34,"MI")="MILD ABNL"
^DIPT(1037,"DXS",34,"MO")="MOD ABNL"
^DIPT(1037,"DXS",34,"N")="NORMAL"
^DIPT(1037,"DXS",34,"S")="SEV ABNL"
^DIPT(1037,"F",1)="""Miscellaneous:"";C1;S2;X~""FUNCTIONAL CLASS (ACR):"";C1;X~128;C34;X~""DISEASE SEVERITY-PAT. ESTIMATE:"";C1;X~129;C34;X~"
^DIPT(1037,"F",2)="""DISEASE SEVERITY-PHY. ESTIMATE:"";C1;X~329;C34;X~""Joint Examination:"";C1;S2;X~""Left"";C30;X~""Right"";C70;X~""----"";C30;X~""-----"";C70;X~""FINGERS-DIP"";C1;X~"
^DIPT(1037,"F",3)="130;C30;X~131;C70;X~""MCPS:"";C1;X~134;C30;X~135;C70;X~""1st CARPOMETACARPAL:"";C1;X~136;C30;X~137;C70;X~""WRIST:"";C1;X~138;C30;X~139;C70;X~""ELBOW:"";C1;X~"
^DIPT(1037,"F",4)="140;C30;X~141;C70;X~""SHOULDER:"";C1;X~142;C30;X~143;C70;X~""TMJ:"";C1;X~146;C30;X~147;C70;X~""COSTOCHONDRAL:"";C1;X~160;C30;X~161;C70;X~""SACROILIAC:"";C1;X~"
^DIPT(1037,"F",5)="162;C30;X~163;C70;X~""HIP:"";C1;X~148;C30;X~149;C70;X~""KNEE:"";C1;X~150;C30;X~151;C70;X~""ANKLE:"";C1;X~152;C30;X~153;C70;X~""MTP:"";C1;X~154;C30;X~155;C70;X~"
^DIPT(1037,"F",6)="""TOES-PIP:"";C1;X~156;C30;X~157;C70;X~""CERVICAL SPINE:"";C25;X~158;C45;X~""LUMBAR SPINE:"";C25;X~159;C45;X~""MEDICATION: "";C1;S2;X~201,.01;C5~201,1;C5~201,2;C5~"
^DIPT(1037,"F",7)="""DIAGNOSIS: "";C1;S2;X~615,.01;C5~615,1;C5~700,.02;C10;W60~""PROCEDURE SUMMARY: "";C1;S2;X~600;C10;W60~""SUMMARY: "";C1;S2;X~601;X~"
^DIPT(1037,"F",8)="S MCFILE=701 D DISP^MCMAG;Z;""S MCFILE=701 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1037,"H")="@"
^DIPT(1037,"IOM")="80"
^DIPT(1037,"LAST")="1"
^DIPT(1037,"ROU")="^MCOBRHA"
^DIPT(1037,"ROUOLD")="MCOBRHA"
^DIPT(1037,"SUB")="1"
^DIPT(1038,0)="MCPFTBRPR1^2980521.1443^^700^^^2980521"
^DIPT(1038,"DXS",1,"A")="ABNORMAL"
^DIPT(1038,"DXS",1,"B")="BORDERLINE"
^DIPT(1038,"DXS",1,"N")="NORMAL"
^DIPT(1038,"DXS",1,"T")="TECHNICALLY UNSATISFACTORY"
^DIPT(1038,"F",1)="""SUMMARY: "";S~.03;X~""PROCEDURE SUMMARY: "";S~600;X~""INTERPRETATION:"";S~D COMP^MCPFTP5;Z;""D COMP^MCPFTP5""~33.5,.01;C18;W70;X~""INTERPRETED BY: "";S~"
^DIPT(1038,"F",2)="21,.01;C17;X;X~"
^DIPT(1038,"H")="@"
^DIPT(1038,"IOM")="80"
^DIPT(1038,"LAST")=""
^DIPT(1038,"ROU")="^MCOBPF"
^DIPT(1038,"ROUOLD")="MCOBPF"
^DIPT(1038,"SUB")="1"
^DIPT(1039,0)="MCCBRZ^2960510.145^^691.1^^^2960510"
^DIPT(1039,"DXS",1,9)="X DXS(1,9.3) S DIP(102)=$S($D(^MCAR(691.1,D0,41,D1,0)):^(0),1:"""") S X=$S('$D(^MCAR(696.9,+$P(DIP(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1039,"DXS",1,9.2)="S I(0)=""^MCAR(691.1,"",J(0)=691.1 F D=0:0 S (D,D1)=$O(^MCAR(691.1,D0,41,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(696.9,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D1"
^DIPT(1039,"DXS",1,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") X DXS(1,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^MCAR(691.1,D0,41,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DIPT(1039,"F",1)="""DATE/TIME: ""~.01;X~""MEDICAL PATIENT: "";C35~1;X~""PROCEDURES: "";C5;S~8,.01~""INDICATIONS: "";C5~13,.01~26,""INTERVENTION: "";C5;S~26,.01~"
^DIPT(1039,"F",2)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""RA MEAN PRES: ""_$P(DIP(1),U,4) W X K DIP;C8;Z;""""RA MEAN PRES: ""_RA MEAN PRESSURE""~"
^DIPT(1039,"F",3)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PA PRESSURE(S/D):""_$P(DIP(1),U,9)_""/""_$P(DIP(1),U,10) W X K DIP;C48;Z;""""PA PRESSURE(S/D):""_PA SYSTOLIC_""/""_PA DIAS""~"
^DIPT(1039,"F",4)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""PCW MEAN: ""_$P(DIP(1),U,15) W X K DIP;C8;Z;""""PCW MEAN: ""_PCW MEAN""~"
^DIPT(1039,"F",5)="26,S DIP(1)=$S($D(^MCAR(691.1,D0,19,D1,0)):^(0),1:"""") S X=""LVEDP: ""_$P(DIP(1),U,21) W X K DIP;C48;Z;""""LVEDP: ""_LV END DIASTOLIC (Z)""~28,.01;C10~28,1;C34~"
^DIPT(1039,"F",6)="33,.01;C34~35,.01;C10~35,1;C34~40,.01;C10~40,1;C34~48,""STARTING"";C24;S~48,""RESULTING"";C39~48,""% OBSTRUCTION"";C22~48,""% OBSTRUCTION"";C37~48,.01;C8~"
^DIPT(1039,"F",7)="48,1;C24~48,2;C41~"
^DIPT(1039,"F",8)="S DIP(1)=$S($D(^MCAR(691.1,D0,40)):^(40),1:"""") S X=""EJECTION FRACTION: ""_$P(DIP(1),U,3) W X K DIP;C5;S;Z;""""EJECTION FRACTION: ""_LV EJ""~"
^DIPT(1039,"F",9)="""COMPLICATIONS: "";C5;S~X DXS(1,9) W X K DIP;C21;X;m;Z;""COMPLICATION:COMPLICATION""~""CONCLUSION: "";C5;S~60,.01;W60;C18~""PLAN: "";C5;S~61,.01;W65~"
^DIPT(1039,"F",10)="""SUMMARY: "";C5;S~.03;X~""PROCEDURE SUMMARY: "";C5;S~600;W60;C18~""CARDIOLOGY STAFF: "";C5;S~63;X~"
^DIPT(1039,"F",11)="S MCFILE=691.1 D DISP^MCMAG;Z;""S MCFILE=691.1 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1039,"H")="@"
^DIPT(1039,"SUB")="1"
^DIPT(1040,0)="MCESPRT^2960513.1107^^699^^^2960513"
^DIPT(1040,"F",2)=".01;""Date/Time"";C1~.02;""Patient"";C22;L30~1506;T;C56;W;X~"
^DIPT(1040,"H")="Release Status Report"
^DIPT(1041,0)="MCAREP2^2910913.1042^^691.9^^^^"
^DIPT(1041,"DXS",1,9.2)="S DIP(2)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""ATRIAL STUDY DATE: "",DIP(1)=X S X=$P(DIP(2),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1041,"DXS",2,9)="S DIP(2)=$C(59)_$S($D(^DD(691.9,6,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""PACING SITE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(1041,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(691.9,14,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.9,D0,2)):^(2),1:"""") S X=""BLOCK SITE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(1041,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(691.921,.01,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MCAR(691.9,D0,3,D1,0)):^(0),1:"""") S X=""BYPASS TRACT: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59),1)"
^DIPT(1041,"DXS",5,9)="X DXS(5,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1041,"DXS",5,9.2)="S X=""ELECTROCARDIOGRAM"""
^DIPT(1041,"DXS",6,9.2)="S DIP(2)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=""DATE: "",DIP(1)=X S X=$P(DIP(2),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1041,"DXS",7,9.2)="S I(0)=""^MCAR(691.9,"",J(0)=691.9 F D=0:0 S (D,D2)=$N(^MCAR(691.9,D0,7,D1,1,D)) Q:D'>0 I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^MCAR(693.3,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D) S D=D2"
^DIPT(1041,"DXS",7,9.3)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(2,0)=$S($D(D2):D2,1:"""") X DXS(7,9.2):D1>0 S X="""""
^DIPT(1041,"DXS",7,9.4)="X DXS(7,9.3) K DIC S Y=-1,DIC=""^MCAR(691.9,D0,7,D1,1,"",DIC(0)=""NMF"" D ^DIC:D1>0 S (D,D2)=+Y S DIP(103)=$S($D(^MCAR(691.9,D0,7,D1,1,D2,0)):^(0),1:"""")"
^DIPT(1041,"DXS",8,1)="NARROW QRS"
^DIPT(1041,"DXS",8,2)="RBBB"
^DIPT(1041,"DXS",8,3)="LBBB"
^DIPT(1041,"DXS",8,4)="RBBB+LAFB"
^DIPT(1041,"DXS",8,5)="RBBB+LPFB"
^DIPT(1041,"DXS",9,"A")="ANTEGRADE"
^DIPT(1041,"DXS",9,"BI")="BIDIRECTIONAL"
^DIPT(1041,"DXS",9,"R")="RETROGRADE"
^DIPT(1041,"DXS",10,"AF")="ATRIAL FLUTTER"
^DIPT(1041,"DXS",10,"AFIB")="ATRIAL FIB"
^DIPT(1041,"DXS",10,"OTHER")="OTHER"
^DIPT(1041,"DXS",10,"SVT")="SVT"
^DIPT(1041,"DXS",11,1)="LEFT FREE WALL"
^DIPT(1041,"DXS",11,2)="POSTEROSEPTAL"
^DIPT(1041,"DXS",11,3)="ANTEROSEPTAL"
^DIPT(1041,"DXS",11,4)="RIGHT FREE WALL"
^DIPT(1041,"DXS",11,5)="LEFT POST PARASEPTAL"
^DIPT(1041,"DXS",11,6)="RIGHT POST PARASEPTAL"
^DIPT(1041,"DXS",11,7)="LEFT ANT PARASEPTAL"
^DIPT(1041,"DXS",11,8)="RIGHT ANT PARASEPTAL"
^DIPT(1041,"DXS",11,9)="MAHAIM"
^DIPT(1041,"F",1)="""----------------------------------ATRIAL STUDY----------------------------------"";S~"
^DIPT(1041,"F",2)="X DXS(1,9.2) S X=X_Y W X K DIP;S;Z;""""ATRIAL STUDY DATE: ""_NUMDATE(#.01)""~""PREMEDICATION:"";C8;S~2;C23;W~"
^DIPT(1041,"F",3)="S DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""ENTRY SITE: ""_$S('$D(^MCAR(697,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)) W X K DIP;C8;Z;""""ENTRY SITE: ""_#4""~"
^DIPT(1041,"F",4)="X DXS(2,9) W X K DIP;C43;Z;""""PACING SITE: ""_#6""~"
^DIPT(1041,"F",5)="S DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""RECORDING SITE: ""_$S('$D(^MCAR(693.5,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)) W X K DIP;C8;Z;""""RECORDING SITE: ""_#5""~"
^DIPT(1041,"F",6)="S DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""ATRIAL THRESHOLD (mA): ""_$P(DIP(1),U,9) W X K DIP;C8;Z;""""ATRIAL THRESHOLD (mA): ""_#7""~"
^DIPT(1041,"F",7)="""CONDUCTION TIMES"";C8;S~""SINUS NODE FUNCTION STUDIES"";C44~"
^DIPT(1041,"F",8)="S DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""PA (NL 20-40 MSEC): ""_$P(DIP(1),U,10) W X K DIP;C10;Z;""""PA (NL 20-40 MSEC): ""_#8""~"
^DIPT(1041,"F",9)="S DIP(1)=$S($D(^MCAR(691.9,D0,2)):^(2),1:"""") S X=""SACT (NL 80 +/- 40 MSEC): ""_$P(DIP(1),U,8) W X K DIP;C46;Z;""""SACT (NL 80 +/- 40 MSEC): ""_#19""~"
^DIPT(1041,"F",10)="S DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""AH (NL 60-120 MSEC): ""_$P(DIP(1),U,11) W X K DIP;C10;Z;""""AH (NL 60-120 MSEC): ""_#9""~"
^DIPT(1041,"F",11)="S DIP(1)=$S($D(^MCAR(691.9,D0,2)):^(2),1:"""") S X=""CSART (NL 260+/- 95 MSEC): ""_$P(DIP(1),U,9) W X K DIP;C46;Z;""""CSART (NL 260+/- 95 MSEC): ""_#20""~"
^DIPT(1041,"F",12)="S DIP(1)=$S($D(^MCAR(691.9,D0,0)):^(0),1:"""") S X=""HV (NL 35-55 MSEC): ""_$P(DIP(1),U,12) W X K DIP;C10;Z;""""HV (NL 35-55 MSEC): ""_#10""~"
^DIPT(1041,"F",13)="""ATRIAL EXTRA STIMULUS TECHNIQUE (VALUES BELOW IN MSEC)"";C8;S~"
^DIPT(1041,"F",14)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""DRIVE CYCLE LENGTH: ""_$P(DIP(1),U,1) W X K DIP;C10;Z;""""DRIVE CYCLE LENGTH: ""_#.01""~"
^DIPT(1041,"F",15)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""AERP: ""_$P(DIP(1),U,2) W X K DIP;C12;Z;""""AERP: ""_#1""~"
^DIPT(1041,"F",16)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""AVERP: ""_$P(DIP(1),U,5) W X K DIP;C32;Z;""""AVERP: ""_#4""~"
^DIPT(1041,"F",17)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""HPERP: ""_$P(DIP(1),U,8) W X K DIP;C52;Z;""""HPERP: ""_#7""~"
^DIPT(1041,"F",18)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""AFRP: ""_$P(DIP(1),U,3) W X K DIP;C12;Z;""""AFRP: ""_#2""~"
^DIPT(1041,"F",19)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""AVFRP: ""_$P(DIP(1),U,6) W X K DIP;C32;Z;""""AVFRP: ""_#5""~"
^DIPT(1041,"F",20)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""HPFRP: ""_$P(DIP(1),U,9) W X K DIP;C52;Z;""""HPFRP: ""_#8""~"
^DIPT(1041,"F",21)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""ARRP: ""_$P(DIP(1),U,4) W X K DIP;C12;Z;""""ARRP: ""_#3""~"
^DIPT(1041,"F",22)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""AVRRP: ""_$P(DIP(1),U,7) W X K DIP;C32;Z;""""AVRRP: ""_#6""~"
^DIPT(1041,"F",23)="11,S DIP(1)=$S($D(^MCAR(691.9,D0,1,D1,0)):^(0),1:"""") S X=""HPRRP: ""_$P(DIP(1),U,10) W X K DIP;C52;Z;""""HPRRP: ""_#9""~""INCREMENTAL ATRIAL PACING"";C8;S~"
^DIPT(1041,"F",24)="S DIP(1)=$S($D(^MCAR(691.9,D0,2)):^(2),1:"""") S X=""MAXIMUM 1:1 CONDUCTION: ""_$P(DIP(1),U,1) W X K DIP;C10;Z;""""MAXIMUM 1:1 CONDUCTION: ""_#12""~"
^DIPT(1041,"F",25)="S DIP(1)=$S($D(^MCAR(691.9,D0,2)):^(2),1:"""") S X=""WENCKE CYCLE LENGTH: ""_$P(DIP(1),U,2) W X K DIP;C10;Z;""""WENCKE CYCLE LENGTH: ""_#13""~"
^DIPT(1041,"F",26)="X DXS(3,9) W X K DIP;C10;Z;""""BLOCK SITE: ""_#14""~""TACHYCARDIA WINDOW: "";C8;S~15;W48;X~"
^DIPT(1041,"F",27)="S DIP(1)=$S($D(^MCAR(691.9,D0,2)):^(2),1:"""") S X=""RATE: ""_$P(DIP(1),U,5) W X K DIP;C20;Z;""""RATE: ""_#16""~""MORPHOLOGY: "";C20~17;X~"
^DIPT(1041,"F",28)="21,X DXS(4,9) W X K DIP;C8;S;Z;""""BYPASS TRACT: ""_#.01""~21,""CONDUCTION: "";C10~21,1;X~21,""ARRHYTHMIA: "";C45~21,2,.01;C57~21,""SHORTEST R-R A FIB:"";C10~"
^DIPT(1041,"F",29)="21,3;X~21,""SHORTEST R-R POST ISPUREL:"";C45~21,4;X~21,""LOCATION OF TRACT: "";C10~21,5~"
^DIPT(1041,"F",30)="21,S DIP(1)=$S($D(^MCAR(691.9,D0,3,D1,2)):^(2),1:"""") S X=""V-A TIME: ""_$P(DIP(1),U,4) W X K DIP;C10;Z;""""V-A TIME: ""_#6""~21,""ANTEGRADE ERP"";C10~"
^DIPT(1041,"F",31)="21,""RETROGRADE ERP"";C45~21,S DIP(1)=$S($D(^MCAR(691.9,D0,3,D1,2)):^(2),1:"""") S X=""BYPASS TRACT: ""_$P(DIP(1),U,5) W X K DIP;C12;Z;""""BYPASS TRACT: ""_#7""~"
^DIPT(1041,"F",32)="21,S DIP(1)=$S($D(^MCAR(691.9,D0,3,D1,2)):^(2),1:"""") S X=""BYPASS TRACT: ""_$P(DIP(1),U,7) W X K DIP;C47;Z;""""BYPASS TRACT: ""_#9""~"
^DIPT(1041,"F",33)="21,S DIP(1)=$S($D(^MCAR(691.9,D0,3,D1,2)):^(2),1:"""") S X=""BYPASS ISUPREL: ""_$P(DIP(1),U,6) W X K DIP;C12;Z;""""BYPASS ISUPREL: ""_#8""~"
^DIPT(1041,"F",34)="21,S DIP(1)=$S($D(^MCAR(691.9,D0,3,D1,2)):^(2),1:"""") S X=""BYPASS ISUPREL: ""_$P(DIP(1),U,8) W X K DIP;C47;Z;""""BYPASS ISUPREL: ""_#10""~"
^DIPT(1041,"F",35)="3,X DXS(5,9) W X K DIP;C28;S;X;Z;""UNDERLINE(""ELECTROCARDIOGRAM"")""~3,X DXS(6,9.2) S X=X_Y W X K DIP;C8;Z;""""DATE: ""_NUMDATE(DATE)""~"
^DIPT(1041,"F",36)="3,S DIP(1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=""ATRIAL CYCLE LENGTH (MSEC): ""_$P(DIP(1),U,3) W X K DIP;C10;Z;""""ATRIAL CYCLE LENGTH (MSEC): ""_#2""~"
^DIPT(1041,"F",37)="3,S DIP(1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=""VENT CYCLE LENGTH (MSEC): ""_$P(DIP(1),U,4) W X K DIP;C45;Z;""""VENT CYCLE LENGTH (MSEC): ""_#3""~"
^DIPT(1041,"F",38)="3,S DIP(1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=""QRS DURATION: ""_$P(DIP(1),U,5) W X K DIP;C10;Z;""""QRS DURATION: ""_#4""~"
^DIPT(1041,"F",39)="3,S DIP(1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=""QRS AXIS: ""_$P(DIP(1),U,6) W X K DIP;C45;Z;""""QRS AXIS: ""_#5""~"
^DIPT(1041,"F",40)="3,S DIP(1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=""QT: ""_$P(DIP(1),U,8) W X K DIP;C10;Z;""""QT: ""_QT""~"
^DIPT(1041,"F",41)="3,X $P(^DD(691.93,8,0),U,5,99) S DIP(2)=X S X=""QTC: "",DIP(1)=X S X=DIP(2),DIP(3)=X S X=3,DIP(4)=X S X=0,X=$J(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;C45;Z;""""QTC: ""_$J(QTC,3,0)""~"
^DIPT(1041,"F",42)="3,""RYHTHM: "";C10~"
^DIPT(1041,"F",43)="3,X DXS(7,9.4) S X=$S('$D(^MCAR(693.3,+$P(DIP(103),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0) W X K DIP;m;Z;""RHYTHM:RHYTHM""~"
^DIPT(1041,"F",44)="3,""INTERPRETATION: "";C10~3,9;C28;W50~""COMMENTS: "";C8;S~23,.01;W60~22,""DISCHARGE DATE: "";C5;S~22,.01~22,""MEDICATIONS ON DISCHARGE: "";C8~22,1;X~"
^DIPT(1041,"H")="@"
^DIPT(1041,"IOM")="80"
^DIPT(1041,"LAST")="2"
^DIPT(1041,"ROU")="^MCAROAT"
^DIPT(1041,"ROUOLD")="MCAROAT"
^DIPT(1041,"SUB")="1"
^DIPT(1042,0)="MCAROPZ^2960513.1105^^699^^^2960513"
^DIPT(1042,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,12) S:'$D(^MCAR(697.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(697.2,D0,0)):^(0),1:"""")"
^DIPT(1042,"DXS",2,9)="X DXS(2,9.2) S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DIPT(1042,"DXS",2,9.2)="S X=""HISTORY"""
^DIPT(1042,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,5,0)):$P(^(0),U,3),1:"""")"
^DIPT(1042,"DXS",4,9)="X DXS(4,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,3)_"":"",2),$C(59),1) S D0=I(0,0)"
^DIPT(1042,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,3,0)):$P(^(0),U,3),1:"""")"
^DIPT(1042,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(690,4,0)):$P(^(0),U,3),1:"""")"
^DIPT(1042,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""")"
^DIPT(1042,"F",1)="""Procedure: "";C2~X DXS(1,9.2) S X=$P(DIP(101),U,8) S D0=I(0,0) W X K DIP;X;Z;""PROCEDURE:PRINT NAME""~""Ward/Clinic: "";C45~9;X;L20~""Bronchoscopist: "";C2~"
^DIPT(1042,"F",2)="6;C19;X~""Fellow: "";C45~200;X~""2nd Fellow: "";C45~201;X~"
^DIPT(1042,"F",3)="S X=1 X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""" W X K DIP;X;Z;""BLANK(1)""~"
^DIPT(1042,"F",4)="X DXS(2,9) W X K DIP;C1;X;S;Z;""UNDERLINE(""HISTORY"")""~""Glaucoma: "";C3~"
^DIPT(1042,"F",5)="X DXS(3,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,5)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:GLAUCOMA""~"
^DIPT(1042,"F",6)="""Bleeding Disorder: "";C45~X DXS(4,9) W X K DIP;X;Z;""MEDICAL PATIENT:HISTORY OF BLEEDING DISORDER""~""Valvular Heart Disease: "";C3~"
^DIPT(1042,"F",7)="X DXS(5,9.2) S DIP(101)=$S($D(^MCAR(690,D0,""GI"")):^(""GI""),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,4)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:VALVULAR HEART DISEASE""~"
^DIPT(1042,"F",8)="""Comments:"";C3~X DXS(6,9.2) S X=$P(DIP(101),U,6) S D0=I(0,0) W X K DIP;X;Z;""MEDICAL PATIENT:HISTORY COMMENTS""~"
^DIPT(1042,"H")="@"
^DIPT(1042,"SUB")="1"
^DIPT(1043,0)="MCFSFGM^2930528^^697.3^^^^1"
^DIPT(1043,1,0)="^.41^2^2"
^DIPT(1043,1,1,0)="697.3^1^^^ALL^2930528^^1"
^DIPT(1043,1,2,0)="697.31^2^697.3^3^^2930528^^1"
^DIPT(1043,1,"B",697.3,1)=""
^DIPT(1043,1,"B",697.31,2)=""
^DIPT(1043,"F",2)="S DIFGT=163 D FG^DIFGB;X"
^DIPT(1044,0)="PRCNSTAT^2960319.105^^413^^^2960805"
^DIPT(1044,"F",1)=".01;""Transaction #""~37;C19;""Description""~6;C40;L20;""Status""~"
^DIPT(1044,"F",2)="S DIP(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C61;""Request Date/Time"";Z;""NUMDATE(REQUEST DATE)""~"
^DIPT(1044,"F",3)="S DIP(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;Z;""NUMDATE(STATUS DATE)""~"
^DIPT(1044,"H")="@"
^DIPT(1044,"SUB")="1"
^DIPT(1045,0)="PRCNOUTS^2921110.1557^^413^^^^"
^DIPT(1045,"DCL","413.015^6")="&"
^DIPT(1045,"F",2)="34;L3;""PRIORITY""~.01;C12;L16;""TRANSACTION""~8;C73;R4;""FUND""~15,1,.01;C12;L40~15,5;C54;R4;""QTY""~15,4;C60;R8~15,6;C69;R8~15,8,.01;C12;L65~"""";S1~"
^DIPT(1045,"H")="Outstanding Equipment Request"
^DIPT(1046,0)="PRCNSTAN^2921207.1155^^413^^^^"
^DIPT(1046,"F",1)=".01~-49,^DIC(49,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""2:""~-49,1;R5;C20;""SERVICE ABBREV.""~42;L10~"
^DIPT(1046,"F",2)="43;""VACO EXCEED APPROVAL"";C40;R6~44;R6~"
^DIPT(1046,"H")="Use Standard Status Report"
^DIPT(1047,0)="PRCNCONT^2960617.155^^413^^^2960617"
^DIPT(1047,"F",1)=".01;""NX REQUEST #""~-49,^DIC(49,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""2:""~-49,1;R5;""SERVICE ABBREV.""~"
^DIPT(1047,"F",2)="37;""Short Description""~"
^DIPT(1047,"H")="Controlled Equipment Listing"
^DIPT(1048,0)="PRCNTIST^2960319.1412^^413.1^^^2960319"
^DIPT(1048,"F",1)=".01;""TRANSACTION #"";L16~-49,^DIC(49,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCN(413.1,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""2:""~-49,1;""SERVICE""~"
^DIPT(1048,"F",2)="5;""CMR OFFICIAL"";C30~20,.01;C9;L9;""EE #""~"
^DIPT(1048,"F",3)="20,-6914,^ENG(6914,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1048,"F",4)="20,-6914,3;C20;L30;""EQUIPMENT NAME""~"
^DIPT(1048,"H")="TURN-IN STATUS REPORT"
^DIPT(1049,0)="PRCNCOST^2921111.1232^^413^^^^"
^DIPT(1049,"DCL","413.015^6")="&"
^DIPT(1049,"DCL","413^20")="&"
^DIPT(1049,"DCL","413^22")="&"
^DIPT(1049,"DCL","413^24")="&"
^DIPT(1049,"DCL","413^54")="&"
^DIPT(1049,"DCL","413^60")="&"
^DIPT(1049,"DCL","413^63")="&"
^DIPT(1049,"DCL","413^65")="&"
^DIPT(1049,"DCL","413^66")="&"
^DIPT(1049,"DCL","413^69")="&"
^DIPT(1049,"F",2)=".01~15,6~20~22~24~54~60~63~65~66~69~"
^DIPT(1049,"H")="EQUIPMENT REQUEST STATISTICS"
^DIPT(1050,0)="PRCNDET^2921123.1202^^413^^^2960208^"
^DIPT(1050,"F",1)="1;C2;L25~2;C29;L30~11;C62;L16~5;C2;L25~4;C29;L3;""STATION""~4.5;C39;L3~8;C49;L11;""REQ. TYPE""~3;C62;L18~6;C2;L45~7;C62;L18~9;C2;L10;""PROJ. #""~10;C29;L28~"
^DIPT(1050,"F",2)="12;C62;L18~13;C2;L15~14;C29;L30~15,.01;C2;L3;""LI#""~15,2;C7;L33~15,3;C42;L30~15,4;C2;L7;""COST""~15,5;C11;L4;""AMT.""~15,6;C17;L10~15,9;C29;L11;""FINAL AMT.""~"
^DIPT(1050,"F",3)="15,7;C42;L18~15,13;C62;L11~15,1,.01;C2;L38~15,8,.01;C42;L37~15,10;C2;L22~15,12;C29;L11;""STATUS DATE""~15,11,.01;C42;L37~18;C2;L10~16;C14;L3~17;C19;L3~"
^DIPT(1050,"F",4)="19;C24;L3~21;C29;L3~23;C34;L3~27;C39;L3~25;C44;L3~26;C49;L25~20;C2;L7~22;C11;L6~24;C19;L7~30;C29;L22~31;C53;L20~28,.01;C2;L29~29;C29;L50~32;C2~34;C5~"
^DIPT(1050,"F",5)="35;C12~36;C17~37;C22~40;C27~38;C32~39;C45~41;C62~42;C67~43;C71~44;C76~67;C2~68;C34~59;C62~52;C2~57;C7~58;C12~62;C17~64;C22~70;C27~53;C32~54;C42~60;C49~"
^DIPT(1050,"F",6)="63;C58~65;C65~66;C72~61;C2~69;C29~74;C42~55;C2~71;C52~56;C2~72;C52~45;C2~46,.01;C7~46,1;C32~46,2;C37~46,4,.01;C50~47;C2~48;C26~49;C39~50;C44~51;C64~"
^DIPT(1050,"F",7)="100,.01;C2;L38~101,.01;C42;L37~102,.01;C2;L38~103,.01;C42;L38~104,.01;C2;L38~105,.01;C42;L38~106,.01;C2;L38~107,.01;C42;L38~108,.01;C2;L38~109,.01;C42;L38~"
^DIPT(1050,"F",8)="110,.01;C2;L38~111,.01;C42;L38~112,.01;C2;L38~113,.01;C42;L38~114,.01;C2;L38~115,.01;C42;L38~116,.01;C2;L38~117,.01;C42;L38~118,.01;C2;L38~119,.01;C42;L38~"
^DIPT(1050,"F",9)="120,.01;C2;L38~121,.01;C42;L38~122,.01;C2;L38~123,.01;C42;L38~124,.01;C2;L38~125,.01;C42;L38~"
^DIPT(1050,"H")="EQUIPMENT REQUEST LIST"
^DIPT(1051,0)="PRCNBRIE^2951030.1618^^413^^^2960514"
^DIPT(1051,"F",1)=".01;""TRANSACTION #""~34;R3;""PRIORITY""~8;C40;L4;""TYPE""~15,4;R10;""COST""~15,5;R4;""QUANTITY""~15,6;R10;""TOTAL""~15,1,.01;L30;""ITEM DESCRIPTION""~15,8~"
^DIPT(1051,"F",2)="126,.01;C40;L30;""JUSTIFICATION"";m;w~"
^DIPT(1051,"H")="Requests by Service Priority"
^DIPT(1052,0)="LRAR ARCHIVE 67.9^2950202^^67.9^^^2950202^2^67.99999"
^DIPT(1052,1,0)="^.41^5^5"
^DIPT(1052,1,1,0)="67.9^1^^^^2950202^^^67.99999^67.99999^"
^DIPT(1052,1,1,"F",0)="^.411^1^1"
^DIPT(1052,1,1,"F",1,0)=".01^^.01^0;1^1"
^DIPT(1052,1,2,0)="67.901^2^67.9^3^DIVISION^2950202^^^67.9999901^67.99999^1;0"
^DIPT(1052,1,2,"F",0)="^.411^2^2"
^DIPT(1052,1,2,"F",1,0)=".01^^.01^0;1^0"
^DIPT(1052,1,2,"F",2,0)=".5^^.02^0;2^"
^DIPT(1052,1,3,0)="67.911^3^67.901^3^MONTH^2950202^^^67.9999911^67.9999901^1;0"
^DIPT(1052,1,3,"F",0)="^.411^4^4"
^DIPT(1052,1,3,"F",1,0)=".01^^.01^0;1^"
^DIPT(1052,1,3,"F",2,0)="1^^1^0;2^1"
^DIPT(1052,1,3,"F",3,0)="2^^2^0;3^"
^DIPT(1052,1,3,"F",4,0)="3^^3^0;4^"
^DIPT(1052,1,4,0)="67.9114^4^67.911^3^WKLD CODE^2950202^^^67.99999114^67.9999911^1;0"
^DIPT(1052,1,4,"F",0)="^.411^13^13"
^DIPT(1052,1,4,"F",1,0)=".01^^.01^0;1^"
^DIPT(1052,1,4,"F",2,0)=".03^^.03^0;9^"
^DIPT(1052,1,4,"F",3,0)="1^^1^0;2^"
^DIPT(1052,1,4,"F",4,0)="2^^2^0;3^"
^DIPT(1052,1,4,"F",5,0)="3^^3^0;4^"
^DIPT(1052,1,4,"F",6,0)="4^^4^0;5^"
^DIPT(1052,1,4,"F",7,0)="5^^5^0;6^"
^DIPT(1052,1,4,"F",8,0)="6^^6^0;7^"
^DIPT(1052,1,4,"F",9,0)="7^^7^0;8^"
^DIPT(1052,1,4,"F",10,0)="7.5^^7.5^0;10^"
^DIPT(1052,1,4,"F",11,0)="10^^10^2;1^0"
^DIPT(1052,1,4,"F",12,0)="11^^11^0;11^"
^DIPT(1052,1,4,"F",13,0)="12^^12^0;12^"
^DIPT(1052,1,5,0)="67.91148^5^67.9114^3^TREATING SPECIALITY^2950202^^^67.999991148^67.99999114^1;0"
^DIPT(1052,1,5,"F",0)="^.411^3^3"
^DIPT(1052,1,5,"F",1,0)=".01^^.01^0;1^"
^DIPT(1052,1,5,"F",2,0)=".03^^.03^0;3^"
^DIPT(1052,1,5,"F",3,0)="1^^1^0;2^"
^DIPT(1052,1,"B",67.9,1)=""
^DIPT(1052,1,"B",67.901,2)=""
^DIPT(1052,1,"B",67.911,3)=""
^DIPT(1052,1,"B",67.9114,4)=""
^DIPT(1052,1,"B",67.91148,5)=""
^DIPT(1052,"F",2)="D ^DIAXU;X"
^DIPT(1053,0)="LRAR ARCHIVE WKLD DATA 64.1^2960216^^64.1^^^2960216^2^64.19999"
^DIPT(1053,1,0)="^.41^5^5"
^DIPT(1053,1,1,0)="64.1^1^^^^2960216^^^64.19999^64.19999^"
^DIPT(1053,1,1,"F",0)="^.411^1^1"
^DIPT(1053,1,1,"F",1,0)=".01^^.01^0;1^1"
^DIPT(1053,1,2,0)="64.11^2^64.1^3^DATE^2960216^^^64.20999^64.19999^1;0"
^DIPT(1053,1,2,"F",0)="^.411^3^3"
^DIPT(1053,1,2,"F",1,0)=".01^^.01^0;1^"
^DIPT(1053,1,2,"F",2,0)=".03^^.03^0;2^1"
^DIPT(1053,1,2,"F",3,0)="2^^2^2;0^"
^DIPT(1053,1,3,0)="64.111^3^64.11^3^WKLD CODE^2960216^^^64.21999^64.20999^1;0"
^DIPT(1053,1,3,"F",0)="^.411^6^6"
^DIPT(1053,1,3,"F",1,0)=".01^^.01^0;1^1"
^DIPT(1053,1,3,"F",2,0)=".03^^.03^0;2^"
^DIPT(1053,1,3,"F",3,0)=".04^^.04^0;3^"
^DIPT(1053,1,3,"F",4,0)="3^^3^S;2^"
^DIPT(1053,1,3,"F",5,0)="4^^4^S;3^"
^DIPT(1053,1,3,"F",6,0)="5^^5^S;4^"
^DIPT(1053,1,4,0)="64^4^64.111^2^WKLD CODE:^2960216^^^64.21999^64.21999^"
^DIPT(1053,1,4,"F",0)="^.411^1^1"
^DIPT(1053,1,4,"F",1,0)="1^^.02^0;4^"
^DIPT(1053,1,5,0)="64.1111^4^64.111^3^ACCESSION WKLD CODE TIME^2960216^^^64.40999^64.21999^1;0"
^DIPT(1053,1,5,"F",0)="^.411^23^23"
^DIPT(1053,1,5,"F",1,0)=".01^^.01^0;1^"
^DIPT(1053,1,5,"F",2,0)="1^^1^0;2^1"
^DIPT(1053,1,5,"F",3,0)="2^^2^0;3^"
^DIPT(1053,1,5,"F",4,0)="5^^3^0;4^1"
^DIPT(1053,1,5,"F",5,0)="6^^4^0;5^1"
^DIPT(1053,1,5,"F",6,0)="7.5^^22^2;4^1"
^DIPT(1053,1,5,"F",7,0)="7^^5^0;6^1"
^DIPT(1053,1,5,"F",8,0)="8^^6^0;7^"
^DIPT(1053,1,5,"F",9,0)="9^^7^0;8^1"
^DIPT(1053,1,5,"F",10,0)="10^^8^0;9^"
^DIPT(1053,1,5,"F",11,0)="11^^9^0;10^"
^DIPT(1053,1,5,"F",12,0)="12^^10^1;1^"
^DIPT(1053,1,5,"F",13,0)="13^^23^4;1^1"
^DIPT(1053,1,5,"F",14,0)="14^^12^1;3^"
^DIPT(1053,1,5,"F",15,0)="15^^13^1;4^1"
^DIPT(1053,1,5,"F",16,0)="16^^14^1;5^1"
^DIPT(1053,1,5,"F",17,0)="17^^15^1;6^1"
^DIPT(1053,1,5,"F",18,0)="18^^16^1;7^1"
^DIPT(1053,1,5,"F",19,0)="19^^17^1;8^1"
^DIPT(1053,1,5,"F",20,0)="20^^18^1;9^1"
^DIPT(1053,1,5,"F",21,0)="21^^19^2;1^"
^DIPT(1053,1,5,"F",22,0)="22^^20^2;2^1"
^DIPT(1053,1,5,"F",23,0)="23^^21^2;3^1"
^DIPT(1053,1,"B",64,4)=""
^DIPT(1053,1,"B",64.1,1)=""
^DIPT(1053,1,"B",64.11,2)=""
^DIPT(1053,1,"B",64.111,3)=""
^DIPT(1053,1,"B",64.1111,5)=""
^DIPT(1053,"F",2)="D ^DIAXU;X"
^DIPT(1054,0)="PRCH P/C ORACLE^2980714.1338^^440.6^^^3000525"
^DIPT(1054,"DCL","440.6^13")="+"
^DIPT(1054,"F",2)=""""";S~16;L37;""CARD HOLDER""~6~13~31;L30~.01~"
^DIPT(1054,"H")="UNRECONCILED AUSTIN PAYMENT TRANSACTIONS"
^DIPT(1055,0)="PRCH RECONCILE PRINT^2970324.0928^^440.6^^^2970324"
^DIPT(1055,"F",1)="6;""TRANS DATE"";L12~31;""MERCHANT"";L20~13~18;""COMM AMT""~"
^DIPT(1055,"F",2)="S DIP(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,19)-$P(DIP(1),U,14) W X K DIP;""VARIANCE"";R10;Z;""COMM-AM""~41;""PO#"";L12~"
^DIPT(1055,"F",3)="-442,^PRC(442,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PURCHASE:""~-442,5;L20~-442,1;L4~"
^DIPT(1055,"F",4)="-442,S DIP(101)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,5),X=X W X K DIP;""CC"";L8;Z;""INTERNAL(COST CENTER)""~-442,41,.01;""BOC"";L6~-442,.5;L20~"
^DIPT(1055,"F",5)="17;""ET DOC ID""~"
^DIPT(1055,"H")="PURCHASE CARD ORDER RECONCILE LIST"
^DIPT(1056,0)="PRCHQ UNAWARDED^2960714.1433^@^444^^@^2961022"
^DIPT(1056,"F",2)=".01;C1~7;C19~2;C41;""QUOTE DUE""~3;C61;L18;""CONTRACTING OFFICER""~"
^DIPT(1056,"H")="REQUEST FOR QUOTATION LIST"
^DIPT(1057,0)="PRCHQ RFQ SYNOPSIS^2960907.2235^@^444^^@^2961022"
^DIPT(1057,"DXS",1,9)="X DXS(1,9.2) X ""F D2=0:0 S D2=$O(^PRC(444,D0,8,D1,3,D2)) Q:D2'>0 S:$S($D(^(D2,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(103)=DIP(103)+1"" S D(2)=D2 S X=+DIP(103) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(1057,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(2,0)=$S($D(D2):D2,1:""""),DIP(103)="""""
^DIPT(1057,"DXS",2,9)="X DXS(2,9.2) X ""F D1=0:0 S D1=$O(^PRC(444,D0,8,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1057,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1057,"DXS",3,9)="X DXS(3,9.2) X ""F D1=0:0 S D1=$O(^PRC(444,D0,7,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1057,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1057,"F",1)="""RFQ #: "";C1;""""~.01;X;""""~""Status: "";C40;""""~7;X;""""~""Assigned PA: "";C1;""""~3;X;""""~""Priority: "";C40;""""~5;X;""""~""Requesting Service: "";C1;""""~9;X;""""~"
^DIPT(1057,"F",2)="""Substation: "";C1;""""~8.1;X;""""~""Requester: "";C1;""""~10;X;""""~""Requester's Phone #: "";C40;""""~11;X;""""~""RFQ Ref Date: "";C1;""""~1;X;""""~"
^DIPT(1057,"F",3)="""Quote Due Date: "";C40;""""~2;X;""""~""Reqd Delivery Date: "";C1;""""~13;X;""""~""FOB: "";C40;""""~12;X;""""~""Ship To: "";C1;""""~14;X;""""~""Deliver To: "";C40;""""~15;X;""""~"
^DIPT(1057,"F",4)="""Primary 2237: "";C1;""""~8;X;""""~""Set Aside: "";C40;""""~17.5;X;""""~""FCP: "";C1;""""~8.2;X;""""~""Solicited Vendors: "";C1~""Name"";C5;""""~""Dun & Bradstreet"";C50;""""~"
^DIPT(1057,"F",5)="""Method"";C68;""""~20,.01;C5;""""~20,2;C50;""""~20,1;C68;L10;""""~""Transmit 'PUBLIC': "";C1;""""~20.5;X;""""~""Items on RFQ: "";C1;""""~19,""Line #: "";C5;""""~19,.01;X;L4;""""~"
^DIPT(1057,"F",6)="19,""Item Master #: "";C50;""""~19,1;X;""""~19,""Origin 2237: "";C10;""""~19,15;X;""""~19,""Line #: "";C50;""""~19,16;X;L4;""""~19,""Quantity: "";C10;""""~19,2;X;""""~"
^DIPT(1057,"F",7)="19,""Unit: "";C50;""""~19,3;X;""""~19,""Description: "";C10;""""~19,1.5,.01;C10;""""~19,"" "";C10;""""~19,""Delivery Schedule: "";C10;""""~19,20,""Schedule: "";C15;""""~"
^DIPT(1057,"F",8)="19,20,.01;X;L4;""""~19,20,""Date: "";C50;""""~19,20,1;X;""""~19,20,""Quantity: "";C20;""""~19,20,2;X;""""~19,20,""Location: "";C20;""""~19,20,3;X;""""~"
^DIPT(1057,"F",9)="""Special Remarks: "";C1;""""~16,.01;C5;""""~"" "";C1;""""~""Administrative Certifications: "";C1;""""~17,.01;C5;""""~"" "";C1;""""~""Vendors Submitting Quotes:"";C1;""""~"
^DIPT(1057,"F",10)="""Name"";C5;""""~""Dun & Bradstreet"";C50;""""~""# Items"";C70;""""~24,.01;C5;""""~24,16;C50;""""~24,X DXS(1,9) W X K DIP;C70;"""";Z;""COUNT(#11)""~"" "";C1;""""~"
^DIPT(1057,"F",11)="""No. of Quotes: "";C1;""""~X DXS(2,9) W X K DIP;X;"""";Z;""COUNT(#24)""~"" "";C1;""""~""No. of 864 Text Messages: "";C1;""""~X DXS(3,9) W X K DIP;X;"""";Z;""COUNT(#21)""~"
^DIPT(1057,"H")="@"
^DIPT(1057,"SUB")="1"
^DIPT(1058,0)="PRCHQ RFQ FULL^2960907.2227^@^444^^@^2961022"
^DIPT(1058,"DXS",1,9)="X DXS(1,9.2) X ""F D2=0:0 S D2=$O(^PRC(444,D0,8,D1,3,D2)) Q:D2'>0 S:$S($D(^(D2,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(103)=DIP(103)+1"" S D(2)=D2 S X=+DIP(103) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(1058,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(2,0)=$S($D(D2):D2,1:""""),DIP(103)="""""
^DIPT(1058,"DXS",2,9)="X DXS(2,9.2) X ""F D1=0:0 S D1=$O(^PRC(444,D0,8,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1058,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1058,"DXS",3,9)="X DXS(3,9.2) X ""F D1=0:0 S D1=$O(^PRC(444,D0,7,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102) S D0=I(0,0) S D1=I(1,0)"
^DIPT(1058,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1058,"F",1)="""RFQ #: "";C1;""""~.01;X;""""~""Status: "";C40;""""~7;X;""""~""Assigned PA: "";C1;""""~3;X;""""~""Priority: "";C40;""""~5;X;""""~""Requesting Service: "";C1;""""~9;X;""""~"
^DIPT(1058,"F",2)="""Substation: "";C1;""""~8.1;X;""""~""Requester: "";C1;""""~10;X;""""~""Requester's Phone #: "";C40;""""~11;X;""""~""RFQ Ref Date: "";C1;""""~1;X;""""~"
^DIPT(1058,"F",3)="""Quote Due Date: "";C40;""""~2;X;""""~""Reqd Delivery Date: "";C1;""""~13;X;""""~""FOB: "";C40;""""~12;X;""""~""Ship To: "";C1;""""~14;X;""""~""Deliver To: "";C40;""""~15;X;""""~"
^DIPT(1058,"F",4)="""Primary 2237: "";C1;""""~8;X;""""~""Set Aside: "";C40;""""~17.5;X;""""~""FCP: "";C1;""""~8.2;X;""""~""Solicited Vendors: "";C1~""Name"";C5;""""~""Dun & Bradstreet"";C50;""""~"
^DIPT(1058,"F",5)="""Method"";C68;""""~20,.01;C5;""""~20,2;C50;""""~20,1;C68;L10;""""~""Transmit 'PUBLIC': "";C1;""""~20.5;X;""""~""Items on RFQ: "";C1;""""~19,""Line #: "";C5;""""~19,.01;X;L4;""""~"
^DIPT(1058,"F",6)="19,""Item Master #: "";C50;""""~19,1;X;L9;""""~19,""Origin 2237: "";C9;""""~19,15;X;""""~19,""Line #: "";C50;""""~19,16;X;L4;""""~19,""Quantity: "";C9;""""~19,2;X;""""~"
^DIPT(1058,"F",7)="19,""Unit: "";C50;""""~19,3;X;""""~19,""SIC Code: "";C9;""""~19,6;X;L20;""""~19,""Drug Code: "";C50;""""~19,7;X;""""~19,""NSN: "";C9;""""~19,5;X;""""~19,""FSC: "";C50;""""~19,4;X;""""~"
^DIPT(1058,"F",8)="19,""M Part #: "";C9;""""~19,8;X;""""~19,""Lot #: "";C50;""""~19,9;X;""""~19,""Serial #: "";C9;""""~19,10;X;""""~19,""Hazmat Code: "";C50;""""~"
^DIPT(1058,"F",9)="19,S DIP(1)=$S($D(^PRC(444,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,11),X=X W X K DIP;X;"""";Z;""INTERNAL(#12)""~19,""BOC: "";C9;""""~19,12.5;X;""""~"
^DIPT(1058,"F",10)="19,""Vendor Selected: "";C9;""""~19,17;X;""""~19,""Vendor's Unit of Purchase: "";C9;""""~19,18;X;""""~19,""Vendor's Price: "";C50;""""~19,19;X;""""~"
^DIPT(1058,"F",11)="19,""Destination 2237: "";C9;""""~19,21;X;""""~19,""Line #: "";C50;""""~19,22;X;L4;""""~19,""Request's Item Description: "";C9;""""~19,1.5,.01;C10;""""~19,"" "";C10;""""~"
^DIPT(1058,"F",12)="19,""Delivery Schedule: "";C9;""""~19,20,""Schedule: "";C15;""""~19,20,.01;X;L4;""""~19,20,""Date: "";C50;""""~19,20,1;X;""""~19,20,""Quantity: "";C20;""""~19,20,2;X;""""~"
^DIPT(1058,"F",13)="19,20,""Location: "";C20;""""~19,20,3;X;""""~""Special Remarks: "";C1;""""~16,.01;C5;""""~"" "";C1;""""~""Administrative Certifications: "";C1;""""~17,.01;C5;""""~"" "";C1;""""~"
^DIPT(1058,"F",14)="""RFQ's Last Editor: "";C1;""""~20.7;X;""""~""Date/Time: "";C50;""""~20.8;X;""""~""RFQ's MailMan Message #: "";C1;""""~20.9;X;""""~"" "";C1;""""~"
^DIPT(1058,"F",15)="""Vendors Submitting Quotes:"";C1;""""~""Name"";C5;""""~""Dun & Bradstreet"";C50;""""~""# Items"";C70;""""~24,.01;C5;""""~24,16;C50;""""~"
^DIPT(1058,"F",16)="24,X DXS(1,9) W X K DIP;C70;"""";Z;""COUNT(#11)""~"" "";C1;""""~""No. of Quotes: "";C1;""""~X DXS(2,9) W X K DIP;X;"""";Z;""COUNT(#24)""~"" "";C1;""""~"
^DIPT(1058,"F",17)="""No. of 864 Text Messages: "";C1;""""~X DXS(3,9) W X K DIP;X;"""";Z;""COUNT(#21)""~"" "";C1;""""~""Award Justification: "";C1;""""~18,.01;C1;""""~"
^DIPT(1058,"H")="@"
^DIPT(1058,"SUB")="1"
^DIPT(1059,0)="PRCHQ RFQ MESSAGES 2^2960630.1537^@^444^^@^2961022"
^DIPT(1059,"DXS",1,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""I"",DIP(2)=X S X=""Vendor ID: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",2,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""I"",DIP(2)=X S X=$P(DIP(1),U,3),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",3,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""I"",DIP(2)=X S X=""Vendor Name: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",4,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""I"",DIP(2)=X S X=$P(DIP(1),U,12),DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",5,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""O"",DIP(2)=X S X=""Transmitted 'PUBLIC'?: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",6,9.2)="S DIP(4)=$C(59)_$S($D(^DD(444.021,12,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:""""),DIP(3)=$S($D(^(1)):^(1),1:"""") S DIP(3)=$S($D(^(1)):^(1),1:"""")"
^DIPT(1059,"DXS",6,9.3)="X DXS(6,9.2) S X=$P(DIP(1),U,2),X=X S X=X=""O"",DIP(2)=X S X=$P($P(DIP(4),$C(59)_$P(DIP(3),U,2)_"":"",2),$C(59),1),DIP(5)=X S X=1,DIP(6)=X S X="""""
^DIPT(1059,"DXS",7,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""O"",DIP(2)=X S X=""Recipients: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",8,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""O"",DIP(2)=X S X=""Outbound MailMan Msg #: "",DIP(3)=X S X=1,DIP(4)=X S X="""""
^DIPT(1059,"DXS",9,9.2)="S DIP(1)=$S($D(^PRC(444,D0,7,D1,0)):^(0),1:""""),DIP(3)=$S($D(^(1)):^(1),1:"""") S DIP(3)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,2),X=X S X=X=""O"",DIP(2)=X S X=$P(DIP(3),U,3)"
^DIPT(1059,"F",1)="21,""Message #"";C1;""""~21,.01;X;""""~21,""Direction: "";C40;""""~21,1;X;""""~21,""Sender's Msg #: "";C1;""""~21,4;X;""""~21,""Description:"";C1;""""~21,9;C1;""""~21,"" "";C1;""""~"
^DIPT(1059,"F",2)="21,X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C1;"""";Z;""$S(INTERNAL(#1)=""I"":""Vendor ID: "",1:"""")""~"
^DIPT(1059,"F",3)="21,X DXS(2,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#1)=""I"":#2,1:"""")""~"
^DIPT(1059,"F",4)="21,X DXS(3,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C30;"""";Z;""$S(INTERNAL(#1)=""I"":""Vendor Name: "",1:"""")""~"
^DIPT(1059,"F",5)="21,X DXS(4,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#1)=""I"":#2.5,1:"""")""~21,""Official's Name: "";C1;""""~21,7;X;""""~"
^DIPT(1059,"F",6)="21,""Phone #: "";C50;""""~21,8;X;""""~21,""Create Date/Time: "";C1;""""~21,5;X;""""~21,""Store Date/Time: "";C40;""""~21,6;X;""""~21,""Text: "";C1;""""~21,10,.01;C3;""""~"
^DIPT(1059,"F",7)="21,"" "";C1;""""~21,X DXS(5,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C1;"""";Z;""$S(INTERNAL(#1)=""O"":""Transmitted 'PUBLIC'?: "",1:"""")""~"
^DIPT(1059,"F",8)="21,X DXS(6,9.3) S X=$S(DIP(2):DIP(5),DIP(6):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#1)=""O"":#12,1:"""")""~"
^DIPT(1059,"F",9)="21,X DXS(7,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C1;"""";Z;""$S(INTERNAL(#1)=""O"":""Recipients: "",1:"""")""~21,11,.01;C5;""""~21,"" "";C1;""""~"
^DIPT(1059,"F",10)="21,X DXS(8,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;C1;"""";Z;""$S(INTERNAL(#1)=""O"":""Outbound MailMan Msg #: "",1:"""")""~"
^DIPT(1059,"F",11)="21,X DXS(9,9.2) S DIP(4)=X S X=1,DIP(5)=X S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#1)=""O"":#14,1:"""")""~21,"" "";C1;""""~"
^DIPT(1059,"H")="TEXT MESSAGES FOR THIS RFQ"
^DIPT(1060,0)="IB CLK PROD HDR^2960826.0936^^399^^^2960909^"
^DIPT(1060,"DXS",1,9)="X DXS(1,9.5) Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S Y=X,X=DIP(10),X=X S X=X_Y"
^DIPT(1060,"DXS",1,9.2)="S X=""CLERK PRODUCTIVITY REPORT FOR BILLS "",DIP(1)=X,DIP(2)=X S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(3)=X S X=""ENTERED"""
^DIPT(1060,"DXS",1,9.3)="X DXS(1,9.2) S DIP(4)=X,DIP(5)=X S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""A"",DIP(6)=X S X=""AUTHORIZED"",DIP(7)=X S X=1,DIP(8)=X"
^DIPT(1060,"DXS",1,9.4)="X DXS(1,9.3) S X=""FIRST PRINTED"",X=$S(DIP(3):DIP(4),DIP(6):DIP(7),DIP(8):X) S Y=X,X=DIP(1),X=X_Y_"" "",DIP(9)=X S X=""IBBEGE"""
^DIPT(1060,"DXS",1,9.5)="X DXS(1,9.4) Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S Y=X,X=DIP(9),X=X S X=X_Y_"" - "",DIP(10)=X S X=""IBENDE"""
^DIPT(1060,"DXS",2,9)="X DXS(2,9.2) S X=X=""A"",DIP(4)=X S X=""AUTHORIZATION"",DIP(5)=X S X=1,DIP(6)=X S X=""DATE FIRST"",X=$S(DIP(1):DIP(2),DIP(4):DIP(5),DIP(6):X)"
^DIPT(1060,"DXS",2,9.2)="S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(1)=X S X="""",DIP(2)=X,DIP(3)=X S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X"
^DIPT(1060,"DXS",3,9.2)="S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(1)=X S X=""ENTERED/EDITED BY"",DIP(2)=X,DIP(3)=X S X=""IBORDER"""
^DIPT(1060,"DXS",3,9.3)="X DXS(3,9.2) Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""A"",DIP(4)=X S X=""AUTHORIZED BY"",DIP(5)=X S X=1,DIP(6)=X S X=""FIRST PRINTED BY"""
^DIPT(1060,"DXS",4,9)="X DXS(4,9.2) S X=X=""A"",DIP(4)=X S X=""DATE"",DIP(5)=X S X=1,DIP(6)=X S X=""PRINTED"",X=$S(DIP(1):DIP(2),DIP(4):DIP(5),DIP(6):X)"
^DIPT(1060,"DXS",4,9.2)="S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X=""E"",DIP(1)=X S X=""DATE ENTERED"",DIP(2)=X,DIP(3)=X S X=""IBORDER"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") S X=X"
^DIPT(1060,"F",1)=" "
^DIPT(1060,"F",2)="X DXS(1,9) W X K DIP;X;Z;""""CLERK PRODUCTIVITY REPORT FOR BILLS ""_$S(VAR(""IBORDER"")=""E"":""ENTERED"",VAR(""IBORDER"")=""A"":""AUTHORIZED"",1:""FIRST PRINTED"")_"" ""_VAR(""IBBEGE"")_"" - ""_VAR(""IBENDE"")""~"
^DIPT(1060,"F",3)="S X=""IBNOW"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;C100;L18;Z;""VAR(""IBNOW"")""~"
^DIPT(1060,"F",4)="S X=""PAGE "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C122;Z;""""PAGE ""_PAGE""~"
^DIPT(1060,"F",5)="X DXS(2,9) W X K DIP;C45;Z;""$S(VAR(""IBORDER"")=""E"":"""",VAR(""IBORDER"")=""A"":""AUTHORIZATION"",1:""DATE FIRST"")""~""BILL"";C79~""TOTAL"";C92~"
^DIPT(1060,"F",6)="X DXS(3,9.3) S X=$S(DIP(1):DIP(2),DIP(4):DIP(5),DIP(6):X) W X K DIP;C1;Z;""$S(VAR(""IBORDER"")=""E"":""ENTERED/EDITED BY"",VAR(""IBORDER"")=""A"":""AUTHORIZED BY"",1:""FIRST PRINTED BY"")""~"
^DIPT(1060,"F",7)="""RATE TYPE"";C23~X DXS(4,9) W X K DIP;C45;Z;""$S(VAR(""IBORDER"")=""E"":""DATE ENTERED"",VAR(""IBORDER"")=""A"":""DATE"",1:""PRINTED"")""~""CURRENT STATUS"";C62~"
^DIPT(1060,"F",8)="""NUMBER"";C79~""AMOUNT"";C91~""NAME"";C99~""PATIENT ID"";C121~"
^DIPT(1060,"F",9)="S X=""-"",DIP(1)=X S X=132,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",132)""~"" "";C1~"
^DIPT(1060,"H")="@"
^DIPT(1060,"SUB")="1"
^DIPT(1061,0)="GREGG^2961118.1308^@^5^0^@^2961118^7"
^DIPT(1061,105)="^^1"
^DIPT(1061,"F",2)="0~2~1~.01~3,.01~3,2~"
^DIPT(1062,0)="GREGG1^2961118.1123^^5^0^^2961118^3"
^DIPT(1062,100,0)="^.42A^6^6"
^DIPT(1062,100,1,0)="1^4"
^DIPT(1062,100,2,0)="2^4"
^DIPT(1062,100,3,0)="3^4"
^DIPT(1062,100,4,0)="4^4"
^DIPT(1062,100,5,0)="5^4"
^DIPT(1062,100,6,0)="6^4"
^DIPT(1062,100,"B",1,1)=""
^DIPT(1062,100,"B",2,2)=""
^DIPT(1062,100,"B",3,3)=""
^DIPT(1062,100,"B",4,4)=""
^DIPT(1062,100,"B",5,5)=""
^DIPT(1062,100,"B",6,6)=""
^DIPT(1062,105)=".003^^^3"
^DIPT(1062,"F",1)="W $C(34)~2;X~W $C(34);X~W $C(44);X~W $C(34);X~1;X~W $C(34);X~W $C(44);X~W $C(34);X~.01;X~W $C(34);X~W $C(44);X~W $C(34);X~3,2;X~W $C(34);X~W $C(44);X~W $C(34);X~3,1;X~W $C(34);X~W $C(44);X~"
^DIPT(1062,"F",2)="W $C(34);X~3,.01;X~W $C(34);X~W $C(44);X~"
^DIPT(1062,"H")="@@"
^DIPT(1062,"SUB")="1"
^DIPT(1063,0)="GREGG2^2961118.131^^5^0^^2961118^3"
^DIPT(1063,100,0)="^.42A^6^6"
^DIPT(1063,100,1,0)="1^2"
^DIPT(1063,100,2,0)="2^4"
^DIPT(1063,100,3,0)="3^4"
^DIPT(1063,100,4,0)="4^4"
^DIPT(1063,100,5,0)="5^4"
^DIPT(1063,100,6,0)="6^4"
^DIPT(1063,100,"B",1,1)=""
^DIPT(1063,100,"B",2,2)=""
^DIPT(1063,100,"B",3,3)=""
^DIPT(1063,100,"B",4,4)=""
^DIPT(1063,100,"B",5,5)=""
^DIPT(1063,100,"B",6,6)=""
^DIPT(1063,105)=".003^^^3"
^DIPT(1063,"F",1)="0~W $C(44);X~W $C(34);X~2;X~W $C(34);X~W $C(44);X~W $C(34);X~1;X~W $C(34);X~W $C(44);X~W $C(34);X~.01;X~W $C(34);X~W $C(44);X~W $C(34);X~3,.01;X~W $C(34);X~W $C(44);X~W $C(34);X~3,2;X~W $C(34);X~W $C(44);X~"
^DIPT(1063,"H")="@@"
^DIPT(1063,"SUB")="1"
^DIPT(1068,0)="SPN PRINT SELF^3020827.1226^^154.1^^^3021129"
^DIPT(1068,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(1068,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(102)=X"
^DIPT(1068,"F",1)="""Patient:"";C1~.01;C11~""SSN:"";C40~X DXS(1,9) W X K DIP;C45;Z;""PATIENT:SSN""~""DOB:"";C56~"
^DIPT(1068,"F",2)="X DXS(2,9.2) S Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;L18;Z;""PATIENT:DOB""~"
^DIPT(1068,"F",3)="""-----------------------------------------------------------------------------"";C1~""Self Report of Function Scores"";C22~"""";S~""Date Recorded:"";C13~.04~"
^DIPT(1068,"F",4)="""Respondent Type:"";C46~.03~"""";S~""Score Type:"";C1~.021~""Disposition:"";C1;S1~.024~"""";S1~""Move around inside house:"";C11~.16~""Stairs:"";C29~.17~"
^DIPT(1068,"F",5)="""Transfer to Bed/Chair:"";C14~.13~""Transfer to Toilet:"";C17~.14~""Transfer to tub/shower:"";C13~.15~""Eating:"";C29~.05~""Grooming:"";C27~.06~""Bathing:"";C28~"
^DIPT(1068,"F",6)=".07~""Dressing upper body:"";C16~.08~""Dressing lower body:"";C16~.09~""Toileting:"";C26~.1~""Bladder management:"";C17~.11~""Bowel Management:"";C19~.12~"""";S~"
^DIPT(1068,"F",7)="""Get to places outside of home:"";C10~2.01~""Shopping:"";C31~2.02~""Planning and cooking own meals:"";C9~2.03~""Doing housework:"";C24~2.04~"
^DIPT(1068,"F",8)="""Handling money:"";C25~2.05~"""";S~""Help during last 2 weeks: "";C18~2.08~""Number of hours of help in last 2 weeks:"";C3~2.09~"
^DIPT(1068,"F",9)="""Number of hours of help in last 24 hours:"";C2~2.13~"""";S~""Method ambulation (Walking):"";C15~2.06~"""";S~""Method ambulation (Wheelchair):"";C12~2.07~"""";S~"
^DIPT(1068,"F",10)="""----------"";C35~""Total Self Report of Function Score:"";C4~999.05~"
^DIPT(1068,"H")="@"
^DIPT(1068,"SUB")="1"
^DIPT(1069,0)="SPN PRINT FIM^3020827.1235^^154.1^^^3021210"
^DIPT(1069,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(1069,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(102)=X"
^DIPT(1069,"F",1)="I $P($G(IOST),""-"")[""C"" I $D(IOF) W @IOF;Z;""I $P($G(IOST),""-"")[""C"" I $D(IOF) W @IOF""~.01;C11~""SSN:"";C40~X DXS(1,9) W X K DIP;C45;Z;""PATIENT:SSN""~"
^DIPT(1069,"F",2)="""DOB: "";C56~X DXS(2,9.2) S Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;L18;Z;""PATIENT:DOB""~"
^DIPT(1069,"F",3)="""-----------------------------------------------------------------------------"";C1~""Functional Independence Measures (FIM)"";C24~""Date Recorded:"";C29~"
^DIPT(1069,"F",4)=".04~""Score Type:"";C29~.021~""Disposition:"";C1~.024~""Clinician(s)"";C34;S1~1.01,.01;C34~"
^DIPT(1069,"F",5)="""------------------------------------------------------------------------------"";C1~""Self Care"";C36~""Eating:"";C28~.05~""Grooming:"";C26~.06~"
^DIPT(1069,"F",6)="""Bathing:"";C27~.07~""Dressing Upper Body:"";C15~.08~""Dressing Lower Body:"";C15~.09~""Toileting:"";C25~.1~""Sphincter Control"";C32~""Bladder Management:"";C16~"
^DIPT(1069,"F",7)=".11~""Bowel Managment:"";C19~.12~""Mobility/Transfer"";C35~""Transfer Bed/Chair/Wheel chair:"";C4~.13~""Transfer to toilet:"";C16~.14~"
^DIPT(1069,"F",8)="""Transfer to Tube/Shower:"";C11~.15~D ROWCHK^SPNPRT08;Z;""D ROWCHK^SPNPRT08""~""Locomotion"";C35~""Method of Walk/Wheelchair:"";C9~.161~"
^DIPT(1069,"F",9)="""Walk/Wheelchair:"";C19~.16~""Stairs:"";C28~.17~""----------"";C35~""Motor Score:"";C23~999.03~"""";S~""Communication"";C33~""Comprehension Method:"";C14~.181~"
^DIPT(1069,"F",10)="""Comprehension Level:"";C15~.18~""Expression Method:"";C17~.191~""Expression Level:"";C18~.19~""Social Cognition"";C32~""Social Interaction:"";C16~.2~"
^DIPT(1069,"F",11)="""Problem Solving:"";C19~.21~""Memory:"";C28~.22~""----------"";C35~""Cognitive Score:"";C19~999.04~"""";S~""----------"";C35~""Total FIM Score:"";C19~999.05~"
^DIPT(1069,"F",12)="D ROWCHK^SPNPRT08;Z;""D ROWCHK^SPNPRT08""~"
^DIPT(1069,"H")="@"
^DIPT(1069,"SUB")="1"
^DIPT(1070,0)="SPN PRINT OUT^3021209.181^^154.1^^^3021210"
^DIPT(1070,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(1070,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(102)=X"
^DIPT(1070,"F",1)="""Patient:"";C1~.01;C10~""SSN:"";C40~X DXS(1,9) W X K DIP;C45;Z;""PATIENT:SSN""~""DOB:"";C58~"
^DIPT(1070,"F",2)="X DXS(2,9.2) S Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;L12;C63;Z;""PATIENT:DOB""~"
^DIPT(1070,"F",3)="""-----------------------------------------------------------------------------"";C1~""CHART Scores"";C34~"""";S~""Date Recorded"";C26~.04~"""";S2~"
^DIPT(1070,"F",4)="""Craig Handicap Assessment and Reporting Technique (CHART)"";C11~"""";S~""Physical Independence:"";C13~4.1~""Mobility:"";C26~4.2~""Occupation:"";C24~4.3~"
^DIPT(1070,"F",5)="""Social Interaction:"";C16~4.4~""Economic Self Sufficiency:"";C9~4.5~""Cognitive Independence:"";C12~4.6~""----------"";C35~""Chart Total Score: "";C17~999.06~"
^DIPT(1070,"H")="@"
^DIPT(1070,"SUB")="1"
^DIPT(1071,0)="SPN PRINT MS^3000519.1056^^154.1^^^3000519"
^DIPT(1071,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(1071,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(102)=X"
^DIPT(1071,"F",1)="""Patient:"";C1~.01;C11~""SSN:"";C40~X DXS(1,9) W X K DIP;C45;Z;""PATIENT:SSN""~""DOB:"";C60~"
^DIPT(1071,"F",2)="X DXS(2,9.2) S Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;C65;Z;""PATIENT:DOB""~"
^DIPT(1071,"F",3)="""-----------------------------------------------------------------------------"";C1~""Date Recorded:"";C27~.04~"""";S~""Functional System (Kurtzke)"";C27~"
^DIPT(1071,"F",4)=""""";S~""Pyramidal: "";C2~3.1;L63~""Brainstem: "";C2~3.2;L63~""Sensory: "";C4~3.3;L63~""Cerebral: "";C3~3.4;L63~""Cerebellar: "";C1~3.5;L63~""BWL & BLDR: "";C1~"
^DIPT(1071,"F",5)="3.6;L63~""Visual: "";C5~3.7;L63~""Other: "";C6~3.8;L63~"""";S~""Expanded Disability Status Scale (EDSS/Kurtzke)"";C17~"""";S~""EDSS Score:"";C1~3.9;C1;L78~"
^DIPT(1071,"H")="@"
^DIPT(1071,"SUB")="1"
^DIPT(1072,0)="RCCPC INQUIRE STATEMENT^2980313.1358^@^349.2^^@^2980313"
^DIPT(1072,"F",1)="S DIP(1)=$S($D(^RCPS(349.2,D0,0)):^(0),1:"""") S X=""PATIENT NAME:""_$P(DIP(1),U,3) W X K DIP;C1;Z;""""PATIENT NAME:""_PATIENT NAME""~""ACCT NO:"";C1~"
^DIPT(1072,"F",2)="W $$KEY^RCCPCFN(D0);Z;""W $$KEY^RCCPCFN(D0)""~""DATE POSTED"";C1;S2~""TRANS DESC"";C20~""TRANS AMT"";C52~""BILL NO."";C66~"
^DIPT(1072,"F",3)="W ""----------------------------------------------------------------------------"";Z;""W ""----------------------------------------------------------------------------""""~"
^DIPT(1072,"F",4)="20,S DIP(1)=$S($D(^RCPS(349.2,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;C1;Z;""NUMDATE4(DATE POSTED)""~"
^DIPT(1072,"F",5)="20,1;C20~20,2;C46~20,3;C60~20,W "" "";Z;""W "" """"~20,W "" "";Z;""W "" """"~""PREV BAL:"";C1~.05;C15~""TOTAL CHARGES:"";C1~.06;C15~""TOTAL CREDITS:"";C1~.07;C15~"
^DIPT(1072,"F",6)="""AMOUNT DUE:"";C1~.04;C15~"
^DIPT(1072,"H")="@"
^DIPT(1072,"SUB")="1"
^DIPT(1073,0)="RCAM ADDRESS UNKNOWN^3000829.1411^@^340^^@^3000830"
^DIPT(1073,"DCL","340^.01")="!"
^DIPT(1073,"F",1)=".01;""PATIENT""~110~"
^DIPT(1073,"H")="PATIENTS WITH UNKNOWN ADDRESS"
^DIPT(1074,0)="LA ASHORG^2960325.1111^^61.39^^^2960402"
^DIPT(1074,"F",2)="1,.01;""VITEK CODE"";L22~1,1;""VITEK ENTRY"";L30~1,2;""DHCP ENTRY"";L20~.01;"" ""~"
^DIPT(1074,"H")="LABORATORY INSTRUMENT CODE LIST"
^DIPT(1075,0)="LA ASHANT^2960329.0906^^61.39^^^2960402"
^DIPT(1075,"F",2)="2,2;""DHCP ENTRY"";L25~2,1;""VITEK ENTRY"";L40~2,.01;""ANTI CODE"";L10~"
^DIPT(1075,"H")="LABORATORY INSTRUMENT CODE LIST"
^DIPT(1076,0)="PRPF CARD PRINT^2880226^@^470^^@^2970324^"
^DIPT(1076,"F",2)="S DFN=D0 D EN2^PRPFCD;Z;""S DFN=D0 D EN2^PRPFCD""~K ^PRPF(470,""AD"",""Y"",D0);Z;""K ^PRPF(470,""AD"",""Y"",D0)""~"
^DIPT(1076,"H")="@"
^DIPT(1076,"SUB")="1"
^DIPT(1077,0)="PRPF SUSPENSE LIST^2871231^@^470^^@^2970422^"
^DIPT(1077,"F",2)=".01~52~32,.01~32,1,.01~32,1,1,.01~"
^DIPT(1077,"H")="PATIENT FUNDS SUSPENSE LIST"
^DIPT(1078,0)="PRPF TRANSACTION DISPLAY^2870707^@^470^^@^^"
^DIPT(1078,"F",2)="30,.01;T;L5~30,9;T~30,10~30,11;T~30,2;T~30,5~30,6~30,13~30,12~"
^DIPT(1078,"H")="PATIENT FUNDS V3 LIST"
^DIPT(1079,0)="PRPF DAILY ACTIVITY^3020504.1439^@^470.1^^@^3020731^"
^DIPT(1079,"DCL","470.1^3")="&"
^DIPT(1079,"DXS")="2"
^DIPT(1079,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^PRPF(470,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRPF(470,D0,12)):^(12),1:"""")"
^DIPT(1079,"F",1)="X DXS(1,9.2) S X=$S('$D(^DIC(4,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;C1;L18;""STATION"";Z;""PATIENT NAME:STATION NAME""~1~4~6~3~"
^DIPT(1079,"F",2)="15~"
^DIPT(1079,"H")="PATIENT FUNDS DAILY ACTIVITY (AUDIT) LISTING"
^DIPT(1080,0)="PRPF DAILY TRANSACTION SUMMARY^3020429.172^@^470.1^^@^3020731"
^DIPT(1080,"DXS")="3"
^DIPT(1080,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^PRPF(470,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRPF(470,D0,12)):^(12),1:"""")"
^DIPT(1080,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,14) S:'D0!'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""")"
^DIPT(1080,"F",1)="X DXS(1,9.2) S X=$S('$D(^DIC(4,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""STATION"";C1;L12;Z;""PATIENT NAME:STATION NAME""~.01;L8~"
^DIPT(1080,"F",2)="1;L20~6~4~3~7;""DEP/WITH""~X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""CLERK INITIALS"";Z;""PATIENT FUNDS CLERK:INITIAL""~"
^DIPT(1080,"H")="PATIENT FUNDS DAILY TRANSACTION LISTING"
^DIPT(1081,0)="PRPF CLERK STAT HDR^2870819^@^470.1^^@^^"
^DIPT(1081,"DXS",1,9)="W !!,""For Period: "" S Y=PRPFFR X ^DD(""DD"") W Y,"" to "" S Y=PRPFTO X ^DD(""DD"") W Y"
^DIPT(1081,"F",1)="""PATIENT FUNDS CLERK WORKLOAD STATISTICS""~D NOW^%DTC S Y=% X ^DD(""DD"") W ?45,Y;Z;""D NOW^%DTC S Y=% X ^DD(""DD"") W ?45,Y""~"
^DIPT(1081,"F",2)="X DXS(1,9);Z;""W !!,""For Period: "" S Y=PRPFFR X ^DD(""DD"") W Y,"" to "" S Y=PRPFTO X ^DD(""DD"") W Y""~"
^DIPT(1081,"F",3)="W ! F ZI=1:1:IOM W ""-"";Z;""W ! F ZI=1:1:IOM W ""-""""~W ! K ZI;Z;""W ! K ZI""~"
^DIPT(1081,"H")="@"
^DIPT(1081,"SUB")="1"
^DIPT(1082,0)="PRPF INACTIVE ACCOUNTS^2871231^@^470^^@^^"
^DIPT(1082,"F",2)=".01~50~1~52~14~"
^DIPT(1082,"H")="PATIENT FUNDS INACTIVE ACCOUNT LISTING"
^DIPT(1083,0)="PRPF INDIGENT LIST^3020513.1811^@^470^^@^3020731^"
^DIPT(1083,"F",1)="73;C1;L13;""STATION""~.01;L18~50;L10~52;L12~4;""INDGNT""L5~14;""BALANCE"";R10~"
^DIPT(1083,"H")="PATIENT FUNDS INDIGENT LIST"
^DIPT(1084,0)="PRPF PATIENT SUMMARY^3020425.194^@^470^^@^3020803^"
^DIPT(1084,"DCL","470^14")="&"
^DIPT(1084,"DXS")="2"
^DIPT(1084,"DXS",1,9.2)="X ""N I,Y ""_$P(^DD(470,50,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=1,DIP(3)=X S X=3,X=$E(DIP(2),DIP(3),X)_""-"",DIP(4)=X S X=DIP(1),DIP(5)=X S X=4"
^DIPT(1084,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=5,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""-"",DIP(7)=X S X=DIP(1),DIP(8)=X S X=6,DIP(9)=X S X=9"
^DIPT(1084,"F",1)="S DFN=D0 D ^PRPFDEF;"""";Z;""S DFN=D0 D ^PRPFDEF""~73;C1;L15~.01;L25~"
^DIPT(1084,"F",2)="X DXS(1,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;L12;""SSN"";Z;""$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~52~1;L8~14;""BALANCE""~"
^DIPT(1084,"F",3)="30.5~2;L15~"
^DIPT(1084,"H")="PATIENT FUNDS DAILY SUMMARY"
^DIPT(1085,0)="PRPF BALANCE IN ACCOUNTS^3020805.1057^@^470^^@^3020806^"
^DIPT(1085,"DCL","470^.01")="!"
^DIPT(1085,"DCL","470^14")="&"
^DIPT(1085,"DNP")="1"
^DIPT(1085,"F",1)=".01;""STATION"";C1;L15~14;C22~"
^DIPT(1085,"H")="PATIENT FUNDS BALANCE IN ALL ACCOUNTS"
^DIPT(1086,0)="PRPF PATIENT LIST^3020513.1721^@^470^^@^3020731^"
^DIPT(1086,"F",1)="73;C1;L10;""STATION""~.01;L16~50;L9~53~52;L8~1;L8~2;L9~10.5;L11~51;L11~10;L11~14;BALANCE;R10~"
^DIPT(1086,"H")="PATIENT FUNDS LIST"
^DIPT(1087,0)="PRPF OVERDUE PRINT^3020515.1309^@^470^^@^3020731^"
^DIPT(1087,"F",1)="73;C1;L15;STATION""~.01~50~52~10.5~10.7;L20;""PROVIDER AUTHORIZING RESTRICTION""~"
^DIPT(1087,"H")="PATIENT FUNDS LISTING OF OUT OF DATE RESTRICTIONS"
^DIPT(1088,0)="PRPF MIN/MAX1^3020510.1656^@^470^^@^3020731^"
^DIPT(1088,"F",1)="73;C1;L10~.01;L17~50;L9~52;L7~14;""BALANCE"";R9~23;R6;D0~24;R6;D0~"
^DIPT(1088,"H")="PATIENT FUNDS MIN/MAX #1 REPORT"
^DIPT(1089,0)="PRPF MIN/MAX2^3020510.1657^@^470^^@^3020731^"
^DIPT(1089,"F",1)="73;C1;L10~.01;L17~50;L9~52;L7~14;""BALANCE"";R9~25;R6;D0~26;R6;D0~"
^DIPT(1089,"H")="PATIENT FUNDS MIN/MAX #2 REPORT"
^DIPT(1090,0)="PRPF OUT OF BALANCE^3020510.1717^@^470^^@^3020803^"
^DIPT(1090,"F",1)="73;C1;L15;""STATION""~.01;L20~50;L10~14;R10~15;R10~16;R10~14.5;R10~15.5;R10~16.5;R10~"
^DIPT(1090,"H")="PATIENT FUNDS OUT OF BALANCE REPORT"
^DIPT(1091,0)="PRPF NEW ACCOUNT STATUS^2871231^@^470^^@^2970425^"
^DIPT(1091,"F",2)=".01~50;L15~53~52~1;""STATUS HAS BEEN CHANGE TO:""~"
^DIPT(1091,"H")="PATIENT FUNDS LISTING OF UPDATED ACCOUNT STATUS"
^DIPT(1092,0)="PRPF DORMANT ACCOUNT LIST^3020510.1644^@^470^^@^3020731"
^DIPT(1092,"F",1)="73;C1;L12~.01;L17~50;L9~10;L11~52;L10~14;&;""BALANCE"";R10~"
^DIPT(1092,"H")="PATIENT FUNDS DORMANT ACCOUNT LISTING"
^DIPT(1093,0)="PRPF SUSPENSE DISPLAY^2870902^@^470^^@^2970318^"
^DIPT(1093,"F",2)="32,1,.01;S~32,1,1,.01~"
^DIPT(1093,"H")="PATIENT FUNDS SUSPENSE REVIEW"
^DIPT(1094,0)="PRPF FISCAL ACTIVITY REPORT^3020514.0048^@^470.1^^@^3020808"
^DIPT(1094,"DCL","470.1^3")="&"
^DIPT(1094,"DXS")="2"
^DIPT(1094,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^PRPF(470,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRPF(470,D0,12)):^(12),1:"""")"
^DIPT(1094,"F",1)="X DXS(1,9.2) S X=$S('$D(^DIC(4,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""STATION"";C1;L18;Z;""PATIENT NAME:STATION NAME""~1;L20~5~6~"
^DIPT(1094,"F",2)="8~3~15;L25~"
^DIPT(1094,"H")="PATIENT FUNDS END OF MONTH REPORT FOR FISCAL SERVICE"
^DIPT(1095,0)="PRPF FISCAL TRANS SUMMARY^3020429.1413^@^470.1^^@^3020808"
^DIPT(1095,"DXS")="3"
^DIPT(1095,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^PRPF(470,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRPF(470,D0,12)):^(12),1:"""")"
^DIPT(1095,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,14) S:'D0!'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""")"
^DIPT(1095,"F",1)="X DXS(1,9.2) S X=$S('$D(^DIC(4,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;""STATION"";C1;L12;Z;""PATIENT NAME:STATION NAME""~.01;L8~"
^DIPT(1095,"F",2)="1;L20~6~5~3~7;""DEP/WITH""~X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;""CLERK INITIALS"";Z;""PATIENT FUNDS CLERK:INITIAL""~"
^DIPT(1095,"H")="PATIENT FUNDS - FISCAL TRANSACTION SUMMARY"
^DIPT(1096,0)="EN EQ HIST HD^2960911.1115^^6920^^^2970409"
^DIPT(1096,"F",1)="""WORK ORDER HISTORY""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70;X~"
^DIPT(1096,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;"""";Z;""PAGE""~""EQUIPMENT ID#: "";X;S1~"
^DIPT(1096,"F",3)="S X=""ENEQ(6914,ENDA,.01,""""E"""")"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;"""";Z;""VAR(""ENEQ(6914,ENDA,.01,""""E"""")"")""~""CONDITION: "";C30;X~"
^DIPT(1096,"F",4)="S X=""ENEQ(6914,ENDA,53,""""E"""")"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;"""";Z;""VAR(""ENEQ(6914,ENDA,53,""""E"""")"")""~""CRITICALITY: "";C52;X~"
^DIPT(1096,"F",5)="S X=""ENCRIT"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;"""";Z;""VAR(""ENCRIT"")""~""MANUF: "";C1;X~"
^DIPT(1096,"F",6)="S X=""ENEQ(6914,ENDA,1,""""E"""")"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;L20;"""";Z;""VAR(""ENEQ(6914,ENDA,1,""""E"""")"")""~""MODEL: "";C30;X~"
^DIPT(1096,"F",7)="S X=""ENEQ(6914,ENDA,4,""""E"""")"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;L15;"""";Z;""VAR(""ENEQ(6914,ENDA,4,""""E"""")"")""~""SERIAL: "";C52;X~"
^DIPT(1096,"F",8)="S X=""ENEQ(6914,ENDA,5,""""E"""")"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;L15;"""";Z;""VAR(""ENEQ(6914,ENDA,5,""""E"""")"")""~""WORK ORDER #"";C1;"""";S1~"
^DIPT(1096,"F",9)="""TASK DESCRIPTION"";C20;""""~""WORK ACTION"";C3;""""~""VENDOR"";C13;""""~""TOTAL"";C27;""""~""TOTAL"";C38;""""~""ENG. TURN"";C50;""""~""TECH TURN"";C63;""""~"
^DIPT(1096,"F",10)="""SERVICE COST"";C10;""""~""HOURS"";C27;""""~""MATERIAL COST"";C34;""""~""AROUND TIME"";C49;""""~""AROUND TIME"";C62;""""~""COMMENTS"";C5;""""~"
^DIPT(1096,"F",11)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1096,"H")="@"
^DIPT(1096,"SUB")="1"
^DIPT(1097,0)="PRCH REQUESTING SRVC^2970522.0941^@^410^^@^2970908"
^DIPT(1097,"DCL","410^7")="#"
^DIPT(1097,"F",2)="7;;~.01~15~"
^DIPT(1097,"H")="REQUESTING SERVICE STATISTICS REPORT "
^DIPT(1098,0)="PRCH CARD INFO^2970424.0905^@^440.5^^@^3001011"
^DIPT(1098,"F",2)="7;C1;L16~10;C19;L25;""PC CARD NAME""~8;C46;L16;""APP OFFICIAL""~9;C64;L16;""ALT OFFICIAL""~12,.01;C10~"""";S2~"
^DIPT(1098,"H")="PURCHASE CARD INFORMATION LIST"
^DIPT(1099,0)="IBD LIST ERRORS^2970227.1235^@^359.3^^@^2970416"
^DIPT(1099,"F",1)=".02;L20~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~-2,.363;""ID"";L12~"
^DIPT(1099,"F",2)=".03;""APPOINTMENT DATE"";L16~.05;""FORM TRACKING ID"";R9~.08~.13;L20~10,.01;W35~"
^DIPT(1099,"H")="AICS UNCORRECTED SCANNING ERROR LIST"
^DIPT(1100,0)="ICPT MODIFIERS BY RANGE^2970327.1251^@^81.3^^@^2970404"
^DIPT(1100,"F",2)="10,.01;N;n~10,.02;N~.01~.02~0~5~"
^DIPT(1100,"H")="CPT MODIFIERS BY RANGE LIST"
^DIPT(1101,0)="ICPT PRINT^2970403.1026^@^81^^@^2970415"
^DIPT(1101,"F",2)=".01;L10;S;C1~3;L30;C12~5~2;C5;""""~50,.01;""""~"
^DIPT(1101,"H")="CPT LIST"
^DIPT(1102,0)="SPNLPT1^3000301.1552^^154^^^3000609"
^DIPT(1102,"F",1)=".01;C1;L23~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~-2,.09;C25;L9;""SSN""~"
^DIPT(1102,"F",2)="-2,.03;C39;L11;""DOB""~.02;C53;L12;""REGISTR DATE""~.03;C67;L13;""STATUS""~999.07;""LAST ANN EVAL RECD""~1.1;L3;""SERVICE CONNECTED""~"
^DIPT(1102,"F",3)="S DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=$P(X,""."",1) S Y=X D DT K DIP;L11;""LAST UPDATED"";d;Z;""DATE(DATE OF LAST UPDATE)""~"
^DIPT(1102,"H")="SCD Registrant General Report"
^DIPT(1103,0)="SPNLPT2^3000421.15^^154^^^3000530"
^DIPT(1103,"F",1)=".01;L20~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~-2,.09;L9;""SSN""~-2,.03;L11;""DOB""~"
^DIPT(1103,"F",2)="2.1;L5~6.09~2.3;L20;""INFO SOURCE FOR SCD""~4,.01;L18~4,.02~4,999.01;""TRAUMA""~"
^DIPT(1103,"H")="SCD Registrant Injury Report"
^DIPT(1104,0)="PRPF RANGE OF CARDS^2900302.1423^^470^^^2960226^"
^DIPT(1104,"F",2)="S DFN=D0 D EN2^PRPFCD;Z;""S DFN=D0 D EN2^PRPFCD""~"
^DIPT(1104,"H")="@"
^DIPT(1104,"SUB")="1"
^DIPT(1105,0)="PRPF CURRENT BAL^2910911.1215^^470^^^^"
^DIPT(1105,"DCL","470^14")="&"
^DIPT(1105,"F",2)=".01~50~14~2~52~"
^DIPT(1105,"H")="CURRENT PATIENT BALANCES AND TOTAL IN ACCOUNTS"
^DIPT(1106,0)="PRPF DAYS BETWEEN DATES^2970318.1534^^470.1^^^2970318"
^DIPT(1106,"F",2)=".01~1~3~4~5~5.5~"
^DIPT(1106,"H")="PATIENT FUNDS MASTER TRANSACTION LIST OF DATE VARIANCES"
^DIPT(1107,0)="PRPF NEGATIVE BALANCES^3020510.1719^@^470^^@^3020803^"
^DIPT(1107,"F",1)="73;C1;L12;""STATION""~.01;L18~50;L9~14;R9~21;R9~22;R9~"
^DIPT(1107,"H")="PATIENT FUNDS NEGATIVE BALANCE LIST"
^DIPT(1108,0)="PRCH IMPAC^2980817.1537^@^440.5^^@^2981028"
^DIPT(1108,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,5)):^(5),1:"""")"
^DIPT(1108,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,5)):^(5),1:"""")"
^DIPT(1108,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'$D(^VA(200,+D0,0)) D0=-1 S DIP(101)=$S($D(^VA(200,D0,.13)):^(.13),1:"""")"
^DIPT(1108,"F",1)="7~X DXS(1,9.2) S X=$S('$D(^DIC(49,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;C22;""SERVICE/SECTION"";Z;""CARD HOLDER:29""~"
^DIPT(1108,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C50;""MAIL CODE"";Z;""CARD HOLDER:28""~"
^DIPT(1108,"F",3)="X DXS(3,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C61;""PHONE"";Z;""CARD HOLDER:.132""~14;C2;""INACTIVE""~4;C35;""SINGLE PURCHASE LIMIT""~"
^DIPT(1108,"F",4)="5;C50;""MONTHLY PURCHASE LIMIT""~1;L25;C2~2;C30;L13~3;L20;C50~"""";S~"
^DIPT(1108,"H")="IMPAC ACCOUNT INFORMATION"
^DIPT(1109,0)="ENCMR HD^2970416.1433^^6914^^^2970701"
^DIPT(1109,"F",1)="""EQUIPMENT INVENTORY LISTING (EIL)"";C1;X~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C50;X;L18;Z;""NOW""~"
^DIPT(1109,"F",2)="""PAGE "";C72;X~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""FOR EIL: "";C2;X~"
^DIPT(1109,"F",3)="S X=""EN(""""CMR"""",""""HD"""")"" Q:X[U!(X[""$C(94)"")!X S X=$S($D(@X):@X,1:"""") W X K DIP;X;Z;""VAR(""EN(""""CMR"""",""""HD"""")"")""~""ENTRY #"";S1;C3;X~""STN"";C15;X~"
^DIPT(1109,"F",4)="""FUND"";C22;X~""SGL"";C30;X~""LEASE COST"";C36;X~""ASSET VALUE"";C48;X~""LAST INVENTORIED"";C61;X~""----------"";C3;X~""-----"";C15;X~""------"";C22;X~""----"";C30;X~"
^DIPT(1109,"F",5)="""----------"";C36;X~""-----------"";C48;X~""----------------"";C61;X~"""";S1;X~"
^DIPT(1109,"H")="@"
^DIPT(1109,"SUB")="1"
^DIPT(1110,0)="ENEXP HD^2991012.1127^^6914^^^2991012"
^DIPT(1110,"F",1)="""NON-EIL INVENTORY"";C1;X~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C50;X;L18;Z;""NOW""~""PAGE "";C72;X~"
^DIPT(1110,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""FOR EIL: "";C2;X~"
^DIPT(1110,"F",3)="S X=""EN(""""CMR"""",""""HD"""")"" Q:X Q:$NA(@X)[U S X=$G(@X) W X K DIP;X;Z;""VAR(""EN(""""CMR"""",""""HD"""")"")""~""ENTRY #"";S1;C3;X~""STN"";C15;X~""FUND"";C22;X~""SGL"";C30;X~"
^DIPT(1110,"F",4)="""LEASE COST"";C36;X~""ASSET VALUE"";C48;X~""LAST INVENTORIED"";C61;X~""----------"";C3;X~""-----"";C15;X~""------"";C22;X~""----"";C30;X~""----------"";C36;X~"
^DIPT(1110,"F",5)="""-----------"";C48;X~""----------------"";C61;X~"""";S1;X~"
^DIPT(1110,"H")="@"
^DIPT(1110,"SUB")="1"
^DIPT(1111,0)="ENEXP^2970416.1444^^6914^^^2970603"
^DIPT(1111,"DCL","6914^.01")="!"
^DIPT(1111,"DCL","6914^12")="&"
^DIPT(1111,"DCL","6914^12.5")="&"
^DIPT(1111,"F",1)="D CMRNOM^ENEQRPI;L0;X;Z;""D CMRNOM^ENEQRPI""~.01;S1;C3;L10;X;~60;C15;X~62;C22;X~38;C30;X~12.5;C36;X;~12;C48;X;~23;C61;X~""MFGR NAME: "";C5;X~3;L60;X~"
^DIPT(1111,"F",2)="""MANF: "";C5;X~1;X~""MODEL: "";C5;X~4;X~""SERIAL: "";C37;X~5;X~""VA PM #: "";C5;X~25;X~""LOCAL ID: "";C37;X~26;X~""USE STATUS: "";C5;X~20;X~""USING SVC: "";C37;X~"
^DIPT(1111,"F",3)="21;X~""LOCATION: "";C5;X~24;X~""PREVIOUS: "";C37;X~24.5;X~""CONDITION: "";C5;X~53;X~""ACQ METH: "";C37;X~20.1;X~""ACQ DATE: "";C5;X~13;X~""LE: "";C28;X~15;X~"
^DIPT(1111,"F",4)="""REPL DATE: "";C37;X~16;X~""SPEX: "";C5~70,.01;L65~"
^DIPT(1111,"H")="NONEXPENDABLE EXPENSED INVENTORY LISTING"
^DIPT(1112,0)="ENCMRC^2970416.144^^6914^^^2970506"
^DIPT(1112,"F",1)="D CMRNOM^ENEQRPI;L0;X;Z;""D CMRNOM^ENEQRPI""~.01;S1;C3;L10;X~60;C15;X~62;C22;X~38;C30;X~12.5;C36;X~12;C48;X~23;C61;X~""MFGR NAME: "";S1;C5;X~3;L60;X~"
^DIPT(1112,"F",2)="""MANF: "";C5;X~1;X~""MODEL: "";C5;X~4;X~""SERIAL: "";C37;X~5;X~""VA PM #: "";C5;X~25;X~""LOCAL ID: "";C37;X~26;X~""USE STATUS: "";C5;X~20;X~""USING SVC: "";C37;X~"
^DIPT(1112,"F",3)="21;X~""LOCATION: "";C5;X~24;X~""PREVIOUS: "";C37;X~24.5;X~""CONDITION: "";C5;X~53;X~""ACQ METH: "";C37;X~20.1;X~""ACQ DATE: "";C5;X~13;X~""LE: "";C28;X~15;X~"
^DIPT(1112,"F",4)="""REPL DATE: "";C37;X~16;X~""COMMENTS: "";C5~40,.01;L60~""SPEX: "";C5~70,.01;L65~"
^DIPT(1112,"H")="EQUIPMENT INVENTORY LISTING"
^DIPT(1113,0)="ENEXPC^2970416.1446^^6914^^^2970507"
^DIPT(1113,"DCL","6914^.01")="!"
^DIPT(1113,"DCL","6914^12")="&"
^DIPT(1113,"DCL","6914^12.5")="&"
^DIPT(1113,"F",1)="D CMRNOM^ENEQRPI;L0;X;Z;""D CMRNOM^ENEQRPI""~.01;S1;C3;L10;X;~60;C15;X~62;C22;X~38;C30;X~12.5;C36;X;~12;C48;X;~23;C61;X~""MFGR NAME: "";S1;C5;X~3;L60;X~"
^DIPT(1113,"F",2)="""MANF: "";C5;X~1;X~""MODEL: "";C5;X~4;X~""SERIAL: "";C37;X~5;X~""VA PM #: "";C5;X~25;X~""LOCAL ID: "";C37;X~26;X~""USE STATUS: "";C5;X~20;X~""USING SVC: "";C37;X~"
^DIPT(1113,"F",3)="21;X~""LOCATION: "";C5;X~24;X~""PREVIOUS: "";C37;X~24.5;X~""CONDITION: "";C5;X~53;X~""ACQ METH: "";C37;X~20.1;X~""ACQ DATE: "";C5;X~13;X~""LE: "";C28;X~15;X~"
^DIPT(1113,"F",4)="""REPL DATE: "";C37;X~16;X~""COMMENTS: "";C5~40,.01;L60~""SPEX: "";C5~70,.01;L65~"
^DIPT(1113,"H")="NONEXPENDABLE EXPENSED INVENTORY LISTING"
^DIPT(1114,0)="TIU PRINT REPORT BUFFER^2951011.162^^8925.2^^^2951012"
^DIPT(1114,"F",2)="1,.01;C1;S2;X~"
^DIPT(1114,"H")="@"
^DIPT(1114,"SUB")="1"
^DIPT(1115,0)="TIU RELEASED/UNVERIFIED PRINT^3000511.1705^^8925^^^3010611"
^DIPT(1115,"DCL","8925^.1")="&"
^DIPT(1115,"DXS",1,9.2)="S DIP(2)=$S($D(^TIU(8925,D0,12)):^(12),1:"""") S X=""LAST,FI MI"",DIP(1)=X S X=$S('$D(^VA(200,+$P(DIP(2),U,2),0)):"""",1:$P(^(0),U,1))"
^DIPT(1115,"DXS",2,"P")="priority"
^DIPT(1115,"DXS",2,"R")="routine"
^DIPT(1115,"F",1)=".02~-9000001,^AUPNPAT(^^S I(0,0)=D0 S DIP(1)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1115,"F",2)="-9000001,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-9000001,-2,.09;""SSN""~"
^DIPT(1115,"F",3)="S DIP(1)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""ADM DATE"";Z;""NUMDATE(EPISODE BEGIN DATE/TIME)""~"
^DIPT(1115,"F",4)="S DIP(1)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DIS DATE"";Z;""NUMDATE(EPISODE END DATE/TIME)""~"
^DIPT(1115,"F",5)="X DXS(1,9.2) S X1=DIP(1) S X=$$NAME^TIULS(X,X1) W X K DIP;L15;""DICTATED BY"";Z;""TIU NAME FORMAT(""LAST,FI MI"",AUTHOR)""~.09~.1~.01;L8;""""~"
^DIPT(1115,"H")="TEST"
^DIPT(1115,"IOM")="132"
^DIPT(1115,"LAST")=""
^DIPT(1115,"ROU")="^TIUPREL"
^DIPT(1115,"ROUOLD")="TIUPREL"
^DIPT(1115,"STATS","S",1)="0"
^DIPT(1115,"T",93)="8^1^0^F^"
^DIPT(1116,0)="TIU PRINT AUTHOR STATS^3030418.1131^@^8925^^@^3030624"
^DIPT(1116,"DCL","8925^.1")="+"
^DIPT(1116,"DCL","8925^0")="+"
^DIPT(1116,"DXS",1,9.2)="S DIP(2)=$S($D(^TIU(8925,D0,12)):^(12),1:"""") S X=""LAST,FI MI"",DIP(1)=$G(X) S X=$P($G(^VA(200,+$P(DIP(2),U,2),0)),U)"
^DIPT(1116,"DXS",2,9)="X DXS(2,9.2) S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(DIP(101),U,1),0)),U),X1=DIP(1) X ""S X=$$NAME^TIULS(X,X1)"" S X=X S D0=I(0,0)"
^DIPT(1116,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(2)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=""LAST,FI MI"",DIP(1)=$G(X),DIP(3)=$G(X),D0=$P(DIP(2),U,2) S:'D0!'$D(^AUPNPAT(+D0,0)) D0=-1"
^DIPT(1116,"DXS",3,9.2)="S DIP(3)=$S($D(^TIU(8925,D0,0)):^(0),1:""""),DIP(1)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=$P(DIP(3),U,8)"
^DIPT(1116,"DXS",4,9.2)="S DIP(1)=$S($D(^TIU(8925,D0,12)):^(12),1:""""),DIP(3)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=$P(DIP(3),U,7)"
^DIPT(1116,"DXS",5,9.2)="S DIP(3)=$S($D(^TIU(8925,D0,12)):^(12),1:""""),DIP(1)=$S($D(^TIU(8925,D0,15)):^(15),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=$P(DIP(3),U,1)"
^DIPT(1116,"DXS",6,9)="S DIP(1)=$S($D(^TIU(8925,D0,15)):^(15),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=$P(DIP(1),U,1),X1=DIP(2) D ^XUWORKDY"
^DIPT(1116,"F",1)="X DXS(1,9.2) S X1=DIP(1) X ""S X=$$NAME^TIULS(X,X1)"" W X K DIP;N;L15;""Author"";Z;""TIU NAME FORMAT(""LAST,FI MI"",AUTHOR)""~.1;C17;R8;""Line Count""~"
^DIPT(1116,"F",2)="S DIP(1)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;L11;C28;""Ref Date"";d;Z;""DATE(REFERENCE DATE)""~"
^DIPT(1116,"F",3)="X DXS(2,9) W X K DIP;L15;C42;""Patient"";Z;""TIU NAME FORMAT(""LAST,FI MI"",PATIENT)""~"
^DIPT(1116,"F",4)="X DXS(3,9.2) S X1=DIP(2) D ^XUWORKDY;C59;R3;""Disch-Dict"";;Z;""XUWORKDAY(DICTATION DATE,EPISODE END DATE/TIME)"";+~"
^DIPT(1116,"F",5)="X DXS(4,9.2) S X1=DIP(2) D ^XUWORKDY;C75;R3;""Dict-Transcr"";;Z;""XUWORKDAY(ENTRY DATE,DICTATION DATE)"";+~"
^DIPT(1116,"F",6)="X DXS(5,9.2) S X1=DIP(2) D ^XUWORKDY;C90;R3;""Transcr-Sign"";;Z;""XUWORKDAY(SIGNATURE DATE,ENTRY DATE)"";+~"
^DIPT(1116,"F",7)="X DXS(6,9);C105;R3;""Sign-Cosign"";;Z;""XUWORKDAY(COSIGNATURE DATE,SIGNATURE DATE)"";+~.01;C120;L8;X~"
^DIPT(1116,"H")="[TIU PRINT AUTHOR STATS HEADER]"
^DIPT(1116,"IOM")="132"
^DIPT(1116,"LAST")=""
^DIPT(1116,"ROU")="^TIUSTA"
^DIPT(1116,"ROUOLD")="TIUSTA"
^DIPT(1116,"STATS","DITTO",1)=""
^DIPT(1116,"STATS","N",2)="0"
^DIPT(1116,"STATS","N",3)="0"
^DIPT(1116,"STATS","N",4)="0"
^DIPT(1116,"STATS","N",5)="0"
^DIPT(1116,"STATS","N",6)="0"
^DIPT(1116,"STATS","S",2)="0"
^DIPT(1116,"STATS","S",3)="0"
^DIPT(1116,"STATS","S",4)="0"
^DIPT(1116,"STATS","S",5)="0"
^DIPT(1116,"STATS","S",6)="0"
^DIPT(1116,"T",16)="8^2^1^F^"
^DIPT(1116,"T",58)="3^3^1^C^"
^DIPT(1116,"T",74)="3^4^1^C^"
^DIPT(1116,"T",89)="3^5^1^C^"
^DIPT(1116,"T",104)="3^6^1^C^"
^DIPT(1117,0)="TIU PRINT TRANS STATS^3030418.1133^@^8925^^@^3030919"
^DIPT(1117,"DCL","8925^.1")="+"
^DIPT(1117,"DCL","8925^0")="+"
^DIPT(1117,"DXS",1,9)="X DXS(1,9.2) S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(DIP(101),U,1),0)),U),X1=DIP(1) X ""S X=$$NAME^TIULS(X,X1)"" S X=X S D0=I(0,0)"
^DIPT(1117,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(2)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=""LAST,FI MI"",DIP(1)=$G(X),DIP(3)=$G(X),D0=$P(DIP(2),U,2) S:'D0!'$D(^AUPNPAT(+D0,0)) D0=-1"
^DIPT(1117,"DXS",2,9.2)="S DIP(3)=$S($D(^TIU(8925,D0,0)):^(0),1:""""),DIP(1)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=$P(DIP(3),U,8)"
^DIPT(1117,"DXS",3,9.2)="S DIP(1)=$S($D(^TIU(8925,D0,12)):^(12),1:""""),DIP(3)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=$P(DIP(3),U,7)"
^DIPT(1117,"DXS",4,9.2)="S DIP(3)=$S($D(^TIU(8925,D0,12)):^(12),1:""""),DIP(1)=$S($D(^TIU(8925,D0,15)):^(15),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=$P(DIP(3),U,1)"
^DIPT(1117,"DXS",5,9)="S DIP(1)=$S($D(^TIU(8925,D0,15)):^(15),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=$P(DIP(1),U,1),X1=DIP(2) D ^XUWORKDY"
^DIPT(1117,"F",1)="1302;N;L15;""Transciber""~.1;C17;R8;""Line Count""~"
^DIPT(1117,"F",2)="S DIP(1)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;L11;C28;""Ref Date"";d;Z;""DATE(REFERENCE DATE)""~"
^DIPT(1117,"F",3)="X DXS(1,9) W X K DIP;L15;C42;""Patient"";Z;""TIU NAME FORMAT(""LAST,FI MI"",PATIENT)""~"
^DIPT(1117,"F",4)="X DXS(2,9.2) S X1=DIP(2) D ^XUWORKDY;C59;R3;""Disch-Dict"";;Z;""XUWORKDAY(DICTATION DATE,EPISODE END DATE/TIME)"";+~"
^DIPT(1117,"F",5)="X DXS(3,9.2) S X1=DIP(2) D ^XUWORKDY;C75;R3;""Dict-Transcr"";;Z;""XUWORKDAY(ENTRY DATE,DICTATION DATE)"";+~"
^DIPT(1117,"F",6)="X DXS(4,9.2) S X1=DIP(2) D ^XUWORKDY;C90;R3;""Transcr-Sign"";;Z;""XUWORKDAY(SIGNATURE DATE,ENTRY DATE)"";+~"
^DIPT(1117,"F",7)="X DXS(5,9);C105;R3;""Sign-Cosign"";;Z;""XUWORKDAY(COSIGNATURE DATE,SIGNATURE DATE)"";+~.01;C120;L8;X~"
^DIPT(1117,"H")="[TIU PRINT TRANS STATS HEADER]"
^DIPT(1117,"IOM")="132"
^DIPT(1117,"LAST")=""
^DIPT(1117,"ROU")="^TIUSTT"
^DIPT(1117,"ROUOLD")="TIUSTT"
^DIPT(1117,"STATS","DITTO",1)=""
^DIPT(1117,"STATS","N",2)="0"
^DIPT(1117,"STATS","N",3)="0"
^DIPT(1117,"STATS","N",4)="0"
^DIPT(1117,"STATS","N",5)="0"
^DIPT(1117,"STATS","N",6)="0"
^DIPT(1117,"STATS","S",2)="0"
^DIPT(1117,"STATS","S",3)="0"
^DIPT(1117,"STATS","S",4)="0"
^DIPT(1117,"STATS","S",5)="0"
^DIPT(1117,"STATS","S",6)="0"
^DIPT(1117,"T",16)="8^2^1^F^"
^DIPT(1117,"T",58)="3^3^1^C^"
^DIPT(1117,"T",74)="3^4^1^C^"
^DIPT(1117,"T",89)="3^5^1^C^"
^DIPT(1117,"T",104)="3^6^1^C^"
^DIPT(1118,0)="TIU PRINT SERVICE STATS^3030418.1132^@^8925^^@^3040128"
^DIPT(1118,"DCL","8925^.1")="+"
^DIPT(1118,"DCL","8925^0")="+"
^DIPT(1118,"DXS",1,9)="X DXS(1,9.2) S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(DIP(101),U,1),0)),U),X1=DIP(1) X ""S X=$$NAME^TIULS(X,X1)"" S X=X S D0=I(0,0)"
^DIPT(1118,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(2)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=""LAST,FI MI"",DIP(1)=$G(X),DIP(3)=$G(X),D0=$P(DIP(2),U,2) S:'D0!'$D(^AUPNPAT(+D0,0)) D0=-1"
^DIPT(1118,"DXS",2,9.2)="S DIP(3)=$S($D(^TIU(8925,D0,0)):^(0),1:""""),DIP(1)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=$P(DIP(3),U,8)"
^DIPT(1118,"DXS",3,9.2)="S DIP(1)=$S($D(^TIU(8925,D0,12)):^(12),1:""""),DIP(3)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=$P(DIP(3),U,7)"
^DIPT(1118,"DXS",4,9.2)="S DIP(3)=$S($D(^TIU(8925,D0,12)):^(12),1:""""),DIP(1)=$S($D(^TIU(8925,D0,15)):^(15),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=$P(DIP(3),U,1)"
^DIPT(1118,"DXS",5,9)="S DIP(1)=$S($D(^TIU(8925,D0,15)):^(15),1:"""") S X=$P(DIP(1),U,7),DIP(2)=$G(X) S X=$P(DIP(1),U,1),X1=DIP(2) D ^XUWORKDY"
^DIPT(1118,"F",1)="1404;N;L15;""Service""~.1;C17;R8;""Line Count""~"
^DIPT(1118,"F",2)="S DIP(1)=$S($D(^TIU(8925,D0,13)):^(13),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;L11;C28;""Ref Date"";d;Z;""DATE(REFERENCE DATE)""~"
^DIPT(1118,"F",3)="X DXS(1,9) W X K DIP;L15;C42;""Patient"";Z;""TIU NAME FORMAT(""LAST,FI MI"",PATIENT)""~"
^DIPT(1118,"F",4)="X DXS(2,9.2) S X1=DIP(2) D ^XUWORKDY;C59;R3;""Disch-Dict"";;Z;""XUWORKDAY(DICTATION DATE,EPISODE END DATE/TIME)"";+~"
^DIPT(1118,"F",5)="X DXS(3,9.2) S X1=DIP(2) D ^XUWORKDY;C75;R3;""Dict-Transcr"";;Z;""XUWORKDAY(ENTRY DATE,DICTATION DATE)"";+~"
^DIPT(1118,"F",6)="X DXS(4,9.2) S X1=DIP(2) D ^XUWORKDY;C90;R3;""Transcr-Sign"";;Z;""XUWORKDAY(SIGNATURE DATE,ENTRY DATE)"";+~"
^DIPT(1118,"F",7)="X DXS(5,9);C105;R3;""Sign-Cosign"";;Z;""XUWORKDAY(COSIGNATURE DATE,SIGNATURE DATE)"";+~.01;C120;L8;X~"
^DIPT(1118,"H")="[TIU PRINT SERVICE STATS HEADER]"
^DIPT(1118,"IOM")="132"
^DIPT(1118,"LAST")=""
^DIPT(1118,"ROU")="^TIUSTS"
^DIPT(1118,"ROUOLD")="TIUSTS"
^DIPT(1118,"STATS","DITTO",1)=""
^DIPT(1118,"STATS","N",2)="0"
^DIPT(1118,"STATS","N",3)="0"
^DIPT(1118,"STATS","N",4)="0"
^DIPT(1118,"STATS","N",5)="0"
^DIPT(1118,"STATS","N",6)="0"
^DIPT(1118,"STATS","S",2)="0"
^DIPT(1118,"STATS","S",3)="0"
^DIPT(1118,"STATS","S",4)="0"
^DIPT(1118,"STATS","S",5)="0"
^DIPT(1118,"STATS","S",6)="0"
^DIPT(1118,"T",16)="8^2^1^F^"
^DIPT(1118,"T",58)="3^3^1^C^"
^DIPT(1118,"T",74)="3^4^1^C^"
^DIPT(1118,"T",89)="3^5^1^C^"
^DIPT(1118,"T",104)="3^6^1^C^"
^DIPT(1119,0)="QAC DAILY^2970924.1301^@^745.1^^@^2970924"
^DIPT(1119,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^QA(745.1,D0,3,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^QA(745.2,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(1119,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^QA(745.2,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,7) S:'$D(^QA(745.6,+D0,0)) D0=-1 S DIP(201)=$S($D(^QA(745.6,D0,0)):^(0),1:"""")"
^DIPT(1119,"DXS",2,9)="X DXS(2,9.2) S D0=$P(DIP(1),U,1) S:'$D(^QA(745.55,+D0,0)) D0=-1 S DIP(101)=$S($D(^QA(745.55,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(1119,"DXS",2,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^QA(745.1,D0,3,D1,3,D2,0)):^(0),1:"""")"
^DIPT(1119,"F",1)=".01;C5;S~2;C25~3;C60~21,.01;C1;L60~21,I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W ""(*"";X;Z;""I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W ""(*""""~"
^DIPT(1119,"F",2)="21,X DXS(1,9.3) S X=$P(DIP(201),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;"".01:7:1""~"
^DIPT(1119,"F",3)="21,I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W "")"";X;Z;""I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W "")""""~"
^DIPT(1119,"F",4)="21,3,X DXS(2,9) W X K DIP;C5;Z;"".01:NAME""~"
^DIPT(1119,"F",5)="21,1,-49,^DIC(49,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^QA(745.1,D0,3,D1,1,D2,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1119,"F",6)="21,1,-49,.01;C5~"
^DIPT(1119,"H")="CONSUMER CONTACT LIST"
^DIPT(1120,0)="QAC DAILY HEADER^2990201.1605^@^745.1^^@^2990408"
^DIPT(1120,"F",1)="""Daily Listing of Patient Contacts""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1120,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1120,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Contact #"";C5~""Patient Name"";C25~""SSN"";C60~""Issue Code"";C1~""(*Customer Service Standard)"";C50~"
^DIPT(1120,"F",4)="""Serv/ Sect or Discipline"";C5~"
^DIPT(1120,"F",5)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1120,"H")="CONSUMER CONTACT LIST"
^DIPT(1121,0)="QAC PAT BRIEF^2970924.0813^@^745.1^^@^2970924"
^DIPT(1121,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^QA(745.1,D0,3,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^QA(745.2,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(1121,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^QA(745.2,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,7) S:'$D(^QA(745.6,+D0,0)) D0=-1 S DIP(201)=$S($D(^QA(745.6,D0,0)):^(0),1:"""")"
^DIPT(1121,"DXS",2,9)="X DXS(2,9.2) S D0=$P(DIP(1),U,1) S:'$D(^QA(745.5,+D0,0)) D0=-1 S DIP(101)=$S($D(^QA(745.5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(1121,"DXS",2,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^QA(745.1,D0,3,D1,2,D2,0)):^(0),1:"""")"
^DIPT(1121,"DXS",3,9)="X DXS(3,9.2) S D0=$P(DIP(1),U,1) S:'$D(^QA(745.55,+D0,0)) D0=-1 S DIP(101)=$S($D(^QA(745.55,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DIPT(1121,"DXS",3,9.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^QA(745.1,D0,3,D1,3,D2,0)):^(0),1:"""")"
^DIPT(1121,"F",1)="2;S2~3~.01;""CONTACT #""~22,.01;C1~21,.01;C1;L60~"
^DIPT(1121,"F",2)="21,I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W ""(*"";X;Z;""I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W ""(*""""~"
^DIPT(1121,"F",3)="21,X DXS(1,9.3) S X=$P(DIP(201),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;"".01:7:1""~"
^DIPT(1121,"F",4)="21,I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W "")"";X;Z;""I $P($G(^QA(745.2,^QA(745.1,D0,3,D1,0),0)),U,7) W "")""""~"
^DIPT(1121,"F",5)="21,1,-49,^DIC(49,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^QA(745.1,D0,3,D1,1,D2,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1121,"F",6)="21,1,-49,.01;C8;""SERVICE OR DISCIPLINE""~21,2,X DXS(2,9) W X K DIP;C8;"""";Z;"".01:NAME""~21,3,X DXS(3,9) W X K DIP;"""";C8;Z;"".01:NAME""~37;C40~"
^DIPT(1121,"H")="CONSUMER CONTACT LIST"
^DIPT(1122,0)="QAC DISC RPT^2970815.1519^@^745.1^^@^2970924"
^DIPT(1122,"DCL","745.1^.01")="!"
^DIPT(1122,"F",2)="1;S;""Contact Date""~2;C15;""Patient""~3;C45;""SSN""~.01;C65;""Contact #""~22,.01;""Issue Text""~"
^DIPT(1122,"H")="Discipline Contact Totals"
^DIPT(1123,0)="SCDX XMIT HIST FOR PATIENT^2980213.0956^@^409.77^^@^2980218"
^DIPT(1123,"DCL","409.77^-1")="!"
^DIPT(1123,"DCL","409.77^22")="!"
^DIPT(1123,"F",1)=""
^DIPT(1123,"F",2)="S DIP(1)=$S($D(^SD(409.77,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) W X K DIP;""ENC DATE"";L10;N;Z;""NUMDATE4(#.02)""~"
^DIPT(1123,"F",3)="W:(+$$HIST4DEL^SCDXFU11(D0)) ""*"";X;L1;"""";Z;""W:(+$$HIST4DEL^SCDXFU11(D0)) ""*""""~.06;""VISIT ID"";N~.04;""HOSPITAL LOCATION"";L25;N~"
^DIPT(1123,"F",4)="S DIP(1)=$S($D(^SD(409.77,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3));""XMITED"";L10;;;;Z;""NUMDATE4(#11)"";!~"
^DIPT(1123,"F",5)="22;""ACK CODE"";~W:(Y="""") ""NOT RCVD"";X;"""";Z;""W:(Y="""") ""NOT RCVD""""~"
^DIPT(1123,"F",6)="W $E($P($$LATE^SCDXFU11(D0),""^"",2),1,3);""LATE"";L3;Z;""W $E($P($$LATE^SCDXFU11(D0),""^"",2),1,3)""~"
^DIPT(1123,"H")="ACRP TRANSMISSION HISTORY STATISTICS"
^DIPT(1124,0)="SCDX XMIT HIST FULL FOOTER^2970730.1553^@^409.77^^@^2971014"
^DIPT(1124,"F",1)="S X=""_"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;"""";Z;""DUP(""_"",80)""~"
^DIPT(1124,"F",2)="S X=""DIVNAME"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;C1;L28;"""";Z;""PARAM(""DIVNAME"")""~"
^DIPT(1124,"F",3)="S X="" ("",DIP(1)=X S X=""DIVNUM"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(1),X=X S X=X_Y_"")"" W X K DIP;X;"""";Z;"""" (""_PARAM(""DIVNUM"")_"")""""~"
^DIPT(1124,"F",4)="S X=""CLINIC"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;C52;R28;"""";Z;""PARAM(""CLINIC"")""~"
^DIPT(1124,"H")="ACRP TRANSMISSION HISTORY LIST"
^DIPT(1125,0)="SCDX XMIT HIST FULL HEADER^2970730.1349^@^409.77^^@^2971014"
^DIPT(1125,"F",1)="""ACRP TRANSMISSION HISTORY"";C1;""""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C47;L18;"""";Z;""NOW""~"
^DIPT(1125,"F",2)="W ""PAGE"";C69;"""";Z;""W ""PAGE""""~S X=$S($D(DC)#2:DC,1:"""") W X K DIP;C74;L5;"""";Z;""PAGE""~""PATIENT"";C1;""""~""ENC DATE"";C33;""""~""VISIT ID"";C43;""""~""XMITED"";C57;""""~"
^DIPT(1125,"F",3)="""ACK CODE"";C67;""""~""LATE"";C77;""""~"
^DIPT(1125,"F",4)="S X=""-"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;"""";Z;""DUP(""-"",80)""~"
^DIPT(1125,"H")="ACRP TRANSMISSION HISTORY LIST"
^DIPT(1126,0)="SCDX XMIT HIST FULL PRINT^2970811.142^@^409.77^^@^2971014"
^DIPT(1126,"DXS",1,9)="N DFN,VA,VAERR S DFN=+$P(^SD(409.77,D0,0),""^"",3) D PID^VADPT W $S(VAERR:(""#""_DFN),1:VA(""BID""))"
^DIPT(1126,"DXS",2,9.2)="S DIP(1)=$S($D(^SD(409.77,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=""CLINIC"""
^DIPT(1126,"DXS",3,9.2)="S DIP(1)=$S($D(^SD(409.77,D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(DIP(1),U,5),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=""DIVNAME"""
^DIPT(1126,"DXS",4,9)="X DXS(4,9.2) S X=$P(DIP(101),U,2),DIP(102)=X S X=""DIVNUM"",X1=DIP(102) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" S X=X S D0=I(0,0)"
^DIPT(1126,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.77,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,5) S:'$D(^DG(40.8,+D0,0)) D0=-1 S DIP(101)=$S($D(^DG(40.8,D0,0)):^(0),1:"""")"
^DIPT(1126,"F",1)=".03;L23~W:(Y="""") ""BAD DFN"";X;"""";Z;""W:(Y="""") ""BAD DFN""""~"" ("";X;""""~"
^DIPT(1126,"F",2)="X DXS(1,9);X;"""";Z;""N DFN,VA,VAERR S DFN=+$P(^SD(409.77,D0,0),""^"",3) D PID^VADPT W $S(VAERR:(""#""_DFN),1:VA(""BID""))""~"")"";X;""""~"
^DIPT(1126,"F",3)="S DIP(1)=$S($D(^SD(409.77,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""ENC DATE"";C33;L8;Z;""NUMDATE(#.02)""~"
^DIPT(1126,"F",4)="W:(+$$HIST4DEL^SCDXFU11(D0)) ""*"";X;L1;"""";Z;""W:(+$$HIST4DEL^SCDXFU11(D0)) ""*""""~.06;""VISIT ID""~"
^DIPT(1126,"F",5)="S DIP(1)=$S($D(^SD(409.77,D0,1)):^(1),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;""XMITED"";L8;Z;""NUMDATE(#11)""~"
^DIPT(1126,"F",6)="22;""ACK CODE""~W:(Y="""") ""NOT RCVD"";X;"""";Z;""W:(Y="""") ""NOT RCVD""""~"
^DIPT(1126,"F",7)="W $E($P($$LATE^SCDXFU11(D0),""^"",2),1,3);""LATE"";L3;Z;""W $E($P($$LATE^SCDXFU11(D0),""^"",2),1,3)""~"
^DIPT(1126,"F",8)="X DXS(2,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;"""";Z;""SETPARAM(#.04,""CLINIC"")""~"
^DIPT(1126,"F",9)="X DXS(3,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;"""";Z;""SETPARAM(#.05,""DIVNAME"")""~"
^DIPT(1126,"F",10)="X DXS(4,9) W X K DIP;X;"""";Z;""SETPARAM(#.05:#1,""DIVNUM"")""~"
^DIPT(1126,"H")="ACRP TRANSMISSION HISTORY LIST"
^DIPT(1127,0)="PRCH TOT AMT DAILY^2970908.092^@^442^^@^2970908"
^DIPT(1127,"DCL","442^.01")="!"
^DIPT(1127,"DCL","442^15")="&"
^DIPT(1127,"DCL","442^91")="&"
^DIPT(1127,"DXS",1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,13,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1"
^DIPT(1127,"DXS",2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRC(442,D0,13,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1"
^DIPT(1127,"F",1)=".1~.01;C16;""P.O. #""~19.2;C36~15;""LINE COUNT"";C57;~91;C63;;~.05,.01;""2237 #"";C3~"
^DIPT(1127,"F",2)=".05,X DXS(1,9.2) S DIP(101)=$S($D(^PRCS(410,D0,7)):^(7),1:"""") S X=$P(DIP(101),U,5) S D0=I(0,0) S D1=I(1,0) S Y=X D DT K DIP;C26;""DATE CPO APPROVED"";L18;Z;"".01:44""~"
^DIPT(1127,"F",3)=".05,X DXS(2,9.2) S DIP(101)=$S($D(^PRCS(410,D0,1)):^(1),1:"""") S X=$P(DIP(101),U,4) S D0=I(0,0) S D1=I(1,0) S Y=X D DT K DIP;""DATE REQUIRED"";C46;L18;Z;"".01:7""~"
^DIPT(1127,"H")="PURCHASING AGENT STATS BY DATE "
^DIPT(1128,0)="PRCH DEL HEADER^2970527.0826^@^442^^@^2970908"
^DIPT(1128,"F",1)="""DELINQUENT PURCHASE ORDERS""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1128,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""PO NUMBER"";C1;S1~""SUPPLY STATUS"";C15~""COST"";C63~""DELIVERY"";C4~""PHONE"";C17~""OUTSTANDING"";C60~""DATE"";C4~"
^DIPT(1128,"F",3)="""NUMBER"";C17~""(QTY*UNIT COST FOR ITEMS NOT REC'D)"";C45~"
^DIPT(1128,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1128,"H")="PROCUREMENT & ACCOUNTING TRANSACTIONS LIST"
^DIPT(1129,0)="PRCH OUTSTAND HDR^2970829.1254^@^443^^@^2970908"
^DIPT(1129,"F",1)="""OUTSTANDING 2237 REPORT""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1129,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""2237 NUMBER"";C1;S1~""STATUS"";C21~""PRIORITY"";C54~""DATE CPO APPROVED"";C2~""DATE ASSIGNED TO PA"";C24~"
^DIPT(1129,"F",3)="""AMOUNT"";C68~"
^DIPT(1129,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1129,"H")="REQUEST WORKSHEET LIST"
^DIPT(1130,0)="PSANDC^2920326.1227^@^50.6^^@^2920326"
^DIPT(1130,"F",2)=".01~2,2,1,1,1,1,.01~"
^DIPT(1130,"H")="NATIONAL DRUG LIST"
^DIPT(1131,0)="RCDMC90A^2970910.1153^@^340^^@^2971210"
^DIPT(1131,"F",1)=".01;C1;L30;S2;X~110;C35;X~S RCAMTS=$G(^RCD(340,D0,3));Z;""S RCAMTS=$G(^RCD(340,D0,3))""~3.02;C50;X~""$"";C5;X~"
^DIPT(1131,"F",2)="S DIP(1)=$S($D(^RCD(340,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=10,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C6;X;Z;""$J(#3.06,10,2)""~"
^DIPT(1131,"F",3)="S PRINTOT=PRINTOT+$P(RCAMTS,U,6);Z;""S PRINTOT=PRINTOT+$P(RCAMTS,U,6)""~""$"";C25;X~"
^DIPT(1131,"F",4)="S DIP(1)=$S($D(^RCD(340,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=10,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C26;X;Z;""$J(#3.07,10,2)""~"
^DIPT(1131,"F",5)="S INTTOT=INTTOT+$P(RCAMTS,U,7);Z;""S INTTOT=INTTOT+$P(RCAMTS,U,7)""~""$"";C45;X~"
^DIPT(1131,"F",6)="S DIP(1)=$S($D(^RCD(340,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,8),DIP(2)=X S X=10,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C46;X;Z;""$J(#3.08,10,2)""~"
^DIPT(1131,"F",7)="S ADMTOT=ADMTOT+$P(RCAMTS,U,8);Z;""S ADMTOT=ADMTOT+$P(RCAMTS,U,8)""~""$"";C65;X~"
^DIPT(1131,"F",8)="S DIP(1)=$S($D(^RCD(340,D0,3)):^(3),1:"""") S X=$P(DIP(1),U,5),DIP(2)=X S X=10,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C66;X;Z;""$J(#3.05,10,2)""~"
^DIPT(1131,"H")="[RCDMC90AH]"
^DIPT(1132,0)="RCDMC90AH^2961119.0743^@^340^^@^2971210"
^DIPT(1132,"F",1)="""ACCOUNTS AT DMC"";C33;X~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,""."",1) S Y=X D DT K DIP;C60;X;L18;Z;""DATE(NOW)""~"
^DIPT(1132,"F",2)="S X=""Page "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C72;X;Z;""""Page ""_PAGE""~""DEBTOR"";C1;X;S2~""SSN"";C36;X~"
^DIPT(1132,"F",3)="""DATE SENT TO DMC"";C50;X~""CURRENT PRINCIPAL"";C5;X~""CURRENT INTEREST"";C25;X~""CURRENT ADMIN"";C45;X~""CURRENT TOTAL"";C65;X~"
^DIPT(1132,"F",4)="S X=""_"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",80)""~"""";S2~"
^DIPT(1132,"H")="@"
^DIPT(1132,"SUB")="1"
^DIPT(1133,0)="RCDMC90B^2971110.1526^@^340^^@^2971110"
^DIPT(1133,"DCL","340^3.01")="!"
^DIPT(1133,"DCL","340^3.05")="&"
^DIPT(1133,"DCL","340^3.06")="&"
^DIPT(1133,"DCL","340^3.07")="&"
^DIPT(1133,"DCL","340^3.08")="&"
^DIPT(1133,"DNP")="1"
^DIPT(1133,"F",2)="3.01~3.05~3.06~3.07~3.08~"
^DIPT(1133,"H")="SUMMARY OF ACCOUNTS AT DMC"
^DIPT(1134,0)="PRCH DEL. REC1^2970911.1429^@^440.6^^@^2971119"
^DIPT(1134,"DXS",1,9)="S DIP(3)=$S($D(^PRCH(440.6,D0,0)):^(0),1:""""),DIP(1)=$S($D(^(1)):^(1),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=$P(DIP(3),U,7),X1=DIP(2) D ^XUWORKDY"
^DIPT(1134,"F",1)="41;L12~"
^DIPT(1134,"F",2)="S DIP(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""TRANSACTION DATE"";Z;""NUMDATE(TRANSACTION DATE)""~"
^DIPT(1134,"F",3)="S DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""RECONCILE DATE"";Z;""NUMDATE(RECONCILE DATE)""~"
^DIPT(1134,"F",4)="16;L24~X DXS(1,9) W X K DIP;""PAYMENT DATE TO RECONCILIATION TIMESPAN"";Z;""XUWORKDAY(#46,#6)""~"""";S~"
^DIPT(1134,"H")="DELINQUENT RECONCILIATIONS EXCEPTION LISTING"
^DIPT(1136,0)="PRCH WORKLOAD^3001129.1351^@^442^^@^3010409"
^DIPT(1136,"DXS",1,9)="S DIP(3)=$S($D(^PRC(442,D0,1)):^(1),1:""""),DIP(1)=$S($D(^(12)):^(12),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=$P(DIP(3),U,15),X1=DIP(2) D ^XUWORKDY"
^DIPT(1136,"DXS",2,9)="S DIP(3)=$S($D(^PRC(442,D0,12)):^(12),1:""""),DIP(1)=$S($D(^(23)):^(23),1:"""") S X=$P(DIP(1),U,19),DIP(2)=X S X=$P(DIP(3),U,3),X1=DIP(2) D ^XUWORKDY"
^DIPT(1136,"F",1)=".01;L13;"" PURCHASE ORDER NUMBER""~"
^DIPT(1136,"F",2)="S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,15) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L10;"" PURCHASE ORDER DATE"";Z;""NUMDATE(P.O. DATE)""~"
^DIPT(1136,"F",3)="S DIP(1)=$S($D(^PRC(442,D0,12)):^(12),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE SIGNED"";L10;Z;""NUMDATE(VALIDATION DATE/TIME)""~"
^DIPT(1136,"F",4)="S DIP(1)=$S($D(^PRC(442,D0,23)):^(23),1:"""") S X=$P(DIP(1),U,19) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE RECONCILED"";L12;Z;""NUMDATE(DATE RECONCILED)""~"
^DIPT(1136,"F",5)="X DXS(1,9) W X K DIP;L10;""INCEPTION TO COMMITMENT (DAYS)"";Z;""XUWORKDAY(#17,#.1)""~"
^DIPT(1136,"F",6)="X DXS(2,9) W X K DIP;L10;""COMMITMENT TO RECONCILE (DAYS)"";Z;""XUWORKDAY(#58,#17)""~61;C1;""CARD HOLDER""~"" "";C1~"
^DIPT(1136,"H")="PURCHASE CARD TIMELY COMMITMENT REPORT"
^DIPT(1137,0)="PRCH FINAL CHARGE^2970610.1502^@^440.6^^@^2971020"
^DIPT(1137,"F",2)="41;C2;""P.O. NUMBER""~18;C17;""P.O. AMOUNT""~13;C37;""ORACLE CHARGE AMOUNT""~46;C57;""DATE RECONCILED~"
^DIPT(1137,"H")="FINAL CHARGE RECONCILED ORDERS - BUYER"
^DIPT(1138,0)="PRCH PC AUDIT^3010409.1118^@^440.6^^@^3010411"
^DIPT(1138,"DXS",1,9.2)="S DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$S('$D(^PRC(442,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))="""",DIP(2)=X S X=""PO MISSING"",DIP(3)=X S X=1,DIP(4)=X"
^DIPT(1138,"DXS",2,9)="X DXS(2,9.3) S X=$S('$D(^PRC(440,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X) S D0=I(0,0)"
^DIPT(1138,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$S('$D(^PRC(442,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))="""",DIP(2)=X S X=""PO MISSING"",DIP(3)=X S X=1"
^DIPT(1138,"DXS",2,9.3)="X DXS(2,9.2) S DIP(4)=X,DIP(5)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^PRC(442,+D0,0)) D0=-1 S DIP(101)=$S($D(^PRC(442,D0,1)):^(1),1:"""")"
^DIPT(1138,"F",1)=".01;S1~"
^DIPT(1138,"F",2)="X DXS(1,9.2) S X=$S('$D(^PRC(442,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)),X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;L13;""PO NUMBER"";Z;""$S(PURCHASE ORDER="""":""PO MISSING"",1:PURCHASE ORDER)""~"
^DIPT(1138,"F",3)="6;C40;""DATE""~15;C60~13;C2~21;C23;""FUND""~22;C40~23;L13;C52~24;C67~31;C1~16;C40~"
^DIPT(1138,"F",4)="X DXS(2,9) W X K DIP;C1;L25;""VENDOR NAME"";Z;""$S(PURCHASE ORDER="""":""PO MISSING"",1:PURCHASE ORDER:VENDOR)""~7;L15;C40~"
^DIPT(1138,"H")="AUSTIN AUDIT INFORMATION"
^DIPT(1139,0)="ECX LOG^3040427.1115^^727^^^3041027"
^DIPT(1139,"DCL","727^5")="&"
^DIPT(1139,"DXS",1,9.2)="N Y S Y(1)=$S($D(^ECX(727,D0,""1"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,1)"
^DIPT(1139,"DXS",1,9.3)="F D=0:0 S (D,D1)=$O(^ECX(727,D0,1,""B"",DICOB,D)) Q:D'>0 I $D(^ECX(727,D0,1,D,0))#2 S X=$P(^(0),U) X DXS(1,9.2) S:X'?."" "" DIP(1)=DIP(1)+1 Q:'$D(D) S D=D1"
^DIPT(1139,"DXS",1,9.4)="S I(1)=""""""1"""""",J(1)=727.0301 N DICOB S DICOB="""" F S DICOB=$O(^ECX(727,D0,1,""B"",DICOB)) Q:DICOB="""" X DXS(1,9.3) Q:'$D(D)"
^DIPT(1139,"DXS",1,9.5)="S I(1,0)=$G(D1) X DXS(1,9.4):D0>0 S X="""" S D1=I(1,0)"
^DIPT(1139,"F",1)="0;C1;R6~2;C10;L11~"
^DIPT(1139,"F",2)="S DIP(1)=$S($D(^ECX(727,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),DIP(2)=$G(X) S X=2,DIP(3)=$G(X) S X=7,X=$E(DIP(2),DIP(3),X)_""-"" W X K DIP;C22;R8;Z;""$E((#3),2,7)_""-""""~"
^DIPT(1139,"F",3)="S DIP(1)=$S($D(^ECX(727,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),DIP(2)=$G(X) S X=2,DIP(3)=$G(X) S X=7,X=$E(DIP(2),DIP(3),X) W X K DIP;C30;R5;Z;""$E((#4),2,7)""~"
^DIPT(1139,"F",4)="5;C43;R6~300;C55;L11~9;C71;L11~"
^DIPT(1139,"F",5)="S DIP(1)=$S($D(^ECX(727,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;C90;L9;Z;""NUMDATE(EXTRACT DATE)""~"
^DIPT(1139,"F",6)="S DIP(1)=$S($D(^ECX(727,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=$E(X,1,5)_0_0 S:'X X="""" S Y=X D DT K DIP;C105;d;L8;;Z;""MONTH(START DATE/TIME)""~"
^DIPT(1139,"F",7)="S DIP(1)="""" X DXS(1,9.5) S X=+DIP(1),DIP(2)=$G(X) S X=5,X=$J(DIP(2),X) W X K DIP;C120;Z;""$J(COUNT(MESSAGE NUMBER:MESSAGE NUMBER),5)""~"
^DIPT(1139,"H")="[ECX LOG HEADER]"
^DIPT(1140,0)="ECX CLINIC CODE^2950414.0658^^728.441^^^2970521^"
^DIPT(1140,"F",2)=".01~1~"
^DIPT(1140,"H")="NATIONAL CLINIC LIST"
^DIPT(1141,0)="IBD NO APPOINTMENT LIST^2970731.1436^@^357.96^^@^2970801"
^DIPT(1141,"DCL","357.96^.02")="!"
^DIPT(1141,"F",1)=".02;L25~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~-2,.363;""SSN"";L12~.1;L25~"
^DIPT(1141,"F",2)=".05;L20~.11;L18~"
^DIPT(1141,"H")="Patients w/ Data from Encounter Forms and No Appointments"
^DIPT(1142,0)="SCENI ERROR TABLE^2970609.1023^@^409.76^^@^2970918"
^DIPT(1142,"F",2)="1;C5;L8;T~.01;C15;T~11;C30;T~"
^DIPT(1142,"H")="TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE LIST"
^DIPT(1143,0)="SCENI PAT ALPHA PRINT^2981009.212^@^409.75^^@^2981023"
^DIPT(1143,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.04,0),U,5,99) S DIP(102)=X"
^DIPT(1143,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 S DIP(103)=$S($D(^SD(409.73,D0,0)):^(0),1:"""")"
^DIPT(1143,"DXS",2,9.3)="X DXS(2,9.2) S DIP(101)=X,DIP(102)=X S X=$S('$D(^SD(409.74,+$P(DIP(103),U,3),0)):"""",1:$P(^(0),U,1)),X=$L(X),DIP(104)=X S X=""(DEL)"",DIP(105)=X S X=1"
^DIPT(1143,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^SD(409.76,+D0,0)) D0=-1 S DIP(101)=$S($D(^SD(409.76,D0,0)):^(0),1:"""")"
^DIPT(1143,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'$D(^SD(409.76,+D0,0)) D0=-1 S DIP(102)=$C(59)_$S($D(^DD(409.76,.02,0)):$P(^(0),U,3),1:"""")"
^DIPT(1143,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.02,0),U,5,99) S DIP(101)=X"
^DIPT(1143,"DXS",6,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.03,0),U,5,99) S DIP(101)=X"
^DIPT(1143,"F",1)=""
^DIPT(1143,"F",2)="X DXS(1,9.2) S DIP(101)=X S X=DIP(102),DIP(103)=X S X=6,DIP(104)=X S X=9,X=$E(DIP(103),DIP(104),X) S D0=I(0,0) W X K DIP;""SSN"";N;!;C5;L4;Z;"".01:$E(#20.04,6,9)""~"
^DIPT(1143,"F",3)="X DXS(2,9.3) S DIP(106)=X S X="""",X=$S(DIP(104):DIP(105),DIP(106):X) S D0=I(0,0) W X K DIP;""Del. Enc."";L5;C12;Z;"".01:$S($L(#.03):""(DEL)"",1:"""")""~"
^DIPT(1143,"F",4)="X DXS(3,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;L6;""Error Code"";C20;Z;"".02:.01""~"
^DIPT(1143,"F",5)="X DXS(4,9.2) S DIP(101)=$S($D(^SD(409.76,D0,0)):^(0),1:"""") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,2)_"":"",2),$C(59),1) S D0=I(0,0) W X K DIP;""Source"";Z;"".02:.02""~"
^DIPT(1143,"F",6)="X DXS(5,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;""Encounter Date"";L18;Z;"".01:20.02""~"
^DIPT(1143,"F",7)="X DXS(6,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;L20;""Clinic"";Z;"".01:20.03""~"
^DIPT(1143,"H")="Incomplete Encounters Report Alphabetically by Name"
^DIPT(1144,0)="SCENI ERROR LIST^2981009.2151^@^409.75^^@^2981124"
^DIPT(1144,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.01,0),U,5,99) S DIP(101)=X"
^DIPT(1144,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.04,0),U,5,99) S DIP(102)=X"
^DIPT(1144,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 S DIP(103)=$S($D(^SD(409.73,D0,0)):^(0),1:"""")"
^DIPT(1144,"DXS",3,9.3)="X DXS(3,9.2) S DIP(101)=X,DIP(102)=X S X=$S('$D(^SD(409.74,+$P(DIP(103),U,3),0)):"""",1:$P(^(0),U,1)),X=$L(X),DIP(104)=X S X=""(DEL)"",DIP(105)=X S X=1"
^DIPT(1144,"DXS",4,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.02,0),U,5,99) S DIP(101)=X"
^DIPT(1144,"DXS",5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.03,0),U,5,99) S DIP(101)=X"
^DIPT(1144,"F",1)="X DXS(1,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C3;L21;""Patient"";Z;"".01:20.01""~"
^DIPT(1144,"F",2)="X DXS(2,9.2) S DIP(101)=X S X=DIP(102),DIP(103)=X S X=6,DIP(104)=X S X=9,X=$E(DIP(103),DIP(104),X) S D0=I(0,0) W X K DIP;""SSN"";C26;L4;Z;"".01:$E(#20.04,6,9)""~"
^DIPT(1144,"F",3)="X DXS(3,9.3) S DIP(106)=X S X="""",X=$S(DIP(104):DIP(105),DIP(106):X) S D0=I(0,0) W X K DIP;""Del. Enc."";L5;C32;Z;"".01:$S($L(#.03):""(DEL)"",1:"""")""~"
^DIPT(1144,"F",4)="X DXS(4,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C39;L18;""Date"";Z;"".01:20.02""~"
^DIPT(1144,"F",5)="X DXS(5,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;L20;""Clinic"";C60;Z;"".01:20.03""~"
^DIPT(1144,"H")="Incomplete Encounters by Error Code"
^DIPT(1145,0)="PRCH AO AUDIT^2971210.1539^@^440.6^^@^2971210"
^DIPT(1145,"DCL","440.6^13")="&"
^DIPT(1145,"F",1)=""
^DIPT(1145,"F",2)="S DIP(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),DIP(2)=X S X=13,DIP(3)=X S X=16,X=$E(DIP(2),DIP(3),X) W X K DIP;""CARD#"";L5;Z;""$E(CREDIT CARD NUMBER,13,16)""~"
^DIPT(1145,"F",3)="S DIP(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""PURCH DT"";L8;Z;""NUMDATE(PURCHASE DATE)""~"
^DIPT(1145,"F",4)=".01;""ORACLE ID #""~41;""IFCAP P/O #"";L12~31;MERCHANT;L15~13;""AMOUNT"";R8;D2~"
^DIPT(1145,"H")="IFCAP APPROVING OFFICIAL CHARGE AUDIT"
^DIPT(1146,0)="LA7S PRINT^3010502.1623^^60^^^3061020"
^DIPT(1146,"DXS",1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^LAB(62,+D0,0)) D0=-1 S DIP(101)=$S($D(^LAB(62,D0,0)):^(0),1:"""")"
^DIPT(1146,"DXS",2,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^LAB(60,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^LAB(61,+D0,0)) D0=-1 S DIP(101)=$S($D(^LAB(61,D0,0)):^(0),1:"""")"
^DIPT(1146,"DXS",3,9)="W:$P(^LAB(60,D0,1,D1,0),U,11)'="""" ""Therapeutic Low: "",$P(^LAB(60,D0,1,D1,0),U,11),"" """
^DIPT(1146,"DXS",4,9)="W:$P(^LAB(60,D0,1,D1,0),U,12)'="""" ""Therapeutic High: "",$P(^LAB(60,D0,1,D1,0),U,12),"" """
^DIPT(1146,"DXS",5,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^LAB(60,D0,64)):^(64),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^LAM(+D0,0)) D0=-1 S DIP(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=""NLT Result Code: """
^DIPT(1146,"DXS",6,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^LAB(60,D0,64)):^(64),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^LAM(+D0,0)) D0=-1 S DIP(101)=$S($D(^LAM(D0,0)):^(0),1:""""),DIP(102)=X"
^DIPT(1146,"DXS",7,9.2)="S I(100,0)=$G(D0),DIP(101)=$S($D(^LAB(60,D0,64)):^(64),1:""""),D0=$P(DIP(101),U,2) S:'D0!'$D(^LAM(+D0,0)) D0=-1 S DIP(201)=$S($D(^LAM(D0,0)):^(0),1:"""")"
^DIPT(1146,"DXS",8,9.2)="S I(100,0)=$G(D0),DIP(101)=$S($D(^LAB(60,D0,64)):^(64),1:""""),D0=$P(DIP(101),U,2) S:'D0!'$D(^LAM(+D0,0)) D0=-1 S DIP(201)=$S($D(^LAM(D0,0)):^(0),1:"""")"
^DIPT(1146,"DXS",9,9.2)="S I(101,0)=$G(D1),I(100,0)=$G(D0),DIP(101)=$S($D(^LAB(60,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'D0!'$D(^LAB(61,+D0,0)) D0=-1 S DIP(201)=$S($D(^LAB(61,D0,0)):^(0),1:"""")"
^DIPT(1146,"DXS",10,9)="W:$P(^LAB(60,D0,1,D1,0),U,11)'="""" ""Therapeutic Low: "",$P(^LAB(60,D0,1,D1,0),U,11),"" """
^DIPT(1146,"DXS",11,9)="W:$P(^LAB(60,D0,1,D1,0),U,12)'="""" ""Therapeutic High: "",$P(^LAB(60,D0,1,D1,0),U,12),"" """
^DIPT(1146,"DXS",12,9)="S DIP(101)=$S($D(^LAM(D0,5,D1,0)):^(0),1:"""") S X=""Specimen Cost: "",DIP(102)=X,Y=$P(DIP(101),U,2) X:$D(^DD(64.01,1,2)) ^(2) S X=Y,Y=X,X=DIP(102),X=X_Y"
^DIPT(1146,"F",1)=".01;C1;""""~"" "";C1;""""~I $$TEST^LA7SUTL(D0)'="""" W $$TEST^LA7SUTL(D0);"""";C5;Z;""I $$TEST^LA7SUTL(D0)'="""" W $$TEST^LA7SUTL(D0)""~110,.01;"""";C5~"" "";C1;""""~"
^DIPT(1146,"F",2)="300,S DIP(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"""") S X=""Collection Tube: ""_$S('$D(^LAB(62,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;"""";C10;C1;"""";Z;""""Collection Tube: ""_#.01""~"
^DIPT(1146,"F",3)="300,X DXS(1,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) S D1=I(1,0) W X K DIP;"""";C40;Z;"".01:3""~"
^DIPT(1146,"F",4)="300,S X=""MIN VOL (in mls.): ""_$P($G(^LAB(60,D0,3,D1,0)),U,4) W X K DIP;"""";C10;Z;""""MIN VOL (in mls.): ""_#3""~300,6,.01;"""";C10~300,5,.01;"""";C10~"
^DIPT(1146,"F",5)="100,S DIP(1)=$S($D(^LAB(60,D0,1,D1,0)):^(0),1:"""") S X=""Site/Specimen: ""_$S('$D(^LAB(61,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;"""";"""";C10;Z;""""Site/Specimen: ""_#.01""~"
^DIPT(1146,"F",6)="100,""LEDI HL7:"";"""";C12~100,X DXS(2,9.2) S X=$S('$D(^LAB(64.061,+$P(DIP(101),U,9),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) W X K DIP;"""";X;Z;"".01:.09""~"
^DIPT(1146,"F",7)="100,"" "";C1;""""~"
^DIPT(1146,"F",8)="100,W:$P(^LAB(60,D0,1,D1,0),U,2)'="""" ""Reference Low: "",$P(^LAB(60,D0,1,D1,0),U,2),"" "";"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,2)'="""" ""Reference Low: "",$P(^LAB(60,D0,1,D1,0),U,2),"" """"~"
^DIPT(1146,"F",9)="100,W:$P(^LAB(60,D0,1,D1,0),U,3)'="""" ""Reference High: "",$P(^LAB(60,D0,1,D1,0),U,3),"" "";"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,3)'="""" ""Reference High: "",$P(^LAB(60,D0,1,D1,0),U,3),"" """"~"
^DIPT(1146,"F",10)="100,W:$P(^LAB(60,D0,1,D1,0),U,4)'="""" ""Critical Low: "",$P(^LAB(60,D0,1,D1,0),U,4),"" "";"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,4)'="""" ""Critical Low: "",$P(^LAB(60,D0,1,D1,0),U,4),"" """"~"
^DIPT(1146,"F",11)="100,W:$P(^LAB(60,D0,1,D1,0),U,5)'="""" ""Critical High: "",$P(^LAB(60,D0,1,D1,0),U,5),"" "";"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,5)'="""" ""Critical High: "",$P(^LAB(60,D0,1,D1,0),U,5),"" """"~"
^DIPT(1146,"F",12)="100,X DXS(3,9);"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,11)'="""" ""Therapeutic Low: "",$P(^LAB(60,D0,1,D1,0),U,11),"" """"~"
^DIPT(1146,"F",13)="100,X DXS(4,9);"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,12)'="""" ""Therapeutic High: "",$P(^LAB(60,D0,1,D1,0),U,12),"" """"~"
^DIPT(1146,"F",14)="100,W:$P(^LAB(60,D0,1,D1,0),U,7)'="""" ""Units: "",$P(^LAB(60,D0,1,D1,0),U,7),"" "";"""";C12;Z;""W:$P(^LAB(60,D0,1,D1,0),U,7)'="""" ""Units: "",$P(^LAB(60,D0,1,D1,0),U,7),"" """"~"
^DIPT(1146,"F",15)="100,I +$O(^LAB(60,D0,1,D1,1,0))>0 W ""Interpretation: "";C12;"""";Z;""I +$O(^LAB(60,D0,1,D1,1,0))>0 W ""Interpretation: """"~100,5.5,.01;"""";C15~"
^DIPT(1146,"F",16)="-64,^LAM(^^S I(0,0)=D0 S DIP(1)=$S($D(^LAB(60,D0,64)):^(64),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""64:""~"
^DIPT(1146,"F",17)="-64,S DIP(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=""NLT Code: ""_$P(DIP(101),U,2) W X K DIP;"""";C10;Z;""""NLT Code: ""_#1""~-64,.01;"""";C40~"
^DIPT(1146,"F",18)="X DXS(5,9.2) S X=X_$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;"""";C10;Z;""64.1:""NLT Result Code: ""_#1""~"
^DIPT(1146,"F",19)="X DXS(6,9.2) S Y=$P(DIP(101),U,1) X:$D(^DD(64,.01,2)) ^(2) S X=Y S D0=I(0,0) W X K DIP;"""";C40;Z;""64.1:PROCEDURE""~"" "";C1~"
^DIPT(1146,"F",20)="I +$O(^LAB(60,D0,2,0))>0 W ""LAB TEST(S) IN PANEL"";C10;"""";Z;""I +$O(^LAB(60,D0,2,0))>0 W ""LAB TEST(S) IN PANEL""""~200,.01;"""";C12;"""";C1~"
^DIPT(1146,"F",21)="200,-60,^LAB(60,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^LAB(60,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1146,"F",22)="200,-60,I $$TEST^LA7SUTL(D0)'="""" W $$TEST^LA7SUTL(D0);"""";C12;Z;""I $$TEST^LA7SUTL(D0)'="""" W $$TEST^LA7SUTL(D0)""~200,-60,"" "";"""";C1~"
^DIPT(1146,"F",23)="200,-60,X DXS(7,9.2) S X=""NLT Result Code: ""_$P(DIP(201),U,2) S D0=I(100,0) W X K DIP;"""";C12;Z;""64.1:""NLT Result Code: ""_#1""~"
^DIPT(1146,"F",24)="200,-60,X DXS(8,9.2) S DIP(202)=X,Y=$P(DIP(201),U,1) X:$D(^DD(64,.01,2)) ^(2) S X=Y S D0=I(100,0) W X K DIP;"""";C40;Z;""64.1:PROCEDURE""~"
^DIPT(1146,"F",25)="200,-60,100,S DIP(101)=$S($D(^LAB(60,D0,1,D1,0)):^(0),1:"""") S X=""Site/Specimen: ""_$S('$D(^LAB(61,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;"""";"""";C15;"""";Z;""""Site/Specimen: ""_#.01""~"
^DIPT(1146,"F",26)="200,-60,100,"" "";C1;""""~200,-60,100,""LEDI HL7: "";"""";C17~"
^DIPT(1146,"F",27)="200,-60,100,X DXS(9,9.2) S X=$S('$D(^LAB(64.061,+$P(DIP(201),U,9),0)):"""",1:$P(^(0),U,1)) S D0=I(100,0) S D1=I(101,0) W X K DIP;"""";x;Z;"".01:.09""~"
^DIPT(1146,"F",28)="200,-60,100,W:$P(^LAB(60,D0,1,D1,0),U,2)'="""" ""Reference Low: "",$P(^LAB(60,D0,1,D1,0),U,2),"" "";"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,2)'="""" ""Reference Low: "",$P(^LAB(60,D0,1,D1,0),U,2),"" """"~"
^DIPT(1146,"F",29)="200,-60,100,W:$P(^LAB(60,D0,1,D1,0),U,3)'="""" ""Reference High: "",$P(^LAB(60,D0,1,D1,0),U,3),"" "";"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,3)'="""" ""Reference High: "",$P(^LAB(60,D0,1,D1,0),U,3),"" """"~"
^DIPT(1146,"F",30)="200,-60,100,W:$P(^LAB(60,D0,1,D1,0),U,4)'="""" ""Critical Low: "",$P(^LAB(60,D0,1,D1,0),U,4),"" "";"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,4)'="""" ""Critical Low: "",$P(^LAB(60,D0,1,D1,0),U,4),"" """"~"
^DIPT(1146,"F",31)="200,-60,100,W:$P(^LAB(60,D0,1,D1,0),U,5)'="""" ""Critical High: "",$P(^LAB(60,D0,1,D1,0),U,5),"" "";"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,5)'="""" ""Critical High: "",$P(^LAB(60,D0,1,D1,0),U,5),"" """"~"
^DIPT(1146,"F",32)="200,-60,100,X DXS(10,9);"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,11)'="""" ""Therapeutic Low: "",$P(^LAB(60,D0,1,D1,0),U,11),"" """"~"
^DIPT(1146,"F",33)="200,-60,100,X DXS(11,9);"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,12)'="""" ""Therapeutic High: "",$P(^LAB(60,D0,1,D1,0),U,12),"" """"~"
^DIPT(1146,"F",34)="200,-60,100,W:$P(^LAB(60,D0,1,D1,0),U,7)'="""" ""Units: "",$P(^LAB(60,D0,1,D1,0),U,7),"" "";"""";C17;Z;""W:$P(^LAB(60,D0,1,D1,0),U,7)'="""" ""Units: "",$P(^LAB(60,D0,1,D1,0),U,7),"" """"~"
^DIPT(1146,"F",35)="200,-60,100,I +$O(^LAB(60,D0,1,D1,1,0))>0 W ""Interpretation: "";C17;"""";Z;""I +$O(^LAB(60,D0,1,D1,1,0))>0 W ""Interpretation: """"~200,-60,100,5.5,.01;"""";C20~"
^DIPT(1146,"F",36)="200,-60,100,"" "";C1;""""~-64,^LAM(^^S I(0,0)=D0 S DIP(1)=$S($D(^LAB(60,D0,64)):^(64),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""64:""~-64,"" "";"""";C1~"
^DIPT(1146,"F",37)="-64,S DIP(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=""Default Cost: ""_$P(DIP(101),U,10) W X K DIP;C10;"""";Z;""""Default Cost: ""_#7""~"
^DIPT(1146,"F",38)="-64,S DIP(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=""Default Price: ""_$P(DIP(101),U,11) W X K DIP;C40;"""";Z;""""Default Price: ""_#8""~-64,20,"" "";C1;""""~"
^DIPT(1146,"F",39)="-64,20,S DIP(101)=$S($D(^LAM(D0,5,D1,0)):^(0),1:"""") S X=""Specimen: ""_$S('$D(^LAB(61,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C10;"""";Z;""""Specimen: ""_#.01""~"
^DIPT(1146,"F",40)="-64,20,"" "";C1;""""~-64,20,X DXS(12,9) W X K DIP;C10;"""";Z;""""Specimen Cost: ""_#1""~"
^DIPT(1146,"F",41)="-64,20,S DIP(101)=$S($D(^LAM(D0,5,D1,0)):^(0),1:"""") S X=""Specimen Price: ""_$P(DIP(101),U,3) W X K DIP;C40;"""";Z;""""Specimen Price: ""_#2""~"" "";C1;""""~"
^DIPT(1146,"H")="Electronic Test Catalog"
^DIPT(1147,0)="LBRY TITLES DUE RENEWAL^2951012.1233^^681^^^2961002"
^DIPT(1147,"F",1)="""PORTION OF FILE: "";X;S~-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1147,"F",2)="-680,-680.5,^LBRY(680.5,^^S I(100,0)=D0 S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-680,-680.5,.05;C18;X~"
^DIPT(1147,"F",3)="-680,-680.5,""TITLE: "";S;C1~-680,-680.5,.01;X;C9;L70~-680,-680.5,""ISSN: "";C1~-680,-680.5,7;X;C7~""VENDOR: "";C30~1.4;C38;X~""PLACEMENT: "";C1~1.1;X;C12~"
^DIPT(1147,"F",4)="-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-680,""RENEWAL DATE (HC): "";C30~"
^DIPT(1147,"F",5)="-680,10.5;X;C49~-680,""SUBSCRIPTION PERIOD: "";C1~-680,10.8;X;C22~""COPY NUMBER: "";C30~1;X;C48~"
^DIPT(1147,"H")="SERIALS RENEWAL LIST"
^DIPT(1148,0)="RA PARENT PROCEDURE LIST^3031107.141^@^71^^@^3041215"
^DIPT(1148,"DXS",1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^RAMIS(71,D0,4,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^RAMIS(71,+D0,0)) D0=-1 S DIP(101)=$S($D(^RAMIS(71,D0,0)):^(0),1:"""")"
^DIPT(1148,"DXS",2,9)="S RA1=0 F S RA1=$O(^RAMIS(71,RAZ71,""MDL"",RA1)) Q:'RA1 S RA3=^(RA1,0) W $P(^RAMIS(73.1,RA3,0),U) W:$O(^RAMIS(71,RAZ71,""MDL"",RA1)) "","""
^DIPT(1148,"F",1)="S:+$G(^RAMIS(71,D0,""I""))>0&(+$G(^RAMIS(71,D0,""I""))'>DT) RAINACT="""";X;Z;""S:+$G(^RAMIS(71,D0,""I""))>0&(+$G(^RAMIS(71,D0,""I""))'>DT) RAINACT=""""""~"
^DIPT(1148,"F",2)="S REM=""Set flag so inactivated date prints"";X;Z;""S REM=""Set flag so inactivated date prints""""~.01;C10;""Parent Name"";L60~"
^DIPT(1148,"F",3)="W !?5,""Single Report : "";X;Z;""W !?5,""Single Report : """"~18;C28;""""~W !?5,""Hlth Summary w Req. : "";X;Z;""W !?5,""Hlth Summary w Req. : """"~"
^DIPT(1148,"F",4)="13;C28;""""~W:$D(RAINACT) !?5,""Inactivation Date : "";X;Z;""W:$D(RAINACT) !?5,""Inactivation Date : """"~"
^DIPT(1148,"F",5)="W:$D(RAINACT) ?27,$$FMTE^XLFDT(+$G(^RAMIS(71,D0,""I"")));X;Z;""W:$D(RAINACT) ?27,$$FMTE^XLFDT(+$G(^RAMIS(71,D0,""I"")))""~"
^DIPT(1148,"F",6)="W !?5,""Rad Approval of Req.: "";X;Z;""W !?5,""Rad Approval of Req.: """"~11;C28;""""~W !?5,""Type of Imaging :"";X;Z;""W !?5,""Type of Imaging :""""~"
^DIPT(1148,"F",7)="12;C28;""""~W !?5,""Descendants : "";X;Z;""W !?5,""Descendants : """"~300,W ""("";C28;L1;"""";Z;""W ""(""""~"
^DIPT(1148,"F",8)="300,X DXS(1,9.2) S X=$P($G(^ICPT(+$P(DIP(101),U,9),0)),U) S D0=I(0,0) S D1=I(1,0) W X K DIP;C29;L5;"""";Z;"".01:9""~300,W "")"";C34;L1;"""";Z;""W "")""""~"
^DIPT(1148,"F",9)="300,.01;C36;L44;""""~300,S RAZ71=+X;"""";Z;""S RAZ71=+X""~"
^DIPT(1148,"F",10)="300,W:$O(^RAMIS(71,RAZ71,""MDL"",0)) ?81,""Modality: "";"""";Z;""W:$O(^RAMIS(71,RAZ71,""MDL"",0)) ?81,""Modality: """"~"
^DIPT(1148,"F",11)="300,X DXS(2,9);"""";X;Z;""S RA1=0 F S RA1=$O(^RAMIS(71,RAZ71,""MDL"",RA1)) Q:'RA1 S RA3=^(RA1,0) W $P(^RAMIS(73.1,RA3,0),U) W:$O(^RAMIS(71,RAZ71,""MDL"",RA1)) "",""""~"
^DIPT(1148,"F",12)="300,D:+$O(^RAMIS(71,RAZ71,""CM"",0)) CMDISP^RAMAINP1(RAZ71);"""";Z;""D:+$O(^RAMIS(71,RAZ71,""CM"",0)) CMDISP^RAMAINP1(RAZ71)""~"
^DIPT(1148,"F",13)="W !?5,""Procedure Message :"";X;Z;""W !?5,""Procedure Message :""""~200,.01;C28;W35;""""~"
^DIPT(1148,"F",14)="W !?5,""Educational Desc : "";X;Z;""W !?5,""Educational Desc : """"~500,.01;C28;W35;""""~K RAINACT,RAZ71,REM;"""";Z;""K RAINACT,RAZ71,REM""~"
^DIPT(1148,"H")="Parent Procedure List"
^DIPT(1151,0)="ABSV ALPHA LIST^2940418.1202^@^503330^^@^2950308"
^DIPT(1151,"F",2)=".01~1~.1,1~.1,2~.1,3~.1,4~.1,5~.1,6~.1,7~"
^DIPT(1151,"H")="VOLUNTARY MASTER LIST"
^DIPT(1152,0)="ABSV TEST LABEL^2940812.1451^@^503330^^@^2940812"
^DIPT(1152,"F",2)="S COUNT=$G(COUNT)+1;Z;""S COUNT=$G(COUNT)+1""~S ^TMP(""VLABEL"",COUNT)=D0;Z;""S ^TMP(""VLABEL"",COUNT)=D0""~"
^DIPT(1152,"H")="@"
^DIPT(1152,"SUB")="1"
^DIPT(1153,0)="ABSV SELECTED STATION INFO^2970815.1437^^503339.2^^^3001212"
^DIPT(1153,"F",2)="1;L30~.01~2~10~13~14,1;""CHIEF OR EQUIVALENT""~"
^DIPT(1153,"H")="VOLUNTARY SERVICE DIRECTORY LIST"
^DIPT(1154,0)="ABSV OCC HRS ORG SUMMARY^2951011.1141^^503336^^^2980416"
^DIPT(1154,"DCL","503336^5")="&"
^DIPT(1154,"DCL","503336^6")="&"
^DIPT(1154,"F",2)="2.5~7~5~6~"
^DIPT(1154,"H")="OCCASIONAL HOURS SUMMARY SHEET - BY ORGANIZATION"
^DIPT(1155,0)="ABSV OCC HRS SERV SUMMARY^2951011.1155^@^503336^^@^2980204"
^DIPT(1155,"DCL","503336^5")="&"
^DIPT(1155,"DCL","503336^6")="&"
^DIPT(1155,"F",2)="2.5~7~5~6~"
^DIPT(1155,"H")="OCCASIONAL HOURS SUMMARY SHEET - BY ORGANIZATION"
^DIPT(1156,0)="ABSV OCC HRS SUMMARY^2951011.1216^^503336^^^2970903"
^DIPT(1156,"DCL","503336^5")="&"
^DIPT(1156,"DCL","503336^6")="&"
^DIPT(1156,"F",2)=".01~2.5~3~7~5~6~"
^DIPT(1156,"H")="OCCASIONAL HOURS SUMMARY SHEET - BY ORGANIZATION"
^DIPT(1157,0)="ABSV DIRECTORY PRINT^2960124.1426^#^503339.2^^^3001212"
^DIPT(1157,"F",2)="I $D(D0) D ONE^ABSVPPP2(D0);Z;""I $D(D0) D ONE^ABSVPPP2(D0)""~"
^DIPT(1157,"H")="@"
^DIPT(1157,"SUB")="1"
^DIPT(1158,0)="ABSV POTENTIAL AWARD LIST^2980420.1635^^503330^^^3000607"
^DIPT(1158,"%D",0)="^^1^1^2980401^"
^DIPT(1158,"%D",1,0)="This template is used to print the Volunteer Potential Award Listing."
^DIPT(1158,"F",1)=".01~1;L14~.1,.5;L8~.1,2~.1,3~.1,4~.1,5~"
^DIPT(1158,"F",2)=".1,-503337,^ABS(503337,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X S D(0)=+X;Z;""AWARD CODE:""~"
^DIPT(1158,"F",3)=".1,-503337,1;""LAST AWARD CODE""~"
^DIPT(1158,"H")="VOLUNTEER AWARD/DATE LISTING"
^DIPT(1159,0)="LR CAP ELROY^2980406.1158^^67.9^^^2980407"
^DIPT(1159,"DCL","67.9114^1")="&"
^DIPT(1159,"DCL","67.9114^2")="&"
^DIPT(1159,"DCL","67.9114^3")="&"
^DIPT(1159,"DCL","67.9114^7")="&"
^DIPT(1159,"DCL","67.9114^9")="&"
^DIPT(1159,"DXS",1,9.2)="S DIP(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,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) S X=X,DIP(2)=X S X=""/"",DIP(3)=X S X=1"
^DIPT(1159,"DXS",1,9.3)="X DXS(1,9.2) S X=$P(DIP(2),DIP(3),X)_""/"",DIP(4)=X,DIP(5)=X S X=$P(DIP(1),U,1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X,DIP(6)=X S X=""/"",DIP(7)=X S X=3"
^DIPT(1159,"F",1)="1,1,4,.03;C1;L30~"
^DIPT(1159,"F",2)="1,1,4,X DXS(1,9.3) S X=$P(DIP(6),DIP(7),X) S Y=X,X=DIP(4),X=X_Y W X K DIP;C32;L5;""MONTH"";Z;""$P(NUMDATE(MONTH),""/"",1)_""/""_$P(NUMDATE(MONTH),""/"",3)""~"
^DIPT(1159,"F",3)="1,1,4,1;C38;L5;""INPT""~1,1,4,2;C45;L5;""OUTPT""~1,1,4,3;C52;L5;""OTHER""~1,1,4,7;C59;L5;""MANUAL""~1,1,4,9;C66;L8;""TOTALS""~1,1,4,10;C76;L4;""BILL""~"
^DIPT(1159,"H")="LAB MONTHLY WORKLOADS STATISTICS"
^DIPT(1160,0)="ANRVAD^2980430.1049^^2040^^^2980501"
^DIPT(1160,"DXS",1,9.2)="S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=1,DIP(103)=X S X=3,X=$E(DIP(102),DIP(103),X)_""-"",DIP(104)=X S X=$P(DIP(101),U,9)"
^DIPT(1160,"DXS",1,9.3)="X DXS(1,9.2) S DIP(105)=X S X=4,DIP(106)=X S X=5,X=$E(DIP(105),DIP(106),X) S Y=X,X=DIP(104),X=X_Y_""-"",DIP(107)=X S X=$P(DIP(101),U,9),DIP(108)=X S X=6"
^DIPT(1160,"F",1)=".01~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(1160,"F",2)="-2,X DXS(1,9.3) S DIP(109)=X S X=9,X=$E(DIP(108),DIP(109),X) S Y=X,X=DIP(107),X=X_Y W X K DIP;""SSN""??;Z;""$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1160,"F",3)="-2,.1;""WARD"";C50;L8~-2,.101;C62;L10~"
^DIPT(1160,"H")="VIST INPATIENT ROSTER LIST"
^DIPT(1161,0)="ANRVREV^2890531^^2040^^^2980514^"
^DIPT(1161,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1161,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1161,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1161,"F",1)="6,.01;""REVIEW DATE""~.01~"
^DIPT(1161,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";L13;Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1161,"F",3)="6,1;""REVIEW STATUS""~6,2;""REVIEW TYPE""~"
^DIPT(1161,"H")="VIST REVIEW LIST"
^DIPT(1162,0)="ANRVID^2980227.08^^2040^^^2980512"
^DIPT(1162,"DCL","2040^.01")="!"
^DIPT(1162,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1162,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1162,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1162,"F",1)="14,.01~.01~"
^DIPT(1162,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~14,1;C60~"
^DIPT(1162,"F",3)="7;""VIST ELILGIBLE"";C80~"
^DIPT(1162,"H")="VIST ROSTER INACTIVATION LIST **BE SURE VIST ELIGIBLE READS INACTIVE**"
^DIPT(1163,0)="ANRVED^2980226.1457^^2040^^^2980527"
^DIPT(1163,"DCL","2040^.01")="!"
^DIPT(1163,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1163,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1163,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1163,"F",1)=".015;C1;L11~.01;C13;L30~"
^DIPT(1163,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN""C45;L11;Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1163,"F",3)="7;""VIST ELIGIBLE"";C60;L13~.5~"
^DIPT(1163,"H")="ADDITIONS TO VIST ROSTER"
^DIPT(1164,0)="ANRVFVD^2980227.0755^^2040^^^2980609"
^DIPT(1164,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1164,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1164,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1164,"F",1)="6.5,.01;""FIELD VIST DATE""~.01~"
^DIPT(1164,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1164,"F",3)="7;""VIST ELIGIBLE"";C60~"
^DIPT(1164,"H")="FIELD VISIT(S) DATE LIST"
^DIPT(1165,0)="ANRV ROSTER A/R^2980226.0958^^2040^^^2980527"
^DIPT(1165,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1165,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1165,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1165,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1165,"DXS",2,9.3)="X DXS(2,9.2) X ""F D1=0:0 S D1=$O(^ANRV(2040,D0,6,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""") S:Y'?."""" """" DIP(102)=Y"" S D(1)=D1 S X=DIP(102)"
^DIPT(1165,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:"""") S DIP(103)=$C(59)_$S($D(^DD(2040.06,1,0)):$P(^(0),U,3),1:""""),DIP(102)="""""
^DIPT(1165,"DXS",3,9.3)="X DXS(3,9.2) X ""F D1=0:0 S D1=$O(^ANRV(2040,D0,6,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,2),1:"""""""") S:Y'?."""" """" DIP(102)=Y"" S D(1)=D1 S X=DIP(102)"
^DIPT(1165,"F",1)=".01;C1;L30~"
^DIPT(1165,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";C32;L11;Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1165,"F",3)="7;""VIST ELIGIBLE"";L22;C45~3;C69;L30~"
^DIPT(1165,"F",4)="X DXS(2,9.3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X S D0=I(0,0) S D1=I(1,0) W X K DIP;""LAST ANNUAL REVIEW"";C101;Z;""NUMDATE(LAST(VIS TEAM))""~"
^DIPT(1165,"F",5)="X DXS(3,9.3) S X=$P($P(DIP(103),$C(59)_X_"":"",2),$C(59),1) S D0=I(0,0) S D1=I(1,0) W X K DIP;""STATUS"";C111;Z;""LAST(VIS TEAM REVIEW DATE:AMIS-STATUS OF REVIEW)""~"
^DIPT(1165,"H")="VIST ROSTER PRINTOUT"
^DIPT(1166,0)="ANRV REVIEW INQ^2910605.1235^^2040^^^2980430^"
^DIPT(1166,"%D",0)="0"
^DIPT(1166,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1166,"F",2)=".01~X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""SSN"";Z;"".01:SSN""~6,.01;C5~6,1~6,2~6,3~"
^DIPT(1166,"H")=" ANNUAL REVIEW INQUIRY"
^DIPT(1167,0)="ANRV INC AMIS^2910605.1245^^2040^^^2980514^"
^DIPT(1167,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1167,"F",2)=".01~X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:SSN""~"
^DIPT(1167,"H")="INCOMPLETE AMIS ROSTER"
^DIPT(1168,0)="ANRV DECEASED LIST^2930601.0722^^2040^^^2980430^"
^DIPT(1168,"DXS",1,9.2)="S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=1,DIP(103)=X S X=3,X=$E(DIP(102),DIP(103),X)_""-"",DIP(104)=X S X=$P(DIP(101),U,9)"
^DIPT(1168,"DXS",1,9.3)="X DXS(1,9.2) S DIP(105)=X S X=4,DIP(106)=X S X=5,X=$E(DIP(105),DIP(106),X) S Y=X,X=DIP(104),X=X_Y_""-"",DIP(107)=X S X=$P(DIP(101),U,9),DIP(108)=X S X=6"
^DIPT(1168,"F",1)=".01~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(1168,"F",2)="-2,X DXS(1,9.3) S DIP(109)=X S X=9,X=$E(DIP(108),DIP(109),X) S Y=X,X=DIP(107),X=X_Y W X K DIP;""SSN"";Z;""$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1168,"F",3)="-2,S DIP(101)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(DIP(101),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;""DATE OF DEATH"";C50;L18;Z;""DATE(DATE OF DEATH)""~"
^DIPT(1168,"H")="DECEASED LISTING OF VIST PATIENTS"
^DIPT(1169,0)="ANRV AGE LIST^2930521.1007^^2040^^^2980430^"
^DIPT(1169,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1169,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1169,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1169,"DXS",2,9)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S DIP(101)=X S X=DIP(101) S D0=I(0,0)"
^DIPT(1169,"F",1)=".01~X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1169,"F",2)="X DXS(2,9) W X K DIP;""AGE"";C50;Z;""NAME:AGE""~"
^DIPT(1169,"H")="VIST ROSTER BY AGE"
^DIPT(1170,0)="ANRV BIRTH LIST^2930520.1456^^2040^^^2980430^"
^DIPT(1170,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1170,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1170,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1170,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1170,"F",1)=".01~X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1170,"F",2)="X DXS(2,9.2) S X=$P(DIP(101),U,3) S D0=I(0,0) S Y=X D DT K DIP;""DATE OF BIRTH"";L18;C50;Z;""NAME:DATE OF BIRTH""~"
^DIPT(1170,"H")="VIST ROSTER BY DATE OF BIRTH"
^DIPT(1171,0)="ANRV EYE DIAG PRINT^2930604.1555^^2040^^^2980515^"
^DIPT(1171,"DCL","2040.01^.01")="!"
^DIPT(1171,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1171,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1171,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1171,"F",1)=".01~X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1171,"F",2)="4.2,.01;C50~"
^DIPT(1171,"H")="VIST ROSTER BY EYE DIAGNOSIS"
^DIPT(1172,0)="ANRV EYE DIAG INQ^2930622.0826^^2040^^^2980515^"
^DIPT(1172,"DXS",1,9)="X DXS(1,9.4) S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9,X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0)"
^DIPT(1172,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1172,"DXS",1,9.3)="X DXS(1,9.2) S X=""Social Security: "",DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X) S Y=X,X=DIP(101),X=X_Y"
^DIPT(1172,"DXS",1,9.4)="X DXS(1,9.3) S X=X_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4,DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X"
^DIPT(1172,"F",1)=""
^DIPT(1172,"F",2)="S X=""INDIVIDUAL VIST EYE HISTORY"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;S;X;Z;""CENTER(""INDIVIDUAL VIST EYE HISTORY"")""~"
^DIPT(1172,"F",3)="S DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=""Veteran's Name: ""_$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;S2;Z;""""Veteran's Name: ""_NAME""~"
^DIPT(1172,"F",4)="X DXS(1,9) W X K DIP;""SSN"";C1;Z;""NAME:""Social Security: ""_$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~""Eye Diagnosis:"";C1~4.2,.01;C19~"" "";S2~"
^DIPT(1172,"F",5)="""EXAM"";C1~""ACUITY"";C15~""ACUITY"";C30~""FIELD"";C45~""FIELD"";C60~""DATE"";C1~""RIGHT EYE"";C15~""LEFT EYE"";C30~""RIGHT EYE"";C45~""LEFT EYE"";C60~"
^DIPT(1172,"F",6)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",IOM)""~"
^DIPT(1172,"F",7)="4,.01;C1;L12;S~4,2;C15;W10~4,3;C30;W10~4,4;C45;W10~4,5;C60;W10~"
^DIPT(1172,"H")="@"
^DIPT(1172,"SUB")="1"
^DIPT(1173,0)="ANRV EYE DIAG NAR^2930913.1158^^2040^^^2980430^"
^DIPT(1173,"F",1)=".01;L20~"
^DIPT(1173,"F",2)="4,S DIP(1)=$S($D(^ANRV(2040,D0,3,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;""EXAM DATE"";Z;""NUMDATE(EYE EXAM DATE)""~"
^DIPT(1173,"F",3)="4,1;L20~"
^DIPT(1173,"H")="VIST ROSTER BY EYE DIAGNOSIS"
^DIPT(1174,0)="ANRV REFERRAL LIST^2930620.1905^^2040^^^2980527^"
^DIPT(1174,"DCL","2040^.5")="!"
^DIPT(1174,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1174,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1174,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1174,"F",1)=".01~X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1174,"F",2)=".5;C48~"
^DIPT(1174,"H")="VIST ROSTER BY REFERRAL SOURCE"
^DIPT(1175,0)="ANRV FEE PT^2930805.1354^^2040^^^2980430^"
^DIPT(1175,"DCL","2040^.01")="!"
^DIPT(1175,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1175,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1175,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1175,"DXS",2,9)="X DXS(2,9.2) S D0=D0 S:'$D(^FBAAA(+D0,0)) D0=-1 S D(0)=D0 S DIP(201)=$S($D(^FBAAA(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(201),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0)"
^DIPT(1175,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S D(0)=D0 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(1175,"F",1)=".01;C1~"
^DIPT(1175,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1175,"F",3)="-161,^FBAAA(^^X DXS(2,9);Z;""NAME:FEE BASIS PATIENT:""~-161,1,.01;C48~-161,1,.02~-161,1,.095~"
^DIPT(1175,"H")="FEE PATIENT LISTING"
^DIPT(1176,0)="ANRV ELIG AMIS LIST^2940331.1054^^2040^^^2980430^"
^DIPT(1176,"DCL","2040^7")="!"
^DIPT(1176,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1176,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=X S X=$P(DIP(102),U,9),DIP(103)=X S X=1,DIP(104)=X S X=3,X=$E(DIP(103),DIP(104),X)_""-"",DIP(105)=X S X=$P(DIP(102),U,9),DIP(106)=X S X=4"
^DIPT(1176,"DXS",1,9.4)="X DXS(1,9.3) S DIP(107)=X S X=5,X=$E(DIP(106),DIP(107),X) S Y=X,X=DIP(105),X=X_Y_""-"",DIP(108)=X S X=$P(DIP(102),U,9),DIP(109)=X S X=6,DIP(110)=X S X=9"
^DIPT(1176,"F",1)=".01;L28~"
^DIPT(1176,"F",2)="X DXS(1,9.4) S X=$E(DIP(109),DIP(110),X) S Y=X,X=DIP(108),X=X_Y S D0=I(0,0) W X K DIP;""SSN"";C30;L12;Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1176,"F",3)="7;C43;L37~"
^DIPT(1176,"H")="VIST ELIGIBLE (AMIS) LIST"
^DIPT(1177,0)="ANRV CHECKLIST^2980319.1459^^2041.7^^^2980527"
^DIPT(1177,"DXS",1,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),I(101,0)=$S($D(D1):D1,1:""""),DIP(202)="""""
^DIPT(1177,"DXS",1,9.3)="X DXS(1,9.2) X ""F D1=0:0 S D1=$O(^ANRV(2040,D0,6,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""") S:Y'?."""" """"&(DIP(202)'>Y!'$L(DIP(202))) DIP(202)=Y"" S D(1)=D1"
^DIPT(1177,"DXS",2,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(202)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1177,"DXS",2,9.3)="X DXS(2,9.2) S DIP(201)=X S X=$P(DIP(202),U,9),DIP(203)=X S X=1,DIP(204)=X S X=3,X=$E(DIP(203),DIP(204),X)_""-"",DIP(205)=X S X=$P(DIP(202),U,9),DIP(206)=X S X=4"
^DIPT(1177,"DXS",2,9.4)="X DXS(2,9.3) S DIP(207)=X S X=5,X=$E(DIP(206),DIP(207),X) S Y=X,X=DIP(205),X=X_Y_""-"",DIP(208)=X S X=$P(DIP(202),U,9),DIP(209)=X S X=6,DIP(210)=X S X=9"
^DIPT(1177,"DXS",3,9.2)="S DIP(1)=$S($D(^ANRV(2041.7,D0,2,D1,0)):^(0),1:"""") S X=$S('$D(^ANRV(2044,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(1177,"F",1)=""
^DIPT(1177,"F",2)="S X=""VIST BENEFITS & SERVICES CHECKLIST"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""VIST BENEFITS & SERVICES CHECKLIST"")""~"
^DIPT(1177,"F",3)="-2040,^ANRV(2040,^^S I(0,0)=D0 S DIP(1)=$S($D(^ANRV(2041.7,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~-2040,""Veteran's Name:"";C1;S1~"
^DIPT(1177,"F",4)="-2040,.01;C20~-2040,""VIST Review Date:"";C1~"
^DIPT(1177,"F",5)="-2040,X DXS(1,9.3) S X=DIP(202) S D0=I(100,0) S D1=I(101,0) S Y=X D DT K DIP;C20;L18;Z;""MAXIMUM(VIS TEAM REVIEW DATE)""~-2040,""Soc. Sec. No.:"";C1~"
^DIPT(1177,"F",6)="-2040,X DXS(2,9.4) S X=$E(DIP(209),DIP(210),X) S Y=X,X=DIP(208),X=X_Y S D0=I(100,0) W X K DIP;C20;Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1177,"F",7)="-2040,""VA BENEFITS AND SERVICES"";C1;S2~"
^DIPT(1177,"F",8)="-2040,S X=""_"",DIP(101)=X,DIP(102)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(101) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",IOM)""~"
^DIPT(1177,"F",9)="""Auto Grant"";C1;S~1;C60~""Blind Rehabilitation Training"";C1~2;C60~""CHAMPUS"";C1~3;C60~""CHAMPVA"";C1~4;C60~""Clothing Allowance"";C1~5;C60~""Education"";C1~"
^DIPT(1177,"F",10)="6;C60~""Fee Basis"";C1~7;C60~""HISA"";C1~8;C60~""Insurance - Service Disabled Veterans Insurance"";C1~9;C60~""Insurance - Waive Premium"";C1~10;C60~"
^DIPT(1177,"F",11)="""Prosthetics"";C1~11;C60~""Specially Adapted Housing - 801(a)"";C1~12;C60~""Special Housing Adaptations - 801(b)"";C1~13;C60~"
^DIPT(1177,"F",12)="""VA Vocational Rehabilitation"";C1~14;C60~""VIST Annual Review"";C1~15;C60~""NON-VA BENEFITS AND SERVICES"";C1;S2~"
^DIPT(1177,"F",13)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",IOM)""~"
^DIPT(1177,"F",14)="""Identification Card"";C1;S~16;C60~""Blinded Veterans Association"";C1~17;C60~""Commissary and Exchange"";C1~18;C60~""National Consumer Groups"";C1~19;C60~"
^DIPT(1177,"F",15)="""Free Postage"";C1~20;C60~""Free Telephone Directory Assistance"";C1~21;C60~""Dog Guide Training"";C1~22;C60~""Hadley School for the Blind"";C1~23;C60~"
^DIPT(1177,"F",16)="""Handicap Parking Placard"";C1~24;C60~""Income Tax Deduction"";C1~25;C60~""National Parks Lifetime Admission Permit"";C1~26;C60~""Radio Reading Service"";C1~"
^DIPT(1177,"F",17)="27;C60~""Recording for the Blind"";C1~28;C60~""Social Security"";C1~29;C60~""Talking Books"";C1~30;C60~""Voting Rights"";C1~31;C60~"
^DIPT(1177,"F",18)="""LOCAL BENEFITS AND SERVICES"";C1;S2~"
^DIPT(1177,"F",19)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",IOM)""~"
^DIPT(1177,"F",20)=""" "";S1~32,X DXS(3,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C1;Z;""LOWERCASE(#.01)""~32,1;C60~"
^DIPT(1177,"H")="@"
^DIPT(1177,"SUB")="1"
^DIPT(1178,0)="ANRVRRL^2901221.1009^^2042.5^^^2980610^"
^DIPT(1178,"DXS",1,"045")="REJECTED"
^DIPT(1178,"DXS",1,"046")="REJECTED"
^DIPT(1178,"DXS",1,"051")="ACCEPTED"
^DIPT(1178,"DXS",1,"052")="WITHDREW"
^DIPT(1178,"DXS",1,"053")="PENDING"
^DIPT(1178,"F",1)="1,S DIP(1)=$S($D(^ANRV(2042.5,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;""REFERRAL DATE"";L14;Z;""DATE(REFERRAL DATE)""~"
^DIPT(1178,"F",2)=".01;C16~1,1;C52;L22~1,3;""STATUS"";C76;L8~1,4;""NOTIF. DATE"";C87~1,5;""ADM. DATE"";C100~1,6;""DSCH. DATE"";C114~"
^DIPT(1178,"H")="VIST REFERRAL ROSTER LIST"
^DIPT(1178,"IOM")="132"
^DIPT(1178,"LAST")=""
^DIPT(1179,0)="ANRVPR^2980403.09^^2042.5^^^2980605"
^DIPT(1179,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^ANRV(2042.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^ANRV(2040,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(1179,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(202)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(201)=X"
^DIPT(1179,"DXS",1,9.4)="X DXS(1,9.3) S X=$P(DIP(202),U,9),DIP(203)=X S X=1,DIP(204)=X S X=3,X=$E(DIP(203),DIP(204),X)_""-"",DIP(205)=X S X=$P(DIP(202),U,9),DIP(206)=X S X=4,DIP(207)=X S X=5"
^DIPT(1179,"DXS",1,9.5)="X DXS(1,9.4) S X=$E(DIP(206),DIP(207),X) S Y=X,X=DIP(205),X=X_Y_""-"",DIP(208)=X S X=$P(DIP(202),U,9),DIP(209)=X S X=6,DIP(210)=X S X=9"
^DIPT(1179,"F",1)="""Name:"";C1~.01;"""";C30~""Social Security No.:"";C1~"
^DIPT(1179,"F",2)="X DXS(1,9.5) S X=$E(DIP(209),DIP(210),X) S Y=X,X=DIP(208),X=X_Y S D0=I(0,0) W X K DIP;"""";C30;Z;""NAME:NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1179,"F",3)=""" "";S4~"
^DIPT(1179,"F",4)="1,S DIP(1)=$S($D(^ANRV(2042.5,D0,1,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;""REFERRAL DATE"";L8;Z;""NUMDATE(REFERRAL DATE)""~"
^DIPT(1179,"F",5)="1,1;L25~1,2;;""TYPE""~1,3;""APPLICATION STATUS"";L11~"
^DIPT(1179,"F",6)="1,S DIP(1)=$S($D(^ANRV(2042.5,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""NOTIF. DATE"";L8;Z;""NUMDATE(DATE OF NOTIFICATION)""~"
^DIPT(1179,"F",7)="1,S DIP(1)=$S($D(^ANRV(2042.5,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""ADM. DATE"";L8;Z;""NUMDATE(BLIND REHAB ADMISSION DATE)""~"
^DIPT(1179,"F",8)="1,S DIP(1)=$S($D(^ANRV(2042.5,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,5) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DSCH. DATE"";L8;Z;""NUMDATE(BLIND REHAB DISCHARGE DATE)""~"
^DIPT(1179,"F",9)="1,7;~"
^DIPT(1179,"H")="VIS TEAM PATIENT REFERRAL RECORD"
^DIPT(1180,0)="ANRV CLAIM REC INQ^2980514.1623^^2043.5^^^2980514"
^DIPT(1180,"DXS",1,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(202)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1180,"DXS",1,9.3)="X DXS(1,9.2) S DIP(201)=X S X=$P(DIP(202),U,9),DIP(203)=X S X=1,DIP(204)=X S X=3,X=$E(DIP(203),DIP(204),X)_""-"",DIP(205)=X S X=$P(DIP(202),U,9),DIP(206)=X S X=4"
^DIPT(1180,"DXS",1,9.4)="X DXS(1,9.3) S DIP(207)=X S X=5,X=$E(DIP(206),DIP(207),X) S Y=X,X=DIP(205),X=X_Y_""-"",DIP(208)=X S X=$P(DIP(202),U,9),DIP(209)=X S X=6,DIP(210)=X S X=9"
^DIPT(1180,"DXS",2,9.2)="S I(100,0)=$S($D(D0):D0,1:""""),DIP(101)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(DIP(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(201)=$S($D(^DPT(D0,.31)):^(.31),1:"""")"
^DIPT(1180,"F",1)=""
^DIPT(1180,"F",2)="S X=""INDIVIDUAL VIST CLAIM RECORD"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""INDIVIDUAL VIST CLAIM RECORD"")""~"
^DIPT(1180,"F",3)="-2040,^ANRV(2040,^^S I(0,0)=D0 S DIP(1)=$S($D(^ANRV(2043.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~-2040,""Veteran's Name:"";C1;S2~"
^DIPT(1180,"F",4)="-2040,.01;C20~-2040,""Soc. Sec. No.:"";C1~"
^DIPT(1180,"F",5)="-2040,X DXS(1,9.4) S X=$E(DIP(209),DIP(210),X) S Y=X,X=DIP(208),X=X_Y S D0=I(100,0) W X K DIP;C20;Z;""NAME:$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~"
^DIPT(1180,"F",6)="-2040,""Claim No.:"";C1~"
^DIPT(1180,"F",7)="-2040,X DXS(2,9.2) S X=""c-"",DIP(202)=X,Y=$P(DIP(201),U,3) X:$D(^DD(2,.313,2)) ^(2) S X=Y,Y=X,X=DIP(202),X=X_Y S D0=I(100,0) W X K DIP;C20;Z;""NAME:""c-""_CLAIM NUMBER""~"
^DIPT(1180,"F",8)="""Date of Claim"";C1;S2;N~""Type of Claim"";C17;N~""Regional Office"";C45;N~""VARO Decision"";C68;N~"
^DIPT(1180,"F",9)="S X=""_"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",IOM)""~"
^DIPT(1180,"F",10)=""" "";S~1,.01;C1~1,.02;C17~1,.03;C45~1,.04;C68~"
^DIPT(1180,"H")="@"
^DIPT(1180,"SUB")="1"
^DIPT(1181,0)="ABSV ORGANIZATION CONDENSED^2980622.1637^^503335^^^2980817"
^DIPT(1181,"DCL","503335^38")="+"
^DIPT(1181,"DCL","503335^40")="+"
^DIPT(1181,"F",2)=".01~4~1~38~40~"
^DIPT(1181,"H")="VOLUNTEER HOURS BY ORGANIZATION (CONDENSED)"
^DIPT(1182,0)="ABSV SIGN-IN LIST^2980701.171^^503330^^^2980801"
^DIPT(1182,"F",2)=".01~1;L12~27;L6~"
^DIPT(1182,"H")="VOLUNTARY SIGN-IN CODE LIST"
^DIPT(1183,0)="WV PRINT PROC TYPE & ATTRIBS^2951116.1755^@^790.2^^@^2960127"
^DIPT(1183,"F",2)=".01~.12~.14;L12;C43~"
^DIPT(1183,"H")="WV PROCEDURE TYPE LIST"
^DIPT(1184,0)="WV PRINT RES/DIAG SYNONYMS^2960302.1052^@^790.31^^@^2980928"
^DIPT(1184,"F",2)=".3~""--"";""""~.31~""--"";""""~.01~"
^DIPT(1184,"H")="WV RESULTS/DIAGNOSIS LIST"
^DIPT(1185,0)="WV PRINT DIAG CODE TRANSLATION^2950526.1748^@^790.32^^@^2980928"
^DIPT(1185,"F",2)="""WOMEN'S HEALTH: "";X~.01;X~""RADIOLOGY: "";C6;X~.02;X~"" "";S1~"
^DIPT(1185,"H")="WV DIAGNOSTIC CODE TRANSLATION LIST"
^DIPT(1187,0)="RMPR LIST^3000524.1416^@^661.1^^@^3000524"
^DIPT(1187,"F",2)=".01~.02;""ITEM NAME""~6~5~I $P(^(0),U,8)=1 W ""*"";""MAIN COMPONENT"";Z;""I $P(^(0),U,8)=1 W ""*""""~"
^DIPT(1187,"H")="PROSTHETIC HCPCS LIST"
^DIPT(1188,0)="XDR BRIEF LIST^3020312.1137^@^15^^@^3020312"
^DIPT(1188,"F",1)="""IEN: "";S1;C8~0;X~""RECORD 1: "";C3~.01;X~S X=+^VA(15,D0,0) W "" [IEN: ""_X_""]"";X;Z;""S X=+^VA(15,D0,0) W "" [IEN: ""_X_""]""""~"
^DIPT(1188,"F",2)="I XDRFL=2 S X=$P(^DPT(+^VA(15,D0,0),0),U,9) W "" SSN: ""_X;X;Z;""I XDRFL=2 S X=$P(^DPT(+^VA(15,D0,0),0),U,9) W "" SSN: ""_X""~""RECORD 2: "";C3~.02;X~"
^DIPT(1188,"F",3)="S X=+$P(^VA(15,D0,0),U,2) W "" [IEN: ""_X_""]"";X;Z;""S X=+$P(^VA(15,D0,0),U,2) W "" [IEN: ""_X_""]""""~"
^DIPT(1188,"F",4)="I XDRFL=2 S X=$P(^DPT(+$P(^VA(15,D0,0),U,2),0),U,9) W "" SSN: ""_X;X;Z;""I XDRFL=2 S X=$P(^DPT(+$P(^VA(15,D0,0),U,2),0),U,9) W "" SSN: ""_X""~"
^DIPT(1188,"F",5)="""STATUS: "";C5~.03;X~""SCORE %: "";C4~.19;X;L3~"
^DIPT(1188,"H")="DUPLICATE RECORD LIST"
^DIPT(1189,0)="DG NPTF TOTALS^2980922.1145^^772^^@^2981014"
^DIPT(1189,"DCL","779.001^2")="!"
^DIPT(1189,"DNP")="1"
^DIPT(1189,"F",1)="-101,^ORD(101,^^S I(0,0)=D0 S DIP(1)=$S($D(^HL(772,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10),X=X S D(0)=+X;Z;""10:""~"
^DIPT(1189,"F",2)="-101,-779.001,^HL(779.001,^^S I(100,0)=D0 S DIP(101)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$P(DIP(101),U,4),X=X S D(0)=+X;Z;""770.4:""~-101,-779.001,2;""""~"
^DIPT(1189,"H")="HL7 MESSAGE TEXT STATISTICS"
^DIPT(1190,0)="PRCS CP ITEMHIST^2980205.0833^^410^^^2980922"
^DIPT(1190,"F",1)="44;C01~"
^DIPT(1190,"F",2)="S DIP(1)=$S($D(^PRCS(410,D0,0)):^(0),1:""""),DIP(2)=$S($D(^(4)):^(4),1:"""") S X=$P(DIP(1),U,5)_""-""_$P(DIP(2),U,5) W X K DIP;C13;Z;""STATION NUMBER_""-""_PURCHASE ORDER/OBLIGATION NO""~"
^DIPT(1190,"F",3)="10,14;C26~10,3;C35~10,7;C39~"
^DIPT(1190,"F",4)="10,S DIP(1)=$S($D(^PRCS(410,D0,""IT"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,7)*$P(DIP(1),U,2) W X K DIP;R8;D2;C59;Z;""EST. ITEM (UNIT) COST*QUANTITY""~"
^DIPT(1190,"F",5)="10,2;D0;R;C68~""VENDOR: **"";C01~11~"
^DIPT(1190,"H")="[PRCS CP ITEMHIST-HDR]"
^DIPT(1190,"IOM")="80"
^DIPT(1190,"LAST")=""
^DIPT(1190,"ROU")="^PRCSHP"
^DIPT(1190,"ROUOLD")="PRCSHP"
^DIPT(1191,0)="PRCS CP ITEMHIST-HDR^2980205.083^^410^^^2980922"
^DIPT(1191,"F",1)=""" "";C01~"" ITEM HISTORY"";C01~"" "";C01~"" "";C01~""Item Number: "";C01~D WRITMN^PRCSP1A;Z;""D WRITMN^PRCSP1A""~"
^DIPT(1191,"F",2)="""Description: "";C25~D WRITMD^PRCSP1A;Z;""D WRITMD^PRCSP1A""~"" "";C01~""Qty. Unit"";C26~"" "";C01~"
^DIPT(1191,"F",3)="""Prev. of Quantity"";C26~""Date Ordered PO Number Recd. Purch. Unit Cost Total Cost Ordered"";C01~"
^DIPT(1191,"F",4)="""_____________________________________________________________________________"";C01~"" "";C01~"
^DIPT(1191,"H")="@"
^DIPT(1191,"IOM")="80"
^DIPT(1191,"LAST")=""
^DIPT(1191,"ROU")="^PRCSHH"
^DIPT(1191,"ROUOLD")="PRCSHH"
^DIPT(1191,"SUB")="1"
^DIPT(1192,0)="PRCH ITEM TXHIST-HDR^2980331.1705^^442^^^2980722"
^DIPT(1192,"F",1)="""Item Number:"";C01~W ITMNO;Z;""W ITMNO""~""Description:"";C25~W ITMDESC;Z;""W ITMDESC""~"" "";C01~1~"" "";C01~""Quantity"";C25~""Previously Unit of"";C25~"
^DIPT(1192,"F",2)="""Quantity"";C72~""Date Ordered PO Number Received Purchase Unit Cost Total Cost Ordered"";C01~"
^DIPT(1192,"F",3)="""------------ ---------- ----------- -------- --------- ---------- --------"";C01~"
^DIPT(1192,"H")="@"
^DIPT(1192,"IOM")="80"
^DIPT(1192,"LAST")=""
^DIPT(1192,"ROU")="^PRCHIH1"
^DIPT(1192,"ROUOLD")="PRCHIH1"
^DIPT(1192,"SUB")="1"
^DIPT(1193,0)="PRCH ITEM TXHIST^2980626.1056^^442^^^2980722"
^DIPT(1193,"F",1)=".1;""Date Ordered""~.01;""PO Number""~40,11;C25;""Quantity Previous Received""~40,3;""Unit of Purchase""~40,"" "";C43~"
^DIPT(1193,"F",2)="40,D CALCCST^PRCHRPTX;""Unit Cost"";Z;""D CALCCST^PRCHRPTX""~40,15;""Total Cost""~40,2;""Quantity Ordered"";D0;R~5;C01~"
^DIPT(1193,"H")="[PRCH ITEM TXHIST-HDR]"
^DIPT(1193,"IOM")="80"
^DIPT(1193,"LAST")=""
^DIPT(1193,"ROU")="^PRCHI1"
^DIPT(1193,"ROUOLD")="PRCHI1"
^DIPT(1194,0)="PSNACTION^3060315.0935^@^56^^@^3060317"
^DIPT(1194,"F",1)=".01~3;C52~4;C67~7;79~"
^DIPT(1194,"H")="DRUG INTERACTION LIST"
^DIPT(1195,0)="RCDMC REFERRED DEBTS^2980604.1523^^430^^^2980916"
^DIPT(1195,"DCL","430^122")="&"
^DIPT(1195,"DCL","430^123")="&"
^DIPT(1195,"DCL","430^124")="&"
^DIPT(1195,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 S D(0)=D0 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIPT(1195,"DXS",1,9.3)="X DXS(1,9.2) S DIP(101)=$S($D(^RCD(340,D0,0)):^(0),1:"""")"
^DIPT(1195,"DXS",1,9.4)="X DXS(1,9.3) S X=$P(DIP(101),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DIPT(1195,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,9) S:'$D(^RCD(340,+D0,0)) D0=-1 S DIP(101)=$S($D(^RCD(340,D0,3)):^(3),1:"""")"
^DIPT(1195,"F",1)="9;L15;N;""PATIENT""~"
^DIPT(1195,"F",2)="-2,^DPT(^^X DXS(1,9.4) K DIC S DIC=""^DPT("",DIC(0)=""NMF"" D ^DIC S (D,D0,D(0))=+Y S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,1) S D0=I(0,0);Z;""DEBTOR:.01:PATIENT:""~"
^DIPT(1195,"F",3)="-2,.364;L4;""SSN"";N~"
^DIPT(1195,"F",4)="S DIP(1)=$S($D(^PRCA(430,D0,12)):^(12),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;L8;""DT SENT"";Z;""NUMDATE(DATE SENT TO DMC)""~"
^DIPT(1195,"F",5)="S DIP(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=""-"",DIP(3)=X S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;L8;""BILL NO."";Z;""$P(BILL NO.,""-"",2)""~"
^DIPT(1195,"F",6)="122;R10;""DMC PRIN""~123;R7;""DMC INT""~124;R7;""DMC ADM""~X DXS(2,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;N;D2;R7;""LSR AMT"";Z;""DEBTOR:LESSER WITH""~"
^DIPT(1195,"H")="DMC REFERRED DEBTS"
^DIPT(1196,0)="PSO COST STAT^2990622.094^^50.9^^^2990622"
^DIPT(1196,"DCL","50.9006^-1")="&"
^DIPT(1196,"DCL","50.9006^.04")="&"
^DIPT(1196,"DCL","50.9006^.06")="&"
^DIPT(1196,"DCL","50.9006^.07")="&"
^DIPT(1196,"DCL","50.9006^.08")="&"
^DIPT(1196,"F",1)="6,S DIP(1)=$S($D(^PSCST(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S Y=X D DT K DIP;""Filled"";L18;Z;""FILLED DATE""~"
^DIPT(1196,"F",2)="6,X $P(^DD(50.9,.035,0),U,5,99) S DIP(1)=X S X=DIP(1);C13;R8;""Fills"";;Z;""TOTAL FILLS"";&~6,.06;C25;""Mails"";~6,.07;c35;""Window"";~6,.08;c45;""Requests"";;;~"
^DIPT(1196,"F",3)="6,.04;c57;""Total Costs"";~6,X $P(^DD(50.9,.045,0),U,5,99) S DIP(1)=X S X=DIP(1);R12;""Avg. Cost/Fill"";;Z;""AVE COST/FILL"";&~"
^DIPT(1196,"H")="DRUG COST LIST"
^DIPT(1197,0)="PSO ACTION PROFILE #2^2970815.091^@^44^^@^2970924"
^DIPT(1197,"DXS",1,9)="I DFN>0 W ! D HD^PSOSD2 Q:$D(DIRUT) D PAT^PSOSD Q:$D(DIRUT) D RXPAD^PSOSD1:PSTYPE W:'$G(PSTYPE)&('$D(^TMP(""PSOD"",$J))) @IOF D ENSTUFF^PSODACT"
^DIPT(1197,"F",1)="I $D(DIRUT) G CLNAP^PSOHELP;Z;""I $D(DIRUT) G CLNAP^PSOHELP""~S CLINICX=$P(^SC(D0,0),U);"""";Z;""S CLINICX=$P(^SC(D0,0),U)""~"
^DIPT(1197,"F",2)="1900,I $D(DIRUT) G CLNAP^PSOHELP;Z;""I $D(DIRUT) G CLNAP^PSOHELP""~1900,S CLDT=D1;"""";Z;""S CLDT=D1""~"
^DIPT(1197,"F",3)="1900,2,I $D(DIRUT) G CLNAP^PSOHELP;Z;""I $D(DIRUT) G CLNAP^PSOHELP""~1900,2,S PAGE=1;"""";Z;""S PAGE=1""~"
^DIPT(1197,"F",4)="1900,2,S DFN=$S($D(^SC(D0,""S"",D1,1,D2,0)):+^(0),1:0);Z;""S DFN=$S($D(^SC(D0,""S"",D1,1,D2,0)):+^(0),1:0)""~"
^DIPT(1197,"F",5)="1900,2,S CAN=$S($P($G(^SC(D0,""S"",D1,1,D2,0)),U,9)="""":1,1:0);Z;""S CAN=$S($P($G(^SC(D0,""S"",D1,1,D2,0)),U,9)="""":1,1:0)""~"
^DIPT(1197,"F",6)="1900,2,I 'CAN!($D(DIRUT)) G CLNAP^PSOHELP;Z;""I 'CAN!($D(DIRUT)) G CLNAP^PSOHELP""~"
^DIPT(1197,"F",7)="1900,2,X DXS(1,9);"""";Z;""I DFN>0 W ! D HD^PSOSD2 Q:$D(DIRUT) D PAT^PSOSD Q:$D(DIRUT) D RXPAD^PSOSD1:PSTYPE W:'$G(PSTYPE)&('$D(^TMP(""PSOD"",$J))) @IOF D ENSTUFF^PSODACT""~"
^DIPT(1197,"F",8)="1900,2,I $D(DIRUT) G CLNAP^PSOHELP;Z;""I $D(DIRUT) G CLNAP^PSOHELP""~1900,2,D ^PSOSD3;Z;""D ^PSOSD3""~"
^DIPT(1197,"F",9)="1900,I $D(DIRUT) G CLNAP^PSOHELP;Z;""I $D(DIRUT) G CLNAP^PSOHELP""~I $D(DIRUT) G CLNAP^PSOHELP;Z;""I $D(DIRUT) G CLNAP^PSOHELP""~"
^DIPT(1197,"H")="@"
^DIPT(1197,"IOM")="132"
^DIPT(1197,"LAST")=""
^DIPT(1197,"ROU")="^PSOXX"
^DIPT(1197,"ROUOLD")="PSOXX"
^DIPT(1197,"SUB")="1"
^DIPT(1198,0)="PSO BBWAIT PRINT^2970721.1639^@^52.11^^@^2970925"
^DIPT(1198,"DCL","52.1112^3")="#"
^DIPT(1198,"F",2)="8;N;L20;C1~5;C30~6;""TIME OUT"";C40~12,.01;""Rx#"";C55~12,3;C70~"
^DIPT(1198,"H")="BINGO BOARD WAIT TIME REPORT"
^DIPT(1199,0)="PSJ DOSAGE FORM REPORT^2950224.1011^@^50.606^^@^2950313"
^DIPT(1199,"F",2)=".01;L25;S1~3;L8~4;L15~5;L10~1,.01;L15~2,.01;12~"
^DIPT(1199,"H")="DOSAGE FORM LIST"
^DIPT(1200,0)="PRCH BOC PRINT^2990401.0938^^440.6^^^2990416"
^DIPT(1200,"%D",0)="^^1^1^2981026^"
^DIPT(1200,"%D",1,0)="This is the companion print template for sort PRCH BOC SORT."
^DIPT(1200,"F",2)="24~6~.01~41~18~13~31~W "" "";X;C1;Z;""W "" """"~"
^DIPT(1200,"H")="PURCHASE CARD/SUPPLY FUND DOC ID RECONCILIATION"
^DIPT(1201,0)="ABSV GAMES WORK SCHEDULE^2990208.1316^^503330^^^2990422"
^DIPT(1201,"DCL","503330.03^2")="!"
^DIPT(1201,"DCL","503330.03^3")="!"
^DIPT(1201,"F",2)=".01~27;L5~8.5,2;""DAY CODE"";L5~8.5,3;""ASSIGNMENT"";L12~"
^DIPT(1201,"H")="DAILY WORK SCHEDULE"
^DIPT(1202,0)="ABSV GAMES ASSIGNMENT SCHEDULE^2990208.1606^^503330^^^2990422"
^DIPT(1202,"DCL","503330.03^3")="!"
^DIPT(1202,"F",2)=".01~27;R8~8.5,3;""ASSIGNMENT"";R10;~8.5,2;""DAY CODE"";R5~"
^DIPT(1202,"H")="SERVICE ASSIGNMENT SCHEDULE"
^DIPT(1203,0)="ABSV GAMES MASTER REGISTRATION^2990217.0922^^503330^^^2990309"
^DIPT(1203,"F",2)=".01~27;""LOG-IN CODE""~8.5,4;""ASSIGNMENTS""~"
^DIPT(1203,"H")="MASTER REGISTRATION LIST"
^DIPT(1204,0)="ABSV GAMES SHIRT LIST^2990308.131^^503330^^^2990309"
^DIPT(1204,"F",2)=".01;S;L35~27~30;""SIZE""~W $$LINE^ABSVU2($G(ABSVLINE));""SIGNATURE"";Z;""W $$LINE^ABSVU2($G(ABSVLINE))""~"
^DIPT(1204,"H")="SHIRT ISSUE LIST"
^DIPT(1205,0)="ABSV GAMES SIGN-IN LIST^2990310.0832^^503330^^^2990310"
^DIPT(1205,"F",2)=".01;S~27;""LOG IN CODE""~W $$LINE^ABSVU2($G(ABSVLINE));""SIGNATURE"";Z;""W $$LINE^ABSVU2($G(ABSVLINE))""~"
^DIPT(1205,"H")="GAMES SIGN-IN ROSTER"
^DIPT(1206,0)="QAC STATUS HEADER^2981218.1322^@^745.1^^@^2990408"
^DIPT(1206,"F",1)="""List of Open Cases""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1206,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1206,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Date of"";C1~""Contact"";C1~""Patient Name"";C14~""SSN"";C46~""Contact #"";C57~"
^DIPT(1206,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1206,"H")="LIST OF OPEN CASES"
^DIPT(1207,0)="QAC EMP CONTACT HEADER^2981223.111^@^745.1^^@^2990408"
^DIPT(1207,"F",1)="""Employee Contact Totals""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE"";C70~"
^DIPT(1207,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1207,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Contact"";C35~""Patient"";C2~""Date"";C35~"
^DIPT(1207,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1207,"H")="EMPLOYEE CONTACT TOTALS"
^DIPT(1208,0)="QAC DISC RPT HEADER^2990111.1544^@^745.1^^@^2990413"
^DIPT(1208,"F",1)="""Discipline Contact Totals""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1208,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1208,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Contact"";C1~""Date"";C1~""Patient"";C15~""SSN"";C45~""Contact #"";C65~""Issue Text"";C3~"
^DIPT(1208,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1208,"H")="DISCIPLINE CONTACT TOTALS"
^DIPT(1209,0)="QAC NOPAT HEADER^2981223.1112^@^745.1^^@^2990408"
^DIPT(1209,"F",1)="""Contacts with No Patient Identified""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1209,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1209,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Contact"";C1~""Date Of"";C17~""Number"";C1~""Contact"";C17~"
^DIPT(1209,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1209,"H")="CONTACTS WITH NO PATIENT IDENTIFIED"
^DIPT(1210,0)="QAC RESP DUE HEADER^2990107.103^@^745.1^^@^2990408"
^DIPT(1210,"F",1)="""Responses Due""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1210,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1210,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Contact #"";C1~""Patient Name"";C15~""SSN"";C44~""Refer To"";C57~""Issue Codes"";C1~"
^DIPT(1210,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1210,"H")="RESPONSES DUE"
^DIPT(1211,0)="QAC DISC SERV RPT HEADER^2990111.154^@^745.1^^@^2990413"
^DIPT(1211,"F",1)="""Service/Discipline Contact Totals""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C48;L18;Z;""NOW""~""PAGE "";C70~"
^DIPT(1211,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Date Range Selected: "";C15~S Y=QAQNBEG D DD^%DT W Y;X;Z;""S Y=QAQNBEG D DD^%DT W Y""~"" to "";X~"
^DIPT(1211,"F",3)="S Y=QAQNEND D DD^%DT W Y;X;Z;""S Y=QAQNEND D DD^%DT W Y""~""Contact"";C1~""Date"";C1~""Patient"";C15~""SSN"";C45~""Contact #"";C65~""Issue Text"";C3~"
^DIPT(1211,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1211,"H")="SERVICE/DISCIPLINE CONTACT TOTALS"
^DIPT(1212,0)="IBJD DM V/P EXTRACTS^2990317.1242^^351.71^^^2990606"
^DIPT(1212,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(351.711,.02,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^IBE(351.71,D0,1,D1,0)):^(0),1:"""") S X="" (""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,2)_"":"",2),$C(59),1)"
^DIPT(1212,"F",2)="1,""Report: "";C3;S1~1,.01;L50;X~1,X DXS(1,9.2) S X=X_"")"" W X K DIP;X;Z;"""" (""_STATUS_"")""""~1,1,.01;C1;L50;X~1,1,.02;C54;R10;X~"
^DIPT(1212,"H")="@"
^DIPT(1212,"SUB")="1"
^DIPT(1213,0)="IBJD DM REPT PRINT^2990513.1656^^351.71^^^2990518"
^DIPT(1213,"F",2)="1,.01;C2;L45;X~1,"" (Status: ""~1,.02;X~1,"")""~"
^DIPT(1213,"H")="@"
^DIPT(1213,"SUB")="1"
^DIPT(1214,0)="PSNLOCAL^2990224.0836^@^56^^@^2990310"
^DIPT(1214,"F",2)=".01~3;C52~"
^DIPT(1214,"H")="DRUG INTERACTION LIST"
^DIPT(1215,0)="RGEQ STAT^2980120.0928^@^995.2^^@^2990422"
^DIPT(1215,"DCL","995.2^1.01")="&"
^DIPT(1215,"DCL","995.2^1.02")="&"
^DIPT(1215,"F",2)=".02;""EVENT""~1.01~1.02~"
^DIPT(1215,"H")="CIRN EVENT"
^DIPT(1216,0)="MPIF OUTSTANDING REQUESTS^2971006.1122^@^984.9^^@^2990429"
^DIPT(1216,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=20"
^DIPT(1216,"DXS",1,9.3)="X DXS(1,9.2) S X=$E(DIP(2),DIP(3),X)_"" ("",DIP(4)=X,D0=$P(DIP(1),U,4) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9)"
^DIPT(1216,"F",1)=".01;L10;""Request Number""~101;L20;""Requested By""~"
^DIPT(1216,"F",2)="X DXS(1,9.3) S DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) S Y=X,X=DIP(4),X=X_Y_"")"" S D0=I(0,0) W X K DIP;L27;""Patient"";Z;""$E(PATIENT,1,20)_"" (""_$E(PATIENT:SSN,6,9)_"")""""~"
^DIPT(1216,"F",3)=".03;""Date Requested""~""Reason: "";C5~1.02;X~"
^DIPT(1216,"H")="Pending CMOR Requests"
^DIPT(1217,0)="MPIF REQUEST VIEW^2980204.1426^@^984.9^^@^2990401"
^DIPT(1217,"DXS",1,9.2)="S DIP(2)=$C(59)_$S($D(^DD(984.9,.08,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=""View of CMOR Request {""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(1217,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=15"
^DIPT(1217,"DXS",2,9.3)="X DXS(2,9.2) S X=$E(DIP(2),DIP(3),X)_"" ("",DIP(4)=X,D0=$P(DIP(1),U,4) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9)"
^DIPT(1217,"DXS",3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(DIP(1),U,7),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=1,DIP(3)=X S X=15"
^DIPT(1217,"DXS",3,9.3)="X DXS(3,9.2) S X=$E(DIP(2),DIP(3),X)_"" ("",DIP(4)=X,D0=$P(DIP(1),U,7) S:'$D(^DIC(4,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(DIP(101),U,1)"
^DIPT(1217,"F",1)="S X=DT S Y=X D DT K DIP;C1;L18;Z;""TODAY""~"
^DIPT(1217,"F",2)="X DXS(1,9.2) S X=X_""}"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""View of CMOR Request {""_#.08_""}"")""~"
^DIPT(1217,"F",3)=".01;C70;X~S X=""-"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",80)""~""Requested by: "";C2~"
^DIPT(1217,"F",4)="101;L20;X~""Date: "";C53~.03;X~""Phone (req): "";C3~.05;X~""Patient: "";C7~"
^DIPT(1217,"F",5)="X DXS(2,9.3) S DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) S Y=X,X=DIP(4),X=X_Y_"")"" S D0=I(0,0) W X K DIP;X;Z;""$E(PATIENT,1,15)_"" (""_$E(PATIENT:SSN,6,9)_"")""""~"
^DIPT(1217,"F",6)="""Type: "";C53~1.03;X~""Status: "";C8~.06;X~X DXS(3,9.3) S Y=X,X=DIP(4),X=X_Y_"")"" S D0=I(0,0) W X K DIP;C59;Z;""$E(#.07,1,15)_"" (""_(#.07:#99)_"")""""~"
^DIPT(1217,"F",7)="""Reviewed by: "";C3~102;L20;X~""Date: "";C53~2.02;X~""Phone (rev): "";C3~2.03;X~"
^DIPT(1217,"F",8)="S X=""-"",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",79)""~""Requestor Comments: "";C1~"
^DIPT(1217,"F",9)="1.02;C3~"" "";C1~""Reviewer Comments: "";C1~3.02;C3~"
^DIPT(1217,"H")="@"
^DIPT(1217,"SUB")="1"
^DIPT(1218,0)="DGENCD ELIG CODE^2990617.1709^^2^^@^2990707"
^DIPT(1218,"DXS",1,9.2)="S DIP(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),DIP(2)=X S X=1,DIP(3)=X S X=3,X=$E(DIP(2),DIP(3),X)_""-"",DIP(4)=X S X=$P(DIP(1),U,9),DIP(5)=X S X=4"
^DIPT(1218,"DXS",1,9.3)="X DXS(1,9.2) S DIP(6)=X S X=5,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""-"",DIP(7)=X S X=$P(DIP(1),U,9),DIP(8)=X S X=6,DIP(9)=X S X=9"
^DIPT(1218,"F",2)=".01;L30;C1;S1~X DXS(1,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(7),X=X_Y W X K DIP;L11;Z;""$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)""~.361;L35~361,.01;C50~"
^DIPT(1218,"H")="[DGENCD ELIG HDR]"
^DIPT(1219,0)="DGENCD ELIG HDR^2990617.1711^^2^^@^2990707"
^DIPT(1219,"F",1)="""Patients with inactivated 'CATASTROPHICALLY DISABLED' Eligibility Code"";C1;X;Y1~"
^DIPT(1219,"F",2)="""The following patients have been identified as having either a Primary"";S1;C1;X~"
^DIPT(1219,"F",3)="""or Secondary Eligibility Code of Catastrophically Disabled. This"";C1;X~""Eligibility Code is being inactivated, therefore please remove it and"";C1;X~"
^DIPT(1219,"F",4)="""assign an appropriate Eligibility Code to these patients."";C1;X~""Run Date: "";C1;S1;X~"
^DIPT(1219,"F",5)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;X;L18;Z;""NOW""~""Page "";C70;X~"
^DIPT(1219,"F",6)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;L3;X;Z;""PAGE""~""Patient Name"";C1;X~""SSN"";C33;X~""Primary Eligibility Code"";C45;X~""Other Patient Eligibilities"";C50;X~"
^DIPT(1219,"F",7)="S X=""="",DIP(1)=X S X=79,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""="",79)""~"""";S1;C1;X~"
^DIPT(1219,"H")="@"
^DIPT(1219,"SUB")="1"
^DIPT(1220,0)="RMPO ACTIVE PRINT^2971215.1525^^665^^^2971215"
^DIPT(1220,"F",2)=".01;""Patient Name: ""~19.3,.01;""Rx Number""~19.3,1;""Current Rx Date""~"
^DIPT(1220,"H")="LIST OF ACTIVE HOME OXYGEN PATIENTS"
^DIPT(1221,0)="RMPO PAT LIST^2971216.0836^^665^^^2990202"
^DIPT(1221,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(665,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1221,"F",2)=".01;""Patient Name""~X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) W X K DIP;""SSN"";Z;""NAME:SSN""~19.3,2;""Expire Date""~"
^DIPT(1221,"H")="HOME OXYGEN LETTERS LIST"
^DIPT(1222,0)="RMPO-RPT-HOPRIITM^2990114.0925^@^665^^@^2990202"
^DIPT(1222,"F",2)="19.4,.01;N~.01~"
^DIPT(1222,"H")="PROSTHETICS PATIENT LIST"
^DIPT(1223,0)="RMPO-RPT-PRINT-HOACTZIPLIST^2990202.0915^@^665^^@^2990914"
^DIPT(1223,"DXS",1,9.2)="S DIP(101)=$S($D(^DPT(D0,.11)):^(.11),1:""""),Y=$P(DIP(101),U,12) X:$D(^DD(2,.1112,2)) ^(2) S X=Y="""",DIP(102)=X S X=""No zip code"",DIP(103)=X S X=1,DIP(104)=X"
^DIPT(1223,"DXS",2,9.2)="S DIP(201)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(DIP(201),U,2)="""",DIP(202)=X S X="""",DIP(203)=X S X=1,DIP(204)=X S X="" ,""_$P(DIP(201),U,2)"
^DIPT(1223,"F",1)="-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""`.01:""~"
^DIPT(1223,"F",2)="-2,X DXS(1,9.2) S DIP(105)=X,Y=$P(DIP(101),U,12) X:$D(^DD(2,.1112,2)) ^(2) S X=Y,X=$S(DIP(102):DIP(103),DIP(104):X) W X K DIP;S1;L10;""Zip Code"";Z;""$S(ZIP+4="""":""No zip code"",1:ZIP+4)""~"
^DIPT(1223,"F",3)="-2,.01;C13;L22;""Name/Phone Number""~"
^DIPT(1223,"F",4)="-2,S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) W X K DIP;""SSN"";C37;L4;Z;""$E(SOCIAL SECURITY NUMBER,6,9)""~"
^DIPT(1223,"F",5)="-2,.111;C45;L30;""Address""~-2,.131;C13;X~-2,.112;C45;L30;X~-2,.114;C45;X~"
^DIPT(1223,"F",6)="-2,-5,^DIC(5,^^S I(100,0)=D0 S DIP(101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(DIP(101),U,5),X=X S D(0)=+X;Z;"".115:""~"
^DIPT(1223,"F",7)="-2,-5,X DXS(2,9.2) S X=$S(DIP(202):DIP(203),DIP(204):X) W X K DIP;X;Z;""$S(ABBREVIATION="""":"""",1:"" ,""_ABBREVIATION)""~"
^DIPT(1223,"H")="ACTIVE HOME OXYGEN PATIENT BY ZIP CODE"
^DIPT(1224,0)="RMPO-RPT-PRINT-HORXEXP^2990127.1534^@^665^^@^2990128"
^DIPT(1224,"DXS",1,9.2)="S DIP(1)=$S($D(^RMPR(665,D0,""RMPOB"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=4,DIP(3)=X S X=5,X=$E(DIP(2),DIP(3),X)_""/"",DIP(4)=X S X=$P(DIP(1),U,3)"
^DIPT(1224,"DXS",1,9.3)="X DXS(1,9.2) S DIP(5)=X S X=6,DIP(6)=X S X=7,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""/"",DIP(7)=X,DIP(8)=X S X=$P(DIP(1),U,3),DIP(9)=X S X=1,DIP(10)=X S X=3"
^DIPT(1224,"DXS",2,9)="X DXS(2,9.2) S X=X[""Y"",DIP(3)=X,DIP(4)=X,Y=$P(DIP(1),U,1) X:$D(^DD(665.194,.01,2)) ^(2) S X=Y,DIP(5)=X S X=1,DIP(6)=X S X="""",X=$S(DIP(3):DIP(5),DIP(6):X)"
^DIPT(1224,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(665.194,10,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^RMPR(665,D0,""RMPOC"",D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(1224,"DXS",3,9.2)="S X=19.2,DIP(1)=X S X=4,DIP(2)=X S X=5,X=$E(DIP(1),DIP(2),X)_""/"",DIP(3)=X S X=19.2,DIP(4)=X S X=6,DIP(5)=X S X=7,X=$E(DIP(4),DIP(5),X) S Y=X,X=DIP(3),X=X"
^DIPT(1224,"F",1)=""
^DIPT(1224,"F",2)="19.3,X DXS(1,9.3) S X=$E(DIP(9),DIP(10),X)+1700,Y=X,X=DIP(7),X=X_Y W X K DIP;C1;L10;Z;""$E(EXPIRATION DATE,4,5)_""/""_$E(EXPIRATION DATE,6,7)_""/""_($E(EXPIRATION DATE,1,3)+1700)""~"
^DIPT(1224,"F",3)=".01;C12;L22~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(1224,"F",4)="-2,S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) W X K DIP;C36;L4;Z;""$E(SOCIAL SECURITY NUMBER,6,9)""~"
^DIPT(1224,"F",5)="19.4,X DXS(2,9) W X K DIP;C42;L29;Z;""$S(PRIMARY ITEM[""Y"":ITEM,1:"""")""~"
^DIPT(1224,"F",6)="X DXS(3,9.2) S X=X_Y_""/"",DIP(6)=X S X=19.2,DIP(7)=X S X=2,DIP(8)=X S X=3,X=$E(DIP(7),DIP(8),X) S Y=X,X=DIP(6),X=X_Y W X K DIP;C72;L8;Z;""$E(19.2,4,5)_""/""_$E(19.2,6,7)_""/""_$E(19.2,2,3)""~"
^DIPT(1224,"H")="HOME OXYGEN PATIENT PRESCRIPTION EXPIRATION DATE"
^DIPT(1225,0)="RMPO-PRINT-RPD2^2990115.17^@^665^^@^2990115"
^DIPT(1225,"DXS",1,9.2)="S DIP(1)=$S($D(^RMPR(665,D0,""RMPOB"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=4,DIP(3)=X S X=5,X=$E(DIP(2),DIP(3),X)_""/"",DIP(4)=X S X=$P(DIP(1),U,3)"
^DIPT(1225,"DXS",1,9.3)="X DXS(1,9.2) S DIP(5)=X S X=6,DIP(6)=X S X=7,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_""/"",DIP(7)=X,DIP(8)=X S X=$P(DIP(1),U,3),DIP(9)=X S X=1,DIP(10)=X S X=3"
^DIPT(1225,"DXS",2,9)="X DXS(2,9.2) S X=X[""Y"",DIP(3)=X,DIP(4)=X,Y=$P(DIP(1),U,1) X:$D(^DD(665.194,.01,2)) ^(2) S X=Y,DIP(5)=X S X=1,DIP(6)=X S X="""",X=$S(DIP(3):DIP(5),DIP(6):X)"
^DIPT(1225,"DXS",2,9.2)="S DIP(2)=$C(59)_$S($D(^DD(665.194,10,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^RMPR(665,D0,""RMPOC"",D1,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(1225,"F",1)=""
^DIPT(1225,"F",2)="19.3,X DXS(1,9.3) S X=$E(DIP(9),DIP(10),X)+1700,Y=X,X=DIP(7),X=X_Y W X K DIP;C1;L10;Z;""$E(EXPIRATION DATE,4,5)_""/""_$E(EXPIRATION DATE,6,7)_""/""_($E(EXPIRATION DATE,1,3)+1700)""~"
^DIPT(1225,"F",3)=".01;C12;L22~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""NAME:""~"
^DIPT(1225,"F",4)="-2,S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) W X K DIP;C36;L4;Z;""$E(SOCIAL SECURITY NUMBER,6,9)""~"
^DIPT(1225,"F",5)="19.2;C73;L6~19.4,X DXS(2,9) W X K DIP;C42;L30;Z;""$S(PRIMARY ITEM[""Y"":ITEM,1:"""")""~"
^DIPT(1225,"H")="PROSTHETICS PATIENT LIST"
^DIPT(1226,0)="RMPO-BILLING-PRESORT^2990203.0611^@^665^^@^2990914"
^DIPT(1226,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),DIP(1)=$S($D(^RMPR(665,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1226,"F",1)=".01;C1;L25;""Name""~"
^DIPT(1226,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,9),DIP(102)=X S X=6,DIP(103)=X S X=9,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) W X K DIP;C30;L7;""SSN"";Z;""$E(NAME:SSN,6,9)""~"
^DIPT(1226,"F",3)="W $$BLDSTAT^RMPOBIL0(D0);""Reason"";Z;""W $$BLDSTAT^RMPOBIL0(D0)""~"
^DIPT(1226,"H")="HOME OXYGEN PRE-BILLING REPORT"
^DIPT(1227,0)="DG MISSING SSN PRINT^2990104.1137^@^200^^@^2990218"
^DIPT(1227,"F",2)="0;""NUMBER (DUZ)""~.01~9~202~"
^DIPT(1227,"H")="LIST OF ACTIVE USERS WITHOUT A SSN"
^DIPT(1228,0)="SCCV REQUEST LOG PRINT^2981009.1001^@^404.98^^@^2981029"
^DIPT(1228,"DXS",1,9)="X DXS(1,9.2) S X=X_Y_""-"",DIP(3)=X S X=$P(DIP(2),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(3),X=X S X=X_Y"
^DIPT(1228,"DXS",1,9.2)="S DIP(2)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=""CST Date Range: "",DIP(1)=X S X=$P(DIP(2),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1228,"DXS",2,9)="X DXS(2,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(2),X=X S X=X_Y"
^DIPT(1228,"DXS",2,9.2)="S DIP(1)=$S($D(^SD(404.98,D0,""R"",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) S X=X_"" "",DIP(2)=X S X=$P(DIP(1),U,1)"
^DIPT(1228,"DXS",3,9)="X DXS(3,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(2),X=X S X=X_Y"
^DIPT(1228,"DXS",3,9.2)="S DIP(1)=$S($D(^SD(404.98,D0,""R"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X_"" "",DIP(2)=X S X=$P(DIP(1),U,4)"
^DIPT(1228,"DXS",4,9.2)="S DIP(1)=$S($D(^SD(404.98,D0,""R"",D1,0)):^(0),1:"""") S X=$P(DIP(1),U,5)'="""",DIP(2)=X,DIP(3)=X S X=$P(DIP(1),U,5) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(1228,"DXS",4,9.3)="X DXS(4,9.2) S X=X_"" "",DIP(4)=X S X=$P(DIP(1),U,5)"
^DIPT(1228,"DXS",4,9.4)="X DXS(4,9.3) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(4),X=X S X=X_Y"
^DIPT(1228,"F",1)="X DXS(1,9) W X K DIP;"""";C4;N;Z;""""CST Date Range: ""_NUMDATE(START DATE)_""-""_NUMDATE(END DATE)""~"
^DIPT(1228,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-4,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C4;"""";X;N;Z;""DUP(""-"",IOM-4)""~"
^DIPT(1228,"F",3)="25,X DXS(2,9) W X K DIP;""REQUEST DATE/TIME""END;L17;C4;Z;""NUMDATE(REQUEST DATE/TIME)_"" ""_TIME(REQUEST DATE/TIME)""~25,.02;""ACTION""~25,.03~"
^DIPT(1228,"F",4)="25,X DXS(3,9) W X K DIP;""START DATE/TIME"";L17;Z;""NUMDATE(START DATE/TIME)_"" ""_TIME(START DATE/TIME)""~"
^DIPT(1228,"F",5)="25,X DXS(4,9.4) S DIP(5)=X S X=1,DIP(6)=X S X="""",X=$S(DIP(2):DIP(5),DIP(6):X) W X K DIP;""STOP DATE/TIME"";L17;Z;""$S(STOP DATE/TIME'="""":NUMDATE(STOP DATE/TIME)_"" ""_TIME(STOP DATE/TIME),1:"""")""~"
^DIPT(1228,"F",6)="25,S DIP(1)=$S($D(^SD(404.98,D0,""R"",D1,0)):^(0),1:"""") S X=""User: ""_$S('$D(^VA(200,+$P(DIP(1),U,6),0)):"""",1:$P(^(0),U,1)) W X K DIP;"""";C4;Z;""""User: ""_USER""~"
^DIPT(1228,"F",7)="25,S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-4,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C4;"""";X;Z;""DUP(""-"",IOM-4)""~"
^DIPT(1228,"H")="CST ACTION REQUEST LOG PRINT"
^DIPT(1229,0)="SCCV EVENT LOG PRINT^2981009.1014^@^404.98^^@^2990120"
^DIPT(1229,"DXS",1,9)="X DXS(1,9.2) S X=X_Y_""-"",DIP(3)=X S X=$P(DIP(2),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(3),X=X S X=X_Y"
^DIPT(1229,"DXS",1,9.2)="S DIP(2)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=""CST Date Range: "",DIP(1)=X S X=$P(DIP(2),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1229,"DXS",2,9)="X DXS(2,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(2),X=X S X=X_Y"
^DIPT(1229,"DXS",2,9.2)="S DIP(1)=$S($D(^SD(404.98,D0,""E"",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) S X=X_"" "",DIP(2)=X S X=$P(DIP(1),U,1)"
^DIPT(1229,"F",1)="X DXS(1,9) W X K DIP;N;C4;Z;""""CST Date Range: ""_NUMDATE(START DATE)_""-""_NUMDATE(END DATE)""~"
^DIPT(1229,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-4,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C4;"""";X;N;Z;""DUP(""-"",IOM-4)""~"
^DIPT(1229,"F",3)="75,X DXS(2,9) W X K DIP;""EVENT DATE/TIME""END;L17;C4;Z;""NUMDATE(EVENT DATE/TIME)_"" ""_TIME(EVENT DATE/TIME)""~75,.02;""STATUS/COMMENT""~75,.03~75,50,.01;C23;""""~"
^DIPT(1229,"F",4)="75,S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-4,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C4;"""";X;Z;""DUP(""-"",IOM-4)""~"
^DIPT(1229,"H")="CST EVENT LOG LIST"
^DIPT(1230,0)="SCCV ERROR LOG PRINT^2981009.1007^@^404.98^^@^2990108"
^DIPT(1230,"DXS",1,9)="X DXS(1,9.2) S X=X_Y_""-"",DIP(3)=X S X=$P(DIP(2),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(3),X=X S X=X_Y"
^DIPT(1230,"DXS",1,9.2)="S DIP(2)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=""CST Date Range: "",DIP(1)=X S X=$P(DIP(2),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1230,"F",1)="X DXS(1,9) W X K DIP;N;C4;Z;""""CST Date Range: ""_NUMDATE(START DATE)_""-""_NUMDATE(END DATE)""~"
^DIPT(1230,"F",2)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X-4,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C4;"""";X;N;Z;""DUP(""-"",IOM-4)""~"
^DIPT(1230,"F",3)="50,.01;W70;""""~"
^DIPT(1230,"H")="CST ERROR LOG LIST"
^DIPT(1231,0)="PRCH DEL. RECPRT^2990729.0903^@^440.6^^@^3000915"
^DIPT(1231,"DXS",1,9)="S DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,6),DIP(2)=X S X=$P(DIP(1),U,7),X1=X,X2=+1,X="""" D C^%DTC:X1 S X=X,X1=DIP(2) D ^XUWORKDY"
^DIPT(1231,"F",1)="41;L10~"
^DIPT(1231,"F",2)="S DIP(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""TRANSACTION DATE"";Z;""NUMDATE(TRANSACTION DATE)""~"
^DIPT(1231,"F",3)="S DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""CHARGE RECEIPT DATE"";Z;""NUMDATE(CHARGE RECEIVING DATE)""~"
^DIPT(1231,"F",4)="S DIP(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""RECONCILE DATE"";Z;""NUMDATE(RECONCILE DATE)""~"
^DIPT(1231,"F",5)="16;L20~X DXS(1,9) W X K DIP;""PAYMENT DATE TO RECONCILE TIMESPAN"";Z;""XUWORKDAY(#46,#47+1)""~"""";S~"
^DIPT(1231,"H")="DELINQUENT RECONCILIATIONS EXCEPTION LISTING"
^DIPT(1232,0)="IBCE LOCAL DATA ELEMENTS^3010118.1617^@^364.6^^@^3010705"
^DIPT(1232,"DXS",1,9)="S DIP(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10),DIP(2)=X S X="""",DIP(3)=X S X=20,X=$J(DIP(3),X) S Y=X,X=DIP(2),X=X_Y"
^DIPT(1232,"DXS",2,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^IBA(364.7,D,0)) S X=$P(^(0),U,1) S:$D(^IBA(364.6,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M"
^DIPT(1232,"DXS",2,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^IBA(364.7,""B"",I(0,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(2,9.2) Q:'$D(D) S D=D0"
^DIPT(1232,"DXS",3,9.2)="S DIP(102)=$S($D(^IBA(364.7,D0,0)):^(0),1:"""") S X=""INSURANCE COMPANY: "",DIP(101)=X S X=$S('$D(^DIC(36,+$P(DIP(102),U,5),0)):"""",1:$P(^(0),U,1))="""",DIP(103)=X S X=""ALL"""
^DIPT(1232,"DXS",3,9.3)="X DXS(3,9.2) S DIP(104)=X S X=1,DIP(105)=X S X=$S('$D(^DIC(36,+$P(DIP(102),U,5),0)):"""",1:$P(^(0),U,1))"
^DIPT(1232,"DXS",4,9)="X DXS(4,9.3) S X=$P($P(DIP(107),$C(59)_$P(DIP(102),U,6)_"":"",2),$C(59),1),X=$S(DIP(104):DIP(105),DIP(106):X) S Y=X,X=DIP(101),X=X_Y"
^DIPT(1232,"DXS",4,9.2)="S DIP(103)=$C(59)_$P($G(^DD(364.7,.06,0)),U,3),DIP(107)=$C(59)_$P($G(^DD(364.7,.06,0)),U,3),DIP(102)=$S($D(^IBA(364.7,D0,0)):^(0),1:"""") S X=""BILL TYPE: """
^DIPT(1232,"DXS",4,9.3)="X DXS(4,9.2) S DIP(101)=X S X=$P($P(DIP(103),$C(59)_$P(DIP(102),U,6)_"":"",2),$C(59),1)="""",DIP(104)=X S X=""ALL"",DIP(105)=X S X=1,DIP(106)=X"
^DIPT(1232,"F",1)="-364.6,^IBA(364.6,^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""ASSOCIATED FORM DEFINITION:""~"
^DIPT(1232,"F",2)="-364.6,S DIP(101)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=""LINE: ""_$P(DIP(101),U,5)_""/COL: ""_$P(DIP(101),U,8)_"" "" W X K DIP;X;L18;Z;""""LINE: ""_LINE_""/COL: ""_COL_"" """"~"
^DIPT(1232,"F",3)="X DXS(1,9) W X K DIP;C19;""DESCRIPTION"";L20;Z;""SHORT DESCRIPTION_$J("""",20)""~"
^DIPT(1232,"F",4)="-364.7,^IBA(364.7,^1^S I(0,0)=$G(D0) X DXS(2,9.3) S X="""" S D0=I(0,0);Z;""IB FORM FIELD CONTENT:""~-364.7,.03;L28~-364.7,""CODE: "";C10;X~"
^DIPT(1232,"F",5)="-364.7,1;C16;W50;""FORMAT CODE""~-364.7,""DESC: "";C10;X~-364.7,3,.01;C16;W50;m;w~"
^DIPT(1232,"F",6)="-364.7,X DXS(3,9.3) S X=$S(DIP(103):DIP(104),DIP(105):X) S Y=X,X=DIP(101),X=X_Y W X K DIP;C10;"""";Z;""""INSURANCE COMPANY: ""_$S(INSURANCE COMPANY="""":""ALL"",1:INSURANCE COMPANY)""~"
^DIPT(1232,"F",7)="-364.7,X DXS(4,9) W X K DIP;"""";C10;Z;""""BILL TYPE: ""_$S(BILL TYPE="""":""ALL"",1:BILL TYPE)""~"" "";C1;""""~"
^DIPT(1232,"H")="INTEGRATED BILLING LOCAL PRINT FIELD OVERRIDES"
^DIPT(1233,0)="PXRM SUMMARY LIST^2960419.1351^^811.9^^^2990630"
^DIPT(1233,"F",2)=".01;C1;S1~1;X;C50;L25~2,.01;X;C5~"
^DIPT(1233,"H")="PCE REMINDER/MAINTENANCE ITEM LIST"
^DIPT(1234,0)="PXRM DEFINITION INQUIRY^3041027.1009^@^811.9^^@^3050204"
^DIPT(1234,"%D",0)="^.4001^1^1^3040506^^^^"
^DIPT(1234,"%D",1,0)="This template will print the contents of the reminder definition."
^DIPT(1234,"F",1)=".01;C1;X~""No."";C36~0;C41;X~1.6;C55;X~""--------------------------------------------"";C1~""Print Name:"";C1;S1~1.2;C31;X~""Class:"";C1;S1~100;C31;X~"
^DIPT(1234,"F",2)="""Sponsor:"";C1;S1~101;C31;X~""Review Date:"";C1;S1~102;C31;X~""Rescission Date:"";C1;S1~69;C31;X~""Usage:"";C1;S1~D USAGE^PXRMPTD1;X;Z;""D USAGE^PXRMPTD1""~"
^DIPT(1234,"F",3)="""Related VA-* Reminder:"";C1;S1~1.4;C31;X~""Reminder Dialog:"";C1;S1~51;C31;X~""Priority:"";C1;S1~1.91;C31;X;L~""Reminder Description:"";C1;S1~2,.01;C5;X;S1~"
^DIPT(1234,"F",4)="""Technical Description:"";C1;S1~3,.01;C5;X;S1~""Baseline Frequency:"";C1;S2~""Do In Advance Time Frame:"";R31;S1~D DUEWI^PXRMPTD1;X;Z;""D DUEWI^PXRMPTD1""~"
^DIPT(1234,"F",5)="""Sex Specific:"";C1;R31~1.9~""Ignore on N/A:"";C1;R31~1.8~7,""Frequency for Age Range:"";C1;R31~7,D AFREQ^PXRMPTD1;X;Z;""D AFREQ^PXRMPTD1""~"
^DIPT(1234,"F",6)="7,""Match Text:"";C1;R31~7,3,.01~7,""No Match Text:"";C1;R31~7,4,.01;~""Findings:"";C1;S2~D PFIND^PXRMPTDF;Z;""D PFIND^PXRMPTDF""~D ^DIWW;Z;""D ^DIWW""~"
^DIPT(1234,"F",7)="D COHORT^PXRMPTL(D0);Z;""D COHORT^PXRMPTL(D0)""~D DISLOG^PXRMPTL;S1;X;Z;""D DISLOG^PXRMPTL""~""Web Sites:"";C1;S2~50,""Web Site URL:"";S1;C2~50,.01~"
^DIPT(1234,"F",8)="50,""Web Site Title:"";S1;C2~50,.02~50,"""";S1~50,1,.01~"
^DIPT(1234,"H")="CLINICAL REMINDER DEFINITION LIST"
^DIPT(1235,0)="PXRM REMINDER CATEGORIES^3000505.1644^@^811.7^^@^3010831"
^DIPT(1235,"F",1)="""Category :"";C1;S1~.01;C12;X~""Category Description:"";C1;S1~"""";C1~1,.01;C5;X;S1~""Reminders:"";C1;S1~D REM^PXRMCLST;X;Z;""D REM^PXRMCLST""~"""";C1;S1~"
^DIPT(1235,"F",2)="10,D DSP^PXRMCLST;X;Z;""D DSP^PXRMCLST""~10,"""";C1;S1~"""";C1;S1~"
^DIPT(1235,"H")="REMINDER CATEGORY LIST"
^DIPT(1236,0)="PXRM REMINDER DIALOG^3030805.1251^@^801.41^^@^3050119"
^DIPT(1236,"%D",0)="^^1^1^2991020^"
^DIPT(1236,"%D",1,0)="Dialog template used by both PXRM DIALOG EDIT and PXRM DIALOG INQUIRE/EDIT"
^DIPT(1236,"F",1)=""""";C1;~""DIALOG NAME: "";C3;S1~.01;C19;X~3;C55;L20;X~""Type: "";C10~4;C19;X;L21~""Associated reminder: "";C10;S1~2;C32;X;L25~""Class: "";C1;R30~100;C32;X~"
^DIPT(1236,"F",2)="""Sponsor: "";C1;R30~101;C32;X~""Review Date: "";C1;R30~102;C32;X~""Edit History:"";C3;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~"
^DIPT(1236,"F",3)="110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~""DIALOG COMPONENTS:"";C1;R24;S1~D INQ^PXRMDLG5(D0);Z;""D INQ^PXRMDLG5(D0)""~"""";C1;S2~"
^DIPT(1236,"H")="REMINDER DIALOG LIST"
^DIPT(1237,0)="PXRM RESOLUTIONS (GENERAL)^3000505.1656^@^801.9^^@^3011025"
^DIPT(1237,"F",1)="""Resolution Status:"";C1;S1~.01;C21;X~""Resolution Type:"";C3;S1~D TYP^PXRMSLST;X;Z;""D TYP^PXRMSLST""~""Resolution Status Description:"";C1;S1~1,.01;C5;X;S1~"
^DIPT(1237,"F",2)="""Related National Status:"";C4;S2~D NAT^PXRMSLST;X;Z;""D NAT^PXRMSLST""~""Abbreviated Name:"";C11~.02;C30;X;~""Report Column Headings:"";C5;~.03;C30;X;~"
^DIPT(1237,"F",3)="""Inactive Flag:"";C14;~.04;C30;X;~""Creator:"";C20;~.05;C30;X;~"""";C1;S2~""Local Resolution Statuses:"";C1;S2~10,.01;C5;X;~"""";C1;S2~"
^DIPT(1237,"H")="REMINDER RESOLUTION STATUS LIST"
^DIPT(1238,0)="PXRM RESOLUTIONS (NATIONAL)^2991014.0946^@^801.9^^@^3000511"
^DIPT(1238,"F",1)="""National Resolution Status:"";C1;S1~.01;C30;X~""Resolution Status Description:"";C1;S1~1,.01;C5;X;S1~""Abbreviated Name:"";C11;S2~.02;C30;X;~"
^DIPT(1238,"F",2)="""Report Column Headings:"";C5;~.03;C30;X;~""Inactive Flag:"";C14;~.04;C30;X;~""Local Resolution Statuses:"";C1;S2~10,.01;C5;X;~"""";C1;S2~"
^DIPT(1238,"H")="REMINDER RESOLUTION STATUS LIST"
^DIPT(1239,0)="PXRM RESOLUTIONS (LOCAL)^3000505.1656^@^801.9^^@^3000511"
^DIPT(1239,"F",1)="""Resolution Status:"";C1;S1~.01;C21;X~""Resolution Status Description:"";C1;S1~1,.01;C5;X;S1~""Related National Status:"";C4;S2~"
^DIPT(1239,"F",2)="D NAT^PXRMSLST;X;Z;""D NAT^PXRMSLST""~""Abbreviated Name:"";C11~.02;C30;X;~""Report Column Headings:"";C5;~.03;C30;X;~""Inactive Flag:"";C14;~.04;C30;X;~"
^DIPT(1239,"F",3)="""Creator:"";C20;~.05;C30;X;~"""";C1;S2~"
^DIPT(1239,"H")="REMINDER RESOLUTION STATUS LIST"
^DIPT(1240,0)="PXRM FINDING TYPE PARAMETERS^3000307.1605^@^801.45^^@^3011025"
^DIPT(1240,"F",1)=""""";C1;S1~""FINDING ID AND TYPE:"";C1~.01;L5~D FDES^PXRMFLST;L30;Z;""D FDES^PXRMFLST""~""-------------------"";C1~""Related GUI Process: "";C1;S1~.02;X;L35~"
^DIPT(1240,"F",2)="1,""Resolution Status: "";C1;S1~1,.01;C21;X;L35~1,""Prefix text: "";C7;S1~1,3;C21;X;L35~1,""Suffix text: "";C7~1,4;C21;X;L35~1,""Disabled: "";C10~"
^DIPT(1240,"F",3)="1,1;C21;X;L35~1,""API for Sentence: "";C2~1,5,""Prompt: "";C22;S1~1,5,.01;C31;X;L35~1,5,""Sequence: "";C20~1,5,3;C31;X;L35~1,5,""Mandatory Prompt: "";C12~"
^DIPT(1240,"F",4)="1,5,1;C31;X;L35~1,5,""Prompt Disabled: "";C13~1,5,2;C31;X;L35~1,5,""Override Caption: "";C12~1,5,4;X;C31~1,5,""Start New Line: "";C14~1,5,5;X;C31~"
^DIPT(1240,"F",5)="1,5,""Exclude from PN: "";C13~1,5,6;X;C31~1,"""";C1;S2~"
^DIPT(1240,"H")="REMINDER FINDING TYPE PARAMETER LIST"
^DIPT(1241,0)="PXRM DIALOG ELEMENT^3070515.1604^@^801.41^^@^3071115"
^DIPT(1241,"F",1)=""""";C1~""Name:"";C1;R22;S1~.01;L35~3;C65;L10;X~""Type:"";C1;R22~4;L21~""Class:"";C1;R22~100;L21~""Sponsor:"";C1;R22~101;L21~""Review Date:"";C1;R22~102;L21~"
^DIPT(1241,"F",2)="""Edit History:"";R22;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~""Used by:"";C1;R22;S1~"
^DIPT(1241,"F",3)="D USE^PXRMDLST(D0,24,"""");X;Z;""D USE^PXRMDLST(D0,24,"""")""~""Dialog Text:"";C1;R22;S1~25,.01~""Alternate P/N Text:"";C1;R22~35,.01~""Exclude from P/N:"";C1;R22~"
^DIPT(1241,"F",4)="23~""Resolution type:"";C1;R22~13~""Finding Item:"";C1;R22~15~""Vital Prompt Caption:"";C1;R22~24~""Orderable item:"";C1;R22~"
^DIPT(1241,"F",5)="D ORDER^PXRMDLST;X;Z;""D ORDER^PXRMDLST""~""Suppress Checkbox:"";C1;R22~51~""Result Group:"";C1;R22~121,"":"";C1;R22~121,.01;L35~"
^DIPT(1241,"F",6)="""Exclude Mental Health "";C1;R22~""Test Text from P/N:"";C1;R22~54~""ADDITIONAL FINDINGS:"";C1;R22~18,""Finding item:"";C1;R22~18,.01;L35~"
^DIPT(1241,"F",7)="""ELEMENT COMPONENTS:"";C1;R24;S1~10,""Sequence:"";C1;R24;S1~10,.01;L2~10,""Additional prompt:"";C1;R24~10,2;L35~10,""Prompt caption:"";C10~"
^DIPT(1241,"F",8)="10,D PROMPT^PXRMDLST;X;C27;Z;""D PROMPT^PXRMDLST""~10,""Override caption: "";C8~10,6;X;C27~10,""Start new line: "";C10~10,7;X;C27~10,""Exclude from P/N: "";C8~"
^DIPT(1241,"F",9)="10,8;X;C27~10,""Required: "";C16~10,9;X;C27~"""";C1;S1~"
^DIPT(1241,"H")="REMINDER DIALOG LIST"
^DIPT(1242,0)="PXRM DIALOG GROUP^3030805.125^@^801.41^^@^3020812"
^DIPT(1242,"F",1)=""""";C1;~""Name:"";C1;R31~.01;L35~3;C55;L10;X~""Class:"";C1;R31~100;C32;X~""Sponsor:"";C1;R31~101;C32;X~""Review Date:"";C1;R31~102;C32;X~""Edit History:"";C3;S1~"
^DIPT(1242,"F",2)="110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~""Resolution type:"";C1;R31;S1~13~"
^DIPT(1242,"F",3)="""Finding item:"";C1;R31~15~""Vital Prompt Caption:"";C1;R31~24~""Group Caption:"";C1;R31~5~""Box around the Components:"";C1;R31~6~"
^DIPT(1242,"F",4)="""Share common prompts:"";C1;R31~8~""Multiple Selection:"";C1;R31~9~""Hide/Show Group:"";C1;R31~50~""No. of Indents:"";C1;R31~7;L2~"
^DIPT(1242,"F",5)="""Indent Progress Note Text:"";C1;R31~52~""Dialog text:"";C1;R31~25,.01~""Alternate P/N text:"";C1;R31~35,.01~""Exclude from PN:"";C1;R31~23~"
^DIPT(1242,"F",6)="""Suppress Checkbox:"";C1;R31~51~""ADDITIONAL FINDINGS:"";C1;R31~18,""Finding item:"";C1;R31~18,.01;L35~""GROUP COMPONENTS:"";C1;R31;S1~"
^DIPT(1242,"F",7)="D INQ^PXRMDLG5(D0);Z;""D INQ^PXRMDLG5(D0)""~"
^DIPT(1242,"H")="REMINDER DIALOG LIST"
^DIPT(1243,0)="PXRM DIALOG PROMPT^3010427.1313^@^801.41^^@^3050128"
^DIPT(1243,"F",1)=""""";C1~""Name:"";C1;R29;S1~.01;L35~""Disabled:"";C1;R29~3;L35~""Class: "";C1;R30~100;C32;X~""Sponsor: "";C1;R30~101;C32;X~""Review Date:"";C1;R30~102;C32;X~"
^DIPT(1243,"F",2)="""Edit History:"";C3;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~"
^DIPT(1243,"F",3)="""Prompt Caption:"";C1;R29;S1~24~""Exclude from P/N:"";C1;R29~23~""Default value:"";C1;R29~21;L35~""Additional Checkbox:"";C1;R29~45,.01;C1;R32~45,2;L40~"
^DIPT(1243,"H")="REMINDER DIALOG LIST"
^DIPT(1244,0)="PXRM FINDING ITEM PARAMETERS^3000307.1701^@^801.43^^@^3040603"
^DIPT(1244,"F",1)=""""";C1~""NAME: "";C1;R18~.01;L35~""Finding Item: "";C1;R18~.02;L35~""Disabled: "";C1;R18~.03;L35~""Dialog Element: "";C1;R18~.04;L45~"""";C1;S1~"
^DIPT(1244,"H")="REMINDER FINDING ITEM PARAMETER LIST"
^DIPT(1245,0)="PXRM HEALTH FACTOR RESOLUTIONS^3000307.1703^@^801.95^^@^3000505"
^DIPT(1245,"F",1)=""""";C1~""HEALTH FACTOR NAME: "";R20;C1~.01~""Resolution Status: "";R20;C1~.02,.01~"""";C1;S1~"
^DIPT(1245,"H")="REMINDER HEALTH FACTOR RESOLUTION LIST"
^DIPT(1246,0)="PXRM TAXONOMY DIALOG^3000503.1727^@^811.2^^@^3040224"
^DIPT(1246,"F",1)=""""";C1~""TAXONOMY NAME:"";C1;S1~.01;C20~""Taxonomy Dialog Header Text:"";C1;S1~.03;C30;X~""---- Diagnosis (DX) ----"";C1;S1~""Current Visit Header Text:"";C4~"
^DIPT(1246,"F",2)="3107;C32;X~""Historical Visit Header Text:"";C1~3108;C32;X~""Selectable Diagnoses"";C1;S1~"
^DIPT(1246,"F",3)="3102,D TDES^PXRMTDLG(80,D0,D1);X;C1;Z;""D TDES^PXRMTDLG(80,D0,D1)""~3102,2;C60;X~""---- Procedure (PR) ----"";C1;S1~""Current Visit Header Text:"";C4~"
^DIPT(1246,"F",4)="3111;C32;X~""Historical Visit Header Text:"";C1~3112;C32;X~""Selectable Procedures"";C1;S1~"
^DIPT(1246,"F",5)="3104,D TDES^PXRMTDLG(81,D0,D1);X;C1;Z;""D TDES^PXRMTDLG(81,D0,D1)""~3104,2;C60;X~""Dialog Generate Parameter (DX):"";C1;S1~3106;C40;X~"
^DIPT(1246,"F",6)="""Dialog Generate Parameter (PR):"";C1;~3110;C40;X~"""";C1;S2~"
^DIPT(1246,"H")="REMINDER TAXONOMY LIST"
^DIPT(1247,0)="PXRM TERM INQUIRY^3010427.1226^@^811.5^^@^3050127"
^DIPT(1247,"%D",0)="^.4001^1^1^3040426^^"
^DIPT(1247,"%D",1,0)="This template prints a single reminder term definition."
^DIPT(1247,"F",1)=".01;C1;X~""No."";C64~0;C67;X;L11~""----------------------------------------------------------------------------"";C1~""Class:"";C1~100;C25;X~""Sponsor:"";C1~"
^DIPT(1247,"F",2)="101;C25;X~""Date Created: "";C1~.04;C25;X~""Review Date:"";C1~102;C25;X~""Description:"";C1;S1~1,.01;C5;X~""Edit History:"";C1;S1~110,""Edit Date:"";C5;S1~"
^DIPT(1247,"F",3)="110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~""Findings: "";C1;S1~D PFIND^PXRMPTTR;Z;""D PFIND^PXRMPTTR""~"" "";C1;S1~"
^DIPT(1247,"H")="REMINDER TERM LIST"
^DIPT(1248,0)="PXRM TAXONOMY INQUIRY^3030414.0923^@^811.2^^@^3050124"
^DIPT(1248,"F",1)=".01;C1;S1;X~1.6;C55;;X~""-----------------------------------"";C1~""Brief Description:"";C1;S1~.02;C5;X~""Class:"";C1;S1~100;C31;X~""Sponsor:"";C1;S1~"
^DIPT(1248,"F",2)="101;C31;X~""Review Date:"";C1;S1~102;C31;X~""Edit History:"";C1;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~"
^DIPT(1248,"F",3)="110,""Edit Comments:"";C5~110,2,.01;W~""Patient Data Source:"";C1;S1~4;C5;X~""Use Inactive Problems:"";C1;S1~10;C5;X~""ICD9 Codes:"";C1;S1~2102,""Range "";C2;S1~"
^DIPT(1248,"F",4)="2102,.01;C8;X~2102,""-""~2102,1;X~2102,"" Adjacent Lower-""~2102,2;X~2102,"" Adjacent Higher-""~2102,3;X~2102,D ICD9LIST^PXRMPTTX;Z;""D ICD9LIST^PXRMPTTX""~"
^DIPT(1248,"F",5)="""ICD0 Codes:"";C1;S2~2103,""Range "";C2;S1~2103,.01;C8;X~2103,""-""~2103,1;X~2103,"" Adjacent Lower-""~2103,2;X~2103,"" Adjacent Higher-""~2103,3;X~"
^DIPT(1248,"F",6)="2103,D ICD0LIST^PXRMPTTX;Z;""D ICD0LIST^PXRMPTTX""~""CPT Codes:"";C1;S2~2104,""Range "";C2;S1~2104,.01;C8;X~2104,""-""~2104,1;X~2104,"" Adjacent Lower-""~"
^DIPT(1248,"F",7)="2104,2;X~2104,"" Adjacent Higher-""~2104,3;X~2104,D ICPTLIST^PXRMPTTX;Z;""D ICPTLIST^PXRMPTTX""~"
^DIPT(1248,"H")="REMINDER TAXONOMY LIST"
^DIPT(1249,0)="PXRM DIALOG FORCED VALUE^3010427.1314^@^801.41^^@^3010523"
^DIPT(1249,"F",1)=""""";C1~""Name:"";C1;R29;S1~.01;L35~""Disabled:"";C1;R29~3;L35~""Class: "";C1;R30~100;C32;X~""Sponsor: "";C1;R30~101;C32;X~""Review Date:"";C1;R30~102;C32;X~"
^DIPT(1249,"F",2)="""Edit History:"";C3;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~"
^DIPT(1249,"F",3)="""Forced value:"";C1;R29;S1~22;L35~""Used only for finding type:"";C1;R29~14~"
^DIPT(1249,"H")="REMINDER DIALOG LIST"
^DIPT(1250,0)="PXRM TAXONOMY LIST HEADER^2991220.1238^@^811.2^^@^3040309"
^DIPT(1250,"F",1)="""REMINDER TAXONOMY LIST"";C1~"" "";S1~""ICD9 RANGE"";C12;X~""ICD0 RANGE"";C32;X~""CPT RANGE"";C53;X~""NAME"";C1;X~""LOW"";C10;X~""HIGH"";C20;X~""LOW"";C30;X~"
^DIPT(1250,"F",2)="""HIGH"";C40;X~""LOW"";C50;X~""HIGH"";C60;X~""--------------------------------------------------------------------------"";C1~"
^DIPT(1250,"H")="@"
^DIPT(1250,"SUB")="1"
^DIPT(1251,0)="PXRM TAXONOMY LIST^3000623.1155^@^811.2^^@^3040309"
^DIPT(1251,"F",1)=".01;C1;S1~D TAXLIST^PXRMPTTX;Z;""D TAXLIST^PXRMPTTX""~"
^DIPT(1251,"H")="[PXRM TAXONOMY LIST HEADER]"
^DIPT(1251,"SUB")="1"
^DIPT(1252,0)="PXRM COMPUTED FINDING LIST^3030129.1107^@^811.4^^@^3050106"
^DIPT(1252,"F",1)="""Name:"";C1;S1~.01;C7;X~""Print Name:"";C40;X~.04;C52;X~""Entry Point:"";C1~.03;C14;X~""Routine:"";C40;X~.02;C49;X~""Type:"";C1~5;C6;X~""Class:"";C40~100;C47;X~"
^DIPT(1252,"F",2)="""Sponsor:"";C1~101;C10;X~""Review Date:"";C1~102;C14;X~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~"
^DIPT(1252,"F",3)="110,2,.01;W~"
^DIPT(1252,"H")="Computed Finding List"
^DIPT(1252,"SUB")="1"
^DIPT(1254,0)="PXRM DEFINITION LIST^3041027.1344^@^811.9^^@^3050104"
^DIPT(1254,"%D",0)="^^1^1^3000229^^"
^DIPT(1254,"%D",1,0)="Print template for reminder definition list."
^DIPT(1254,"F",1)="""-----------------------------------"";C1;S1~""Name:"";C1~.01;C14;X~1.6;C55;X~""Print Name:"";C1~1.2;C14;X~""Class:"";C1;S1~100;C31;X~""Sponsor:"";C1;S1~"
^DIPT(1254,"F",2)="101;C31;X~""Review Date:"";C1;S1~102;C31;X~""Usage:"";C1;S1~D USAGE^PXRMPTD1;X;Z;""D USAGE^PXRMPTD1""~""Priority:"";C1;S1~1.91;C14;X;L~"
^DIPT(1254,"F",3)="""Reminder Description:"";C1;S1~2,.01;C5;X;S1~""Findings:"";C1;S1~20,""Finding Item:"";C3~20,.01;""""~20,W $$GENIEN^PXRMPTD2(D1);X;Z;""W $$GENIEN^PXRMPTD2(D1)""~"
^DIPT(1254,"F",4)="D DISLOG^PXRMPTL;"""";S1;Z;""D DISLOG^PXRMPTL""~"
^DIPT(1254,"H")="REMINDER DEFINITION LIST"
^DIPT(1254,"SUB")="1"
^DIPT(1255,0)="PXRM RESULT ELEMENT^3070515.1112^@^801.41^^@^3070515"
^DIPT(1255,"F",1)=""""";C1~""Name:"";C1;R31;S1~.01;L35~""Type:"";C1;R31~4;L21~""Class:"";C1;R31~100;C32;X~""Sponsor:"";C1;R31~101;C32;X~""Review Date:"";C1;R31~102;C32;X~"
^DIPT(1255,"F",2)="""Edit History:"";C3;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~"
^DIPT(1255,"F",3)="""Result Condition:"";C1;R20;S1~53;L40~""P/N Text:"";C1;R20~35,.01~"""";C1;S1~""Informational Text:"";C1;R20~25,.01~"
^DIPT(1255,"H")="REMINDER DIALOG LIST"
^DIPT(1256,0)="PXRM RESULT GROUP^3070515.1116^@^801.41^^@^3071010"
^DIPT(1256,"F",1)=""""";C1;~""Name:"";C1;R31~.01;L35~""Disable:"";C1;R31~3;L35~""Type:"";C1;R31~4;L35~""Class:"";C1;R31~100~""Sponsor:"";C1;R31~101~""Review Date:"";C1;R31~102~"
^DIPT(1256,"F",2)="""MH Test:"";C1;R31~119;L35~""MH Scale Number:"";C1;R31~120;L35~""Exclude from PN:"";C1;R31~23~""Edit History:"";C3;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~"
^DIPT(1256,"F",3)="110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~""GROUP COMPONENTS:"";C1;R18;S1~10,""Sequence:"";C1;R18;S1~10,.01;L2~"
^DIPT(1256,"F",4)="10,""Result Element:"";C1;R18~10,D OUT^PXRMDRSG(X);Z;""D OUT^PXRMDRSG(X)""~"""";C1;S1~"
^DIPT(1256,"H")="REMINDER DIALOG LIST"
^DIPT(1257,0)="PXRM TERM LIST^3010427.1227^@^811.5^^@^3040730"
^DIPT(1257,"%D",0)="^^1^1^3000505^"
^DIPT(1257,"%D",1,0)="This print template is used to list reminder terms."
^DIPT(1257,"F",1)=".01;C1;X~""Class:"";C5~100;C20;X~""Date Created:"";C5~.04;C20;X~""Sponsor:"";C5~101;X;C20;L59~""Review Date:"";C5~102;C20;X~""Description:"";C5~1,.01;C20;X~"
^DIPT(1257,"F",2)="""Findings:"";C5~20,.01;C20;L59;X~20,W $$GENIEN^PXRMPTTR(D1);X;Z;""W $$GENIEN^PXRMPTTR(D1)""~"" "";C5~"
^DIPT(1257,"H")="REMINDER TERM LIST"
^DIPT(1258,0)="ABSV AJR REPORT^3000419.0925^^503334.1^^^3000512"
^DIPT(1258,"F",2)=".01~.6~13~15~"
^DIPT(1258,"H")="VOLUNTARY ORGANIZATION NATIONAL OFFICIAL LIST BY AJR MONTH"
^DIPT(1259,0)="ABSV NOM BY ORGANIZATION^3000424.1015^^503334.1^^^3000516"
^DIPT(1259,"F",2)=".01;L30~.6;L30~13~"
^DIPT(1259,"H")="VOLUNTARY NATIONAL OFFICIAL LIST BY ORGANIZATION"
^DIPT(1260,0)="ABSV CERTIFYING OFFICIAL^3000501.1044^^503334.1^^^3000524"
^DIPT(1260,"F",2)=".01;L30~.6;L45~"
^DIPT(1260,"H")="VOLUNTARY ORGANIZATION NATIONAL OFFICIAL LIST"
^DIPT(1261,0)="ESP DAILY SHIFT JOURNAL^2960227.1344^@^916^^@^3000413"
^DIPT(1261,"F",2)="5,.01;L6;S1~5,1;L20~5,2;L20~5,3,.01;C1~"
^DIPT(1261,"H")="DAILY SHIFT JOURNAL"
^DIPT(1262,0)="ESP DAILY JOURNAL STATISTICS^2960227.1422^@^916^^@^3000307"
^DIPT(1262,"DCL","916.05^2")="+"
^DIPT(1262,"F",2)="5,S DIP(1)=$S($D(^ESP(916,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) S Y=X D DT K DIP;C5;L14;Z;""DATE""~5,.01;L10~5,2;L45~"
^DIPT(1262,"H")="DAILY JOURNAL STATS"
^DIPT(1263,0)="XUSEC REMOTE ACCESS^3000124.1544^@^3.081^^@^3000126"
^DIPT(1263,"F",2)="0;""SIGNED ON""~99~.01~14~"
^DIPT(1263,"H")="Remote Access User List"
^DIPT(1264,0)="XUS VISIT USERS^3000131.1423^^200^^@^3000131"
^DIPT(1264,"F",2)=".01~8910,1;C5;S1~8910,3~"
^DIPT(1264,"H")="Users with Foreign Visits"
^DIPT(1265,0)="RMPR VIEW REQUEST^3031009.1204^@^668^^@^3031104"
^DIPT(1265,"DXS",1,9)="X DXS(1,9.6) S DIP(304)=$G(X) S X=10,X=$E(DIP(303),DIP(304),X),Y=X,X=DIP(205),X=X_Y,Y=X,X=DIP(105),X=X_Y,Y=X,X=DIP(2),X=X_Y S D0=I(0,0)"
^DIPT(1265,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""SSN: "",DIP(2)=$G(X),D0=$P(DIP(1),U,2) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$G(D0)"
^DIPT(1265,"DXS",1,9.3)="X DXS(1,9.2) S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(101)=$G(X) S X=$P(DIP(102),U,9),DIP(103)=$G(X) S X=1,DIP(104)=$G(X) S X=3,X=$E(DIP(103),DIP(104),X)"
^DIPT(1265,"DXS",1,9.4)="X DXS(1,9.3) S X=X_""-"",DIP(105)=$G(X),D0=$P(DIP(1),U,2) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S I(200,0)=$G(D0),DIP(202)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(201)=$G(X)"
^DIPT(1265,"DXS",1,9.5)="X DXS(1,9.4) S X=$P(DIP(202),U,9),DIP(203)=$G(X) S X=4,DIP(204)=$G(X) S X=5,X=$E(DIP(203),DIP(204),X)_""-"",DIP(205)=$G(X)"
^DIPT(1265,"DXS",1,9.6)="X DXS(1,9.5) S D0=$P(DIP(1),U,2) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(302)=$S($D(^DPT(D0,0)):^(0),1:""""),DIP(301)=$G(X) S X=$P(DIP(302),U,9),DIP(303)=$G(X) S X=6"
^DIPT(1265,"F",1)="""Order Date: "";X;C1~S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(SUSPENSE DATE)""~"
^DIPT(1265,"F",2)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Patient: ""_$P($G(^DPT(+$P(DIP(1),U,2),0)),U) W X K DIP;C30;X;Z;""""Patient: ""_VETERAN""~"
^DIPT(1265,"F",3)="X DXS(1,9) W X K DIP;C57;Z;""""SSN: ""_VETERAN:$E(SOCIAL SECURITY NUMBER,1,3)_""-""_VETERAN:$E(SOCIAL SECURITY NUMBER,4,5)_""-""_VETERAN:$E(SOCIAL SECURITY NUMBER,6,10)""~"
^DIPT(1265,"F",4)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Requestor: ""_$P($G(^VA(200,+$P(DIP(1),U,11),0)),U) W X K DIP;C1;X;Z;""""Requestor: ""_REQUESTOR""~"
^DIPT(1265,"F",5)="""Suspended By: "";C30~8;X//~"
^DIPT(1265,"F",6)="S X=""-"",DIP(1)=$G(X),DIP(2)=$G(X),X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X//;Z;""DUP(""-"",IOM)""~"
^DIPT(1265,"F",7)="""Initial Action Date: "";C1~"
^DIPT(1265,"F",8)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(INITIAL ACTION DATE)""~"
^DIPT(1265,"F",9)="""Complete Date: "";C35~5;X~"
^DIPT(1265,"F",10)="S X=""="",DIP(1)=$G(X),DIP(2)=$G(X),X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""="",IOM)""~"
^DIPT(1265,"F",11)="""Description of Item/Services Requested"";C1~4,.01;C1;""""~"
^DIPT(1265,"F",12)="S X=""-"",DIP(1)=$G(X),DIP(2)=$G(X),X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1265,"F",13)="""Initial Action Note: "";C1~7,.01;C1;X~"
^DIPT(1265,"F",14)="S X=""-"",DIP(1)=$G(X),DIP(2)=$G(X),X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1265,"F",15)="""Complete Note: "";C1~12,.01;X~"
^DIPT(1265,"H")="View"
^DIPT(1266,0)="RMPR VIEW INITIAL ACTION^3000301.1012^@^668^^@^3000817"
^DIPT(1266,"F",1)="""Order Date: "";X;C1~S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(SUSPENSE DATE)""~"
^DIPT(1266,"F",2)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C26;X;Z;""""Patient: ""_VETERAN""~"
^DIPT(1266,"F",3)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Requestor: ""_$S('$D(^VA(200,+$P(DIP(1),U,11),0)):"""",1:$P(^(0),U,1)) W X K DIP;C53;X;Z;""""Requestor: ""_REQUESTOR""~"
^DIPT(1266,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1266,"F",5)="""Initial Action Date: "";C1;X~"
^DIPT(1266,"F",6)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(INITIAL ACTION DATE)""~"
^DIPT(1266,"F",7)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1266,"F",8)="""Note: "";C1;X~7,.01;X~"
^DIPT(1266,"H")="Initial Action Note"
^DIPT(1267,0)="RMPR VIEW COMP NOTE^3000301.1013^@^668^^@^3000817"
^DIPT(1267,"F",1)="""Order Date: "";X;C1~S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(SUSPENSE DATE)""~"
^DIPT(1267,"F",2)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C26;X;Z;""""Patient: ""_VETERAN""~"
^DIPT(1267,"F",3)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Requestor: ""_$S('$D(^VA(200,+$P(DIP(1),U,11),0)):"""",1:$P(^(0),U,1)) W X K DIP;C53;X;Z;""""Requestor: ""_REQUESTOR""~"
^DIPT(1267,"F",4)="""Initial Action Date: "";X;C1~"
^DIPT(1267,"F",5)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(INITIAL ACTION DATE)""~"
^DIPT(1267,"F",6)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1267,"F",7)="""Complete Date: "";C1;X~S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(COMPLETION DATE)""~"
^DIPT(1267,"F",8)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1267,"F",9)="""Note: "";C1;X~12,.01;X~"
^DIPT(1267,"H")="Complete Note"
^DIPT(1268,0)="RMPR OACT NOTE^3000310.0948^@^668^^@^3000724"
^DIPT(1268,"F",1)="""Order Date: "";X;C1~S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(SUSPENSE DATE)""~"
^DIPT(1268,"F",2)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C26;X;Z;""""Patient: ""_VETERAN""~"
^DIPT(1268,"F",3)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=""Requestor: ""_$S('$D(^VA(200,+$P(DIP(1),U,11),0)):"""",1:$P(^(0),U,1)) W X K DIP;C53;X;Z;""""Requestor: ""_REQUESTOR""~"
^DIPT(1268,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1268,"F",5)="""Initial Action Date: "";C1;X~"
^DIPT(1268,"F",6)="S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9),X=$P(X,""."",1) S Y=X D DT K DIP;X;d;L18;Z;""DATE(INITIAL ACTION DATE)""~"
^DIPT(1268,"F",7)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1268,"F",8)="""Initial Action Note: "";C1;X~7,.01;X~"
^DIPT(1268,"F",9)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1268,"F",10)="""Other Action Note: "";C1;X~11,.01;x~11,1,.01;C1;X~"
^DIPT(1268,"F",11)="11,S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""-"",IOM)""~"
^DIPT(1268,"H")="Other Action Note(s)"
^DIPT(1269,0)="PXRM EXTRACT EPI FINDING HDR^3000801.0148^@^810.3^^@^3030210"
^DIPT(1269,"%D",0)="^^20^20^3000829^"
^DIPT(1269,"%D",1,0)="This option is used to print a header describing the extract reporting"
^DIPT(1269,"%D",2,0)="date range, extract date, task and total patients who had reminders"
^DIPT(1269,"%D",3,0)="evaluated as well as total patients with findings."
^DIPT(1269,"%D",4,0)=" "
^DIPT(1269,"%D",5,0)="The Extract findings are based on reminder terms in the 3 Hepatitis C"
^DIPT(1269,"%D",6,0)="national reminders. "
^DIPT(1269,"%D",7,0)=" - The pharmacy medications mapped to reminder terms are used to get"
^DIPT(1269,"%D",8,0)="inpatient orders and renewals and outpatient fills, refills, and partial"
^DIPT(1269,"%D",9,0)="fills."
^DIPT(1269,"%D",10,0)=" - The laboratory tests mapped to reminder terms are used to search the"
^DIPT(1269,"%D",11,0)="Lab results to identify target patients with data."
^DIPT(1269,"%D",12,0)=" - The Health Factors mapped to reminder terms are used to identify target"
^DIPT(1269,"%D",13,0)="patients with data (V HEALTH FACTOR)."
^DIPT(1269,"%D",14,0)=" - The Education Topics mapped to reminder terms are used to identify"
^DIPT(1269,"%D",15,0)="target patients with data (V PATIENT ED)."
^DIPT(1269,"%D",16,0)=" - The Exams mapped to reminder terms are used to identify target"
^DIPT(1269,"%D",17,0)="patients with data (V EXAM)."
^DIPT(1269,"%D",18,0)=" - The diagnosis related to taxonomies mapped to reminder terms are"
^DIPT(1269,"%D",19,0)="used to identify target patients with encounters treating the diagnosis "
^DIPT(1269,"%D",20,0)="(V POV)."
^DIPT(1269,"F",1)=".01;C1;L30;X~""Date Range: "";C34;X~.02;C46;X~""-"";X~.03;X~""Extract Date: "";C32;X~.06;C46;L15;X~""Total Patients Evaluated: "";C1;X~.07;R6;X~"
^DIPT(1269,"F",2)="""Total Patients with Findings: "";C1;X~.08;R6;X~""Finding SSN Patient Enctr Type Date"";C1;X~"
^DIPT(1269,"F",3)="""-------------------------------------------------------------"";C1;X~"
^DIPT(1269,"H")="@"
^DIPT(1269,"SUB")="1"
^DIPT(1270,0)="PXRM EXTRACT EPI FINDING LIST^3000801.0037^^810.3^^@^3030210"
^DIPT(1270,"%D",0)="^^3^3^3000825^"
^DIPT(1270,"%D",1,0)="This template is used to print reminder extract results from the LREPI"
^DIPT(1270,"%D",2,0)="ENHANCE MANUAL RUN and LREPI NIGHTLY TASK. The template lists finding"
^DIPT(1270,"%D",3,0)="items and SSNs."
^DIPT(1270,"F",1)="10,.04;C1;L40;X;N~10,"" "";C9;X~10,D FORMATB^PXRMXXT;X;Z;""D FORMATB^PXRMXXT""~10,D PDEM^PXRMXXT;X;Z;""D PDEM^PXRMXXT""~10,.01;L15;C25;X~10,"" "";C42;X~"
^DIPT(1270,"F",2)="10,D PFIND^PXRMXXT;X;Z;""D PFIND^PXRMXXT""~10,D DELVAR^PXRMXXT;X;Z;""D DELVAR^PXRMXXT""~"
^DIPT(1270,"H")="[PXRM EXTRACT EPI FINDING HDR]"
^DIPT(1270,"SUB")="1"
^DIPT(1271,0)="PXRM EXTRACT EPI FINDING TOT^3021206.1412^@^810.3^^@^3040708"
^DIPT(1271,"%D",0)="^.4001^2^2^3000825^^^"
^DIPT(1271,"%D",1,0)="This print template is used to print totals for finding items found for an"
^DIPT(1271,"%D",2,0)="extract."
^DIPT(1271,"F",1)=".01;C1;S1;L30;X~""Date Range: "";C34;X~.02;C46;X~""-"";X~.03;X~""Extract Date: "";C32;X~.06;C46;L15;X~""Total Patients Evaluated: "";C5;X~.07;R6;X~"
^DIPT(1271,"F",2)="""Total Patients with Findings: "";C5;X~.08;R6;X~""Totals by Finding Item Finding Unique Patient"";C5;S1;X~"
^DIPT(1271,"F",3)=""" Count Count"";C5;X~20,.01;C10;X~20,.02;C43;R6;X~20,.03;C55;R6;X~"
^DIPT(1271,"H")="REMINDER EXTRACT TOTALS"
^DIPT(1272,0)="ONC DISEASE INDEX^3000728.1101^@^9000010.07^^@^3000802"
^DIPT(1272,"F",1)="-9000001,^AUPNPAT(^^S I(0,0)=D0 S DIP(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT:""~"
^DIPT(1272,"F",2)="-9000001,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;""NAME:""~-9000001,-2,.0905;N;""PID""~"
^DIPT(1272,"F",3)=".02;N;L25~.01;""DIAGNOSIS"";C35;X~-80,^ICD9(^^S I(0,0)=D0 S DIP(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""POV:""~"
^DIPT(1272,"F",4)="-80,3;C42;L25;"""";X~"
^DIPT(1272,"F",5)="S DIP(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$S('$D(^AUPNVSIT(+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)),X=$P(X,""."",1) S Y=X D DT K DIP;C69;""VISIT"";d;L18;X;Z;""DATE(VISIT)""~"
^DIPT(1272,"H")="DISEASE INDEX"
^DIPT(1274,0)="RCTOP REPORT^3001002.1001^@^340^^@^3001016"
^DIPT(1274,"F",1)=".01;C1;L30;S2;X~4.01;C35;X~S RCAMTS=$G(^RCD(340,D0,4));Z;""S RCAMTS=$G(^RCD(340,D0,4))""~6.01;C47;X~""$"";C65;X~"
^DIPT(1274,"F",2)="S DIP(1)=$S($D(^RCD(340,D0,4)):^(4),1:"""") S X=$P(DIP(1),U,3),DIP(2)=X S X=13,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C66;X;Z;""$J(#4.03,13,2)""~"
^DIPT(1274,"F",3)="S PRINTOT=PRINTOT+$P(RCAMTS,U,3);Z;""S PRINTOT=PRINTOT+$P(RCAMTS,U,3)""~"
^DIPT(1274,"H")="[RCTOPH]"
^DIPT(1275,0)="RCTOPH^3001002.1002^@^340^^@^3001016"
^DIPT(1275,"F",1)="""ACCOUNTS AT TOP"";C33;X~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,""."",1) S Y=X D DT K DIP;C60;X;L18;Z;""DATE(NOW)"";d~"
^DIPT(1275,"F",2)="S X=""Page "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C72;X;Z;""""Page ""_PAGE""~""DEBTOR"";C1;X;S2~""TIN"";C36;X~"
^DIPT(1275,"F",3)="""DATE SENT TO TOP"";C47;X~""CURRENT AMOUNT"";C65;X~"
^DIPT(1275,"F",4)="S X=""_"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""_"",80)""~"""";S2~"
^DIPT(1275,"H")="@"
^DIPT(1275,"SUB")="1"
^DIPT(1276,0)="ONCO XPATIENT INFO^3001108.1423^^160^^@^3021101"
^DIPT(1276,"DXS",1,1)="Male"
^DIPT(1276,"DXS",1,2)="Female"
^DIPT(1276,"DXS",1,3)="Other (hermaphrodite)"
^DIPT(1276,"DXS",1,4)="Transsexual"
^DIPT(1276,"DXS",1,9)="Not stated"
^DIPT(1276,"F",2)="""SSN:"";C10;X;S~2;X;C14~""Race: "";C44~8;C50;X~""DOB: "";X;C10~3;C15;L10~""Sex: "";C45~10;C50;X~"
^DIPT(1276,"H")="ONCOLOGY PATIENT LIST"
^DIPT(1276,"IOM")="80"
^DIPT(1276,"LAST")=""
^DIPT(1276,"ROU")="^ONCOXPI"
^DIPT(1276,"ROUOLD")="ONCOXPI"
^DIPT(1277,0)="ONCO PATIENT INDX-ACOS^3010410.0912^@^165.5^^@^3010410"
^DIPT(1277,"DXS",1,9)="X ""N I,Y ""_$P(^DD(165.5,20.1,0),U,5,99) S DIP(1)=X S DIP(2)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=DIP(1)_"" ""_$S('$D(^ONCO(164,+$P(DIP(2),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(1277,"F",1)=".02;C1;L18;N~.09;""SSN"";C20;L11;N~.1;""S"";C32;L1~"
^DIPT(1277,"F",2)="-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~"
^DIPT(1277,"F",3)="-160,D DOB^ONCOES;X;Z;""D DOB^ONCOES""~-160,W X;C34;L10;Z;""W X""~-160,29;""DOD"";C46;L10~.061;""ACC SEQ NO"";C58;L13~3;C73;L10~"
^DIPT(1277,"F",4)="X DXS(1,9) W X K DIP;""TOPOGRAPHY"";C85;L21;Z;""ICDO TOPOGRAPHY-CODE_"" ""_ICDO-TOPOGRAPHY""~"
^DIPT(1277,"F",5)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P(DIP(1),U,8),X=X W X K DIP;""L"";C108;L1;Z;""INTERNAL(LATERALITY)""~22.3;""MORPHOLOGY"";C111;L22~"
^DIPT(1277,"H")="PA [Patient Index-ACOS (132c)]"
^DIPT(1278,0)="MCNONENDOPARAC^3020726.0935^^699^^^3020726"
^DIPT(1278,"DXS",1,1)="ELECTIVE"
^DIPT(1278,"DXS",1,2)="URGENT"
^DIPT(1278,"DXS",1,3)="EMERGENCY"
^DIPT(1278,"DXS",2,"IM")="INTRAMUSCULAR"
^DIPT(1278,"DXS",2,"IV")="INTRAVENOUS"
^DIPT(1278,"DXS",2,"O")="ORAL"
^DIPT(1278,"DXS",2,"PV")="PARAVARICEAL"
^DIPT(1278,"DXS",2,"SM")="SUBMUCOSAL"
^DIPT(1278,"DXS",2,"SQ")="SUBCUTANEOUS"
^DIPT(1278,"DXS",2,"T")="TOPICAL"
^DIPT(1278,"DXS",2,"V")="INTRAVARICEAL"
^DIPT(1278,"DXS",3,1)="WASH"
^DIPT(1278,"DXS",3,2)="IMMERSION"
^DIPT(1278,"DXS",3,3)="GAS"
^DIPT(1278,"DXS",3,4)="UNKNOWN"
^DIPT(1278,"DXS",3,5)="OTHER"
^DIPT(1278,"DXS",4,"A")="ABNORMAL"
^DIPT(1278,"DXS",4,"I")="INCOMPLETE EXAMINATION"
^DIPT(1278,"DXS",4,"N")="NORMAL"
^DIPT(1278,"DXS",5,1)="REQUIRED NO THERAPY"
^DIPT(1278,"DXS",5,2)="REQUIRED TRANSFUSION"
^DIPT(1278,"DXS",5,3)="REQUIRED MEDICAL THERAPY"
^DIPT(1278,"DXS",5,4)="REQUIRED ENDOSCOPIC THERAPY"
^DIPT(1278,"DXS",5,5)="REQUIRED SURGICAL THERAPY"
^DIPT(1278,"DXS",5,6)="RESULTED IN DEATH"
^DIPT(1278,"F",1)="""PRIMARY PROVIDER: "";C5~701;X~""FELLOW: "";C5~200;X~""2ND FELLOW: "";C40~201;X~""PERFORMED AT: "";C5~8;X~""PERFORMED BY: "";C40~6;X~""WARD/CLINIC: "";C5~9;X~"
^DIPT(1278,"F",2)="""PROCEDURE: "";C5;S~-697.2,^MCAR(697.2,^^S I(0,0)=D0 S DIP(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X S D(0)=+X;Z;""1:""~-697.2,7;X~"
^DIPT(1278,"F",3)="""PROCEDURE SUMMARY: "";C5~600;X~""PROCEDURE START TIME: "";C5;S~10;X~""PROCEDURE STOP TIME: "";C40~11;X~""URGENCY: "";C5;S~12;X~""PROTOCOL: "";C5;S~2.8;X~"
^DIPT(1278,"F",4)="""EGD SIMPLE PRI. EXAM: "";C5;S~2.85;X~""LAB OR XRAY: "";C5;S~2.86;X~""OCCULT BLOOD: "";C5;S~2.87;X~""SPECIMEN COLLECTION: "";C5;S~2.88;X~"
^DIPT(1278,"F",5)="""PRESCRIPTION GIVEN: "";C5;S~40,"" "";C10~40,.01;X~40,""DOSAGE: "";C50~40,1;X~""INSTRUCTION: "";C5;S~203,.01~""INSTRUMENT: "";C5;S~4,.01;X~""MEDICATIONS: "";C5;S~"
^DIPT(1278,"F",6)="5,"" "";C10~5,.01;X~5,""DOSE ROUTE: "";C30~5,1;X~5,""TOTAL DOSE: "";C60~5,2;X~""POST-PROCEDURE INST. CLEANING: "";C5;S~29;X~""SIGNS AND SYMPTOMS: "";C5;S~"
^DIPT(1278,"F",7)="2.2,.01;C26;X~""SUMMARY: "";C5;S~202;X~""RESULTS: "";C5;S~28,.01;C15;X~""FOLLOWUP DEVICE/THERAPY: "";C5;S~2.6,.01;C31;X~""SURVEILLANCE: "";C5;S~2.7,.01;C21;X~"
^DIPT(1278,"F",8)="""INDICATION COMMENTS: "";C5;S~3;X~""INDICATED THERAPY: "";C5;S~2.1,.01;C25;X~""DISEASE FOLLOWUP: "";C5;S~2.5,.01;C24;X~""COMPLICATION: "";C5;S~30,"" "";C10~"
^DIPT(1278,"F",9)="30,.01;X~30,""COMP. RESULTS: "";C50~30,1;X~""DIAGNOSIS: "";C5;S~37.1,.01~S MCFILE=699 D DISP^MCMAG;Z;""S MCFILE=699 D DISP^MCMAG""~K MCFILE;Z;""K MCFILE""~"
^DIPT(1278,"H")="@"
^DIPT(1278,"IOM")="75"
^DIPT(1278,"LAST")=""
^DIPT(1278,"ROU")="^MCPARC"
^DIPT(1278,"ROUOLD")="MCPARC"
^DIPT(1278,"SUB")="1"
^DIPT(1279,0)="MAG FAILED IMAGES^3001024.0831^^2006.575^^^3001024"
^DIPT(1279,"F",1)="3;L25~2;L11~6;L16~7~""Modality: "";C5~10;X~""#Images: "";C25~"
^DIPT(1279,"F",2)="W $S($D(^MAGD(2006.575,D0,""RLATE"",0)):$P(^(0),U,4),1:1);X;Z;""W $S($D(^MAGD(2006.575,D0,""RLATE"",0)):$P(^(0),U,4),1:1)""~"""";S1~"
^DIPT(1279,"H")="DICOM Failed Images LIST"
^DIPT(1280,0)="PXRM SPONSOR LIST^3010829.1402^@^811.6^^@^3030128"
^DIPT(1280,"F",1)="""Name:"";C1~.01;C8;X~""Class:"";C1~.02;C8;X~"""";S1~"
^DIPT(1280,"H")="REMINDER SPONSOR LIST"
^DIPT(1281,0)="ONC EXTRACT^3010207.1601^@^160.16^^@^3010207"
^DIPT(1281,"F",2)="1,.01~1,2;C10~1,3;C20;X~"
^DIPT(1281,"H")="ONCOLOGY DATA EXTRACT FORMAT LIST"
^DIPT(1295,0)="ONC EXTRACT REPORT^3051206.1439^@^165.5^^@^3060203"
^DIPT(1295,"DCL","165.5^.025")="!"
^DIPT(1295,"F",2)=".025;""PID"";C1~.02;C8~.061;""ACC/SEQ NUM"";C36~20.1;""SITE"";C51~3;C58;L10~155;C70;L10~"
^DIPT(1295,"H")="@"
^DIPT(1295,"SUB")="1"
^DIPT(1296,0)="PXRM SPONSOR INQUIRY^3050808.1344^@^811.6^^@^3050902"
^DIPT(1296,"F",1)="""Name:"";C1;S1~.01;C7;X~""Class:"";C1;S1~100;C8;X~""Review Date:"";C1;S1~102;C14;X~""Edit History:"";C1;S1~110,""Edit Date:"";C5;S1~110,.01;C16;X~"
^DIPT(1296,"F",2)="110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~1,"""";S1~1,""Contact:"";C1~1,.01;C10;X~1,1,.01;C3~""Associated Sponsors:"";C1;S1~"
^DIPT(1296,"F",3)="2,.01;C2~"
^DIPT(1296,"H")="REMINDER SPONSOR LIST"
^DIPT(1297,0)="MAGJ PRIOR PRINT^2990701.1357^@^2006.65^^@^3010913"
^DIPT(1297,"F",2)=".01;""CPT""~.02;L70~1,.01;""PRIOR""~1,7;""CPT DESCRIPTION"";L50~1,6;""FETCH""~1,5;W9;""DAY LIMIT""~"
^DIPT(1297,"H")="VISTARAD PREFETCH LOGIC TABLE"
^DIPT(1298,0)="IBCEM MESSAGE LIST HDR^3000427.1402^@^364.2^^@^3000428"
^DIPT(1298,"DXS",1,9.2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DIPT(1298,"F",1)="""EDI RETURN MESSAGE DETAIL"";C0;""""~S X=DT S X=X,X=$P(X,""."",1) S Y=X D DT K DIP;C45;L18;"""";Z;""DATE(TODAY)"";d~"
^DIPT(1298,"F",2)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" W X K DIP;C59;"""";Z;""TIME(NOW)""~"
^DIPT(1298,"F",3)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C69;"""";Z;""""PAGE: ""_PAGE""~"
^DIPT(1298,"F",4)="S X=""-"",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C0;L80;S;"""";Z;""DUP(""-"",80)""~"
^DIPT(1298,"H")="@"
^DIPT(1298,"SUB")="1"
^DIPT(1299,0)="IBCEM MESSAGE LIST^3000807.1256^@^364.2^^@^3000807"
^DIPT(1299,"DXS",1,9)="X DXS(1,9.3) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(3),X=X S X=X_Y"
^DIPT(1299,"DXS",1,9.2)="S DIP(2)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""DATE RECORDED: "",DIP(1)=X S X=$P(DIP(2),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1299,"DXS",1,9.3)="X DXS(1,9.2) S X=X_Y_""@"",DIP(3)=X S X=$P(DIP(2),U,3)"
^DIPT(1299,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""BILL #: "",DIP(2)=X,D0=$P(DIP(1),U,5) S:'D0!'$D(^IBA(364,+D0,0)) D0=-1 S DIP(101)=$S($D(^IBA(364,D0,0)):^(0),1:"""")"
^DIPT(1299,"DXS",3,9)="S DIP(2)=$C(59)_$P($G(^DD(364.2,.06,0)),U,3),DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""STATUS: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59),1)"
^DIPT(1299,"DXS",4,9)="X DXS(4,9.3) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(3),X=X S X=X_Y"
^DIPT(1299,"DXS",4,9.2)="S DIP(2)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""MESSAGE DATE: "",DIP(1)=X S X=$P(DIP(2),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1299,"DXS",4,9.3)="X DXS(4,9.2) S X=X_Y_""@"",DIP(3)=X S X=$P(DIP(2),U,10)"
^DIPT(1299,"DXS",5,9)="X DXS(5,9.3) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(3),X=X S X=X_Y"
^DIPT(1299,"DXS",5,9.2)="S DIP(2)=$S($D(^IBA(364.2,D0,1)):^(1),1:"""") S X=""STATUS CHANGED DATE: "",DIP(1)=X S X=$P(DIP(2),U,3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1299,"DXS",5,9.3)="X DXS(5,9.2) S X=X_Y_""@"",DIP(3)=X S X=$P(DIP(2),U,3)"
^DIPT(1299,"DXS",6,9)="S DIP(2)=$C(59)_$P($G(^DD(364.2,.08,0)),U,3),DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""SOURCE LEVEL: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_"":"",2),$C(59),1)"
^DIPT(1299,"DXS",7,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^IBA(364,D,0)) S X=$P(^(0),U,1) S:$D(^DGCR(399,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(2) D M"
^DIPT(1299,"DXS",7,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^IBA(364,""C"",I(100,0))),DIMSCNT=$QL(DIMQ) F S DIMQ=$Q(@DIMQ) Q:DIMQ="""" Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT X DXS(7,9.2) Q:'$D(D) S D=D0"
^DIPT(1299,"F",1)="S DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""MESSAGE #: ""_$P(DIP(1),U,1) W X K DIP;X;C1;Z;""""MESSAGE #: ""_#.01""~"
^DIPT(1299,"F",2)="S DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""MESSAGE TYPE: ""_$S('$D(^IBE(364.3,+$P(DIP(1),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;C40;X;Z;""""MESSAGE TYPE: ""_MESSAGE TYPE""~"
^DIPT(1299,"F",3)="X DXS(1,9) W X K DIP;C3;X;Z;""""DATE RECORDED: ""_NUMDATE(DATE RECORDED)_""@""_TIME(DATE RECORDED)""~"
^DIPT(1299,"F",4)="S DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""BATCH NUMBER: ""_$S('$D(^IBA(364.1,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C40;X;Z;""""BATCH NUMBER: ""_BATCH NUMBER""~"
^DIPT(1299,"F",5)="X DXS(2,9.2) S X=$S('$D(^DGCR(399,+$P(DIP(101),U,1),0)):"""",1:$P(^(0),U,1)),Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C3;X;Z;""""BILL #: ""_TRANSMIT BILL""~"
^DIPT(1299,"F",6)="X DXS(3,9) W X K DIP;C40;X;Z;""""STATUS: ""_STATUS""~X DXS(4,9) W X K DIP;C3;X;Z;""""MESSAGE DATE: ""_NUMDATE(MESSAGE DATE)_""@""_TIME(MESSAGE DATE)""~"
^DIPT(1299,"F",7)="S DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""UPDATE TASK: ""_$P(DIP(1),U,11) W X K DIP;C40;X;Z;""""UPDATE TASK: ""_UPDATE TASK""~"
^DIPT(1299,"F",8)="X DXS(5,9) W X K DIP;C3;X;d;L18;Z;""""STATUS CHANGED DATE: ""_NUMDATE(STATUS CHANGED DATE)_""@""_TIME(STATUS CHANGED DATE)""~"
^DIPT(1299,"F",9)="S DIP(1)=$S($D(^IBA(364.2,D0,1)):^(1),1:"""") S X=""STATUS CHANGED BY: ""_$S('$D(^VA(200,+$P(DIP(1),U,4),0)):"""",1:$P(^(0),U,1)) W X K DIP;C3;X;Z;""""STATUS CHANGED BY: ""_STATUS CHANGED BY""~"
^DIPT(1299,"F",10)="X DXS(6,9) W X K DIP;C3;X;Z;""""SOURCE LEVEL: ""_SOURCE LEVEL""~"
^DIPT(1299,"F",11)="S DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=""SOURCE: ""_$P(DIP(1),U,13) W X K DIP;C40;X;Z;""""SOURCE: ""_SOURCE""~""MESSAGE:"";C1;X~2,.01;C1;X;m~"
^DIPT(1299,"F",12)="""BILL NUMBERS:"";C7;S;""""~""TRANSMISSION STATUS:"";C29;""""~""-------------"";C7;""""~""--------------------"";C29;""""~"
^DIPT(1299,"F",13)="-364.1,^IBA(364.1,^^S I(0,0)=D0 S DIP(1)=$S($D(^IBA(364.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S D(0)=+X;Z;""BATCH NUMBER:""~"
^DIPT(1299,"F",14)="-364.1,-364,^IBA(364,^1^S I(100,0)=$G(D0) X DXS(7,9.3) S X="""" S D0=I(100,0);Z;""EDI TRANSMIT BILL:""~-364.1,-364,.01;"""";C7~-364.1,-364,.03;"""";C29~"
^DIPT(1299,"H")="EDI MESSAGES LIST"
^DIPT(1299,"ROUOLD")="IBXEDIM"
^DIPT(1300,0)="IBCE RULE DISPLAY^2990429.1738^@^364.4^^@^3011011"
^DIPT(1300,"DXS",1,9)="X DXS(1,9.3) S DIP(103)=X S X=""EXC"",X1=DIP(103) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" S X=X S D0=I(0,0) S D1=I(1,0)"
^DIPT(1300,"DXS",1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1300,"DXS",1,9.3)="X DXS(1,9.2) X ""F D1=0:0 S D1=$O(^IBE(364.4,D0,2,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102)"
^DIPT(1300,"DXS",2,9)="X DXS(2,9.3) S DIP(103)=X S X=""INC"",X1=DIP(103) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" S X=X S D0=I(0,0) S D1=I(1,0)"
^DIPT(1300,"DXS",2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1300,"DXS",2,9.3)="X DXS(2,9.2) X ""F D1=0:0 S D1=$O(^IBE(364.4,D0,3,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102)"
^DIPT(1300,"DXS",3,9)="S DIP(2)=$C(59)_$S($D(^DD(364.4,.11,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""TYPE OF RULE : ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,11)_"":"",2),$C(59),1)"
^DIPT(1300,"DXS",4,9)="S DIP(2)=$C(59)_$S($D(^DD(364.4,.03,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""TRANSMIT TYPE: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,3)_"":"",2),$C(59),1)"
^DIPT(1300,"DXS",5,9)="S DIP(2)=$C(59)_$S($D(^DD(364.4,.05,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""FORM TYPE : ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_"":"",2),$C(59),1)"
^DIPT(1300,"DXS",6,9.2)="S DIP(2)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""ACTIVE AS OF : "",DIP(1)=X S X=$P(DIP(2),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1300,"DXS",7,9.2)="S DIP(2)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""INACTIVE AS OF: "",DIP(1)=X S X=$P(DIP(2),U,6) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1300,"DXS",8,9)="S DIP(2)=$C(59)_$S($D(^DD(364.4,.07,0)):$P(^(0),U,3),1:""""),DIP(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""INS CO. OPTION: ""_$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59),1)"
^DIPT(1300,"DXS",9,9)="X DXS(9,9.4) S X1=DIP(7) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""""
^DIPT(1300,"DXS",9,9.2)="S X=""EXC"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X,DIP(1)=X S X=""EXCLUDED INSURANCE COMPANIES:"",DIP(2)=X,DIP(3)=X S X=""INC"""
^DIPT(1300,"DXS",9,9.3)="X DXS(9,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X,DIP(4)=X S X=""APPLY ONLY TO INSURANCE COMPANIES:"",DIP(5)=X S X=1"
^DIPT(1300,"DXS",9,9.4)="X DXS(9,9.3) S DIP(6)=X S X="""",X=$S(DIP(1):DIP(2),DIP(4):DIP(5),DIP(6):X),DIP(7)=X S X=""INS"""
^DIPT(1300,"DXS",10,9.2)="S X=""CT"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X+1,DIP(1)=X S X=""CT"""
^DIPT(1300,"DXS",11,9)="X DXS(11,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(1),X=X S X=X_Y_"") ""_$S('$D(^DIC(36,+$P(DIP(2),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(1300,"DXS",11,9.2)="S DIP(2)=$S($D(^IBE(364.4,D0,2,D1,0)):^(0),1:"""") S X=""("",DIP(1)=X S X=""CT"""
^DIPT(1300,"DXS",12,9.2)="S X=""CT"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X+1,DIP(1)=X S X=""CT"""
^DIPT(1300,"DXS",13,9)="X DXS(13,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(1),X=X S X=X_Y_"") ""_$S('$D(^DIC(36,+$P(DIP(2),U,1),0)):"""",1:$P(^(0),U,1))"
^DIPT(1300,"DXS",13,9.2)="S DIP(2)=$S($D(^IBE(364.4,D0,3,D1,0)):^(0),1:"""") S X=""("",DIP(1)=X S X=""CT"""
^DIPT(1300,"DXS",14,9)="X DXS(14,9.4) S X1=DIP(106) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" S X=X S D0=I(0,0) S D1=I(1,0)"
^DIPT(1300,"DXS",14,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),DIP(102)="""""
^DIPT(1300,"DXS",14,9.3)="X DXS(14,9.2) X ""F D1=0:0 S D1=$O(^IBE(364.4,D0,""""BTYP"""",D1)) Q:D1'>0 S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" DIP(102)=DIP(102)+1"" S D(1)=D1 S X=+DIP(102)"
^DIPT(1300,"DXS",14,9.4)="X DXS(14,9.3) S DIP(103)=X S X="""",DIP(104)=X S X=1,DIP(105)=X S X=""NO "",X=$S(DIP(103):DIP(104),DIP(105):X),DIP(106)=X S X=""BTYP"""
^DIPT(1300,"DXS",15,9.2)="S X=""BTYP"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X_""BILL TYPE RESTRICTIONS"",DIP(1)=X S X=""BTYP"""
^DIPT(1300,"F",1)="X DXS(1,9) W X K DIP;X;Z;""SETPARAM(COUNT(EXCLUDED INSURANCE COMPANY),""EXC"")""~"
^DIPT(1300,"F",2)="X DXS(2,9) W X K DIP;X;Z;""SETPARAM(COUNT(INCLUDED INSURANCE COMPANY),""INC"")""~"
^DIPT(1300,"F",3)="S X=0,DIP(1)=X S X=""CT"",X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(0,""CT"")""~"
^DIPT(1300,"F",4)="S DIP(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""RULE NUMBER : ""_$P(DIP(1),U,1) W X K DIP;C1;X;Z;""""RULE NUMBER : ""_RULE NUMBER""~"
^DIPT(1300,"F",5)="X DXS(3,9) W X K DIP;C35;L44;X;Z;""""TYPE OF RULE : ""_TYPE OF RULE""~X DXS(4,9) W X K DIP;C1;X;L34;Z;""""TRANSMIT TYPE: ""_TRANSMISSION TYPE""~"
^DIPT(1300,"F",6)="X DXS(5,9) W X K DIP;C35;L44;X;Z;""""FORM TYPE : ""_FORM TYPE""~"
^DIPT(1300,"F",7)="X DXS(6,9.2) S X=X_Y W X K DIP;C1;L25;X;Z;""""ACTIVE AS OF : ""_NUMDATE(EARLIEST ACTIVATE DATE)""~"
^DIPT(1300,"F",8)="X DXS(7,9.2) S X=X_Y W X K DIP;C35;L25;X;Z;""""INACTIVE AS OF: ""_NUMDATE(INACTIVE DATE)""~"
^DIPT(1300,"F",9)="S DIP(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=""SHORT DESC : ""_$P(DIP(1),U,8) W X K DIP;C1;X;Z;""""SHORT DESC : ""_SHORT DESCRIPTION""~"
^DIPT(1300,"F",10)="X DXS(8,9) W X K DIP;C1;X;S;Z;""""INS CO. OPTION: ""_INSURANCE COMPANY OPTION""~"
^DIPT(1300,"F",11)="X DXS(9,9) W X K DIP;X;Z;""SETPARAM($S(PARAM(""EXC""):""EXCLUDED INSURANCE COMPANIES:"",PARAM(""INC""):""APPLY ONLY TO INSURANCE COMPANIES:"",1:""""),""INS"")""~"
^DIPT(1300,"F",12)="S X=""INS"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;C5;L35;X;Z;""PARAM(""INS"")""~"
^DIPT(1300,"F",13)="2,X DXS(10,9.2) S X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(PARAM(""CT"")+1,""CT"")""~"
^DIPT(1300,"F",14)="2,X DXS(11,9) W X K DIP;C7;X;Z;""""(""_PARAM(""CT"")_"") ""_EXCLUDED INSURANCE COMPANY""~"
^DIPT(1300,"F",15)="3,X DXS(12,9.2) S X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(PARAM(""CT"")+1,""CT"")""~"
^DIPT(1300,"F",16)="3,X DXS(13,9) W X K DIP;C7;X;Z;""""(""_PARAM(""CT"")_"") ""_INCLUDED INSURANCE COMPANY""~"
^DIPT(1300,"F",17)="X DXS(14,9) W X K DIP;X;Z;""SETPARAM($S(COUNT(BILL TYPE RESTRICTIONS):"""",1:""NO ""),""BTYP"")""~"
^DIPT(1300,"F",18)="X DXS(15,9.2) S X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(PARAM(""BTYP"")_""BILL TYPE RESTRICTIONS"",""BTYP"")""~"
^DIPT(1300,"F",19)="S X=""BTYP"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;S;C1;X;Z;""PARAM(""BTYP"")""~"
^DIPT(1300,"F",20)=".1,S DIP(1)=$S($D(^IBE(364.4,D0,""BTYP"",D1,0)):^(0),1:"""") S X=""Bill Type: ""_$P(DIP(1),U,1) W X K DIP;C3;X;Z;""""Bill Type: ""_BILL TYPE""~"
^DIPT(1300,"F",21)=".1,""Active Date: "";C20;X~.1,.02;X~.1,""Inactive Date: "";X;C45~.1,.03;X~"
^DIPT(1300,"F",22)="S DIP(1)=$S($D(^IBE(364.4,D0,1)):^(1),1:"""") S X=""RULE CODE: ""_$E(DIP(1),1,245) W X K DIP;C1;S;X;Z;""""RULE CODE: ""_RULE CODE""~"
^DIPT(1300,"F",23)="S DIP(1)=$S($D(^IBE(364.4,D0,10)):^(10),1:"""") S X=""ADDED BY: ""_$S('$D(^VA(200,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;S;C1;X;L35;Z;""""ADDED BY: ""_RULE ADDED BY""~"
^DIPT(1300,"F",24)="S DIP(1)=$S($D(^IBE(364.4,D0,10)):^(10),1:"""") S X=""EDITED BY: ""_$S('$D(^VA(200,+$P(DIP(1),U,3),0)):"""",1:$P(^(0),U,1)) W X K DIP;C40;X;L35;Z;""""EDITED BY: ""_RULE LAST EDITED BY""~"
^DIPT(1300,"F",25)="""ADDED ON: "";C1;X~10.02;X;L18~""EDITED ON: "";C40;X~10.04;X~""FULL DESCRIPTION:"";S;X~4,.01;W80;C3;X~"
^DIPT(1300,"H")="[IBCE RULE DISPLAY HEADER]"
^DIPT(1301,0)="IBCE RULE DISPLAY HEADER^2990429.0833^@^364.4^^@^3011011"
^DIPT(1301,"F",1)="""TRANSMISSION RULE DETAIL"";C1~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C36;X;L18;Z;""NOW""~"
^DIPT(1301,"F",2)="S X=""PAGE: "",DIP(1)=X,X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C70;X;Z;""""PAGE: ""_PAGE""~"
^DIPT(1301,"F",3)="S X=""="",DIP(1)=X S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;X;Z;""DUP(""="",80)""~"" "";C1;X~"
^DIPT(1301,"H")="IB EDI TRANSMISSION RULE LIST"
^DIPT(1302,0)="ABSV DON ORG VALUE PRINT^3010803.144^^503340^^^3020422"
^DIPT(1302,"%D",0)="^^2^2^3010824^"
^DIPT(1302,"%D",1,0)="This allows the user to print a value report for all organizations for a"
^DIPT(1302,"%D",2,0)="range of dates."
^DIPT(1302,"DCL","503340^6")="&"
^DIPT(1302,"F",2)=".01~2~4~5;L15~7;L15~6;~1.7;L25~"
^DIPT(1302,"H")="ORGANIZATION VALUE PRINT (ALL)"
^DIPT(1303,0)="ABSV DON RECEIVED PRINT^3010803.1457^^503340^^^3020312"
^DIPT(1303,"%D",0)="^^2^2^3010824^"
^DIPT(1303,"%D",1,0)="This allows the user to print a value report by date received for a range"
^DIPT(1303,"%D",2,0)="of dates."
^DIPT(1303,"DCL","503340^6")="&"
^DIPT(1303,"F",2)=".01~1.5;L20~4;L4~5;L15~7;L15~6;~1.7;L25~"
^DIPT(1303,"H")="VALUE PRINT BY DATE RECEIVED"
^DIPT(1304,0)="ABSV DON INDIVIDUAL^3010803.1539^^503340^^^3011205"
^DIPT(1304,"%D",0)="^^2^2^3010824^"
^DIPT(1304,"%D",1,0)="This allows the user to print a value report by the individual donor for a"
^DIPT(1304,"%D",2,0)="range of dates."
^DIPT(1304,"DCL","503340^6")="&"
^DIPT(1304,"F",2)=".01~2~3~5~7;L15~6~1.7;L25~"
^DIPT(1304,"H")="INDIVIDUAL DONOR VALUE PRINT"
^DIPT(1305,0)="ABSV DON TYPE VALUE PRINT^3010803.1446^^503340^^^3020415"
^DIPT(1305,"%D",0)="^^2^2^3010824^"
^DIPT(1305,"%D",1,0)="This allows the user to print a value report by type of donation for a"
^DIPT(1305,"%D",2,0)="range of dates."
^DIPT(1305,"DCL","503340^6")="&"
^DIPT(1305,"F",2)=".01~1.5~2~4;L4~7;L20~6~1.7;L25~"
^DIPT(1305,"H")="TYPE OF DONATION VALUE PRINT"
^DIPT(1306,0)="ABSV DON ACK VALUE PRINT^3010803.141^^503340^^^3020422"
^DIPT(1306,"%D",0)="^^2^2^3010824^"
^DIPT(1306,"%D",1,0)="This allows the user to print a donations value report by Acknowledgement"
^DIPT(1306,"%D",2,0)="date for a range of dates."
^DIPT(1306,"DCL","503340^6")="&"
^DIPT(1306,"F",2)=".01~1.5;L20~4;L4~5;L15~7;L15~6~1.7;L25~"
^DIPT(1306,"H")="VALUE PRINT BY DATE ACKNOWLEDGED"
^DIPT(1307,0)="ABSV DON FISCAL PRINT^3010816.1112^^503340^^^3020419"
^DIPT(1307,"%D",0)="^^2^2^3010824^"
^DIPT(1307,"%D",1,0)="This allows the user to print a value report for Fiscal Service for a"
^DIPT(1307,"%D",2,0)="range of dates."
^DIPT(1307,"DCL","503340^6")="&"
^DIPT(1307,"F",2)=".01~5~2~6~"
^DIPT(1307,"H")="FISCAL IN KIND DONATIONS REPORT"
^DIPT(1308,0)="ABSV DON IND ORG^3010808.1126^^503340^^^3020422"
^DIPT(1308,"%D",0)="^^2^2^3010824^"
^DIPT(1308,"%D",1,0)="This allow the user to print a value report for a single organization by a"
^DIPT(1308,"%D",2,0)="range of dates."
^DIPT(1308,"DCL","503340^6")="+"
^DIPT(1308,"F",2)="2~.01~5;L16~3.5;"""";R8~4~6~7~"
^DIPT(1308,"H")="DONATIONS LIST"
^DIPT(1309,0)="ABSV DON POST^3010816.1237^@^503340^^@^3020429"
^DIPT(1309,"%D",0)="^^2^2^3010824^"
^DIPT(1309,"%D",1,0)="This allows the user to print a value report by post/unit/chapter for a"
^DIPT(1309,"%D",2,0)="range of dates."
^DIPT(1309,"DCL","503340^6")="+"
^DIPT(1309,"F",2)="2~.01~5~6~7;L20~1.7~"
^DIPT(1309,"H")="POST/UNIT/CHAPTER DONATIONS"
^DIPT(1310,0)="ABSV DON DONOR STATISTICS^3010822.135^^503340^^^3011205"
^DIPT(1310,"%D",0)="^^2^2^3010824^"
^DIPT(1310,"%D",1,0)="This allows the user to print a statistical report by individual donor for"
^DIPT(1310,"%D",2,0)="a range of dates."
^DIPT(1310,"DCL","503340^6")="+"
^DIPT(1310,"F",2)="1.7~2~6~"
^DIPT(1310,"H")="INDIVIDUAL DONOR STATISTICS"
^DIPT(1311,0)="ABSV DON ORG STATS^3010822.1446^^503340^^^3020422"
^DIPT(1311,"%D",0)="^^2^2^3010824^"
^DIPT(1311,"%D",1,0)="This allows the user to print a statistical report for all organizations"
^DIPT(1311,"%D",2,0)="for a range of dates."
^DIPT(1311,"DCL","503340^6")="+"
^DIPT(1311,"F",2)="2~6~"
^DIPT(1311,"H")="DONATIONS STATISTICS"
^DIPT(1312,0)="ABSV DON DATE STATS^3010822.1523^^503340^^^3020419"
^DIPT(1312,"%D",0)="^^2^2^3010824^"
^DIPT(1312,"%D",1,0)="This allows the user to print a statistical report by date received for a"
^DIPT(1312,"%D",2,0)="range of dates."
^DIPT(1312,"DCL","503340^6")="+"
^DIPT(1312,"DNP")="1"
^DIPT(1312,"F",2)="6~"
^DIPT(1312,"H")="DONATIONS STATISTICS"
^DIPT(1313,0)="ABSV DON FUND STATS^3010822.1535^^503340^^^3020312"
^DIPT(1313,"%D",0)="^^2^2^3010824^"
^DIPT(1313,"%D",1,0)="This allows the user to print a statistical report by GPF for a range of"
^DIPT(1313,"%D",2,0)="dates."
^DIPT(1313,"DCL","503340^6")="+"
^DIPT(1313,"DNP")="1"
^DIPT(1313,"F",2)="6~"
^DIPT(1313,"H")="DONATIONS STATISTICS"
^DIPT(1314,0)="ABSV DON TYPE STATS^3010822.1545^@^503340^^@^3020312"
^DIPT(1314,"%D",0)="^^2^2^3010824^"
^DIPT(1314,"%D",1,0)="This allows the user to print a statistical report by type of donation for"
^DIPT(1314,"%D",2,0)="a range of dates."
^DIPT(1314,"DCL","503340^6")="+"
^DIPT(1314,"DNP")="1"
^DIPT(1314,"F",2)="6~"
^DIPT(1314,"H")="DONATIONS STATISTICS"
^DIPT(1315,0)="ABSV DON EXPORT^3010823.1642^@^503340^^@^3010823"
^DIPT(1315,"%D",0)="^^2^2^3010824^"
^DIPT(1315,"%D",1,0)="This allows the user to print data that is exported for the donor file for"
^DIPT(1315,"%D",2,0)="a range of dates."
^DIPT(1315,"F",1)=".01~W ""^"";Z;""W ""^""""~.7~W ""^"";Z;""W ""^""""~1.5~W ""^"";Z;""W ""^""""~1.7~W ""^"";Z;""W ""^""""~1.71~W ""^"";Z;""W ""^""""~1.72~W ""^"";Z;""W ""^""""~20~W ""^"";Z;""W ""^""""~21.5~"
^DIPT(1315,"F",2)="W ""^"";Z;""W ""^""""~22~W ""^"";Z;""W ""^""""~2~W ""^"";Z;""W ""^""""~3.5~W ""^"";Z;""W ""^""""~4~W ""^"";Z;""W ""^""""~5~W ""^"";Z;""W ""^""""~6~W ""^"";Z;""W ""^""""~7~W ""^"";Z;""W ""^""""~8,.01~"
^DIPT(1315,"F",3)="W ""^"";Z;""W ""^""""~14~W ""^"";Z;""W ""^""""~14.5~W ""^"";Z;""W ""^""""~16~W ""^"";Z;""W ""^""""~18~"
^DIPT(1315,"H")="@"
^DIPT(1315,"SUB")="1"
^DIPT(1316,0)="ROR LOG^3040608.1408^^798.7^^@^3060202"
^DIPT(1316,"%D",0)="^.4001^2^2^3040608^^^"
^DIPT(1316,"%D",1,0)="This template is used by the [RORMNT PRINT LOGS] option to print "
^DIPT(1316,"%D",2,0)="messages from the log files."
^DIPT(1316,"DXS")="2"
^DIPT(1316,"DXS",1,9)="X DXS(1,9.2) S X=X S Y=X,X=DIP(3),X=X S X=X_Y_"")"",DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X)"
^DIPT(1316,"DXS",1,9.2)="S DIP(1)=$S($D(^RORDATA(798.7,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S X=X'="""",DIP(2)=$G(X) S X="" ("",DIP(3)=$G(X) S X=$P(DIP(1),U,4)"
^DIPT(1316,"F",1)="4,.01;S1;C1~4,1~4,3;""PATIENT NAME (DFN)""~4,X DXS(1,9) W X K DIP;X;Z;""$S(INTERNAL(PATIENT)'="""":"" (""_INTERNAL(PATIENT)_"")"",1:"""")""~4,2;C4~4,4,.01;C4~"
^DIPT(1316,"H")="CLINICAL REGISTRIES LOG FILE(S)"
^DIPT(1317,0)="ROR DATA ELEMENTS^3020404.1407^^799.2^^@^3050512"
^DIPT(1317,"F",1)="2,.02;R4;""Code""~2,.01;L25;""Data Name""~2,S DIP(1)=$S($D(^ROR(799.2,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) W X K DIP;L;""File"";Z;""FILE""~"
^DIPT(1317,"F",2)="2,6;L;""Field Number""~2,2;""Req""~2,1;""API""~"
^DIPT(1317,"F",3)="2,S DIP(1)=$S($D(^ROR(799.2,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X W X K DIP;""VT"";Z;""INTERNAL(VALUE TYPE)""~2,4.1;L20;""External Data""~"
^DIPT(1317,"F",4)="2,4.2;L20;""Internal Data""~"
^DIPT(1317,"H")="ROR METADATA LIST"
^DIPT(1318,0)="PRPF UNASSIGNED STATION LIST^3020802.0949^@^470^^@^3020803"
^DIPT(1318,"F",1)=".01;C1;L25;""PATIENT NAME""~50;L18~52~1~"
^DIPT(1318,"H")="UNASSIGNED STATION NAME LISTING"
^DIPT(1319,0)="ROR PENDING ERRORS^3020717.1342^^798.3^^@^3060202"
^DIPT(1319,"%D",0)="^^4^4^3020801^"
^DIPT(1319,"%D",1,0)="This template is used by the [RORMNT PENDING "
^DIPT(1319,"%D",2,0)="ERRORS LIST] menu option to print a list of "
^DIPT(1319,"%D",3,0)="patients with erroneous data (based on content of"
^DIPT(1319,"%D",4,0)="the ERROR multiples)."
^DIPT(1319,"F",2)=".01~0;""DFN""~1,.01~"
^DIPT(1319,"H")="LIST OF PENDING PATIENT ERRORS"
^DIPT(1320,0)="SCMC DIRECT PC FTEE^3050825.1231^@^404.52^^@^3051230"
^DIPT(1320,"DCL","404.52^.09")="&"
^DIPT(1320,"DCL","404.52^.097")="&"
^DIPT(1320,"DCL","404.52^0")="&"
^DIPT(1320,"DXS",1,9)="X DXS(1,9.2) S Y=X,X=DIP(3),X=X_Y_"")"",DIP(5)=$G(X) S X=1,DIP(6)=$G(X),DIP(7)=$G(X) S X=DIP(1),X=$S(DIP(2):DIP(5),DIP(6):X)"
^DIPT(1320,"DXS",1,9.2)="X ""N I,Y ""_$P(^DD(404.52,.096,0),U,5,99) S DIP(1)=X S X=DIP(1)<0,DIP(2)=$G(X) S X=""("",DIP(3)=$G(X),DIP(4)=$G(X) S X=DIP(1),Y=X,X=DIP(4),X=X-Y"
^DIPT(1320,"F",1)=".03;L15;""Provider's Name""~-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEA:""~"
^DIPT(1320,"F",2)="-404.57,.02;""PC Team"";L17~-404.57,.01;""Provider's Team Position"""";L17~-404.57,W $$PCP^SCMCTSK6(D0);L3;""AP or PCP"";Z;""W $$PCP^SCMCTSK6(D0)""~"
^DIPT(1320,"F",3)="-404.57,5,.01;L15;""Associated Clinic""~.09;""Direct PC FTEE"";R4~"
^DIPT(1320,"F",4)="X ""N I,Y ""_$P(^DD(404.52,.098,0),U,5,99) S DIP(1)=X S X=DIP(1);R4;""Patients for Position Actual/ Active"";;Z;""(#.098)"";&~"
^DIPT(1320,"F",5)=".097;R4;""Patients for Position Allowed/ Maximum"";~X DXS(1,9);R5;""Available Patient Openings"";;Z;""$S((#.096)<0:""(""_(-(#.096))_"")"",1:(#.096))"";&~"
^DIPT(1320,"F",6)=".099;""Adjusted Panel Size""~"
^DIPT(1320,"H")="Direct PC FTEE and Panel Size Report"
^DIPT(1320,"IOM")="132"
^DIPT(1320,"LAST")=""
^DIPT(1320,"ROU")="^SCMCYPC"
^DIPT(1320,"ROUOLD")="SCMCYPC"
^DIPT(1320,"STATS","S",1)="0"
^DIPT(1320,"STATS","S",2)="0"
^DIPT(1320,"STATS","S",3)="0"
^DIPT(1320,"STATS","S",4)="0"
^DIPT(1320,"T",77)="4^1^1^NJ4,2X^,2"
^DIPT(1320,"T",85)="4^2^1^C^"
^DIPT(1320,"T",95)="4^3^1^CJ5,0^,0"
^DIPT(1320,"T",105)="5^4^1^C^"
^DIPT(1321,0)="SPN PRINT FAM^3021209.1719^^154.1^^^3021210"
^DIPT(1321,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""SSN: "",DIP(2)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1321,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""DOB: "",DIP(2)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1321,"DXS",3,9.2)="S DIP(2)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""Date Recorded: "",DIP(1)=X S X=$P(DIP(2),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1321,"DXS",4,9)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Swallowing: "",DIP(2)=X,Y=$P(DIP(1),U,1) X:$D(^DD(154.1,5.01,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y"
^DIPT(1321,"DXS",5,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Car Transfers: "",DIP(2)=X,Y=$P(DIP(1),U,2) X:$D(^DD(154.1,5.02,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X"
^DIPT(1321,"DXS",6,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Community Access: "",DIP(2)=X,Y=$P(DIP(1),U,3) X:$D(^DD(154.1,5.03,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X"
^DIPT(1321,"DXS",7,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Speech Intelligibility: "",DIP(2)=X,Y=$P(DIP(1),U,6) X:$D(^DD(154.1,5.06,2)) ^(2) S X=Y"
^DIPT(1321,"DXS",8,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Emotional Status: "",DIP(2)=X,Y=$P(DIP(1),U,7) X:$D(^DD(154.1,5.07,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X"
^DIPT(1321,"DXS",9,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Adjustment to Limitations: "",DIP(2)=X,Y=$P(DIP(1),U,8) X:$D(^DD(154.1,5.08,2)) ^(2) S X=Y"
^DIPT(1321,"DXS",10,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Employability: "",DIP(2)=X,Y=$P(DIP(1),U,9) X:$D(^DD(154.1,5.09,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X"
^DIPT(1321,"DXS",11,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Orientation: "",DIP(2)=X,Y=$P(DIP(1),U,10) X:$D(^DD(154.1,5.1,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X"
^DIPT(1321,"DXS",12,9)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Attention: "",DIP(2)=X,Y=$P(DIP(1),U,11) X:$D(^DD(154.1,5.11,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y"
^DIPT(1321,"DXS",13,9.2)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Safety Judgement: "",DIP(2)=X,Y=$P(DIP(1),U,12) X:$D(^DD(154.1,5.12,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X"
^DIPT(1321,"F",1)="S DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""Patient: ""_PATIENT""~"
^DIPT(1321,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,9),Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C40;Z;""""SSN: ""_PATIENT:SSN""~"
^DIPT(1321,"F",3)="X DXS(2,9.2) S DIP(102)=X,Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C58;Z;""""DOB: ""_PATIENT:DOB""~"
^DIPT(1321,"F",4)="""----------------------------------------------------------------------------"";C1~""Functional Assessment Measure (FAM)"";C24~"""";S1~"
^DIPT(1321,"F",5)="X DXS(3,9.2) S X=X_Y W X K DIP;C26;d;L18;Z;""""Date Recorded: ""_NUMDATE4(DATE RECORDED)""~"""";S2~X DXS(4,9) W X K DIP;C24;Z;""""Swallowing: ""_SWALLOWING""~"
^DIPT(1321,"F",6)="X DXS(5,9.2) S X=X_Y W X K DIP;C21;Z;""""Car Transfers: ""_CAR TRANSFERS""~X DXS(6,9.2) S X=X_Y W X K DIP;C18;Z;""""Community Access: ""_COMMUNITY ACCESS""~"
^DIPT(1321,"F",7)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Reading: "",DIP(2)=X,Y=$P(DIP(1),U,4) X:$D(^DD(154.1,5.04,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y W X K DIP;C27;Z;""""Reading: ""_READING""~"
^DIPT(1321,"F",8)="S DIP(1)=$S($D(^SPNL(154.1,D0,""FAM"")):^(""FAM""),1:"""") S X=""Writing: "",DIP(2)=X,Y=$P(DIP(1),U,5) X:$D(^DD(154.1,5.05,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y W X K DIP;C27;Z;""""Writing: ""_WRITING""~"
^DIPT(1321,"F",9)="X DXS(7,9.2) S Y=X,X=DIP(2),X=X_Y W X K DIP;C12;Z;""""Speech Intelligibility: ""_#5.06""~"
^DIPT(1321,"F",10)="X DXS(8,9.2) S X=X_Y W X K DIP;C18;Z;""""Emotional Status: ""_EMOTIONAL STATUS""~"
^DIPT(1321,"F",11)="X DXS(9,9.2) S Y=X,X=DIP(2),X=X_Y W X K DIP;C9;Z;""""Adjustment to Limitations: ""_ADJUSTMENT TO LIMITATIONS""~"
^DIPT(1321,"F",12)="X DXS(10,9.2) S X=X_Y W X K DIP;C21;Z;""""Employability: ""_EMPLOYABILITY""~X DXS(11,9.2) S X=X_Y W X K DIP;C23;Z;""""Orientation: ""_ORIENTATION""~"
^DIPT(1321,"F",13)="X DXS(12,9) W X K DIP;C25;Z;""""Attention: ""_ATTENTION""~X DXS(13,9.2) S X=X_Y W X K DIP;C18;Z;""""Safety Judgement: ""_SAFETY JUDGEMENT""~"
^DIPT(1321,"H")="OUTCOMES LIST"
^DIPT(1322,0)="SPN PRINT DIE^3021209.182^^154.1^^^3021210"
^DIPT(1322,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""SSN: "",DIP(2)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1322,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""DOB: "",DIP(2)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1322,"DXS",3,9.2)="S DIP(2)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""Date Recorded: "",DIP(1)=X S X=$P(DIP(2),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1322,"F",1)="S DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""Patient: ""_PATIENT""~"
^DIPT(1322,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,9),Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C40;Z;""""SSN: ""_PATIENT:SSN""~"
^DIPT(1322,"F",3)="X DXS(2,9.2) S DIP(102)=X,Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C58;Z;""""DOB: ""_PATIENT:DOB""~"
^DIPT(1322,"F",4)="""----------------------------------------------------------------------------"";C1~""Diener's (1985) Satisfaction with Life Scale"";C18~"""";S1~"
^DIPT(1322,"F",5)="X DXS(3,9.2) S X=X_Y W X K DIP;C26;d;L18;Z;""""Date Recorded: ""_NUMDATE4(DATE RECORDED)""~"""";S2~"
^DIPT(1322,"F",6)="S DIP(1)=$S($D(^SPNL(154.1,D0,""SCORE"")):^(""SCORE""),1:"""") S X=""Diener Composite Score: ""_$P(DIP(1),U,1) W X K DIP;C24;Z;""""Diener Composite Score: ""_DIENER COMPOSITE SCORE""~"
^DIPT(1322,"H")="OUTCOMES LIST"
^DIPT(1323,0)="SPN PRINT DUS^3021209.1824^@^154.1^^@^3021210"
^DIPT(1323,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""SSN: "",DIP(2)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1323,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""DOB: "",DIP(2)=X,D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1323,"DXS",3,9.2)="S DIP(2)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""Date Recorded: "",DIP(1)=X S X=$P(DIP(2),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1323,"F",1)="S DIP(1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:"""") S X=""Patient: ""_$S('$D(^DPT(+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""Patient: ""_PATIENT""~"
^DIPT(1323,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,9),Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C40;Z;""""SSN: ""_PATIENT:SSN""~"
^DIPT(1323,"F",3)="X DXS(2,9.2) S DIP(102)=X,Y=$P(DIP(101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y,Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C58;Z;""""DOB: ""_PATIENT:DOB""~"
^DIPT(1323,"F",4)="""----------------------------------------------------------------------------"";C1~""Duke University Severity of Illness Index (DUSOI)"";C18~"""";S1~"
^DIPT(1323,"F",5)="X DXS(3,9.2) S X=X_Y W X K DIP;C26;d;L18;Z;""""Date Recorded: ""_NUMDATE4(DATE RECORDED)""~"""";S2~"
^DIPT(1323,"F",6)="S DIP(1)=$S($D(^SPNL(154.1,D0,""SCORE"")):^(""SCORE""),1:"""") S X=""DUSOI Composite Score: ""_$P(DIP(1),U,2) W X K DIP;C24;Z;""""DUSOI Composite Score: ""_DUSOI COMPOSITE SCORE""~"
^DIPT(1323,"H")="OUTCOMES LIST"
^DIPT(1324,0)="ABSVM SERVICE CODES EXPORT^3030403.0705^@^503332^^@^3030422^3"
^DIPT(1324,100,0)="^.42A^5^5"
^DIPT(1324,100,1,0)="1^4"
^DIPT(1324,100,2,0)="2^4"
^DIPT(1324,100,3,0)="3^4"
^DIPT(1324,100,4,0)="4^4"
^DIPT(1324,100,5,0)="5^4"
^DIPT(1324,100,"B",1,1)=""
^DIPT(1324,100,"B",2,2)=""
^DIPT(1324,100,"B",3,3)=""
^DIPT(1324,100,"B",4,4)=""
^DIPT(1324,100,"B",5,5)=""
^DIPT(1324,105)=".998"
^DIPT(1324,"F",1)=".01~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1324,"F",2)="S DIP(1)=$S($D(^ABS(503332,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),DIP(2)=$G(X) S X=""-"",DIP(3)=$G(X) S X=1,X=$P(DIP(2),DIP(3),X) W X K DIP;X;Z;""$P(USING SERVICES/SUBDIVISIONS,""-"",1)""~"
^DIPT(1324,"F",3)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1324,"F",4)="S DIP(1)=$S($D(^ABS(503332,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),DIP(2)=$G(X) S X=""-"",DIP(3)=$G(X) S X=2,X=$P(DIP(2),DIP(3),X) W X K DIP;X;Z;""$P(USING SERVICES/SUBDIVISIONS,""-"",2)""~"
^DIPT(1324,"F",5)="W $C(124,126);X;Z;""W $C(124,126)""~2;X~W $C(124,126);X;Z;""W $C(124,126)""~S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~"
^DIPT(1324,"F",6)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1324,"H")="@@"
^DIPT(1324,"IOM")="512"
^DIPT(1324,"SUB")="1"
^DIPT(1325,0)="ABSVM ORGANIZATION EXPORT^3030403.0701^@^503334^^@^3030422^3"
^DIPT(1325,100,0)="^.42A^5^5"
^DIPT(1325,100,1,0)="1^4"
^DIPT(1325,100,2,0)="2^4"
^DIPT(1325,100,3,0)="3^4"
^DIPT(1325,100,4,0)="4^4"
^DIPT(1325,100,5,0)="5^4"
^DIPT(1325,100,"B",1,1)=""
^DIPT(1325,100,"B",2,2)=""
^DIPT(1325,100,"B",3,3)=""
^DIPT(1325,100,"B",4,4)=""
^DIPT(1325,100,"B",5,5)=""
^DIPT(1325,105)=".998"
^DIPT(1325,"DXS")="3"
^DIPT(1325,"DXS",1,9.2)="S DIP(1)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4)]"""",DIP(2)=$G(X) S X=$P(DIP(1),U,4),DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X=$P(DIP(1),U,3)"
^DIPT(1325,"DXS",2,9.2)="S DIP(1)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5),X=X S X=X=1,DIP(2)=$G(X) S X=1,DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X=0"
^DIPT(1325,"F",1)=".01~W $C(124,126);X;Z;""W $C(124,126)""~1;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1325,"F",2)="X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(LOCAL ABBREVIATION]"""":LOCAL ABBREVIATION,1:ABBREVIATION)""~"
^DIPT(1325,"F",3)="W $C(124,126);X;Z;""W $C(124,126)""~X DXS(2,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X) W X K DIP;X;Z;""$S(INTERNAL(INACTIVE AUSTIN ORGANIZATION)=1:1,1:0)""~"
^DIPT(1325,"F",4)="W $C(124,126);X;Z;""W $C(124,126)""~S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1325,"H")="@@"
^DIPT(1325,"IOM")="512"
^DIPT(1325,"SUB")="1"
^DIPT(1326,0)="ABSVM OCCASIONAL EXPORT^3030403.07^@^503336^^@^3030422^3"
^DIPT(1326,100,0)="^.42A^9^9"
^DIPT(1326,100,1,0)="1^4"
^DIPT(1326,100,2,0)="2^4"
^DIPT(1326,100,3,0)="3^4"
^DIPT(1326,100,4,0)="4^4"
^DIPT(1326,100,5,0)="5^2"
^DIPT(1326,100,6,0)="6^2"
^DIPT(1326,100,7,0)="7^1"
^DIPT(1326,100,8,0)="8^4"
^DIPT(1326,100,9,0)="9^4"
^DIPT(1326,100,"B",1,1)=""
^DIPT(1326,100,"B",2,2)=""
^DIPT(1326,100,"B",3,3)=""
^DIPT(1326,100,"B",4,4)=""
^DIPT(1326,100,"B",5,5)=""
^DIPT(1326,100,"B",6,6)=""
^DIPT(1326,100,"B",7,7)=""
^DIPT(1326,100,"B",8,8)=""
^DIPT(1326,100,"B",9,9)=""
^DIPT(1326,105)=".998"
^DIPT(1326,"DXS")="3"
^DIPT(1326,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503336,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DIPT(1326,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503336,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ABS(503332,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""")"
^DIPT(1326,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~2;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1326,"F",2)="X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;X;Z;""ORGANIZATION CODE:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1326,"F",3)="X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;X;Z;""SERVICE ASSIGNMENT:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~5;X~"
^DIPT(1326,"F",4)="W $C(124,126);X;Z;""W $C(124,126)""~6;X~W $C(124,126);X;Z;""W $C(124,126)""~7;X~W $C(124,126);X;Z;""W $C(124,126)""~2.5;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1326,"F",5)="S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1326,"H")="@@"
^DIPT(1326,"IOM")="512"
^DIPT(1326,"SUB")="1"
^DIPT(1327,0)="ABSVM REGULAR HOURS EXPORT^3030403.0705^@^503331^^@^3030422^3"
^DIPT(1327,100,0)="^.42A^9^9"
^DIPT(1327,100,1,0)="1^4"
^DIPT(1327,100,2,0)="2^4"
^DIPT(1327,100,3,0)="3^4"
^DIPT(1327,100,4,0)="4^4"
^DIPT(1327,100,5,0)="5^4"
^DIPT(1327,100,6,0)="6^4"
^DIPT(1327,100,7,0)="7^2"
^DIPT(1327,100,8,0)="8^1"
^DIPT(1327,100,9,0)="9^4"
^DIPT(1327,100,"B",1,1)=""
^DIPT(1327,100,"B",2,2)=""
^DIPT(1327,100,"B",3,3)=""
^DIPT(1327,100,"B",4,4)=""
^DIPT(1327,100,"B",5,5)=""
^DIPT(1327,100,"B",6,6)=""
^DIPT(1327,100,"B",7,7)=""
^DIPT(1327,100,"B",8,8)=""
^DIPT(1327,100,"B",9,9)=""
^DIPT(1327,105)=".998"
^DIPT(1327,"DXS")="3"
^DIPT(1327,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503331,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DIPT(1327,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503331,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,8) S:'D0!'$D(^ABS(503332,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""")"
^DIPT(1327,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~S DIP(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X W X K DIP;X;Z;""INTERNAL(NAME)""~"
^DIPT(1327,"F",2)="W $C(124,126);X;Z;""W $C(124,126)""~1;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1327,"F",3)="X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;X;Z;""ORGANIZATION:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1327,"F",4)="X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) W X K DIP;X;Z;""SERVICE:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1327,"F",5)="S DIP(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=$G(X) S X=4,X=$E(DIP(2),X) W X K DIP;X;Z;""$E(COMBINATION,4)""~"
^DIPT(1327,"F",6)="W $C(124,126);X;Z;""W $C(124,126)""~4;X~W $C(124,126);X;Z;""W $C(124,126)""~2;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1327,"F",7)="S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1327,"H")="@@"
^DIPT(1327,"IOM")="512"
^DIPT(1327,"SUB")="1"
^DIPT(1328,0)="ABSVM VOL MASTER EXPORT^3030403.0704^@^503330^^@^3030422^3"
^DIPT(1328,100,0)="^.42A^14^14"
^DIPT(1328,100,1,0)="1^4"
^DIPT(1328,100,2,0)="2^4"
^DIPT(1328,100,3,0)="3^4"
^DIPT(1328,100,4,0)="4^4"
^DIPT(1328,100,5,0)="5^4"
^DIPT(1328,100,6,0)="6^4"
^DIPT(1328,100,7,0)="7^4"
^DIPT(1328,100,8,0)="8^4"
^DIPT(1328,100,9,0)="9^4"
^DIPT(1328,100,10,0)="10^4"
^DIPT(1328,100,11,0)="11^4"
^DIPT(1328,100,12,0)="12^4"
^DIPT(1328,100,13,0)="13^4"
^DIPT(1328,100,14,0)="14^4"
^DIPT(1328,100,"B",1,1)=""
^DIPT(1328,100,"B",2,2)=""
^DIPT(1328,100,"B",3,3)=""
^DIPT(1328,100,"B",4,4)=""
^DIPT(1328,100,"B",5,5)=""
^DIPT(1328,100,"B",6,6)=""
^DIPT(1328,100,"B",7,7)=""
^DIPT(1328,100,"B",8,8)=""
^DIPT(1328,100,"B",9,9)=""
^DIPT(1328,100,"B",10,10)=""
^DIPT(1328,100,"B",11,11)=""
^DIPT(1328,100,"B",12,12)=""
^DIPT(1328,100,"B",13,13)=""
^DIPT(1328,100,"B",14,14)=""
^DIPT(1328,105)=".998"
^DIPT(1328,"DXS")="5"
^DIPT(1328,"DXS",1,9)="X DXS(1,9.3) S X=X=""M"",Y=X,X=DIP(7),X=X!Y,DIP(9)=$G(X) S X=""M"",DIP(10)=$G(X) S X=1,DIP(11)=$G(X) S X="""",X=$S(DIP(4):DIP(5),DIP(9):DIP(10),DIP(11):X)"
^DIPT(1328,"DXS",1,9.2)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X S X=X=""G"",DIP(2)=$G(X),DIP(3)=$G(X) S X=$P(DIP(1),U,7),X=X S X=X=""F"",Y=X,X=DIP(2),X=X"
^DIPT(1328,"DXS",1,9.3)="X DXS(1,9.2) S X=X!Y,DIP(4)=$G(X) S X=""F"",DIP(5)=$G(X),DIP(6)=$G(X) S X=$P(DIP(1),U,7),X=X S X=X=""B"",DIP(7)=$G(X),DIP(8)=$G(X) S X=$P(DIP(1),U,7),X=X S X=X"
^DIPT(1328,"DXS",2,9.2)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S X=X,X=$S($E(X,4,5)=""00"":$E(X,1,3)_""0615"",$E(X,6,7)=""00"":$E(X,1,5)_15,1:X) S X=X"
^DIPT(1328,"DXS",3,9.2)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S X=X,DIP(2)=$G(X) S X=4,DIP(3)=$G(X) S X=5,X=$E(DIP(2),DIP(3),X) S X=+X=0,DIP(4)=$G(X) S X=""M"""
^DIPT(1328,"DXS",3,9.3)="X DXS(3,9.2) S DIP(5)=$G(X),DIP(6)=$G(X),DIP(7)=$G(X) S X=$P(DIP(1),U,8),X=X S X=X,DIP(8)=$G(X) S X=6,DIP(9)=$G(X) S X=7"
^DIPT(1328,"DXS",3,9.4)="X DXS(3,9.3) S X=$E(DIP(8),DIP(9),X) S Y=X,X=DIP(6),X=X+Y=0,DIP(10)=$G(X) S X=""D"",DIP(11)=$G(X) S X=1,DIP(12)=$G(X) S X="""""
^DIPT(1328,"DXS",4,9)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,18)=""P"",DIP(2)=$G(X) S X=1,DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X=0,X=$S(DIP(2):DIP(3),DIP(4):X)"
^DIPT(1328,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",2)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""FAMILY"")) W X K DIP;X;Z;""ABSVM NAME FAMILY(VOLUNTEER)""~"
^DIPT(1328,"F",3)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",4)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""GIVEN"")) W X K DIP;X;Z;""ABSVM NAME GIVEN(VOLUNTEER)""~"
^DIPT(1328,"F",5)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",6)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""MIDDLE"")) W X K DIP;X;Z;""ABSVM NAME MIDDLE(VOLUNTEER)""~"
^DIPT(1328,"F",7)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",8)="S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1) N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""SUFFIX"")) W X K DIP;X;Z;""ABSVM NAME SUFFIX(VOLUNTEER)""~"
^DIPT(1328,"F",9)="W $C(124,126);X;Z;""W $C(124,126)""~S DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X W X K DIP;X;Z;""INTERNAL(SOCIAL SECURITY NUMBER)""~"
^DIPT(1328,"F",10)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",11)="X DXS(1,9) W X K DIP;X;Z;""$S(INTERNAL(SEX)=""G""!(INTERNAL(SEX)=""F""):""F"",INTERNAL(SEX)=""B""!(INTERNAL(SEX)=""M""):""M"",1:"""")""~"
^DIPT(1328,"F",12)="W $C(124,126);X;Z;""W $C(124,126)""~X DXS(2,9.2) S X=$P(X,""."",1) S Y=X D DT K DIP;d;X;Z;""DATE(ABSVM FIX DATE(INTERNAL(BIRTH DATE)))"";L18~"
^DIPT(1328,"F",13)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",14)="X DXS(3,9.4) S X=$S(DIP(4):DIP(5),DIP(10):DIP(11),DIP(12):X) W X K DIP;X;Z;""$S(+$E(INTERNAL(BIRTH DATE),4,5)=0:""M"",+$E(INTERNAL(BIRTH DATE),6,7)=0:""D"",1:"""")""~"
^DIPT(1328,"F",15)="W $C(124,126);X;Z;""W $C(124,126)""~X DXS(4,9) W X K DIP;X;Z;""$S(PSEUDO INDICATOR=""P"":1,1:0)""~W $C(124,126);X;Z;""W $C(124,126)""~28;X~"
^DIPT(1328,"F",16)="W $C(124,126);X;Z;""W $C(124,126)""~27;X~W $C(124,126);X;Z;""W $C(124,126)""~29;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"F",17)="S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1328,"H")="@@"
^DIPT(1328,"IOM")="512"
^DIPT(1328,"SUB")="1"
^DIPT(1329,0)="ABSVM VOL CONTACT EXPORT^3030403.0704^@^503330^^@^3030422^3"
^DIPT(1329,100,0)="^.42A^13^13"
^DIPT(1329,100,1,0)="1^4"
^DIPT(1329,100,2,0)="2^4"
^DIPT(1329,100,3,0)="3^4"
^DIPT(1329,100,4,0)="4^4"
^DIPT(1329,100,5,0)="5^4"
^DIPT(1329,100,6,0)="6^4"
^DIPT(1329,100,7,0)="7^4"
^DIPT(1329,100,8,0)="8^4"
^DIPT(1329,100,9,0)="9^4"
^DIPT(1329,100,10,0)="10^4"
^DIPT(1329,100,11,0)="11^4"
^DIPT(1329,100,12,0)="12^4"
^DIPT(1329,100,13,0)="13^4"
^DIPT(1329,100,"B",1,1)=""
^DIPT(1329,100,"B",2,2)=""
^DIPT(1329,100,"B",3,3)=""
^DIPT(1329,100,"B",4,4)=""
^DIPT(1329,100,"B",5,5)=""
^DIPT(1329,100,"B",6,6)=""
^DIPT(1329,100,"B",7,7)=""
^DIPT(1329,100,"B",8,8)=""
^DIPT(1329,100,"B",9,9)=""
^DIPT(1329,100,"B",10,10)=""
^DIPT(1329,100,"B",11,11)=""
^DIPT(1329,100,"B",12,12)=""
^DIPT(1329,100,"B",13,13)=""
^DIPT(1329,105)=".998"
^DIPT(1329,"DXS")="2"
^DIPT(1329,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503330,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,5) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(5,D0,0)):^(0),1:"""")"
^DIPT(1329,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~2;X~W $C(124,126);X;Z;""W $C(124,126)""~2.5;X~W $C(124,126);X;Z;""W $C(124,126)""~3;X~"
^DIPT(1329,"F",2)="W $C(124,126);X;Z;""W $C(124,126)""~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;X;Z;""STATE:ABBREVIATION""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1329,"F",3)="5;X~W $C(124,126);X;Z;""W $C(124,126)""~16.9;X~W $C(124,126);X;Z;""W $C(124,126)""~16.95;X~W $C(124,126);X;Z;""W $C(124,126)""~17;X~"
^DIPT(1329,"F",4)="W $C(124,126);X;Z;""W $C(124,126)""~18;X~W $C(124,126);X;Z;""W $C(124,126)""~19;X~W $C(124,126);X;Z;""W $C(124,126)""~20;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1329,"F",5)="S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1329,"H")="@@"
^DIPT(1329,"IOM")="512"
^DIPT(1329,"SUB")="1"
^DIPT(1330,0)="ABSVM PROFILES EXPORT^3030403.0703^@^503330^^@^3030422^3"
^DIPT(1330,100,0)="^.42A^15^15"
^DIPT(1330,100,1,0)="1^4"
^DIPT(1330,100,2,0)="2^4"
^DIPT(1330,100,3,0)="3^4"
^DIPT(1330,100,4,0)="4^4"
^DIPT(1330,100,5,0)="5^2"
^DIPT(1330,100,6,0)="6^2"
^DIPT(1330,100,7,0)="7^2"
^DIPT(1330,100,8,0)="8^2"
^DIPT(1330,100,9,0)="9^4"
^DIPT(1330,100,10,0)="10^4"
^DIPT(1330,100,11,0)="11^4"
^DIPT(1330,100,12,0)="12^4"
^DIPT(1330,100,13,0)="13^4"
^DIPT(1330,100,14,0)="14^4"
^DIPT(1330,100,15,0)="15^4"
^DIPT(1330,100,"B",1,1)=""
^DIPT(1330,100,"B",2,2)=""
^DIPT(1330,100,"B",3,3)=""
^DIPT(1330,100,"B",4,4)=""
^DIPT(1330,100,"B",5,5)=""
^DIPT(1330,100,"B",6,6)=""
^DIPT(1330,100,"B",7,7)=""
^DIPT(1330,100,"B",8,8)=""
^DIPT(1330,100,"B",9,9)=""
^DIPT(1330,100,"B",10,10)=""
^DIPT(1330,100,"B",11,11)=""
^DIPT(1330,100,"B",12,12)=""
^DIPT(1330,100,"B",13,13)=""
^DIPT(1330,100,"B",14,14)=""
^DIPT(1330,100,"B",15,15)=""
^DIPT(1330,105)=".998^^^.1"
^DIPT(1330,"DXS")="5"
^DIPT(1330,"DXS",1,9.2)="S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S X=X,X=$S($E(X,4,5)=""00"":$E(X,1,3)_""0615"",$E(X,6,7)=""00"":$E(X,1,5)_15,1:X) S X=X"
^DIPT(1330,"DXS",2,9.2)="S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=X S X=X,X=$S($E(X,4,5)=""00"":$E(X,1,3)_""0615"",$E(X,6,7)=""00"":$E(X,1,5)_15,1:X) S X=X"
^DIPT(1330,"DXS",3,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,7) S:'D0!'$D(^ABS(503337,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503337,D0,0)):^(0),1:"""")"
^DIPT(1330,"DXS",4,9.2)="S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S X=X,X=$S($E(X,4,5)=""00"":$E(X,1,3)_""0615"",$E(X,6,7)=""00"":$E(X,1,5)_15,1:X) S X=X"
^DIPT(1330,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~.1,0;X~W $C(124,126);X;Z;""W $C(124,126)""~.1,.5;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1330,"F",2)=".1,X DXS(1,9.2) S X=$P(X,""."",1) S Y=X D DT K DIP;d;X;Z;""DATE(ABSVM FIX DATE(INTERNAL(ENTRY DATE)))"";L18~W $C(124,126);X;Z;""W $C(124,126)""~.1,2;X~"
^DIPT(1330,"F",3)="W $C(124,126);X;Z;""W $C(124,126)""~.1,2.5;X~W $C(124,126);X;Z;""W $C(124,126)""~.1,2.7;X~W $C(124,126);X;Z;""W $C(124,126)""~.1,4;X~"
^DIPT(1330,"F",4)="W $C(124,126);X;Z;""W $C(124,126)""~.1,X DXS(2,9.2) S X=$P(X,""."",1) S Y=X D DT K DIP;d;X;Z;""DATE(ABSVM FIX DATE(INTERNAL(DATE LAST AWARD)))"";L18~"
^DIPT(1330,"F",5)="W $C(124,126);X;Z;""W $C(124,126)""~.1,X DXS(3,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;""AWARD CODE:CODE""~"
^DIPT(1330,"F",6)="W $C(124,126);X;Z;""W $C(124,126)""~.1,X DXS(4,9.2) S X=$P(X,""."",1) S Y=X D DT K DIP;d;X;Z;""DATE(ABSVM FIX DATE(INTERNAL(TERMINATION DATE)))"";L18~"
^DIPT(1330,"F",7)="W $C(124,126);X;Z;""W $C(124,126)""~.1,S X=$E($$GETREM^ABSVMVV2,1,160) W X K DIP;X;Z;""ABSVM VOLREMARKS""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1330,"F",8)=".1,S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,24),X=X W X K DIP;X;Z;""INTERNAL(ELIGIBLE FOR MEALS?)""~"
^DIPT(1330,"F",9)="W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1330,"F",10)=".1,S DIP(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,23),X=X W X K DIP;X;Z;""INTERNAL(METHOD OF TRANSPORTATION)""~"
^DIPT(1330,"F",11)="W $C(124,126);X;Z;""W $C(124,126)""~.1,S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1330,"H")="@@"
^DIPT(1330,"IOM")="512"
^DIPT(1330,"SUB")="1"
^DIPT(1331,0)="ABSVM VOL COMBINATIONS EXPORT^3030403.0704^@^503330^^@^3030422^3"
^DIPT(1331,100,0)="^.42A^7^7"
^DIPT(1331,100,1,0)="1^4"
^DIPT(1331,100,2,0)="2^4"
^DIPT(1331,100,3,0)="3^4"
^DIPT(1331,100,4,0)="4^4"
^DIPT(1331,100,5,0)="5^4"
^DIPT(1331,100,6,0)="6^4"
^DIPT(1331,100,7,0)="7^4"
^DIPT(1331,100,"B",1,1)=""
^DIPT(1331,100,"B",2,2)=""
^DIPT(1331,100,"B",3,3)=""
^DIPT(1331,100,"B",4,4)=""
^DIPT(1331,100,"B",5,5)=""
^DIPT(1331,100,"B",6,6)=""
^DIPT(1331,100,"B",7,7)=""
^DIPT(1331,105)=".998^^^8.5"
^DIPT(1331,"DXS")="4"
^DIPT(1331,"DXS",1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DIPT(1331,"DXS",2,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,3) S:'D0!'$D(^ABS(503333,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503333,D0,0)):^(0),1:"""")"
^DIPT(1331,"DXS",3,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'D0!'$D(^ABS(503332,+D0,0)) D0=-1 S DIP(101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""")"
^DIPT(1331,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~8.5,0;X~W $C(124,126);X;Z;""W $C(124,126)""~8.5,6;X~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1331,"F",2)="8.5,X DXS(1,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;""ORGANIZATION:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1331,"F",3)="8.5,X DXS(2,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;""SCHEDULE:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1331,"F",4)="8.5,X DXS(3,9.2) S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) W X K DIP;X;Z;""SERVICE:CODE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1331,"F",5)="8.5,S DIP(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,6),X=X W X K DIP;X;Z;""INTERNAL(ACTIVE/INACTIVE)""~"
^DIPT(1331,"F",6)="W $C(124,126);X;Z;""W $C(124,126)""~8.5,S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1331,"H")="@@"
^DIPT(1331,"IOM")="512"
^DIPT(1331,"SUB")="1"
^DIPT(1332,0)="ABSVM PARKING EXPORT^3030703.1014^@^503330^^@^3030716^3"
^DIPT(1332,100,0)="^.42A^7^7"
^DIPT(1332,100,1,0)="1^4"
^DIPT(1332,100,2,0)="2^4"
^DIPT(1332,100,3,0)="3^4"
^DIPT(1332,100,4,0)="4^4"
^DIPT(1332,100,5,0)="5^4"
^DIPT(1332,100,6,0)="6^4"
^DIPT(1332,100,7,0)="7^4"
^DIPT(1332,100,"B",1,1)=""
^DIPT(1332,100,"B",2,2)=""
^DIPT(1332,100,"B",3,3)=""
^DIPT(1332,100,"B",4,4)=""
^DIPT(1332,100,"B",5,5)=""
^DIPT(1332,100,"B",6,6)=""
^DIPT(1332,100,"B",7,7)=""
^DIPT(1332,105)=".998^^^.1,21"
^DIPT(1332,"DXS")="2"
^DIPT(1332,"DXS",1,9.2)="S I(2,0)=$G(D2),I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^ABS(503330,D0,4,D1,2,D2,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1"
^DIPT(1332,"F",1)="0~W $C(124,126);X;Z;""W $C(124,126)""~.1,0;X~W $C(124,126);X;Z;""W $C(124,126)""~.1,21,0;X~.1,W $C(124,126);X;Z;""W $C(124,126)""~.1,21,.01;X~"
^DIPT(1332,"F",2)=".1,W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1332,"F",3)=".1,21,X DXS(1,9.2) S DIP(101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0) W X K DIP;X;Z;""STATE OF VEHICLE REGISTRATION:ABBREVIATION""~"
^DIPT(1332,"F",4)=".1,W $C(124,126);X;Z;""W $C(124,126)""~.1,21,2;X~.1,W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1332,"F",5)=".1,21,S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U) W X K DIP;X;Z;""ABSVM SITE""~.1,W $C(124,126);X;Z;""W $C(124,126)""~"
^DIPT(1332,"H")="@@"
^DIPT(1332,"IOM")="512"
^DIPT(1332,"SUB")="1"
^DIPT(1333,0)="RMIMXMIT^3030401.1449^^783^^^3030401"
^DIPT(1333,"DXS",1,9.2)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(DIP(1),U,3),0)),U),DIP(2)=$G(X) S X=1,DIP(3)=$G(X) S X=1,X=$E(DIP(2),DIP(3),X)_""("",DIP(4)=$G(X)"
^DIPT(1333,"F",1)=""
^DIPT(1333,"F",2)="X DXS(1,9.2) S X=$P(DIP(1),U,4),DIP(5)=$G(X) S X=6,DIP(6)=$G(X) S X=9,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_"")"" W X K DIP;""PATIENT"";Z;""$E(#.03,1,1)_""(""_$E(#.04,6,9)_"")""""~"
^DIPT(1333,"F",3)=".06~"
^DIPT(1333,"F",4)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""ONSET"";Z;""NUMDATE(ONSET DATE)""~"
^DIPT(1333,"F",5)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""ADMIT"";Z;""NUMDATE(ADMIT DATE)""~"
^DIPT(1333,"F",6)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DSCHG"";Z;""NUMDATE(DISCHARGE DATE)""~"
^DIPT(1333,"F",7)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""RECORD LAST EDIT AT SITE"";Z;""NUMDATE(EDIT DATE)""~"
^DIPT(1333,"F",8)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,13) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DATE SITE XMIT TO FSOD"";Z;""NUMDATE(XMIT DATE)""~"
^DIPT(1333,"F",9)=".2;""FSOD RETURN STATUS"";L4~"
^DIPT(1333,"H")="FIM to FSOD cases"
^DIPT(1334,0)="RMIM MAIL SERVER^3030207.1137^^783^^^3030305"
^DIPT(1334,"DXS",1,9.2)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(DIP(1),U,3),0)),U),DIP(2)=$G(X) S X=1,DIP(3)=$G(X) S X=1,X=$E(DIP(2),DIP(3),X)_""("",DIP(4)=$G(X)"
^DIPT(1334,"DXS",2,9)="X DXS(2,9.2) S X=""FSOD Error: "",DIP(4)=$G(X) S X=$P(DIP(1),U,2),Y=X,X=DIP(4),X=X_Y,DIP(5)=$G(X) S X=1,DIP(6)=$G(X) S X="""",X=$S(DIP(3):DIP(5),DIP(6):X)"
^DIPT(1334,"DXS",2,9.2)="S DIP(2)=$C(59)_$P($G(^DD(783,.2,0)),U,3),DIP(1)=$S($D(^RMIM(783,D0,9)):^(9),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,1)_"":"",2),$C(59))[""ERR"",DIP(3)=$G(X)"
^DIPT(1334,"F",1)=""
^DIPT(1334,"F",2)="X DXS(1,9.2) S X=$P(DIP(1),U,4),DIP(5)=$G(X) S X=6,DIP(6)=$G(X) S X=9,X=$E(DIP(5),DIP(6),X) S Y=X,X=DIP(4),X=X_Y_"")"" W X K DIP;""PATIENT"";Z;""$E(#.03,1,1)_""(""_$E(#.04,6,9)_"")""""~"
^DIPT(1334,"F",3)=".06~"
^DIPT(1334,"F",4)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""ONSET"";Z;""NUMDATE(ONSET DATE)""~"
^DIPT(1334,"F",5)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,10) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""ADMIT"";Z;""NUMDATE(ADMIT DATE)""~"
^DIPT(1334,"F",6)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DSCHG"";Z;""NUMDATE(DSCHG DATE)""~"
^DIPT(1334,"F",7)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""LAST EDIT AT SITE"";Z;""NUMDATE(EDIT DATE)""~"
^DIPT(1334,"F",8)="S DIP(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,13) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DATE SITE XMIT TO FSOD"";Z;""NUMDATE(XMIT DATE)""~"
^DIPT(1334,"F",9)="X DXS(2,9) W X K DIP;C5;"""";Z;""$S(#.2[""ERR"":""FSOD Error: ""_(#.21),1:"""")""~"
^DIPT(1334,"H")="Austin FSOD Transmission Status"
^DIPT(1335,0)="LBRY MICROFILM HOLDINGS 2^3020321.1046^^680^^^3030123"
^DIPT(1335,"F",1)="""TITLE: "";C1;S3~.01;C8;X;L70~""MICROFILM COREFLS VENDOR: "";C1~2.6;C27;X~""RENEWAL DATE (MF): "";C1~10.6;C20;X~""LOCATION: "";C1~1.1;C11;X~"
^DIPT(1335,"F",2)="""MICROFILM HOLDINGS: "";C1~2.1;C1;X~"
^DIPT(1335,"H")="Local Serials Microfilm Holdings"
^DIPT(1336,0)="LBRY TITLES DUE RENEWAL 2^3020321.1157^^681^^^3020429"
^DIPT(1336,"F",1)="""PORTION OF FILE: "";X;S~-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1336,"F",2)="-680,-680.5,^LBRY(680.5,^^S I(100,0)=D0 S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-680,-680.5,.05;C18;X~"
^DIPT(1336,"F",3)="-680,-680.5,""TITLE: "";S;C1~-680,-680.5,.01;X;C9;L70~-680,-680.5,""ISSN: "";C1~-680,-680.5,7;X;C7~""COREFLS VENDOR: "";C30~3.01;C46;X~""PLACEMENT: "";C1~"
^DIPT(1336,"F",4)="1.1;X;C12~-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-680,""RENEWAL DATE (HC): "";C30~"
^DIPT(1336,"F",5)="-680,10.5;X;C49~-680,""SUBSCRIPTION PERIOD: "";C1~-680,10.8;X;C22~""COPY NUMBER: "";C30~1;X;C48~"
^DIPT(1336,"H")="SERIALS RENEWAL LIST"
^DIPT(1337,0)="LBRY MISSING ISSUES LIST 2^3020421.1445^^682^^^3020424"
^DIPT(1337,"F",1)=".02;X;L79;S2~1;X;C3;L12~1.1;X;C20;L12~""(""~1.2;X~"")""~1.4;X;C45;L2~"
^DIPT(1337,"F",2)="S DIP(1)=$S($D(^LBRY(682,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,5)-$P(DIP(1),U,4) W X K DIP;X;C55;L2;Z;""COPIES ORDERED-COPIES RECEIVED""~"
^DIPT(1337,"F",3)="-680,^LBRY(680,^^S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(682,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""LOCAL SERIALS:""~"
^DIPT(1337,"F",4)="-680,-680.5,^LBRY(680.5,^^S I(100,0)=D0 S DIP(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;""TITLE:""~-680,-680.5,7;X;C65;L9~"
^DIPT(1337,"F",5)="4,""c"";X;C5~4,.01;X;C6;L2~4,1;X;C11~"
^DIPT(1337,"F",6)="4,-681,^LBRY(681,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;"".02:""~4,-681,3.01;X;C31~"
^DIPT(1337,"H")="[LBRY MISSING ISSUES HEADER]"
^DIPT(1338,0)="HL PROTOCOL MESSAGING FIELDS^3030116.0737^@^101^^@^3030328"
^DIPT(1338,"DXS",1,9)="X DXS(1,9.4) S X=$S(DIP(202):DIP(203),DIP(205):DIP(206),DIP(208):DIP(209),DIP(211):DIP(212),DIP(213):X)"
^DIPT(1338,"DXS",1,9.2)="S DIP(201)=$S($D(^HLCS(870,D0,0)):^(0),1:"""") S X=$P(DIP(201),U,3),X=X S X=X=1,DIP(202)=X S X=""MAIL"",DIP(203)=X,DIP(204)=X S X=$P(DIP(201),U,3),X=X S X=X"
^DIPT(1338,"DXS",1,9.3)="X DXS(1,9.2) S X=X=2,DIP(205)=X S X=""HLLP"",DIP(206)=X,DIP(207)=X S X=$P(DIP(201),U,3),X=X S X=X=3,DIP(208)=X S X=""X3.28"",DIP(209)=X,DIP(210)=X S X=$P(DIP(201),U,3)"
^DIPT(1338,"DXS",1,9.4)="X DXS(1,9.3) S X=X S X=X=4,DIP(211)=X S X=""TCP"",DIP(212)=X S X=1,DIP(213)=X S X="""""
^DIPT(1338,"F",1)="770.1;""Snd/Rec App's"";L15~770.3;""mTYP"";L5~770.4;""eTYP"";L5~770.95;""Ver"";L5~""| ""~.01;L27;""Protocol""~"""";""Link"";l4~"
^DIPT(1338,"F",2)="775,-101,^ORD(101,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^ORD(101,D0,775,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""SUBSCRIBERS:""~"
^DIPT(1338,"F",3)="775,-101,S DIP(101)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=""-""_$S('$D(^HL(771,+$P(DIP(101),U,2),0)):"""",1:$P(^(0),U,1)) W X K DIP;"""";C1;Z;""""-""_RECEIVING APPLICATION""~"
^DIPT(1338,"F",4)="775,-101,770.3;"""";L5;C18~775,-101,770.4;"""";L5~775,-101,770.95;"""";L5~775,-101,""| ""~775,-101,.01;"""";L27~"
^DIPT(1338,"F",5)="775,-101,-870,^HLCS(870,^^S I(100,0)=D0 S DIP(101)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$P(DIP(101),U,7),X=X S D(0)=+X;Z;""LOGICAL LINK:""~"
^DIPT(1338,"F",6)="775,-101,-870,S DIP(201)=$S($D(^HLCS(870,D0,0)):^(0),1:"""") S X=$P(DIP(201),U,4),X=X W X K DIP;"""";L2;Z;""INTERNAL(#3)""~"
^DIPT(1338,"F",7)="775,-101,-870,X DXS(1,9) W X K DIP;L5;"""";Z;""$S(INTERNAL(#2)=1:""MAIL"",INTERNAL(#2)=2:""HLLP"",INTERNAL(#2)=3:""X3.28"",INTERNAL(#2)=4:""TCP"",1:"""")""~"
^DIPT(1338,"F",8)="""------------------------------------------------------------------------------"";C1~"
^DIPT(1338,"H")="Protocol Fields Used in Messaging"
^DIPT(1339,0)="XU-CLINICAL TRAINEE INQUIRY^3050407.0635^^200^^@^3050801"
^DIPT(1339,"DXS",1,9.2)="S X=200,DIP(1)=$G(X) S X=.01,DIP(2)=$G(X) S X=$S('$D(D0):"""",D0<0:"""",1:D0),DIP(3)=$G(X) S X=""G"",DIP(4)=$G(X) S X=""Dc"""
^DIPT(1339,"DXS",1,9.3)="X DXS(1,9.2) S X1=DIP(4) S X2=DIP(3) S X3=DIP(2) S X4=DIP(1) N XUNAME S XUNAME(""FILE"")=X4,XUNAME(""IENS"")=X2_$E("","",($E(X2,$L(X2))'="","")),XUNAME(""FIELD"")=X3 S X=$$NAMEFMT^XLFNAME(.XUNAME,X1,X) S X=X"
^DIPT(1339,"DXS",2,9.2)="S DIP(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,9),DIP(2)=$G(X) S X=""SSN"""
^DIPT(1339,"DXS",3,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,7,0)),U,3),DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_"":"",2),$C(59)),DIP(3)=$G(X) S X=""DIS"""
^DIPT(1339,"DXS",4,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),DIP(2)=$G(X) S X=""D"",X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=$G(X) S X=""TD"""
^DIPT(1339,"DXS",5,9.2)="S X=""TD"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X,X=$L(X),DIP(1)=$G(X) S X=""**** Date Terminated: "",DIP(2)=$G(X) S X=""TD"""
^DIPT(1339,"DXS",5,9.3)="X DXS(5,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(2),X=X S X=X_Y,DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X="""""
^DIPT(1339,"DXS",6,9.2)="S X=""DIS"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X[""Y"",DIP(1)=$G(X) S X=""**** Disuser: "",DIP(2)=$G(X) S X=""DIS"""
^DIPT(1339,"DXS",6,9.3)="X DXS(6,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(2),X=X S X=X_Y,DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X="""""
^DIPT(1339,"DXS",7,9.2)="S DIP(1)=$S($D(^VA(200,D0,.11)):^(.11),1:"""") S X=$P(DIP(1),U,4),DIP(2)=$G(X) S X=""CITY"""
^DIPT(1339,"DXS",8,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^VA(200,D0,.11)):^(.11),1:"""") S X=$P(DIP(1),U,4),DIP(2)=$G(X),DIP(3)=$G(X) S X=""CITY"""
^DIPT(1339,"DXS",8,9.3)="X DXS(8,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X]"""",DIP(4)=$G(X) S X="", "",DIP(5)=$G(X) S X=1,DIP(6)=$G(X) S X="""""
^DIPT(1339,"DXS",8,9.4)="X DXS(8,9.3) S X=$S(DIP(4):DIP(5),DIP(6):X) S Y=X,X=DIP(2),X=X_Y,DIP(7)=$G(X),D0=$P(DIP(1),U,5) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1 S DIP(101)=$S($D(^DIC(5,D0,0)):^(0),1:"""")"
^DIPT(1339,"DXS",9,9.2)="S DIP(2)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_"":"",2),$C(59)),DIP(3)=$G(X) S X=""YN"""
^DIPT(1339,"DXS",10,9.2)="S X=""YN"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X="""",DIP(1)=$G(X) S X=""YES"",DIP(2)=$G(X) S X=1,DIP(3)=$G(X),DIP(4)=$G(X) S X=""YN"""
^DIPT(1339,"F",1)="I (($G(IOF)]"""")&($E(IOST,1,2)=""C-"")) W @IOF;Z;""I (($G(IOF)]"""")&($E(IOST,1,2)=""C-"")) W @IOF""~"
^DIPT(1339,"F",2)="S X=""Registered Trainee Inquiry"",X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X W X K DIP;X;Z;""CENTER(""Registered Trainee Inquiry"")""~"
^DIPT(1339,"F",3)="X DXS(1,9.3) S X=X_"" (#""_$S('$D(D0):"""",D0<0:"""",1:D0)_"")"" W X K DIP;C1;S1;Z;""XLFMTNAME(200,.01,NUMBER,""G"",""Dc"")_"" (#""_NUMBER_"")""""~"
^DIPT(1339,"F",4)="""Last Sign-on: "";C54~"
^DIPT(1339,"F",5)="S DIP(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=""D"",X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) W X K DIP;X;Z;""XUFMTOEX(LAST SIGN-ON DATE/TIME,""D"")""~"
^DIPT(1339,"F",6)="""Office Phone: "";C4~.132;X~""E-Mail Address: "";C2~.151;X~""SSN: "";C63~"
^DIPT(1339,"F",7)="X DXS(2,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;"""";X;Z;""SETPARAM(SSN,""SSN"")""~"
^DIPT(1339,"F",8)="W ""*****"",$E(DIPA(""SSN""),6,9);X;Z;""W ""*****"",$E(DIPA(""SSN""),6,9)""~"
^DIPT(1339,"F",9)="X DXS(3,9.2) S X1=DIP(3) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;"""";X;Z;""SETPARAM(DISUSER,""DIS"")""~"
^DIPT(1339,"F",10)="X DXS(4,9.2) S X1=DIP(3) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;"""";X;Z;""SETPARAM(XUFMTOEX(TERMINATION DATE,""D""),""TD"")""~"
^DIPT(1339,"F",11)="I DIPA(""DIS"")[""Y""!$L(DIPA(""TD"")) W !,$C(7);X;Z;""I DIPA(""DIS"")[""Y""!$L(DIPA(""TD"")) W !,$C(7)""~"
^DIPT(1339,"F",12)="X DXS(5,9.3) S X=$S(DIP(1):DIP(3),DIP(4):X) W X K DIP;X;C1;Z;""$S($L(PARAM(""TD"")):""**** Date Terminated: ""_PARAM(""TD""),1:"""")""~"
^DIPT(1339,"F",13)="X DXS(6,9.3) S X=$S(DIP(1):DIP(3),DIP(4):X) W X K DIP;X;C1;Z;""$S(PARAM(""DIS"")[""Y"":""**** Disuser: ""_PARAM(""DIS""),1:"""")""~""Title: "";C11;S1~8;X~"
^DIPT(1339,"F",14)="""Service/Section: "";C1~29;X~""Address:"";C1;S1~.111;C3~.112;C3~.113;C3~"
^DIPT(1339,"F",15)="X DXS(7,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(CITY,""CITY"")""~"
^DIPT(1339,"F",16)="X DXS(8,9.4) S X=$P(DIP(101),U,2)_"" ""_$P(DIP(1),U,6),Y=X,X=DIP(7),X=X_Y S D0=I(0,0) W X K DIP;C3;Z;""CITY_$S(PARAM(""CITY"")]"""":"", "",1:"""")_STATE:ABBREVIATION_"" ""_ZIP CODE""~"
^DIPT(1339,"F",17)="X DXS(9,9.2) S X1=DIP(3) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#12.6),""YN"")""~"
^DIPT(1339,"F",18)="""Currently a Registered Trainee?: "";C1;S1~"
^DIPT(1339,"F",19)="X DXS(10,9.2) S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X,X=$S(DIP(1):DIP(2),DIP(3):X) W X K DIP;X;Z;""$S(PARAM(""YN"")="""":""YES"",1:PARAM(""YN""))""~"
^DIPT(1339,"F",20)="""Date HL7 Record Built: "";C40~12.5;X~""Date no longer a trainee: "";C1~12.7;X~""Date started training: "";C1~12.8;X~""Current Degree Lvl: "";C1~12.1;X~"
^DIPT(1339,"F",21)="""Program of Study: "";C3~12.2;X~""Last Training Month & Year: "";C1~12.3;X~""VHA Training Facility: "";X;C1~12.4;X~"
^DIPT(1339,"H")="@"
^DIPT(1339,"SUB")="1"
^DIPT(1340,0)="ONCO XPATIENT STATUS^3000105.1004^^160^^@^3001107"
^DIPT(1340,"DXS",1,0)="Dead"
^DIPT(1340,"DXS",1,1)="Alive"
^DIPT(1340,"DXS",2,0)="Inactive"
^DIPT(1340,"DXS",2,1)="Active"
^DIPT(1340,"DXS",2,8)="LTF"
^DIPT(1340,"F",2)="""Patient: "";C6~.01;C15;L26~""Date Last Contact: "";C44~16;C63;L12~""Status: "";C6~15;C15~""Follow-up Status: "";C44~15.2;C63~"
^DIPT(1340,"H")="PATIENT STATUS LIST"
^DIPT(1340,"IOM")="80"
^DIPT(1340,"LAST")=""
^DIPT(1340,"ROU")="^ONCOXPU"
^DIPT(1340,"ROUOLD")="ONCOXPU"
^DIPT(1341,0)="XU-CLINICAL TRAINEE DB COUNT^3030902.1404^@^200^^@^3050801"
^DIPT(1341,"DCL","200^.01")="!"
^DIPT(1341,"DNP")="1"
^DIPT(1341,"F",2)=".01;X~"
^DIPT(1341,"H")="OAA Registered Trainee Database Count"
^DIPT(1342,0)="PSNEXMP1^3030507.1526^@^50.68^^@^3030723"
^DIPT(1342,"F",2)="D ^PSNEXMP1;"""";Z;""D ^PSNEXMP1""~"
^DIPT(1342,"H")="VA PRODUCT LIST"
^DIPT(1343,0)="PSNODDI1^3030512.1522^@^50^^@^3030723"
^DIPT(1343,"F",2)="D ^PSNODDI1;"""";Z;""D ^PSNODDI1""~"
^DIPT(1343,"H")="DRUG LIST"
^DIPT(1344,0)="PSNODDI2^3030513.1243^@^50^^@^3030723"
^DIPT(1344,"F",1)="""DISPENSE DRUGS MATCHED TO VA PRODUCTS EXCLUDED FROM DRG-DRG INTERACTION CHECKING"";C1~""GENERIC NAME"";S2;C1~""VA DRUG CLASS"";C50~""DOSE FORM"";C66~"
^DIPT(1344,"F",2)="""VA PRODUCT NAME"";C1~"
^DIPT(1344,"H")="DRUG LIST"
^DIPT(1345,0)="DSIC RPC LIST^3021218.1545^^8994^^^3040712"
^DIPT(1345,"F",1)="""RPC: "";S2;""""~.01;C6;""""~.02;C39;""""~""^"";X;""""~.03;X;""""~""TYPE: "";C59;""""~.04;X;""""~1,.01;C7;""""~""INPUT PARAMETERS"";C4;S1;""""~2,.05;C4;R2;S1;""""~2,.01;C7;""""~"
^DIPT(1345,"F",2)="2,""Max: "";C37;""""~2,.03;X;L4;""""~2,""Req: "";C47;""""~2,.04;X;""""~2,""Type: "";C56;""""~2,.02;X;""""~2,1,.01;C7;W70;""""~""RETURN PARAMETER"";C4;S1;""""~3,.01;C7;W70;""""~"
^DIPT(1345,"F",3)="S X=""-"",DIP(1)=$G(X) S X=78,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C2;"""";Z;""DUP(""-"",78)""~"
^DIPT(1345,"H")="REMOTE PROCEDURE LIST"
^DIPT(1346,0)="PATIENT PENDING APPT^3030929.1012^@^409.6^^@^3031002"
^DIPT(1346,"F",2)="2,.01~2,1~2,5~2,8~"
^DIPT(1346,"H")="PATIENT PENDING APPOINTMENT LOG"
^DIPT(1347,0)="REJECTED APPT LIST^3030929.1502^@^409.6^^@^3031002"
^DIPT(1347,"F",2)="2,.01~2,1~2,5~2,8~2,7~"
^DIPT(1347,"H")="REJECTED TRANSMITTED APPOINTMENTS"
^DIPT(1348,0)="HLEV REPORT MONITOR-ONE LINE^3030620.12^@^776.1^^@^3030624"
^DIPT(1348,"F",2)=".01~2~4;""REQUE MIN""~6~"
^DIPT(1348,"H")="Monitor report"
^DIPT(1349,0)="HLEV REMOTE REQUESTABLE^3030624.1256^@^776.1^^@^3030624"
^DIPT(1349,"F",2)="W $$REMREQ^HLEVREP3;""REMOTE REQUESTS"";L9;Z;""W $$REMREQ^HLEVREP3""~2~4;""REQ MIN"";R5~.01;""MONITOR""~6;""M API""~"
^DIPT(1349,"H")="Remote Requestable List"
^DIPT(1350,0)="TIU PRINT REL/UNV^3030418.1135^^8925^^^3040128"
^DIPT(1350,"DCL","8925^.1")="&"
^DIPT(1350,"DXS",1,9.2)="S DIP(2)=$S($D(^TIU(8925,D0,12)):^(12),1:"""") S X=""LAST,FI MI"",DIP(1)=$G(X) S X=$P($G(^VA(200,+$P(DIP(2),U,2),0)),U)"
^DIPT(1350,"DXS",2,"P")="priority"
^DIPT(1350,"DXS",2,"R")="routine"
^DIPT(1350,"F",1)=".02~-9000001,^AUPNPAT(^^S I(0,0)=D0 S DIP(1)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1350,"F",2)="-9000001,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-9000001,-2,.09;""SSN""~"
^DIPT(1350,"F",3)="S DIP(1)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""ADM DATE"";Z;""NUMDATE(EPISODE BEGIN DATE/TIME)""~"
^DIPT(1350,"F",4)="S DIP(1)=$S($D(^TIU(8925,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DIS DATE"";Z;""NUMDATE(EPISODE END DATE/TIME)""~"
^DIPT(1350,"F",5)="X DXS(1,9.2) S X1=DIP(1) X ""S X=$$NAME^TIULS(X,X1)"" W X K DIP;L15;""DICTATED BY"";Z;""TIU NAME FORMAT(""LAST,FI MI"",AUTHOR)""~.09~.1~.01;L8;""""~"
^DIPT(1350,"H")="[TIU PRINT REL/UNV HEADER]"
^DIPT(1350,"IOM")="132"
^DIPT(1350,"LAST")=""
^DIPT(1350,"ROU")="^TIUPREL"
^DIPT(1350,"ROUOLD")="TIUPREL"
^DIPT(1350,"STATS","S",1)="0"
^DIPT(1350,"T",93)="8^1^0^F^"
^DIPT(1351,0)="TIU PRINT TRANS STATS HEADER^3010711.1201^@^8925^^@^3030919"
^DIPT(1351,"F",1)="""DISCHARGE SUMMARY Line Count Statistics by TRANSCRIPTIONIST - ""~1212;X~"
^DIPT(1351,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C100;L18;d;Z;""NOW""~""PAGE "";C122~"
^DIPT(1351,"F",3)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Line"";C21~""Transcriber"";C1~""Count"";C20~""Ref Date"";C28~""Patient"";C42~""Disch-Dict"";C59~""Dict-Transcr"";C75~"
^DIPT(1351,"F",4)="""Transcr-Sign"";C90~""Sign-Cosign"";C105~"
^DIPT(1351,"F",5)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1351,"H")="@"
^DIPT(1351,"SUB")="1"
^DIPT(1352,0)="TIU PRINT REL/UNV HEADER^3010711.12^@^8925^^@^3040128"
^DIPT(1352,"F",1)="""Released/Unverified Report - ""~1212;X~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C100;L18;d;Z;""NOW""~""PAGE "";C122~"
^DIPT(1352,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""LINE"";C94~""PATIENT"";C1~""SSN"";C33~""ADM DATE"";C45~""DIS DATE"";C56~""DICTATED BY"";C67~""URGENCY"";C84~"
^DIPT(1352,"F",3)="""COUNT"";C94~"
^DIPT(1352,"F",4)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1352,"H")="@"
^DIPT(1352,"SUB")="1"
^DIPT(1353,0)="TIU PRINT AUTHOR STATS HEADER^3010711.116^@^8925^^@^3030624"
^DIPT(1353,"F",1)="""DISCHARGE SUMMARY Line Count Statistics by AUTHOR - ""~1212;X~"
^DIPT(1353,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C100;L18;d;Z;""NOW""~""PAGE "";C122~"
^DIPT(1353,"F",3)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Line"";C21~""Author"";C1~""Count"";C20~""Ref Date"";C28~""Patient"";C42~""Disch-Dict"";C59~""Dict-Transcr"";C75~"
^DIPT(1353,"F",4)="""Transcr-Sign"";C90~""Sign-Cosign"";C105~"
^DIPT(1353,"F",5)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1353,"H")="@"
^DIPT(1353,"SUB")="1"
^DIPT(1354,0)="TIU PRINT SERVICE STATS HEADER^3010711.1201^@^8925^^@^3040128"
^DIPT(1354,"F",1)="""DISCHARGE SUMMARY Line Count Statistics by SERVICE - ""~1212;X~"
^DIPT(1354,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C100;L18;d;Z;""NOW""~""PAGE "";C122~"
^DIPT(1354,"F",3)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;X;Z;""PAGE""~""Line"";C21~""Service"";C1~""Count"";C20~""Ref Date"";C28~""Patient"";C42~""Disch-Dict"";C59~""Dict-Transcr"";C75~"
^DIPT(1354,"F",4)="""Transcr-Sign"";C90~""Sign-Cosign"";C105~"
^DIPT(1354,"F",5)="S X=""-"",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",IOM)""~"
^DIPT(1354,"H")="@"
^DIPT(1354,"SUB")="1"
^DIPT(1355,0)="SD-PAIT PATIENT PENDING APPT^3040122.2116^@^409.6^^@^3040127"
^DIPT(1355,"F",2)="2,.01~2,1~2,5~2,8~2,9~"
^DIPT(1355,"H")="PATIENT PENDING APPOINTMENT LOG"
^DIPT(1356,0)="SD-PAIT REJECTED APPT^3040129.1032^^409.6^^^3040223"
^DIPT(1356,"F",1)="2,.01~2,1~2,-404.472,^SCPT(404.472,^^S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S D(0)=+X;Z;""7:""~"
^DIPT(1356,"F",2)="2,-404.472,.04~2,-404.472,S DIP(1)=$S($D(^SDWL(409.6,I(0,0),1,I(1,0),0)):^(0),1:"""") S X=$P($G(^SCPT(404.472,+$P(DIP(1),U,8),0)),U) W X K DIP;Z;""ERROR MESSAGE""~"
^DIPT(1356,"F",3)="2,-404.472,S DIP(1)=$S($D(^SDWL(409.6,I(0,0),1,I(1,0),0)):^(0),1:"""") S X=$P($G(^SC(+$P(DIP(1),U,10),0)),U) W X K DIP;Z;""CLINIC""~"
^DIPT(1356,"H")="PATIENT APPOINTMENT INFO LOG LIST"
^DIPT(1357,0)="SD-PAIT PAIT ACK SUMMARY^3040127.1409^@^409.6^^@^3040226"
^DIPT(1357,"F",2)="3,.01~3,.03~3,.04~3,.05~"
^DIPT(1357,"H")="PAIT ACK SUMMARY"
^DIPT(1358,0)="SD-PAIT TRANS SUMMARY^3040127.1347^@^409.6^^@^3040301"
^DIPT(1358,"F",2)=".01~1.2~1.3~1.4;S~3,.01~3,.02~3,.03~"
^DIPT(1358,"H")="PATIENT APPOINTMENT INFO LOG LIST"
^DIPT(1359,0)="PRCB CTRLPT^3040305.1639^@^420^^@^3040316"
^DIPT(1359,"F",1)=".01;""STA#""~1,1;L6;S;C16~1,20;""ACT?"";L3;C7~1,.01;L20;C16~1,7,.01;L40;C20~"
^DIPT(1359,"F",2)="1,7,S DIP(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P($G(^PRCD(420.131,+$P(DIP(1),U,3),0)),U) W X K DIP;""ACC"";L11;Z;""FCP/PRJ""~"
^DIPT(1359,"H")="FUND CONTROL POINT LIST"
^DIPT(1360,0)="PXTT LIST HEALTH FACTORS 132^3040212.1528^@^9999999.64^^@^3040212"
^DIPT(1360,"%D",0)="^^1^1^3040212^"
^DIPT(1360,"%D",1,0)="This is a copy of PXTT LIST HEALTH FACTORS formatted for 120 columns."
^DIPT(1360,"F",2)=".03;C1;L40;N~.01;C43;L47~.09;C92;L30~.11;C124;L8~"
^DIPT(1360,"H")="HEALTH FACTORS LIST 132"
^DIPT(1361,0)="XUSEC TERMINATION REPORT^3040423.1056^@^1.1^^@^3040427"
^DIPT(1361,"DXS",1,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=""NPIEN"""
^DIPT(1361,"DXS",2,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),DIP(2)=$G(X) S X=""DTR"""
^DIPT(1361,"DXS",3,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,4),0)),U),DIP(2)=$G(X) S X=""USER"""
^DIPT(1361,"DXS",4,9.2)="X ""N I,Y ""_$P(^DD(1.1,2,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=$G(X) S X=""OVALUE"""
^DIPT(1361,"DXS",5,9.2)="X ""N I,Y ""_$P(^DD(1.1,3,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=$G(X) S X=""NVALUE"""
^DIPT(1361,"DXS",6,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,4.1)):^(4.1),1:"""") S X=$P($G(^DIC(19,+$P(DIP(1),U,1),0)),U),DIP(2)=$G(X) S X=""MIEN"""
^DIPT(1361,"F",1)="X DXS(1,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.01),""NPIEN"")""~"
^DIPT(1361,"F",2)="X DXS(2,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.02),""DTR"")""~"
^DIPT(1361,"F",3)="X DXS(3,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.04),""USER"")""~"
^DIPT(1361,"F",4)="X DXS(4,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#2),""OVALUE"")""~"
^DIPT(1361,"F",5)="X DXS(5,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#3),""NVALUE"")""~"
^DIPT(1361,"F",6)="X DXS(6,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#4.1),""MIEN"")""~"
^DIPT(1361,"F",7)="D TEST^XUSECAD;X;Z;""D TEST^XUSECAD""~D:'XUSECF USERH^XUSECAD;X;Z;""D:'XUSECF USERH^XUSECAD""~""*When: "";C1;X~"
^DIPT(1361,"F",8)="S X=$$FMTE^XLFDT(DIPA(""DTR""),""1P"");XX;Z;""S X=$$FMTE^XLFDT(DIPA(""DTR""),""1P"")""~W X;X;Z;""W X""~D TERM^XUSECAD;X;Z;""D TERM^XUSECAD""~"
^DIPT(1361,"F",9)="W "" Termination State: ""_X;X;Z;""W "" Termination State: ""_X""~"
^DIPT(1361,"F",10)="S X="" Editor:"",DIP(1)=$G(X) S X=""USER"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C1;X;Z;"""" Editor:""_PARAM(""USER"")""~"
^DIPT(1361,"F",11)="D MENU^XUSECAD;X;Z;""D MENU^XUSECAD""~W "" Menu Option: ""_X;C1;X;Z;""W "" Menu Option: ""_X""~"
^DIPT(1361,"H")="New Person Termination Audit Report"
^DIPT(1362,0)="XUSEC UPARROW TERM REPORT^3040423.0736^@^1.1^^@^3040423"
^DIPT(1362,"DXS",1,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=""NPIEN"""
^DIPT(1362,"DXS",2,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),DIP(2)=$G(X) S X=""DTR"""
^DIPT(1362,"DXS",3,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,4),0)),U),DIP(2)=$G(X) S X=""USER"""
^DIPT(1362,"DXS",4,9.2)="X ""N I,Y ""_$P(^DD(1.1,2,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=$G(X) S X=""OVALUE"""
^DIPT(1362,"DXS",5,9.2)="X ""N I,Y ""_$P(^DD(1.1,3,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=$G(X) S X=""NVALUE"""
^DIPT(1362,"DXS",6,9.2)="S DIP(1)=$S($D(^DIA(DIA,D0,4.1)):^(4.1),1:"""") S X=$P($G(^DIC(19,+$P(DIP(1),U,1),0)),U),DIP(2)=$G(X) S X=""MIEN"""
^DIPT(1362,"F",1)="X DXS(1,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.01),""NPIEN"")""~"
^DIPT(1362,"F",2)="X DXS(2,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.02),""DTR"")""~"
^DIPT(1362,"F",3)="X DXS(3,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.04),""USER"")""~"
^DIPT(1362,"F",4)="X DXS(4,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#2),""OVALUE"")""~"
^DIPT(1362,"F",5)="X DXS(5,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#3),""NVALUE"")""~"
^DIPT(1362,"F",6)="X DXS(6,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#4.1),""MIEN"")""~"
^DIPT(1362,"F",7)="D UPRPT^XUSECAD;X;Z;""D UPRPT^XUSECAD""~W X;X;Z;""W X""~"
^DIPT(1362,"H")="@"
^DIPT(1362,"SUB")="1"
^DIPT(1363,0)="RCXV ACTIVE PRINT^3040218.1137^@^430^^@^3040220"
^DIPT(1363,"DCL","430^.01")="!"
^DIPT(1363,"DCL","430^11")="&"
^DIPT(1363,"DNP")="1"
^DIPT(1363,"F",2)=".01~11~"
^DIPT(1363,"H")="ACCOUNTS RECEIVABLE STATISTICS"
^DIPT(1387,0)="BPS TECH - FILES^3010409.1144^@^1^^@^3050413"
^DIPT(1387,"F",2)="0;L13~1;L27~.01;L32~4,.01;C5~"
^DIPT(1387,"H")="BPS FILES"
^DIPT(1388,0)="BPS TECH - OPTIONS^3010205.0736^@^19^^@^3050413"
^DIPT(1388,"F",2)=".01;L30~1;L40~3.5,.01;C1~"""";S~"
^DIPT(1388,"H")="BPS OPTIONS"
^DIPT(1393,0)="XIP ZIP CODE LIST^3040430.0645^@^5.12^^@^3040503"
^DIPT(1393,"DXS",1,9.2)="S DIP(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,5)]"""",DIP(2)=$G(X) S X=""Inactive"",DIP(3)=$G(X) S X=1,DIP(4)=$G(X) S X=""Active"""
^DIPT(1393,"DXS",2,9.2)="S DIP(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,6),DIP(2)=$G(X) S X=$P(DIP(1),U,7),Y=X,X=DIP(2),X=X=Y,DIP(3)=$G(X) S X=""Acceptable(Default)"""
^DIPT(1393,"DXS",3,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X="" County: "",DIP(2)=$G(X),D0=$P(DIP(1),U,3) S:'D0!'$D(^XIP(5.13,+D0,0)) D0=-1"
^DIPT(1393,"F",1)=""
^DIPT(1393,"F",2)="S DIP(2)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=""ZIP Code: "",DIP(1)=$G(X) S X=$P(DIP(2),U,1),Y=X,X=DIP(1),X=X_Y_"" ("" W X K DIP;X;Z;""""ZIP Code: ""_(#.01)_"" (""""~"
^DIPT(1393,"F",3)="X DXS(1,9.2) S X=$S(DIP(2):DIP(3),DIP(4):X)_"")"" W X K DIP;X;Z;""$S((#4)]"""":""Inactive"",1:""Active"")_"")""""~"
^DIPT(1393,"F",4)="S DIP(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X="" City: ""_$P(DIP(1),U,2)_"" "" W X K DIP;C1;X;Z;"""" City: ""_CITY_"" """"~"
^DIPT(1393,"F",5)="X DXS(2,9.2) S DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X=""Acceptable"",X=$S(DIP(3):DIP(4),DIP(5):X) W X K DIP;X;Z;""$S((#5)=(#6):""Acceptable(Default)"",1:""Acceptable"")""~"
^DIPT(1393,"F",6)="X DXS(3,9.2) S DIP(102)=$S($D(^XIP(5.13,D0,0)):^(0),1:""""),DIP(101)=$G(X) S X=$P(DIP(102),U,2)_"" "",Y=X,X=DIP(2),X=X_Y S D0=I(0,0) W X K DIP;C1;X;Z;"""" County: ""_COUNTY:(#1)_"" """"~"
^DIPT(1393,"F",7)="S DIP(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=""State: ""_$P($G(^DIC(5,+$P(DIP(1),U,4),0)),U) W X K DIP;X;Z;""""State: ""_STATE""~"
^DIPT(1393,"H")="ZIP CODE LIST"
^DIPT(1394,0)="SD-PAIT PATIENT HL7 LOCATION^3041005.1046^@^409.6^^@^3041005"
^DIPT(1394,"F",2)="2,.01;L20~2,1~2,"" "";"" HL7 MESSAGE""~2,2;X~2,""-""~2,3;X~"
^DIPT(1394,"H")="SD-PAIT PATIENT HL7 LOCATION"
^DIPT(1396,0)="PXRM EXTRACT SUMMARY HDR^3000709.1822^@^810.3^^@^3000724"
^DIPT(1396,"%D",0)="^.4001^1^1^3000829^^"
^DIPT(1396,"%D",1,0)="Not distributed. This is a potential future template for users."
^DIPT(1396,"F",1)=".01;C1;X~""Date Range: "";C34;X~.02;C46;X~""-"";X~.03;X~""Extracted on "";C1;X~.06;C14;L12;X~""Task #: "";C34;X~.04;C44;X~""Total Patients Evaluated: "";C1;X~"
^DIPT(1396,"F",2)=".07;R5;X~""Patients with Findings : "";C1;X~.08;R5;X~""___________________________________________________________________"";C1~"" "";C1~"
^DIPT(1396,"H")="@"
^DIPT(1396,"SUB")="1"
^DIPT(1397,0)="PXRM EXTRACT SUMMARY PRNT^3000718.0904^@^810.3^^@^3000718"
^DIPT(1397,"%D",0)="^^1^1^3000829^"
^DIPT(1397,"%D",1,0)="Not distributed. This is a potential future template for users."
^DIPT(1397,"DXS",1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),DIP(1)=$S($D(^PXRMXT(810.3,D0,1,D1,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1397,"F",1)="10,0;C1;L5;S1;X~10,.01;L25;C7;X~10,D FORMATB^PXRMXXT;X;Z;""D FORMATB^PXRMXXT""~10,"" "";X~"
^DIPT(1397,"F",2)="10,X DXS(1,9.2) S X=$P(DIP(101),U,9) S D0=I(0,0) S D1=I(1,0) W X K DIP;L11;C34;X;Z;""PATIENT:SSN""~10,D PDEM^PXRMXXT;X;Z;""D PDEM^PXRMXXT""~10,"" "";C1~"
^DIPT(1397,"F",3)="10,D PFIND^PXRMXXT;X;Z;""D PFIND^PXRMXXT""~10,""Finding: "";C25;X~10,.04;L40~10,""Term: "";C28;X~10,.03;L40~10,""Alternate ID: "";C20;X~10,.05;X~"
^DIPT(1397,"F",4)="10,""Days Supply: "";C21;X~10,4;X~10,D DELVAR^PXRMXXT;Z;""D DELVAR^PXRMXXT""~"
^DIPT(1397,"H")="[PXRM EXTRACT SUMMARY HDR]"
^DIPT(1399,0)="PXRM FINDING RULE^3021129.14^@^810.4^^@^3041129"
^DIPT(1399,"F",1)=""""";C1~""Name:"";C1;R15~.01;L50~""Number:"";C1;R15~0~""Class:"";C1;R15~100~""Description:"";C1;S1;R15~.02;L60~""Rule Type:"";C1;S1;R15~.03~"
^DIPT(1399,"F",2)="""Reminder Term:"";C1;S2;R15~1;L50~D LRSTRT^PXRMLRED($P(X,U,4),4);X;Z;""D LRSTRT^PXRMLRED($P(X,U,4),4)""~"
^DIPT(1399,"F",3)="D LREND^PXRMLRED($P(X,U,5),6);X;Z;""D LREND^PXRMLRED($P(X,U,5),6)""~D USET^PXRMLRED;X;Z;""D USET^PXRMLRED""~""Edit History"";C1;R15;S2~""------------"";C1;R15~"
^DIPT(1399,"F",4)="110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~"
^DIPT(1399,"H")="REMINDER EXTRACT LIST RULE LIST"
^DIPT(1400,0)="PXRM RULE SET^3050914.0933^@^810.4^^@^3060817"
^DIPT(1400,100,0)="^.42A^1^1"
^DIPT(1400,100,1,0)="1"
^DIPT(1400,100,"B",1,1)=""
^DIPT(1400,"F",1)=""""";C1~""Name:"";C1;R15~.01;L50~""Number:"";C1;R15~0~""Class:"";C1;R15~100~""Description:"";C1;S1;R15~.02;L60~""Rule Type:"";C1;S1;R15~.03~"
^DIPT(1400,"F",2)="""Component Rules"";C5;R15;S1~""---------------"";C5;R15~D SEQPRT^PXRMLRED;Z;""D SEQPRT^PXRMLRED""~""Edit History"";C5;R15;S2~""------------"";C5;R15~"
^DIPT(1400,"F",3)="110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5;S1~110,2,.01;W~"""";C1;S1~"
^DIPT(1400,"H")="REMINDER EXTRACT LIST RULE LIST"
^DIPT(1403,0)="PXRM LOCATION LIST INQUIRY^3050616.1453^@^810.9^^@^3060808"
^DIPT(1403,"F",1)="""Name:"";C1;S1~.01;C8;X~""Description:"";C1;S1~1,.01~""Class:"";C1;S1~100;C31;X~""Sponsor:"";C1;S1~101;C31;X~""Review Date:"";C1;S1~""Edit History:"";C1;S1~"
^DIPT(1403,"F",2)="110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~""Clinic Stops:"";C1;S1~"
^DIPT(1403,"F",3)="D PCSTOPL^PXRMLOCL;Z;""D PCSTOPL^PXRMLOCL""~""Hospital Locations:"";C1;S1~"""";C1~44,.01~"
^DIPT(1403,"H")="REMINDER LOCATION LIST LIST"
^DIPT(1404,0)="PXRM LOCATION LIST LIST^3060712.1226^@^810.9^^@^3060808"
^DIPT(1404,"F",1)="""Name:"";C1;S2~.01;C7;X~""Class:"";C1~100;C8;X~""Clinic Stops:"";C1;S1~"""";C1~40.7,.01~40.7,.02~""Hospital Locations:"";C1;S1~"""";C1~44,.01~"
^DIPT(1404,"H")="@"
^DIPT(1404,"SUB")="1"
^DIPT(1405,0)="PXRM PATIENT LIST RULE^3060516.1146^@^810.4^^@^3060608"
^DIPT(1405,"F",1)=""""";C1~""Name:"";C1;R21~.01;L50~""Number:"";C1;R21~0~""Class:"";C1;R21~100~""Description:"";C1;S1;R21~.02;L55~""Rule Type:"";C1;S1;R21~.03~"
^DIPT(1405,"F",2)="""Existing Patient List:"";C1;S1;R21~4;L55~""Extract Patient List:"";C1;S1;R21~7;L55~D USET^PXRMLRED;X;Z;""D USET^PXRMLRED""~""Edit History"";C1;R15;S2~"
^DIPT(1405,"F",3)="""------------"";C1;R15~110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~"
^DIPT(1405,"H")="REMINDER LIST RULE LIST"
^DIPT(1406,0)="PXRM EXTRACT QUERI TOTALS^3021206.1711^@^810.3^^@^3040708"
^DIPT(1406,"F",1)=".01;C1;S1;L30;X~""Date Range: "";C34;X~.02;C46;X~""-"";X~.03;X~""Extract Date: "";C32;X~.06;C46;L15;X~30,""Extract Sequence:"";C2;S1~30,.01;X;C20~"
^DIPT(1406,"F",2)="30,""Reminder:"";C2~30,.02;C20;X~30,""Station:"";C2~30,.03;C20;X~30,""Patient List:"";C2~30,.04;C20;L55;X~"
^DIPT(1406,"F",3)="30,""Reminder Totals: Total Applicable N/A Due Not Due"";C3;S1~30,2;C20;X~30,3;C35;X~30,4;C45;X~30,5;C55;X~30,6;C65;X~"
^DIPT(1406,"F",4)="30,""Finding Totals:"";C3;S1~30,10,""Sequence:"";C5;S1~30,10,.01;C20;X~30,10,""Finding Group:"";C5~30,10,.04;C20;X~30,10,""Term:"";C5~30,10,.02;C20;X~"
^DIPT(1406,"F",5)="30,10,""Group Type:"";C5~30,10,.03;C20;X~30,10,""Group Status:"";C5~30,10,.05;C20;X~30,10,""Finding Count by Reminder Status:"";C5~"
^DIPT(1406,"F",6)="30,10,""Total Applicable N/A Due Not Due"";C19;S1~30,10,1;C15;X~30,10,2;C30;X~30,10,3;C40;X~30,10,4;C50;X~30,10,5;C60;X~"
^DIPT(1406,"H")="REMINDER EXTRACT SUMMARY LIST"
^DIPT(1407,0)="DG BAI^3041228.1309^^2^^^3050215"
^DIPT(1407,"F",2)="S DG=$G(^DPT(+D0,0)) I DG'="""" W $E(DG)_$E($P(DG,U,9),6,9);L6;""SSN LAST4"";Z;""S DG=$G(^DPT(+D0,0)) I DG'="""" W $E(DG)_$E($P(DG,U,9),6,9)""~.01;L55~"
^DIPT(1407,"H")="PATIENT BAD ADDRESS INDICATOR LIST"
^DIPT(1408,0)="DGPT FEE BASIS^3050323.1514^^45.85^^^3050407"
^DIPT(1408,"DCL","45.85^0")="!"
^DIPT(1408,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9)"
^DIPT(1408,"F",1)=".01;L20;C1~"
^DIPT(1408,"F",2)="X DXS(1,9.2) S DIP(102)=$G(X) S X=6,DIP(103)=$G(X) S X=10,X=$E(DIP(102),DIP(103),X) S D0=I(0,0) W X K DIP;""SSN"";C25;L5;Z;""$E(NAME:SSN,6,10)""~"
^DIPT(1408,"F",3)="S DIP(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=$P(X,""."",1) S Y=X D DT K DIP;L12;C32;""ADMISSION DATE"";d;Z;""DATE(ADMISSION DATE)""~"
^DIPT(1408,"F",4)="S DIP(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X;C58;L6;""PTF NUMBER"";Z;""INTERNAL(PTF NUMBER)"";!~103;C66;""CENSUS NUMBER"";L6~"
^DIPT(1408,"F",5)="101;C74;L7~"
^DIPT(1408,"H")="FEE BASIS CENSUS WORKFILE LIST"
^DIPT(1409,0)="PRCV DYNAMED RIL'S NEED ACTION^3050513.1052^^414.02^^@^3050609"
^DIPT(1409,"F",2)="4~13~2~1~12~"
^DIPT(1409,"H")="DYNAMED IFCAP INTERFACE AUDIT SEARCH"
^DIPT(1410,0)="PRCV ITEM DISPLAY^3050526.1505^@^441^^@^3050603"
^DIPT(1410,"DXS",1,9.2)="S DIP(1)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4),X=X S X=X>0,DIP(2)=$G(X) S X=""("",DIP(3)=$G(X) S X=$P(DIP(1),U,4),X=X S Y=X,X=DIP(3),X=X S X=X"
^DIPT(1410,"DXS",2,9.2)="S DIP(1)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,8),X=X S X=X>0,DIP(2)=$G(X) S X=""("",DIP(3)=$G(X) S X=$P(DIP(1),U,8),X=X S Y=X,X=DIP(3),X=X S X=X"
^DIPT(1410,"DXS",3,9.2)="S DIP(1)=$S($D(^PRC(441,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S X=X>0,DIP(2)=$G(X) S X=""("",DIP(3)=$G(X) S X=$P(DIP(1),U,3)"
^DIPT(1410,"DXS",4,9.2)="S DIP(1)=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S X=X>0,DIP(2)=$G(X) S X=""("",DIP(3)=$G(X) S X=$P(DIP(1),U,1)"
^DIPT(1410,"F",1)="""NUMBER: "";C1;""""~0;X;""""~""NIF ITEM NUMBER: "";C40;""""~51;X;""""~""SHORT DESCRIPTION: "";C1;""""~.05;X;""""~""DESCRIPTION: "";C1;""""~.1,.01;C5;""""~"
^DIPT(1410,"F",2)="""MFG PART NO.: "";C1;""""~19;X;""""~""BOC: "";C1;""""~12;X;""""~""FSC: "";C1;""""~2;X;""""~""NSN: "";C40;""""~5;X;""""~""LAST VENDOR ORDERED: "";C1;""""~"
^DIPT(1410,"F",3)="X DXS(1,9.2) S X=X_Y_"") "",DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#9)>0:""(""_INTERNAL(#9)_"") "",1:"""")""~"
^DIPT(1410,"F",4)="9;X;""""~""MANDATORY SOURCE: "";C1;""""~"
^DIPT(1410,"F",5)="X DXS(2,9.2) S X=X_Y_"") "",DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#10)>0:""(""_INTERNAL(#10)_"") "",1:"""")""~"
^DIPT(1410,"F",6)="10;X;""""~1,""FCP: "";C1;""""~"
^DIPT(1410,"F",7)="1,S DIP(1)=$S($D(^PRC(441,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=1,DIP(3)=$G(X) S X=3,X=$E(DIP(2),DIP(3),X) W X K DIP;X;"""";Z;""$E(#.01,1,3)""~"
^DIPT(1410,"F",8)="1,"":"";X;""""~"
^DIPT(1410,"F",9)="1,S DIP(1)=$S($D(^PRC(441,D0,4,D1,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=4,DIP(3)=$G(X) S X=99,X=$E(DIP(2),DIP(3),X) W X K DIP;X;"""";Z;""$E(#.01,4,99)""~"
^DIPT(1410,"F",10)="1,""PREFERRED VENDOR: "";C17;""""~"
^DIPT(1410,"F",11)="1,X DXS(3,9.2) S X=X S Y=X,X=DIP(3),X=X S X=X_Y_"") "",DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#3)>0:""(""_INTERNAL(#3)_"") "",1:"""")""~"
^DIPT(1410,"F",12)="1,3;X;""""~6,""VENDOR: "";C1;""""~"
^DIPT(1410,"F",13)="6,X DXS(4,9.2) S X=X S Y=X,X=DIP(3),X=X S X=X_Y_"") "",DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;X;"""";Z;""$S(INTERNAL(#.01)>0:""(""_INTERNAL(#.01)_"") "",1:"""")""~"
^DIPT(1410,"F",14)="6,.01;X;""""~6,""UNIT OF PURCHASE: "";C5;""""~6,1.5;X;""""~6,""UNIT COST: "";C40;X~6,1;X;L13;""""~6,""PACKAGING MULTIPLE: "";C5;""""~6,1.6;X;L7;""""~"
^DIPT(1410,"F",15)="6,""UNIT CONVERSION FACTOR: "";C40;""""~6,10;X;L7;""""~6,""VENDOR STOCK #: "";C5;""""~6,3;X;""""~6,""CONTRACT: "";C40;""""~6,2;X;""""~"
^DIPT(1410,"H")="@"
^DIPT(1410,"SUB")="1"
^DIPT(1411,0)="DG ISO SENSITIVE RCDS PRT^3050722.1544^^38.1^^^3050722"
^DIPT(1411,"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"
^DIPT(1411,"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=""."""
^DIPT(1411,"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"
^DIPT(1411,"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)"
^DIPT(1411,"DXS",2,9.4)="S I(101,0)=$G(D1) X DXS(2,9.3):D0>0 S X="""" S D1=I(101,0)"
^DIPT(1411,"F",1)="D HEADER^DGISORPT;Z;""D HEADER^DGISORPT""~"
^DIPT(1411,"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;L30;"" "";C1;Z;""PATIENT NAME_""^""""~"
^DIPT(1411,"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)""~"
^DIPT(1411,"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~"
^DIPT(1411,"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~50,-200,""^"";X~"
^DIPT(1411,"F",6)="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~50,""^"";X~50,4;X;L1~"
^DIPT(1411,"H")="@"
^DIPT(1411,"SUB")="1"
^DIPT(1412,0)="DG ISO SENSITIVE RCDS PRT1^3050707.1439^^38.1^^^3050707"
^DIPT(1412,"DXS",1,9)="X DXS(1,9.2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"" S Y=X,X=DIP(2),X=X S X=X_Y"
^DIPT(1412,"DXS",1,9.2)="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) S X=X_""@"",DIP(2)=$G(X) S X=$P(DIP(1),U,1)"
^DIPT(1412,"F",1)=".01;L20~50,X DXS(1,9) W X K DIP;C24;""DT/TM ACCESSED"";Z;""NUMDATE(DATE/TIM)_""@""_TIME(DATE/TIME)""~50,2;L20;C47~"
^DIPT(1412,"F",2)="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;L20;C70~"
^DIPT(1412,"F",3)="50,3;L30;C93~50,4;C125;""INPAT WHEN ACCESSED""~"
^DIPT(1412,"H")="Sensitive Records Accessed"
^DIPT(1413,0)="SDWLRO^3071022.1108^@^409.3^^@^3080108"
^DIPT(1413,"F",1)=".01;L25;X~""REOPEN REASON: "";C42~29;X~""EWL TYPE: "";C1~4;X;L25~""DESIRED DATE: "";C42~22;X;~""APPT: "";C1~13.2;L25;C7;X~13;X;d;L20;C36~13.8;L20;C60;X~"
^DIPT(1413,"F",2)="""REOPEN COMMENTS: "";C1~30;X~"""";S1~"
^DIPT(1413,"H")="EWL Reopened Entries Report"
^DIPT(1414,0)="XU-CLINICAL TRAINEE TRANSA^3040513.1139^@^200^^@^3050801"
^DIPT(1414,"DCL","200^.01")="!"
^DIPT(1414,"DXS",1,9.2)="S DIP(2)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=""*****"",DIP(1)=$G(X) S X=$P(DIP(2),U,9),DIP(3)=$G(X) S X=6,DIP(4)=$G(X) S X=9"
^DIPT(1414,"F",2)=".01~X DXS(1,9.2) S X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;""SSN"";Z;""""*****""_$E(SSN,6,9)""~"
^DIPT(1414,"H")="Registered Trainee Transmission Report"
^DIPT(1415,0)="XU-CLINICAL TRAINEE TRANSB^3040513.1141^@^200^^@^3050801"
^DIPT(1415,"DCL","200^.01")="!"
^DIPT(1415,"DXS",1,9.2)="S DIP(2)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=""*****"",DIP(1)=$G(X) S X=$P(DIP(2),U,9),DIP(3)=$G(X) S X=6,DIP(4)=$G(X) S X=9"
^DIPT(1415,"F",2)=".01~X DXS(1,9.2) S X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y W X K DIP;""SSN"";Z;""""*****""_$E(SSN,6,9)""~"
^DIPT(1415,"H")="Selectable Registered Trainee Transmission Report"
^DIPT(1416,0)="XU-CLINICAL TRAINEE TRANSC^3040513.1025^@^200^^@^3050801"
^DIPT(1416,"DCL","200^.01")="!"
^DIPT(1416,"DNP")="1"
^DIPT(1416,"F",2)=".01;L0;X~"
^DIPT(1416,"H")="Summary Registered Trainee Transmission Report"
^DIPT(1417,0)="XU-CLINICAL TRAINEE LIST^3050321.0815^@^200^^@^3050801"
^DIPT(1417,"DXS",1,9.2)="S DIP(2)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=""("",DIP(1)=$G(X) S X=$P(DIP(2),U,9),DIP(3)=$G(X) S X=6,DIP(4)=$G(X) S X=9"
^DIPT(1417,"DXS",2,9.2)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P(DIP(1),U,7)'="""",DIP(2)=$G(X),DIP(3)=$G(X) S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X"
^DIPT(1417,"F",1)=".01;L30;""NAME/LAST4""~X DXS(1,9.2) S X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y_"")"" W X K DIP;X;Z;""""(""_$E(SSN,6,9)_"")""""~29;""SERVICE"";C38~"
^DIPT(1417,"F",2)="X DXS(2,9.2) S DIP(4)=$G(X) S X=1,DIP(5)=$G(X) S X="""",X=$S(DIP(2):DIP(4),DIP(5):X) W X K DIP;""DATE"";Z;""$S((#12.7)'="""":NUMDATE(#12.7),1:"""")""~"
^DIPT(1417,"H")="Registered Trainee List"
^DIPT(1418,0)="XU-CLINICAL INACTIVE TRAINEE^3050321.0739^@^200^^@^3050801"
^DIPT(1418,"DXS",1,9.2)="S DIP(2)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=""("",DIP(1)=$G(X) S X=$P(DIP(2),U,9),DIP(3)=$G(X) S X=6,DIP(4)=$G(X) S X=9"
^DIPT(1418,"F",1)=".01;L30;""NAME/LAST4""~X DXS(1,9.2) S X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y_"")"" W X K DIP;X;Z;""""(""_$E(SSN,6,9)_"")""""~29;""SERVICE"";C38~"
^DIPT(1418,"F",2)="S DIP(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P(DIP(1),U,7) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""DATE"";Z;""NUMDATE(#12.7)""~"
^DIPT(1418,"H")="Non-Active Registered Trainees"
^DIPT(1419,0)="XU-CLINICAL ACTIVE TRAINEE^3050321.081^@^200^^@^3050801"
^DIPT(1419,"DXS",1,9.2)="S DIP(2)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=""("",DIP(1)=$G(X) S X=$P(DIP(2),U,9),DIP(3)=$G(X) S X=6,DIP(4)=$G(X) S X=9"
^DIPT(1419,"F",2)=".01;""NAME/LAST4""~X DXS(1,9.2) S X=$E(DIP(3),DIP(4),X) S Y=X,X=DIP(1),X=X_Y_"")"" W X K DIP;X;Z;""""(""_$E(SSN,6,9)_"")""""~29;""SERVICE""~"
^DIPT(1419,"H")="Active Registered Trainee List"
^DIPT(1420,0)="RMPR WH DISPLAY^3051128.1308^@^664^^@^3061211"
^DIPT(1420,"DXS",1,9.2)="S DIP(2)=$S($D(^RMPR(664,D0,3)):^(3),1:"""") S X=""Deliver To Attention: "",DIP(1)=$G(X) S X=$P(DIP(2),U,4)'="""",DIP(3)=$G(X) S X=$P(DIP(2),U,4),DIP(4)=$G(X) S X=1"
^DIPT(1420,"F",1)="S DIP(1)=$S($D(^RMPR(664,D0,3)):^(3),1:"""") S X=""Deliver To: ""_$P(DIP(1),U,1) W X K DIP;S1;X;Z;""""Deliver To: ""_DELIVER TO""~"
^DIPT(1420,"F",2)="S DIP(1)=$S($D(^RMPR(664,D0,4)):^(4),1:"""") S X="" IFCAP Order: ""_$P($G(^PRC(442,+$P(DIP(1),U,6),0)),U) W X K DIP;X;Z;"""" IFCAP Order: ""_IFCAP ORDER""~"
^DIPT(1420,"F",3)="X DXS(1,9.2) S DIP(5)=$G(X) S X=""N/A"",X=$S(DIP(3):DIP(4),DIP(5):X) S Y=X,X=DIP(1),X=X_Y W X K DIP;S1;X;Z;""""Deliver To Attention: ""_$S(DELIVER TO ATTENTION'="""":DELIVER TO ATTENTION,1:""N/A"")""~"
^DIPT(1420,"F",4)="S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=""Vendor: ""_$P($G(^PRC(440,+$P(DIP(1),U,4),0)),U) W X K DIP;S1;X;Z;""""Vendor: ""_VENDOR""~"
^DIPT(1420,"F",5)="S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=""Initiator: ""_$P($G(^VA(200,+$P(DIP(1),U,9),0)),U) W X K DIP;S1;X;Z;""""Initiator: ""_INITI""~"
^DIPT(1420,"F",6)="S DIP(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=""Station Name: ""_$P($G(^DIC(4,+$P(DIP(1),U,14),0)),U) W X K DIP;S1;X;Z;""""Station Name: ""_STATION NAME""~"
^DIPT(1420,"F",7)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X=""Item: ""_$$EXTERNAL^DIDU(664.02,.01,"""",$P(DIP(1),U,1)) W X K DIP;S1;X;Z;""""Item: ""_BILLING IT""~"
^DIPT(1420,"F",8)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X=""Brief Description: ""_$P(DIP(1),U,2) W X K DIP;S1;X;Z;""""Brief Description: ""_BRIEF DES""~"
^DIPT(1420,"F",9)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X=""Unit Cost: ""_$P(DIP(1),U,3) W X K DIP;S1;X;Z;""""Unit Cost: ""_UNIT COST""~"
^DIPT(1420,"F",10)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X="" Qty: ""_$P(DIP(1),U,4) W X K DIP;X;Z;"""" Qty: ""_QTY""~"
^DIPT(1420,"F",11)="2,S DIP(1)=$S($D(^RMPR(664,D0,1,D1,0)):^(0),1:"""") S X="" Unit of Issue: ""_$P($G(^PRCD(420.5,+$P(DIP(1),U,5),0)),U) W X K DIP;X;Z;"""" Unit of Issue: ""_UNIT OF""~"
^DIPT(1420,"F",12)="2,14,.01;S1;X;m;w~"
^DIPT(1420,"H")="Prosthetics Display"
^DIPT(1421,0)="XTPM COMPLETE PATCH HISTORY^3070615.1018^@^9.9^^@^3070615"
^DIPT(1421,"DCL","9.9^.01")="!"
^DIPT(1421,"F",1)=""
^DIPT(1421,"F",2)="S DIP(1)=$S($D(^XPD(9.9,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""COMPLIANCE DATE"";Z;""NUMDATE(COMPLIANCE DATE)""~"
^DIPT(1421,"F",3)="D INSDATE^XTPMKPCF;""DATE INSTALLED"";L8;Z;""D INSDATE^XTPMKPCF""~.01;L15~6;L40;""SUBJECT""~"
^DIPT(1421,"H")="COMPLETE PATCH INSTALLATION HISTORY"
^DIPT(1422,0)="XTPM UNINSTALLED BY COMPLIANCE^3050721.093^@^9.9^^@^3050811"
^DIPT(1422,"DCL","9.9^.01")="!"
^DIPT(1422,"F",1)=""
^DIPT(1422,"F",2)="S DIP(1)=$S($D(^XPD(9.9,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,9) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""COMPLIANCE DATE"";L8;Z;""NUMDATE(COMPLIANCE DATE)""~"
^DIPT(1422,"F",3)=".01;L15;""PATCH NUMBER""~"
^DIPT(1422,"F",4)="S DIP(1)=$S($D(^XPD(9.9,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;L8;""DATE RCV"";Z;""NUMDATE(DATE OF RECEIPT)""~"
^DIPT(1422,"F",5)="6;L40~"
^DIPT(1422,"H")="UNINSTALLED PATCHES BY COMPLIANCE DATE"
^DIPT(1423,0)="IBT QUICK REV CODING STAT^3050815.1756^@^356^^@^3050727"
^DIPT(1423,"DXS")="3"
^DIPT(1423,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^IBT(356,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(1423,"DXS",2,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^IBT(356,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,4) S:'D0!'$D(^SCE(+D0,0)) D0=-1 S DIP(101)=$S($D(^SCE(D0,0)):^(0),1:"""")"
^DIPT(1423,"F",1)=".02~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT:SSN""~"
^DIPT(1423,"F",2)="X DXS(2,9.2) S X=$P($G(^SC(+$P(DIP(101),U,4),0)),U) S D0=I(0,0) W X K DIP;""LOCATION"";C1;L15;Z;""OUTPATIENT ENCOUNTER:LOCATION""~.04;""DATE/TIME"";C18;L20~"
^DIPT(1423,"F",3)=".19;C1~3,.01~"
^DIPT(1423,"H")="QUICK REVIEW CODING STATUS"
^DIPT(1424,0)="801notsenttopce^3050328.1458^@^45^^@^3050408"
^DIPT(1424,"DXS",1,9)="S I(0,0)=$G(D0),DIP(1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9) S D0=I(0,0)"
^DIPT(1424,"F",2)=".01;C5~X DXS(1,9) W X K DIP;Z;""PATIENT:SOCIAL SECURITY NUMBER""~"
^DIPT(1424,"H")="Pro Fee Coding Not Sent to PCE"
^DIPT(1425,0)="801HEADER^3050329.1008^@^45^^@^3050408"
^DIPT(1425,"F",1)="""Pro Fee Not Sent To PCE""~S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;C50;R20;Z;""NOW"";d~""PAGE""~"
^DIPT(1425,"F",2)="S X=$S($D(DC)#2:DC,1:"""") W X K DIP;R2;Z;""PAGE""~W DGST;C25;Z;""W DGST""~"" -""~W DGEND;L20;Z;""W DGEND""~""PATIENT"";S1;C5~""SSN"";C37~"
^DIPT(1425,"F",3)="S X=""-"",DIP(1)=$G(X) S X=80,X1=DIP(1) S %=X,X="""" Q:X1="""" S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;""DUP(""-"",80)""~"
^DIPT(1425,"H")="PTF LIST"
^DIPT(1426,0)="ECX LAB TEST PRINT^3060612.1113^@^727.2^^@^3061024"
^DIPT(1426,"DXS",1,9)="S X=$S('$D(D1):"""",D1<0:"""",1:D1),DIP(1)=$G(X) S X=6,X=$J(DIP(1),X),DIP(2)=$G(X) S X="" "",DIP(3)=$G(X) S X=""0"",X1=DIP(3) S X2=DIP(2) S X=$TR(X2,X1,X)"
^DIPT(1426,"DXS",2,"B")="BLOOD"
^DIPT(1426,"DXS",2,"F")="FECES"
^DIPT(1426,"DXS",2,"U")="URINE"
^DIPT(1426,"F",1)="1,X DXS(1,9) W X K DIP;C1;"""";Z;""TRANSLATE($J(NUMBER,6),"" "",""0"")""~1,.01;L25;C11~1,1,.01;L25;C39~1,2;L6;C67~"
^DIPT(1426,"F",2)="1,1,-60,^LAB(60,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S DIP(1)=$S($D(^ECX(727.2,D0,1,D1,""LOC"",D2,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1426,"F",3)="1,1,-60,100,.01;L15;C76~1,1,-60,100,6;L10;C94~1,1,-60,500,1;L10;C107~"
^DIPT(1426,"H")="[DSS LAB TEST HEADER]"
^DIPT(1426,"IOM")="132"
^DIPT(1426,"LAST")=""
^DIPT(1426,"ROUOLD")=""
^DIPT(1427,0)="ECX LAB TEST HEADER^3060612.1013^@^727.2^^@^3060905"
^DIPT(1427,"DXS")="2"
^DIPT(1427,"DXS",1,9.2)=" S X=""Printed on "",DIP(1)=$G(X),%=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X,X=DIP(1),X=X S X=X"
^DIPT(1427,"F",1)="""DSS LAB TESTS NAMES DATASHEET"";C1~S X=""Page "",DIP(1)=$G(X),X=$S($D(DC)#2:DC,1:"""") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;C95;Z;""""Page ""_PAGE""~"
^DIPT(1427,"F",2)="X DXS(1,9.2) S DIP(2)=X,X=Y S Y=X X ^DD(""DD"") S X=DIP(2)_Y S Y=X D DT K DIP;C1;d;L18;Z;""""Printed on ""_NOW""~""RESULT"";C1;S~""TEST ID"";C1~""DSS LAB"";C11~"
^DIPT(1427,"F",3)="""LOCAL LAB"";C39~""REPORTING"";C92~""LMIP(s)/"";C107~""NUMBER"";C1~""TEST NAME"";C11~""TEST NAME"";C39~""SOURCE"";C67~""SPECIMEN"";C76~""UNITS"";C94~"
^DIPT(1427,"F",4)="""WKLD CODE(s)"";C107~S $P(LN,""-"",120)="""" W LN;C1;Z;""S $P(LN,""-"",120)="""" W LN""~"
^DIPT(1427,"H")="@"
^DIPT(1427,"SUB")="1"
^DIPT(1428,0)="XUSAP PROXY LIST^3050308.1608^@^200^^@^3050511"
^DIPT(1428,"F",2)=".01~9.5,.01~9.5,2~"
^DIPT(1428,"H")="PROXY USER LIST"
^DIPT(1429,0)="EN RESEARCH EXTRACT^3051228.1535^@^6914^^@^3051228^3"
^DIPT(1429,100,0)="^.42A^38^38"
^DIPT(1429,100,1,0)="1^2"
^DIPT(1429,100,2,0)="2^4"
^DIPT(1429,100,3,0)="3^4"
^DIPT(1429,100,4,0)="4^4"
^DIPT(1429,100,5,0)="5^4"
^DIPT(1429,100,6,0)="6^2"
^DIPT(1429,100,7,0)="7^4"
^DIPT(1429,100,8,0)="8^4"
^DIPT(1429,100,9,0)="9^4"
^DIPT(1429,100,10,0)="10^4"
^DIPT(1429,100,11,0)="11^4"
^DIPT(1429,100,12,0)="12^4"
^DIPT(1429,100,13,0)="13^2"
^DIPT(1429,100,14,0)="14^2"
^DIPT(1429,100,15,0)="15^1"
^DIPT(1429,100,16,0)="16^1"
^DIPT(1429,100,17,0)="17^1"
^DIPT(1429,100,18,0)="18^4"
^DIPT(1429,100,19,0)="19^4"
^DIPT(1429,100,20,0)="20^4"
^DIPT(1429,100,21,0)="21^4"
^DIPT(1429,100,22,0)="22^4"
^DIPT(1429,100,23,0)="23^4"
^DIPT(1429,100,24,0)="24^1"
^DIPT(1429,100,25,0)="25^4"
^DIPT(1429,100,26,0)="26^4"
^DIPT(1429,100,27,0)="27^4"
^DIPT(1429,100,28,0)="28^1"
^DIPT(1429,100,29,0)="29^1"
^DIPT(1429,100,30,0)="30^4"
^DIPT(1429,100,31,0)="31^4"
^DIPT(1429,100,32,0)="32^4"
^DIPT(1429,100,33,0)="33^4"
^DIPT(1429,100,34,0)="34^4"
^DIPT(1429,100,35,0)="35^4"
^DIPT(1429,100,36,0)="36^4"
^DIPT(1429,100,37,0)="37^4"
^DIPT(1429,100,38,0)="38^4"
^DIPT(1429,100,"B",1,1)=""
^DIPT(1429,100,"B",2,2)=""
^DIPT(1429,100,"B",3,3)=""
^DIPT(1429,100,"B",4,4)=""
^DIPT(1429,100,"B",5,5)=""
^DIPT(1429,100,"B",6,6)=""
^DIPT(1429,100,"B",7,7)=""
^DIPT(1429,100,"B",8,8)=""
^DIPT(1429,100,"B",9,9)=""
^DIPT(1429,100,"B",10,10)=""
^DIPT(1429,100,"B",11,11)=""
^DIPT(1429,100,"B",12,12)=""
^DIPT(1429,100,"B",13,13)=""
^DIPT(1429,100,"B",14,14)=""
^DIPT(1429,100,"B",15,15)=""
^DIPT(1429,100,"B",16,16)=""
^DIPT(1429,100,"B",17,17)=""
^DIPT(1429,100,"B",18,18)=""
^DIPT(1429,100,"B",19,19)=""
^DIPT(1429,100,"B",20,20)=""
^DIPT(1429,100,"B",21,21)=""
^DIPT(1429,100,"B",22,22)=""
^DIPT(1429,100,"B",23,23)=""
^DIPT(1429,100,"B",24,24)=""
^DIPT(1429,100,"B",25,25)=""
^DIPT(1429,100,"B",26,26)=""
^DIPT(1429,100,"B",27,27)=""
^DIPT(1429,100,"B",28,28)=""
^DIPT(1429,100,"B",29,29)=""
^DIPT(1429,100,"B",30,30)=""
^DIPT(1429,100,"B",31,31)=""
^DIPT(1429,100,"B",32,32)=""
^DIPT(1429,100,"B",33,33)=""
^DIPT(1429,100,"B",34,34)=""
^DIPT(1429,100,"B",35,35)=""
^DIPT(1429,100,"B",36,36)=""
^DIPT(1429,100,"B",37,37)=""
^DIPT(1429,100,"B",38,38)=""
^DIPT(1429,105)=".998"
^DIPT(1429,"F",1)=".01~W $C(59);X~1;X~W $C(59);X~4;X~W $C(59);X~5;X~W $C(59);X~18;X~W $C(59);X~15;X~W $C(59);X~3;X~W $C(59);X~19;X~W $C(59);X~6;X~W $C(59);X~11;X~W $C(59);X~20.1;X~W $C(59);X~10;X~W $C(59);X~12.5;X~W $C(59);X~"
^DIPT(1429,"F",2)="12;X~W $C(59);X~13;X~W $C(59);X~14;X~W $C(59);X~16;X~W $C(59);X~7;X~W $C(59);X~51;X~W $C(59);X~20;X~W $C(59);X~2;X~W $C(59);X~21;X~W $C(59);X~24;X~W $C(59);X~23;X~W $C(59);X~25;X~W $C(59);X~26;X~W $C(59);X~"
^DIPT(1429,"F",3)="27;X~W $C(59);X~20.5;X~W $C(59);X~22;X~W $C(59);X~31;X~W $C(59);X~60;X~W $C(59);X~34;X~W $C(59);X~62;X~W $C(59);X~35;X~W $C(59);X~61;X~W $C(59);X~38;X~W $C(59);X~63;X~W $C(59);X~64;X~W $C(59);X~"
^DIPT(1429,"H")="@@"
^DIPT(1429,"IOM")="1000"
^DIPT(1429,"SUB")="1"
^DIPT(1430,0)="PRCH OBLIGATED 1358 LIST^3051114.0739^@^442^^@^3060117"
^DIPT(1430,"%D",0)="^^2^2^3050218^"
^DIPT(1430,"%D",1,0)="This new option is used to support a new FPDS report for the Austin "
^DIPT(1430,"%D",2,0)="Automation Center (AAC)."
^DIPT(1430,"F",1)=".01;L12~.1;L12~-410,^PRCS(410,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X S D(0)=+X;Z;"".07:""~-410,11;L25~-410,13;L15~"
^DIPT(1430,"F",2)="-440,^PRC(440,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""VENDOR:""~-440,8.3;L5~-440,10,.01;L3~91;L9~"
^DIPT(1430,"F",3)="-440,^PRC(440,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""VENDOR:""~"
^DIPT(1430,"F",4)="-410,^PRCS(410,^^S I(0,0)=D0 S DIP(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X S D(0)=+X;Z;"".07:""~-410,40;L18~"
^DIPT(1430,"H")="PROCUREMENT & ACCOUNTING TRANSACTIONS LIST (OBLIGATED 1358s)"
^DIPT(1431,0)="ONCQA^3060526.093^@^165.5^^@^3061101"
^DIPT(1431,"DXS")="8"
^DIPT(1431,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,3),0)),U)"
^DIPT(1431,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.5,.03,"""",$P(DIP(1),U,3))"
^DIPT(1431,"DXS",3,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,2,0),U,5,99) S DIP(101)=X"
^DIPT(1431,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U)"
^DIPT(1431,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U)"
^DIPT(1431,"DXS",6,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ONCO(164.43,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164.43,D0,0)):^(0),1:"""")"
^DIPT(1431,"DXS",7,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,4,D1,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.51,2,"""",$P(DIP(1),U,3))"
^DIPT(1431,"F",1)="""CANCER REGISTRY QA ABSTRACT"";C3;S1~"
^DIPT(1431,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,""."",1) S Y=X D DT K DIP;C65;L12;d;Z;""DATE(NOW)""~"
^DIPT(1431,"F",3)="""Abstracted by.................:"";C3;S1~"
^DIPT(1431,"F",4)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(ABSTRACTED BY)""~"
^DIPT(1431,"F",5)="""Reporting Hospital............:"";C3~"
^DIPT(1431,"F",6)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;L45;Z;""LOWERCASE(#.03)""~"
^DIPT(1431,"F",7)="""Date Case Completed...........:"";C3~90;C35~""Patient Name..................:"";C3~.02;C35~""SSN...........................:"";C3~"
^DIPT(1431,"F",8)="X DXS(3,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C35;Z;"".02:2""~""* CANCER IDENTIFICATION *"";S1~""Class of Case.................:"";C3;S1~.04;C35~"
^DIPT(1431,"F",9)="""Primary Site..................:"";C3~"
^DIPT(1431,"F",10)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PRIMARY SITE)""~"
^DIPT(1431,"F",11)="""Laterality....................:"";C3~28;C35;X~""Date Dx.......................:"";C3~3;C35;L10~""Histology (ICD-O-3)...........:"";C3~"
^DIPT(1431,"F",12)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(HISTOLOGY (ICD-O-3))""~"
^DIPT(1431,"F",13)="""Grade/Diff/Cell Type..........:"";C3~24;C35~X DXS(6,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C35;Z;""GRADE:EXPLANATION""~"
^DIPT(1431,"F",14)="""Diagnostic Confirmation.......:"";C3~26;C35~""* STAGE OF DISEASE AT DIAGNOSIS *"";S1~""Clinical TNM..................: "";C3;S1~37;C35~"
^DIPT(1431,"F",15)="""Clinical Stage Group..........:"";C3~38;C35~""Staged By (Clinical)..........:"";C3~19;C35~""Pathologic TNM................:"";C3~89.1;C35~"
^DIPT(1431,"F",16)="""Pathologic Stage Group........:"";C3~88;C35;L14~""Staged By (Pathologic)........:"";C3~89;C35~""Tumor Size....................:"";C3;S1~29;C35~"
^DIPT(1431,"F",17)="""Extension.....................:"";C3~30;C35;L45~""Pathologic Extension..........:"";C3~30.1;C35~""Regional Lymph Nodes Examined.:"";C3~33;C35~"
^DIPT(1431,"F",18)="""Regional Lymph Nodes Positive.:"";C3~32;C35~""Lymph Nodes...................:"";C3~31;C35~""SEER Summary Stage 2000.......:"";C3~35;C35~"
^DIPT(1431,"F",19)="""Site of Distant Metastasis #1.:"";C3~34;C35~""Site of Distant Metastasis #2.:"";C3~34.1;C35~""Site of Distant Metastasis #3.:"";C3~34.2;C35~"
^DIPT(1431,"F",20)="""Physician's Stage.............:"";C3~65;C35~""Physician Staging.............:"";C3~66;C35~""* FIRST COURSE OF TREATMENT *"";S1~"
^DIPT(1431,"F",21)="""Surgery of Primary............:"";C3;S1~50;C35~58.6;C46;L34~""Radiation.....................:"";C3~51;C35~51.2;C46~""Chemotherapy..................:"";C3~"
^DIPT(1431,"F",22)="53;C35~53.2;C46;L34~""Hormone Therapy...............:"";C3~54;C35~54.2;C46;L34~""Immunotherapy.................:"";C3~55;C35~55.2;C46;L34~"
^DIPT(1431,"F",23)="""Hema Trans/Endocrine Proc.....:"";C3~153.1;C35~153;C46;L34~S X=X;Z;""S X=X""~""Other Treatment...............:"";C3~57;C35~57.2;C46;L34~""* TEXT *"";S1~"
^DIPT(1431,"F",24)="""Text-Remarks:"";C3;S1~113,.01;C3~""Text-DX Proc-PE:"";C3;S1~104,.01;C3~""Text-DX Proc-X-ray/Scan:"";C3;S1~105,.01;C3~""Text-DX Proc-Scopes:"";C3;S1~"
^DIPT(1431,"F",25)="106,.01;C3~""Text-DX Proc-Lab Tests:"";C3;S1~116,.01;C3~""Text-DX Proc-Op:"";C3;S1~103,.01;C3~""Text-DX Proc-Path:"";C3;S1~107,.01;C3~""* FOLLOW-UP *"";S1~"
^DIPT(1431,"F",26)="S FUQA=""QA"";Z;""S FUQA=""QA""""~150~""* RECURRENCES *"";S1~""Type of First Recurrence......:"";C3;S1~70;C35~71;C46;L34~""Distant Site 1................:"";C3~"
^DIPT(1431,"F",27)="71.1;C35~""Distant Site 2................:"";C3~71.2;C35~""Distant Site 3................:"";C3~71.3;C35~""* SUBSEQUENT COURSE OF TREATMENT *"";S1~"
^DIPT(1431,"F",28)="60,""Initiation Date...............:"";C3;S1~60,.01;C35~60,""Place.........................:"";C3~"
^DIPT(1431,"F",29)="60,X DXS(7,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PLACE)""~"
^DIPT(1431,"F",30)="60,""Surgery of Primary Site.......:"";C3~60,.041;C35~60,.04;C46;L34~60,""Radiation.....................:"";C3~60,.051;C35~60,.05;C46;L34~"
^DIPT(1431,"F",31)="60,""Chemotherapy..................:"";C3~60,.061;C35~60,.06;C46;L34~60,""Hormone Therapy...............:"";C3~60,.071;C35~60,.07;C46;L34~"
^DIPT(1431,"F",32)="60,""Immunotherapy.................:"";C3~60,.081;C35~60,.08;C46;L34~60,""Hema Trans/Endocrine Proc.....:"";C3~60,.021;C35~60,.02;C46;L34;X~"
^DIPT(1431,"F",33)="60,S X=X;Z;""S X=X""~60,""Other Treatment...............:"";C3~60,.091;C35~60,.09;C46;L34~"
^DIPT(1431,"H")="@"
^DIPT(1431,"SUB")="1"
^DIPT(1432,0)="ONCQA1^3060526.0928^@^165.5^^@^3061101"
^DIPT(1432,"DXS")="8"
^DIPT(1432,"DXS",1,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$P($G(^VA(200,+$P(DIP(1),U,3),0)),U)"
^DIPT(1432,"DXS",2,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.5,.03,"""",$P(DIP(1),U,3))"
^DIPT(1432,"DXS",3,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X ""N I,Y ""_$P(^DD(160,2,0),U,5,99) S DIP(101)=X"
^DIPT(1432,"DXS",4,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U)"
^DIPT(1432,"DXS",5,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"""") S X=$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U)"
^DIPT(1432,"DXS",6,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ONCO(164.43,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164.43,D0,0)):^(0),1:"""")"
^DIPT(1432,"DXS",7,9.2)="S DIP(1)=$S($D(^ONCO(165.5,D0,4,D1,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(165.51,2,"""",$P(DIP(1),U,3))"
^DIPT(1432,"F",1)="""CANCER REGISTRY QA ABSTRACT"";C3;S1~"
^DIPT(1432,"F",2)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,""."",1) S Y=X D DT K DIP;C65;L12;d;Z;""DATE(NOW)""~"
^DIPT(1432,"F",3)="""Abstracted by.................:"";C3;S1~"
^DIPT(1432,"F",4)="X DXS(1,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(ABSTRACTED BY)""~"
^DIPT(1432,"F",5)="""Reporting Hospital............:"";C3~"
^DIPT(1432,"F",6)="X DXS(2,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;L45;Z;""LOWERCASE(#.03)""~"
^DIPT(1432,"F",7)="""Date Case Completed...........:"";C3~90;C35~""Patient Name..................:"";C3~.02;C35~""SSN...........................:"";C3~"
^DIPT(1432,"F",8)="X DXS(3,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C35;Z;"".02:2""~""* CANCER IDENTIFICATION *"";S1~""Class of Case.................:"";C3;S1~.04;C35~"
^DIPT(1432,"F",9)="""Primary Site..................:"";C3~"
^DIPT(1432,"F",10)="X DXS(4,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PRIMARY SITE)""~"
^DIPT(1432,"F",11)="""Laterality....................:"";C3~28;C35;X~""Date Dx.......................:"";C3~3;C35;L10~""Histology (ICD-O-3)...........:"";C3~"
^DIPT(1432,"F",12)="X DXS(5,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(HISTOLOGY (ICD-O-3))""~"
^DIPT(1432,"F",13)="""Grade/Diff/Cell Type..........:"";C3~24;C35~X DXS(6,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C35;Z;""GRADE:EXPLANATION""~"
^DIPT(1432,"F",14)="""Diagnostic Confirmation.......:"";C3~26;C35~""* STAGE OF DISEASE AT DIAGNOSIS *"";S1~""Clinical TNM..................: "";C3;S1~37;C35~"
^DIPT(1432,"F",15)="""Clinical Stage Group..........:"";C3~38;C35~""Staged By (Clinical)..........:"";C3~19;C35~""Pathologic TNM................:"";C3~89.1;C35~"
^DIPT(1432,"F",16)="""Pathologic Stage Group........:"";C3~88;C35;L14~""Staged By (Pathologic)........:"";C3~89;C35~""Tumor Size....................:"";C3;S1~29;C35~"
^DIPT(1432,"F",17)="""Extension.....................:"";C3~30;C35;L45~""Regional Lymph Nodes Examined.:"";C3~33;C35~""Regional Lymph Nodes Positive.:"";C3~32;C35~"
^DIPT(1432,"F",18)="""Lymph Nodes...................:"";C3~31;C35~""SEER Summary Stage 2000.......:"";C3~35;C35~""Site of Distant Metastasis #1.:"";C3~34;C35~"
^DIPT(1432,"F",19)="""Site of Distant Metastasis #2.:"";C3~34.1;C35~""Site of Distant Metastasis #3.:"";C3~34.2;C35~""Physician's Stage.............:"";C3~65;C35~"
^DIPT(1432,"F",20)="""Physician Staging.............:"";C3~66;C35~""* FIRST COURSE OF TREATMENT *"";S1~""Surgery of Primary............:"";C3;S1~50;C35~58.6;C46;L34~"
^DIPT(1432,"F",21)="""Radiation.....................:"";C3~51;C35~51.2;C46~""Chemotherapy..................:"";C3~53;C35~53.2;C46;L34~""Hormone Therapy...............:"";C3~"
^DIPT(1432,"F",22)="54;C35~54.2;C46;L34~""Immunotherapy.................:"";C3~55;C35~55.2;C46;L34~""Hema Trans/Endocrine Proc.....:"";C3~153.1;C35~153;C46;L34~"
^DIPT(1432,"F",23)="S X=X;Z;""S X=X""~""Other Treatment...............:"";C3~57;C35~57.2;C46;L34~""* TEXT *"";S1~""Text-Remarks:"";C3;S1~113,.01;C3~""Text-DX Proc-PE:"";C3;S1~"
^DIPT(1432,"F",24)="104,.01;C3~""Text-DX Proc-X-ray/Scan:"";C3;S1~105,.01;C3~""Text-DX Proc-Scopes:"";C3;S1~106,.01;C3~""Text-DX Proc-Lab Tests:"";C3;S1~116,.01;C3~"
^DIPT(1432,"F",25)="""Text-DX Proc-Op:"";C3;S1~103,.01;C3~""Text-DX Proc-Path:"";C3;S1~107,.01;C3~""* FOLLOW-UP *"";S1~S FUQA=""QA"";Z;""S FUQA=""QA""""~150~""* RECURRENCES *"";S1~"
^DIPT(1432,"F",26)="""Type of First Recurrence......:"";C3;S1~70;C35~71;C46;L34~""Distant Site 1................:"";C3~71.1;C35~""Distant Site 2................:"";C3~71.2;C35~"
^DIPT(1432,"F",27)="""Distant Site 3................:"";C3~71.3;C35~""* SUBSEQUENT COURSE OF TREATMENT *"";S1~60,""Initiation Date...............:"";C3;S1~60,.01;C35~"
^DIPT(1432,"F",28)="60,""Place.........................:"";C3~"
^DIPT(1432,"F",29)="60,X DXS(7,9.2) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" W X K DIP;C35;Z;""LOWERCASE(PLACE)""~"
^DIPT(1432,"F",30)="60,""Surgery of Primary Site.......:"";C3~60,.041;C35~60,.04;C46;L34~60,""Radiation.....................:"";C3~60,.051;C35~60,.05;C46;L34~"
^DIPT(1432,"F",31)="60,""Chemotherapy..................:"";C3~60,.061;C35~60,.06;C46;L34~60,""Hormone Therapy...............:"";C3~60,.071;C35~60,.07;C46;L34~"
^DIPT(1432,"F",32)="60,""Immunotherapy.................:"";C3~60,.081;C35~60,.08;C46;L34~60,""Hema Trans/Endocrine Proc.....:"";C3~60,.021;C35~60,.02;C46;L34;X~"
^DIPT(1432,"F",33)="60,S X=X;Z;""S X=X""~60,""Other Treatment...............:"";C3~60,.091;C35~60,.09;C46;L34~"
^DIPT(1432,"H")="@"
^DIPT(1432,"SUB")="1"
^DIPT(1433,0)="XIP STATE/COUNTY EXPORT^3050826.091^@^5^^@^3051101"
^DIPT(1433,"DXS",1,9.2)="S DIP(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),DIP(2)=$G(X) S X=""NAME"""
^DIPT(1433,"DXS",2,9.2)="S DIP(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),DIP(2)=$G(X) S X=""ABB"""
^DIPT(1433,"DXS",3,9.2)="S DIP(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),DIP(2)=$G(X) S X=""SCODE"""
^DIPT(1433,"F",1)="X DXS(1,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#.01),""NAME"")""~"
^DIPT(1433,"F",2)="X DXS(2,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#1),""ABB"")""~"
^DIPT(1433,"F",3)="X DXS(3,9.2) S X1=DIP(2) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM((#2),""SCODE"")""~"
^DIPT(1433,"F",4)="3,S X=""SCODE"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;X;Z;""PARAM(""SCODE"")""~3,""^"";X~"
^DIPT(1433,"F",5)="3,S X=""NAME"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;X;Z;""PARAM(""NAME"")""~3,""^"";X~"
^DIPT(1433,"F",6)="3,S X=""ABB"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") W X K DIP;X;Z;""PARAM(""ABB"")""~3,""^"";X~3,2;X~3,""^"";X~3,.01;X~3,""^"";X~"
^DIPT(1433,"H")="@"
^DIPT(1433,"SUB")="1"
^DIPT(1434,0)="XIP STATE EXPORT^3050830.0904^@^5^^@^3060303"
^DIPT(1434,"F",2)="2;C1;X~""^"";X~.01;X~""^"";X~1;X~"
^DIPT(1434,"H")="@"
^DIPT(1434,"SUB")="1"
^DIPT(1435,0)="MAGJ CPT MATCH PRT^3050706.1612^@^2006.67^^@^3051209"
^DIPT(1435,"%D",0)="^^1^1^3050607^"
^DIPT(1435,"%D",1,0)="Print template for VistaRad CPT Matching CPT code set"
^DIPT(1435,"F",2)=".01~1~3~4,.01~5,.01~"
^DIPT(1435,"H")="VistaRad CPT Matching Logic"
^DIPT(1436,0)="XUSEC ISO ACTIVE USER PRINT^3060619.0529^@^200^^@^3060619"
^DIPT(1436,"DXS",1,9.2)="S X=$S($E($P($G(^VA(200,D0,1)),""^"",9),1,5)[""00000"":1,1:0) S X=X,DIP(1)=$G(X) S X=""ZZ"""
^DIPT(1436,"DXS",2,9.2)="S DIP(101)=$S($D(^VA(20,D0,1)):^(1),1:"""") S X=$P(DIP(101),U,1),DIP(102)=$G(X) S X=""ZZZ"""
^DIPT(1436,"DXS",3,9)="S X="""" N ZX S ZX=0 F S ZX=$O(^VA(200,D0,2,ZX)) Q:'ZX N ZXX S ZXX=+$P(^VA(200,D0,2,ZX,0),U) S:+ZXX>0 X=X_$P($G(^DIC(4,+ZXX,0)),U)_"","""
^DIPT(1436,"F",1)=""
^DIPT(1436,"F",2)="W $P($P($G(^DIC(4,+$P($G(^XTV(8989.3,1,""XUS"")),""^"",17),0)),""^"",1),"" VAM"",1)_"" LEGACY"";Z;""W $P($P($G(^DIC(4,+$P($G(^XTV(8989.3,1,""XUS"")),""^"",17),0)),""^"",1),"" VAM"",1)_"" LEGACY""""~"
^DIPT(1436,"F",3)=""";"";X~"";"";X~""VHA"";X~"";"";X~"
^DIPT(1436,"F",4)="X DXS(1,9.2) S X1=DIP(1) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(XUSEC ISO ARTIFICIAL,""ZZ"")""~"
^DIPT(1436,"F",5)="-20,^VA(20,^^S I(0,0)=D0 S DIP(1)=$S($D(^VA(200,D0,3.1)):^(3.1),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""10.1:""~"
^DIPT(1436,"F",6)="-20,X DXS(2,9.2) S X1=DIP(102) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;Z;""SETPARAM((#1),""ZZZ"")""~"
^DIPT(1436,"F",7)="-20,S X=$S(DIPA(""ZZ"")=0:DIPA(""ZZZ""),1:""*""_DIPA(""ZZZ"")) W X;X;Z;""S X=$S(DIPA(""ZZ"")=0:DIPA(""ZZZ""),1:""*""_DIPA(""ZZZ"")) W X""~-20,"";"";X~-20,2;X~-20,"";"";X~"
^DIPT(1436,"F",8)="-20,3;X~-20,"";"";X~-20,5;X~-20,"";"";X~"";"";X~"
^DIPT(1436,"F",9)="-450,^PRSPC(^^S I(0,0)=D0 S DIP(1)=$S($D(^VA(200,D0,450)):^(450),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PAID EMPLOYEE:""~-450,15.5;X~"";"";X~"";"";X~"
^DIPT(1436,"F",10)=""";"";X~"";"";X~"";"";X~"
^DIPT(1436,"F",11)="X DXS(3,9);Z;""S X="""" N ZX S ZX=0 F S ZX=$O(^VA(200,D0,2,ZX)) Q:'ZX N ZXX S ZXX=+$P(^VA(200,D0,2,ZX,0),U) S:+ZXX>0 X=X_$P($G(^DIC(4,+ZXX,0)),U)_"",""""~"
^DIPT(1436,"F",12)="N Z S Z=$L(X,"","") W $P(X,"","",1,(Z-1));X;Z;""N Z S Z=$L(X,"","") W $P(X,"","",1,(Z-1))""~"";"";X~"";"";X~"
^DIPT(1436,"H")="@@"
^DIPT(1437,0)="MD CONVERSION SUMMARY^3050106.0832^^703.9^^^3050228"
^DIPT(1437,"F",2)="2,.01;C1;""ID"";L20~2,.02;C22;L15;""Status""~2,.1;C39;L40;""Message""~"
^DIPT(1437,"H")="MEDICINE CONVERSION SUMMARY"
^DIPT(1438,0)="MD CONVERSION ERRORS^3030919.1322^@^703.9^^@^3050228"
^DIPT(1438,"F",2)="2,.01~2,.1;C35;W40~"
^DIPT(1438,"H")="CP CONVERSION ERROR LISTING"
^DIPT(1439,0)="MD CONVERSION TOTALS^3030919.1334^@^703.9^^@^3040915"
^DIPT(1439,"DCL","703.92^.04")="+"
^DIPT(1439,"DCL","703.92^.05")="+"
^DIPT(1439,"DNP")="1"
^DIPT(1439,"F",2)="2,.04~2,.05~"
^DIPT(1439,"H")="CP CONVERSION STATISTICS"
^DIPT(1440,0)="PXRM EXTRACT DEFINITION^3071026.0959^@^810.2^^@^3071101"
^DIPT(1440,"F",1)="""Extract Name:"";C1;R30;S1~.01~""Number: "";C60~0;X~""Class:"";C1;R30~100~""Extract Type:"";C1;R30;S1~.02~""Reporting Period"";C1;R30~1~"
^DIPT(1440,"F",2)="""Last Reporting Period:"";C1;R30;S1~2~""Next Reporting Period:"";C1;R30~4~""Last Run Date:"";C1;R30;S1~3~"""";C1;S2~10,""Extract Sequence:"";C2~10,.01;C20;R3~"
^DIPT(1440,"F",3)="10,""-----------------"";C2~10,""Patient List:"";C2~10,.03;C6~10,""Rule Set:"";C2;S1~10,.02;C15;L64~10,""Include deceased patients:"";C2~10,.04;C29~"
^DIPT(1440,"F",4)="10,""Include test patients:"";C2~10,.05;C25~10,D PPLR^PXRMEPM;X;Z;""D PPLR^PXRMEPM""~10,""Extract Reminders and Related Counting Total Rule:"";C11;S1~"
^DIPT(1440,"F",5)="10,10,.01;C10;S1~10,10,""Reminder:"";C15~10,10,1;C25;X~10,10,""Counting Rule:"";C15~10,10,2;C30;L45~10,10,D PPFR^PXRMEPM;X;Z;""D PPFR^PXRMEPM""~10,"""";C1;S1~"
^DIPT(1440,"F",6)="""Edit History"";C1;R13;S2~""------------"";C1;R13~110,""Edit Date:"";C2;S1~110,.01;C13;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C2~110,2,.01;W~"
^DIPT(1440,"F",7)=""""";C1;S1~"
^DIPT(1440,"H")="REMINDER EXTRACT CRITERIA/PARAMETERS LIST"
^DIPT(1441,0)="PXRM EXTRACT COUNTING^3060809.1458^@^810.7^^@^3060809"
^DIPT(1441,"F",1)=""" Name:"";C1;R10;S1~.01~""Number:"";C60~0;X~""Class:"";C1;R10~100~""Description:"";C3;S1~1,.01~""Seq."";C3;S1~""Counting Group"";C10~""Reminder Status"";C60~"
^DIPT(1441,"F",2)=""""";C1;S1~10,.01;C3;L5~10,1;C10;L50~10,2;C60;L20~"
^DIPT(1441,"H")="REMINDER EXTRACT FINDING RULE LIST"
^DIPT(1442,0)="PXRM EXTRACT COUNTING GROUP^3021008.1031^@^810.8^^@^3060809"
^DIPT(1442,"F",1)=""" Name:"";C1;R10;S1~.01~""Number:"";C60~0;X~""Class:"";C1;R10~100~""Count Type:"";C3~2~""Seq. Reminder Term"";C3;S1~"""";C1;S1~10,.01;C3;L3~10,1;C10;L50~"""";C1~"
^DIPT(1442,"H")="FINDING GROUP LIST"
^DIPT(1443,0)="PXRM REMINDER RULE^3041129.146^@^810.4^^@^3060712"
^DIPT(1443,"F",1)=""""";C1~""Name:"";C1;R21~.01;L50~""Number:"";C1;R21~0~""Class:"";C1;R21~100~""Description:"";C1;S1;R21~.02;L60~""Rule Type:"";C1;S1;R21~.03~"
^DIPT(1443,"F",2)="""Reminder Definition:"";C1;S2;R21~9;L50~D LRSTRT^PXRMLRED($P(X,U,4),4);X;Z;""D LRSTRT^PXRMLRED($P(X,U,4),4)""~"
^DIPT(1443,"F",3)="D LREND^PXRMLRED($P(X,U,5),6);X;Z;""D LREND^PXRMLRED($P(X,U,5),6)""~D USET^PXRMLRED;X;Z;""D USET^PXRMLRED""~""Edit History"";C1;R21;S2~""------------"";C1;R21~"
^DIPT(1443,"F",4)="110,""Edit Date:"";C5;S1~110,.01;C16;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C5~110,2,.01;W~"
^DIPT(1443,"H")="REMINDER LIST RULE LIST"
^DIPT(1444,0)="SDWL30DAY^3061010.1114^@^409.3^^@^3061019"
^DIPT(1444,"DXS",1,9)="X DXS(1,9.81) S X=$S(DIP(2):DIP(3),DIP(4):DIP(5),DIP(102):DIP(202),DIP(302):DIP(402),DIP(403):X) S D0=I(0,0)"
^DIPT(1444,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(DIP(1),U,6),0)),U)'="""",DIP(2)=$G(X) S X=$P($G(^SCTM(404.51,+$P(DIP(1),U,6),0)),U)"
^DIPT(1444,"DXS",1,9.3)="X DXS(1,9.2) S DIP(3)=$G(X) S X=$P($G(^SCTM(404.57,+$P(DIP(1),U,7),0)),U)'="""",DIP(4)=$G(X) S X=$P($G(^SCTM(404.57,+$P(DIP(1),U,7),0)),U),DIP(5)=$G(X)"
^DIPT(1444,"DXS",1,9.4)="X DXS(1,9.3) S DIP(6)=$G(X),D0=$P(DIP(1),U,8) S:'D0!'$D(^SDWL(409.31,+D0,0)) D0=-1 S I(100,0)=$G(D0),DIP(101)=$S($D(^SDWL(409.31,D0,0)):^(0),1:"""")"
^DIPT(1444,"DXS",1,9.5)="X DXS(1,9.4) S X=$P($G(^DIC(40.7,+$P(DIP(101),U,1),0)),U)'="""",DIP(102)=$G(X),DIP(103)=$G(X),D0=$P(DIP(1),U,8) S:'D0!'$D(^SDWL(409.31,+D0,0)) D0=-1 S I(200,0)=$G(D0)"
^DIPT(1444,"DXS",1,9.6)="X DXS(1,9.5) S DIP(201)=$S($D(^SDWL(409.31,D0,0)):^(0),1:"""") S X=$P($G(^DIC(40.7,+$P(DIP(201),U,1),0)),U),DIP(202)=$G(X),DIP(203)=$G(X)"
^DIPT(1444,"DXS",1,9.7)="X DXS(1,9.6) S D0=$P(DIP(1),U,9) S:'D0!'$D(^SDWL(409.32,+D0,0)) D0=-1 S I(300,0)=$G(D0),DIP(301)=$S($D(^SDWL(409.32,D0,0)):^(0),1:"""")"
^DIPT(1444,"DXS",1,9.8)="X DXS(1,9.7) S X=$P($G(^SC(+$P(DIP(301),U,1),0)),U)'="""",DIP(302)=$G(X),DIP(303)=$G(X),D0=$P(DIP(1),U,9) S:'D0!'$D(^SDWL(409.32,+D0,0)) D0=-1"
^DIPT(1444,"DXS",1,9.81)="X DXS(1,9.8) S DIP(401)=$S($D(^SDWL(409.32,D0,0)):^(0),1:"""") S X=$P($G(^SC(+$P(DIP(401),U,1),0)),U),DIP(402)=$G(X) S X=1,DIP(403)=$G(X) S X=""ERROR"""
^DIPT(1444,"F",1)=".01;""NAME"";L20~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1444,"F",2)="-2,S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=$G(X) S X=6,DIP(103)=$G(X) S X=9,X=$E(DIP(102),DIP(103),X) W X K DIP;""SSN"";L4;Z;""$E(SOCIAL SECURITY NUMBER,6,9)""~"
^DIPT(1444,"F",3)="22;""DESIRED DT""~1;""ORIG DT""~X DXS(1,9) W X K DIP;""CLINIC/SPECIALTY"";L26;Z;""$S(#5'="""":#5,#6'="""":#6,#7'="""":#7,#8'="""":#8,1:""ERROR"")""~"
^DIPT(1444,"H")="EWL 30 DAY REPORT"
^DIPT(1445,0)="SDWLDNR^3060915.1145^@^409.3^^@^3061003"
^DIPT(1445,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1445,"F",1)=".01;C1;L20;S1~"
^DIPT(1445,"F",2)="X DXS(1,9.2) S DIP(101)=$G(X) S X=$P(DIP(102),U,9),DIP(103)=$G(X) S X=6,DIP(104)=$G(X) S X=9,X=$E(DIP(103),DIP(104),X) S D0=I(0,0) W X K DIP;""SSN"";C23;L4;Z;""PATIENT:$E(SSN,6,9)""~"
^DIPT(1445,"F",3)="1;""ORIG DATE"";;L14;C35~16;""DON'T REMOVE DT"";L25~""NR REASON: "";C1~18;""""~""NR COMMENT: "";C1~18.1;""""~""ENTERING USER: "";C1~17;""""~""STATUS: ""~23;""""~"
^DIPT(1445,"H")="EWL NON-REMOVAL REASON REPORT"
^DIPT(1446,0)="SDWLWTR^3061031.1423^@^409.3^^@^3061031"
^DIPT(1446,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S DIP(102)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIPT(1446,"DXS",2,9)="S DIP(2)=$S($D(^SDWL(409.3,D0,0)):^(0),1:""""),DIP(1)=$S($D(^SDWL(409.3,D0,""DIS"")):^(""DIS""),1:"""") S X=$P(DIP(1),U,1),X1=X,X2=$P(DIP(2),U,2),X="""" D:X2 ^%DTC:X1"
^DIPT(1446,"DXS",3,9)="S DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:""""),DIP(2)=$S($D(^SDWL(409.3,D0,""SDAPT"")):^(""SDAPT""),1:"""") S X=$P(DIP(1),U,2),X1=X,X2=$P(DIP(2),U,1),X="""" D:X2 ^%DTC:X1"
^DIPT(1446,"F",1)=".01;L20~"
^DIPT(1446,"F",2)="X DXS(1,9.2) S DIP(101)=$G(X) S X=$P(DIP(102),U,9),DIP(103)=$G(X) S X=6,DIP(104)=$G(X) S X=9,X=$E(DIP(103),DIP(104),X) S D0=I(0,0) W X K DIP;""SSN"";L4;Z;""PATIENT:$E(SSN,6,9)""~"
^DIPT(1446,"F",3)="1;""ORIG DATE"";L11~13;""SCHED DT APPT"";C45;L11~13.1;""DT APPT MADE"";L11;C65~22;""DESIRED DT APPT"";"""";L11;C80~19;""DISPOSITION DT"";L14;C96~""a. "";C33~"
^DIPT(1446,"F",4)="S DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,23),X1=X,X2=$P(DIP(1),U,2),X="""" D:X2 ^%DTC:X1 W X K DIP;"""";L10;Z;""SCHEDULED DATE OF APPT-ORIGINATING DATE""~"
^DIPT(1446,"F",5)="""b. ""~"
^DIPT(1446,"F",6)="S DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,16),X1=X,X2=$P(DIP(1),U,2),X="""" D:X2 ^%DTC:X1 W X K DIP;"""";L10;Z;""DESIRED DATE OF APPOINTMENT-ORIGINATING DATE""~"
^DIPT(1446,"F",7)="""c. ""~"
^DIPT(1446,"F",8)="S DIP(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,16),X1=X,X2=$P(DIP(1),U,23),X="""" D:X2 ^%DTC:X1 W X K DIP;"""";L10;Z;""DESIRED DATE OF APPOINTMENT-SCHEDULED DATE OF APPT""~"
^DIPT(1446,"F",9)="""d. ""~X DXS(2,9) W X K DIP;"""";L10;Z;""DATE DISPOSITIONED-ORIGINATING DATE""~""e. ""~X DXS(3,9) W X K DIP;"""";L10;Z;""ORIGINATING DATE-DATE APPT. MADE""~"
^DIPT(1446,"H")="EWL WAIT TIME STATISTICS REPORT"
^DIPT(1447,0)="SCMC PENDING UNASSIGN^3080207.1016^@^404.43^^@^3080207"
^DIPT(1447,"DCL","404.43^.01")="!"
^DIPT(1447,"DXS",1,9.2)="S DIP(101)=$S($D(^SCPT(404.42,I(100,0),0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S X=X,DIP(201)=$G(X) S X=""DFN"""
^DIPT(1447,"DXS",2,9)="X ""N I,Y ""_$P(^DD(404.43,.159,0),U,5,99) S DIP(1)=X S X=DIP(1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DIPT(1447,"F",1)=".01;""Patient Name"";L12;C1~-404.42,^SCPT(404.42,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1447,"F",2)="-404.42,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-404.42,-2,.09;L10;C14;""SSN"";~"
^DIPT(1447,"F",3)="-404.42,-2,X DXS(1,9.2) S X1=DIP(201) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(INTERNAL(PATIENT),""DFN"")""~"
^DIPT(1447,"F",4)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1447,"F",5)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1447,"F",6)="-404.57,-404.51,.07;""Institution"";L12;C26~-404.57,-404.51,.01;""PC Team"";L12;C41~-404.57,304;""Provider"";L15;C57~-404.57,.01;""Team Position"";L14;C75~"
^DIPT(1447,"F",7)="X DXS(2,9) W X K DIP;""Date Sched. to Inactivate"";L10;C92;Z;""NUMDATE(SCHEDULED INACTIVATION DATE)""~"
^DIPT(1447,"F",8)="D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")));""Next Appt. Date/Clinic"";C105;L27;Z;""D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")))""~"
^DIPT(1447,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST"
^DIPT(1447,"ROUOLD")="SCMCPT3"
^DIPT(1448,0)="SCMC INCONSISTENT^3040319.1427^@^404.57^^@^3060126"
^DIPT(1448,"DXS",1,9.2)="S DIP(1)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^USR(8930,+$P(DIP(1),U,13),0)),U),DIP(2)=$G(X) S X="""",DIP(3)=$G(X) S X=20"
^DIPT(1448,"F",1)="304~.01;L15~.03;L25~"
^DIPT(1448,"F",2)="W $E($P($$GET^XUA4A72(+$$GETPRTP^SCAPMCU2(D0,DT)),U,2),1,17);""PERSON CLASS"";L17;Z;""W $E($P($$GET^XUA4A72(+$$GETPRTP^SCAPMCU2(D0,DT)),U,2),1,17)""~"
^DIPT(1448,"F",3)="X DXS(1,9.2) S X=$J(DIP(3),X) S Y=X,X=DIP(2),X=X_Y W X K DIP;""USER CLASS"";L15;Z;""USER CLASS_$J("""",20)""~"
^DIPT(1448,"F",4)="W $G(^UTILITY(""SCMCTSK"",$J,D0));X;""INCONSISTENCY ERROR"";Z;""W $G(^UTILITY(""SCMCTSK"",$J,D0))""~"
^DIPT(1448,"H")="STAFF-POSITION INCONSISTENCY REPORT"
^DIPT(1448,"IOM")="132"
^DIPT(1448,"LAST")=""
^DIPT(1448,"ROU")="^SCMCPT2"
^DIPT(1448,"ROUOLD")="SCMCPT2"
^DIPT(1449,0)="SCMC EXTENDED^3080207.1019^@^404.43^^@^3080207"
^DIPT(1449,"DCL","404.43^.01")="!"
^DIPT(1449,"DXS",1,9)="X ""N I,Y ""_$P(^DD(404.43,.159,0),U,5,99) S DIP(1)=X S X=DIP(1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DIPT(1449,"DXS",2,9.2)="S DIP(2)=$C(59)_$P($G(^DD(404.43,.13,0)),U,3),DIP(5)=$C(59)_$P($G(^DD(404.43,.13,0)),U,3),DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""")"
^DIPT(1449,"DXS",2,9.3)="X DXS(2,9.2) S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59)),DIP(3)=$G(X),DIP(4)=$G(X) S X=$P($P(DIP(5),$C(59)_$P(DIP(1),U,13)_"":"",2),$C(59))=""OTHER"""
^DIPT(1449,"DXS",2,9.4)="X DXS(2,9.3) S DIP(6)=$G(X) S X="" ["",DIP(7)=$G(X) S X=$P(DIP(1),U,14),Y=X,X=DIP(7),X=X_Y_""]"",DIP(8)=$G(X) S X=1,DIP(9)=$G(X) S X="""""
^DIPT(1449,"F",1)=".01;""Patient"";L10;C1~-404.42,^SCPT(404.42,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1449,"F",2)="-404.42,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-404.42,-2,.09;""SSN"";L10;C12~"
^DIPT(1449,"F",3)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1449,"F",4)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1449,"F",5)="-404.57,-404.51,.07;""Institution"";L14;C24~-404.57,-404.51,.01;""PC Team"";L15;C41~-404.57,304;""Provider/ Position"";L15;C60~"
^DIPT(1449,"F",6)="-404.57,306;""Preceptor/ Position"";L15;C78~X DXS(1,9) W X K DIP;""Date Sched. for Inactivation/ Reason"";L8;C96;Z;""NUMDATE(SCHEDULED INACTIVATION DATE)""~"
^DIPT(1449,"F",7)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-404.57,.01;"""";C60;L14~"
^DIPT(1449,"F",8)="-404.57,305;"""";C78;L14~"
^DIPT(1449,"F",9)="X DXS(2,9.4) S X=$S(DIP(6):DIP(8),DIP(9):X) S Y=X,X=DIP(3),X=X_Y W X K DIP;"""";C96;L36;Z;""(#.13)_$S((#.13)=""OTHER"":"" [""_(#.14)_""]"",1:"""")""~"
^DIPT(1449,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST"
^DIPT(1450,0)="SC PROVIDER FLAGGED^3040430.1315^@^404.52^^@^3050824"
^DIPT(1450,"DCL","404.44^0")="#"
^DIPT(1450,"DCL","404.51^201")="&"
^DIPT(1450,"DCL","404.52^.01")="!"
^DIPT(1450,"DXS",1,9.2)="F D=0:0 S (D,D1)=$O(^VA(200,D0,""USC1"",""B"",DICOB,D)) Q:D'>0 I $D(^VA(200,D0,""USC1"",D,0))#2 S X=$P(^(0),U) S:$D(^USC(8932.1,+X,0)) X=$P(^(0),U) S Y=X S:Y'?."" "" DIP(101)=Y Q:'$D(D) S D=D1"
^DIPT(1450,"DXS",1,9.3)="S I(201)=""""""USC1"""""",J(201)=200.05 N DICOB S DICOB="""" F S DICOB=$O(^VA(200,D0,""USC1"",""B"",DICOB)) Q:DICOB="""" X DXS(1,9.2) Q:'$D(D)"
^DIPT(1450,"DXS",1,9.4)="N Y S I(100,0)=$G(D0) S I(201,0)=$G(D1) X DXS(1,9.3):D0>0 S X="""" S D1=I(201,0)"
^DIPT(1450,"DXS",1,9.5)="F D=0:0 S (D,D1)=$O(^VA(200,D0,""USC1"",""B"",DICOB,D)) Q:D'>0 I $D(^VA(200,D0,""USC1"",D,0))#2 S X=$P(^(0),U) S:$D(^USC(8932.1,+X,0)) X=$P(^(0),U) X DXS(1,9.4) Q:'$D(D) S D=D1"
^DIPT(1450,"DXS",1,9.6)="S I(101)=""""""USC1"""""",J(101)=200.05 N DICOB S DICOB="""" F S DICOB=$O(^VA(200,D0,""USC1"",""B"",DICOB)) Q:DICOB="""" X DXS(1,9.5) Q:'$D(D)"
^DIPT(1450,"DXS",1,9.7)="S I(101,0)=$G(D1) X DXS(1,9.6):D0>0 S X="""" S D1=I(101,0)"
^DIPT(1450,"DXS",2,9)="S I(0,0)=$G(D0) S X=""`1"" K DIC S DIC=""^SCTM(404.44,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y S DIP(101)=$S($D(^SCTM(404.44,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1) S D0=I(0,0)"
^DIPT(1450,"DXS",3,9)="S DIP(101)=$S($D(^SCTM(404.44,D0,1)):^(1),1:"""") S X=$P(DIP(101),U,9) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DIPT(1450,"F",1)=".03;""Name"";C1;L20~.01;""Team Position"";L15;C22~"
^DIPT(1450,"F",2)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEAM POSITION:""~"
^DIPT(1450,"F",3)="-404.57,5,.01;""Assoc. Clinic(s)"";L15;C39~-404.57,.03;""Role"";L15;C56~"
^DIPT(1450,"F",4)="-200,^VA(200,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""pr:""~"
^DIPT(1450,"F",5)="-200,S DIP(101)="""" X DXS(1,9.7) S X=DIP(101) W X K DIP;""Person Class"";L15;C73;Z;""LAST(PERSON CLASS:PERSON CLASS)""~"
^DIPT(1450,"F",6)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""team:""~"
^DIPT(1450,"F",7)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;""team:""~"
^DIPT(1450,"F",8)="-404.57,-404.51,201;""# Of Pts."";L4;C90;~-404.44,^SCTM(404.44,^^X DXS(2,9);Z;""""`1"":PCMM PARAMETER:""~"
^DIPT(1450,"F",9)="-404.44,X DXS(3,9);""Sched. Inact. Date"";L8;C96;Z;""NUMDATE(PC STAFF AUTO INACTIVATE DATE)"";#~"
^DIPT(1450,"F",10)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEAM POSITION:""~"
^DIPT(1450,"F",11)="-404.57,402;""Inconsistency Reason"";L26;C106~"
^DIPT(1450,"H")="Primary Care Staff Scheduled for Inactivation"
^DIPT(1450,"ROUOLD")="SCMCPT4"
^DIPT(1451,0)="SCMC INACTIVATED^3080207.1021^@^404.43^^@^3080207"
^DIPT(1451,"DCL","404.42^.01")="!"
^DIPT(1451,"DXS",1,9)="X DXS(1,9.3) S X=$P($P(DIP(8),$C(59)_$P(DIP(1),U,12)_"":"",2),$C(59)),X=$S(DIP(2):DIP(3),DIP(5):DIP(6),DIP(7):X)"
^DIPT(1451,"DXS",1,9.2)="S DIP(8)=$C(59)_$P($G(^DD(404.43,.12,0)),U,3),DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,12),X=X S X=X=""NA"",DIP(2)=$G(X) S X=""NO APPT"""
^DIPT(1451,"DXS",1,9.3)="X DXS(1,9.2) S DIP(3)=$G(X),DIP(4)=$G(X) S X=$P(DIP(1),U,12),X=X S X=X=""DU"",DIP(5)=$G(X) S X=""DEATH"",DIP(6)=$G(X) S X=1,DIP(7)=$G(X)"
^DIPT(1451,"F",1)="-404.42,^SCPT(404.42,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~-404.42,.01;L12;C1;""Patient Name""~"
^DIPT(1451,"F",2)="-404.42,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-404.42,-2,.09;""SSN"";L10;C14~"
^DIPT(1451,"F",3)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1451,"F",4)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1451,"F",5)="-404.57,-404.51,.07;""Institution"";L12;C26~-404.57,-404.51,.01;""PC Team"";L15;C42~"
^DIPT(1451,"F",6)="-404.57,5,X ""N I,Y ""_$P(^DD(404.57,304,0),U,5,99) S DIP(101)=X S X=DIP(101) W X K DIP;L15;C60;""Provider/Team Position"";Z;""CURRENT PRACTITIONER""~"
^DIPT(1451,"F",7)="-404.57,5,X ""N I,Y ""_$P(^DD(404.57,306,0),U,5,99) S DIP(101)=X S X=DIP(101) W X K DIP;L15;C78;""Preceptor/Team Position"";Z;""CURRENT PRECEPTOR""~"
^DIPT(1451,"F",8)="S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""Date PT Inactivated"";l8;Z;""NUMDATE(POSITION UNASSIGNED DATE)""~"
^DIPT(1451,"F",9)="X DXS(1,9) W X K DIP;""Reason Patient Inactivated"";Z;""$S(INTERNAL(STATUS)=""NA"":""NO APPT"",INTERNAL(STATUS)=""DU"":""DEATH"",1:STATUS)""~"
^DIPT(1451,"F",10)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-404.57,.01;"""";C60;L14~"
^DIPT(1451,"F",11)="-404.57,305;"""";C78;L14~"
^DIPT(1451,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST"
^DIPT(1451,"ROUOLD")="SCMCPT5"
^DIPT(1452,0)="SCMC DIRECT PC FTEE 1 CLN^3040329.1354^@^404.52^^@^3040719"
^DIPT(1452,"DCL","404.52^.09")="&"
^DIPT(1452,"DCL","404.52^.097")="&"
^DIPT(1452,"DCL","404.52^.099")="&"
^DIPT(1452,"DCL","404.52^0")="&"
^DIPT(1452,"DXS",1,9.2)="S I(100,0)=$G(D0),I(101,0)=$G(D1) S X=""NUM"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X"
^DIPT(1452,"DXS",1,9.3)="X DXS(1,9.2) K DIC S Y=-1,DIC=""^SCTM(404.57,D0,5,"",DIC(0)=""MF"" D ^DIC:D0>0 S (D,D1)=+Y S DIP(202)=$S($D(^SCTM(404.57,D0,5,D1,0)):^(0),1:"""")"
^DIPT(1452,"DXS",2,9)="X DXS(2,9.2) S Y=X,X=DIP(3),X=X_Y_"")"",DIP(5)=$G(X) S X=1,DIP(6)=$G(X),DIP(7)=$G(X) S X=DIP(1),X=$S(DIP(2):DIP(5),DIP(6):X)"
^DIPT(1452,"DXS",2,9.2)="X ""N I,Y ""_$P(^DD(404.52,.096,0),U,5,99) S DIP(1)=X S X=DIP(1)<0,DIP(2)=$G(X) S X=""("",DIP(3)=$G(X),DIP(4)=$G(X) S X=DIP(1),Y=X,X=DIP(4),X=X-Y"
^DIPT(1452,"F",1)=".03;L15;""Provider's Name""~-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEA:""~"
^DIPT(1452,"F",2)="-404.57,.02;""PC Team"";L17~-404.57,.01;""Provider's Team Position"""";L17~-404.57,W $$PCP^SCMCTSK6(D0);L3;""AP or PCP"";Z;""W $$PCP^SCMCTSK6(D0)""~"
^DIPT(1452,"F",3)="-404.57,D CLN^SCMCTSK6(D0);X;Z;""D CLN^SCMCTSK6(D0)""~"
^DIPT(1452,"F",4)="-404.57,X DXS(1,9.3) S X=$P($G(^SC(+$P(DIP(202),U,1),0)),U) S D0=I(100,0) S D1=I(101,0) W X K DIP;L15;""Associated Clinic"";Z;""PARAM(""NUM""):ASSOCIATED CLINICS:ASSOCIATED CLINICS""~"
^DIPT(1452,"F",5)=".09;""Direct PC FTEE"";R4~X ""N I,Y ""_$P(^DD(404.52,.098,0),U,5,99) S DIP(1)=X S X=DIP(1);L4;""Patients for Position Actual/ Active"";;Z;""(#.098)"";&~"
^DIPT(1452,"F",6)=".097;L4;""Patients for Position Allowed/ Maximum"";& Replace (#.098);L4;""Patients for Position Actual/ Active"";~"
^DIPT(1452,"F",7)="X DXS(2,9);L5;""Available Patient Openings"";;Z;""$S((#.096)<0:""(""_(-(#.096))_"")"",1:(#.096))"";&~.099;""Adjusted Panel Size (# Active pts/FTEE""~"
^DIPT(1452,"H")="Direct PC FTEE and Panel Size Report"
^DIPT(1452,"IOM")="132"
^DIPT(1452,"LAST")=""
^DIPT(1452,"ROU")="^SCMCPT6"
^DIPT(1452,"ROUOLD")="SCMCPT6"
^DIPT(1452,"STATS","S",1)="0"
^DIPT(1452,"STATS","S",2)="0"
^DIPT(1452,"STATS","S",3)="0"
^DIPT(1452,"STATS","S",4)="0"
^DIPT(1452,"STATS","S",5)="0"
^DIPT(1452,"STATS","S",6)="0"
^DIPT(1452,"T",77)="4^1^1^NJ4,2X^,2"
^DIPT(1452,"T",85)="4^2^0^C^"
^DIPT(1452,"T",95)="4^3^0^CJ5,0^"
^DIPT(1452,"T",105)="5^4^0^C^"
^DIPT(1452,"T",116)="6^5^1^CJ5,0^,0^S X=S(6),Y(1)=$G(X) S X=S(1),Y=X,X=Y(1),X=X,X=$S(Y:X/Y,1:""*******""),Y(2)=$G(X) S X=0,Y(3)=$G(X) S X=0,X=$J(Y(2),Y(3),X) S Y=X"
^DIPT(1453,0)="SC INACTIVATED^3050922.1017^@^404.52^^@^3050922"
^DIPT(1453,"DCL","404.51^201")="&"
^DIPT(1453,"DCL","404.52^.01")="!"
^DIPT(1453,"DXS",1,9.2)="F D=0:0 S (D,D1)=$O(^VA(200,D0,""USC1"",""B"",DICOB,D)) Q:D'>0 I $D(^VA(200,D0,""USC1"",D,0))#2 S X=$P(^(0),U) S:$D(^USC(8932.1,+X,0)) X=$P(^(0),U) S Y=X S:Y'?."" "" DIP(101)=Y Q:'$D(D) S D=D1"
^DIPT(1453,"DXS",1,9.3)="S I(201)=""""""USC1"""""",J(201)=200.05 N DICOB S DICOB="""" F S DICOB=$O(^VA(200,D0,""USC1"",""B"",DICOB)) Q:DICOB="""" X DXS(1,9.2) Q:'$D(D)"
^DIPT(1453,"DXS",1,9.4)="N Y S I(100,0)=$G(D0) S I(201,0)=$G(D1) X DXS(1,9.3):D0>0 S X="""" S D1=I(201,0)"
^DIPT(1453,"DXS",1,9.5)="F D=0:0 S (D,D1)=$O(^VA(200,D0,""USC1"",""B"",DICOB,D)) Q:D'>0 I $D(^VA(200,D0,""USC1"",D,0))#2 S X=$P(^(0),U) S:$D(^USC(8932.1,+X,0)) X=$P(^(0),U) X DXS(1,9.4) Q:'$D(D) S D=D1"
^DIPT(1453,"DXS",1,9.6)="S I(101)=""""""USC1"""""",J(101)=200.05 N DICOB S DICOB="""" F S DICOB=$O(^VA(200,D0,""USC1"",""B"",DICOB)) Q:DICOB="""" X DXS(1,9.5) Q:'$D(D)"
^DIPT(1453,"DXS",1,9.7)="S I(101,0)=$G(D1) X DXS(1,9.6):D0>0 S X="""" S D1=I(101,0)"
^DIPT(1453,"F",1)=".03;""Name"";C1;L20~.01;""Team Position"";L15;C22~"
^DIPT(1453,"F",2)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEAM POSITION:""~"
^DIPT(1453,"F",3)="-404.57,5,.01;""Associated Clinic(s)"";L15;C39~-404.57,.03;""Role"";L15;C56~"
^DIPT(1453,"F",4)="-200,^VA(200,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;""PR:""~"
^DIPT(1453,"F",5)="-200,S DIP(101)="""" X DXS(1,9.7) S X=DIP(101) W X K DIP;""Person Class"";L15;C73;Z;""LAST(PERSON CLASS:PERSON CLASS)""~"
^DIPT(1453,"F",6)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEAM POSITION:""~"
^DIPT(1453,"F",7)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;""TEAM:""~"
^DIPT(1453,"F",8)="-404.57,-404.51,201;""# Of Pts."";L4;C90~"
^DIPT(1453,"F",9)="S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""Date Inactivated"";L8;C96;Z;""NUMDATE(EFFECTIVE DATE)""~"
^DIPT(1453,"F",10)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""TEAM POSITION:""~"
^DIPT(1453,"F",11)="-404.57,402;""Inconsistency Reason"";L26;C106~"
^DIPT(1453,"H")="Primary Care Staff Inactivated"
^DIPT(1454,0)="SCMC PENDING UNASSIGN PAT^3080207.1023^@^404.43^^@^3080207"
^DIPT(1454,"DXS",1,9.2)="S DIP(101)=$S($D(^SCPT(404.42,I(100,0),0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S X=X,DIP(201)=$G(X) S X=""DFN"""
^DIPT(1454,"DXS",2,9)="X ""N I,Y ""_$P(^DD(404.43,.159,0),U,5,99) S DIP(1)=X S X=DIP(1) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DIPT(1454,"F",1)=".01;""Patient"";L10;C1~-404.42,^SCPT(404.42,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1454,"F",2)="-404.42,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-404.42,-2,.09;L10;C12;""SSN"";~"
^DIPT(1454,"F",3)="-404.42,-2,X DXS(1,9.2) S X1=DIP(201) S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""" W X K DIP;X;Z;""SETPARAM(INTERNAL(PATIENT),""DFN"")""~"
^DIPT(1454,"F",4)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1454,"F",5)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1454,"F",6)="-404.57,-404.51,.07;""Institution"";L15;C24~-404.57,-404.51,.01;""PC Team"";L12;C41~-404.57,304;""Provider"";L15;C57~-404.57,.01;""Team Position"";L14;C75~"
^DIPT(1454,"F",7)="X DXS(2,9) W X K DIP;""Date Sched. to Inactivate"";L10;C92;Z;""NUMDATE(SCHEDULED INACTIVATION DATE)""~"
^DIPT(1454,"F",8)="D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")));""Next Appt. Date/Clinic"";C105;L27;Z;""D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")))""~"
^DIPT(1454,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST"
^DIPT(1455,0)="SC BULLETIN^3060502.1107^@^404.43^^@^3060502"
^DIPT(1455,"F",2)="S CNT=$G(CNT)+1;X;Z;""S CNT=$G(CNT)+1""~S ^TMP(""SCMC"",$J,CNT,D0)=0;X;Z;""S ^TMP(""SCMC"",$J,CNT,D0)=0""~"
^DIPT(1455,"H")="@@"
^DIPT(1456,0)="SCMC TOBE INACTIVATED^3051219.1045^@^404.43^^@^3051219"
^DIPT(1456,"F",1)="-404.42,^SCPT(404.42,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1456,"F",2)="-404.42,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~-404.42,-2,.01~-404.42,-2,.09~"
^DIPT(1456,"F",3)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~"
^DIPT(1456,"F",4)="-404.57,-404.51,^SCTM(404.51,^^S I(100,0)=D0 S DIP(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,2),X=X S D(0)=+X;Z;"".02:""~-404.57,-404.51,.07~"
^DIPT(1456,"F",5)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-404.57,.02~"
^DIPT(1456,"F",6)="-404.57,^SCTM(404.57,^^S I(0,0)=D0 S DIP(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"".02:""~-404.57,.01~.159~"
^DIPT(1456,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST"
^DIPT(1457,0)="SUSPENSE OIF/OEF VETS^3070328.1704^@^668^^@^3070703"
^DIPT(1457,"F",1)=".01~14~1~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""VETERAN:""~"
^DIPT(1457,"F",2)="-2,S DIP(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(101),U,9),DIP(102)=$G(X) S X=6,DIP(103)=$G(X) S X=9,X=$E(DIP(102),DIP(103),X) W X K DIP;""SSN"";Z;""$E(SSN,6,9)""~"
^DIPT(1457,"H")="PROSTHETIC SUSPENSE LIST"
^DIPT(1458,0)="RMPR OIF/OEF PSAS VETS^3070426.1044^@^660^^@^3070426"
^DIPT(1458,"F",1)=".01~.02;L12;""PATIENT""~-665,^RMPR(665,^^S I(0,0)=D0 S DIP(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;""PATIENT NAME:""~"
^DIPT(1458,"F",2)="-665,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"".01:""~"
^DIPT(1458,"F",3)="-665,-2,S DIP(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(DIP(201),U,9),DIP(202)=$G(X) S X=6,DIP(203)=$G(X) S X=9,X=$E(DIP(202),DIP(203),X) W X K DIP;""SSN"";Z;""$E(SSN,6,9)""~"
^DIPT(1458,"F",4)="-665,-2,S DIP(1)=$S($D(^RMPR(660,I(0,0),""HST"")):^(""HST""),1:"""") S X=$P(DIP(1),U,1) W X K DIP;L12;""ITEM"";Z;""HISTORICAL ITEM""~"
^DIPT(1458,"F",5)="-665,-2,S DIP(1)=$S($D(^RMPR(660,I(0,0),0)):^(0),1:"""") S X=$P(DIP(1),U,16) W X K DIP;Z;""TOTAL COST""~"
^DIPT(1458,"H")="OIF/OEF PSAS VETS"
^DIPT(1459,0)="PATCH 486 PRINT TEMPLATE^3070810.1223^@^409.39^^@^3070810"
^DIPT(1459,"F",1)="0;C1:L6;"" # ""~.01;C8;L17~8;C27;L13;""EWL ORIG DT""~4;C42;L5;""CUR EWL STAT""~1;C49;L5;""TX FAC CAL""~2;C56;L5;""ENR API CAL""~3;C64;L5;""VSSC CAL""~"
^DIPT(1459,"F",2)="8.1;C73;L6;""NEW EWL STATUS""~"
^DIPT(1459,"H")="(S/C) EWL Enrolle Status Clean-up Report"
^DIPT(1460,0)="XQAL NO BKUP REVIEWER^3070809.145^@^200^^@^3070814"
^DIPT(1460,"%D",0)="^.4001^2^2^3070814^^"
^DIPT(1460,"%D",1,0)="This report will generate a list of active users/providers that hold"
^DIPT(1460,"%D",2,0)="the ORES key and backup reviewers for ALERTS."
^DIPT(1460,"F",2)=".01;L20~28;C22;L5~20.3;C29;L15~53.5;C46;L15~D BKRV^XUP468(D0);""BACKUP REVIEWER"";Z;""D BKRV^XUP468(D0)""~"
^DIPT(1460,"H")="ORES KEY HOLDERS WITH NO BACKUP REVIEWERS (*Designates inactive user)"
^DIPT(1461,0)="FHSELST2^3070725.1428^@^115.2^^@^3070727"
^DIPT(1461,"F",2)=".01;C1~1;""TYPE"";L4;C32~20;""DEF"";L3;C40~21;L5;C50~99;L10;C60~"
^DIPT(1461,"H")="FOOD PREFERENCES LIST"
^DIPT(1462,0)="PATCH 525 PRINT TEMPLATE^3070810.1223^@^409.39^^@^3070810"
^DIPT(1462,"%D",0)="0"
^DIPT(1462,"F",1)="0;C1:L6;"" # ""~.01;C8;L17~8;C27;L13;""EWL ORIG DT""~4;C42;L5;""CUR EWL STAT""~1;C49;L5;""TX FAC CAL""~2;C56;L5;""ENR API CAL""~3;C64;L5;""VSSC CAL""~"
^DIPT(1462,"F",2)="8.1;C73;L6;""NEW EWL STATUS""~"
^DIPT(1462,"H")="(S/C) EWL Enrollee Status Clean-up Report"
^DIPT(1463,0)="ENIT ASSIGNMENT INQ^3080107.1143^^6916.3^^@^3080128"
^DIPT(1463,"DXS",1,9.2)="S I(0,0)=$G(D0),DIP(1)=$S($D(^ENG(6916.3,D0,0)):^(0),1:""""),D0=$P(DIP(1),U,6) S:'D0!'$D(^ENG(6916.2,+D0,0)) D0=-1 S DIP(101)=$S($D(^ENG(6916.2,D0,0)):^(0),1:"""")"
^DIPT(1463,"F",1)="""EQUIPMENT: ""~.01;L10;X~""OWNER: "";C25~1;X~""STATUS(c): "";C1~20;L9;X~""STATUS DATE(c): "";C25~21;L8;X~""ASSIGNED: "";S1~2;C12;X~""BY: "";C35~3;X~""SIGNED: "";S1~"
^DIPT(1463,"F",2)="4;C12;X~""TEXT VERSION: "";C35~5;L4;X~"" FROM PATCH: ""~X DXS(1,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;X;Z;""HAND RECEIPT TEXT:PATCH""~"
^DIPT(1463,"F",3)="""CERTIFIED: "";C1~5.9;C12;X~""BY: "";C35~6;X~""ENDED: "";S1~7;C12;X~""BY: "";C35~8;X~""PREVIOUS SIGNATURES:"";S1~30,""SIGNED: "";C3~30,.01;X~30,"" CERTIFIED: ""~"
^DIPT(1463,"F",4)="30,2;X~30,"" BY: ""~30,3;X~"
^DIPT(1463,"H")="IT ASSIGNMENT"
^DIPT(1464,0)="MAG REPORT 1^3060713.1702^@^2005^^@^3060713"
^DIPT(1464,"DCL","2005^3")="!"
^DIPT(1464,"DNP")="1"
^DIPT(1464,"F",2)="3;"""";R20~"
^DIPT(1464,"H")="Image Type Count by User"
^DIPT(1465,0)="MAG REPORT 2^3060713.1704^@^2005^^@^3060713"
^DIPT(1465,"DCL","2005^3")="!"
^DIPT(1465,"F",2)="7;L17~3;C20;L8~42;C31;L15~8;C50;L30~"
^DIPT(1465,"H")="Document Count"
^DIPT(1466,0)="MAG REPORT 3^3060713.1705^@^2005^^@^3061128"
^DIPT(1466,"DCL","2005^10")="!"
^DIPT(1466,"F",1)="5;L35;N~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^MAG(2005,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X S D(0)=+X;Z;""PAT:""~-2,.0905;""SSN"";C38;N~10;""DOC"";C45~"
^DIPT(1466,"F",2)="S DIP(1)=$S($D(^MAG(2005,D0,2)):^(2),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;""DATE"";C108;N;L8;Z;""NUMDATE(#7)""~"
^DIPT(1466,"F",3)="8;""SCANNED BY"";C118;N;L15~"
^DIPT(1466,"H")="Package Index Contains 'Note'"
^DIPT(1467,0)="MAG REPORT 4^3061121.0813^@^2005^^@^3061128"
^DIPT(1467,"DCL","2005^42")="!"
^DIPT(1467,"F",1)="5;L35~-2,^DPT(^^S I(0,0)=D0 S DIP(1)=$S($D(^MAG(2005,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,7),X=X S D(0)=+X;Z;""PAT:""~-2,.0905;""SSN"";C38~42;C45~"
^DIPT(1467,"F",2)="S DIP(1)=$S($D(^MAG(2005,D0,2)):^(2),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;N;""Date"";C70;Z;""NUMDATE(#7)""~.06,.01~"
^DIPT(1467,"H")="MEANS TEST"
^DIPT(1468,0)="MAGREADTIME^3060427.1549^@^2006.5849^^@^3060921"
^DIPT(1468,"DXS",1,9)="X DXS(1,9.2) S X1=DIP(2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DIPT(1468,"DXS",1,9.2)="S DIP(1)=$S($D(^MAG(2006.5849,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,18),DIP(2)=$G(X) S X=$P(DIP(1),U,17)"
^DIPT(1468,"F",2)="16~17~X DXS(1,9) W X K DIP;""READING TIME/MIN"";Z;""MINUTES(READING STOP,READING START)""~"
^DIPT(1468,"H")="READING TIME REPORT"
^DIPT(1469,0)="MAGREPAIR^3060922.1045^@^2006.5849^^@^3060922"
^DIPT(1469,"DCL","2006.5849^18")="!"
^DIPT(1469,"F",2)=".01~10~18~"
^DIPT(1469,"H")="TELEREADER READ/UNREAD LIST STATISTICS"
^DIPT(1470,0)="MAGSTATUS^3060427.1547^@^2006.5849^^@^3060921"
^DIPT(1470,"DCL","2006.5849^10")="!"
^DIPT(1470,"DNP")="1"
^DIPT(1470,"F",2)="10~"
^DIPT(1470,"H")="TELEREADER READ/UNREAD LIST STATISTICS"
^DIPT(1471,0)="MAGUSER^3060427.1551^@^2006.5849^^@^3060921"
^DIPT(1471,"DCL","2006.5849^9")="&"
^DIPT(1471,"DNP")="1"
^DIPT(1471,"F",2)="9~"
^DIPT(1471,"H")="READ STUDIES"
^DIPT(1472,0)="MAGD CT PARAMETERS^3060731.1442^@^2006.621^^@^3070403"
^DIPT(1472,"F",2)=".01;""LOCATION"";W6~1,.01;S1;C4~1,1,.01;W40;C7~1,1,1,.01;C10~1,1,1,1;C25~"
^DIPT(1472,"H")="MAG CT PARAMETER LIST"
^DIPT(1473,0)="MAGD CR PARAM LIST^3060731.1525^@^2006.623^^@^3060804"
^DIPT(1473,"F",2)=".01~1,.01~1,1,.01~1,1,1,.01~1,1,1,1~"
^DIPT(1473,"H")="MAG CR PARAMETER LIST"
^DIPT("AF",2,.01,513)=""
^DIPT("AF",2,.02,999)=""
^DIPT("AF",2,.03,242)=""
^DIPT("AF",2,.03,513)=""
^DIPT("AF",2,.05,999)=""
^DIPT("AF",2,.07,999)=""
^DIPT("AF",2,.09,513)=""
^DIPT("AF",2,.09,1115)=""
^DIPT("AF",2,.09,1350)=""
^DIPT("AF",2,.111,513)=""
^DIPT("AF",2,.111,999)=""
^DIPT("AF",2,.112,513)=""
^DIPT("AF",2,.112,999)=""
^DIPT("AF",2,.113,513)=""
^DIPT("AF",2,.113,999)=""
^DIPT("AF",2,.115,999)=""
^DIPT("AF",2,.116,999)=""
^DIPT("AF",2,.131,999)=""
^DIPT("AF",2,.132,999)=""
^DIPT("AF",2,.293,513)=""
^DIPT("AF",2,.31115,999)=""
^DIPT("AF",2,.313,513)=""
^DIPT("AF",2,.314,513)=""
^DIPT("AF",2,.32101,513)=""
^DIPT("AF",2,.322,513)=""
^DIPT("AF",2,.324,513)=""
^DIPT("AF",2,.325,513)=""
^DIPT("AF",2,.326,513)=""
^DIPT("AF",2,.327,513)=""
^DIPT("AF",2,.328,513)=""
^DIPT("AF",2,.329,513)=""
^DIPT("AF",2,.3291,513)=""
^DIPT("AF",2,.3292,513)=""
^DIPT("AF",2,.3293,513)=""
^DIPT("AF",2,.3294,513)=""
^DIPT("AF",2,.3295,513)=""
^DIPT("AF",2,.3296,513)=""
^DIPT("AF",2,.3297,513)=""
^DIPT("AF",2,.3298,513)=""
^DIPT("AF",2,.3299,513)=""
^DIPT("AF",2,.351,513)=""
^DIPT("AF",2,.525,513)=""
^DIPT("AF",2,391,242)=""
^DIPT("AF",3.51,.01,18)=""
^DIPT("AF",3.51,2,18)=""
^DIPT("AF",3.51,4,18)=""
^DIPT("AF",3.51,7,18)=""
^DIPT("AF",3.51,8,18)=""
^DIPT("AF",3.5121,.01,18)=""
^DIPT("AF",3.5121,4,18)=""
^DIPT("AF",40.8,.01,240)=""
^DIPT("AF",45,.001,217)=""
^DIPT("AF",45,2,217)=""
^DIPT("AF",45,4,217)=""
^DIPT("AF",45,6,217)=""
^DIPT("AF",45.86,.01,216)=""
^DIPT("AF",45.86,.02,216)=""
^DIPT("AF",45.86,.03,216)=""
^DIPT("AF",45.86,.04,216)=""
^DIPT("AF",45.86,.05,216)=""
^DIPT("AF",45.86,.06,216)=""
^DIPT("AF",50,.01,492)=""
^DIPT("AF",65.5,.001,108)=""
^DIPT("AF",65.5,.001,112)=""
^DIPT("AF",65.5,.05,108)=""
^DIPT("AF",65.5,.05,112)=""
^DIPT("AF",65.5,.06,108)=""
^DIPT("AF",65.5,.06,112)=""
^DIPT("AF",65.5,.1,108)=""
^DIPT("AF",65.5,.1,112)=""
^DIPT("AF",65.54,.01,108)=""
^DIPT("AF",65.54,.01,112)=""
^DIPT("AF",65.54,4,108)=""
^DIPT("AF",65.54,4,112)=""
^DIPT("AF",65.54,6.1,108)=""
^DIPT("AF",65.54,6.1,112)=""
^DIPT("AF",65.54,10,108)=""
^DIPT("AF",65.54,11,108)=""
^DIPT("AF",65.54,12,108)=""
^DIPT("AF",65.54,13,108)=""
^DIPT("AF",65.54,14,108)=""
^DIPT("AF",65.54,15,108)=""
^DIPT("AF",65.54,16,112)=""
^DIPT("AF",65.54,17,112)=""
^DIPT("AF",65.54,18,108)=""
^DIPT("AF",65.54,19,112)=""
^DIPT("AF",65.54,20,112)=""
^DIPT("AF",80,.01,852)=""
^DIPT("AF",80,3,788)=""
^DIPT("AF",160,.01,826)=""
^DIPT("AF",160,.01,872)=""
^DIPT("AF",160,.01,1340)=""
^DIPT("AF",160,.111,872)=""
^DIPT("AF",160,.116,843)=""
^DIPT("AF",160,.116,874)=""
^DIPT("AF",160,.118,872)=""
^DIPT("AF",160,.119,843)=""
^DIPT("AF",160,.119,874)=""
^DIPT("AF",160,.12,843)=""
^DIPT("AF",160,.12,874)=""
^DIPT("AF",160,.131,843)=""
^DIPT("AF",160,.131,874)=""
^DIPT("AF",160,.214,843)=""
^DIPT("AF",160,.214,874)=""
^DIPT("AF",160,1,843)=""
^DIPT("AF",160,1,874)=""
^DIPT("AF",160,2,826)=""
^DIPT("AF",160,2,828)=""
^DIPT("AF",160,2,842)=""
^DIPT("AF",160,2,843)=""
^DIPT("AF",160,2,874)=""
^DIPT("AF",160,2,1276)=""
^DIPT("AF",160,3,826)=""
^DIPT("AF",160,3,1276)=""
^DIPT("AF",160,5,874)=""
^DIPT("AF",160,6,874)=""
^DIPT("AF",160,7,774)=""
^DIPT("AF",160,7,828)=""
^DIPT("AF",160,8,774)=""
^DIPT("AF",160,8,826)=""
^DIPT("AF",160,8,843)=""
^DIPT("AF",160,8,874)=""
^DIPT("AF",160,8,1276)=""
^DIPT("AF",160,9,774)=""
^DIPT("AF",160,9,843)=""
^DIPT("AF",160,9,874)=""
^DIPT("AF",160,10,774)=""
^DIPT("AF",160,10,826)=""
^DIPT("AF",160,10,843)=""
^DIPT("AF",160,10,874)=""
^DIPT("AF",160,10,1276)=""
^DIPT("AF",160,12,828)=""
^DIPT("AF",160,13,828)=""
^DIPT("AF",160,13,843)=""
^DIPT("AF",160,15,816)=""
^DIPT("AF",160,15,826)=""
^DIPT("AF",160,15,1340)=""
^DIPT("AF",160,15.2,1340)=""
^DIPT("AF",160,16,1340)=""
^DIPT("AF",160,18.9,788)=""
^DIPT("AF",160,18.9,852)=""
^DIPT("AF",160,19,816)=""
^DIPT("AF",160,19,826)=""
^DIPT("AF",160,19.1,816)=""
^DIPT("AF",160,20,788)=""
^DIPT("AF",160,20,816)=""
^DIPT("AF",160,20,852)=""
^DIPT("AF",160,21,788)=""
^DIPT("AF",160,22.9,788)=""
^DIPT("AF",160,22.9,816)=""
^DIPT("AF",160,23,788)=""
^DIPT("AF",160,23,826)=""
^DIPT("AF",160,23,852)=""
^DIPT("AF",160,24,788)=""
^DIPT("AF",160,24,826)=""
^DIPT("AF",160,24,852)=""
^DIPT("AF",160,24.5,788)=""
^DIPT("AF",160,29,788)=""
^DIPT("AF",160,29,852)=""
^DIPT("AF",160,47,828)=""
^DIPT("AF",160,70,852)=""
^DIPT("AF",160,1000.1,872)=""
^DIPT("AF",160,1001.1,872)=""
^DIPT("AF",160,1002.1,872)=""
^DIPT("AF",160.03,.01,793)=""
^DIPT("AF",160.03,.01,807)=""
^DIPT("AF",160.03,1,807)=""
^DIPT("AF",160.031,.01,788)=""
^DIPT("AF",160.19,.01,817)=""
^DIPT("AF",165,.01,793)=""
^DIPT("AF",165,.111,793)=""
^DIPT("AF",165,.112,793)=""
^DIPT("AF",165,.113,793)=""
^DIPT("AF",165,.119,793)=""
^DIPT("AF",165,.131,793)=""
^DIPT("AF",165,.132,793)=""
^DIPT("AF",165,.133,793)=""
^DIPT("AF",165,.134,793)=""
^DIPT("AF",165,3,793)=""
^DIPT("AF",165.5,.01,826)=""
^DIPT("AF",165.5,.01,835)=""
^DIPT("AF",165.5,.02,817)=""
^DIPT("AF",165.5,.02,842)=""
^DIPT("AF",165.5,.02,843)=""
^DIPT("AF",165.5,.02,860)=""
^DIPT("AF",165.5,.02,874)=""
^DIPT("AF",165.5,.03,826)=""
^DIPT("AF",165.5,.03,827)=""
^DIPT("AF",165.5,.04,862)=""
^DIPT("AF",165.5,.05,843)=""
^DIPT("AF",165.5,.05,874)=""
^DIPT("AF",165.5,.06,843)=""
^DIPT("AF",165.5,.06,846)=""
^DIPT("AF",165.5,.06,874)=""
^DIPT("AF",165.5,.061,826)=""
^DIPT("AF",165.5,.061,827)=""
^DIPT("AF",165.5,.061,860)=""
^DIPT("AF",165.5,.07,843)=""
^DIPT("AF",165.5,.07,860)=""
^DIPT("AF",165.5,.07,874)=""
^DIPT("AF",165.5,.12,828)=""
^DIPT("AF",165.5,1.2,827)=""
^DIPT("AF",165.5,2,828)=""
^DIPT("AF",165.5,2.1,828)=""
^DIPT("AF",165.5,2.3,828)=""
^DIPT("AF",165.5,2.4,828)=""
^DIPT("AF",165.5,3,826)=""
^DIPT("AF",165.5,3,828)=""
^DIPT("AF",165.5,3,835)=""
^DIPT("AF",165.5,3,846)=""
^DIPT("AF",165.5,3,862)=""
^DIPT("AF",165.5,3,872)=""
^DIPT("AF",165.5,4,828)=""
^DIPT("AF",165.5,4,843)=""
^DIPT("AF",165.5,4,874)=""
^DIPT("AF",165.5,6,828)=""
^DIPT("AF",165.5,7,828)=""
^DIPT("AF",165.5,8,843)=""
^DIPT("AF",165.5,8,874)=""
^DIPT("AF",165.5,9,860)=""
^DIPT("AF",165.5,9,874)=""
^DIPT("AF",165.5,10,843)=""
^DIPT("AF",165.5,10,874)=""
^DIPT("AF",165.5,11,843)=""
^DIPT("AF",165.5,18,861)=""
^DIPT("AF",165.5,19,847)=""
^DIPT("AF",165.5,19,863)=""
^DIPT("AF",165.5,20,826)=""
^DIPT("AF",165.5,20.1,827)=""
^DIPT("AF",165.5,22.3,826)=""
^DIPT("AF",165.5,24,846)=""
^DIPT("AF",165.5,24,862)=""
^DIPT("AF",165.5,25.1,846)=""
^DIPT("AF",165.5,25.2,846)=""
^DIPT("AF",165.5,26,829)=""
^DIPT("AF",165.5,28,817)=""
^DIPT("AF",165.5,28,828)=""
^DIPT("AF",165.5,29,829)=""
^DIPT("AF",165.5,29,847)=""
^DIPT("AF",165.5,29.1,863)=""
^DIPT("AF",165.5,29.2,863)=""
^DIPT("AF",165.5,30,829)=""
^DIPT("AF",165.5,30.2,863)=""
^DIPT("AF",165.5,30.5,847)=""
^DIPT("AF",165.5,31,829)=""
^DIPT("AF",165.5,31.1,863)=""
^DIPT("AF",165.5,32,829)=""
^DIPT("AF",165.5,32,847)=""
^DIPT("AF",165.5,32,863)=""
^DIPT("AF",165.5,32.1,863)=""
^DIPT("AF",165.5,33,829)=""
^DIPT("AF",165.5,33,847)=""
^DIPT("AF",165.5,33,863)=""
^DIPT("AF",165.5,34,829)=""
^DIPT("AF",165.5,34,847)=""
^DIPT("AF",165.5,34.1,829)=""
^DIPT("AF",165.5,34.1,847)=""
^DIPT("AF",165.5,34.2,829)=""
^DIPT("AF",165.5,34.2,847)=""
^DIPT("AF",165.5,34.3,863)=""
^DIPT("AF",165.5,34.4,863)=""
^DIPT("AF",165.5,35,829)=""
^DIPT("AF",165.5,35,847)=""
^DIPT("AF",165.5,37,829)=""
^DIPT("AF",165.5,37,847)=""
^DIPT("AF",165.5,37,863)=""
^DIPT("AF",165.5,37.1,847)=""
^DIPT("AF",165.5,37.2,847)=""
^DIPT("AF",165.5,37.3,847)=""
^DIPT("AF",165.5,38,829)=""
^DIPT("AF",165.5,38,847)=""
^DIPT("AF",165.5,38,863)=""
^DIPT("AF",165.5,39,847)=""
^DIPT("AF",165.5,41,847)=""
^DIPT("AF",165.5,44.1,863)=""
^DIPT("AF",165.5,44.2,863)=""
^DIPT("AF",165.5,44.3,863)=""
^DIPT("AF",165.5,44.4,863)=""
^DIPT("AF",165.5,44.5,863)=""
^DIPT("AF",165.5,44.6,863)=""
^DIPT("AF",165.5,48,846)=""
^DIPT("AF",165.5,49,812)=""
^DIPT("AF",165.5,50,812)=""
^DIPT("AF",165.5,50,848)=""
^DIPT("AF",165.5,50.3,812)=""
^DIPT("AF",165.5,51,812)=""
^DIPT("AF",165.5,51,848)=""
^DIPT("AF",165.5,51.2,812)=""
^DIPT("AF",165.5,51.2,829)=""
^DIPT("AF",165.5,51.2,848)=""
^DIPT("AF",165.5,51.3,829)=""
^DIPT("AF",165.5,51.4,812)=""
^DIPT("AF",165.5,51.5,812)=""
^DIPT("AF",165.5,52,848)=""
^DIPT("AF",165.5,52.2,848)=""
^DIPT("AF",165.5,53,813)=""
^DIPT("AF",165.5,53,849)=""
^DIPT("AF",165.5,53.2,813)=""
^DIPT("AF",165.5,53.2,829)=""
^DIPT("AF",165.5,53.3,813)=""
^DIPT("AF",165.5,53.4,813)=""
^DIPT("AF",165.5,54,813)=""
^DIPT("AF",165.5,54,849)=""
^DIPT("AF",165.5,54.2,813)=""
^DIPT("AF",165.5,54.2,829)=""
^DIPT("AF",165.5,54.3,813)=""
^DIPT("AF",165.5,54.4,813)=""
^DIPT("AF",165.5,55,813)=""
^DIPT("AF",165.5,55,849)=""
^DIPT("AF",165.5,55.2,813)=""
^DIPT("AF",165.5,55.2,829)=""
^DIPT("AF",165.5,55.2,849)=""
^DIPT("AF",165.5,55.3,813)=""
^DIPT("AF",165.5,55.4,813)=""
^DIPT("AF",165.5,57,813)=""
^DIPT("AF",165.5,57,849)=""
^DIPT("AF",165.5,57.2,813)=""
^DIPT("AF",165.5,57.2,829)=""
^DIPT("AF",165.5,57.3,813)=""
^DIPT("AF",165.5,57.4,813)=""
^DIPT("AF",165.5,58,829)=""
^DIPT("AF",165.5,58.1,829)=""
^DIPT("AF",165.5,58.1,848)=""
^DIPT("AF",165.5,58.3,848)=""
^DIPT("AF",165.5,58.6,812)=""
^DIPT("AF",165.5,58.6,829)=""
^DIPT("AF",165.5,58.7,812)=""
^DIPT("AF",165.5,59,812)=""
^DIPT("AF",165.5,59,829)=""
^DIPT("AF",165.5,59,848)=""
^DIPT("AF",165.5,62,849)=""
^DIPT("AF",165.5,63,849)=""
^DIPT("AF",165.5,64,849)=""
^DIPT("AF",165.5,65,849)=""
^DIPT("AF",165.5,66,849)=""
^DIPT("AF",165.5,67,842)=""
^DIPT("AF",165.5,68,842)=""
^DIPT("AF",165.5,70,814)=""
^DIPT("AF",165.5,70,850)=""
^DIPT("AF",165.5,71,814)=""
^DIPT("AF",165.5,71.1,814)=""
^DIPT("AF",165.5,71.2,814)=""
^DIPT("AF",165.5,71.3,814)=""
^DIPT("AF",165.5,75,829)=""
^DIPT("AF",165.5,76,849)=""
^DIPT("AF",165.5,77,849)=""
^DIPT("AF",165.5,79,846)=""
^DIPT("AF",165.5,83,862)=""
^DIPT("AF",165.5,85,847)=""
^DIPT("AF",165.5,86,847)=""
^DIPT("AF",165.5,87,847)=""
^DIPT("AF",165.5,88,829)=""
^DIPT("AF",165.5,88,847)=""
^DIPT("AF",165.5,88,863)=""
^DIPT("AF",165.5,89,847)=""
^DIPT("AF",165.5,89,863)=""
^DIPT("AF",165.5,89.1,829)=""
^DIPT("AF",165.5,89.1,847)=""
^DIPT("AF",165.5,89.1,863)=""
^DIPT("AF",165.5,90,817)=""
^DIPT("AF",165.5,90,826)=""
^DIPT("AF",165.5,90,839)=""
^DIPT("AF",165.5,90,842)=""
^DIPT("AF",165.5,90,872)=""
^DIPT("AF",165.5,91,826)=""
^DIPT("AF",165.5,91,839)=""
^DIPT("AF",165.5,91,842)=""
^DIPT("AF",165.5,92,839)=""
^DIPT("AF",165.5,95,852)=""
^DIPT("AF",165.5,119,846)=""
^DIPT("AF",165.5,120,846)=""
^DIPT("AF",165.5,120,862)=""
^DIPT("AF",165.5,121,846)=""
^DIPT("AF",165.5,121,862)=""
^DIPT("AF",165.5,122,846)=""
^DIPT("AF",165.5,123,846)=""
^DIPT("AF",165.5,124,812)=""
^DIPT("AF",165.5,133,813)=""
^DIPT("AF",165.5,138.2,812)=""
^DIPT("AF",165.5,138.3,812)=""
^DIPT("AF",165.5,138.4,812)=""
^DIPT("AF",165.5,138.5,812)=""
^DIPT("AF",165.5,139.2,812)=""
^DIPT("AF",165.5,139.3,812)=""
^DIPT("AF",165.5,139.4,812)=""
^DIPT("AF",165.5,139.5,812)=""
^DIPT("AF",165.5,150,816)=""
^DIPT("AF",165.5,150,852)=""
^DIPT("AF",165.5,153,813)=""
^DIPT("AF",165.5,153.1,813)=""
^DIPT("AF",165.5,155,827)=""
^DIPT("AF",165.5,155,835)=""
^DIPT("AF",165.5,155,843)=""
^DIPT("AF",165.5,155,874)=""
^DIPT("AF",165.5,160,863)=""
^DIPT("AF",165.5,161,863)=""
^DIPT("AF",165.5,162,863)=""
^DIPT("AF",165.5,163,863)=""
^DIPT("AF",165.5,164,863)=""
^DIPT("AF",165.5,165,863)=""
^DIPT("AF",165.5,166,863)=""
^DIPT("AF",165.5,167,863)=""
^DIPT("AF",165.5,168,863)=""
^DIPT("AF",165.5,170,812)=""
^DIPT("AF",165.5,170,829)=""
^DIPT("AF",165.5,200,852)=""
^DIPT("AF",165.5,346,813)=""
^DIPT("AF",165.5,346,849)=""
^DIPT("AF",165.5,363,812)=""
^DIPT("AF",165.5,363,848)=""
^DIPT("AF",165.5,442,812)=""
^DIPT("AF",165.5,442,848)=""
^DIPT("AF",165.5,560,813)=""
^DIPT("AF",165.5,560,849)=""
^DIPT("AF",165.51,.01,815)=""
^DIPT("AF",165.51,.01,851)=""
^DIPT("AF",165.51,.02,815)=""
^DIPT("AF",165.51,.021,815)=""
^DIPT("AF",165.51,.03,851)=""
^DIPT("AF",165.51,.031,851)=""
^DIPT("AF",165.51,.04,815)=""
^DIPT("AF",165.51,.04,851)=""
^DIPT("AF",165.51,.041,815)=""
^DIPT("AF",165.51,.041,851)=""
^DIPT("AF",165.51,.05,815)=""
^DIPT("AF",165.51,.05,851)=""
^DIPT("AF",165.51,.051,815)=""
^DIPT("AF",165.51,.051,851)=""
^DIPT("AF",165.51,.06,815)=""
^DIPT("AF",165.51,.06,851)=""
^DIPT("AF",165.51,.061,815)=""
^DIPT("AF",165.51,.061,851)=""
^DIPT("AF",165.51,.07,815)=""
^DIPT("AF",165.51,.07,851)=""
^DIPT("AF",165.51,.071,815)=""
^DIPT("AF",165.51,.071,851)=""
^DIPT("AF",165.51,.08,815)=""
^DIPT("AF",165.51,.08,851)=""
^DIPT("AF",165.51,.081,815)=""
^DIPT("AF",165.51,.081,851)=""
^DIPT("AF",165.51,.09,815)=""
^DIPT("AF",165.51,.09,851)=""
^DIPT("AF",165.51,.091,815)=""
^DIPT("AF",165.51,.091,851)=""
^DIPT("AF",165.51,1,851)=""
^DIPT("AF",165.51,2,851)=""
^DIPT("AF",165.5103,.01,846)=""
^DIPT("AF",165.5104,.01,846)=""
^DIPT("AF",165.5105,.01,846)=""
^DIPT("AF",165.5106,.01,846)=""
^DIPT("AF",165.5107,.01,846)=""
^DIPT("AF",165.5108,.01,848)=""
^DIPT("AF",165.5109,.01,848)=""
^DIPT("AF",165.5111,.01,849)=""
^DIPT("AF",165.5112,.01,849)=""
^DIPT("AF",165.5113,.01,813)=""
^DIPT("AF",165.5113,.01,849)=""
^DIPT("AF",165.5114,.01,849)=""
^DIPT("AF",165.5115,.01,848)=""
^DIPT("AF",165.5115,.01,849)=""
^DIPT("AF",165.5116,.01,846)=""
^DIPT("AF",165.52,3,848)=""
^DIPT("AF",165.52,4,848)=""
^DIPT("AF",165.52,5,848)=""
^DIPT("AF",165.52,6,848)=""
^DIPT("AF",165.52,7,848)=""
^DIPT("AF",165.52,8,848)=""
^DIPT("AF",165.53,.01,848)=""
^DIPT("AF",165.572,.01,814)=""
^DIPT("AF",165.572,.01,850)=""
^DIPT("AF",165.572,.02,814)=""
^DIPT("AF",165.572,.03,814)=""
^DIPT("AF",165.572,.031,814)=""
^DIPT("AF",165.572,.032,814)=""
^DIPT("AF",190,.001,478)=""
^DIPT("AF",190,.001,479)=""
^DIPT("AF",190,.01,479)=""
^DIPT("AF",190,7,482)=""
^DIPT("AF",190,105,478)=""
^DIPT("AF",190,105,479)=""
^DIPT("AF",190,106,479)=""
^DIPT("AF",190,201,479)=""
^DIPT("AF",190.1,.001,478)=""
^DIPT("AF",190.1,.01,478)=""
^DIPT("AF",190.1,4,478)=""
^DIPT("AF",190.1,5,478)=""
^DIPT("AF",190.2,.01,482)=""
^DIPT("AF",190.2,2,482)=""
^DIPT("AF",190.2,3,482)=""
^DIPT("AF",190.2,4,482)=""
^DIPT("AF",190.2,5,482)=""
^DIPT("AF",190.2,6,482)=""
^DIPT("AF",190.2,8,482)=""
^DIPT("AF",190.21,.01,482)=""
^DIPT("AF",190.22,.01,482)=""
^DIPT("AF",190.3,5,482)=""
^DIPT("AF",190.3,6,482)=""
^DIPT("AF",190.3,15,482)=""
^DIPT("AF",195.2,2,478)=""
^DIPT("AF",195.2,2,479)=""
^DIPT("AF",195.2,2,482)=""
^DIPT("AF",195.9,7,478)=""
^DIPT("AF",195.9,7,479)=""
^DIPT("AF",200,29,27)=""
^DIPT("AF",200,101.01,27)=""
^DIPT("AF",200,101.02,27)=""
^DIPT("AF",200.010113,.01,27)=""
^DIPT("AF",200.010113,.02,27)=""
^DIPT("AF",200.010113,.03,27)=""
^DIPT("AF",200.03,2,27)=""
^DIPT("AF",200.032,.001,30)=""
^DIPT("AF",200.032,.01,30)=""
^DIPT("AF",200.032,1,30)=""
^DIPT("AF",200.032,2,30)=""
^DIPT("AF",200.032,3,30)=""
^DIPT("AF",200.032,4,30)=""
^DIPT("AF",200.032,5,30)=""
^DIPT("AF",200.032,6,30)=""
^DIPT("AF",210,.01,574)=""
^DIPT("AF",210,1,574)=""
^DIPT("AF",210,6.5,574)=""
^DIPT("AF",210,6.7,574)=""
^DIPT("AF",210,7,574)=""
^DIPT("AF",210,7.5,574)=""
^DIPT("AF",210,8,574)=""
^DIPT("AF",210,12,574)=""
^DIPT("AF",210,13.3,574)=""
^DIPT("AF",210,13.35,574)=""
^DIPT("AF",210,13.4,574)=""
^DIPT("AF",210,13.5,574)=""
^DIPT("AF",210,13.7,574)=""
^DIPT("AF",210,13.9,574)=""
^DIPT("AF",210,16.5,574)=""
^DIPT("AF",210,17,574)=""
^DIPT("AF",210,18,574)=""
^DIPT("AF",210,19,574)=""
^DIPT("AF",210,19.5,574)=""
^DIPT("AF",210,21.5,574)=""
^DIPT("AF",210,21.7,574)=""
^DIPT("AF",210,23.1,574)=""
^DIPT("AF",210.01,.01,574)=""
^DIPT("AF",210.01,1,574)=""
^DIPT("AF",210.01,2,574)=""
^DIPT("AF",210.02,.01,574)=""
^DIPT("AF",210.02,1,574)=""
^DIPT("AF",210.02,2,574)=""
^DIPT("AF",210.02,4,574)=""
^DIPT("AF",210.02,5,574)=""
^DIPT("AF",210.02,6,574)=""
^DIPT("AF",210.02,7,574)=""
^DIPT("AF",210.024,.05,574)=""
^DIPT("AF",210.024,1,574)=""
^DIPT("AF",210.024,2,574)=""
^DIPT("AF",210.024,3,574)=""
^DIPT("AF",210.03,.01,574)=""
^DIPT("AF",210.03,1,574)=""
^DIPT("AF",210.03,1.6,574)=""
^DIPT("AF",210.03,2,574)=""
^DIPT("AF",210.04,.01,574)=""
^DIPT("AF",210.04,1,574)=""
^DIPT("AF",210.04,2,574)=""
^DIPT("AF",210.04,3,574)=""
^DIPT("AF",210.08,.01,574)=""
^DIPT("AF",210.08,1,574)=""
^DIPT("AF",210.13,.01,574)=""
^DIPT("AF",210.13,1,574)=""
^DIPT("AF",210.13,2.1,574)=""
^DIPT("AF",210.13,2.5,574)=""
^DIPT("AF",210.13,3,574)=""
^DIPT("AF",210.17,.01,574)=""
^DIPT("AF",210.17,1,574)=""
^DIPT("AF",210.18,.01,574)=""
^DIPT("AF",210.18,1,574)=""
^DIPT("AF",210.18,2,574)=""
^DIPT("AF",210.18,3,574)=""
^DIPT("AF",210.18,4,574)=""
^DIPT("AF",210.18,5,574)=""
^DIPT("AF",210.18,6,574)=""
^DIPT("AF",210.19,.01,574)=""
^DIPT("AF",210.19,1,574)=""
^DIPT("AF",213.51,.01,568)=""
^DIPT("AF",213.51,2,568)=""
^DIPT("AF",213.51,3,568)=""
^DIPT("AF",213.51,4,568)=""
^DIPT("AF",347,.03,442)=""
^DIPT("AF",347,.03,443)=""
^DIPT("AF",347,.05,442)=""
^DIPT("AF",347,.05,443)=""
^DIPT("AF",347,.07,442)=""
^DIPT("AF",347,.08,443)=""
^DIPT("AF",350.5,.01,240)=""
^DIPT("AF",350.5,.04,240)=""
^DIPT("AF",350.5,.05,240)=""
^DIPT("AF",350.5,.06,240)=""
^DIPT("AF",350.5,.07,240)=""
^DIPT("AF",350.7,.01,237)=""
^DIPT("AF",350.7,.02,237)=""
^DIPT("AF",350.7,.03,237)=""
^DIPT("AF",350.7,.04,237)=""
^DIPT("AF",350.71,.01,237)=""
^DIPT("AF",350.71,.01,238)=""
^DIPT("AF",350.71,.02,237)=""
^DIPT("AF",350.71,.02,238)=""
^DIPT("AF",350.71,.04,238)=""
^DIPT("AF",350.71,.08,238)=""
^DIPT("AF",351,.01,243)=""
^DIPT("AF",351,.02,242)=""
^DIPT("AF",351,.04,243)=""
^DIPT("AF",351,.05,243)=""
^DIPT("AF",351,.06,243)=""
^DIPT("AF",351,.07,243)=""
^DIPT("AF",351,.08,243)=""
^DIPT("AF",351,.09,243)=""
^DIPT("AF",351,15,243)=""
^DIPT("AF",396,4.5,517)=""
^DIPT("AF",396,4.6,517)=""
^DIPT("AF",396,4.8,517)=""
^DIPT("AF",396,4.9,517)=""
^DIPT("AF",396,5.5,517)=""
^DIPT("AF",396,5.6,517)=""
^DIPT("AF",396,5.8,517)=""
^DIPT("AF",396,5.9,517)=""
^DIPT("AF",396,6.5,517)=""
^DIPT("AF",396,6.6,517)=""
^DIPT("AF",396,6.8,517)=""
^DIPT("AF",396,6.9,517)=""
^DIPT("AF",396,7.6,517)=""
^DIPT("AF",396,8,517)=""
^DIPT("AF",396,8.5,517)=""
^DIPT("AF",396,8.7,517)=""
^DIPT("AF",396,9.6,517)=""
^DIPT("AF",396,10,517)=""
^DIPT("AF",396,10.5,517)=""
^DIPT("AF",396,10.7,517)=""
^DIPT("AF",396,11.6,517)=""
^DIPT("AF",396,12,517)=""
^DIPT("AF",396,12.5,517)=""
^DIPT("AF",396,12.7,517)=""
^DIPT("AF",396,13.6,517)=""
^DIPT("AF",396,14,517)=""
^DIPT("AF",396,14.5,517)=""
^DIPT("AF",396,14.7,517)=""
^DIPT("AF",396,15.6,517)=""
^DIPT("AF",396,16,517)=""
^DIPT("AF",396,16.5,517)=""
^DIPT("AF",396,16.7,517)=""
^DIPT("AF",396,17.4,517)=""
^DIPT("AF",396,17.6,517)=""
^DIPT("AF",396,17.8,517)=""
^DIPT("AF",396,17.9,517)=""
^DIPT("AF",396,18.6,517)=""
^DIPT("AF",396,19,517)=""
^DIPT("AF",396,19.5,517)=""
^DIPT("AF",396,19.7,517)=""
^DIPT("AF",396,20.6,517)=""
^DIPT("AF",396,21,517)=""
^DIPT("AF",396,21.5,517)=""
^DIPT("AF",396,21.7,517)=""
^DIPT("AF",396,26,519)=""
^DIPT("AF",396.02,.01,517)=""
^DIPT("AF",404.52,.03,1320)=""
^DIPT("AF",404.52,.03,1452)=""
^DIPT("AF",404.52,.09,1320)=""
^DIPT("AF",404.52,.09,1452)=""
^DIPT("AF",404.52,.097,1320)=""
^DIPT("AF",404.52,.097,1452)=""
^DIPT("AF",404.52,.099,1320)=""
^DIPT("AF",404.52,.099,1452)=""
^DIPT("AF",404.57,.01,1320)=""
^DIPT("AF",404.57,.01,1448)=""
^DIPT("AF",404.57,.01,1452)=""
^DIPT("AF",404.57,.02,1320)=""
^DIPT("AF",404.57,.02,1452)=""
^DIPT("AF",404.57,.03,1448)=""
^DIPT("AF",404.57,304,1448)=""
^DIPT("AF",409.621,.01,184)=""
^DIPT("AF",409.621,.02,184)=""
^DIPT("AF",409.621,.03,184)=""
^DIPT("AF",409.621,.04,184)=""
^DIPT("AF",409.65,.01,232)=""
^DIPT("AF",409.65,.02,232)=""
^DIPT("AF",409.65,.05,232)=""
^DIPT("AF",410,.01,299)=""
^DIPT("AF",410,.01,304)=""
^DIPT("AF",410,.01,313)=""
^DIPT("AF",410,1,299)=""
^DIPT("AF",410,1,304)=""
^DIPT("AF",410,3,299)=""
^DIPT("AF",410,3,304)=""
^DIPT("AF",410,5,299)=""
^DIPT("AF",410,5,304)=""
^DIPT("AF",410,7,299)=""
^DIPT("AF",410,7,304)=""
^DIPT("AF",410,11,299)=""
^DIPT("AF",410,11,304)=""
^DIPT("AF",410,11,1190)=""
^DIPT("AF",410,20,299)=""
^DIPT("AF",410,20,304)=""
^DIPT("AF",410,40,299)=""
^DIPT("AF",410,40,304)=""
^DIPT("AF",410,44,1190)=""
^DIPT("AF",410.02,2,313)=""
^DIPT("AF",410.02,2,1190)=""
^DIPT("AF",410.02,3,1190)=""
^DIPT("AF",410.02,5,313)=""
^DIPT("AF",410.02,7,1190)=""
^DIPT("AF",410.02,14,1190)=""
^DIPT("AF",421.1,.01,332)=""
^DIPT("AF",421.14,1,332)=""
^DIPT("AF",421.14,2,332)=""
^DIPT("AF",421.14,3,332)=""
^DIPT("AF",421.14,4,332)=""
^DIPT("AF",421.14,6,332)=""
^DIPT("AF",421.15,.01,332)=""
^DIPT("AF",421.6,1,333)=""
^DIPT("AF",421.6,2,333)=""
^DIPT("AF",421.6,4,333)=""
^DIPT("AF",421.6,8,333)=""
^DIPT("AF",421.65,.01,333)=""
^DIPT("AF",424.1,.01,344)=""
^DIPT("AF",424.1,.02,344)=""
^DIPT("AF",424.1,.04,344)=""
^DIPT("AF",424.1,.06,344)=""
^DIPT("AF",424.1,.08,344)=""
^DIPT("AF",424.1,.1,344)=""
^DIPT("AF",424.1,1.1,344)=""
^DIPT("AF",430,.01,384)=""
^DIPT("AF",430,.01,386)=""
^DIPT("AF",430,.01,387)=""
^DIPT("AF",430,.01,388)=""
^DIPT("AF",430,.01,395)=""
^DIPT("AF",430,.01,401)=""
^DIPT("AF",430,.01,404)=""
^DIPT("AF",430,.01,405)=""
^DIPT("AF",430,.01,409)=""
^DIPT("AF",430,.01,416)=""
^DIPT("AF",430,.01,417)=""
^DIPT("AF",430,.01,428)=""
^DIPT("AF",430,.01,435)=""
^DIPT("AF",430,2,384)=""
^DIPT("AF",430,2,386)=""
^DIPT("AF",430,2,387)=""
^DIPT("AF",430,2,388)=""
^DIPT("AF",430,2,395)=""
^DIPT("AF",430,2,405)=""
^DIPT("AF",430,2,409)=""
^DIPT("AF",430,2,417)=""
^DIPT("AF",430,2,428)=""
^DIPT("AF",430,3,442)=""
^DIPT("AF",430,4,409)=""
^DIPT("AF",430,4.5,405)=""
^DIPT("AF",430,4.5,409)=""
^DIPT("AF",430,7,386)=""
^DIPT("AF",430,8,384)=""
^DIPT("AF",430,8,386)=""
^DIPT("AF",430,8,387)=""
^DIPT("AF",430,8,388)=""
^DIPT("AF",430,8,409)=""
^DIPT("AF",430,8,416)=""
^DIPT("AF",430,8,428)=""
^DIPT("AF",430,9,384)=""
^DIPT("AF",430,9,386)=""
^DIPT("AF",430,9,387)=""
^DIPT("AF",430,9,388)=""
^DIPT("AF",430,9,395)=""
^DIPT("AF",430,9,401)=""
^DIPT("AF",430,9,404)=""
^DIPT("AF",430,9,409)=""
^DIPT("AF",430,9,416)=""
^DIPT("AF",430,9,417)=""
^DIPT("AF",430,9,428)=""
^DIPT("AF",430,9,435)=""
^DIPT("AF",430,9,442)=""
^DIPT("AF",430,10,384)=""
^DIPT("AF",430,10,386)=""
^DIPT("AF",430,10,387)=""
^DIPT("AF",430,10,388)=""
^DIPT("AF",430,10,395)=""
^DIPT("AF",430,10,405)=""
^DIPT("AF",430,10,409)=""
^DIPT("AF",430,10,428)=""
^DIPT("AF",430,11,404)=""
^DIPT("AF",430,15.1,395)=""
^DIPT("AF",430,19,386)=""
^DIPT("AF",430,19.1,386)=""
^DIPT("AF",430,31,416)=""
^DIPT("AF",430,31,417)=""
^DIPT("AF",430,32,416)=""
^DIPT("AF",430,33,417)=""
^DIPT("AF",430,43,404)=""
^DIPT("AF",430,61,401)=""
^DIPT("AF",430,62,401)=""
^DIPT("AF",430,63,401)=""
^DIPT("AF",430,79.18,435)=""
^DIPT("AF",430,79.19,435)=""
^DIPT("AF",430,79.21,435)=""
^DIPT("AF",430,83.1,401)=""
^DIPT("AF",430,86,401)=""
^DIPT("AF",430,87,401)=""
^DIPT("AF",430,88,401)=""
^DIPT("AF",430,89,401)=""
^DIPT("AF",430,89.1,401)=""
^DIPT("AF",430,89.2,401)=""
^DIPT("AF",430,89.3,401)=""
^DIPT("AF",430,89.4,401)=""
^DIPT("AF",430,89.5,401)=""
^DIPT("AF",430,89.6,401)=""
^DIPT("AF",430,89.7,401)=""
^DIPT("AF",430,89.8,401)=""
^DIPT("AF",430,90,409)=""
^DIPT("AF",430,95,416)=""
^DIPT("AF",430,101,416)=""
^DIPT("AF",430,111,395)=""
^DIPT("AF",430,111,416)=""
^DIPT("AF",430,113,416)=""
^DIPT("AF",430,203,386)=""
^DIPT("AF",430,203,387)=""
^DIPT("AF",430,203,388)=""
^DIPT("AF",430,203,428)=""
^DIPT("AF",430,239,386)=""
^DIPT("AF",430,242,386)=""
^DIPT("AF",430,243,386)=""
^DIPT("AF",430,244,386)=""
^DIPT("AF",430,247,386)=""
^DIPT("AF",430,248,386)=""
^DIPT("AF",430,249,386)=""
^DIPT("AF",430,250,384)=""
^DIPT("AF",430,250,386)=""
^DIPT("AF",430,250,387)=""
^DIPT("AF",430,250,388)=""
^DIPT("AF",430,250,405)=""
^DIPT("AF",430,250,428)=""
^DIPT("AF",430.01,.01,405)=""
^DIPT("AF",430.01,.01,409)=""
^DIPT("AF",430.01,3,405)=""
^DIPT("AF",430.01,3,409)=""
^DIPT("AF",430.01,4,405)=""
^DIPT("AF",430.01,7,405)=""
^DIPT("AF",430.01,7,409)=""
^DIPT("AF",430.02,5,395)=""
^DIPT("AF",430.02,5,428)=""
^DIPT("AF",430.051,.01,404)=""
^DIPT("AF",430.051,1,404)=""
^DIPT("AF",430.051,2,404)=""
^DIPT("AF",430.051,5,404)=""
^DIPT("AF",433,.01,399)=""
^DIPT("AF",433,.01,421)=""
^DIPT("AF",433,.03,397)=""
^DIPT("AF",433,.03,398)=""
^DIPT("AF",433,.03,399)=""
^DIPT("AF",433,.03,400)=""
^DIPT("AF",433,.03,402)=""
^DIPT("AF",433,.03,403)=""
^DIPT("AF",433,.03,421)=""
^DIPT("AF",433,5.02,397)=""
^DIPT("AF",433,5.02,421)=""
^DIPT("AF",433,11,397)=""
^DIPT("AF",433,11,398)=""
^DIPT("AF",433,11,399)=""
^DIPT("AF",433,11,400)=""
^DIPT("AF",433,11,402)=""
^DIPT("AF",433,11,403)=""
^DIPT("AF",433,11,408)=""
^DIPT("AF",433,11,421)=""
^DIPT("AF",433,12,399)=""
^DIPT("AF",433,12,400)=""
^DIPT("AF",433,12,408)=""
^DIPT("AF",433,12,443)=""
^DIPT("AF",433,13,421)=""
^DIPT("AF",433,14,397)=""
^DIPT("AF",433,14,398)=""
^DIPT("AF",433,15,397)=""
^DIPT("AF",433,15,398)=""
^DIPT("AF",433,15,400)=""
^DIPT("AF",433,15,402)=""
^DIPT("AF",433,15,403)=""
^DIPT("AF",433,15,443)=""
^DIPT("AF",433,17,408)=""
^DIPT("AF",433,21,400)=""
^DIPT("AF",433,22,400)=""
^DIPT("AF",433,23,400)=""
^DIPT("AF",433,24,400)=""
^DIPT("AF",433,25,400)=""
^DIPT("AF",433,26,400)=""
^DIPT("AF",433,42,408)=""
^DIPT("AF",433,42,421)=""
^DIPT("AF",433,86,421)=""
^DIPT("AF",433.01,.01,397)=""
^DIPT("AF",433.01,.01,398)=""
^DIPT("AF",433.01,.01,399)=""
^DIPT("AF",433.01,.01,402)=""
^DIPT("AF",433.01,.01,403)=""
^DIPT("AF",433.01,1,397)=""
^DIPT("AF",433.01,1,398)=""
^DIPT("AF",433.01,1,402)=""
^DIPT("AF",433.01,1,403)=""
^DIPT("AF",433.01,4,397)=""
^DIPT("AF",433.01,4,398)=""
^DIPT("AF",433.01,4,399)=""
^DIPT("AF",433.01,4,402)=""
^DIPT("AF",433.01,4,403)=""
^DIPT("AF",433.041,.01,397)=""
^DIPT("AF",433.041,.01,408)=""
^DIPT("AF",433.041,.01,421)=""
^DIPT("AF",441,5,492)=""
^DIPT("AF",442,.01,1193)=""
^DIPT("AF",442,.1,1193)=""
^DIPT("AF",442,1,1192)=""
^DIPT("AF",442,5,1193)=""
^DIPT("AF",442.01,2,1193)=""
^DIPT("AF",442.01,3,1193)=""
^DIPT("AF",442.01,11,1193)=""
^DIPT("AF",442.01,15,1193)=""
^DIPT("AF",615.2,.02,560)=""
^DIPT("AF",615.2,.02,562)=""
^DIPT("AF",615.2,.02,563)=""
^DIPT("AF",615.2,.04,563)=""
^DIPT("AF",615.2,.05,560)=""
^DIPT("AF",615.2,7,560)=""
^DIPT("AF",615.2,25,553)=""
^DIPT("AF",615.2,25,556)=""
^DIPT("AF",615.2,25,558)=""
^DIPT("AF",615.2,25,560)=""
^DIPT("AF",615.2,25,564)=""
^DIPT("AF",615.21,1,553)=""
^DIPT("AF",615.21,1,556)=""
^DIPT("AF",615.21,1,558)=""
^DIPT("AF",615.21,1,562)=""
^DIPT("AF",615.21,1,564)=""
^DIPT("AF",615.27,.01,553)=""
^DIPT("AF",615.27,.01,556)=""
^DIPT("AF",615.27,.01,558)=""
^DIPT("AF",615.27,.01,560)=""
^DIPT("AF",615.27,.01,562)=""
^DIPT("AF",615.27,.01,564)=""
^DIPT("AF",615.34,.01,560)=""
^DIPT("AF",624,.001,551)=""
^DIPT("AF",624,2,551)=""
^DIPT("AF",624,3,551)=""
^DIPT("AF",624,5,551)=""
^DIPT("AF",624,6,551)=""
^DIPT("AF",624,7,551)=""
^DIPT("AF",624,8,551)=""
^DIPT("AF",624,9,551)=""
^DIPT("AF",624,10,551)=""
^DIPT("AF",624,11,551)=""
^DIPT("AF",624,13,551)=""
^DIPT("AF",680,.02,618)=""
^DIPT("AF",680,1.1,618)=""
^DIPT("AF",680,2.1,618)=""
^DIPT("AF",680,9,618)=""
^DIPT("AF",680,9.4,618)=""
^DIPT("AF",680.5,.01,618)=""
^DIPT("AF",680.5,8,618)=""
^DIPT("AF",680.5,9,618)=""
^DIPT("AF",690,1,1013)=""
^DIPT("AF",690,2,984)=""
^DIPT("AF",690,3,1013)=""
^DIPT("AF",690,4,1013)=""
^DIPT("AF",690,5,1013)=""
^DIPT("AF",690,6,1013)=""
^DIPT("AF",690,9,988)=""
^DIPT("AF",690,9,989)=""
^DIPT("AF",690,9,990)=""
^DIPT("AF",690,9,991)=""
^DIPT("AF",690,12,988)=""
^DIPT("AF",690,12,989)=""
^DIPT("AF",690,12,990)=""
^DIPT("AF",690,12,991)=""
^DIPT("AF",690,13,988)=""
^DIPT("AF",690,13,989)=""
^DIPT("AF",690,13,990)=""
^DIPT("AF",690,13,991)=""
^DIPT("AF",690,14,988)=""
^DIPT("AF",690,14,989)=""
^DIPT("AF",690,14,990)=""
^DIPT("AF",690,14,991)=""
^DIPT("AF",691,.01,1021)=""
^DIPT("AF",691,.03,1021)=""
^DIPT("AF",691,1,1021)=""
^DIPT("AF",691,11,1021)=""
^DIPT("AF",691,12,1021)=""
^DIPT("AF",691,17,1021)=""
^DIPT("AF",691,18,1021)=""
^DIPT("AF",691,19,1021)=""
^DIPT("AF",691,39,1021)=""
^DIPT("AF",691,600,1021)=""
^DIPT("AF",691.04,.01,1021)=""
^DIPT("AF",691.04,1,1021)=""
^DIPT("AF",691.06,.01,1021)=""
^DIPT("AF",691.07,.01,1021)=""
^DIPT("AF",691.1,.01,1019)=""
^DIPT("AF",691.1,.03,1019)=""
^DIPT("AF",691.1,1,1019)=""
^DIPT("AF",691.1,1.1,974)=""
^DIPT("AF",691.1,1.2,974)=""
^DIPT("AF",691.1,1.3,974)=""
^DIPT("AF",691.1,4,974)=""
^DIPT("AF",691.1,5,974)=""
^DIPT("AF",691.1,17,973)=""
^DIPT("AF",691.1,19,973)=""
^DIPT("AF",691.1,27,972)=""
^DIPT("AF",691.1,46,972)=""
^DIPT("AF",691.1,62,971)=""
^DIPT("AF",691.1,63,971)=""
^DIPT("AF",691.1,63,1019)=""
^DIPT("AF",691.1,64,971)=""
^DIPT("AF",691.1,65,971)=""
^DIPT("AF",691.1,600,1019)=""
^DIPT("AF",691.12,.01,973)=""
^DIPT("AF",691.13,.01,974)=""
^DIPT("AF",691.13,.01,1019)=""
^DIPT("AF",691.14,.01,974)=""
^DIPT("AF",691.15,.01,1021)=""
^DIPT("AF",691.16,.01,974)=""
^DIPT("AF",691.17,.01,974)=""
^DIPT("AF",691.18,.01,1019)=""
^DIPT("AF",691.2,.01,973)=""
^DIPT("AF",691.21,.01,973)=""
^DIPT("AF",691.22,.01,973)=""
^DIPT("AF",691.22,1,973)=""
^DIPT("AF",691.23,.01,973)=""
^DIPT("AF",691.23,1,973)=""
^DIPT("AF",691.24,.01,973)=""
^DIPT("AF",691.24,1,973)=""
^DIPT("AF",691.25,.01,973)=""
^DIPT("AF",691.26,.01,973)=""
^DIPT("AF",691.26,.01,1019)=""
^DIPT("AF",691.26,35,973)=""
^DIPT("AF",691.26,36,973)=""
^DIPT("AF",691.26,38,973)=""
^DIPT("AF",691.26,39,973)=""
^DIPT("AF",691.26,40,973)=""
^DIPT("AF",691.26,41,973)=""
^DIPT("AF",691.27,.01,972)=""
^DIPT("AF",691.27,.01,1019)=""
^DIPT("AF",691.27,1,972)=""
^DIPT("AF",691.27,1,1019)=""
^DIPT("AF",691.27,1.5,972)=""
^DIPT("AF",691.27,1.5,1019)=""
^DIPT("AF",691.27,2,972)=""
^DIPT("AF",691.28,.01,972)=""
^DIPT("AF",691.28,1,972)=""
^DIPT("AF",691.29,.01,972)=""
^DIPT("AF",691.29,.01,1019)=""
^DIPT("AF",691.29,1,972)=""
^DIPT("AF",691.3,.01,972)=""
^DIPT("AF",691.3,.01,1019)=""
^DIPT("AF",691.3,1,972)=""
^DIPT("AF",691.3,1,1019)=""
^DIPT("AF",691.3,1.5,972)=""
^DIPT("AF",691.3,1.5,1019)=""
^DIPT("AF",691.3,2,972)=""
^DIPT("AF",691.32,.01,972)=""
^DIPT("AF",691.32,.01,1019)=""
^DIPT("AF",691.32,1,972)=""
^DIPT("AF",691.32,1,1019)=""
^DIPT("AF",691.32,1.5,972)=""
^DIPT("AF",691.32,1.5,1019)=""
^DIPT("AF",691.32,2,972)=""
^DIPT("AF",691.35,.01,972)=""
^DIPT("AF",691.35,1,972)=""
^DIPT("AF",691.35,1.5,972)=""
^DIPT("AF",691.35,2,972)=""
^DIPT("AF",691.36,.01,971)=""
^DIPT("AF",691.36,.01,1019)=""
^DIPT("AF",691.36,1,971)=""
^DIPT("AF",691.36,1,1019)=""
^DIPT("AF",691.36,1.5,971)=""
^DIPT("AF",691.36,1.5,1019)=""
^DIPT("AF",691.36,2,971)=""
^DIPT("AF",691.36,2,1019)=""
^DIPT("AF",691.36,2.5,971)=""
^DIPT("AF",691.36,2.5,1019)=""
^DIPT("AF",691.36,3,971)=""
^DIPT("AF",691.36,4,971)=""
^DIPT("AF",691.39,.01,971)=""
^DIPT("AF",691.39,1,971)=""
^DIPT("AF",691.41,.01,971)=""
^DIPT("AF",691.41,.01,1019)=""
^DIPT("AF",691.42,.01,971)=""
^DIPT("AF",691.42,.01,1019)=""
^DIPT("AF",691.43,.01,974)=""
^DIPT("AF",691.44,.01,974)=""
^DIPT("AF",691.47,.01,972)=""
^DIPT("AF",691.47,.01,1019)=""
^DIPT("AF",691.47,1,972)=""
^DIPT("AF",691.5,.01,1020)=""
^DIPT("AF",691.5,1,1020)=""
^DIPT("AF",691.5,11,976)=""
^DIPT("AF",691.5,12,976)=""
^DIPT("AF",691.5,12,1020)=""
^DIPT("AF",691.5,13,976)=""
^DIPT("AF",691.5,13,1020)=""
^DIPT("AF",691.517,.01,976)=""
^DIPT("AF",691.53,.01,976)=""
^DIPT("AF",691.54,.01,976)=""
^DIPT("AF",691.55,.01,976)=""
^DIPT("AF",691.56,.01,976)=""
^DIPT("AF",691.57,.01,976)=""
^DIPT("AF",691.57,.01,1020)=""
^DIPT("AF",691.6,.01,1023)=""
^DIPT("AF",691.6,.03,1023)=""
^DIPT("AF",691.6,1,1023)=""
^DIPT("AF",691.6,4,979)=""
^DIPT("AF",691.6,4,1023)=""
^DIPT("AF",691.6,14,979)=""
^DIPT("AF",691.6,14,1023)=""
^DIPT("AF",691.6,27,979)=""
^DIPT("AF",691.6,27,1023)=""
^DIPT("AF",691.6,28,979)=""
^DIPT("AF",691.6,28,1023)=""
^DIPT("AF",691.6,29,979)=""
^DIPT("AF",691.6,30,979)=""
^DIPT("AF",691.6,31,979)=""
^DIPT("AF",691.6,32,979)=""
^DIPT("AF",691.6,33,979)=""
^DIPT("AF",691.6,34,979)=""
^DIPT("AF",691.6,36,979)=""
^DIPT("AF",691.6,37,979)=""
^DIPT("AF",691.6,38,979)=""
^DIPT("AF",691.6,39,979)=""
^DIPT("AF",691.6,39,1023)=""
^DIPT("AF",691.6,40,1023)=""
^DIPT("AF",691.6,41,979)=""
^DIPT("AF",691.6,42,979)=""
^DIPT("AF",691.6,42,1023)=""
^DIPT("AF",691.6,43,979)=""
^DIPT("AF",691.6,43,1023)=""
^DIPT("AF",691.6,44,979)=""
^DIPT("AF",691.6,45,979)=""
^DIPT("AF",691.6,46,979)=""
^DIPT("AF",691.6,47,979)=""
^DIPT("AF",691.6,49,979)=""
^DIPT("AF",691.6,50,979)=""
^DIPT("AF",691.6,50.5,979)=""
^DIPT("AF",691.6,51,979)=""
^DIPT("AF",691.6,52,979)=""
^DIPT("AF",691.6,53,979)=""
^DIPT("AF",691.6,54,979)=""
^DIPT("AF",691.6,55,979)=""
^DIPT("AF",691.6,56,979)=""
^DIPT("AF",691.6,600,1023)=""
^DIPT("AF",691.61,.01,980)=""
^DIPT("AF",691.62,.01,979)=""
^DIPT("AF",691.63,.01,980)=""
^DIPT("AF",691.63,.01,1023)=""
^DIPT("AF",691.64,.01,980)=""
^DIPT("AF",691.65,.01,979)=""
^DIPT("AF",691.65,.01,1023)=""
^DIPT("AF",691.68,.01,1023)=""
^DIPT("AF",691.7,.03,1024)=""
^DIPT("AF",691.7,1,1024)=""
^DIPT("AF",691.7,3,1024)=""
^DIPT("AF",691.7,6,975)=""
^DIPT("AF",691.7,6.1,975)=""
^DIPT("AF",691.7,7,975)=""
^DIPT("AF",691.7,7,1024)=""
^DIPT("AF",691.7,9,975)=""
^DIPT("AF",691.7,13,975)=""
^DIPT("AF",691.7,23,975)=""
^DIPT("AF",691.7,29,975)=""
^DIPT("AF",691.7,29,1024)=""
^DIPT("AF",691.7,51,975)=""
^DIPT("AF",691.7,53.5,975)=""
^DIPT("AF",691.7,53.5,1024)=""
^DIPT("AF",691.7,55,975)=""
^DIPT("AF",691.7,57,975)=""
^DIPT("AF",691.7,57,1024)=""
^DIPT("AF",691.7,58,975)=""
^DIPT("AF",691.7,58,1024)=""
^DIPT("AF",691.7,69,975)=""
^DIPT("AF",691.7,600,1024)=""
^DIPT("AF",691.703,.01,975)=""
^DIPT("AF",691.703,.01,1024)=""
^DIPT("AF",691.71,.01,975)=""
^DIPT("AF",691.71,1,975)=""
^DIPT("AF",691.71,2,975)=""
^DIPT("AF",691.72,.01,975)=""
^DIPT("AF",691.73,.01,975)=""
^DIPT("AF",691.75,.01,975)=""
^DIPT("AF",691.8,.01,1022)=""
^DIPT("AF",691.8,1,1022)=""
^DIPT("AF",691.8,4,977)=""
^DIPT("AF",691.8,4,1022)=""
^DIPT("AF",691.8,6,977)=""
^DIPT("AF",691.8,16,977)=""
^DIPT("AF",691.8,16,1022)=""
^DIPT("AF",691.8,17,977)=""
^DIPT("AF",691.8,17,1022)=""
^DIPT("AF",691.8,18,977)=""
^DIPT("AF",691.8,19,977)=""
^DIPT("AF",691.8,20,977)=""
^DIPT("AF",691.8,600,1022)=""
^DIPT("AF",691.801,.01,977)=""
^DIPT("AF",691.802,.01,977)=""
^DIPT("AF",691.803,.01,977)=""
^DIPT("AF",691.804,1,977)=""
^DIPT("AF",691.804,2,977)=""
^DIPT("AF",691.804,3,977)=""
^DIPT("AF",691.804,4,977)=""
^DIPT("AF",691.805,.01,977)=""
^DIPT("AF",691.811,1,977)=""
^DIPT("AF",691.813,.01,977)=""
^DIPT("AF",691.813,.01,1022)=""
^DIPT("AF",691.814,.01,977)=""
^DIPT("AF",691.814,.01,1022)=""
^DIPT("AF",691.815,.01,977)=""
^DIPT("AF",691.87,.01,977)=""
^DIPT("AF",691.9,2,1041)=""
^DIPT("AF",691.9,15,1041)=""
^DIPT("AF",691.9,17,1041)=""
^DIPT("AF",691.921,1,1041)=""
^DIPT("AF",691.921,3,1041)=""
^DIPT("AF",691.921,4,1041)=""
^DIPT("AF",691.921,5,1041)=""
^DIPT("AF",691.922,.01,1041)=""
^DIPT("AF",691.922,1,1041)=""
^DIPT("AF",691.923,.01,1041)=""
^DIPT("AF",691.93,9,1041)=""
^DIPT("AF",692,10,978)=""
^DIPT("AF",692,11,978)=""
^DIPT("AF",692,14,978)=""
^DIPT("AF",692,15,978)=""
^DIPT("AF",692,16,978)=""
^DIPT("AF",692,18,978)=""
^DIPT("AF",692.01,.01,978)=""
^DIPT("AF",692.019,1,978)=""
^DIPT("AF",692.02,9,978)=""
^DIPT("AF",692.07,1,978)=""
^DIPT("AF",692.07,2,978)=""
^DIPT("AF",692.07,3,978)=""
^DIPT("AF",692.07,4,978)=""
^DIPT("AF",692.07,5,978)=""
^DIPT("AF",692.07,6,978)=""
^DIPT("AF",694,1.5,987)=""
^DIPT("AF",694,1.5,1030)=""
^DIPT("AF",694,3,986)=""
^DIPT("AF",694,6.5,986)=""
^DIPT("AF",694,6.5,1030)=""
^DIPT("AF",694,8,987)=""
^DIPT("AF",694,8,1030)=""
^DIPT("AF",694,8.1,987)=""
^DIPT("AF",694,50,986)=""
^DIPT("AF",694,51,986)=""
^DIPT("AF",694,56,986)=""
^DIPT("AF",694,600,987)=""
^DIPT("AF",694,600,1030)=""
^DIPT("AF",694.01,.01,987)=""
^DIPT("AF",694.035,.01,987)=""
^DIPT("AF",694.035,.01,1030)=""
^DIPT("AF",694.038,.01,986)=""
^DIPT("AF",694.038,.01,1030)=""
^DIPT("AF",694.041,.01,987)=""
^DIPT("AF",694.041,.01,1030)=""
^DIPT("AF",694.054,.01,987)=""
^DIPT("AF",694.055,.01,987)=""
^DIPT("AF",694.057,.01,986)=""
^DIPT("AF",694.057,.01,1030)=""
^DIPT("AF",694.058,.01,986)=""
^DIPT("AF",694.5,36,993)=""
^DIPT("AF",694.5,91,996)=""
^DIPT("AF",694.5,104,994)=""
^DIPT("AF",694.586,.01,995)=""
^DIPT("AF",697.2,7,1278)=""
^DIPT("AF",698,.01,1031)=""
^DIPT("AF",698,1,1031)=""
^DIPT("AF",698,19,1031)=""
^DIPT("AF",698,30,988)=""
^DIPT("AF",698,32,988)=""
^DIPT("AF",698,34,988)=""
^DIPT("AF",698,36,988)=""
^DIPT("AF",698,38,988)=""
^DIPT("AF",698,40,988)=""
^DIPT("AF",698,42,988)=""
^DIPT("AF",698,42,1031)=""
^DIPT("AF",698,44,988)=""
^DIPT("AF",698,44,1031)=""
^DIPT("AF",698,46,988)=""
^DIPT("AF",698,48,988)=""
^DIPT("AF",698,50,988)=""
^DIPT("AF",698,75,988)=""
^DIPT("AF",698,90,988)=""
^DIPT("AF",698,90,1031)=""
^DIPT("AF",698,96,988)=""
^DIPT("AF",698,300,988)=""
^DIPT("AF",698,301,988)=""
^DIPT("AF",698,302,988)=""
^DIPT("AF",698,600,1031)=""
^DIPT("AF",698.01,.01,988)=""
^DIPT("AF",698.093,.01,988)=""
^DIPT("AF",698.093,.01,1031)=""
^DIPT("AF",698.093,1,988)=""
^DIPT("AF",698.093,1,1031)=""
^DIPT("AF",698.1,.01,1033)=""
^DIPT("AF",698.1,1,1033)=""
^DIPT("AF",698.1,11,990)=""
^DIPT("AF",698.1,11,1033)=""
^DIPT("AF",698.1,12,990)=""
^DIPT("AF",698.1,12,1033)=""
^DIPT("AF",698.1,56,990)=""
^DIPT("AF",698.1,56,1033)=""
^DIPT("AF",698.1,300,990)=""
^DIPT("AF",698.1,301,990)=""
^DIPT("AF",698.1,302,990)=""
^DIPT("AF",698.1,600,1033)=""
^DIPT("AF",698.1,601,1033)=""
^DIPT("AF",698.11,.01,990)=""
^DIPT("AF",698.11,.01,1033)=""
^DIPT("AF",698.2,.01,1032)=""
^DIPT("AF",698.2,1,1032)=""
^DIPT("AF",698.2,11,989)=""
^DIPT("AF",698.2,11,1032)=""
^DIPT("AF",698.2,12,989)=""
^DIPT("AF",698.2,12,1032)=""
^DIPT("AF",698.2,56,989)=""
^DIPT("AF",698.2,56,1032)=""
^DIPT("AF",698.2,57,989)=""
^DIPT("AF",698.2,57,1032)=""
^DIPT("AF",698.2,300,989)=""
^DIPT("AF",698.2,301,989)=""
^DIPT("AF",698.2,302,989)=""
^DIPT("AF",698.2,600,1032)=""
^DIPT("AF",698.21,.01,989)=""
^DIPT("AF",698.21,.01,1032)=""
^DIPT("AF",698.3,.01,1034)=""
^DIPT("AF",698.3,1,1034)=""
^DIPT("AF",698.3,4,991)=""
^DIPT("AF",698.3,4,1034)=""
^DIPT("AF",698.3,5,991)=""
^DIPT("AF",698.3,6,991)=""
^DIPT("AF",698.3,6,1034)=""
^DIPT("AF",698.3,7,991)=""
^DIPT("AF",698.3,11,991)=""
^DIPT("AF",698.3,11,1034)=""
^DIPT("AF",698.3,12,991)=""
^DIPT("AF",698.3,12,1034)=""
^DIPT("AF",698.3,13,991)=""
^DIPT("AF",698.3,14,991)=""
^DIPT("AF",698.3,55,991)=""
^DIPT("AF",698.3,101,991)=""
^DIPT("AF",698.3,101,1034)=""
^DIPT("AF",698.3,102,991)=""
^DIPT("AF",698.3,102,1034)=""
^DIPT("AF",698.3,103,991)=""
^DIPT("AF",698.3,104,991)=""
^DIPT("AF",698.3,105,991)=""
^DIPT("AF",698.3,106,991)=""
^DIPT("AF",698.3,106,1034)=""
^DIPT("AF",698.3,107,991)=""
^DIPT("AF",698.3,107,1034)=""
^DIPT("AF",698.3,201,991)=""
^DIPT("AF",698.3,201,1034)=""
^DIPT("AF",698.3,202,991)=""
^DIPT("AF",698.3,202,1034)=""
^DIPT("AF",698.3,203,991)=""
^DIPT("AF",698.3,204,991)=""
^DIPT("AF",698.3,205,991)=""
^DIPT("AF",698.3,206,991)=""
^DIPT("AF",698.3,206,1034)=""
^DIPT("AF",698.3,207,991)=""
^DIPT("AF",698.3,207,1034)=""
^DIPT("AF",698.3,300,991)=""
^DIPT("AF",698.3,301,991)=""
^DIPT("AF",698.3,600,1034)=""
^DIPT("AF",698.3,601,1034)=""
^DIPT("AF",699,.01,1026)=""
^DIPT("AF",699,.01,1027)=""
^DIPT("AF",699,.02,981)=""
^DIPT("AF",699,.02,1026)=""
^DIPT("AF",699,.02,1027)=""
^DIPT("AF",699,.02,1028)=""
^DIPT("AF",699,1,981)=""
^DIPT("AF",699,2.8,1278)=""
^DIPT("AF",699,2.85,1278)=""
^DIPT("AF",699,2.86,1278)=""
^DIPT("AF",699,2.87,1278)=""
^DIPT("AF",699,2.88,1278)=""
^DIPT("AF",699,3,982)=""
^DIPT("AF",699,3,983)=""
^DIPT("AF",699,3,984)=""
^DIPT("AF",699,3,1002)=""
^DIPT("AF",699,3,1013)=""
^DIPT("AF",699,3,1026)=""
^DIPT("AF",699,3,1278)=""
^DIPT("AF",699,6,982)=""
^DIPT("AF",699,6,983)=""
^DIPT("AF",699,6,984)=""
^DIPT("AF",699,6,1002)=""
^DIPT("AF",699,6,1013)=""
^DIPT("AF",699,6,1026)=""
^DIPT("AF",699,6,1027)=""
^DIPT("AF",699,6,1028)=""
^DIPT("AF",699,6,1278)=""
^DIPT("AF",699,8,984)=""
^DIPT("AF",699,8,1002)=""
^DIPT("AF",699,8,1013)=""
^DIPT("AF",699,8,1278)=""
^DIPT("AF",699,9,984)=""
^DIPT("AF",699,9,1002)=""
^DIPT("AF",699,9,1013)=""
^DIPT("AF",699,9,1278)=""
^DIPT("AF",699,10,1278)=""
^DIPT("AF",699,11,1278)=""
^DIPT("AF",699,12,984)=""
^DIPT("AF",699,12,1002)=""
^DIPT("AF",699,12,1013)=""
^DIPT("AF",699,12,1278)=""
^DIPT("AF",699,24,984)=""
^DIPT("AF",699,24,1013)=""
^DIPT("AF",699,29,1278)=""
^DIPT("AF",699,31.5,982)=""
^DIPT("AF",699,200,984)=""
^DIPT("AF",699,200,1002)=""
^DIPT("AF",699,200,1013)=""
^DIPT("AF",699,200,1026)=""
^DIPT("AF",699,200,1278)=""
^DIPT("AF",699,201,984)=""
^DIPT("AF",699,201,1002)=""
^DIPT("AF",699,201,1013)=""
^DIPT("AF",699,201,1278)=""
^DIPT("AF",699,202,1026)=""
^DIPT("AF",699,202,1027)=""
^DIPT("AF",699,202,1028)=""
^DIPT("AF",699,202,1278)=""
^DIPT("AF",699,204,1001)=""
^DIPT("AF",699,204,1003)=""
^DIPT("AF",699,204,1026)=""
^DIPT("AF",699,205,1001)=""
^DIPT("AF",699,205,1003)=""
^DIPT("AF",699,208,1028)=""
^DIPT("AF",699,600,1026)=""
^DIPT("AF",699,600,1027)=""
^DIPT("AF",699,600,1028)=""
^DIPT("AF",699,600,1278)=""
^DIPT("AF",699,701,1278)=""
^DIPT("AF",699.01,.01,1001)=""
^DIPT("AF",699.01,.01,1003)=""
^DIPT("AF",699.01,.01,1026)=""
^DIPT("AF",699.01,2,1001)=""
^DIPT("AF",699.01,2,1003)=""
^DIPT("AF",699.01,2,1026)=""
^DIPT("AF",699.01,4,1001)=""
^DIPT("AF",699.01,4,1003)=""
^DIPT("AF",699.01,4,1026)=""
^DIPT("AF",699.01,6,1001)=""
^DIPT("AF",699.01,6,1003)=""
^DIPT("AF",699.01,6,1026)=""
^DIPT("AF",699.0203,.01,1001)=""
^DIPT("AF",699.0203,.01,1003)=""
^DIPT("AF",699.0203,.01,1278)=""
^DIPT("AF",699.0206,.01,1028)=""
^DIPT("AF",699.0207,.01,1028)=""
^DIPT("AF",699.04,.01,1001)=""
^DIPT("AF",699.04,.01,1003)=""
^DIPT("AF",699.04,.01,1278)=""
^DIPT("AF",699.05,.01,984)=""
^DIPT("AF",699.05,.01,1278)=""
^DIPT("AF",699.16,.01,1002)=""
^DIPT("AF",699.17,.01,1026)=""
^DIPT("AF",699.17,.01,1028)=""
^DIPT("AF",699.17,.01,1278)=""
^DIPT("AF",699.18,.01,1026)=""
^DIPT("AF",699.18,.01,1028)=""
^DIPT("AF",699.18,.01,1278)=""
^DIPT("AF",699.35,.01,1026)=""
^DIPT("AF",699.35,.01,1028)=""
^DIPT("AF",699.35,.01,1278)=""
^DIPT("AF",699.36,.01,1026)=""
^DIPT("AF",699.36,.01,1028)=""
^DIPT("AF",699.36,.01,1278)=""
^DIPT("AF",699.37,.01,1026)=""
^DIPT("AF",699.37,.01,1278)=""
^DIPT("AF",699.38,.01,984)=""
^DIPT("AF",699.38,.01,1001)=""
^DIPT("AF",699.38,.01,1002)=""
^DIPT("AF",699.38,.01,1003)=""
^DIPT("AF",699.38,.01,1013)=""
^DIPT("AF",699.38,.01,1026)=""
^DIPT("AF",699.38,.01,1278)=""
^DIPT("AF",699.38,1,984)=""
^DIPT("AF",699.38,1,1013)=""
^DIPT("AF",699.38,1,1278)=""
^DIPT("AF",699.38,2,1278)=""
^DIPT("AF",699.38,3,1002)=""
^DIPT("AF",699.5,.02,1025)=""
^DIPT("AF",699.5,2,1025)=""
^DIPT("AF",699.5,3,1016)=""
^DIPT("AF",699.5,6,1016)=""
^DIPT("AF",699.5,6,1018)=""
^DIPT("AF",699.5,6,1035)=""
^DIPT("AF",699.5,31.5,1016)=""
^DIPT("AF",699.5,600,1016)=""
^DIPT("AF",699.5,600,1018)=""
^DIPT("AF",699.5,600,1035)=""
^DIPT("AF",699.5,601,1018)=""
^DIPT("AF",699.5,601,1035)=""
^DIPT("AF",699.501,.01,1018)=""
^DIPT("AF",699.51,.01,1018)=""
^DIPT("AF",699.52,.01,1018)=""
^DIPT("AF",699.53,.01,1018)=""
^DIPT("AF",699.532,.01,1016)=""
^DIPT("AF",699.532,.01,1018)=""
^DIPT("AF",699.532,.01,1025)=""
^DIPT("AF",699.532,.01,1035)=""
^DIPT("AF",699.533,.01,1016)=""
^DIPT("AF",699.533,.01,1018)=""
^DIPT("AF",699.533,.01,1025)=""
^DIPT("AF",699.533,.01,1035)=""
^DIPT("AF",699.534,.01,1016)=""
^DIPT("AF",699.534,.01,1018)=""
^DIPT("AF",699.534,.01,1025)=""
^DIPT("AF",699.534,.01,1035)=""
^DIPT("AF",699.535,.01,1016)=""
^DIPT("AF",699.535,.01,1018)=""
^DIPT("AF",699.56,.01,1001)=""
^DIPT("AF",699.56,.01,1003)=""
^DIPT("AF",699.56,.01,1026)=""
^DIPT("AF",699.56,.01,1278)=""
^DIPT("AF",699.58,.01,1001)=""
^DIPT("AF",699.58,.01,1003)=""
^DIPT("AF",699.58,.01,1026)=""
^DIPT("AF",699.58,.01,1278)=""
^DIPT("AF",699.58,1,1001)=""
^DIPT("AF",699.58,1,1003)=""
^DIPT("AF",699.58,1,1026)=""
^DIPT("AF",699.58,1,1278)=""
^DIPT("AF",699.59,.01,1027)=""
^DIPT("AF",699.66,.01,982)=""
^DIPT("AF",699.66,.01,983)=""
^DIPT("AF",699.66,.01,1027)=""
^DIPT("AF",699.67,.01,982)=""
^DIPT("AF",699.67,.01,983)=""
^DIPT("AF",699.67,.01,1027)=""
^DIPT("AF",699.68,.01,982)=""
^DIPT("AF",699.68,.01,983)=""
^DIPT("AF",699.68,.01,1027)=""
^DIPT("AF",699.69,.01,982)=""
^DIPT("AF",699.69,.01,983)=""
^DIPT("AF",699.69,.01,1027)=""
^DIPT("AF",699.73,.01,981)=""
^DIPT("AF",699.73,.01,1001)=""
^DIPT("AF",699.73,.01,1003)=""
^DIPT("AF",699.73,.01,1026)=""
^DIPT("AF",699.73,1,981)=""
^DIPT("AF",699.73,1,1001)=""
^DIPT("AF",699.73,1,1003)=""
^DIPT("AF",699.73,1,1026)=""
^DIPT("AF",699.73,2,981)=""
^DIPT("AF",699.73,2,1001)=""
^DIPT("AF",699.73,2,1003)=""
^DIPT("AF",699.74,.01,1001)=""
^DIPT("AF",699.74,.01,1003)=""
^DIPT("AF",699.74,.01,1278)=""
^DIPT("AF",699.74,1,1001)=""
^DIPT("AF",699.74,1,1003)=""
^DIPT("AF",699.74,1,1278)=""
^DIPT("AF",699.75,.01,1001)=""
^DIPT("AF",699.75,.01,1003)=""
^DIPT("AF",699.75,.01,1026)=""
^DIPT("AF",699.75,1,1001)=""
^DIPT("AF",699.75,1,1003)=""
^DIPT("AF",700,.01,1029)=""
^DIPT("AF",700,.03,1029)=""
^DIPT("AF",700,.03,1038)=""
^DIPT("AF",700,1,1029)=""
^DIPT("AF",700,31,997)=""
^DIPT("AF",700,600,1029)=""
^DIPT("AF",700,600,1038)=""
^DIPT("AF",700.017,.01,1029)=""
^DIPT("AF",700.017,1,1029)=""
^DIPT("AF",700.018,.01,1029)=""
^DIPT("AF",700.018,1,1029)=""
^DIPT("AF",700.018,2,1029)=""
^DIPT("AF",700.018,5,1029)=""
^DIPT("AF",700.018,5.5,1029)=""
^DIPT("AF",700.02,.01,1029)=""
^DIPT("AF",700.02,2,1029)=""
^DIPT("AF",700.02,3,1029)=""
^DIPT("AF",700.02,4,1029)=""
^DIPT("AF",700.021,.01,997)=""
^DIPT("AF",700.021,.01,1029)=""
^DIPT("AF",700.021,.01,1038)=""
^DIPT("AF",700.03,.01,997)=""
^DIPT("AF",700.04,.01,997)=""
^DIPT("AF",700.04,.01,1029)=""
^DIPT("AF",700.04,.01,1038)=""
^DIPT("AF",701,.01,1010)=""
^DIPT("AF",701,1,1010)=""
^DIPT("AF",701,1,1036)=""
^DIPT("AF",701,2,1000)=""
^DIPT("AF",701,3,1000)=""
^DIPT("AF",701,4,1000)=""
^DIPT("AF",701,5,1000)=""
^DIPT("AF",701,6,1000)=""
^DIPT("AF",701,7,1000)=""
^DIPT("AF",701,8,1000)=""
^DIPT("AF",701,9.1,1000)=""
^DIPT("AF",701,10,1000)=""
^DIPT("AF",701,11,1000)=""
^DIPT("AF",701,12,1000)=""
^DIPT("AF",701,14,1000)=""
^DIPT("AF",701,16,1000)=""
^DIPT("AF",701,17,1000)=""
^DIPT("AF",701,18,1000)=""
^DIPT("AF",701,19,1000)=""
^DIPT("AF",701,19.1,1000)=""
^DIPT("AF",701,20,1000)=""
^DIPT("AF",701,21,1000)=""
^DIPT("AF",701,22,1000)=""
^DIPT("AF",701,24,1000)=""
^DIPT("AF",701,25,1000)=""
^DIPT("AF",701,27,1000)=""
^DIPT("AF",701,28,1000)=""
^DIPT("AF",701,29,1000)=""
^DIPT("AF",701,30,1000)=""
^DIPT("AF",701,31,1000)=""
^DIPT("AF",701,31.1,1000)=""
^DIPT("AF",701,31.5,1000)=""
^DIPT("AF",701,31.8,1000)=""
^DIPT("AF",701,32,1000)=""
^DIPT("AF",701,33,1000)=""
^DIPT("AF",701,35,1000)=""
^DIPT("AF",701,36,1000)=""
^DIPT("AF",701,37,1000)=""
^DIPT("AF",701,38,1000)=""
^DIPT("AF",701,39,1000)=""
^DIPT("AF",701,40,1000)=""
^DIPT("AF",701,42,1000)=""
^DIPT("AF",701,43,1000)=""
^DIPT("AF",701,44,1000)=""
^DIPT("AF",701,45,1000)=""
^DIPT("AF",701,46,1000)=""
^DIPT("AF",701,47,1000)=""
^DIPT("AF",701,48,1000)=""
^DIPT("AF",701,49,1000)=""
^DIPT("AF",701,50,1000)=""
^DIPT("AF",701,51,1000)=""
^DIPT("AF",701,52,1000)=""
^DIPT("AF",701,53,1000)=""
^DIPT("AF",701,54,1000)=""
^DIPT("AF",701,55,1000)=""
^DIPT("AF",701,56,1000)=""
^DIPT("AF",701,57,1000)=""
^DIPT("AF",701,58,1000)=""
^DIPT("AF",701,59,1000)=""
^DIPT("AF",701,60,1000)=""
^DIPT("AF",701,61,1000)=""
^DIPT("AF",701,62,1015)=""
^DIPT("AF",701,62,1036)=""
^DIPT("AF",701,63,1015)=""
^DIPT("AF",701,63,1036)=""
^DIPT("AF",701,64,1015)=""
^DIPT("AF",701,64,1036)=""
^DIPT("AF",701,65,1015)=""
^DIPT("AF",701,65,1036)=""
^DIPT("AF",701,66,1015)=""
^DIPT("AF",701,66,1036)=""
^DIPT("AF",701,67,1015)=""
^DIPT("AF",701,67.5,1008)=""
^DIPT("AF",701,67.5,1036)=""
^DIPT("AF",701,67.7,1008)=""
^DIPT("AF",701,68,1008)=""
^DIPT("AF",701,68,1015)=""
^DIPT("AF",701,69,1015)=""
^DIPT("AF",701,70,1008)=""
^DIPT("AF",701,70,1015)=""
^DIPT("AF",701,70,1036)=""
^DIPT("AF",701,71,1008)=""
^DIPT("AF",701,71,1015)=""
^DIPT("AF",701,71,1036)=""
^DIPT("AF",701,72,1008)=""
^DIPT("AF",701,72,1015)=""
^DIPT("AF",701,72,1036)=""
^DIPT("AF",701,73,1008)=""
^DIPT("AF",701,73,1015)=""
^DIPT("AF",701,74,1008)=""
^DIPT("AF",701,74,1015)=""
^DIPT("AF",701,74,1036)=""
^DIPT("AF",701,75,1015)=""
^DIPT("AF",701,76,1015)=""
^DIPT("AF",701,77,1008)=""
^DIPT("AF",701,77,1015)=""
^DIPT("AF",701,78,1008)=""
^DIPT("AF",701,78,1015)=""
^DIPT("AF",701,79,1008)=""
^DIPT("AF",701,79,1015)=""
^DIPT("AF",701,80,1015)=""
^DIPT("AF",701,81,1015)=""
^DIPT("AF",701,82,1008)=""
^DIPT("AF",701,82,1015)=""
^DIPT("AF",701,83,1008)=""
^DIPT("AF",701,83,1015)=""
^DIPT("AF",701,83,1036)=""
^DIPT("AF",701,84,1008)=""
^DIPT("AF",701,84,1015)=""
^DIPT("AF",701,84,1036)=""
^DIPT("AF",701,85,1008)=""
^DIPT("AF",701,85,1015)=""
^DIPT("AF",701,86,1008)=""
^DIPT("AF",701,86,1015)=""
^DIPT("AF",701,87,1008)=""
^DIPT("AF",701,87,1015)=""
^DIPT("AF",701,88,1008)=""
^DIPT("AF",701,88,1015)=""
^DIPT("AF",701,88,1036)=""
^DIPT("AF",701,89,1008)=""
^DIPT("AF",701,89,1015)=""
^DIPT("AF",701,89,1036)=""
^DIPT("AF",701,89.1,1008)=""
^DIPT("AF",701,89.2,1008)=""
^DIPT("AF",701,89.2,1036)=""
^DIPT("AF",701,90,1008)=""
^DIPT("AF",701,90,1015)=""
^DIPT("AF",701,90,1036)=""
^DIPT("AF",701,91,1008)=""
^DIPT("AF",701,91,1015)=""
^DIPT("AF",701,92,1008)=""
^DIPT("AF",701,92,1015)=""
^DIPT("AF",701,93,1008)=""
^DIPT("AF",701,93,1015)=""
^DIPT("AF",701,94,1008)=""
^DIPT("AF",701,94,1015)=""
^DIPT("AF",701,94,1036)=""
^DIPT("AF",701,95,1008)=""
^DIPT("AF",701,95,1015)=""
^DIPT("AF",701,95,1036)=""
^DIPT("AF",701,96,1008)=""
^DIPT("AF",701,96,1015)=""
^DIPT("AF",701,96,1036)=""
^DIPT("AF",701,97,1008)=""
^DIPT("AF",701,97,1015)=""
^DIPT("AF",701,98,1008)=""
^DIPT("AF",701,98,1015)=""
^DIPT("AF",701,98,1036)=""
^DIPT("AF",701,99,1008)=""
^DIPT("AF",701,99,1015)=""
^DIPT("AF",701,99,1036)=""
^DIPT("AF",701,100,1008)=""
^DIPT("AF",701,100,1015)=""
^DIPT("AF",701,100,1036)=""
^DIPT("AF",701,101,1008)=""
^DIPT("AF",701,101,1015)=""
^DIPT("AF",701,102,1008)=""
^DIPT("AF",701,102,1015)=""
^DIPT("AF",701,102,1036)=""
^DIPT("AF",701,103,1008)=""
^DIPT("AF",701,103,1015)=""
^DIPT("AF",701,103,1036)=""
^DIPT("AF",701,104,1008)=""
^DIPT("AF",701,104,1015)=""
^DIPT("AF",701,105,1008)=""
^DIPT("AF",701,105,1015)=""
^DIPT("AF",701,106,1008)=""
^DIPT("AF",701,106,1015)=""
^DIPT("AF",701,107,1015)=""
^DIPT("AF",701,109,1011)=""
^DIPT("AF",701,109,1015)=""
^DIPT("AF",701,110,1008)=""
^DIPT("AF",701,110,1015)=""
^DIPT("AF",701,110,1036)=""
^DIPT("AF",701,111,1011)=""
^DIPT("AF",701,111,1015)=""
^DIPT("AF",701,111,1036)=""
^DIPT("AF",701,112,1011)=""
^DIPT("AF",701,112,1015)=""
^DIPT("AF",701,112,1036)=""
^DIPT("AF",701,112.5,1008)=""
^DIPT("AF",701,113,1011)=""
^DIPT("AF",701,113,1015)=""
^DIPT("AF",701,113,1036)=""
^DIPT("AF",701,114,1008)=""
^DIPT("AF",701,114,1015)=""
^DIPT("AF",701,115,1011)=""
^DIPT("AF",701,115,1015)=""
^DIPT("AF",701,116,1011)=""
^DIPT("AF",701,116,1015)=""
^DIPT("AF",701,117,1011)=""
^DIPT("AF",701,117,1015)=""
^DIPT("AF",701,118,1011)=""
^DIPT("AF",701,118,1015)=""
^DIPT("AF",701,118,1036)=""
^DIPT("AF",701,119,1011)=""
^DIPT("AF",701,119,1015)=""
^DIPT("AF",701,119,1036)=""
^DIPT("AF",701,120,1011)=""
^DIPT("AF",701,120,1015)=""
^DIPT("AF",701,121,1011)=""
^DIPT("AF",701,121,1015)=""
^DIPT("AF",701,122,1011)=""
^DIPT("AF",701,122,1015)=""
^DIPT("AF",701,123,1011)=""
^DIPT("AF",701,123,1015)=""
^DIPT("AF",701,124,1011)=""
^DIPT("AF",701,124,1015)=""
^DIPT("AF",701,125,1011)=""
^DIPT("AF",701,125,1015)=""
^DIPT("AF",701,126,1011)=""
^DIPT("AF",701,126,1015)=""
^DIPT("AF",701,127,1015)=""
^DIPT("AF",701,128,1011)=""
^DIPT("AF",701,128,1015)=""
^DIPT("AF",701,128,1037)=""
^DIPT("AF",701,129,1011)=""
^DIPT("AF",701,129,1015)=""
^DIPT("AF",701,129,1037)=""
^DIPT("AF",701,130,1011)=""
^DIPT("AF",701,130,1015)=""
^DIPT("AF",701,130,1037)=""
^DIPT("AF",701,131,1011)=""
^DIPT("AF",701,131,1015)=""
^DIPT("AF",701,131,1037)=""
^DIPT("AF",701,132,1015)=""
^DIPT("AF",701,133,1015)=""
^DIPT("AF",701,134,1011)=""
^DIPT("AF",701,134,1015)=""
^DIPT("AF",701,134,1037)=""
^DIPT("AF",701,135,1011)=""
^DIPT("AF",701,135,1015)=""
^DIPT("AF",701,135,1037)=""
^DIPT("AF",701,136,1011)=""
^DIPT("AF",701,136,1015)=""
^DIPT("AF",701,136,1037)=""
^DIPT("AF",701,137,1011)=""
^DIPT("AF",701,137,1015)=""
^DIPT("AF",701,137,1037)=""
^DIPT("AF",701,138,1011)=""
^DIPT("AF",701,138,1015)=""
^DIPT("AF",701,138,1037)=""
^DIPT("AF",701,139,1011)=""
^DIPT("AF",701,139,1015)=""
^DIPT("AF",701,139,1037)=""
^DIPT("AF",701,140,1011)=""
^DIPT("AF",701,140,1015)=""
^DIPT("AF",701,140,1037)=""
^DIPT("AF",701,141,1011)=""
^DIPT("AF",701,141,1015)=""
^DIPT("AF",701,141,1037)=""
^DIPT("AF",701,142,1011)=""
^DIPT("AF",701,142,1015)=""
^DIPT("AF",701,142,1037)=""
^DIPT("AF",701,143,1011)=""
^DIPT("AF",701,143,1015)=""
^DIPT("AF",701,143,1037)=""
^DIPT("AF",701,144,1015)=""
^DIPT("AF",701,145,1015)=""
^DIPT("AF",701,146,1011)=""
^DIPT("AF",701,146,1015)=""
^DIPT("AF",701,146,1037)=""
^DIPT("AF",701,147,1011)=""
^DIPT("AF",701,147,1015)=""
^DIPT("AF",701,147,1037)=""
^DIPT("AF",701,148,1011)=""
^DIPT("AF",701,148,1015)=""
^DIPT("AF",701,148,1037)=""
^DIPT("AF",701,149,1011)=""
^DIPT("AF",701,149,1015)=""
^DIPT("AF",701,149,1037)=""
^DIPT("AF",701,150,1011)=""
^DIPT("AF",701,150,1015)=""
^DIPT("AF",701,150,1037)=""
^DIPT("AF",701,151,1011)=""
^DIPT("AF",701,151,1015)=""
^DIPT("AF",701,151,1037)=""
^DIPT("AF",701,152,1011)=""
^DIPT("AF",701,152,1015)=""
^DIPT("AF",701,152,1037)=""
^DIPT("AF",701,153,1011)=""
^DIPT("AF",701,153,1015)=""
^DIPT("AF",701,153,1037)=""
^DIPT("AF",701,154,1011)=""
^DIPT("AF",701,154,1015)=""
^DIPT("AF",701,154,1037)=""
^DIPT("AF",701,155,1011)=""
^DIPT("AF",701,155,1015)=""
^DIPT("AF",701,155,1037)=""
^DIPT("AF",701,156,1011)=""
^DIPT("AF",701,156,1015)=""
^DIPT("AF",701,156,1037)=""
^DIPT("AF",701,157,1011)=""
^DIPT("AF",701,157,1015)=""
^DIPT("AF",701,157,1037)=""
^DIPT("AF",701,158,1011)=""
^DIPT("AF",701,158,1015)=""
^DIPT("AF",701,158,1037)=""
^DIPT("AF",701,159,1011)=""
^DIPT("AF",701,159,1015)=""
^DIPT("AF",701,159,1037)=""
^DIPT("AF",701,160,1011)=""
^DIPT("AF",701,160,1037)=""
^DIPT("AF",701,161,1011)=""
^DIPT("AF",701,161,1037)=""
^DIPT("AF",701,162,1011)=""
^DIPT("AF",701,162,1037)=""
^DIPT("AF",701,163,1011)=""
^DIPT("AF",701,163,1037)=""
^DIPT("AF",701,164,1011)=""
^DIPT("AF",701,297,1005)=""
^DIPT("AF",701,300,1004)=""
^DIPT("AF",701,302,1004)=""
^DIPT("AF",701,303,1004)=""
^DIPT("AF",701,304,1004)=""
^DIPT("AF",701,305,1004)=""
^DIPT("AF",701,306,1004)=""
^DIPT("AF",701,307,1004)=""
^DIPT("AF",701,309,1004)=""
^DIPT("AF",701,313,1005)=""
^DIPT("AF",701,314,1005)=""
^DIPT("AF",701,316,1005)=""
^DIPT("AF",701,317,1005)=""
^DIPT("AF",701,318,1005)=""
^DIPT("AF",701,319,1005)=""
^DIPT("AF",701,321,1005)=""
^DIPT("AF",701,322,1005)=""
^DIPT("AF",701,329,1011)=""
^DIPT("AF",701,329,1015)=""
^DIPT("AF",701,329,1037)=""
^DIPT("AF",701,350,1000)=""
^DIPT("AF",701,351,1000)=""
^DIPT("AF",701,352,1000)=""
^DIPT("AF",701,600,1037)=""
^DIPT("AF",701,601,1037)=""
^DIPT("AF",701,602,1004)=""
^DIPT("AF",701,605,1004)=""
^DIPT("AF",701,606,1004)=""
^DIPT("AF",701,610,1000)=""
^DIPT("AF",701,701,1010)=""
^DIPT("AF",701.01,.02,1037)=""
^DIPT("AF",701.0108,.01,1015)=""
^DIPT("AF",701.0201,.01,1037)=""
^DIPT("AF",701.0201,1,1037)=""
^DIPT("AF",701.0201,2,1037)=""
^DIPT("AF",701.0611,.01,1006)=""
^DIPT("AF",701.0615,.01,1010)=""
^DIPT("AF",701.0615,.01,1037)=""
^DIPT("AF",701.0615,1,1037)=""
^DIPT("AF",1020.3,1,506)=""
^DIPT("AF",1020.3,2,506)=""
^DIPT("AF",1020.3,3,506)=""
^DIPT("AF",1020.3,4,506)=""
^DIPT("AF",1020.3,5,506)=""
^DIPT("AF",1020.3,6,506)=""
^DIPT("AF",1020.3,7,506)=""
^DIPT("AF",1020.3,8,506)=""
^DIPT("AF",1020.3,9,506)=""
^DIPT("AF",1020.4,3,508)=""
^DIPT("AF",1020.4,4,508)=""
^DIPT("AF",1020.4,5,508)=""
^DIPT("AF",1020.6,1,508)=""
^DIPT("AF",6925,.01,157)=""
^DIPT("AF",6925,.01,158)=""
^DIPT("AF",6925,.01,161)=""
^DIPT("AF",6925,.01,162)=""
^DIPT("AF",6925,2,157)=""
^DIPT("AF",6925,2,158)=""
^DIPT("AF",6925,3.45,157)=""
^DIPT("AF",6925,3.45,161)=""
^DIPT("AF",6925,3.45,162)=""
^DIPT("AF",6925,3.5,157)=""
^DIPT("AF",6925,3.5,161)=""
^DIPT("AF",6925,3.5,162)=""
^DIPT("AF",6925,155,157)=""
^DIPT("AF",6925,155,158)=""
^DIPT("AF",6925,158.1,157)=""
^DIPT("AF",6925,158.1,158)=""
^DIPT("AF",6925,158.2,157)=""
^DIPT("AF",6925,158.2,158)=""
^DIPT("AF",6925,176,158)=""
^DIPT("AF",6925,179,157)=""
^DIPT("AF",6925,179,158)=""
^DIPT("AF",6925,181,157)=""
^DIPT("AF",6925,181,158)=""
^DIPT("AF",6925,182,157)=""
^DIPT("AF",6925,182,161)=""
^DIPT("AF",6925,182,162)=""
^DIPT("AF",6925,187.5,161)=""
^DIPT("AF",6925,187.5,162)=""
^DIPT("AF",6925,191,157)=""
^DIPT("AF",6925,191,158)=""
^DIPT("AF",6925,209,157)=""
^DIPT("AF",6925,209,158)=""
^DIPT("AF",6925,213,161)=""
^DIPT("AF",6925,214,161)=""
^DIPT("AF",6925,215,161)=""
^DIPT("AF",6925,216,161)=""
^DIPT("AF",6925,217,161)=""
^DIPT("AF",6925,218.1,161)=""
^DIPT("AF",6925,218.1,162)=""
^DIPT("AF",6925,218.2,161)=""
^DIPT("AF",6925,218.3,162)=""
^DIPT("AF",6925,219,161)=""
^DIPT("AF",6925,219,162)=""
^DIPT("AF",6925,220,161)=""
^DIPT("AF",6925,220,162)=""
^DIPT("AF",6925,220.1,161)=""
^DIPT("AF",6925,220.1,162)=""
^DIPT("AF",6925,221,162)=""
^DIPT("AF",6925,222,157)=""
^DIPT("AF",6925,222,161)=""
^DIPT("AF",6925,222,162)=""
^DIPT("AF",6925,223,157)=""
^DIPT("AF",6925,223,158)=""
^DIPT("AF",6925,234,161)=""
^DIPT("AF",6925,234,162)=""
^DIPT("AF",6925,235,157)=""
^DIPT("AF",6925,235,161)=""
^DIPT("AF",6925,235,162)=""
^DIPT("AF",6925,236,158)=""
^DIPT("AF",6925,237,158)=""
^DIPT("AF",6925,238,158)=""
^DIPT("AF",6925,238.5,158)=""
^DIPT("AF",6925,239,158)=""
^DIPT("AF",6925,240,158)=""
^DIPT("AF",6925,241,158)=""
^DIPT("AF",6925,242,158)=""
^DIPT("AF",6925.0192,.01,157)=""
^DIPT("AF",6925.0192,.01,158)=""
^DIPT("AF",6925.0277,.01,161)=""
^DIPT("AF",6925.0277,.01,162)=""
^DIPT("AF",6925.0278,.01,161)=""
^DIPT("AF",6925.0278,.01,162)=""
^DIPT("AF",6925.03,1,158)=""
^DIPT("AF",6925.03,2,158)=""
^DIPT("AF",6925.03,3,158)=""
^DIPT("AF",6925.03,4,158)=""
^DIPT("AF",6925.05,.01,157)=""
^DIPT("AF",6925.05,.01,158)=""
^DIPT("AF",6925.06,.01,157)=""
^DIPT("AF",6925.06,.01,158)=""
^DIPT("AF",8925,.01,1115)=""
^DIPT("AF",8925,.01,1116)=""
^DIPT("AF",8925,.01,1117)=""
^DIPT("AF",8925,.01,1118)=""
^DIPT("AF",8925,.01,1350)=""
^DIPT("AF",8925,.02,1115)=""
^DIPT("AF",8925,.02,1350)=""
^DIPT("AF",8925,.09,1115)=""
^DIPT("AF",8925,.09,1350)=""
^DIPT("AF",8925,.1,1115)=""
^DIPT("AF",8925,.1,1116)=""
^DIPT("AF",8925,.1,1117)=""
^DIPT("AF",8925,.1,1118)=""
^DIPT("AF",8925,.1,1350)=""
^DIPT("AF",8925,1302,1117)=""
^DIPT("AF",8925,1404,1118)=""
^DIPT("AF",9009032.4,.01,468)=""
^DIPT("AF",9009032.4,.02,468)=""
^DIPT("AF",9009032.4,.03,468)=""
^DIPT("AF",9009032.4,.04,468)=""
^DIPT("AF",9009032.4,.05,468)=""
^DIPT("AF",9009032.4,.06,468)=""
^DIPT("AF",9009032.4,.08,468)=""
^DIPT("AF",9009032.4,.09,468)=""
^DIPT("AF",9009032.4,.11,468)=""
^DIPT("AF",9009032.4,.12,468)=""
^DIPT("AF",9009032.411,.01,468)=""
^DIPT("AF",9009032.412,.01,468)=""
^DIPT("AF",9009032.413,.01,468)=""
^DIPT("AF",9009032.414,.01,468)=""
^DIPT("AF",9009032.415,.01,468)=""
^DIPT("AF",9009032.416,.01,468)=""
^DIPT("B","801HEADER",1425)=""
^DIPT("B","801notsenttopce",1424)=""
^DIPT("B","ABSV AJR REPORT",1258)=""
^DIPT("B","ABSV ALPHA LIST",1151)=""
^DIPT("B","ABSV ALPHA PRINT",963)=""
^DIPT("B","ABSV BATCH LIST",948)=""
^DIPT("B","ABSV CERTIFYING OFFICIAL",1260)=""
^DIPT("B","ABSV DIRECTORY PRINT",1157)=""
^DIPT("B","ABSV DON ACK VALUE PRINT",1306)=""
^DIPT("B","ABSV DON DATE STATS",1312)=""
^DIPT("B","ABSV DON DONOR STATISTICS",1310)=""
^DIPT("B","ABSV DON EXPORT",1315)=""
^DIPT("B","ABSV DON FISCAL PRINT",1307)=""
^DIPT("B","ABSV DON FUND STATS",1313)=""
^DIPT("B","ABSV DON IND ORG",1308)=""
^DIPT("B","ABSV DON INDIVIDUAL",1304)=""
^DIPT("B","ABSV DON ORG STATS",1311)=""
^DIPT("B","ABSV DON ORG VALUE PRINT",1302)=""
^DIPT("B","ABSV DON POST",1309)=""
^DIPT("B","ABSV DON RECEIVED PRINT",1303)=""
^DIPT("B","ABSV DON TYPE STATS",1314)=""
^DIPT("B","ABSV DON TYPE VALUE PRINT",1305)=""
^DIPT("B","ABSV ERROR LIST",950)=""
^DIPT("B","ABSV GAMES ASSIGNMENT SCHEDULE",1202)=""
^DIPT("B","ABSV GAMES MASTER REGISTRATION",1203)=""
^DIPT("B","ABSV GAMES SHIRT LIST",1204)=""
^DIPT("B","ABSV GAMES SIGN-IN LIST",1205)=""
^DIPT("B","ABSV GAMES WORK SCHEDULE",1201)=""
^DIPT("B","ABSV LABEL",964)=""
^DIPT("B","ABSV MONTHLY REPORT",954)=""
^DIPT("B","ABSV MONTHLY SUMMARY",955)=""
^DIPT("B","ABSV NOM BY ORGANIZATION",1259)=""
^DIPT("B","ABSV OCC BATCH LIST",959)=""
^DIPT("B","ABSV OCC ERROR LIST",958)=""
^DIPT("B","ABSV OCC HRS ORG SUMMARY",1154)=""
^DIPT("B","ABSV OCC HRS SERV SUMMARY",1155)=""
^DIPT("B","ABSV OCC HRS SUMMARY",1156)=""
^DIPT("B","ABSV OCC TRANSMIT",957)=""
^DIPT("B","ABSV ORGANIZATION CONDENSED",1181)=""
^DIPT("B","ABSV ORGANIZATION DETAIL LIST",946)=""
^DIPT("B","ABSV ORGANIZATION SUMMARY",952)=""
^DIPT("B","ABSV POST ERROR PRINT",962)=""
^DIPT("B","ABSV POST PRINT",961)=""
^DIPT("B","ABSV POTENTIAL AWARD LIST",1158)=""
^DIPT("B","ABSV REVIEW DAILY ENTRIES",951)=""
^DIPT("B","ABSV SCAN",967)=""
^DIPT("B","ABSV SELECTED STATION INFO",1153)=""
^DIPT("B","ABSV SERVICE LIST",947)=""
^DIPT("B","ABSV SERVICE SUMMARY",953)=""
^DIPT("B","ABSV SIGN-IN LIST",1182)=""
^DIPT("B","ABSV STATION LIST",966)=""
^DIPT("B","ABSV TC PRINT",956)=""
^DIPT("B","ABSV TEST LABEL",1152)=""
^DIPT("B","ABSV TRANSMIT",949)=""
^DIPT("B","ABSV TT88 LIST",965)=""
^DIPT("B","ABSV WEEKLY WORK SUMMARY",960)=""
^DIPT("B","ABSVM OCCASIONAL EXPORT",1326)=""
^DIPT("B","ABSVM ORGANIZATION EXPORT",1325)=""
^DIPT("B","ABSVM PARKING EXPORT",1332)=""
^DIPT("B","ABSVM PROFILES EXPORT",1330)=""
^DIPT("B","ABSVM REGULAR HOURS EXPORT",1327)=""
^DIPT("B","ABSVM SERVICE CODES EXPORT",1324)=""
^DIPT("B","ABSVM VOL COMBINATIONS EXPORT",1331)=""
^DIPT("B","ABSVM VOL CONTACT EXPORT",1329)=""
^DIPT("B","ABSVM VOL MASTER EXPORT",1328)=""
^DIPT("B","ACKQ WORKLOAD DISPLAY",968)=""
^DIPT("B","ANRV AGE LIST",1169)=""
^DIPT("B","ANRV BIRTH LIST",1170)=""
^DIPT("B","ANRV CHECKLIST",1177)=""
^DIPT("B","ANRV CLAIM REC INQ",1180)=""
^DIPT("B","ANRV DECEASED LIST",1168)=""
^DIPT("B","ANRV ELIG AMIS LIST",1176)=""
^DIPT("B","ANRV EYE DIAG INQ",1172)=""
^DIPT("B","ANRV EYE DIAG NAR",1173)=""
^DIPT("B","ANRV EYE DIAG PRINT",1171)=""
^DIPT("B","ANRV FEE PT",1175)=""
^DIPT("B","ANRV INC AMIS",1167)=""
^DIPT("B","ANRV REFERRAL LIST",1174)=""
^DIPT("B","ANRV REVIEW INQ",1166)=""
^DIPT("B","ANRV ROSTER A/R",1165)=""
^DIPT("B","ANRVAD",1160)=""
^DIPT("B","ANRVED",1163)=""
^DIPT("B","ANRVFVD",1164)=""
^DIPT("B","ANRVID",1162)=""
^DIPT("B","ANRVPR",1179)=""
^DIPT("B","ANRVREV",1161)=""
^DIPT("B","ANRVRRL",1178)=""
^DIPT("B","ARCHIVE BLOOD TEMPLATE",130)=""
^DIPT("B","BPS TECH - FILES",1387)=""
^DIPT("B","BPS TECH - OPTIONS",1388)=""
^DIPT("B","CAPTIONED",.01)=""
^DIPT("B","DDXP FORMAT DOC",.441)=""
^DIPT("B","DDXP FORMAT DOC HDR",.442)=""
^DIPT("B","DG ACTIVE PRIORITY GROUPS",214)=""
^DIPT("B","DG BAI",1407)=""
^DIPT("B","DG FEMALE HISTORICAL",193)=""
^DIPT("B","DG FEMALE INPATIENTS",191)=""
^DIPT("B","DG ISO SENSITIVE RCDS PRT",1411)=""
^DIPT("B","DG ISO SENSITIVE RCDS PRT1",1412)=""
^DIPT("B","DG MISSING SSN PRINT",1227)=""
^DIPT("B","DG NPTF TOTALS",1189)=""
^DIPT("B","DG PTF NO ADMISSION",218)=""
^DIPT("B","DG PTF PT BRIEF LIST",217)=""
^DIPT("B","DG SI LIST",190)=""
^DIPT("B","DGADTRESVB",204)=""
^DIPT("B","DGBED",206)=""
^DIPT("B","DGBT CLAIM STATS",227)=""
^DIPT("B","DGBT MILES",224)=""
^DIPT("B","DGBT REMARKS",225)=""
^DIPT("B","DGBT ZIP",226)=""
^DIPT("B","DGCODING REPORT",203)=""
^DIPT("B","DGDISPOSTIONS",192)=""
^DIPT("B","DGDRGENTER",207)=""
^DIPT("B","DGENCD ELIG CODE",1218)=""
^DIPT("B","DGENCD ELIG HDR",1219)=""
^DIPT("B","DGICD",199)=""
^DIPT("B","DGNOTE",194)=""
^DIPT("B","DGOD COMPLETE INP PRINT",210)=""
^DIPT("B","DGOD COMPLETE OPC PRINT",209)=""
^DIPT("B","DGOPENDISPOSITIONS",195)=""
^DIPT("B","DGOPENPTF",200)=""
^DIPT("B","DGPM INPATIENT PRINT",219)=""
^DIPT("B","DGPMBLRV",220)=""
^DIPT("B","DGPMINPATIENT",221)=""
^DIPT("B","DGPT CENSUS CODING REPORT",215)=""
^DIPT("B","DGPT CENSUS INQUIRY",212)=""
^DIPT("B","DGPT CENSUS UNRELEASED",213)=""
^DIPT("B","DGPT EXPANDED CODE LIST",222)=""
^DIPT("B","DGPT FEE BASIS",1408)=""
^DIPT("B","DGPT PRINT",223)=""
^DIPT("B","DGPT QUICK PROFILE",216)=""
^DIPT("B","DGPT WORKFILE",211)=""
^DIPT("B","DGPTF",197)=""
^DIPT("B","DGSCHAD",208)=""
^DIPT("B","DGTEST",202)=""
^DIPT("B","DGTREAT",205)=""
^DIPT("B","DGUNRELEASED",198)=""
^DIPT("B","DGUPDATE",201)=""
^DIPT("B","DGWAIT LIST",196)=""
^DIPT("B","DI-PKG-DEFAULT-DEFINITION",.941)=""
^DIPT("B","DSIC RPC LIST",1345)=""
^DIPT("B","DVBA 21 DAY CERT",529)=""
^DIPT("B","DVBA ADMISSION REVIEW",521)=""
^DIPT("B","DVBA C CHECK DR STRING",525)=""
^DIPT("B","DVBA C EXAM CHECKLIST",522)=""
^DIPT("B","DVBA C EXAM CHECKLIST HEADER",523)=""
^DIPT("B","DVBA C EXAM LAYOUT",524)=""
^DIPT("B","DVBA C REQUESTS BY DATE RANGE",526)=""
^DIPT("B","DVBA C REQUESTS BY PHYSICIAN",527)=""
^DIPT("B","DVBA FINALIZED REPORT",519)=""
^DIPT("B","DVBA INCOMP REQ REPORT",518)=""
^DIPT("B","DVBA NOT/DIS-21 DAY CERT CHECK",520)=""
^DIPT("B","DVBA NOTICE OF DISCHARGE",528)=""
^DIPT("B","DVBA STATUS",517)=""
^DIPT("B","DVBHINQ AUDIT/DT",514)=""
^DIPT("B","DVBHINQ AUDIT/PAT",516)=""
^DIPT("B","DVBHINQ AUDIT/USER",515)=""
^DIPT("B","DVBHINQ PAT-HINQ COMP",513)=""
^DIPT("B","ECX CLINIC CODE",1140)=""
^DIPT("B","ECX LAB TEST HEADER",1427)=""
^DIPT("B","ECX LAB TEST PRINT",1426)=""
^DIPT("B","ECX LOG",1139)=""
^DIPT("B","EN EQ HIST",137)=""
^DIPT("B","EN EQ HIST HD",1096)=""
^DIPT("B","EN PM HOURS",156)=""
^DIPT("B","EN RESEARCH EXTRACT",1429)=""
^DIPT("B","ENARCHIVE",136)=""
^DIPT("B","ENCMR",153)=""
^DIPT("B","ENCMR HD",1109)=""
^DIPT("B","ENCMRC",1112)=""
^DIPT("B","ENEQ EQUIP. LIST",135)=""
^DIPT("B","ENEQ REPLACEMENT",134)=""
^DIPT("B","ENEQ WARRANTY",133)=""
^DIPT("B","ENEXP",1111)=""
^DIPT("B","ENEXP HD",1110)=""
^DIPT("B","ENEXPC",1113)=""
^DIPT("B","ENFSA1",145)=""
^DIPT("B","ENGSADDITIONAL",151)=""
^DIPT("B","ENGSCONTRACT",148)=""
^DIPT("B","ENGSGENERAL",150)=""
^DIPT("B","ENGSPERSONNEL",149)=""
^DIPT("B","ENIT ASSIGNMENT INQ",1463)=""
^DIPT("B","ENPLP001",154)=""
^DIPT("B","ENPLP003",155)=""
^DIPT("B","ENPLP005",157)=""
^DIPT("B","ENPLP006",158)=""
^DIPT("B","ENPLP008",161)=""
^DIPT("B","ENPLP009",162)=""
^DIPT("B","ENSP-BLDG",160)=""
^DIPT("B","ENSP-H08-9",159)=""
^DIPT("B","ENSP-ROOM-LOCK",146)=""
^DIPT("B","ENSPFRD",144)=""
^DIPT("B","ENSPFRDCEILING",138)=""
^DIPT("B","ENSPFRDDWALL",152)=""
^DIPT("B","ENSPFRDFLOOR",140)=""
^DIPT("B","ENSPFRDWALL",139)=""
^DIPT("B","ENSPPREMP",143)=""
^DIPT("B","ENSPPRKEY",142)=""
^DIPT("B","ENSPR144",147)=""
^DIPT("B","ENSPRM",141)=""
^DIPT("B","ENXKFAP",163)=""
^DIPT("B","ESP ALL EVIDENCE RECORDS",887)=""
^DIPT("B","ESP CAR POOL ASSIGNMENTS",895)=""
^DIPT("B","ESP CAR POOL AVAILABILITY LIST",894)=""
^DIPT("B","ESP CASE ASSIGNMENT REGISTER",890)=""
^DIPT("B","ESP DAILY JOURNAL STATISTICS",1262)=""
^DIPT("B","ESP DAILY SHIFT JOURNAL",1261)=""
^DIPT("B","ESP LOCATE VIOLATION PRINT",891)=""
^DIPT("B","ESP MISSING PATIENT REPORT-ALL",897)=""
^DIPT("B","ESP MISSING PATIENT REPORT-OPN",898)=""
^DIPT("B","ESP OFFENSE MATCH REPORT",892)=""
^DIPT("B","ESP OPEN EVIDENCE RECORDS",888)=""
^DIPT("B","ESP PERSONAL DESCRIPTOR LOOKUP",893)=""
^DIPT("B","ESP STATUTE LOOKUP",885)=""
^DIPT("B","ESP TRAINING",886)=""
^DIPT("B","ESP VEHICLE REGISTRATION LOG",882)=""
^DIPT("B","ESP VIOLATIONS BY OFFICER",896)=""
^DIPT("B","ESP VIOLATIONS ISSUED",884)=""
^DIPT("B","ESP WANTS & WARRANTS LIST",889)=""
^DIPT("B","ESP WARNINGS/VIOLATIONS ISSUED",883)=""
^DIPT("B","FB BATCH LIST",588)=""
^DIPT("B","FBAA RX PENDING",589)=""
^DIPT("B","FBCH 7078 CANCEL",591)=""
^DIPT("B","FBCH PENDING REQUEST",590)=""
^DIPT("B","FBUC STATUS BY PATIENT",592)=""
^DIPT("B","FBUC STATUS BY VENDOR",593)=""
^DIPT("B","FHDIETL",66)=""
^DIPT("B","FHISLST",67)=""
^DIPT("B","FHNULST",59)=""
^DIPT("B","FHORCON",64)=""
^DIPT("B","FHORWRD",65)=""
^DIPT("B","FHPROD",68)=""
^DIPT("B","FHPROP",71)=""
^DIPT("B","FHPSTO",69)=""
^DIPT("B","FHRECC",70)=""
^DIPT("B","FHSELIST",74)=""
^DIPT("B","FHSELST2",1461)=""
^DIPT("B","FHSFLST",61)=""
^DIPT("B","FHSFMENU",60)=""
^DIPT("B","FHSYP1",72)=""
^DIPT("B","FHSYP2",73)=""
^DIPT("B","FHTFLST",63)=""
^DIPT("B","FHUMENU",62)=""
^DIPT("B","FILE SECURITY CODES",.02)=""
^DIPT("B","GECS BATCH STATUS",168)=""
^DIPT("B","GECS BATCHES WAITING",167)=""
^DIPT("B","GECS READY FOR BATCHING",164)=""
^DIPT("B","GECS READY FOR TRANSMISSION",165)=""
^DIPT("B","GECS TRANSMISSION",169)=""
^DIPT("B","GECS TRANSMIT LIST",166)=""
^DIPT("B","GMRA PRINT AUTOVERIFIED",173)=""
^DIPT("B","GMRA PRINT FILE 120.83",473)=""
^DIPT("B","GMRA PRT AUTO HDR",174)=""
^DIPT("B","GMRC CONSULTS LIST",188)=""
^DIPT("B","GMRC CONSULTS LIST HEADER",189)=""
^DIPT("B","GMRC PROTOCOL LIST",185)=""
^DIPT("B","GMRC PROTOCOL RPT",186)=""
^DIPT("B","GMRC PROTOCOL RPT HDR",187)=""
^DIPT("B","GMTS COMP DESC LIST",181)=""
^DIPT("B","GMTS COMP INQ",182)=""
^DIPT("B","GMTS COMP INQ HEADER",183)=""
^DIPT("B","GMTS COMP LIST",175)=""
^DIPT("B","GMTS TASK LOCATIONS LIST",180)=""
^DIPT("B","GMTS TYPE INQ",178)=""
^DIPT("B","GMTS TYPE INQ FOOTER",179)=""
^DIPT("B","GMTS TYPE INQ HEADER",177)=""
^DIPT("B","GMTS TYPE LIST",176)=""
^DIPT("B","GREGG",1061)=""
^DIPT("B","GREGG1",1062)=""
^DIPT("B","GREGG2",1063)=""
^DIPT("B","HL PROTOCOL MESSAGING FIELDS",1338)=""
^DIPT("B","HLEV REMOTE REQUESTABLE",1349)=""
^DIPT("B","HLEV REPORT MONITOR-ONE LINE",1348)=""
^DIPT("B","IB AB COMMENTS",255)=""
^DIPT("B","IB APPOINTMENT TYPE",244)=""
^DIPT("B","IB BILLING CLOCK HEADER",242)=""
^DIPT("B","IB BILLING CLOCK INQ",243)=""
^DIPT("B","IB BILLING PAT W/INCOME",249)=""
^DIPT("B","IB BILLING PATIENT",247)=""
^DIPT("B","IB BILLING PATIENT SUMMARY",248)=""
^DIPT("B","IB BILLING RATES",233)=""
^DIPT("B","IB CLK PROD",241)=""
^DIPT("B","IB CLK PROD HDR",1060)=""
^DIPT("B","IB CPT CP DISPLAY",238)=""
^DIPT("B","IB CPT PG DISPLAY",237)=""
^DIPT("B","IB CPT UPDATE ERROR",236)=""
^DIPT("B","IB DIVISION DISPLAY",240)=""
^DIPT("B","IB DO NOT USE",251)=""
^DIPT("B","IB INACTIVE INS CO",252)=""
^DIPT("B","IB INCOMPLETE",235)=""
^DIPT("B","IB LIST",234)=""
^DIPT("B","IB PATIENT ADDRESSES",250)=""
^DIPT("B","IB PRINT THRESHOLD",246)=""
^DIPT("B","IB PURGE LIST LOG ENTRIES",245)=""
^DIPT("B","IBCE LOCAL DATA ELEMENTS",1232)=""
^DIPT("B","IBCE RULE DISPLAY",1300)=""
^DIPT("B","IBCE RULE DISPLAY HEADER",1301)=""
^DIPT("B","IBCEM MESSAGE LIST",1299)=""
^DIPT("B","IBCEM MESSAGE LIST HDR",1298)=""
^DIPT("B","IBD LIST ERRORS",1099)=""
^DIPT("B","IBD NO APPOINTMENT LIST",1141)=""
^DIPT("B","IBJD DM REPT PRINT",1213)=""
^DIPT("B","IBJD DM V/P EXTRACTS",1212)=""
^DIPT("B","IBNOTVER",253)=""
^DIPT("B","IBT LIST VISITS",254)=""
^DIPT("B","IBT QUICK REV CODING STAT",1423)=""
^DIPT("B","ICPT MODIFIERS BY RANGE",1100)=""
^DIPT("B","ICPT PRINT",1101)=""
^DIPT("B","LA ASHANT",1075)=""
^DIPT("B","LA ASHORG",1074)=""
^DIPT("B","LA7S PRINT",1146)=""
^DIPT("B","LBRY ADMIN RECIPIENTS",675)=""
^DIPT("B","LBRY ADMIN TITLES",669)=""
^DIPT("B","LBRY BRIEF MEDICAL HOLDINGS",664)=""
^DIPT("B","LBRY BRIEF MEDICAL/SUBJECT",666)=""
^DIPT("B","LBRY DONOR TITLES",670)=""
^DIPT("B","LBRY FYI LIST",674)=""
^DIPT("B","LBRY GAPS LIST",657)=""
^DIPT("B","LBRY MEDICAL BY SUBJECT",665)=""
^DIPT("B","LBRY MEDICAL HOLDINGS",663)=""
^DIPT("B","LBRY MEDICAL SUBSCRIPTIONS",667)=""
^DIPT("B","LBRY MICROFILM HOLDINGS",658)=""
^DIPT("B","LBRY MICROFILM HOLDINGS 2",1335)=""
^DIPT("B","LBRY MICROFILM VENDOR",662)=""
^DIPT("B","LBRY MISSING ISSUES HEADER",654)=""
^DIPT("B","LBRY MISSING ISSUES LIST",653)=""
^DIPT("B","LBRY MISSING ISSUES LIST 2",1337)=""
^DIPT("B","LBRY NEW LOCAL TITLES",617)=""
^DIPT("B","LBRY PATIENT HOLDINGS",668)=""
^DIPT("B","LBRY PATIENT TITLES",671)=""
^DIPT("B","LBRY PATIENT TITLES BRIEF",672)=""
^DIPT("B","LBRY PATRON TITLES",618)=""
^DIPT("B","LBRY RECIPIENTS BY TITLE",660)=""
^DIPT("B","LBRY RECIPIENTS WITH TITLES",661)=""
^DIPT("B","LBRY ROUTE-TO-RETURN",673)=""
^DIPT("B","LBRY SUBSCRIPTION/VENDOR",659)=""
^DIPT("B","LBRY TITLE ALPHABETICAL",678)=""
^DIPT("B","LBRY TITLE ALPHABETICAL BRIEF",679)=""
^DIPT("B","LBRY TITLE LOCATION",655)=""
^DIPT("B","LBRY TITLE LOCATION BRIEF",656)=""
^DIPT("B","LBRY TITLES DUE RENEWAL",1147)=""
^DIPT("B","LBRY TITLES DUE RENEWAL 2",1336)=""
^DIPT("B","LBRY UNION LIST BRIEF",677)=""
^DIPT("B","LBRY UNION LIST CODE",676)=""
^DIPT("B","LR ACC INFO",82)=""
^DIPT("B","LR ACCESSION",83)=""
^DIPT("B","LR ACCESSION INFO",84)=""
^DIPT("B","LR ANTIGEN/ANTIBODY LISTING",90)=""
^DIPT("B","LR CAP ELROY",1159)=""
^DIPT("B","LR FILE 68",85)=""
^DIPT("B","LR LAB SECTION LIST BY ABBREV",77)=""
^DIPT("B","LR LAB SECTION LIST BY NAME",76)=""
^DIPT("B","LR LAB SUBSECTION BY SECTION",78)=""
^DIPT("B","LR LAB SUBSECTION LIST",79)=""
^DIPT("B","LR TEST DICTIONARY",80)=""
^DIPT("B","LR WKLD CODE BY SECTION",121)=""
^DIPT("B","LR WKLD CODE LIST BY NAME",117)=""
^DIPT("B","LR WKLD CODE LIST BY WKLD CODE",116)=""
^DIPT("B","LR WKLD SUFFIX BY LAB SECTION",120)=""
^DIPT("B","LR WKLD SUFFIX BY MANUFACTURE",122)=""
^DIPT("B","LRAR ARCHIVE 65",131)=""
^DIPT("B","LRAR ARCHIVE 67.9",1052)=""
^DIPT("B","LRAR ARCHIVE WKLD DATA 64.1",1053)=""
^DIPT("B","LRAUTOINST",124)=""
^DIPT("B","LRBL ANTIBODIES",113)=""
^DIPT("B","LRBL APHERESIS DONORS",99)=""
^DIPT("B","LRBL CAP CODES",115)=""
^DIPT("B","LRBL COLLECTION DISP RPT",109)=""
^DIPT("B","LRBL DEFERRAL REPORT",98)=""
^DIPT("B","LRBL DESCRIPTIONS",91)=""
^DIPT("B","LRBL DISCARDED UNITS DISP",125)=""
^DIPT("B","LRBL DISPOSITION TOTALS",106)=""
^DIPT("B","LRBL DONOR TESTING REPORT",108)=""
^DIPT("B","LRBL DONOR TESTING SUPPLEMENT",112)=""
^DIPT("B","LRBL EMERGENCY DONORS",96)=""
^DIPT("B","LRBL EX-DONOR REPORT",102)=""
^DIPT("B","LRBL FIRST TIME DONORS",100)=""
^DIPT("B","LRBL GROUP AFFILIATION REPORT",111)=""
^DIPT("B","LRBL GROUP DONATION REPORT",104)=""
^DIPT("B","LRBL ISSUES TO SURGERY",105)=""
^DIPT("B","LRBL MOBILE REPORT",101)=""
^DIPT("B","LRBL MONTHLY RECALL LIST",97)=""
^DIPT("B","LRBL PATIENT CREDIT",95)=""
^DIPT("B","LRBL PRODUCT REJECTION REPORT",110)=""
^DIPT("B","LRBL SHORT DRAW REPORT",103)=""
^DIPT("B","LRBL TRANSFUSION REACTIONS",126)=""
^DIPT("B","LRBL WASTAGE REPORT",107)=""
^DIPT("B","LRBL WKLD CODES",118)=""
^DIPT("B","LRBLAG WKLD CODES",119)=""
^DIPT("B","LRBLD GALLON",89)=""
^DIPT("B","LRBLD SCHEDULING",88)=""
^DIPT("B","LRBLDP",93)=""
^DIPT("B","LRBLDPD",87)=""
^DIPT("B","LRBLDSP",94)=""
^DIPT("B","LRBLINV",92)=""
^DIPT("B","LRBLITR",86)=""
^DIPT("B","LRBLTX",75)=""
^DIPT("B","LRINTEG VERSION COMPARE PRINT",114)=""
^DIPT("B","LRSP",123)=""
^DIPT("B","LRUCNG",81)=""
^DIPT("B","MAG FAILED IMAGES",1279)=""
^DIPT("B","MAG REPORT 1",1464)=""
^DIPT("B","MAG REPORT 2",1465)=""
^DIPT("B","MAG REPORT 3",1466)=""
^DIPT("B","MAG REPORT 4",1467)=""
^DIPT("B","MAGD CR PARAM LIST",1473)=""
^DIPT("B","MAGD CT PARAMETERS",1472)=""
^DIPT("B","MAGJ CPT MATCH PRT",1435)=""
^DIPT("B","MAGJ PRIOR PRINT",1297)=""
^DIPT("B","MAGREADTIME",1468)=""
^DIPT("B","MAGREPAIR",1469)=""
^DIPT("B","MAGSTATUS",1470)=""
^DIPT("B","MAGUSER",1471)=""
^DIPT("B","MCARCATH1",974)=""
^DIPT("B","MCARCATH2",973)=""
^DIPT("B","MCARCATH3",972)=""
^DIPT("B","MCARCATH4",971)=""
^DIPT("B","MCARCATHBRPR",1019)=""
^DIPT("B","MCARECGBRPR",1020)=""
^DIPT("B","MCARECHOBRPR",1021)=""
^DIPT("B","MCAREKG1",976)=""
^DIPT("B","MCAREP1",977)=""
^DIPT("B","MCAREP1A",1014)=""
^DIPT("B","MCAREP2",1041)=""
^DIPT("B","MCAREP3",978)=""
^DIPT("B","MCAREPBRPR",1022)=""
^DIPT("B","MCARETT1",975)=""
^DIPT("B","MCARETTBRPR",1024)=""
^DIPT("B","MCARGIBRPR",1026)=""
^DIPT("B","MCARGICON",982)=""
^DIPT("B","MCARGINON",983)=""
^DIPT("B","MCARGINONBRPR",1027)=""
^DIPT("B","MCARGIRCLI",981)=""
^DIPT("B","MCARHEMB",986)=""
^DIPT("B","MCARHEMBRPR",1030)=""
^DIPT("B","MCARHEMD",985)=""
^DIPT("B","MCARHEMF",987)=""
^DIPT("B","MCARHOLT1",979)=""
^DIPT("B","MCARHOLT2",980)=""
^DIPT("B","MCARHOLTERBRPR",1023)=""
^DIPT("B","MCAROG",984)=""
^DIPT("B","MCAROGA",1001)=""
^DIPT("B","MCAROGH",1012)=""
^DIPT("B","MCAROGM",1013)=""
^DIPT("B","MCAROP",1002)=""
^DIPT("B","MCAROPA",989)=""
^DIPT("B","MCAROPE",1003)=""
^DIPT("B","MCAROPS",991)=""
^DIPT("B","MCAROPV",990)=""
^DIPT("B","MCAROPZ",1042)=""
^DIPT("B","MCARPACALEADBRPR",1032)=""
^DIPT("B","MCARPACEGENBRPR",1031)=""
^DIPT("B","MCARPACVLEADBRPR",1033)=""
^DIPT("B","MCARPG",988)=""
^DIPT("B","MCARPULMBRPR",1028)=""
^DIPT("B","MCARSR",993)=""
^DIPT("B","MCARSR1",994)=""
^DIPT("B","MCARSR2",995)=""
^DIPT("B","MCARSR3",996)=""
^DIPT("B","MCARSR4",998)=""
^DIPT("B","MCCBRZ",1039)=""
^DIPT("B","MCCONSULT",1016)=""
^DIPT("B","MCCONSULTBRPR",1025)=""
^DIPT("B","MCESPRT",1040)=""
^DIPT("B","MCFSFGM",1043)=""
^DIPT("B","MCGENERICBRPR",1035)=""
^DIPT("B","MCGENERICPRINT",1018)=""
^DIPT("B","MCNONENDOPARAC",1278)=""
^DIPT("B","MCPACSURVBRPR",1034)=""
^DIPT("B","MCPFTBRIEF",1017)=""
^DIPT("B","MCPFTBRPR",1029)=""
^DIPT("B","MCPFTBRPR1",1038)=""
^DIPT("B","MCPFTP",997)=""
^DIPT("B","MCRHBACK",999)=""
^DIPT("B","MCRHBRPR",1036)=""
^DIPT("B","MCRHBRPR1",1037)=""
^DIPT("B","MCRHDEATH",1005)=""
^DIPT("B","MCRHHAQ",1004)=""
^DIPT("B","MCRHHIST",1000)=""
^DIPT("B","MCRHLAB",1009)=""
^DIPT("B","MCRHNARR",1006)=""
^DIPT("B","MCRHPHYS",1015)=""
^DIPT("B","MCRHPHYS1",1008)=""
^DIPT("B","MCRHPHYS2",1011)=""
^DIPT("B","MCRHPROG",1010)=""
^DIPT("B","MD CONVERSION ERRORS",1438)=""
^DIPT("B","MD CONVERSION SUMMARY",1437)=""
^DIPT("B","MD CONVERSION TOTALS",1439)=""
^DIPT("B","MPIF OUTSTANDING REQUESTS",1216)=""
^DIPT("B","MPIF REQUEST VIEW",1217)=""
^DIPT("B","NURA-H-EXCEPTION",567)=""
^DIPT("B","NURA-H-MDEXCEPTION",569)=""
^DIPT("B","NURA-P-A1106B",565)=""
^DIPT("B","NURA-P-EXCEPTION",568)=""
^DIPT("B","NURA-P-SVC-POSITION",566)=""
^DIPT("B","NURS-H-MANHOURS",572)=""
^DIPT("B","NURS-P-MANHOURS",571)=""
^DIPT("B","NURS-P-STF",574)=""
^DIPT("B","NURS-PRINT ENTRIES",573)=""
^DIPT("B","ONC DISEASE INDEX",1272)=""
^DIPT("B","ONC EXTRACT",1281)=""
^DIPT("B","ONC EXTRACT REPORT",1295)=""
^DIPT("B","ONCO ABSTRACT NOT-COMPLETE",838)=""
^DIPT("B","ONCO ACCREG-ACOS80",830)=""
^DIPT("B","ONCO ACCREG-EOVA132",831)=""
^DIPT("B","ONCO ACCREG-SITE/GP80",832)=""
^DIPT("B","ONCO ACOS DOCUMENTATION",765)=""
^DIPT("B","ONCO AJCC SUMMARY STAGE GPS",855)=""
^DIPT("B","ONCO ANNUAL ACCREG80",833)=""
^DIPT("B","ONCO ANNUAL ACCREG80-HDR",834)=""
^DIPT("B","ONCO ANNUAL CLASS/PATIENT",854)=""
^DIPT("B","ONCO ANNUAL CLASS/PATIENT-HDR",853)=""
^DIPT("B","ONCO ANNUAL HIST/SITE/ICDO",866)=""
^DIPT("B","ONCO ANNUAL ICDO/STAGE/TX",864)=""
^DIPT("B","ONCO ANNUAL PATIENT INDX",840)=""
^DIPT("B","ONCO ANNUAL PATIENT INDX-HDR",841)=""
^DIPT("B","ONCO ANNUAL PATIENT INFO",868)=""
^DIPT("B","ONCO ANNUAL PATIENT INFO-HDR",867)=""
^DIPT("B","ONCO ANNUAL SITE/GP",819)=""
^DIPT("B","ONCO ANNUAL SITE/GP-HDR",818)=""
^DIPT("B","ONCO ANNUAL SITE/ICDT/ICDM",856)=""
^DIPT("B","ONCO ANNUAL SITE/STAGE/TX",871)=""
^DIPT("B","ONCO ANNUAL SITE/STAGE/TX-HDR",870)=""
^DIPT("B","ONCO ANNUAL SITE/STG/TX",869)=""
^DIPT("B","ONCO ANNUAL TREATMENT",857)=""
^DIPT("B","ONCO CASEFINDING REPORT",808)=""
^DIPT("B","ONCO CASEFINDING-HDR",809)=""
^DIPT("B","ONCO CONTACT LIST-A",810)=""
^DIPT("B","ONCO CONTACT LIST-T",811)=""
^DIPT("B","ONCO DELINQUENT(LTF) LIST",783)=""
^DIPT("B","ONCO DUE FOLLOWUP",781)=""
^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS",786)=""
^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS-HDR",787)=""
^DIPT("B","ONCO DUE FOLLOWUP-HDR",794)=""
^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG",790)=""
^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG-HDR",792)=""
^DIPT("B","ONCO F/U HISTORY (NEW)",878)=""
^DIPT("B","ONCO FOLLOW-UP STATUS LIST",798)=""
^DIPT("B","ONCO FOLLOWUP HISTORY",796)=""
^DIPT("B","ONCO FOLLOWUP HISTORY-HDR",782)=""
^DIPT("B","ONCO FOLLOWUP PATIENT RPT",785)=""
^DIPT("B","ONCO FOLLOWUP PATIENT RPT-HDR",797)=""
^DIPT("B","ONCO FOLLOWUP STATUS RPT",784)=""
^DIPT("B","ONCO ICDO PATIENT LIST",858)=""
^DIPT("B","ONCO ICDO-SITE132",823)=""
^DIPT("B","ONCO ICDO-SITE132-HDR",822)=""
^DIPT("B","ONCO ICDO-SITE80",821)=""
^DIPT("B","ONCO ICDO-SITE80-HDR",820)=""
^DIPT("B","ONCO LAB-CASEFINDING REPORT",800)=""
^DIPT("B","ONCO LAB-CASEFINDING-HDR",799)=""
^DIPT("B","ONCO NEG-REPORT",770)=""
^DIPT("B","ONCO PATIENT INDX-ACOS",776)=""
^DIPT("B","ONCO PATIENT INDX-ACOS",1277)=""
^DIPT("B","ONCO PATIENT INDX-ACOS-HDR",795)=""
^DIPT("B","ONCO PATIENT INDX-EOVA132",771)=""
^DIPT("B","ONCO PATIENT INDX80",775)=""
^DIPT("B","ONCO PATIENT ONLY",780)=""
^DIPT("B","ONCO PATIENT ONLY-HDR",779)=""
^DIPT("B","ONCO PRIMARY EXTENT CODE AUDIT",879)=""
^DIPT("B","ONCO PRIMARY INFORMATION132",865)=""
^DIPT("B","ONCO PRIMARY SURGERY AUDIT",880)=""
^DIPT("B","ONCO PTF-CASEFINDING RPT",802)=""
^DIPT("B","ONCO PTF-CASEFINDING-HDR",801)=""
^DIPT("B","ONCO RAD-CASEFINDING RPT",803)=""
^DIPT("B","ONCO RAD-CASEFINDING-HDR",804)=""
^DIPT("B","ONCO SITE HEADING",768)=""
^DIPT("B","ONCO SITE-QA REPORT",769)=""
^DIPT("B","ONCO SITE/GP80",836)=""
^DIPT("B","ONCO SITE/GP80-HDR",837)=""
^DIPT("B","ONCO SITE80",824)=""
^DIPT("B","ONCO SITE80-HEADER",825)=""
^DIPT("B","ONCO SUSPENSE",778)=""
^DIPT("B","ONCO SUSPENSE-HDR",777)=""
^DIPT("B","ONCO TOPOG BY SITEGRP",877)=""
^DIPT("B","ONCO TOPOG SITES",876)=""
^DIPT("B","ONCO TOPOGRAPHY BY CODE",875)=""
^DIPT("B","ONCO TREATMENT",859)=""
^DIPT("B","ONCO WORKSHEET",766)=""
^DIPT("B","ONCO XABSTRACT RECORD",826)=""
^DIPT("B","ONCO XADMISSION",835)=""
^DIPT("B","ONCO XCONTACT LIST",793)=""
^DIPT("B","ONCO XDEATH INFO",788)=""
^DIPT("B","ONCO XINCIDENCE RPRT",872)=""
^DIPT("B","ONCO XPATIENT CONTACTS",807)=""
^DIPT("B","ONCO XPATIENT DATA",774)=""
^DIPT("B","ONCO XPATIENT INFO",1276)=""
^DIPT("B","ONCO XPATIENT STATUS",1340)=""
^DIPT("B","ONCOLOGY INPUT TEMPLATE LIST",761)=""
^DIPT("B","ONCOLOGY OPTION LIST",758)=""
^DIPT("B","ONCOLOGY PRINT TEMPLATE LIST",760)=""
^DIPT("B","ONCOLOGY ROUTINE LIST",762)=""
^DIPT("B","ONCOLOGY SORT TEMPLATE LIST",759)=""
^DIPT("B","ONCOW1",874)=""
^DIPT("B","ONCOX1",842)=""
^DIPT("B","ONCOX10",851)=""
^DIPT("B","ONCOX11",852)=""
^DIPT("B","ONCOX2",843)=""
^DIPT("B","ONCOX3",844)=""
^DIPT("B","ONCOX4",845)=""
^DIPT("B","ONCOX5",846)=""
^DIPT("B","ONCOX6",847)=""
^DIPT("B","ONCOX7",848)=""
^DIPT("B","ONCOX8",849)=""
^DIPT("B","ONCOX9",850)=""
^DIPT("B","ONCOX99",873)=""
^DIPT("B","ONCOXA1",827)=""
^DIPT("B","ONCOXA2",828)=""
^DIPT("B","ONCOXA3",829)=""
^DIPT("B","ONCOXA4",839)=""
^DIPT("B","ONCOY49",817)=""
^DIPT("B","ONCOY50",860)=""
^DIPT("B","ONCOY51",861)=""
^DIPT("B","ONCOY52",862)=""
^DIPT("B","ONCOY53",863)=""
^DIPT("B","ONCOY54",812)=""
^DIPT("B","ONCOY55",813)=""
^DIPT("B","ONCOY56",814)=""
^DIPT("B","ONCOY57",815)=""
^DIPT("B","ONCOY58",816)=""
^DIPT("B","ONCQA",1431)=""
^DIPT("B","ONCQA1",1432)=""
^DIPT("B","ORB RECIP TOTALS",170)=""
^DIPT("B","PATCH 486 PRINT TEMPLATE",1459)=""
^DIPT("B","PATCH 525 PRINT TEMPLATE",1462)=""
^DIPT("B","PATIENT PENDING APPT",1346)=""
^DIPT("B","PPP CODE LIST",509)=""
^DIPT("B","PPP LOG",507)=""
^DIPT("B","PPP LOGP",508)=""
^DIPT("B","PPPSTAP",506)=""
^DIPT("B","PRC SD PRINT",358)=""
^DIPT("B","PRC SD PRINT",359)=""
^DIPT("B","PRC SD PRINT",360)=""
^DIPT("B","PRC SD PRINT",361)=""
^DIPT("B","PRC SD PRINT",362)=""
^DIPT("B","PRC SD PRINT",363)=""
^DIPT("B","PRC SD PRINT",365)=""
^DIPT("B","PRC SD PRINT",368)=""
^DIPT("B","PRC SD PRINT",369)=""
^DIPT("B","PRC SD PRINT",370)=""
^DIPT("B","PRC SD PRINT",371)=""
^DIPT("B","PRC SD PRINT",372)=""
^DIPT("B","PRC SD PRINT",373)=""
^DIPT("B","PRC SD PRINT",375)=""
^DIPT("B","PRCA 3RD PROFILE",386)=""
^DIPT("B","PRCA 3RD REPORT",385)=""
^DIPT("B","PRCA AR LIST",391)=""
^DIPT("B","PRCA BILL LIST",389)=""
^DIPT("B","PRCA DISCREPANCY",433)=""
^DIPT("B","PRCA DISP ADJ",397)=""
^DIPT("B","PRCA DISP AUDIT",395)=""
^DIPT("B","PRCA DISP AUDIT2",436)=""
^DIPT("B","PRCA DISP CARE",398)=""
^DIPT("B","PRCA FMS STATUS",442)=""
^DIPT("B","PRCA FMS TRANS STAT",443)=""
^DIPT("B","PRCA FMS UNPROCESSED LIST",444)=""
^DIPT("B","PRCA FOLLOW-UP",429)=""
^DIPT("B","PRCA LAST ACTIVITY",432)=""
^DIPT("B","PRCA LIST HOLD",407)=""
^DIPT("B","PRCA MEANS PROFILE",388)=""
^DIPT("B","PRCA NEWB LIST",406)=""
^DIPT("B","PRCA OTHER PROFILE",387)=""
^DIPT("B","PRCA PROFILE",384)=""
^DIPT("B","PRCA TRANS PROFILE",421)=""
^DIPT("B","PRCA VENDOR PROFILE",428)=""
^DIPT("B","PRCAA AMEND AUDIT",417)=""
^DIPT("B","PRCAC RETURN AR",419)=""
^DIPT("B","PRCAC TR LIST",408)=""
^DIPT("B","PRCAD COWC LIST",411)=""
^DIPT("B","PRCAD DC DOJ",392)=""
^DIPT("B","PRCAD DELINQ",393)=""
^DIPT("B","PRCAL CAT LIST",420)=""
^DIPT("B","PRCAL L DC-DOJ",396)=""
^DIPT("B","PRCAL MEANS LIST",422)=""
^DIPT("B","PRCAP AMIS",413)=""
^DIPT("B","PRCAP CARE WV",403)=""
^DIPT("B","PRCAP COST",400)=""
^DIPT("B","PRCAP DEBTOR LOCATE",401)=""
^DIPT("B","PRCAP ESTABLISH AMIS",415)=""
^DIPT("B","PRCAP OUTSTAND AMIS",414)=""
^DIPT("B","PRCAP REPAYMENT",404)=""
^DIPT("B","PRCAP RETURN BILL",416)=""
^DIPT("B","PRCAP WAIVED",402)=""
^DIPT("B","PRCAR CONTINGENT REPORT",418)=""
^DIPT("B","PRCAR MAS REPORT",394)=""
^DIPT("B","PRCARFD",435)=""
^DIPT("B","PRCAS DC",410)=""
^DIPT("B","PRCAT DISP CP",405)=""
^DIPT("B","PRCAT NEW AR",409)=""
^DIPT("B","PRCAT NEW TRANS",399)=""
^DIPT("B","PRCB 285 1ST QTR",314)=""
^DIPT("B","PRCB 285 2ND QTR",315)=""
^DIPT("B","PRCB 285 3RD QTR",316)=""
^DIPT("B","PRCB 285 4TH QTR",317)=""
^DIPT("B","PRCB 285 APR-SEP",318)=""
^DIPT("B","PRCB 285 FISCAL YEAR",320)=""
^DIPT("B","PRCB 285 OCT-MAR",319)=""
^DIPT("B","PRCB 285 SUMMARY",354)=""
^DIPT("B","PRCB APPROP SUM DETAIL",325)=""
^DIPT("B","PRCB APPROP SUM TOTAL",326)=""
^DIPT("B","PRCB CC LISTING",343)=""
^DIPT("B","PRCB CC LISTING W/SUBACCT",340)=""
^DIPT("B","PRCB CPF ACC ELEMENT",381)=""
^DIPT("B","PRCB CTRLPT",1359)=""
^DIPT("B","PRCB DISPLAY APP SUM DETAIL",329)=""
^DIPT("B","PRCB FCP DISPLAY",330)=""
^DIPT("B","PRCB FCP LIST",323)=""
^DIPT("B","PRCB FCP LIST OF MGR/USER",306)=""
^DIPT("B","PRCB FCP PO STATUS",307)=""
^DIPT("B","PRCB FCP SUB-ACCOUNTS",309)=""
^DIPT("B","PRCB FTEE SUMMARY",324)=""
^DIPT("B","PRCB MANAGER/USER LIST",355)=""
^DIPT("B","PRCB READER DISP",333)=""
^DIPT("B","PRCB SUBACCOUNT LIST",349)=""
^DIPT("B","PRCB SUBACCT LISTING",341)=""
^DIPT("B","PRCB TDA DISPLAY",328)=""
^DIPT("B","PRCB TDA LIST",322)=""
^DIPT("B","PRCB TEMP REVIEW",332)=""
^DIPT("B","PRCB TRANS RANGE",321)=""
^DIPT("B","PRCB TRANS RANGE DISPLAY",331)=""
^DIPT("B","PRCB TRANS RANGE LIST",327)=""
^DIPT("B","PRCD FUND",364)=""
^DIPT("B","PRCD FUND/APPROPRIATION",380)=""
^DIPT("B","PRCD LIST",366)=""
^DIPT("B","PRCD PRINT",367)=""
^DIPT("B","PRCE 1358 EOM LISTING",345)=""
^DIPT("B","PRCE DAILY RECORD EDIT",344)=""
^DIPT("B","PRCF CI DISCOUNT DUE PRINT",337)=""
^DIPT("B","PRCF CI NET DUE DATE PRINT",338)=""
^DIPT("B","PRCF FMS ADJUSTMENTS",377)=""
^DIPT("B","PRCF FMS ADJUSTMENTS",378)=""
^DIPT("B","PRCFA 1358 EOM REPORT",351)=""
^DIPT("B","PRCFA BACKGROUND TRANSMIT",342)=""
^DIPT("B","PRCFA BATCH LISTING HEADER",281)=""
^DIPT("B","PRCFA BATCH LISTING TRAILER",282)=""
^DIPT("B","PRCFA BTCH HEADER",350)=""
^DIPT("B","PRCFA BTCH TRANSMIT",379)=""
^DIPT("B","PRCFA CALM HEADER",280)=""
^DIPT("B","PRCFA CALM TRANSMIT",279)=""
^DIPT("B","PRCFA ERROR LIST",305)=""
^DIPT("B","PRCFA REC RPT TRANS LIST",335)=""
^DIPT("B","PRCFA RECEIVING REPORT LIST",334)=""
^DIPT("B","PRCFA REPRINT HEADER",283)=""
^DIPT("B","PRCFA REPRINT TRAILER",284)=""
^DIPT("B","PRCFA RR INQUIRY LISTING",297)=""
^DIPT("B","PRCFA STATUS OF PAT",311)=""
^DIPT("B","PRCFA UNDEL ORD",286)=""
^DIPT("B","PRCFD DUE IN FISCAL PRINT",336)=""
^DIPT("B","PRCFOOR4",348)=""
^DIPT("B","PRCFOOR4X",347)=""
^DIPT("B","PRCFUO",300)=""
^DIPT("B","PRCFUOMS",383)=""
^DIPT("B","PRCH AO AUDIT",1145)=""
^DIPT("B","PRCH BOC PRINT",1200)=""
^DIPT("B","PRCH CARD INFO",1098)=""
^DIPT("B","PRCH CARD PRINT",470)=""
^DIPT("B","PRCH DEL HEADER",1128)=""
^DIPT("B","PRCH DEL. REC1",1134)=""
^DIPT("B","PRCH DEL. RECPRT",1231)=""
^DIPT("B","PRCH FINAL CHARGE",1137)=""
^DIPT("B","PRCH FISCAL PRINT",269)=""
^DIPT("B","PRCH FPDS <25K HEADER",301)=""
^DIPT("B","PRCH FPDS <25K PRINT",302)=""
^DIPT("B","PRCH FPDS CONTRACT # HEADER",291)=""
^DIPT("B","PRCH FPDS CONTRACT # PRINT",290)=""
^DIPT("B","PRCH FPDS LI PRINT",292)=""
^DIPT("B","PRCH FPDS PO REG",272)=""
^DIPT("B","PRCH FPDS PO REG PRINT",289)=""
^DIPT("B","PRCH IMP POREG",274)=""
^DIPT("B","PRCH IMPAC",1108)=""
^DIPT("B","PRCH ITEM TXHIST",1193)=""
^DIPT("B","PRCH ITEM TXHIST-HDR",1192)=""
^DIPT("B","PRCH OBLIGATED 1358 LIST",1430)=""
^DIPT("B","PRCH OUTSTAND HDR",1129)=""
^DIPT("B","PRCH OVERAGE",471)=""
^DIPT("B","PRCH P/C ORACLE",1054)=""
^DIPT("B","PRCH PC AUDIT",1138)=""
^DIPT("B","PRCH PO REGISTER",273)=""
^DIPT("B","PRCH PO STATUS",275)=""
^DIPT("B","PRCH RECONCILE PRINT",1055)=""
^DIPT("B","PRCH REQUEST LIST",277)=""
^DIPT("B","PRCH REQUEST SVC",278)=""
^DIPT("B","PRCH REQUESTING SRVC",1097)=""
^DIPT("B","PRCH REQUESTING SVC",287)=""
^DIPT("B","PRCH TOT AMT",270)=""
^DIPT("B","PRCH TOT AMT DAILY",1127)=""
^DIPT("B","PRCH UNPOSTED DIETETIC PRINT",346)=""
^DIPT("B","PRCH W/O FPDS",303)=""
^DIPT("B","PRCH WHSE STATS",285)=""
^DIPT("B","PRCH WORKLOAD",1136)=""
^DIPT("B","PRCHITCAT",264)=""
^DIPT("B","PRCHOUT RR NOT PROC.BY FISCAL",310)=""
^DIPT("B","PRCHQ RFQ FULL",1058)=""
^DIPT("B","PRCHQ RFQ MESSAGES 2",1059)=""
^DIPT("B","PRCHQ RFQ SYNOPSIS",1057)=""
^DIPT("B","PRCHQ UNAWARDED",1056)=""
^DIPT("B","PRCNBRIE",1051)=""
^DIPT("B","PRCNCONT",1047)=""
^DIPT("B","PRCNCOST",1049)=""
^DIPT("B","PRCNDET",1050)=""
^DIPT("B","PRCNOUTS",1045)=""
^DIPT("B","PRCNSTAN",1046)=""
^DIPT("B","PRCNSTAT",1044)=""
^DIPT("B","PRCNTIST",1048)=""
^DIPT("B","PRCP POSTED DIETETIC PRINT",263)=""
^DIPT("B","PRCP REPORT:COMPREHENSIVE",261)=""
^DIPT("B","PRCP REPORT:DUEIN",262)=""
^DIPT("B","PRCP REPORT:EMERGENCY",258)=""
^DIPT("B","PRCP REPORT:LAST SOURCE",259)=""
^DIPT("B","PRCP REPORT:NSN",257)=""
^DIPT("B","PRCP REPORT:POSTED STOCK",260)=""
^DIPT("B","PRCS APPROVE REQUEST",299)=""
^DIPT("B","PRCS CP ITEMHIST",1190)=""
^DIPT("B","PRCS CP ITEMHIST-HDR",1191)=""
^DIPT("B","PRCS REQUESTS FOR APPROVAL",304)=""
^DIPT("B","PRCS1358 DAILY RECORD BALANCE",352)=""
^DIPT("B","PRCS1358 DAILY RECORD W COMM",353)=""
^DIPT("B","PRCS1358 FORM PRINT",288)=""
^DIPT("B","PRCS1358 OPEN DAILY RECORDS",356)=""
^DIPT("B","PRCSCOM",376)=""
^DIPT("B","PRCSCPOQR",267)=""
^DIPT("B","PRCSCPT",265)=""
^DIPT("B","PRCSCSCP",308)=""
^DIPT("B","PRCSCTR",293)=""
^DIPT("B","PRCSEXCE",374)=""
^DIPT("B","PRCSFACPT",268)=""
^DIPT("B","PRCSMDS",313)=""
^DIPT("B","PRCSOAR",339)=""
^DIPT("B","PRCSOTR",266)=""
^DIPT("B","PRCSOTR1",294)=""
^DIPT("B","PRCSPROJ",296)=""
^DIPT("B","PRCSSA",357)=""
^DIPT("B","PRCSSBCPT",295)=""
^DIPT("B","PRCSSBCPT1",312)=""
^DIPT("B","PRCSTEMPT",298)=""
^DIPT("B","PRCSTOR",276)=""
^DIPT("B","PRCT DATA UPLOAD STATUS",256)=""
^DIPT("B","PRCV DYNAMED RIL'S NEED ACTION",1409)=""
^DIPT("B","PRCV ITEM DISPLAY",1410)=""
^DIPT("B","PRCXA",382)=""
^DIPT("B","PRPF BALANCE IN ACCOUNTS",1085)=""
^DIPT("B","PRPF CARD PRINT",1076)=""
^DIPT("B","PRPF CLERK STAT HDR",1081)=""
^DIPT("B","PRPF CURRENT BAL",1105)=""
^DIPT("B","PRPF DAILY ACTIVITY",1079)=""
^DIPT("B","PRPF DAILY TRANSACTION SUMMARY",1080)=""
^DIPT("B","PRPF DAYS BETWEEN DATES",1106)=""
^DIPT("B","PRPF DORMANT ACCOUNT LIST",1092)=""
^DIPT("B","PRPF FISCAL ACTIVITY REPORT",1094)=""
^DIPT("B","PRPF FISCAL TRANS SUMMARY",1095)=""
^DIPT("B","PRPF INACTIVE ACCOUNTS",1082)=""
^DIPT("B","PRPF INDIGENT LIST",1083)=""
^DIPT("B","PRPF MIN/MAX1",1088)=""
^DIPT("B","PRPF MIN/MAX2",1089)=""
^DIPT("B","PRPF NEGATIVE BALANCES",1107)=""
^DIPT("B","PRPF NEW ACCOUNT STATUS",1091)=""
^DIPT("B","PRPF OUT OF BALANCE",1090)=""
^DIPT("B","PRPF OVERDUE PRINT",1087)=""
^DIPT("B","PRPF PATIENT LIST",1086)=""
^DIPT("B","PRPF PATIENT SUMMARY",1084)=""
^DIPT("B","PRPF RANGE OF CARDS",1104)=""
^DIPT("B","PRPF SUSPENSE DISPLAY",1093)=""
^DIPT("B","PRPF SUSPENSE LIST",1077)=""
^DIPT("B","PRPF TRANSACTION DISPLAY",1078)=""
^DIPT("B","PRPF UNASSIGNED STATION LIST",1318)=""
^DIPT("B","PSADRI",492)=""
^DIPT("B","PSADRIH",495)=""
^DIPT("B","PSADRIP",493)=""
^DIPT("B","PSAINV",494)=""
^DIPT("B","PSANDC",1130)=""
^DIPT("B","PSGW INV TYPE",489)=""
^DIPT("B","PSGW ITEM LOC",488)=""
^DIPT("B","PSGW PERCENTAGE",490)=""
^DIPT("B","PSGW SHOW AREA OF USE",491)=""
^DIPT("B","PSJ DOSAGE FORM REPORT",1199)=""
^DIPT("B","PSNACTION",1194)=""
^DIPT("B","PSNEXMP1",1342)=""
^DIPT("B","PSNFRMPRT",456)=""
^DIPT("B","PSNHEAD",454)=""
^DIPT("B","PSNLDG1",453)=""
^DIPT("B","PSNLOCAL",1214)=""
^DIPT("B","PSNODDI1",1343)=""
^DIPT("B","PSNODDI2",1344)=""
^DIPT("B","PSNPRINT",455)=""
^DIPT("B","PSNRPT4",452)=""
^DIPT("B","PSO ACTION PROFILE",466)=""
^DIPT("B","PSO ACTION PROFILE #2",1197)=""
^DIPT("B","PSO ALPHA DRUG LIST",458)=""
^DIPT("B","PSO BBWAIT PRINT",1198)=""
^DIPT("B","PSO COST STAT",1196)=""
^DIPT("B","PSO DRUG LIST",457)=""
^DIPT("B","PSO HOLD",467)=""
^DIPT("B","PSO INACTIVE DRUG LIST",460)=""
^DIPT("B","PSO INTERVENTIONS",468)=""
^DIPT("B","PSO N/F LIST",461)=""
^DIPT("B","PSO NARC LIST",463)=""
^DIPT("B","PSO PHARMACY STATS",464)=""
^DIPT("B","PSO REQUEST STATISTICS",465)=""
^DIPT("B","PSO SUSPENSE LIST",462)=""
^DIPT("B","PSO SYNONYM LIST",459)=""
^DIPT("B","PSOD PRINT ANSWER SHEET",469)=""
^DIPT("B","PX CODE MAPPING PRINT",583)=""
^DIPT("B","PX HS/RPT PARAMETERS PRINT",585)=""
^DIPT("B","PXRM COMPUTED FINDING LIST",1252)=""
^DIPT("B","PXRM DEFINITION INQUIRY",1234)=""
^DIPT("B","PXRM DEFINITION LIST",1254)=""
^DIPT("B","PXRM DIALOG ELEMENT",1241)=""
^DIPT("B","PXRM DIALOG FORCED VALUE",1249)=""
^DIPT("B","PXRM DIALOG GROUP",1242)=""
^DIPT("B","PXRM DIALOG PROMPT",1243)=""
^DIPT("B","PXRM EXTRACT COUNTING",1441)=""
^DIPT("B","PXRM EXTRACT COUNTING GROUP",1442)=""
^DIPT("B","PXRM EXTRACT DEFINITION",1440)=""
^DIPT("B","PXRM EXTRACT EPI FINDING HDR",1269)=""
^DIPT("B","PXRM EXTRACT EPI FINDING LIST",1270)=""
^DIPT("B","PXRM EXTRACT EPI FINDING TOT",1271)=""
^DIPT("B","PXRM EXTRACT QUERI TOTALS",1406)=""
^DIPT("B","PXRM EXTRACT SUMMARY HDR",1396)=""
^DIPT("B","PXRM EXTRACT SUMMARY PRNT",1397)=""
^DIPT("B","PXRM FINDING ITEM PARAMETERS",1244)=""
^DIPT("B","PXRM FINDING RULE",1399)=""
^DIPT("B","PXRM FINDING TYPE PARAMETERS",1240)=""
^DIPT("B","PXRM HEALTH FACTOR RESOLUTIONS",1245)=""
^DIPT("B","PXRM ITEM DEFINITION",586)=""
^DIPT("B","PXRM LOCATION LIST INQUIRY",1403)=""
^DIPT("B","PXRM LOCATION LIST LIST",1404)=""
^DIPT("B","PXRM PATIENT LIST RULE",1405)=""
^DIPT("B","PXRM REMINDER CATEGORIES",1235)=""
^DIPT("B","PXRM REMINDER DIALOG",1236)=""
^DIPT("B","PXRM REMINDER RULE",1443)=""
^DIPT("B","PXRM RESOLUTIONS (GENERAL)",1237)=""
^DIPT("B","PXRM RESOLUTIONS (LOCAL)",1239)=""
^DIPT("B","PXRM RESOLUTIONS (NATIONAL)",1238)=""
^DIPT("B","PXRM RESULT ELEMENT",1255)=""
^DIPT("B","PXRM RESULT GROUP",1256)=""
^DIPT("B","PXRM RULE SET",1400)=""
^DIPT("B","PXRM SPONSOR INQUIRY",1296)=""
^DIPT("B","PXRM SPONSOR LIST",1280)=""
^DIPT("B","PXRM SUMMARY LIST",1233)=""
^DIPT("B","PXRM TAXONOMY DIALOG",1246)=""
^DIPT("B","PXRM TAXONOMY INQUIRY",1248)=""
^DIPT("B","PXRM TAXONOMY LIST",1251)=""
^DIPT("B","PXRM TAXONOMY LIST HEADER",1250)=""
^DIPT("B","PXRM TERM INQUIRY",1247)=""
^DIPT("B","PXRM TERM LIST",1257)=""
^DIPT("B","PXTT EDUCATION TOPIC DETAIL",582)=""
^DIPT("B","PXTT EDUCATION TOPICS-BRIEF",576)=""
^DIPT("B","PXTT EDUCATION TOPICS-DETAILED",575)=""
^DIPT("B","PXTT LIST EXAMS",578)=""
^DIPT("B","PXTT LIST HEALTH FACTORS",579)=""
^DIPT("B","PXTT LIST HEALTH FACTORS 132",1360)=""
^DIPT("B","PXTT LIST IMMUNIZATION",577)=""
^DIPT("B","PXTT LIST SKIN TESTS",580)=""
^DIPT("B","PXTT LIST TREATMENTS",581)=""
^DIPT("B","QAC DAILY",1119)=""
^DIPT("B","QAC DAILY HEADER",1120)=""
^DIPT("B","QAC DISC RPT",1122)=""
^DIPT("B","QAC DISC RPT HEADER",1208)=""
^DIPT("B","QAC DISC SERV RPT HEADER",1211)=""
^DIPT("B","QAC EMP CONTACT HEADER",1207)=""
^DIPT("B","QAC EMP TOT",903)=""
^DIPT("B","QAC EMPLOYEE",900)=""
^DIPT("B","QAC NOPAT HEADER",1209)=""
^DIPT("B","QAC PAT BRIEF",1121)=""
^DIPT("B","QAC RESP DUE",899)=""
^DIPT("B","QAC RESP DUE HEADER",1210)=""
^DIPT("B","QAC SERV RPT",902)=""
^DIPT("B","QAC STATUS",901)=""
^DIPT("B","QAC STATUS HEADER",1206)=""
^DIPT("B","QAO QAI POSSIBLE INCIDENTS",941)=""
^DIPT("B","QAO QAI POSSIBLE INCIDENTS HDR",942)=""
^DIPT("B","QAQ AUDIT LIST",530)=""
^DIPT("B","RA ACTIVITY LOG",609)=""
^DIPT("B","RA ALL UNPRINTED REPORTS",611)=""
^DIPT("B","RA ALPHA LIST OF ACTIVES",596)=""
^DIPT("B","RA DAILY LOG",604)=""
^DIPT("B","RA DIAGNOSTIC CODE PRINT",608)=""
^DIPT("B","RA DISTRIBUTION",614)=""
^DIPT("B","RA EXAM ROOM LIST",605)=""
^DIPT("B","RA FILM SIZE",615)=""
^DIPT("B","RA FLASH PRINT",607)=""
^DIPT("B","RA IMAGE DIV LIST",602)=""
^DIPT("B","RA IMAGE LOC LIST",601)=""
^DIPT("B","RA OUTSIDE LIST",603)=""
^DIPT("B","RA PARENT PROCEDURE LIST",1148)=""
^DIPT("B","RA PERSONNEL LIST",598)=""
^DIPT("B","RA PRINTED REPORTS",610)=""
^DIPT("B","RA PROCEDURE BY AMIS",597)=""
^DIPT("B","RA PROCEDURE LIST",594)=""
^DIPT("B","RA PROCEDURE SHORT LIST",595)=""
^DIPT("B","RA RESIDENT RADIOLOGIST",599)=""
^DIPT("B","RA STANDARD REPORTS LIST",600)=""
^DIPT("B","RA STATUS PRINT",606)=""
^DIPT("B","RA UNPRINTED REPORTS",613)=""
^DIPT("B","RCAM ADDRESS UNKNOWN",1073)=""
^DIPT("B","RCAM COMMENT",430)=""
^DIPT("B","RCCPC INQUIRE STATEMENT",1072)=""
^DIPT("B","RCDMC REFERRED DEBTS",1195)=""
^DIPT("B","RCDMC90A",1131)=""
^DIPT("B","RCDMC90AH",1132)=""
^DIPT("B","RCDMC90B",1133)=""
^DIPT("B","RCMS INT/ADM/PEN",431)=""
^DIPT("B","RCTOP REPORT",1274)=""
^DIPT("B","RCTOPH",1275)=""
^DIPT("B","RCXV ACTIVE PRINT",1363)=""
^DIPT("B","REJECTED APPT LIST",1347)=""
^DIPT("B","RGEQ STAT",1215)=""
^DIPT("B","RMIM MAIL SERVER",1334)=""
^DIPT("B","RMIMXMIT",1333)=""
^DIPT("B","RMPO ACTIVE PRINT",1220)=""
^DIPT("B","RMPO PAT LIST",1221)=""
^DIPT("B","RMPO-BILLING-PRESORT",1226)=""
^DIPT("B","RMPO-PRINT-RPD2",1225)=""
^DIPT("B","RMPO-RPT-HOPRIITM",1222)=""
^DIPT("B","RMPO-RPT-PRINT-HOACTZIPLIST",1223)=""
^DIPT("B","RMPO-RPT-PRINT-HORXEXP",1224)=""
^DIPT("B","RMPR 2421 LETTER INFO",930)=""
^DIPT("B","RMPR 2527 HDR",918)=""
^DIPT("B","RMPR 2527 PHDR",921)=""
^DIPT("B","RMPR 2529 EDT",932)=""
^DIPT("B","RMPR 2529 HDR",935)=""
^DIPT("B","RMPR 2529 INQ",922)=""
^DIPT("B","RMPR 2529 NT",923)=""
^DIPT("B","RMPR 2529 VIEW",934)=""
^DIPT("B","RMPR 2529-3 STATUS",936)=""
^DIPT("B","RMPR 25293",940)=""
^DIPT("B","RMPR 7306D 1ST",914)=""
^DIPT("B","RMPR 7306D 2ND",915)=""
^DIPT("B","RMPR 7306D 3RD",916)=""
^DIPT("B","RMPR 7306D 4TH",913)=""
^DIPT("B","RMPR APPROVE",937)=""
^DIPT("B","RMPR BLANK",925)=""
^DIPT("B","RMPR CLINIC PRINT",917)=""
^DIPT("B","RMPR CLOSED VISITS",919)=""
^DIPT("B","RMPR FL 10-90 ADP",926)=""
^DIPT("B","RMPR FL 10-90 CONT HEAD",928)=""
^DIPT("B","RMPR FL 10-90 CONT TRLR",929)=""
^DIPT("B","RMPR ITEM",927)=""
^DIPT("B","RMPR ITEM",931)=""
^DIPT("B","RMPR JOB LST",933)=""
^DIPT("B","RMPR LIST",1187)=""
^DIPT("B","RMPR NEED APP BY FORM TYPE",938)=""
^DIPT("B","RMPR OACT NOTE",1268)=""
^DIPT("B","RMPR OIF/OEF PSAS VETS",1458)=""
^DIPT("B","RMPR OPEN TRANS",939)=""
^DIPT("B","RMPR OPEN VISITS",920)=""
^DIPT("B","RMPR PAGE",924)=""
^DIPT("B","RMPR PRINT ITEM",911)=""
^DIPT("B","RMPR SUSPENSE CLOSE",912)=""
^DIPT("B","RMPR VIEW COMP NOTE",1267)=""
^DIPT("B","RMPR VIEW INITIAL ACTION",1266)=""
^DIPT("B","RMPR VIEW REQUEST",1265)=""
^DIPT("B","RMPR WH DISPLAY",1420)=""
^DIPT("B","ROR DATA ELEMENTS",1317)=""
^DIPT("B","ROR LOG",1316)=""
^DIPT("B","ROR PENDING ERRORS",1319)=""
^DIPT("B","RT DAILY LOG",480)=""
^DIPT("B","RT FILE ROOM/REMOTE",486)=""
^DIPT("B","RT FORMATS",481)=""
^DIPT("B","RT HOME LOCATION",479)=""
^DIPT("B","RT INPUT TEMPLATES",474)=""
^DIPT("B","RT MISSING",482)=""
^DIPT("B","RT PENDING REQUESTS",478)=""
^DIPT("B","RT PRINT TEMPLATES",475)=""
^DIPT("B","RT PURGE PROFILE",484)=""
^DIPT("B","RT RETIREMENT PROFILE",485)=""
^DIPT("B","RT SORT TEMPLATES",476)=""
^DIPT("B","RT TIME STUDY",483)=""
^DIPT("B","RT WARD LIST",477)=""
^DIPT("B","RTW WARD LIST",487)=""
^DIPT("B","SC BULLETIN",1455)=""
^DIPT("B","SC INACTIVATED",1453)=""
^DIPT("B","SC PROVIDER FLAGGED",1450)=""
^DIPT("B","SCCV ERROR LOG PRINT",1230)=""
^DIPT("B","SCCV EVENT LOG PRINT",1229)=""
^DIPT("B","SCCV REQUEST LOG PRINT",1228)=""
^DIPT("B","SCDX NPCDB TRANSMISSION REPORT",756)=""
^DIPT("B","SCDX TRANSMITTED ERROR LIST",757)=""
^DIPT("B","SCDX XMIT HIST FOR PATIENT",1123)=""
^DIPT("B","SCDX XMIT HIST FULL FOOTER",1124)=""
^DIPT("B","SCDX XMIT HIST FULL HEADER",1125)=""
^DIPT("B","SCDX XMIT HIST FULL PRINT",1126)=""
^DIPT("B","SCENI ERROR LIST",1144)=""
^DIPT("B","SCENI ERROR TABLE",1142)=""
^DIPT("B","SCENI PAT ALPHA PRINT",1143)=""
^DIPT("B","SCMC DIRECT PC FTEE",1320)=""
^DIPT("B","SCMC DIRECT PC FTEE 1 CLN",1452)=""
^DIPT("B","SCMC EXTENDED",1449)=""
^DIPT("B","SCMC INACTIVATED",1451)=""
^DIPT("B","SCMC INCONSISTENT",1448)=""
^DIPT("B","SCMC PENDING UNASSIGN",1447)=""
^DIPT("B","SCMC PENDING UNASSIGN PAT",1454)=""
^DIPT("B","SCMC TOBE INACTIVATED",1456)=""
^DIPT("B","SD-PAIT PAIT ACK SUMMARY",1357)=""
^DIPT("B","SD-PAIT PATIENT HL7 LOCATION",1394)=""
^DIPT("B","SD-PAIT PATIENT PENDING APPT",1355)=""
^DIPT("B","SD-PAIT REJECTED APPT",1356)=""
^DIPT("B","SD-PAIT TRANS SUMMARY",1358)=""
^DIPT("B","SDAMVLD",232)=""
^DIPT("B","SDASUSP",228)=""
^DIPT("B","SDWL30DAY",1444)=""
^DIPT("B","SDWLDNR",1445)=""
^DIPT("B","SDWLRO",1413)=""
^DIPT("B","SDWLWTR",1446)=""
^DIPT("B","SOWKBHP",910)=""
^DIPT("B","SOWKCLT",907)=""
^DIPT("B","SOWKHIFP",909)=""
^DIPT("B","SOWKHRS",908)=""
^DIPT("B","SOWKHRT",904)=""
^DIPT("B","SOWKOPCT",906)=""
^DIPT("B","SOWKPRIT",905)=""
^DIPT("B","SPN PRINT DIE",1322)=""
^DIPT("B","SPN PRINT DUS",1323)=""
^DIPT("B","SPN PRINT FAM",1321)=""
^DIPT("B","SPN PRINT FIM",1069)=""
^DIPT("B","SPN PRINT MS",1071)=""
^DIPT("B","SPN PRINT OUT",1070)=""
^DIPT("B","SPN PRINT SELF",1068)=""
^DIPT("B","SPNL REGISTRY DUMP",945)=""
^DIPT("B","SPNLPT1",1102)=""
^DIPT("B","SPNLPT2",1103)=""
^DIPT("B","SUSPENSE OIF/OEF VETS",1457)=""
^DIPT("B","TIU PRINT AUTHOR STATS",1116)=""
^DIPT("B","TIU PRINT AUTHOR STATS HEADER",1353)=""
^DIPT("B","TIU PRINT REL/UNV",1350)=""
^DIPT("B","TIU PRINT REL/UNV HEADER",1352)=""
^DIPT("B","TIU PRINT REPORT BUFFER",1114)=""
^DIPT("B","TIU PRINT SERVICE STATS",1118)=""
^DIPT("B","TIU PRINT SERVICE STATS HEADER",1354)=""
^DIPT("B","TIU PRINT TRANS STATS",1117)=""
^DIPT("B","TIU PRINT TRANS STATS HEADER",1351)=""
^DIPT("B","TIU RELEASED/UNVERIFIED PRINT",1115)=""
^DIPT("B","VALM LIST TEMPLATE",184)=""
^DIPT("B","VAQ CUR. TRANSACTIONS REPORT",497)=""
^DIPT("B","VAQ DATA SEGMENT LIST",499)=""
^DIPT("B","VAQ REQUIRES PROCESSING REPORT",498)=""
^DIPT("B","VAQ WORK-LOAD REPORT",496)=""
^DIPT("B","WV PRINT DIAG CODE TRANSLATION",1185)=""
^DIPT("B","WV PRINT PROC TYPE & ATTRIBS",1183)=""
^DIPT("B","WV PRINT RES/DIAG SYNONYMS",1184)=""
^DIPT("B","XDR BRIEF LIST",1188)=""
^DIPT("B","XDR MERGED LIST",57)=""
^DIPT("B","XIP STATE EXPORT",1434)=""
^DIPT("B","XIP STATE/COUNTY EXPORT",1433)=""
^DIPT("B","XIP ZIP CODE LIST",1393)=""
^DIPT("B","XMHOSTLIST",42)=""
^DIPT("B","XMMGR-BKFILER-ACTIVE_USERS/DEL",44)=""
^DIPT("B","XMMGR-BKFILER-DEL_BY_GROUP",46)=""
^DIPT("B","XMMGR-BKFILER-LENGTH_OF_QUEUES",45)=""
^DIPT("B","XMMGR-BKFILER-LONGTERM-STATS",51)=""
^DIPT("B","XMMGR-BKFILER-OLD_STATS/TABBED",48)=""
^DIPT("B","XMMGR-BKFILER-QUEUE-WAIT",43)=""
^DIPT("B","XMMGR-BKFILER-STATS-PLUS",47)=""
^DIPT("B","XMMGR-BKFILER-STATS/TABBED",49)=""
^DIPT("B","XMMGR-BKFILER-TABBED-RT",50)=""
^DIPT("B","XPD BUILD ENTRY",1)=""
^DIPT("B","XQ-BACKGROUND RECOMMENDED",39)=""
^DIPT("B","XQ-BACKGROUND SCHEDULE",40)=""
^DIPT("B","XQAB SITE/NUMBER/ROU/OPT/ERR",34)=""
^DIPT("B","XQAL NO BKUP REVIEWER",1460)=""
^DIPT("B","XQHNEW/REVISED FRAMES",4)=""
^DIPT("B","XQSMD BY OPTION",26)=""
^DIPT("B","XQSMD BY USER",25)=""
^DIPT("B","XQSMD OPTION BY USER",35)=""
^DIPT("B","XTLK KEYWORD ALPHA",55)=""
^DIPT("B","XTLK KEYWORD CODES",56)=""
^DIPT("B","XTLK SHORT ALPHA",52)=""
^DIPT("B","XTLK SHORT CODE",53)=""
^DIPT("B","XTLK SYNONYM ALPHA",54)=""
^DIPT("B","XTPM COMPLETE PATCH HISTORY",1421)=""
^DIPT("B","XTPM UNINSTALLED BY COMPLIANCE",1422)=""
^DIPT("B","XU TEMPLATE LIST",36)=""
^DIPT("B","XU-CLINICAL ACTIVE TRAINEE",1419)=""
^DIPT("B","XU-CLINICAL INACTIVE TRAINEE",1418)=""
^DIPT("B","XU-CLINICAL TRAINEE DB COUNT",1341)=""
^DIPT("B","XU-CLINICAL TRAINEE INQUIRY",1339)=""
^DIPT("B","XU-CLINICAL TRAINEE LIST",1417)=""
^DIPT("B","XU-CLINICAL TRAINEE TRANSA",1414)=""
^DIPT("B","XU-CLINICAL TRAINEE TRANSB",1415)=""
^DIPT("B","XU-CLINICAL TRAINEE TRANSC",1416)=""
^DIPT("B","XU-PKG-DEFAULT-DEFINITION",23)=""
^DIPT("B","XU-ZISPL-USER",18)=""
^DIPT("B","XUCS REPORT DATA",58)=""
^DIPT("B","XUDEV LINEPORTADDR",41)=""
^DIPT("B","XUDFDISPH",11)=""
^DIPT("B","XUDFDISPLAY",10)=""
^DIPT("B","XUDOC COMPLETE",21)=""
^DIPT("B","XUDOC ENTRY POINTS",22)=""
^DIPT("B","XUFDISPLAY",9)=""
^DIPT("B","XUFILE ACCESS ABBREVIATED",31)=""
^DIPT("B","XUFILEINQ",30)=""
^DIPT("B","XUFILEINQHDR",32)=""
^DIPT("B","XUFILEOFILES",33)=""
^DIPT("B","XUMENULIST",2)=""
^DIPT("B","XUOPTDISPH",15)=""
^DIPT("B","XUOPTDISPLAY",14)=""
^DIPT("B","XUOPTLOGH",13)=""
^DIPT("B","XUOPTLOGP",12)=""
^DIPT("B","XUPMDISPLAY",6)=""
^DIPT("B","XUPRG-ROUTINE EDIT",19)=""
^DIPT("B","XUPROGH",5)=""
^DIPT("B","XUS VISIT USERS",1264)=""
^DIPT("B","XUS-SPY-SHOW",37)=""
^DIPT("B","XUSAP PROXY LIST",1428)=""
^DIPT("B","XUSDECSERVER",20)=""
^DIPT("B","XUSEC ISO ACTIVE USER PRINT",1436)=""
^DIPT("B","XUSEC LIST",3)=""
^DIPT("B","XUSEC REMOTE ACCESS",1263)=""
^DIPT("B","XUSEC TERMINATION REPORT",1361)=""
^DIPT("B","XUSEC UPARROW TERM REPORT",1362)=""
^DIPT("B","XUSER LIST",24)=""
^DIPT("B","XUSER PC BUILD",755)=""
^DIPT("B","XUSERINQ",27)=""
^DIPT("B","XUSERVER DISPLAY",28)=""
^DIPT("B","XUSERVER HEADER",29)=""
^DIPT("B","XUUFAA",7)=""
^DIPT("B","XUUFAAH",8)=""
^DIPT("B","XUUSEROPTH",17)=""
^DIPT("B","XUUSEROPTP",16)=""
^DIPT("B","XWB SEND API",472)=""
^DIPT("B","YSJOB",551)=""
^DIPT("B","YSSR 10-2683 FOOTER",552)=""
^DIPT("B","YSSR 10-2683 HEADER",559)=""
^DIPT("B","YSSR 10-2683 PRINT",560)=""
^DIPT("B","YSSR DATE MGT HEADER",554)=""
^DIPT("B","YSSR DATE MGT PRINT",553)=""
^DIPT("B","YSSR NURSE MGT HEADER",557)=""
^DIPT("B","YSSR NURSE MGT PRINT",558)=""
^DIPT("B","YSSR PT INQ HEADER",563)=""
^DIPT("B","YSSR PT INQ PRINT",564)=""
^DIPT("B","YSSR REVIEW ACTION HEADER",561)=""
^DIPT("B","YSSR REVIEW ACTION PRINT",562)=""
^DIPT("B","YSSR WARD MGT HEADER",555)=""
^DIPT("B","YSSR WARD MGT PRINT",556)=""
^DIPT("B","ZZDANILA",132)=""
^DIPT("F.4","ONCOLOGY PRINT TEMPLATE LIST",760)="1"
^DIPT("F.4","RT PRINT TEMPLATES",475)="1"
^DIPT("F.401","ONCOLOGY SORT TEMPLATE LIST",759)="1"
^DIPT("F.401","RT SORT TEMPLATES",476)="1"
^DIPT("F.402","ONCOLOGY INPUT TEMPLATE LIST",761)="1"
^DIPT("F.402","RT INPUT TEMPLATES",474)="1"
^DIPT("F.402","XU TEMPLATE LIST",36)="1"
^DIPT("F.44","DDXP FORMAT DOC",.441)="1"
^DIPT("F.44","DDXP FORMAT DOC HDR",.442)="1"
^DIPT("F0","CAPTIONED",.01)="1"
^DIPT("F1","BPS TECH - FILES",1387)="1"
^DIPT("F1","FILE SECURITY CODES",.02)="1"
^DIPT("F1.1","XUSEC TERMINATION REPORT",1361)="1"
^DIPT("F1.1","XUSEC UPARROW TERM REPORT",1362)="1"
^DIPT("F101","GMRC PROTOCOL LIST",185)="1"
^DIPT("F101","GMRC PROTOCOL RPT",186)="1"
^DIPT("F101","GMRC PROTOCOL RPT HDR",187)="1"
^DIPT("F101","HL PROTOCOL MESSAGING FIELDS",1338)="1"
^DIPT("F1020.3","PPPSTAP",506)="1"
^DIPT("F1020.4","PPP LOG",507)="1"
^DIPT("F1020.4","PPP LOGP",508)="1"
^DIPT("F1020.6","PPP CODE LIST",509)="1"
^DIPT("F111","FHDIETL",66)="1"
^DIPT("F112","FHNULST",59)="1"
^DIPT("F112.6","FHUMENU",62)="1"
^DIPT("F113.1","FHPSTO",69)="1"
^DIPT("F114.1","FHRECC",70)="1"
^DIPT("F114.2","FHPROP",71)="1"
^DIPT("F115.2","FHSELIST",74)="1"
^DIPT("F115.2","FHSELST2",1461)="1"
^DIPT("F116.2","FHPROD",68)="1"
^DIPT("F118","FHSFLST",61)="1"
^DIPT("F118.1","FHSFMENU",60)="1"
^DIPT("F118.2","FHTFLST",63)="1"
^DIPT("F119.4","FHISLST",67)="1"
^DIPT("F119.5","FHORCON",64)="1"
^DIPT("F119.6","FHORWRD",65)="1"
^DIPT("F119.9","FHSYP1",72)="1"
^DIPT("F119.9","FHSYP2",73)="1"
^DIPT("F120.8","GMRA PRINT AUTOVERIFIED",173)="1"
^DIPT("F120.8","GMRA PRT AUTO HDR",174)="1"
^DIPT("F120.83","GMRA PRINT FILE 120.83",473)="1"
^DIPT("F123","CAPTIONED",.01)="1"
^DIPT("F123","GMRC CONSULTS LIST",188)="1"
^DIPT("F123","GMRC CONSULTS LIST HEADER",189)="1"
^DIPT("F142","GMTS TASK LOCATIONS LIST",180)="1"
^DIPT("F142","GMTS TYPE INQ",178)="1"
^DIPT("F142","GMTS TYPE INQ FOOTER",179)="1"
^DIPT("F142","GMTS TYPE INQ HEADER",177)="1"
^DIPT("F142","GMTS TYPE LIST",176)="1"
^DIPT("F142.1","GMTS COMP DESC LIST",181)="1"
^DIPT("F142.1","GMTS COMP INQ",182)="1"
^DIPT("F142.1","GMTS COMP INQ HEADER",183)="1"
^DIPT("F142.1","GMTS COMP LIST",175)="1"
^DIPT("F15","XDR BRIEF LIST",1188)="1"
^DIPT("F15","XDR MERGED LIST",57)="1"
^DIPT("F154","SPNL REGISTRY DUMP",945)="1"
^DIPT("F154","SPNLPT1",943)="1"
^DIPT("F154","SPNLPT1",1102)="1"
^DIPT("F154","SPNLPT2",944)="1"
^DIPT("F154","SPNLPT2",1103)="1"
^DIPT("F154.1","SPN PRINT DIE",1322)="1"
^DIPT("F154.1","SPN PRINT DUS",1323)="1"
^DIPT("F154.1","SPN PRINT FAM",1321)="1"
^DIPT("F154.1","SPN PRINT FIM",1069)="1"
^DIPT("F154.1","SPN PRINT MS",1071)="1"
^DIPT("F154.1","SPN PRINT OUT",1070)="1"
^DIPT("F154.1","SPN PRINT SELF",1068)="1"
^DIPT("F160","ONCO CASEFINDING REPORT",808)="1"
^DIPT("F160","ONCO CASEFINDING-HDR",809)="1"
^DIPT("F160","ONCO DELINQUENT(LTF) LIST",783)="1"
^DIPT("F160","ONCO DUE FOLLOWUP",781)="1"
^DIPT("F160","ONCO DUE FOLLOWUP-ADM/DIS",786)="1"
^DIPT("F160","ONCO DUE FOLLOWUP-ADM/DIS-HDR",787)="1"
^DIPT("F160","ONCO DUE FOLLOWUP-HDR",794)="1"
^DIPT("F160","ONCO DUE FOLLOWUP/TERMDIG",790)="1"
^DIPT("F160","ONCO DUE FOLLOWUP/TERMDIG-HDR",792)="1"
^DIPT("F160","ONCO F/U HISTORY (NEW)",878)="1"
^DIPT("F160","ONCO FOLLOW-UP STATUS LIST",798)="1"
^DIPT("F160","ONCO FOLLOWUP HISTORY",796)="1"
^DIPT("F160","ONCO FOLLOWUP HISTORY-HDR",782)="1"
^DIPT("F160","ONCO FOLLOWUP PATIENT RPT",785)="1"
^DIPT("F160","ONCO FOLLOWUP PATIENT RPT-HDR",797)="1"
^DIPT("F160","ONCO FOLLOWUP STATUS RPT",784)="1"
^DIPT("F160","ONCO LAB-CASEFINDING REPORT",800)="1"
^DIPT("F160","ONCO LAB-CASEFINDING-HDR",799)="1"
^DIPT("F160","ONCO PATIENT INDX-ACOS",776)="1"
^DIPT("F160","ONCO PATIENT INDX-ACOS-HDR",795)="1"
^DIPT("F160","ONCO PATIENT INDX-EOVA132",771)="1"
^DIPT("F160","ONCO PATIENT INDX80",775)="1"
^DIPT("F160","ONCO PATIENT ONLY",780)="1"
^DIPT("F160","ONCO PATIENT ONLY-HDR",779)="1"
^DIPT("F160","ONCO PTF-CASEFINDING RPT",802)="1"
^DIPT("F160","ONCO PTF-CASEFINDING-HDR",801)="1"
^DIPT("F160","ONCO RAD-CASEFINDING RPT",803)="1"
^DIPT("F160","ONCO RAD-CASEFINDING-HDR",804)="1"
^DIPT("F160","ONCO SUSPENSE",778)="1"
^DIPT("F160","ONCO SUSPENSE-HDR",777)="1"
^DIPT("F160","ONCO XCONTACT LIST",793)="1"
^DIPT("F160","ONCO XDEATH INFO",788)="1"
^DIPT("F160","ONCO XPATIENT CONTACTS",807)="1"
^DIPT("F160","ONCO XPATIENT DATA",774)="1"
^DIPT("F160","ONCO XPATIENT INFO",1276)="1"
^DIPT("F160","ONCO XPATIENT STATUS",1340)="1"
^DIPT("F160.1","ONCO NEG-REPORT",770)="1"
^DIPT("F160.1","ONCO SITE HEADING",768)="1"
^DIPT("F160.1","ONCO SITE-QA REPORT",769)="1"
^DIPT("F160.16","ONC EXTRACT",1281)="1"
^DIPT("F160.19","CAPTIONED",.01)="1"
^DIPT("F160.2","ONCO ACOS DOCUMENTATION",765)="1"
^DIPT("F160.2","ONCO WORKSHEET",766)="1"
^DIPT("F161.7","FB BATCH LIST",588)="1"
^DIPT("F162.1","FBAA RX PENDING",589)="1"
^DIPT("F162.2","FBCH PENDING REQUEST",590)="1"
^DIPT("F162.4","FBCH 7078 CANCEL",591)="1"
^DIPT("F162.7","FBUC STATUS BY PATIENT",592)="1"
^DIPT("F162.7","FBUC STATUS BY VENDOR",593)="1"
^DIPT("F164","ONCO TOPOG BY SITEGRP",877)="1"
^DIPT("F164","ONCO TOPOGRAPHY BY CODE",875)="1"
^DIPT("F164.2","ONCO TOPOG SITES",876)="1"
^DIPT("F165","ONCO CONTACT LIST-A",810)="1"
^DIPT("F165","ONCO CONTACT LIST-T",811)="1"
^DIPT("F165.5","ONC EXTRACT REPORT",1295)="1"
^DIPT("F165.5","ONCO ABSTRACT NOT-COMPLETE",838)="1"
^DIPT("F165.5","ONCO ACCREG-ACOS80",830)="1"
^DIPT("F165.5","ONCO ACCREG-EOVA132",831)="1"
^DIPT("F165.5","ONCO ACCREG-SITE/GP80",832)="1"
^DIPT("F165.5","ONCO AJCC SUMMARY STAGE GPS",855)="1"
^DIPT("F165.5","ONCO ANNUAL ACCREG80",833)="1"
^DIPT("F165.5","ONCO ANNUAL ACCREG80-HDR",834)="1"
^DIPT("F165.5","ONCO ANNUAL CLASS/PATIENT",854)="1"
^DIPT("F165.5","ONCO ANNUAL CLASS/PATIENT-HDR",853)="1"
^DIPT("F165.5","ONCO ANNUAL HIST/SITE/ICDO",866)="1"
^DIPT("F165.5","ONCO ANNUAL ICDO/STAGE/TX",864)="1"
^DIPT("F165.5","ONCO ANNUAL PATIENT INDX",840)="1"
^DIPT("F165.5","ONCO ANNUAL PATIENT INDX-HDR",841)="1"
^DIPT("F165.5","ONCO ANNUAL PATIENT INFO",868)="1"
^DIPT("F165.5","ONCO ANNUAL PATIENT INFO-HDR",867)="1"
^DIPT("F165.5","ONCO ANNUAL SITE/GP",819)="1"
^DIPT("F165.5","ONCO ANNUAL SITE/GP-HDR",818)="1"
^DIPT("F165.5","ONCO ANNUAL SITE/ICDT/ICDM",856)="1"
^DIPT("F165.5","ONCO ANNUAL SITE/STAGE/TX",871)="1"
^DIPT("F165.5","ONCO ANNUAL SITE/STAGE/TX-HDR",870)="1"
^DIPT("F165.5","ONCO ANNUAL SITE/STG/TX",869)="1"
^DIPT("F165.5","ONCO ANNUAL TREATMENT",857)="1"
^DIPT("F165.5","ONCO ICDO PATIENT LIST",858)="1"
^DIPT("F165.5","ONCO ICDO-SITE132",823)="1"
^DIPT("F165.5","ONCO ICDO-SITE132-HDR",822)="1"
^DIPT("F165.5","ONCO ICDO-SITE80",821)="1"
^DIPT("F165.5","ONCO ICDO-SITE80-HDR",820)="1"
^DIPT("F165.5","ONCO PATIENT INDX-ACOS",1277)="1"
^DIPT("F165.5","ONCO PRIMARY EXTENT CODE AUDIT",879)="1"
^DIPT("F165.5","ONCO PRIMARY INFORMATION132",865)="1"
^DIPT("F165.5","ONCO PRIMARY SURGERY AUDIT",880)="1"
^DIPT("F165.5","ONCO SITE/GP80",836)="1"
^DIPT("F165.5","ONCO SITE/GP80-HDR",837)="1"
^DIPT("F165.5","ONCO SITE80",824)="1"
^DIPT("F165.5","ONCO SITE80-HEADER",825)="1"
^DIPT("F165.5","ONCO TREATMENT",859)="1"
^DIPT("F165.5","ONCO XABSTRACT RECORD",826)="1"
^DIPT("F165.5","ONCO XADMISSION",835)="1"
^DIPT("F165.5","ONCO XINCIDENCE RPRT",872)="1"
^DIPT("F165.5","ONCOW1",874)="1"
^DIPT("F165.5","ONCOX1",842)="1"
^DIPT("F165.5","ONCOX10",851)="1"
^DIPT("F165.5","ONCOX11",852)="1"
^DIPT("F165.5","ONCOX2",843)="1"
^DIPT("F165.5","ONCOX3",844)="1"
^DIPT("F165.5","ONCOX4",845)="1"
^DIPT("F165.5","ONCOX5",846)="1"
^DIPT("F165.5","ONCOX6",847)="1"
^DIPT("F165.5","ONCOX7",848)="1"
^DIPT("F165.5","ONCOX8",849)="1"
^DIPT("F165.5","ONCOX9",850)="1"
^DIPT("F165.5","ONCOX99",873)="1"
^DIPT("F165.5","ONCOXA1",827)="1"
^DIPT("F165.5","ONCOXA2",828)="1"
^DIPT("F165.5","ONCOXA3",829)="1"
^DIPT("F165.5","ONCOXA4",839)="1"
^DIPT("F165.5","ONCOY49",817)="1"
^DIPT("F165.5","ONCOY50",860)="1"
^DIPT("F165.5","ONCOY51",861)="1"
^DIPT("F165.5","ONCOY52",862)="1"
^DIPT("F165.5","ONCOY53",863)="1"
^DIPT("F165.5","ONCOY54",812)="1"
^DIPT("F165.5","ONCOY55",813)="1"
^DIPT("F165.5","ONCOY56",814)="1"
^DIPT("F165.5","ONCOY57",815)="1"
^DIPT("F165.5","ONCOY58",816)="1"
^DIPT("F165.5","ONCQA",1431)="1"
^DIPT("F165.5","ONCQA1",1432)="1"
^DIPT("F19","BPS TECH - OPTIONS",1388)="1"
^DIPT("F19","ONCOLOGY OPTION LIST",758)="1"
^DIPT("F19","XQ-BACKGROUND RECOMMENDED",39)="1"
^DIPT("F19","XUMENULIST",2)="1"
^DIPT("F19.081","XUOPTDISPH",15)="1"
^DIPT("F19.081","XUOPTDISPLAY",14)="1"
^DIPT("F19.081","XUOPTLOGH",13)="1"
^DIPT("F19.081","XUOPTLOGP",12)="1"
^DIPT("F19.081","XUSERVER DISPLAY",28)="1"
^DIPT("F19.081","XUSERVER HEADER",29)="1"
^DIPT("F19.081","XUUSEROPTH",17)="1"
^DIPT("F19.081","XUUSEROPTP",16)="1"
^DIPT("F19.2","CAPTIONED",.01)="1"
^DIPT("F19.2","XQ-BACKGROUND SCHEDULE",40)="1"
^DIPT("F190","RT HOME LOCATION",479)="1"
^DIPT("F190","RTW WARD LIST",487)="1"
^DIPT("F190.1","RT PENDING REQUESTS",478)="1"
^DIPT("F190.1","RT TIME STUDY",483)="1"
^DIPT("F190.2","RT MISSING",482)="1"
^DIPT("F190.3","RT DAILY LOG",480)="1"
^DIPT("F194.4","RT FORMATS",481)="1"
^DIPT("F195.2","RT PURGE PROFILE",484)="1"
^DIPT("F195.2","RT RETIREMENT PROFILE",485)="1"
^DIPT("F195.9","RT FILE ROOM/REMOTE",486)="1"
^DIPT("F2","DG BAI",1407)="1"
^DIPT("F2","DG FEMALE HISTORICAL",193)="1"
^DIPT("F2","DG FEMALE INPATIENTS",191)="1"
^DIPT("F2","DG SI LIST",190)="1"
^DIPT("F2","DGDISPOSTIONS",192)="1"
^DIPT("F2","DGENCD ELIG CODE",1218)="1"
^DIPT("F2","DGENCD ELIG HDR",1219)="1"
^DIPT("F2","DGOPENDISPOSITIONS",195)="1"
^DIPT("F2","DVBHINQ PAT-HINQ COMP",513)="1"
^DIPT("F2","IBNOTVER",253)="1"
^DIPT("F2","RT WARD LIST",477)="1"
^DIPT("F200","CAPTIONED",.01)="1"
^DIPT("F200","DG MISSING SSN PRINT",1227)="1"
^DIPT("F200","ORB RECIP TOTALS",170)="1"
^DIPT("F200","RA PERSONNEL LIST",598)="1"
^DIPT("F200","RA RESIDENT RADIOLOGIST",599)="1"
^DIPT("F200","XQAL NO BKUP REVIEWER",1460)="1"
^DIPT("F200","XQSMD BY OPTION",26)="1"
^DIPT("F200","XQSMD BY USER",25)="1"
^DIPT("F200","XQSMD OPTION BY USER",35)="1"
^DIPT("F200","XU-CLINICAL ACTIVE TRAINEE",1419)="1"
^DIPT("F200","XU-CLINICAL INACTIVE TRAINEE",1418)="1"
^DIPT("F200","XU-CLINICAL TRAINEE DB COUNT",1341)="1"
^DIPT("F200","XU-CLINICAL TRAINEE INQUIRY",1339)="1"
^DIPT("F200","XU-CLINICAL TRAINEE LIST",1417)="1"
^DIPT("F200","XU-CLINICAL TRAINEE TRANSA",1414)="1"
^DIPT("F200","XU-CLINICAL TRAINEE TRANSB",1415)="1"
^DIPT("F200","XU-CLINICAL TRAINEE TRANSC",1416)="1"
^DIPT("F200","XUFILE ACCESS ABBREVIATED",31)="1"
^DIPT("F200","XUFILEINQ",30)="1"
^DIPT("F200","XUFILEINQHDR",32)="1"
^DIPT("F200","XUFILEOFILES",33)="1"
^DIPT("F200","XUS VISIT USERS",1264)="1"
^DIPT("F200","XUSAP PROXY LIST",1428)="1"
^DIPT("F200","XUSEC ISO ACTIVE USER PRINT",1436)="1"
^DIPT("F200","XUSER LIST",24)="1"
^DIPT("F200","XUSER PC BUILD",755)="1"
^DIPT("F200","XUSERINQ",27)="1"
^DIPT("F2005","MAG REPORT 1",1464)="1"
^DIPT("F2005","MAG REPORT 2",1465)="1"
^DIPT("F2005","MAG REPORT 3",1466)="1"
^DIPT("F2005","MAG REPORT 4",1467)="1"
^DIPT("F2006.575","MAG FAILED IMAGES",1279)="1"
^DIPT("F2006.5849","MAGREADTIME",1468)="1"
^DIPT("F2006.5849","MAGREPAIR",1469)="1"
^DIPT("F2006.5849","MAGSTATUS",1470)="1"
^DIPT("F2006.5849","MAGUSER",1471)="1"
^DIPT("F2006.621","MAGD CT PARAMETERS",1472)="1"
^DIPT("F2006.623","MAGD CR PARAM LIST",1473)="1"
^DIPT("F2006.65","MAGJ PRIOR PRINT",1297)="1"
^DIPT("F2006.67","MAGJ CPT MATCH PRT",1435)="1"
^DIPT("F2040","ANRV AGE LIST",1169)="1"
^DIPT("F2040","ANRV BIRTH LIST",1170)="1"
^DIPT("F2040","ANRV DECEASED LIST",1168)="1"
^DIPT("F2040","ANRV ELIG AMIS LIST",1176)="1"
^DIPT("F2040","ANRV EYE DIAG INQ",1172)="1"
^DIPT("F2040","ANRV EYE DIAG NAR",1173)="1"
^DIPT("F2040","ANRV EYE DIAG PRINT",1171)="1"
^DIPT("F2040","ANRV FEE PT",1175)="1"
^DIPT("F2040","ANRV INC AMIS",1167)="1"
^DIPT("F2040","ANRV REFERRAL LIST",1174)="1"
^DIPT("F2040","ANRV REVIEW INQ",1166)="1"
^DIPT("F2040","ANRV ROSTER A/R",1165)="1"
^DIPT("F2040","ANRVAD",1160)="1"
^DIPT("F2040","ANRVED",1163)="1"
^DIPT("F2040","ANRVFVD",1164)="1"
^DIPT("F2040","ANRVID",1162)="1"
^DIPT("F2040","ANRVREV",1161)="1"
^DIPT("F2041.7","ANRV CHECKLIST",1177)="1"
^DIPT("F2042.5","ANRVPR",1179)="1"
^DIPT("F2042.5","ANRVRRL",1178)="1"
^DIPT("F2043.5","ANRV CLAIM REC INQ",1180)="1"
^DIPT("F21","CAPTIONED",.01)="1"
^DIPT("F210","NURS-P-STF",574)="1"
^DIPT("F2100","GECS READY FOR BATCHING",164)="1"
^DIPT("F2100","GECS READY FOR TRANSMISSION",165)="1"
^DIPT("F2100","GECS TRANSMISSION",169)="1"
^DIPT("F2100","GECS TRANSMIT LIST",166)="1"
^DIPT("F2101.3","GECS BATCH STATUS",168)="1"
^DIPT("F2101.3","GECS BATCHES WAITING",167)="1"
^DIPT("F211.3","NURA-P-SVC-POSITION",566)="1"
^DIPT("F213.2","NURA-P-A1106B",565)="1"
^DIPT("F213.5","NURA-H-EXCEPTION",567)="1"
^DIPT("F213.5","NURA-H-MDEXCEPTION",569)="1"
^DIPT("F213.5","NURA-P-EXCEPTION",568)="1"
^DIPT("F213.9","NURS-H-MANHOURS",572)="1"
^DIPT("F213.9","NURS-P-MANHOURS",571)="1"
^DIPT("F219.7","NURS-PRINT ENTRIES",573)="1"
^DIPT("F27.17","CAPTIONED",.01)="1"
^DIPT("F3.05","XUDFDISPH",11)="1"
^DIPT("F3.05","XUDFDISPLAY",10)="1"
^DIPT("F3.05","XUFDISPLAY",9)="1"
^DIPT("F3.05","XUUFAA",7)="1"
^DIPT("F3.05","XUUFAAH",8)="1"
^DIPT("F3.07","XUPMDISPLAY",6)="1"
^DIPT("F3.07","XUPROGH",5)="1"
^DIPT("F3.081","CAPTIONED",.01)="1"
^DIPT("F3.081","XUSEC LIST",3)="1"
^DIPT("F3.081","XUSEC REMOTE ACCESS",1263)="1"
^DIPT("F3.5","XUDEV LINEPORTADDR",41)="1"
^DIPT("F3.5","XUSDECSERVER",20)="1"
^DIPT("F3.51","XU-ZISPL-USER",18)="1"
^DIPT("F31","CAPTIONED",.01)="1"
^DIPT("F340","PRCA DISCREPANCY",433)="1"
^DIPT("F340","RCAM ADDRESS UNKNOWN",1073)="1"
^DIPT("F340","RCDMC90A",1131)="1"
^DIPT("F340","RCDMC90AH",1132)="1"
^DIPT("F340","RCDMC90B",1133)="1"
^DIPT("F340","RCTOP REPORT",1274)="1"
^DIPT("F340","RCTOPH",1275)="1"
^DIPT("F341","RCAM COMMENT",430)="1"
^DIPT("F342","RCMS INT/ADM/PEN",431)="1"
^DIPT("F347","PRCA FMS STATUS",442)="1"
^DIPT("F347","PRCA FMS TRANS STAT",443)="1"
^DIPT("F347","PRCA FMS UNPROCESSED LIST",444)="1"
^DIPT("F349.2","RCCPC INQUIRE STATEMENT",1072)="1"
^DIPT("F350","IB INCOMPLETE",235)="1"
^DIPT("F350","IB LIST",234)="1"
^DIPT("F350.41","IB CPT UPDATE ERROR",236)="1"
^DIPT("F350.6","IB PURGE LIST LOG ENTRIES",245)="1"
^DIPT("F350.7","IB CPT PG DISPLAY",237)="1"
^DIPT("F350.71","IB CPT CP DISPLAY",238)="1"
^DIPT("F351","IB BILLING CLOCK HEADER",242)="1"
^DIPT("F351","IB BILLING CLOCK INQ",243)="1"
^DIPT("F351.71","IBJD DM REPT PRINT",1213)="1"
^DIPT("F351.71","IBJD DM V/P EXTRACTS",1212)="1"
^DIPT("F352.1","IB APPOINTMENT TYPE",244)="1"
^DIPT("F354","IB BILLING PAT W/INCOME",249)="1"
^DIPT("F354","IB BILLING PATIENT",247)="1"
^DIPT("F354","IB BILLING PATIENT SUMMARY",248)="1"
^DIPT("F354","IB DO NOT USE",251)="1"
^DIPT("F354","IB PATIENT ADDRESSES",250)="1"
^DIPT("F354.3","IB PRINT THRESHOLD",246)="1"
^DIPT("F356","IBT LIST VISITS",254)="1"
^DIPT("F356","IBT QUICK REV CODING STAT",1423)="1"
^DIPT("F357.96","IBD NO APPOINTMENT LIST",1141)="1"
^DIPT("F359.3","IBD LIST ERRORS",1099)="1"
^DIPT("F36","IB INACTIVE INS CO",252)="1"
^DIPT("F362.1","IB AB COMMENTS",255)="1"
^DIPT("F364.2","IBCEM MESSAGE LIST",1299)="1"
^DIPT("F364.2","IBCEM MESSAGE LIST HDR",1298)="1"
^DIPT("F364.4","IBCE RULE DISPLAY",1300)="1"
^DIPT("F364.4","IBCE RULE DISPLAY HEADER",1301)="1"
^DIPT("F364.6","IBCE LOCAL DATA ELEMENTS",1232)="1"
^DIPT("F38.1","DG ISO SENSITIVE RCDS PRT",1411)="1"
^DIPT("F38.1","DG ISO SENSITIVE RCDS PRT1",1412)="1"
^DIPT("F392","DGBT CLAIM STATS",227)="1"
^DIPT("F392.1","DGBT MILES",224)="1"
^DIPT("F392.1","DGBT REMARKS",225)="1"
^DIPT("F392.1","DGBT ZIP",226)="1"
^DIPT("F394.61","VAQ CUR. TRANSACTIONS REPORT",497)="1"
^DIPT("F394.61","VAQ REQUIRES PROCESSING REPORT",498)="1"
^DIPT("F394.71","VAQ DATA SEGMENT LIST",499)="1"
^DIPT("F394.87","VAQ WORK-LOAD REPORT",496)="1"
^DIPT("F395.7","DVBHINQ AUDIT/DT",514)="1"
^DIPT("F395.7","DVBHINQ AUDIT/PAT",516)="1"
^DIPT("F395.7","DVBHINQ AUDIT/USER",515)="1"
^DIPT("F396","DVBA 21 DAY CERT",529)="1"
^DIPT("F396","DVBA FINALIZED REPORT",519)="1"
^DIPT("F396","DVBA INCOMP REQ REPORT",518)="1"
^DIPT("F396","DVBA NOT/DIS-21 DAY CERT CHECK",520)="1"
^DIPT("F396","DVBA NOTICE OF DISCHARGE",528)="1"
^DIPT("F396","DVBA STATUS",517)="1"
^DIPT("F396.3","DVBA C REQUESTS BY DATE RANGE",526)="1"
^DIPT("F396.4","DVBA C REQUESTS BY PHYSICIAN",527)="1"
^DIPT("F396.6","DVBA C CHECK DR STRING",525)="1"
^DIPT("F396.6","DVBA C EXAM CHECKLIST",522)="1"
^DIPT("F396.6","DVBA C EXAM CHECKLIST HEADER",523)="1"
^DIPT("F396.6","DVBA C EXAM LAYOUT",524)="1"
^DIPT("F399","IB CLK PROD",241)="1"
^DIPT("F399","IB CLK PROD HDR",1060)="1"
^DIPT("F399.5","IB BILLING RATES",233)="1"
^DIPT("F4.1","CAPTIONED",.01)="1"
^DIPT("F4.2","XMHOSTLIST",42)="1"
^DIPT("F4.2998","XMMGR-BKFILER-ACTIVE_USERS/DEL",44)="1"
^DIPT("F4.2998","XMMGR-BKFILER-DEL_BY_GROUP",46)="1"
^DIPT("F4.2998","XMMGR-BKFILER-LENGTH_OF_QUEUES",45)="1"
^DIPT("F4.2998","XMMGR-BKFILER-LONGTERM-STATS",51)="1"
^DIPT("F4.2998","XMMGR-BKFILER-OLD_STATS/TABBED",48)="1"
^DIPT("F4.2998","XMMGR-BKFILER-QUEUE-WAIT",43)="1"
^DIPT("F4.2998","XMMGR-BKFILER-STATS-PLUS",47)="1"
^DIPT("F4.2998","XMMGR-BKFILER-STATS/TABBED",49)="1"
^DIPT("F4.2998","XMMGR-BKFILER-TABBED-RT",50)="1"
^DIPT("F40.1","SDASUSP",228)="1"
^DIPT("F40.7","CAPTIONED",.01)="1"
^DIPT("F40.8","IB DIVISION DISPLAY",240)="1"
^DIPT("F404.43","SC BULLETIN",1455)="1"
^DIPT("F404.43","SCMC EXTENDED",1449)="1"
^DIPT("F404.43","SCMC INACTIVATED",1451)="1"
^DIPT("F404.43","SCMC PENDING UNASSIGN",1447)="1"
^DIPT("F404.43","SCMC PENDING UNASSIGN PAT",1454)="1"
^DIPT("F404.43","SCMC TOBE INACTIVATED",1456)="1"
^DIPT("F404.52","SC INACTIVATED",1453)="1"
^DIPT("F404.52","SC PROVIDER FLAGGED",1450)="1"
^DIPT("F404.52","SCMC DIRECT PC FTEE",1320)="1"
^DIPT("F404.52","SCMC DIRECT PC FTEE 1 CLN",1452)="1"
^DIPT("F404.57","SCMC INCONSISTENT",1448)="1"
^DIPT("F404.98","SCCV ERROR LOG PRINT",1230)="1"
^DIPT("F404.98","SCCV EVENT LOG PRINT",1229)="1"
^DIPT("F404.98","SCCV REQUEST LOG PRINT",1228)="1"
^DIPT("F405","DG PTF NO ADMISSION",218)="1"
^DIPT("F405","DGPM INPATIENT PRINT",219)="1"
^DIPT("F405","DGPMBLRV",220)="1"
^DIPT("F405","DGPMINPATIENT",221)="1"
^DIPT("F405","DVBA ADMISSION REVIEW",521)="1"
^DIPT("F405.1","CAPTIONED",.01)="1"
^DIPT("F408","DGOD COMPLETE INP PRINT",210)="1"
^DIPT("F408","DGOD COMPLETE OPC PRINT",209)="1"
^DIPT("F409.1","CAPTIONED",.01)="1"
^DIPT("F409.3","SDWL30DAY",1444)="1"
^DIPT("F409.3","SDWLDNR",1445)="1"
^DIPT("F409.3","SDWLRO",1413)="1"
^DIPT("F409.3","SDWLWTR",1446)="1"
^DIPT("F409.39","PATCH 486 PRINT TEMPLATE",1459)="1"
^DIPT("F409.39","PATCH 525 PRINT TEMPLATE",1462)="1"
^DIPT("F409.6","PATIENT PENDING APPT",1346)="1"
^DIPT("F409.6","REJECTED APPT LIST",1347)="1"
^DIPT("F409.6","SD-PAIT PAIT ACK SUMMARY",1357)="1"
^DIPT("F409.6","SD-PAIT PATIENT HL7 LOCATION",1394)="1"
^DIPT("F409.6","SD-PAIT PATIENT PENDING APPT",1355)="1"
^DIPT("F409.6","SD-PAIT REJECTED APPT",1356)="1"
^DIPT("F409.6","SD-PAIT TRANS SUMMARY",1358)="1"
^DIPT("F409.61","VALM LIST TEMPLATE",184)="1"
^DIPT("F409.65","SDAMVLD",232)="1"
^DIPT("F409.73","SCDX NPCDB TRANSMISSION REPORT",756)="1"
^DIPT("F409.75","SCDX TRANSMITTED ERROR LIST",757)="1"
^DIPT("F409.75","SCENI ERROR LIST",1144)="1"
^DIPT("F409.75","SCENI PAT ALPHA PRINT",1143)="1"
^DIPT("F409.76","SCENI ERROR TABLE",1142)="1"
^DIPT("F409.77","SCDX XMIT HIST FOR PATIENT",1123)="1"
^DIPT("F409.77","SCDX XMIT HIST FULL FOOTER",1124)="1"
^DIPT("F409.77","SCDX XMIT HIST FULL HEADER",1125)="1"
^DIPT("F409.77","SCDX XMIT HIST FULL PRINT",1126)="1"
^DIPT("F41.1","DGADTRESVB",204)="1"
^DIPT("F41.1","DGSCHAD",208)="1"
^DIPT("F410","PRCH REQUESTING SRVC",1097)="1"
^DIPT("F410","PRCH REQUESTING SVC",287)="1"
^DIPT("F410","PRCS APPROVE REQUEST",299)="1"
^DIPT("F410","PRCS CP ITEMHIST",1190)="1"
^DIPT("F410","PRCS CP ITEMHIST-HDR",1191)="1"
^DIPT("F410","PRCS REQUESTS FOR APPROVAL",304)="1"
^DIPT("F410","PRCSCOM",376)="1"
^DIPT("F410","PRCSCPOQR",267)="1"
^DIPT("F410","PRCSCPT",265)="1"
^DIPT("F410","PRCSCSCP",308)="1"
^DIPT("F410","PRCSCTR",293)="1"
^DIPT("F410","PRCSFACPT",268)="1"
^DIPT("F410","PRCSMDS",313)="1"
^DIPT("F410","PRCSOAR",339)="1"
^DIPT("F410","PRCSOTR",266)="1"
^DIPT("F410","PRCSOTR1",294)="1"
^DIPT("F410","PRCSPROJ",296)="1"
^DIPT("F410","PRCSSA",357)="1"
^DIPT("F410","PRCSSBCPT",295)="1"
^DIPT("F410","PRCSSBCPT1",312)="1"
^DIPT("F410","PRCSTEMPT",298)="1"
^DIPT("F410","PRCSTOR",276)="1"
^DIPT("F413","PRCNBRIE",1051)="1"
^DIPT("F413","PRCNCONT",1047)="1"
^DIPT("F413","PRCNCOST",1049)="1"
^DIPT("F413","PRCNDET",1050)="1"
^DIPT("F413","PRCNOUTS",1045)="1"
^DIPT("F413","PRCNSTAN",1046)="1"
^DIPT("F413","PRCNSTAT",1044)="1"
^DIPT("F413.1","PRCNTIST",1048)="1"
^DIPT("F414.02","PRCV DYNAMED RIL'S NEED ACTION",1409)="1"
^DIPT("F417.1","PRCSEXCE",374)="1"
^DIPT("F42","DGBED",206)="1"
^DIPT("F42","DGTEST",202)="1"
^DIPT("F42.5","DGWAIT LIST",196)="1"
^DIPT("F42.55","DG ACTIVE PRIORITY GROUPS",214)="1"
^DIPT("F420","PRCB CPF ACC ELEMENT",381)="1"
^DIPT("F420","PRCB CTRLPT",1359)="1"
^DIPT("F420","PRCB FCP LIST OF MGR/USER",306)="1"
^DIPT("F420","PRCB FCP SUB-ACCOUNTS",309)="1"
^DIPT("F420","PRCB MANAGER/USER LIST",355)="1"
^DIPT("F420","PRCXA",382)="1"
^DIPT("F420.1","PRCB CC LISTING",343)="1"
^DIPT("F420.1","PRCB CC LISTING W/SUBACCT",340)="1"
^DIPT("F420.13","PRC SD PRINT",362)="1"
^DIPT("F420.131","PRC SD PRINT",361)="1"
^DIPT("F420.132","PRC SD PRINT",368)="1"
^DIPT("F420.133","PRC SD PRINT",369)="1"
^DIPT("F420.134","PRC SD PRINT",373)="1"
^DIPT("F420.135","PRC SD PRINT",370)="1"
^DIPT("F420.136","PRC SD PRINT",371)="1"
^DIPT("F420.137","PRC SD PRINT",372)="1"
^DIPT("F420.138","PRC SD PRINT",375)="1"
^DIPT("F420.14","PRCD FUND",364)="1"
^DIPT("F420.15","PRC SD PRINT",358)="1"
^DIPT("F420.16","PRC SD PRINT",360)="1"
^DIPT("F420.17","PRC SD PRINT",359)="1"
^DIPT("F420.18","PRCD PRINT",367)="1"
^DIPT("F420.19","PRCD LIST",366)="1"
^DIPT("F420.1999","PRC SD PRINT",363)="1"
^DIPT("F420.2","PRCB SUBACCOUNT LIST",349)="1"
^DIPT("F420.2","PRCB SUBACCT LISTING",341)="1"
^DIPT("F420.3","PRCD FUND/APPROPRIATION",380)="1"
^DIPT("F420.96","PRCFOOR4",348)="1"
^DIPT("F420.96","PRCFOOR4X",347)="1"
^DIPT("F420.98","PRCF FMS ADJUSTMENTS",378)="1"
^DIPT("F420.99","PRCF FMS ADJUSTMENTS",377)="1"
^DIPT("F420.9999","PRC SD PRINT",365)="1"
^DIPT("F421","PRCB 285 1ST QTR",314)="1"
^DIPT("F421","PRCB 285 2ND QTR",315)="1"
^DIPT("F421","PRCB 285 3RD QTR",316)="1"
^DIPT("F421","PRCB 285 4TH QTR",317)="1"
^DIPT("F421","PRCB 285 APR-SEP",318)="1"
^DIPT("F421","PRCB 285 FISCAL YEAR",320)="1"
^DIPT("F421","PRCB 285 OCT-MAR",319)="1"
^DIPT("F421","PRCB 285 SUMMARY",354)="1"
^DIPT("F421","PRCB APPROP SUM DETAIL",325)="1"
^DIPT("F421","PRCB APPROP SUM TOTAL",326)="1"
^DIPT("F421","PRCB DISPLAY APP SUM DETAIL",329)="1"
^DIPT("F421","PRCB FCP DISPLAY",330)="1"
^DIPT("F421","PRCB FCP LIST",323)="1"
^DIPT("F421","PRCB FTEE SUMMARY",324)="1"
^DIPT("F421","PRCB TDA DISPLAY",328)="1"
^DIPT("F421","PRCB TDA LIST",322)="1"
^DIPT("F421","PRCB TRANS RANGE",321)="1"
^DIPT("F421","PRCB TRANS RANGE DISPLAY",331)="1"
^DIPT("F421","PRCB TRANS RANGE LIST",327)="1"
^DIPT("F421.1","PRCB TEMP REVIEW",332)="1"
^DIPT("F421.2","PRCFA RR INQUIRY LISTING",297)="1"
^DIPT("F421.5","PRCF CI DISCOUNT DUE PRINT",337)="1"
^DIPT("F421.5","PRCF CI NET DUE DATE PRINT",338)="1"
^DIPT("F421.5","PRCFD DUE IN FISCAL PRINT",336)="1"
^DIPT("F421.6","PRCB READER DISP",333)="1"
^DIPT("F423","PRCFA BACKGROUND TRANSMIT",342)="1"
^DIPT("F423","PRCFA BATCH LISTING HEADER",281)="1"
^DIPT("F423","PRCFA BATCH LISTING TRAILER",282)="1"
^DIPT("F423","PRCFA BTCH HEADER",350)="1"
^DIPT("F423","PRCFA BTCH TRANSMIT",379)="1"
^DIPT("F423","PRCFA CALM HEADER",280)="1"
^DIPT("F423","PRCFA CALM TRANSMIT",279)="1"
^DIPT("F423","PRCFA ERROR LIST",305)="1"
^DIPT("F423","PRCFA REPRINT HEADER",283)="1"
^DIPT("F423","PRCFA REPRINT TRAILER",284)="1"
^DIPT("F424","PRCS1358 DAILY RECORD BALANCE",352)="1"
^DIPT("F424","PRCS1358 DAILY RECORD W COMM",353)="1"
^DIPT("F424","PRCS1358 OPEN DAILY RECORDS",356)="1"
^DIPT("F424.1","PRCE DAILY RECORD EDIT",344)="1"
^DIPT("F430","PRCA 3RD PROFILE",386)="1"
^DIPT("F430","PRCA 3RD REPORT",385)="1"
^DIPT("F430","PRCA AR LIST",391)="1"
^DIPT("F430","PRCA BILL LIST",389)="1"
^DIPT("F430","PRCA DISP AUDIT",395)="1"
^DIPT("F430","PRCA DISP AUDIT2",436)="1"
^DIPT("F430","PRCA LAST ACTIVITY",432)="1"
^DIPT("F430","PRCA LIST HOLD",407)="1"
^DIPT("F430","PRCA MEANS PROFILE",388)="1"
^DIPT("F430","PRCA NEWB LIST",406)="1"
^DIPT("F430","PRCA OTHER PROFILE",387)="1"
^DIPT("F430","PRCA PROFILE",384)="1"
^DIPT("F430","PRCA VENDOR PROFILE",428)="1"
^DIPT("F430","PRCAA AMEND AUDIT",417)="1"
^DIPT("F430","PRCAC RETURN AR",419)="1"
^DIPT("F430","PRCAD COWC LIST",411)="1"
^DIPT("F430","PRCAD DC DOJ",392)="1"
^DIPT("F430","PRCAD DELINQ",393)="1"
^DIPT("F430","PRCAL CAT LIST",420)="1"
^DIPT("F430","PRCAL L DC-DOJ",396)="1"
^DIPT("F430","PRCAL MEANS LIST",422)="1"
^DIPT("F430","PRCAP DEBTOR LOCATE",401)="1"
^DIPT("F430","PRCAP ESTABLISH AMIS",415)="1"
^DIPT("F430","PRCAP OUTSTAND AMIS",414)="1"
^DIPT("F430","PRCAP REPAYMENT",404)="1"
^DIPT("F430","PRCAP RETURN BILL",416)="1"
^DIPT("F430","PRCAR CONTINGENT REPORT",418)="1"
^DIPT("F430","PRCAR MAS REPORT",394)="1"
^DIPT("F430","PRCARFD",435)="1"
^DIPT("F430","PRCAT DISP CP",405)="1"
^DIPT("F430","PRCAT NEW AR",409)="1"
^DIPT("F430","RCDMC REFERRED DEBTS",1195)="1"
^DIPT("F430","RCXV ACTIVE PRINT",1363)="1"
^DIPT("F433","PRCA DISP ADJ",397)="1"
^DIPT("F433","PRCA DISP CARE",398)="1"
^DIPT("F433","PRCA FOLLOW-UP",429)="1"
^DIPT("F433","PRCA TRANS PROFILE",421)="1"
^DIPT("F433","PRCAC TR LIST",408)="1"
^DIPT("F433","PRCAP AMIS",413)="1"
^DIPT("F433","PRCAP CARE WV",403)="1"
^DIPT("F433","PRCAP COST",400)="1"
^DIPT("F433","PRCAP WAIVED",402)="1"
^DIPT("F433","PRCAS DC",410)="1"
^DIPT("F433","PRCAT NEW TRANS",399)="1"
^DIPT("F44","CAPTIONED",.01)="1"
^DIPT("F44","PSO ACTION PROFILE",466)="1"
^DIPT("F44","PSO ACTION PROFILE #2",1197)="1"
^DIPT("F440.5","PRCH CARD INFO",1098)="1"
^DIPT("F440.5","PRCH IMPAC",1108)="1"
^DIPT("F440.6","PRCH AO AUDIT",1145)="1"
^DIPT("F440.6","PRCH BOC PRINT",1200)="1"
^DIPT("F440.6","PRCH DEL. REC1",1134)="1"
^DIPT("F440.6","PRCH DEL. RECPRT",1231)="1"
^DIPT("F440.6","PRCH FINAL CHARGE",1137)="1"
^DIPT("F440.6","PRCH P/C ORACLE",1054)="1"
^DIPT("F440.6","PRCH PC AUDIT",1138)="1"
^DIPT("F440.6","PRCH RECONCILE PRINT",1055)="1"
^DIPT("F441","PRCHITCAT",264)="1"
^DIPT("F441","PRCV ITEM DISPLAY",1410)="1"
^DIPT("F442","PRCB FCP PO STATUS",307)="1"
^DIPT("F442","PRCE 1358 EOM LISTING",345)="1"
^DIPT("F442","PRCFA 1358 EOM REPORT",351)="1"
^DIPT("F442","PRCFA STATUS OF PAT",311)="1"
^DIPT("F442","PRCFA UNDEL ORD",286)="1"
^DIPT("F442","PRCFUO",300)="1"
^DIPT("F442","PRCFUOMS",383)="1"
^DIPT("F442","PRCH CARD PRINT",470)="1"
^DIPT("F442","PRCH DEL HEADER",1128)="1"
^DIPT("F442","PRCH FISCAL PRINT",269)="1"
^DIPT("F442","PRCH FPDS <25K HEADER",301)="1"
^DIPT("F442","PRCH FPDS <25K PRINT",302)="1"
^DIPT("F442","PRCH FPDS CONTRACT # HEADER",291)="1"
^DIPT("F442","PRCH FPDS CONTRACT # PRINT",290)="1"
^DIPT("F442","PRCH FPDS LI PRINT",292)="1"
^DIPT("F442","PRCH FPDS PO REG",272)="1"
^DIPT("F442","PRCH FPDS PO REG PRINT",289)="1"
^DIPT("F442","PRCH IMP POREG",274)="1"
^DIPT("F442","PRCH ITEM TXHIST",1193)="1"
^DIPT("F442","PRCH ITEM TXHIST-HDR",1192)="1"
^DIPT("F442","PRCH OBLIGATED 1358 LIST",1430)="1"
^DIPT("F442","PRCH OVERAGE",471)="1"
^DIPT("F442","PRCH PO REGISTER",273)="1"
^DIPT("F442","PRCH PO STATUS",275)="1"
^DIPT("F442","PRCH TOT AMT",270)="1"
^DIPT("F442","PRCH TOT AMT DAILY",1127)="1"
^DIPT("F442","PRCH UNPOSTED DIETETIC PRINT",346)="1"
^DIPT("F442","PRCH W/O FPDS",303)="1"
^DIPT("F442","PRCH WHSE STATS",285)="1"
^DIPT("F442","PRCH WORKLOAD",1136)="1"
^DIPT("F442","PRCHOUT RR NOT PROC.BY FISCAL",310)="1"
^DIPT("F442","PRCS1358 FORM PRINT",288)="1"
^DIPT("F442.9","PRCFA REC RPT TRANS LIST",335)="1"
^DIPT("F442.9","PRCFA RECEIVING REPORT LIST",334)="1"
^DIPT("F443","PRCH OUTSTAND HDR",1129)="1"
^DIPT("F443","PRCH REQUEST LIST",277)="1"
^DIPT("F443","PRCH REQUEST SVC",278)="1"
^DIPT("F444","PRCHQ RFQ FULL",1058)="1"
^DIPT("F444","PRCHQ RFQ MESSAGES 2",1059)="1"
^DIPT("F444","PRCHQ RFQ SYNOPSIS",1057)="1"
^DIPT("F444","PRCHQ UNAWARDED",1056)="1"
^DIPT("F445","PRCP REPORT:COMPREHENSIVE",261)="1"
^DIPT("F445","PRCP REPORT:DUEIN",262)="1"
^DIPT("F445","PRCP REPORT:EMERGENCY",258)="1"
^DIPT("F445","PRCP REPORT:LAST SOURCE",259)="1"
^DIPT("F445","PRCP REPORT:NSN",257)="1"
^DIPT("F445","PRCP REPORT:POSTED STOCK",260)="1"
^DIPT("F445.2","PRCP POSTED DIETETIC PRINT",263)="1"
^DIPT("F446.4","PRCT DATA UPLOAD STATUS",256)="1"
^DIPT("F45","801HEADER",1425)="1"
^DIPT("F45","801notsenttopce",1424)="1"
^DIPT("F45","DG PTF PT BRIEF LIST",217)="1"
^DIPT("F45","DGCODING REPORT",203)="1"
^DIPT("F45","DGDRGENTER",207)="1"
^DIPT("F45","DGICD",199)="1"
^DIPT("F45","DGOPENPTF",200)="1"
^DIPT("F45","DGPT CENSUS CODING REPORT",215)="1"
^DIPT("F45","DGPT CENSUS INQUIRY",212)="1"
^DIPT("F45","DGPTF",197)="1"
^DIPT("F45","DGUPDATE",201)="1"
^DIPT("F45.7","DGTREAT",205)="1"
^DIPT("F45.84","DGPT CENSUS UNRELEASED",213)="1"
^DIPT("F45.84","DGUNRELEASED",198)="1"
^DIPT("F45.85","DGPT FEE BASIS",1408)="1"
^DIPT("F45.85","DGPT WORKFILE",211)="1"
^DIPT("F45.86","DGPT QUICK PROFILE",216)="1"
^DIPT("F45.87","DGPT PRINT",223)="1"
^DIPT("F45.89","DGPT EXPANDED CODE LIST",222)="1"
^DIPT("F470","PRPF BALANCE IN ACCOUNTS",1085)="1"
^DIPT("F470","PRPF CARD PRINT",1076)="1"
^DIPT("F470","PRPF CURRENT BAL",1105)="1"
^DIPT("F470","PRPF DORMANT ACCOUNT LIST",1092)="1"
^DIPT("F470","PRPF INACTIVE ACCOUNTS",1082)="1"
^DIPT("F470","PRPF INDIGENT LIST",1083)="1"
^DIPT("F470","PRPF MIN/MAX1",1088)="1"
^DIPT("F470","PRPF MIN/MAX2",1089)="1"
^DIPT("F470","PRPF NEGATIVE BALANCES",1107)="1"
^DIPT("F470","PRPF NEW ACCOUNT STATUS",1091)="1"
^DIPT("F470","PRPF OUT OF BALANCE",1090)="1"
^DIPT("F470","PRPF OVERDUE PRINT",1087)="1"
^DIPT("F470","PRPF PATIENT LIST",1086)="1"
^DIPT("F470","PRPF PATIENT SUMMARY",1084)="1"
^DIPT("F470","PRPF RANGE OF CARDS",1104)="1"
^DIPT("F470","PRPF SUSPENSE DISPLAY",1093)="1"
^DIPT("F470","PRPF SUSPENSE LIST",1077)="1"
^DIPT("F470","PRPF TRANSACTION DISPLAY",1078)="1"
^DIPT("F470","PRPF UNASSIGNED STATION LIST",1318)="1"
^DIPT("F470.1","PRPF CLERK STAT HDR",1081)="1"
^DIPT("F470.1","PRPF DAILY ACTIVITY",1079)="1"
^DIPT("F470.1","PRPF DAILY TRANSACTION SUMMARY",1080)="1"
^DIPT("F470.1","PRPF DAYS BETWEEN DATES",1106)="1"
^DIPT("F470.1","PRPF FISCAL ACTIVITY REPORT",1094)="1"
^DIPT("F470.1","PRPF FISCAL TRANS SUMMARY",1095)="1"
^DIPT("F48","DGNOTE",194)="1"
^DIPT("F5","CAPTIONED",.01)="1"
^DIPT("F5","GREGG",1061)="1"
^DIPT("F5","GREGG1",1062)="1"
^DIPT("F5","GREGG2",1063)="1"
^DIPT("F5","XIP STATE EXPORT",1434)="1"
^DIPT("F5","XIP STATE/COUNTY EXPORT",1433)="1"
^DIPT("F5.12","XIP ZIP CODE LIST",1393)="1"
^DIPT("F50","CAPTIONED",.01)="1"
^DIPT("F50","PSADRI",492)="1"
^DIPT("F50","PSADRIH",495)="1"
^DIPT("F50","PSADRIP",493)="1"
^DIPT("F50","PSNFRMPRT",456)="1"
^DIPT("F50","PSNHEAD",454)="1"
^DIPT("F50","PSNLDG1",453)="1"
^DIPT("F50","PSNODDI1",1343)="1"
^DIPT("F50","PSNODDI2",1344)="1"
^DIPT("F50","PSNRPT4",452)="1"
^DIPT("F50","PSO ALPHA DRUG LIST",458)="1"
^DIPT("F50","PSO DRUG LIST",457)="1"
^DIPT("F50","PSO INACTIVE DRUG LIST",460)="1"
^DIPT("F50","PSO N/F LIST",461)="1"
^DIPT("F50","PSO SYNONYM LIST",459)="1"
^DIPT("F50.0731","PSOD PRINT ANSWER SHEET",469)="1"
^DIPT("F50.6","PSANDC",1130)="1"
^DIPT("F50.605","PSNPRINT",455)="1"
^DIPT("F50.606","PSJ DOSAGE FORM REPORT",1199)="1"
^DIPT("F50.68","PSNEXMP1",1342)="1"
^DIPT("F50.9","PSO COST STAT",1196)="1"
^DIPT("F50.9","PSO PHARMACY STATS",464)="1"
^DIPT("F50.9","PSO REQUEST STATISTICS",465)="1"
^DIPT("F503330","ABSV ALPHA LIST",1151)="1"
^DIPT("F503330","ABSV ALPHA PRINT",963)="1"
^DIPT("F503330","ABSV GAMES ASSIGNMENT SCHEDULE",1202)="1"
^DIPT("F503330","ABSV GAMES MASTER REGISTRATION",1203)="1"
^DIPT("F503330","ABSV GAMES SHIRT LIST",1204)="1"
^DIPT("F503330","ABSV GAMES SIGN-IN LIST",1205)="1"
^DIPT("F503330","ABSV GAMES WORK SCHEDULE",1201)="1"
^DIPT("F503330","ABSV LABEL",964)="1"
^DIPT("F503330","ABSV POTENTIAL AWARD LIST",1158)="1"
^DIPT("F503330","ABSV SCAN",967)="1"
^DIPT("F503330","ABSV SIGN-IN LIST",1182)="1"
^DIPT("F503330","ABSV TEST LABEL",1152)="1"
^DIPT("F503330","ABSV TT88 LIST",965)="1"
^DIPT("F503330","ABSVM PARKING EXPORT",1332)="1"
^DIPT("F503330","ABSVM PROFILES EXPORT",1330)="1"
^DIPT("F503330","ABSVM VOL COMBINATIONS EXPORT",1331)="1"
^DIPT("F503330","ABSVM VOL CONTACT EXPORT",1329)="1"
^DIPT("F503330","ABSVM VOL MASTER EXPORT",1328)="1"
^DIPT("F503330.1","ABSV POST ERROR PRINT",962)="1"
^DIPT("F503330.1","ABSV POST PRINT",961)="1"
^DIPT("F503330.1","ABSV STATION LIST",966)="1"
^DIPT("F503331","ABSV MONTHLY REPORT",954)="1"
^DIPT("F503331","ABSV MONTHLY SUMMARY",955)="1"
^DIPT("F503331","ABSV REVIEW DAILY ENTRIES",951)="1"
^DIPT("F503331","ABSV WEEKLY WORK SUMMARY",960)="1"
^DIPT("F503331","ABSVM REGULAR HOURS EXPORT",1327)="1"
^DIPT("F503332","ABSVM SERVICE CODES EXPORT",1324)="1"
^DIPT("F503334","ABSVM ORGANIZATION EXPORT",1325)="1"
^DIPT("F503334.1","ABSV AJR REPORT",1258)="1"
^DIPT("F503334.1","ABSV CERTIFYING OFFICIAL",1260)="1"
^DIPT("F503334.1","ABSV NOM BY ORGANIZATION",1259)="1"
^DIPT("F503335","ABSV BATCH LIST",948)="1"
^DIPT("F503335","ABSV ERROR LIST",950)="1"
^DIPT("F503335","ABSV ORGANIZATION CONDENSED",1181)="1"
^DIPT("F503335","ABSV ORGANIZATION DETAIL LIST",946)="1"
^DIPT("F503335","ABSV ORGANIZATION SUMMARY",952)="1"
^DIPT("F503335","ABSV SERVICE LIST",947)="1"
^DIPT("F503335","ABSV SERVICE SUMMARY",953)="1"
^DIPT("F503335","ABSV TC PRINT",956)="1"
^DIPT("F503335","ABSV TRANSMIT",949)="1"
^DIPT("F503336","ABSV OCC BATCH LIST",959)="1"
^DIPT("F503336","ABSV OCC ERROR LIST",958)="1"
^DIPT("F503336","ABSV OCC HRS ORG SUMMARY",1154)="1"
^DIPT("F503336","ABSV OCC HRS SERV SUMMARY",1155)="1"
^DIPT("F503336","ABSV OCC HRS SUMMARY",1156)="1"
^DIPT("F503336","ABSV OCC TRANSMIT",957)="1"
^DIPT("F503336","ABSVM OCCASIONAL EXPORT",1326)="1"
^DIPT("F503339.2","ABSV DIRECTORY PRINT",1157)="1"
^DIPT("F503339.2","ABSV SELECTED STATION INFO",1153)="1"
^DIPT("F503340","ABSV DON ACK VALUE PRINT",1306)="1"
^DIPT("F503340","ABSV DON DATE STATS",1312)="1"
^DIPT("F503340","ABSV DON DONOR STATISTICS",1310)="1"
^DIPT("F503340","ABSV DON EXPORT",1315)="1"
^DIPT("F503340","ABSV DON FISCAL PRINT",1307)="1"
^DIPT("F503340","ABSV DON FUND STATS",1313)="1"
^DIPT("F503340","ABSV DON IND ORG",1308)="1"
^DIPT("F503340","ABSV DON INDIVIDUAL",1304)="1"
^DIPT("F503340","ABSV DON ORG STATS",1311)="1"
^DIPT("F503340","ABSV DON ORG VALUE PRINT",1302)="1"
^DIPT("F503340","ABSV DON POST",1309)="1"
^DIPT("F503340","ABSV DON RECEIVED PRINT",1303)="1"
^DIPT("F503340","ABSV DON TYPE STATS",1314)="1"
^DIPT("F503340","ABSV DON TYPE VALUE PRINT",1305)="1"
^DIPT("F509850.7","ACKQ WORKLOAD DISPLAY",968)="1"
^DIPT("F52","PSO HOLD",467)="1"
^DIPT("F52","PSO NARC LIST",463)="1"
^DIPT("F52.11","PSO BBWAIT PRINT",1198)="1"
^DIPT("F52.5","PSO SUSPENSE LIST",462)="1"
^DIPT("F56","PSNACTION",1194)="1"
^DIPT("F56","PSNLOCAL",1214)="1"
^DIPT("F58.1","PSGW PERCENTAGE",490)="1"
^DIPT("F58.1","PSGW SHOW AREA OF USE",491)="1"
^DIPT("F58.16","PSGW INV TYPE",489)="1"
^DIPT("F58.17","PSGW ITEM LOC",488)="1"
^DIPT("F58.8","PSAINV",494)="1"
^DIPT("F60","LA7S PRINT",1146)="1"
^DIPT("F60","LR TEST DICTIONARY",80)="1"
^DIPT("F61.3","LR ANTIGEN/ANTIBODY LISTING",90)="1"
^DIPT("F61.3","LRBL ANTIBODIES",113)="1"
^DIPT("F61.3","LRBLAG WKLD CODES",119)="1"
^DIPT("F61.39","LA ASHANT",1075)="1"
^DIPT("F61.39","LA ASHORG",1074)="1"
^DIPT("F615.2","YSSR 10-2683 FOOTER",552)="1"
^DIPT("F615.2","YSSR 10-2683 HEADER",559)="1"
^DIPT("F615.2","YSSR 10-2683 PRINT",560)="1"
^DIPT("F615.2","YSSR DATE MGT HEADER",554)="1"
^DIPT("F615.2","YSSR DATE MGT PRINT",553)="1"
^DIPT("F615.2","YSSR NURSE MGT HEADER",557)="1"
^DIPT("F615.2","YSSR NURSE MGT PRINT",558)="1"
^DIPT("F615.2","YSSR PT INQ HEADER",563)="1"
^DIPT("F615.2","YSSR PT INQ PRINT",564)="1"
^DIPT("F615.2","YSSR REVIEW ACTION HEADER",561)="1"
^DIPT("F615.2","YSSR REVIEW ACTION PRINT",562)="1"
^DIPT("F615.2","YSSR WARD MGT HEADER",555)="1"
^DIPT("F615.2","YSSR WARD MGT PRINT",556)="1"
^DIPT("F62.2","LR LAB SECTION LIST BY ABBREV",77)="1"
^DIPT("F62.2","LR LAB SECTION LIST BY NAME",76)="1"
^DIPT("F62.2","LR LAB SUBSECTION BY SECTION",78)="1"
^DIPT("F62.2","LR LAB SUBSECTION LIST",79)="1"
^DIPT("F62.4","LRAUTOINST",124)="1"
^DIPT("F62.5","LRBL DESCRIPTIONS",91)="1"
^DIPT("F624","YSJOB",551)="1"
^DIPT("F63","LRSP",123)="1"
^DIPT("F64","LR WKLD CODE BY SECTION",121)="1"
^DIPT("F64","LR WKLD CODE LIST BY NAME",117)="1"
^DIPT("F64","LR WKLD CODE LIST BY WKLD CODE",116)="1"
^DIPT("F64.1","LRAR ARCHIVE WKLD DATA 64.1",1053)="1"
^DIPT("F64.2","LR WKLD SUFFIX BY LAB SECTION",120)="1"
^DIPT("F64.2","LR WKLD SUFFIX BY MANUFACTURE",122)="1"
^DIPT("F65","ARCHIVE BLOOD TEMPLATE",130)="1"
^DIPT("F65","LRAR ARCHIVE 65",131)="1"
^DIPT("F65","LRBL DISCARDED UNITS DISP",125)="1"
^DIPT("F65","LRBL DISPOSITION TOTALS",106)="1"
^DIPT("F65","LRBL ISSUES TO SURGERY",105)="1"
^DIPT("F65","LRBL TRANSFUSION REACTIONS",126)="1"
^DIPT("F65","LRBL WASTAGE REPORT",107)="1"
^DIPT("F65","LRBLDP",93)="1"
^DIPT("F65","LRBLDSP",94)="1"
^DIPT("F65","LRBLINV",92)="1"
^DIPT("F65","LRBLITR",86)="1"
^DIPT("F65","LRBLTX",75)="1"
^DIPT("F65","ZZDANILA",132)="1"
^DIPT("F65.5","LRBL APHERESIS DONORS",99)="1"
^DIPT("F65.5","LRBL COLLECTION DISP RPT",109)="1"
^DIPT("F65.5","LRBL DEFERRAL REPORT",98)="1"
^DIPT("F65.5","LRBL DONOR TESTING REPORT",108)="1"
^DIPT("F65.5","LRBL DONOR TESTING SUPPLEMENT",112)="1"
^DIPT("F65.5","LRBL EMERGENCY DONORS",96)="1"
^DIPT("F65.5","LRBL EX-DONOR REPORT",102)="1"
^DIPT("F65.5","LRBL FIRST TIME DONORS",100)="1"
^DIPT("F65.5","LRBL GROUP AFFILIATION REPORT",111)="1"
^DIPT("F65.5","LRBL GROUP DONATION REPORT",104)="1"
^DIPT("F65.5","LRBL MOBILE REPORT",101)="1"
^DIPT("F65.5","LRBL MONTHLY RECALL LIST",97)="1"
^DIPT("F65.5","LRBL PATIENT CREDIT",95)="1"
^DIPT("F65.5","LRBL PRODUCT REJECTION REPORT",110)="1"
^DIPT("F65.5","LRBL SHORT DRAW REPORT",103)="1"
^DIPT("F65.5","LRBLD GALLON",89)="1"
^DIPT("F65.5","LRBLD SCHEDULING",88)="1"
^DIPT("F65.5","LRBLDPD",87)="1"
^DIPT("F650","SOWKCLT",907)="1"
^DIPT("F650","SOWKOPCT",906)="1"
^DIPT("F652","SOWKHRS",908)="1"
^DIPT("F652","SOWKHRT",904)="1"
^DIPT("F652","SOWKPRIT",905)="1"
^DIPT("F655","SOWKHIFP",909)="1"
^DIPT("F656","SOWKBHP",910)="1"
^DIPT("F66","LRBL CAP CODES",115)="1"
^DIPT("F66","LRBL WKLD CODES",118)="1"
^DIPT("F660","RMPR 2529 NT",923)="1"
^DIPT("F660","RMPR OIF/OEF PSAS VETS",1458)="1"
^DIPT("F661","RMPR PRINT ITEM",911)="1"
^DIPT("F661.1","RMPR LIST",1187)="1"
^DIPT("F663.3","RMPR 7306D 1ST",914)="1"
^DIPT("F663.3","RMPR 7306D 2ND",915)="1"
^DIPT("F663.3","RMPR 7306D 3RD",916)="1"
^DIPT("F663.3","RMPR 7306D 4TH",913)="1"
^DIPT("F663.4","RMPR 2527 HDR",918)="1"
^DIPT("F663.4","RMPR 2527 PHDR",921)="1"
^DIPT("F663.4","RMPR CLINIC PRINT",917)="1"
^DIPT("F664","RMPR 2421 LETTER INFO",930)="1"
^DIPT("F664","RMPR APPROVE",937)="1"
^DIPT("F664","RMPR ITEM",931)="1"
^DIPT("F664","RMPR NEED APP BY FORM TYPE",938)="1"
^DIPT("F664","RMPR OPEN TRANS",939)="1"
^DIPT("F664","RMPR WH DISPLAY",1420)="1"
^DIPT("F664.1","RMPR 2529 EDT",932)="1"
^DIPT("F664.1","RMPR 2529 HDR",935)="1"
^DIPT("F664.1","RMPR 2529 INQ",922)="1"
^DIPT("F664.1","RMPR 2529-3 STATUS",936)="1"
^DIPT("F664.1","RMPR 25293",940)="1"
^DIPT("F664.2","RMPR 2529 VIEW",934)="1"
^DIPT("F664.2","RMPR JOB LST",933)="1"
^DIPT("F665","RMPO ACTIVE PRINT",1220)="1"
^DIPT("F665","RMPO PAT LIST",1221)="1"
^DIPT("F665","RMPO-BILLING-PRESORT",1226)="1"
^DIPT("F665","RMPO-PRINT-RPD2",1225)="1"
^DIPT("F665","RMPO-RPT-HOPRIITM",1222)="1"
^DIPT("F665","RMPO-RPT-PRINT-HOACTZIPLIST",1223)="1"
^DIPT("F665","RMPO-RPT-PRINT-HORXEXP",1224)="1"
^DIPT("F665.1","RMPR CLOSED VISITS",919)="1"
^DIPT("F665.1","RMPR OPEN VISITS",920)="1"
^DIPT("F665.4","RMPR BLANK",925)="1"
^DIPT("F665.4","RMPR FL 10-90 ADP",926)="1"
^DIPT("F665.4","RMPR FL 10-90 CONT HEAD",928)="1"
^DIPT("F665.4","RMPR FL 10-90 CONT TRLR",929)="1"
^DIPT("F665.4","RMPR ITEM",927)="1"
^DIPT("F665.4","RMPR PAGE",924)="1"
^DIPT("F668","RMPR OACT NOTE",1268)="1"
^DIPT("F668","RMPR SUSPENSE CLOSE",912)="1"
^DIPT("F668","RMPR VIEW COMP NOTE",1267)="1"
^DIPT("F668","RMPR VIEW INITIAL ACTION",1266)="1"
^DIPT("F668","RMPR VIEW REQUEST",1265)="1"
^DIPT("F668","SUSPENSE OIF/OEF VETS",1457)="1"
^DIPT("F67.9","LR CAP ELROY",1159)="1"
^DIPT("F67.9","LRAR ARCHIVE 67.9",1052)="1"
^DIPT("F68","LR ACC INFO",82)="1"
^DIPT("F68","LR ACCESSION",83)="1"
^DIPT("F68","LR ACCESSION INFO",84)="1"
^DIPT("F68","LR FILE 68",85)="1"
^DIPT("F680","LBRY ADMIN TITLES",669)="1"
^DIPT("F680","LBRY BRIEF MEDICAL HOLDINGS",664)="1"
^DIPT("F680","LBRY BRIEF MEDICAL/SUBJECT",666)="1"
^DIPT("F680","LBRY FYI LIST",674)="1"
^DIPT("F680","LBRY GAPS LIST",657)="1"
^DIPT("F680","LBRY MEDICAL BY SUBJECT",665)="1"
^DIPT("F680","LBRY MEDICAL HOLDINGS",663)="1"
^DIPT("F680","LBRY MEDICAL SUBSCRIPTIONS",667)="1"
^DIPT("F680","LBRY MICROFILM HOLDINGS",658)="1"
^DIPT("F680","LBRY MICROFILM HOLDINGS 2",1335)="1"
^DIPT("F680","LBRY MICROFILM VENDOR",662)="1"
^DIPT("F680","LBRY PATIENT HOLDINGS",668)="1"
^DIPT("F680","LBRY PATIENT TITLES",671)="1"
^DIPT("F680","LBRY PATIENT TITLES BRIEF",672)="1"
^DIPT("F680","LBRY TITLE ALPHABETICAL",678)="1"
^DIPT("F680","LBRY TITLE ALPHABETICAL BRIEF",679)="1"
^DIPT("F680","LBRY TITLE LOCATION",655)="1"
^DIPT("F680","LBRY TITLE LOCATION BRIEF",656)="1"
^DIPT("F680","LBRY UNION LIST BRIEF",677)="1"
^DIPT("F680","LBRY UNION LIST CODE",676)="1"
^DIPT("F680.5","LBRY NEW LOCAL TITLES",617)="1"
^DIPT("F680.5","LBRY PATRON TITLES",618)="1"
^DIPT("F681","LBRY ADMIN RECIPIENTS",675)="1"
^DIPT("F681","LBRY DONOR TITLES",670)="1"
^DIPT("F681","LBRY RECIPIENTS BY TITLE",660)="1"
^DIPT("F681","LBRY RECIPIENTS WITH TITLES",661)="1"
^DIPT("F681","LBRY SUBSCRIPTION/VENDOR",659)="1"
^DIPT("F681","LBRY TITLES DUE RENEWAL",1147)="1"
^DIPT("F681","LBRY TITLES DUE RENEWAL 2",1336)="1"
^DIPT("F682","LBRY MISSING ISSUES HEADER",654)="1"
^DIPT("F682","LBRY MISSING ISSUES LIST",653)="1"
^DIPT("F682","LBRY MISSING ISSUES LIST 2",1337)="1"
^DIPT("F682","LBRY ROUTE-TO-RETURN",673)="1"
^DIPT("F69.2","LRUCNG",81)="1"
^DIPT("F69.91","LRINTEG VERSION COMPARE PRINT",114)="1"
^DIPT("F691","MCARECHOBRPR",1021)="1"
^DIPT("F691.1","MCARCATH1",974)="1"
^DIPT("F691.1","MCARCATH2",973)="1"
^DIPT("F691.1","MCARCATH3",972)="1"
^DIPT("F691.1","MCARCATH4",971)="1"
^DIPT("F691.1","MCARCATHBRPR",1019)="1"
^DIPT("F691.1","MCCBRZ",1039)="1"
^DIPT("F691.5","MCARECGBRPR",1020)="1"
^DIPT("F691.5","MCAREKG1",976)="1"
^DIPT("F691.6","MCARHOLT1",979)="1"
^DIPT("F691.6","MCARHOLT2",980)="1"
^DIPT("F691.6","MCARHOLTERBRPR",1023)="1"
^DIPT("F691.7","MCARETT1",975)="1"
^DIPT("F691.7","MCARETTBRPR",1024)="1"
^DIPT("F691.8","MCAREP1",977)="1"
^DIPT("F691.8","MCAREP1A",1014)="1"
^DIPT("F691.8","MCAREPBRPR",1022)="1"
^DIPT("F691.9","MCAREP2",1041)="1"
^DIPT("F6914","EN RESEARCH EXTRACT",1429)="1"
^DIPT("F6914","ENCMR",153)="1"
^DIPT("F6914","ENCMR HD",1109)="1"
^DIPT("F6914","ENCMRC",1112)="1"
^DIPT("F6914","ENEQ EQUIP. LIST",135)="1"
^DIPT("F6914","ENEQ REPLACEMENT",134)="1"
^DIPT("F6914","ENEQ WARRANTY",133)="1"
^DIPT("F6914","ENEXP",1111)="1"
^DIPT("F6914","ENEXP HD",1110)="1"
^DIPT("F6914","ENEXPC",1113)="1"
^DIPT("F6914","ENXKFAP",163)="1"
^DIPT("F6916","ENGSADDITIONAL",151)="1"
^DIPT("F6916","ENGSCONTRACT",148)="1"
^DIPT("F6916","ENGSGENERAL",150)="1"
^DIPT("F6916","ENGSPERSONNEL",149)="1"
^DIPT("F6916.3","ENIT ASSIGNMENT INQ",1463)="1"
^DIPT("F6919","ENARCHIVE",136)="1"
^DIPT("F692","MCAREP3",978)="1"
^DIPT("F6920","EN EQ HIST",137)="1"
^DIPT("F6920","EN EQ HIST HD",1096)="1"
^DIPT("F6922","EN PM HOURS",156)="1"
^DIPT("F6924","ENFSA1",145)="1"
^DIPT("F6925","ENPLP001",154)="1"
^DIPT("F6925","ENPLP003",155)="1"
^DIPT("F6925","ENPLP005",157)="1"
^DIPT("F6925","ENPLP006",158)="1"
^DIPT("F6925","ENPLP008",161)="1"
^DIPT("F6925","ENPLP009",162)="1"
^DIPT("F6926","ENSPPREMP",143)="1"
^DIPT("F6927","ENSPPRKEY",142)="1"
^DIPT("F6928","ENSP-H08-9",159)="1"
^DIPT("F6928","ENSP-ROOM-LOCK",146)="1"
^DIPT("F6928","ENSPFRD",144)="1"
^DIPT("F6928","ENSPFRDCEILING",138)="1"
^DIPT("F6928","ENSPFRDDWALL",152)="1"
^DIPT("F6928","ENSPFRDFLOOR",140)="1"
^DIPT("F6928","ENSPFRDWALL",139)="1"
^DIPT("F6928","ENSPR144",147)="1"
^DIPT("F6928","ENSPRM",141)="1"
^DIPT("F6928.3","ENSP-BLDG",160)="1"
^DIPT("F694","MCARHEMB",986)="1"
^DIPT("F694","MCARHEMBRPR",1030)="1"
^DIPT("F694","MCARHEMD",985)="1"
^DIPT("F694","MCARHEMF",987)="1"
^DIPT("F694.5","MCARSR",993)="1"
^DIPT("F694.5","MCARSR1",994)="1"
^DIPT("F694.5","MCARSR2",995)="1"
^DIPT("F694.5","MCARSR3",996)="1"
^DIPT("F694.5","MCARSR4",998)="1"
^DIPT("F697.3","MCFSFGM",1043)="1"
^DIPT("F698","MCARPACEGENBRPR",1031)="1"
^DIPT("F698","MCARPG",988)="1"
^DIPT("F698.1","MCAROPV",990)="1"
^DIPT("F698.1","MCARPACVLEADBRPR",1033)="1"
^DIPT("F698.2","MCAROPA",989)="1"
^DIPT("F698.2","MCARPACALEADBRPR",1032)="1"
^DIPT("F698.3","MCAROPS",991)="1"
^DIPT("F698.3","MCPACSURVBRPR",1034)="1"
^DIPT("F699","MCARGIBRPR",1026)="1"
^DIPT("F699","MCARGICON",982)="1"
^DIPT("F699","MCARGINON",983)="1"
^DIPT("F699","MCARGINONBRPR",1027)="1"
^DIPT("F699","MCARGIRCLI",981)="1"
^DIPT("F699","MCAROG",984)="1"
^DIPT("F699","MCAROGA",1001)="1"
^DIPT("F699","MCAROGH",1012)="1"
^DIPT("F699","MCAROGM",1013)="1"
^DIPT("F699","MCAROP",1002)="1"
^DIPT("F699","MCAROPE",1003)="1"
^DIPT("F699","MCAROPZ",1042)="1"
^DIPT("F699","MCARPULMBRPR",1028)="1"
^DIPT("F699","MCESPRT",1040)="1"
^DIPT("F699","MCNONENDOPARAC",1278)="1"
^DIPT("F699.5","MCCONSULT",1016)="1"
^DIPT("F699.5","MCCONSULTBRPR",1025)="1"
^DIPT("F699.5","MCGENERICBRPR",1035)="1"
^DIPT("F699.5","MCGENERICPRINT",1018)="1"
^DIPT("F70","RA DAILY LOG",604)="1"
^DIPT("F70","RA OUTSIDE LIST",603)="1"
^DIPT("F700","MCPFTBRIEF",1017)="1"
^DIPT("F700","MCPFTBRPR",1029)="1"
^DIPT("F700","MCPFTBRPR1",1038)="1"
^DIPT("F700","MCPFTP",997)="1"
^DIPT("F701","MCRHBACK",999)="1"
^DIPT("F701","MCRHBRPR",1036)="1"
^DIPT("F701","MCRHBRPR1",1037)="1"
^DIPT("F701","MCRHDEATH",1005)="1"
^DIPT("F701","MCRHHAQ",1004)="1"
^DIPT("F701","MCRHHIST",1000)="1"
^DIPT("F701","MCRHLAB",1009)="1"
^DIPT("F701","MCRHNARR",1006)="1"
^DIPT("F701","MCRHPHYS",1015)="1"
^DIPT("F701","MCRHPHYS1",1008)="1"
^DIPT("F701","MCRHPHYS2",1011)="1"
^DIPT("F701","MCRHPROG",1010)="1"
^DIPT("F703.9","MD CONVERSION ERRORS",1438)="1"
^DIPT("F703.9","MD CONVERSION SUMMARY",1437)="1"
^DIPT("F703.9","MD CONVERSION TOTALS",1439)="1"
^DIPT("F71","RA ALPHA LIST OF ACTIVES",596)="1"
^DIPT("F71","RA PARENT PROCEDURE LIST",1148)="1"
^DIPT("F71","RA PROCEDURE BY AMIS",597)="1"
^DIPT("F71","RA PROCEDURE LIST",594)="1"
^DIPT("F71","RA PROCEDURE SHORT LIST",595)="1"
^DIPT("F7118.25","CAPTIONED",.01)="1"
^DIPT("F72","RA STATUS PRINT",606)="1"
^DIPT("F727","ECX LOG",1139)="1"
^DIPT("F727.2","ECX LAB TEST HEADER",1427)="1"
^DIPT("F727.2","ECX LAB TEST PRINT",1426)="1"
^DIPT("F728.441","ECX CLINIC CODE",1140)="1"
^DIPT("F74.1","RA STANDARD REPORTS LIST",600)="1"
^DIPT("F74.3","RA DISTRIBUTION",614)="1"
^DIPT("F74.4","RA ALL UNPRINTED REPORTS",611)="1"
^DIPT("F74.4","RA PRINTED REPORTS",610)="1"
^DIPT("F74.4","RA UNPRINTED REPORTS",613)="1"
^DIPT("F740.5","QAQ AUDIT LIST",530)="1"
^DIPT("F741","QAO QAI POSSIBLE INCIDENTS",941)="1"
^DIPT("F741","QAO QAI POSSIBLE INCIDENTS HDR",942)="1"
^DIPT("F745.1","QAC DAILY",1119)="1"
^DIPT("F745.1","QAC DAILY HEADER",1120)="1"
^DIPT("F745.1","QAC DISC RPT",1122)="1"
^DIPT("F745.1","QAC DISC RPT HEADER",1208)="1"
^DIPT("F745.1","QAC DISC SERV RPT HEADER",1211)="1"
^DIPT("F745.1","QAC EMP CONTACT HEADER",1207)="1"
^DIPT("F745.1","QAC EMP TOT",903)="1"
^DIPT("F745.1","QAC EMPLOYEE",900)="1"
^DIPT("F745.1","QAC NOPAT HEADER",1209)="1"
^DIPT("F745.1","QAC PAT BRIEF",1121)="1"
^DIPT("F745.1","QAC RESP DUE",899)="1"
^DIPT("F745.1","QAC RESP DUE HEADER",1210)="1"
^DIPT("F745.1","QAC SERV RPT",902)="1"
^DIPT("F745.1","QAC STATUS",901)="1"
^DIPT("F745.1","QAC STATUS HEADER",1206)="1"
^DIPT("F772","DG NPTF TOTALS",1189)="1"
^DIPT("F776.1","HLEV REMOTE REQUESTABLE",1349)="1"
^DIPT("F776.1","HLEV REPORT MONITOR-ONE LINE",1348)="1"
^DIPT("F78.2","RA FLASH PRINT",607)="1"
^DIPT("F78.3","RA DIAGNOSTIC CODE PRINT",608)="1"
^DIPT("F78.4","RA FILM SIZE",615)="1"
^DIPT("F783","RMIM MAIL SERVER",1334)="1"
^DIPT("F783","RMIMXMIT",1333)="1"
^DIPT("F79","RA IMAGE DIV LIST",602)="1"
^DIPT("F79.1","RA EXAM ROOM LIST",605)="1"
^DIPT("F79.1","RA IMAGE LOC LIST",601)="1"
^DIPT("F79.2","RA ACTIVITY LOG",609)="1"
^DIPT("F790.2","WV PRINT PROC TYPE & ATTRIBS",1183)="1"
^DIPT("F790.31","WV PRINT RES/DIAG SYNONYMS",1184)="1"
^DIPT("F790.32","WV PRINT DIAG CODE TRANSLATION",1185)="1"
^DIPT("F798.3","ROR PENDING ERRORS",1319)="1"
^DIPT("F798.7","ROR LOG",1316)="1"
^DIPT("F799.2","ROR DATA ELEMENTS",1317)="1"
^DIPT("F801.41","PXRM DIALOG ELEMENT",1241)="1"
^DIPT("F801.41","PXRM DIALOG FORCED VALUE",1249)="1"
^DIPT("F801.41","PXRM DIALOG GROUP",1242)="1"
^DIPT("F801.41","PXRM DIALOG PROMPT",1243)="1"
^DIPT("F801.41","PXRM REMINDER DIALOG",1236)="1"
^DIPT("F801.41","PXRM RESULT ELEMENT",1255)="1"
^DIPT("F801.41","PXRM RESULT GROUP",1256)="1"
^DIPT("F801.43","PXRM FINDING ITEM PARAMETERS",1244)="1"
^DIPT("F801.45","PXRM FINDING TYPE PARAMETERS",1240)="1"
^DIPT("F801.9","PXRM RESOLUTIONS (GENERAL)",1237)="1"
^DIPT("F801.9","PXRM RESOLUTIONS (LOCAL)",1239)="1"
^DIPT("F801.9","PXRM RESOLUTIONS (NATIONAL)",1238)="1"
^DIPT("F801.95","PXRM HEALTH FACTOR RESOLUTIONS",1245)="1"
^DIPT("F81","ICPT PRINT",1101)="1"
^DIPT("F81.3","CAPTIONED",.01)="1"
^DIPT("F81.3","ICPT MODIFIERS BY RANGE",1100)="1"
^DIPT("F810.2","PXRM EXTRACT DEFINITION",1440)="1"
^DIPT("F810.3","PXRM EXTRACT EPI FINDING HDR",1269)="1"
^DIPT("F810.3","PXRM EXTRACT EPI FINDING LIST",1270)="1"
^DIPT("F810.3","PXRM EXTRACT EPI FINDING TOT",1271)="1"
^DIPT("F810.3","PXRM EXTRACT QUERI TOTALS",1406)="1"
^DIPT("F810.3","PXRM EXTRACT SUMMARY HDR",1396)="1"
^DIPT("F810.3","PXRM EXTRACT SUMMARY PRNT",1397)="1"
^DIPT("F810.4","PXRM FINDING RULE",1399)="1"
^DIPT("F810.4","PXRM PATIENT LIST RULE",1405)="1"
^DIPT("F810.4","PXRM REMINDER RULE",1443)="1"
^DIPT("F810.4","PXRM RULE SET",1400)="1"
^DIPT("F810.7","PXRM EXTRACT COUNTING",1441)="1"
^DIPT("F810.8","PXRM EXTRACT COUNTING GROUP",1442)="1"
^DIPT("F810.9","PXRM LOCATION LIST INQUIRY",1403)="1"
^DIPT("F810.9","PXRM LOCATION LIST LIST",1404)="1"
^DIPT("F811.1","PX CODE MAPPING PRINT",583)="1"
^DIPT("F811.2","PXRM TAXONOMY DIALOG",1246)="1"
^DIPT("F811.2","PXRM TAXONOMY INQUIRY",1248)="1"
^DIPT("F811.2","PXRM TAXONOMY LIST",1251)="1"
^DIPT("F811.2","PXRM TAXONOMY LIST HEADER",1250)="1"
^DIPT("F811.4","PXRM COMPUTED FINDING LIST",1252)="1"
^DIPT("F811.5","PXRM TERM INQUIRY",1247)="1"
^DIPT("F811.5","PXRM TERM LIST",1257)="1"
^DIPT("F811.6","PXRM SPONSOR INQUIRY",1296)="1"
^DIPT("F811.6","PXRM SPONSOR LIST",1280)="1"
^DIPT("F811.7","PXRM REMINDER CATEGORIES",1235)="1"
^DIPT("F811.9","PXRM DEFINITION INQUIRY",1234)="1"
^DIPT("F811.9","PXRM DEFINITION LIST",1254)="1"
^DIPT("F811.9","PXRM ITEM DEFINITION",586)="1"
^DIPT("F811.9","PXRM SUMMARY LIST",1233)="1"
^DIPT("F815","PX HS/RPT PARAMETERS PRINT",585)="1"
^DIPT("F870","CAPTIONED",.01)="1"
^DIPT("F8925","TIU PRINT AUTHOR STATS",1116)="1"
^DIPT("F8925","TIU PRINT AUTHOR STATS HEADER",1353)="1"
^DIPT("F8925","TIU PRINT REL/UNV",1350)="1"
^DIPT("F8925","TIU PRINT REL/UNV HEADER",1352)="1"
^DIPT("F8925","TIU PRINT SERVICE STATS",1118)="1"
^DIPT("F8925","TIU PRINT SERVICE STATS HEADER",1354)="1"
^DIPT("F8925","TIU PRINT TRANS STATS",1117)="1"
^DIPT("F8925","TIU PRINT TRANS STATS HEADER",1351)="1"
^DIPT("F8925","TIU RELEASED/UNVERIFIED PRINT",1115)="1"
^DIPT("F8925.2","TIU PRINT REPORT BUFFER",1114)="1"
^DIPT("F8932.1","CAPTIONED",.01)="1"
^DIPT("F8984.1","XTLK KEYWORD ALPHA",55)="1"
^DIPT("F8984.1","XTLK KEYWORD CODES",56)="1"
^DIPT("F8984.2","XTLK SHORT ALPHA",52)="1"
^DIPT("F8984.2","XTLK SHORT CODE",53)="1"
^DIPT("F8984.3","XTLK SYNONYM ALPHA",54)="1"
^DIPT("F8987.2","XUCS REPORT DATA",58)="1"
^DIPT("F8989.3","XUS-SPY-SHOW",37)="1"
^DIPT("F8991.5","XQAB SITE/NUMBER/ROU/OPT/ERR",34)="1"
^DIPT("F8992","ORB RECIP TOTALS",170)="1"
^DIPT("F8994","DSIC RPC LIST",1345)="1"
^DIPT("F8994","XWB SEND API",472)="1"
^DIPT("F9.2","XQHNEW/REVISED FRAMES",4)="1"
^DIPT("F9.4","DI-PKG-DEFAULT-DEFINITION",.941)="1"
^DIPT("F9.4","XU-PKG-DEFAULT-DEFINITION",23)="1"
^DIPT("F9.6","XPD BUILD ENTRY",1)="1"
^DIPT("F9.8","ONCOLOGY ROUTINE LIST",762)="1"
^DIPT("F9.8","XUDOC COMPLETE",21)="1"
^DIPT("F9.8","XUDOC ENTRY POINTS",22)="1"
^DIPT("F9.8","XUPRG-ROUTINE EDIT",19)="1"
^DIPT("F9.9","CAPTIONED",.01)="1"
^DIPT("F9.9","XTPM COMPLETE PATCH HISTORY",1421)="1"
^DIPT("F9.9","XTPM UNINSTALLED BY COMPLIANCE",1422)="1"
^DIPT("F9000010.07","ONC DISEASE INDEX",1272)="1"
^DIPT("F9009032.4","PSO INTERVENTIONS",468)="1"
^DIPT("F910","ESP PERSONAL DESCRIPTOR LOOKUP",893)="1"
^DIPT("F910.2","ESP CAR POOL ASSIGNMENTS",895)="1"
^DIPT("F910.2","ESP CAR POOL AVAILABILITY LIST",894)="1"
^DIPT("F910.2","ESP VEHICLE REGISTRATION LOG",882)="1"
^DIPT("F910.8","ESP ALL EVIDENCE RECORDS",887)="1"
^DIPT("F910.8","ESP OPEN EVIDENCE RECORDS",888)="1"
^DIPT("F912","ESP CASE ASSIGNMENT REGISTER",890)="1"
^DIPT("F912","ESP MISSING PATIENT REPORT-ALL",897)="1"
^DIPT("F912","ESP MISSING PATIENT REPORT-OPN",898)="1"
^DIPT("F912","ESP OFFENSE MATCH REPORT",892)="1"
^DIPT("F912.5","ESP TRAINING",886)="1"
^DIPT("F913","ESP WANTS & WARRANTS LIST",889)="1"
^DIPT("F914","ESP LOCATE VIOLATION PRINT",891)="1"
^DIPT("F914","ESP VIOLATIONS BY OFFICER",896)="1"
^DIPT("F914","ESP VIOLATIONS ISSUED",884)="1"
^DIPT("F914","ESP WARNINGS/VIOLATIONS ISSUED",883)="1"
^DIPT("F915","ESP STATUTE LOOKUP",885)="1"
^DIPT("F916","ESP DAILY JOURNAL STATISTICS",1262)="1"
^DIPT("F916","ESP DAILY SHIFT JOURNAL",1261)="1"
^DIPT("F984.9","MPIF OUTSTANDING REQUESTS",1216)="1"
^DIPT("F984.9","MPIF REQUEST VIEW",1217)="1"
^DIPT("F995.2","RGEQ STAT",1215)="1"
^DIPT("F9999999.09","PXTT EDUCATION TOPIC DETAIL",582)="1"
^DIPT("F9999999.09","PXTT EDUCATION TOPICS-BRIEF",576)="1"
^DIPT("F9999999.09","PXTT EDUCATION TOPICS-DETAILED",575)="1"
^DIPT("F9999999.14","PXTT LIST IMMUNIZATION",577)="1"
^DIPT("F9999999.15","PXTT LIST EXAMS",578)="1"
^DIPT("F9999999.17","PXTT LIST TREATMENTS",581)="1"
^DIPT("F9999999.28","PXTT LIST SKIN TESTS",580)="1"
^DIPT("F9999999.64","PXTT LIST HEALTH FACTORS",579)="1"
^DIPT("F9999999.64","PXTT LIST HEALTH FACTORS 132",1360)="1"
^DIPT("FG","ARCHIVE BLOOD TEMPLATE",130)=""
^DIPT("FG","MCFSFGM",1043)=""
^DIPT("FG","XUCS REPORT DATA",58)=""
^DIPT("FG","XWB SEND API",472)=""