FirstRelease WVEHR VER VOE1.0 Cache 31-Jan-2008 23:07:04 ZWR ^DIPT(0)="PRINT TEMPLATE^.4I^1489^1251" ^DIPT(.01,0)="CAPTIONED^^^^^^3080131" ^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^^@^3060112" ^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^^^3070124" ^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^^^3070124" ^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^^^3070124" ^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^^#^3070129" ^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^^@^3070129" ^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^^#^3070129" ^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^^#^3070129" ^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^^#^3070124" ^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^^@^3070124" ^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^2910619.1554^@^200^^@^2941018" ^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)=X S X=""Programmer Access to All Files"",DIP(3)=X S X=1,DIP(4)=X S X=""""" ^DIPT(30,"DXS",2,1)="YES" ^DIPT(30,"DXS",3,1)="YES" ^DIPT(30,"DXS",4,1)="YES" ^DIPT(30,"DXS",5,1)="YES" ^DIPT(30,"DXS",6,1)="YES" ^DIPT(30,"DXS",7,1)="YES" ^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;L9;""FILE#""~32,.01;C11;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,"IOM")="80" ^DIPT(30,"LAST")="" ^DIPT(30,"ROU")="^XUFILE0" ^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^^@^3050730" ^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^^@^3050201" ^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^^^3050209^" ^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^3060412.1327^^119.6^^^3061004" ^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",2)=".01~1~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^3000821.1101^^142^^^3080102" ^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~"" Max Hos ICD Pro CPT"";C1;S1~" ^DIPT(177,"F",4)="""Abb Ord Component Name Occ Time Loc Text Nar Mod Selection"";C1~" ^DIPT(177,"F",5)="""------------------------------------------------------------------------------"";C1~" ^DIPT(177,"H")="@" ^DIPT(177,"SUB")="1" ^DIPT(178,0)="GMTS TYPE INQ^3000821.1057^^142^^^3080102^" ^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^^^3080102^" ^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~""<>"";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""~""<>"";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^^^3050808" ^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^^@^3050806" ^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^^@^3050804" ^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^^^3050804^" ^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^^^3050615" ^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:"""",FBZEXPFBZHI):"""",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:"""",FBZEXPFBZHI):"""",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:"""",FBZEXPFBZHI):"""",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:"""",FBZEXPFBZHI):"""",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^^@^3050802" ^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^^@^3060508" ^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^^@^3050722" ^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^3010427.1311^@^801.41^^@^3050203" ^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~""Exclude Mental Health "";C1;R22~""Test Text from P/N:"";C1;R22~54~" ^DIPT(1241,"F",6)="""ADDITIONAL FINDINGS:"";C1;R22~18,""Finding item:"";C1;R22~18,.01;L35~""Result Element/Group:"";C1;R22~55;L40~""ELEMENT COMPONENTS:"";C1;R24;S1~" ^DIPT(1241,"F",7)="10,""Sequence:"";C1;R24;S1~10,.01;L2~10,""Additional prompt:"";C1;R24~10,2;L35~10,""Prompt caption:"";C10~10,D PROMPT^PXRMDLST;X;C27;Z;""D PROMPT^PXRMDLST""~" ^DIPT(1241,"F",8)="10,""Override caption: "";C8~10,6;X;C27~10,""Start new line: "";C10~10,7;X;C27~10,""Exclude from P/N: "";C8~10,8;X;C27~10,""Required: "";C16~10,9;X;C27~" ^DIPT(1241,"F",9)=""""";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^^@^3050729" ^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^^@^3060508" ^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^^@^3060508" ^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^^@^3060508" ^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^^@^3050727" ^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^3010427.1312^@^801.41^^@^3030307" ^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~" ^DIPT(1255,"H")="REMINDER DIALOG LIST" ^DIPT(1256,0)="PXRM RESULT GROUP^3010427.1312^@^801.41^^@^3030508" ^DIPT(1256,"F",1)=""""";C1;~""Name:"";C1;R31~.01;L35~""Type:"";C1;R31~4;L35~""Class:"";C1;R31~100~""Sponsor:"";C1;R31~101~""Review Date:"";C1;R31~102~""Exclude from PN:"";C1;R31~23~" ^DIPT(1256,"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(1256,"F",3)="""GROUP COMPONENTS:"";C1;R18;S1~10,""Sequence:"";C1;R18;S1~10,.01;L2~10,""Result Element:"";C1;R18~10,D OUT^PXRMDLR(X);Z;""D OUT^PXRMDLR(X)""~"""";C1;S1~" ^DIPT(1256,"H")="REMINDER DIALOG LIST" ^DIPT(1257,0)="PXRM TERM LIST^3010427.1227^@^811.5^^@^3050727" ^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(1273,0)="IMRH PRINT LAB LINKS^3000302.0416^^158.9^^^3000302" ^DIPT(1273,"F",2)="3,.01;C1~3,1,.01;C30~" ^DIPT(1273,"H")="HIV COORDINATOR LAB LINKS" ^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^^@^3050811" ^DIPT(1343,"F",2)="D ^PSNODDI1;"""";Z;""D ^PSNODDI1""~" ^DIPT(1343,"H")="DRUG LIST" ^DIPT(1344,0)="PSNODDI2^3030513.1243^@^50^^@^3050811" ^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(1364,0)="XIP ZIP CODE LIST^3040430.0645^@^5.12^^@^3040503" ^DIPT(1364,"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(1364,"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(1364,"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(1364,"F",1)="" ^DIPT(1364,"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(1364,"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(1364,"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(1364,"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(1364,"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(1364,"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(1364,"H")="ZIP CODE LIST" ^DIPT(1389,0)="BPS TECH - FILES^3010409.1144^@^1^^@^3050413" ^DIPT(1389,"F",2)="0;L13~1;L27~.01;L32~4,.01;C5~" ^DIPT(1389,"H")="BPS FILES" ^DIPT(1390,0)="BPS TECH - OPTIONS^3010205.0736^@^19^^@^3050413" ^DIPT(1390,"F",2)=".01;L30~1;L40~3.5,.01;C1~"""";S~" ^DIPT(1390,"H")="BPS OPTIONS" ^DIPT(1395,0)="SD-PAIT PATIENT HL7 LOCATION^3041005.1046^@^409.6^^@^3041005" ^DIPT(1395,"F",2)="2,.01;L20~2,1~2,"" "";"" HL7 MESSAGE""~2,2;X~2,""-""~2,3;X~" ^DIPT(1395,"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^^@^3050729" ^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)="MARKAPUPRINT1^3050801.1156^@^50^59^@^3050801" ^DIPT(1408,"F",1)="0;L6;""NMB""~.01;L40;""GENERIC NAME""~901;L8;""STRENGHT""~902;L8;""UNITS""~20;L40;""NDF""~2.1;L40;""PO-ITEM""~" ^DIPT(1408,"F",2)="-50.7,^PS(50.7,^^S I(0,0)=D0 S DIP(1)=$S($D(^PSDRUG(D0,2)):^(2),1:"""") S X=$P(DIP(1),U,1),X=X S D(0)=+X;Z;""PHARMACY ORDERABLE ITEM:""~-50.7,.02;L8;""PO-DOS F""~" ^DIPT(1408,"H")="@@" ^DIPT(1409,0)="CHRIS SORT^3050803^#^101.43^4" ^DIPT(1410,0)="ORDERABLE ITEMS^3050816.1515^@^50^59^@^3050816" ^DIPT(1410,"F",2)=".01~903,.01;D0~903,1;D1~" ^DIPT(1410,"H")="DRUG SEARCH" ^DIPT(1411,0)="vvso 12^3050818.1556^@^200^9^@^3050818" ^DIPT(1411,"F",2)=".01;S1~51,.01~" ^DIPT(1411,"H")="NEW PERSON SEARCH" ^DIPT(1412,0)="AAQJ LIST 132 ROU^2990524.2159^@^437016^^@^3051120" ^DIPT(1412,"DCL","437016.01^.01")="!" ^DIPT(1412,"F",2)="1,.01;C8;S1~1,1.3;L5~1,1~1,1.5~1,2,.01;L13~1,3,.01;L4~1,3,1~1,3,2~" ^DIPT(1412,"H")="@" ^DIPT(1412,"SUB")="1" ^DIPT(1413,0)="AAQJ PATCH SUMMARY^3051208.2116^@^437016^69^@^3051227" ^DIPT(1413,"DCL","437016.13^2")="!" ^DIPT(1413,"F",1)=".01;L9;N~1,.01;L6;""NO.""~1,1;L32~1,3,.01;L4~" ^DIPT(1413,"F",2)="1,3,S DIP(1)=$S($D(^DIZ(437016,D0,1,D1,2,D2,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"";Z;""NUMDATE(DATE)""~" ^DIPT(1413,"F",3)="1,3,2;L4~" ^DIPT(1413,"H")="PATCH SUMMARY BY INIT/PKG/DATE" ^DIPT(1414,0)="AAQJ LIST 132^2990524.2059^@^437016^^@^3051120" ^DIPT(1414,"DCL","437016.01^.01")="!" ^DIPT(1414,"F",2)="1,.01;C8;S1~1,1.3;L5~1,1~1,1.5~1,3,.01;L4~1,3,1~1,3,2~" ^DIPT(1414,"H")="@" ^DIPT(1414,"SUB")="1" ^DIPT(1415,0)="AAQJ INQUIRE^3000831.1122^@^437016^^@^3051228" ^DIPT(1415,"F",1)="1,.01;C2;L6;S1;""""~1,1.3;C10;L4;""""~1,1.5;C16;L17;""""~1,1;C36;L38;""""~1,1.43;C16;L8;""""~1,1.44;C25;L8;""""~1,3,.01;C36;L4;""""~1,3,1~1,3,2~1,3,"" "";C76~" ^DIPT(1415,"F",2)="1,3,"" "";C10;L64~1,2,.01;X;~1,2,"" "";X~" ^DIPT(1415,"H")="@" ^DIPT(1415,"SUB")="1" ^DIPT(1416,0)="AAQJ INQ HEADING^3000831.11^@^437016^^@^3051228" ^DIPT(1416,"DXS",1,9)="Q:AAQDONE=1 W !?1,""PATCH INQUIRE - "" D UCI^%ZOSV W $P(Y,"","",1) W ?55,$$HTE^XLFDT($H,""1M"")" ^DIPT(1416,"DXS",2,9)="Q:AAQDONE=1 W !,?1,""NO."",?8,""SEQ#"",?15,""ROUTINE MULTIPLE"",?35,""UCI DATE/TIME"",?62,""INITIALS""" ^DIPT(1416,"DXS",3,9)="Q:AAQDONE=1 W !,?1,""-------------------------------------------------------------------------- """ ^DIPT(1416,"F",1)="X DXS(1,9);Z;""Q:AAQDONE=1 W !?1,""PATCH INQUIRE - "" D UCI^%ZOSV W $P(Y,"","",1) W ?55,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1416,"F",2)="Q:AAQDONE=1 W !!?1,AAQJPKG,?15,""METHOD"";Z;""Q:AAQDONE=1 W !!?1,AAQJPKG,?15,""METHOD""""~" ^DIPT(1416,"F",3)="Q:AAQDONE=1 W !,?15,""MESSAGE# BACKUP#"",?35,""SUBJECT"";Z;""Q:AAQDONE=1 W !,?15,""MESSAGE# BACKUP#"",?35,""SUBJECT""""~" ^DIPT(1416,"F",4)="X DXS(2,9);Z;""Q:AAQDONE=1 W !,?1,""NO."",?8,""SEQ#"",?15,""ROUTINE MULTIPLE"",?35,""UCI DATE/TIME"",?62,""INITIALS""""~" ^DIPT(1416,"F",5)="X DXS(3,9);Z;""Q:AAQDONE=1 W !,?1,""-------------------------------------------------------------------------- """"~" ^DIPT(1416,"H")="@" ^DIPT(1416,"SUB")="1" ^DIPT(1417,0)="AAQJ LIST 80^2990523.2155^@^437016^^@^3051120" ^DIPT(1417,"DCL","437016.01^.01")="!" ^DIPT(1417,"F",2)="1,.01;C2;L6;S1;""""~1,1.3;C8;L4;""""~1,1.5;C16;L17;""""~1,1;C36;L40;""""~1,1.43;C16;L8;""""~1,1.44;C25;L8;""""~1,3,.01;C36;L4;""""~1,3,1;""""~1,3,2;""""~" ^DIPT(1417,"H")="[AAQJ LIST 80 HEADING]" ^DIPT(1418,0)="AAQJ LIST 80 HEADING^2990524.1227^@^437016^^@^3051120" ^DIPT(1418,"DXS",1,9)="W !,?1,""-------------------------------------------------------------------------- """ ^DIPT(1418,"F",1)="" ^DIPT(1418,"F",2)="W ?1,""PATCH LIST 80 - "" D UCI^%ZOSV W $P(Y,"","",1) W ?55,$$HTE^XLFDT($H,""1M"");Z;""W ?1,""PATCH LIST 80 - "" D UCI^%ZOSV W $P(Y,"","",1) W ?55,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1418,"F",3)="I $D(AAQSHDR) W !,?1,AAQSHDR;Z;""I $D(AAQSHDR) W !,?1,AAQSHDR""~W !!,?15,""METHOD"",?35,""SUBJECT"";Z;""W !!,?15,""METHOD"",?35,""SUBJECT""""~" ^DIPT(1418,"F",4)="W !,?1,""NO."",?6,""SEQ#"",?15,""MESSAGE# BACKUP#"",?35,""UCI DATE/TIME"",?62,""INITIALS"";Z;""W !,?1,""NO."",?6,""SEQ#"",?15,""MESSAGE# BACKUP#"",?35,""UCI DATE/TIME"",?62,""INITIALS""""~" ^DIPT(1418,"F",5)="X DXS(1,9);Z;""W !,?1,""-------------------------------------------------------------------------- """"~" ^DIPT(1418,"H")="@" ^DIPT(1418,"SUB")="1" ^DIPT(1419,0)="AAQJ LIST 132 HEADING^2990601.0438^@^437016^^@^3051120" ^DIPT(1419,"DXS",1,9)="W ?7,""PATCH LIST 132 - "" D UCI^%ZOSV W $P(Y,"","",1),?64,AAQJPKG,?104,$$HTE^XLFDT($H,""1M"")" ^DIPT(1419,"DXS",2,9)="W !!,?7,""NO."",?14,""SEQ#"",?22,""SUBJECT"",?64,""METHOD"",?83,""UCI DATE/TIME"",?109,""INITIALS""" ^DIPT(1419,"DXS",3,9)="W !,?7,""------------------------------------------------------------------------------------------------------------------""" ^DIPT(1419,"F",1)="X DXS(1,9);Z;""W ?7,""PATCH LIST 132 - "" D UCI^%ZOSV W $P(Y,"","",1),?64,AAQJPKG,?104,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1419,"F",2)="I $D(AAQSHDR) W !,?7,AAQSHDR;Z;""I $D(AAQSHDR) W !,?7,AAQSHDR""~" ^DIPT(1419,"F",3)="X DXS(2,9);Z;""W !!,?7,""NO."",?14,""SEQ#"",?22,""SUBJECT"",?64,""METHOD"",?83,""UCI DATE/TIME"",?109,""INITIALS""""~" ^DIPT(1419,"F",4)="X DXS(3,9);Z;""W !,?7,""------------------------------------------------------------------------------------------------------------------""""~" ^DIPT(1419,"H")="@" ^DIPT(1419,"SUB")="1" ^DIPT(1420,0)="AAQJ LIST 132 ROU HDG^2990618.1733^@^437016^^@^3051120" ^DIPT(1420,"DXS",1,9)="W ?7,""PATCH LIST 132 with ROUTINES - "" D UCI^%ZOSV W $P(Y,"","",1),?66,AAQJPKG W ?113,$$HTE^XLFDT($H,""1M"")" ^DIPT(1420,"DXS",2,9)="W !!,?7,""NO."",?14,""SEQ#"",?22,""SUBJECT"",?64,""METHOD"",?83,""ROUTINE/FIELD"",?98,""UCI DATE/TIME"",?127,""INIT""" ^DIPT(1420,"DXS",3,9)="W !,?7,""----------------------------------------------------------------------------------------------------------------------------"",!" ^DIPT(1420,"F",1)="X DXS(1,9);Z;""W ?7,""PATCH LIST 132 with ROUTINES - "" D UCI^%ZOSV W $P(Y,"","",1),?66,AAQJPKG W ?113,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1420,"F",2)="I $D(AAQSHDR) W !,?7,AAQSHDR;Z;""I $D(AAQSHDR) W !,?7,AAQSHDR""~" ^DIPT(1420,"F",3)="X DXS(2,9);Z;""W !!,?7,""NO."",?14,""SEQ#"",?22,""SUBJECT"",?64,""METHOD"",?83,""ROUTINE/FIELD"",?98,""UCI DATE/TIME"",?127,""INIT""""~" ^DIPT(1420,"F",4)="X DXS(3,9);Z;""W !,?7,""----------------------------------------------------------------------------------------------------------------------------""""~" ^DIPT(1420,"H")="@" ^DIPT(1420,"SUB")="1" ^DIPT(1421,0)="XUSERINQFGO^3010918.1343^^200^^^3051110" ^DIPT(1421,"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(1421,"DXS",2,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11),DIP(2)=X S X=1,X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=X S X=""TD""" ^DIPT(1421,"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),1),DIP(3)=X S X=""DIS""" ^DIPT(1421,"DXS",4,9.2)="S DIP(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(DIP(1),U,8),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=19" ^DIPT(1421,"DXS",5,9.2)="S DIP(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=1,X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=X S X=62" ^DIPT(1421,"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),1),DIP(3)=X S X=19" ^DIPT(1421,"DXS",7,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=62" ^DIPT(1421,"DXS",8,9.2)="S DIP(1)=$S($D(^VA(200,D0,200)):^(200),1:"""") S X=$P(DIP(1),U,10),DIP(2)=X S X=19" ^DIPT(1421,"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),1),DIP(3)=X S X=62" ^DIPT(1421,"DXS",10,9.2)="S DIP(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(3.1,+$P(DIP(1),U,9),0)):"""",1:$P(^(0),U,1)),DIP(2)=X S X=19" ^DIPT(1421,"DXS",11,9.2)="S DIP(1)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=$P(DIP(1),U,2),DIP(2)=X S X=62" ^DIPT(1421,"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),1),DIP(3)=X S X=19" ^DIPT(1421,"DXS",13,9.2)="S DIP(1)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=$P(DIP(1),U,7),DIP(2)=X S X=62" ^DIPT(1421,"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)=X S X=""1D"",X1=DIP(2) S X=$$FMTE^XLFDT(X1,X) S X=X,DIP(3)=X S X=19" ^DIPT(1421,"DXS",15,9.2)="S DIP(1)=$S($D(^VA(200,D0,.13)):^(.13),1:"""") S X=$P(DIP(1),U,8),DIP(2)=X S X=62" ^DIPT(1421,"DXS",16,9.2)="S DIP(1)=$S($D(^VA(200,D0,5)):^(5),1:"""") S X=$P(DIP(1),U,2),DIP(2)=X S X=19" ^DIPT(1421,"DXS",17,9.2)="S DIP(1)=$S($D(^VA(200,D0,.14)):^(.14),1:"""") S X=$P(DIP(1),U,1),DIP(2)=X S X=62" ^DIPT(1421,"DXS",18,9)="N % S X=$$GET^XUA4A72(D0),%=+X W:% !,?5,$P(X,U,2) W:%&$L($P(X,U,3)) !,?8,$P(X,U,3) W:%&$L($P(X,U,4)) !,?11,$P(X,U,4) S X=""""" ^DIPT(1421,"DXS",19,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(1421,"F",1)="" ^DIPT(1421,"F",2)="W !,""User Inquiry - "" D UCI^%ZOSV W $P(Y,"","",1) W ?57,$$HTE^XLFDT($H,""1M"");Z;""W !,""User Inquiry - "" D UCI^%ZOSV W $P(Y,"","",1) W ?57,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1421,"F",3)="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;S1;"""";Z;""XUDASH(NAME_"" (#""_NUMBER_"")"")""~" ^DIPT(1421,"F",4)="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(1421,"F",5)="W:$L($P(^VA(200,D0,0),U,11)) !,*7,?3,""Terminated: "",DIPA(""TD"");Z;""W:$L($P(^VA(200,D0,0),U,11)) !,*7,?3,""Terminated: "",DIPA(""TD"")""~" ^DIPT(1421,"F",6)="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(1421,"F",7)="W:DIPA(""DIS"")[""Y"" !,?3,""Disuser: "",DIPA(""DIS"");Z;""W:DIPA(""DIS"")[""Y"" !,?3,""Disuser: "",DIPA(""DIS"")""~D INQ^XUS9 S X="""";Z;""D INQ^XUS9 S X=""""""~" ^DIPT(1421,"F",8)="S X=""ATTRIBUTES"",%=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""" W X K DIP;C1;S2;Z;""XUDASH(""ATTRIBUTES"")""~""Creator"";C3;""""~" ^DIPT(1421,"F",9)="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(1421,"F",10)="S X=""Date entered"" W X K DIP;C43;"";Z;""""Date entered""""~" ^DIPT(1421,"F",11)="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(1421,"F",12)="""Mult Sign-on"";C3~" ^DIPT(1421,"F",13)="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(1421,"F",14)="""Fileman codes"";C43~" ^DIPT(1421,"F",15)="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(1421,"F",16)="""Time-out"";C3~" ^DIPT(1421,"F",17)="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(1421,"F",18)="""Type-ahead"";C43~" ^DIPT(1421,"F",19)="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(1421,"F",20)="""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(1421,"F",21)="""Office Phone"";C43~" ^DIPT(1421,"F",22)="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(1421,"F",23)="""Auto-Menu"";C3;""""~" ^DIPT(1421,"F",24)="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(1421,"F",25)="""Analog Pager"";C43~" ^DIPT(1421,"F",26)="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(1421,"F",27)="""Last Sign-on"";C3~" ^DIPT(1421,"F",28)="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(1421,"F",29)="""Digital Pager"";C43~" ^DIPT(1421,"F",30)="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(1421,"F",31)="""Mail Code"";C3;""""~" ^DIPT(1421,"F",32)="X DXS(16,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(MAIL CODE,19)""~""Room"";C43~" ^DIPT(1421,"F",33)="X DXS(17,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(ROOM,62)""~"" "";C1~" ^DIPT(1421,"F",34)="""Person Class: "";C3~" ^DIPT(1421,"F",35)="X DXS(18,9);Z;""N % S X=$$GET^XUA4A72(D0),%=+X W:% !,?5,$P(X,U,2) W:%&$L($P(X,U,3)) !,?8,$P(X,U,3) W:%&$L($P(X,U,4)) !,?11,$P(X,U,4) S X=""""""~"" "";C1~" ^DIPT(1421,"F",36)="S DIP(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=""Primary Menu: ""_$S('$D(^DIC(19,+$P(DIP(1),U,1),0)):"""",1:$P(^(0),U,1)) W X K DIP;C1;Z;""""Primary Menu: ""_PRIMARY MENU""~" ^DIPT(1421,"F",37)="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;S1;Z;""XUDASH(""Secondary Menu(s)"")""~" ^DIPT(1421,"F",38)="203,X DXS(19,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) W X K DIP;C5;"""";"""";Z;""SECONDARY MENU OPTION:MENU TEXT""~203,2;C41~203,.01;C47~" ^DIPT(1421,"F",39)="D ^AAQMAILG S X="""";Z;""D ^AAQMAILG S X=""""""~" ^DIPT(1421,"H")="@" ^DIPT(1421,"SUB")="1" ^DIPT(1422,0)="KEY/NEW PERSON LIST^3000106.1749^@^19.1^^@^3030403" ^DIPT(1422,"DXS",1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)-1) I D,$D(^VA(200,D,0)) S X=$P(^(0),U,1) S DIXX=DIXX(1) D M" ^DIPT(1422,"DXS",1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^VA(200,""AB"",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(1422,"F",1)="-200,^VA(200,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DXS(1,9.3) S X="""" S D0=I(0,0);Z;""NEW PERSON:""~-200,.01;L20;Y6~-200,201;L25~-200,3;L9~-200,28;L5~" ^DIPT(1422,"F",2)="-200,S DIP(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(DIP(101),U,11) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) W X K DIP;""TERMINATED"";Z;""NUMDATE(TERMINATION DATE)""~" ^DIPT(1422,"H")="[KEY/NEW PERSON HEADING]" ^DIPT(1422,"IOM")="80" ^DIPT(1422,"LAST")="" ^DIPT(1422,"ROU")="^XUZKEYS" ^DIPT(1422,"ROUOLD")="XUZKEYS" ^DIPT(1423,0)="OPTION INQUIRE WITH SCHEDULING^3010504.1057^@^19^^@^3051121" ^DIPT(1423,"DXS",1,9)="W !,""Option Inquire with Scheduling - "" D UCI^%ZOSV W $P(Y,"","",1) W ?56,$$HTE^XLFDT($H,""1M"")" ^DIPT(1423,"DXS",2,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^DIC(19.2,D,0)) S X=$P(^(0),U,1) S:$D(^DIC(19,+X,0)) X=$P(^(0),U,1) S DIXX=DIXX(1) D M" ^DIPT(1423,"DXS",2,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^DIC(19.2,""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(1423,"F",1)="X DXS(1,9);Z;""W !,""Option Inquire with Scheduling - "" D UCI^%ZOSV W $P(Y,"","",1) W ?56,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1423,"F",2)="W ! S DIC=""^DIC(19,"",DA=D0 D EN^DIQ;Z;""W ! S DIC=""^DIC(19,"",DA=D0 D EN^DIQ""~" ^DIPT(1423,"F",3)="-19.2,^DIC(19.2,^1^S I(0,0)=$G(D0) X DXS(2,9.3) S X="""" S D0=I(0,0);Z;""OPTION SCHEDULING:""~-19.2,""QUEUED TO RUN AT WHAT TIME: "";C5;S1~-19.2,2;C35;""""~" ^DIPT(1423,"F",4)="-19.2,""DEVICE FOR QUEUED JOB OUTPUT: "";C5~-19.2,3;C35;""""~-19.2,""RESCHEDULING FREQUENCY: "";C5~-19.2,6;C35;""""~-19.2,""QUEUED TO RUN ON VOLUME SET: "";C5~" ^DIPT(1423,"F",5)="-19.2,5;C35;""""~-19.2,""TASK ID: "";C5~-19.2,12;C35;""""~-19.2,""SPECIAL QUEUEING: "";C5~-19.2,9;C35;""""~" ^DIPT(1423,"H")="@" ^DIPT(1423,"SUB")="1" ^DIPT(1424,0)="ACTIVE USERS BY MAIL CODE^3011109.1553^@^200^^@^3011109^7" ^DIPT(1424,105)="^^1" ^DIPT(1424,"F",2)=".01~29~747.1~202~437003~7~" ^DIPT(1425,0)="BRIEF USER HEADING^3040310.1613^@^200^^@^3040902" ^DIPT(1425,"DXS",1,9)="W !,""Brief User Report by Mail Code - "" D UCI^%ZOSV W $P(Y,"","",1) W ?57,$$HTE^XLFDT($H,""1M"")" ^DIPT(1425,"F",1)="X DXS(1,9);Z;""W !,""Brief User Report by Mail Code - "" D UCI^%ZOSV W $P(Y,"","",1) W ?57,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1425,"F",2)="W !!,""NAME"",?24,""INIT"",?30,""PRIMARY MENU"",?56,""PHONE"",?63,""ROOM"";Z;""W !!,""NAME"",?24,""INIT"",?30,""PRIMARY MENU"",?56,""PHONE"",?63,""ROOM""""~" ^DIPT(1425,"H")="@" ^DIPT(1425,"SUB")="1" ^DIPT(1426,0)="KEY/NEW PERSON HEADING^2981204.224^@^19.1^^@^3030403" ^DIPT(1426,"DXS",1,9)="W !,""Users Holding Certain Key(s) - "" D UCI^%ZOSV W $P(Y,"","",1) W ?57,$$HTE^XLFDT($H,""1M"")" ^DIPT(1426,"F",1)="X DXS(1,9);Z;""W !,""Users Holding Certain Key(s) - "" D UCI^%ZOSV W $P(Y,"","",1) W ?57,$$HTE^XLFDT($H,""1M"")""~" ^DIPT(1426,"F",2)="W !!,""NAME"",?22,""PRIMARY MENU"",?49,""FILEMAN"",?60,""MAIL"",?66,""TERM DATE"";Z;""W !!,""NAME"",?22,""PRIMARY MENU"",?49,""FILEMAN"",?60,""MAIL"",?66,""TERM DATE""""~" ^DIPT(1426,"H")="@" ^DIPT(1426,"SUB")="1" ^DIPT(1427,0)="DGPT FEE BASIS^3050323.1514^^45.85^^^3050407" ^DIPT(1427,"DCL","45.85^0")="!" ^DIPT(1427,"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(1427,"F",1)=".01;L20;C1~" ^DIPT(1427,"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(1427,"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(1427,"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(1427,"F",5)="101;C74;L7~" ^DIPT(1427,"H")="FEE BASIS CENSUS WORKFILE LIST" ^DIPT(1428,0)="DG ISO SENSITIVE RCDS PRT^3050722.1544^^38.1^^^3050722" ^DIPT(1428,"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(1428,"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(1428,"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(1428,"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(1428,"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(1428,"F",1)="D HEADER^DGISORPT;Z;""D HEADER^DGISORPT""~" ^DIPT(1428,"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(1428,"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(1428,"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(1428,"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(1428,"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(1428,"H")="@" ^DIPT(1428,"SUB")="1" ^DIPT(1429,0)="DG ISO SENSITIVE RCDS PRT1^3050707.1439^^38.1^^^3070124" ^DIPT(1429,"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(1429,"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(1429,"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(1429,"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(1429,"F",3)="50,3;L30;C93~50,4;C125;""INPAT WHEN ACCESSED""~" ^DIPT(1429,"H")="Sensitive Records Accessed" ^DIPT(1430,0)="801notsenttopce^3050328.1458^@^45^^@^3050408" ^DIPT(1430,"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(1430,"F",2)=".01;C5~X DXS(1,9) W X K DIP;Z;""PATIENT:SOCIAL SECURITY NUMBER""~" ^DIPT(1430,"H")="Pro Fee Coding Not Sent to PCE" ^DIPT(1431,0)="801HEADER^3050329.1008^@^45^^@^3050408" ^DIPT(1431,"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(1431,"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(1431,"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(1431,"H")="PTF LIST" ^DIPT(1432,0)="XU-CLINICAL TRAINEE TRANSA^3040513.1139^@^200^^@^3050801" ^DIPT(1432,"DCL","200^.01")="!" ^DIPT(1432,"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(1432,"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(1432,"H")="Registered Trainee Transmission Report" ^DIPT(1433,0)="XU-CLINICAL TRAINEE TRANSB^3040513.1141^@^200^^@^3050801" ^DIPT(1433,"DCL","200^.01")="!" ^DIPT(1433,"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(1433,"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(1433,"H")="Selectable Registered Trainee Transmission Report" ^DIPT(1434,0)="XU-CLINICAL TRAINEE TRANSC^3040513.1025^@^200^^@^3050801" ^DIPT(1434,"DCL","200^.01")="!" ^DIPT(1434,"DNP")="1" ^DIPT(1434,"F",2)=".01;L0;X~" ^DIPT(1434,"H")="Summary Registered Trainee Transmission Report" ^DIPT(1435,0)="XU-CLINICAL TRAINEE LIST^3050321.0815^@^200^^@^3050801" ^DIPT(1435,"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(1435,"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(1435,"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(1435,"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(1435,"H")="Registered Trainee List" ^DIPT(1436,0)="XU-CLINICAL INACTIVE TRAINEE^3050321.0739^@^200^^@^3050801" ^DIPT(1436,"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(1436,"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(1436,"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(1436,"H")="Non-Active Registered Trainees" ^DIPT(1437,0)="XU-CLINICAL ACTIVE TRAINEE^3050321.081^@^200^^@^3050801" ^DIPT(1437,"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(1437,"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(1437,"H")="Active Registered Trainee List" ^DIPT(1438,0)="XUSAP PROXY LIST^3050308.1608^@^200^^@^3050511" ^DIPT(1438,"F",2)=".01~9.5,.01~9.5,2~" ^DIPT(1438,"H")="PROXY USER LIST" ^DIPT(1439,0)="XTPM COMPLETE PATCH HISTORY^3050721.0806^@^9.9^^@^3050811" ^DIPT(1439,"DCL","9.9^.01")="!" ^DIPT(1439,"DXS",1,9)="X DXS(1,9.2) S DIP(4)=$G(X) S X=DIP(5),X=$S(DIP(2):DIP(3),DIP(4):X) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)" ^DIPT(1439,"DXS",1,9.2)="X ""N I,Y ""_$P(^DD(9.9,9,0),U,5,99) S DIP(5)=X S DIP(1)=$S($D(^XPD(9.9,D0,0)):^(0),1:"""") S X=$P(DIP(1),U,11)]"""",DIP(2)=$G(X) S X=$P(DIP(1),U,11),DIP(3)=$G(X) S X=1" ^DIPT(1439,"F",1)="" ^DIPT(1439,"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(1439,"F",3)="X DXS(1,9) W X K DIP;""DATE INSTALLED"";L8;Z;""NUMDATE($S(NON-KIDS INSTALL DATE]"""":NON-KIDS INSTALL DATE,1:DATE INSTALLED))""~.01;L15~6;L40;""SUBJECT""~" ^DIPT(1439,"H")="COMPLETE PATCH INSTALLATION HISTORY" ^DIPT(1440,0)="XTPM UNINSTALLED BY COMPLIANCE^3050721.093^@^9.9^^@^3050811" ^DIPT(1440,"DCL","9.9^.01")="!" ^DIPT(1440,"F",1)="" ^DIPT(1440,"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(1440,"F",3)=".01;L15;""PATCH NUMBER""~" ^DIPT(1440,"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(1440,"F",5)="6;L40~" ^DIPT(1440,"H")="UNINSTALLED PATCHES BY COMPLIANCE DATE" ^DIPT(1441,0)="SDWLRO^3050422.1506^@^409.3^^@^3050714" ^DIPT(1441,"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(1441,"F",2)="""REOPEN COMMENTS: "";C1~30;X~"""";S1~" ^DIPT(1441,"H")="EWL REOPEN REASON" ^DIPT(1442,0)="EN RESEARCH EXTRACT^3051228.1535^@^6914^^@^3051228^3" ^DIPT(1442,100,0)="^.42A^38^38" ^DIPT(1442,100,1,0)="1^2" ^DIPT(1442,100,2,0)="2^4" ^DIPT(1442,100,3,0)="3^4" ^DIPT(1442,100,4,0)="4^4" ^DIPT(1442,100,5,0)="5^4" ^DIPT(1442,100,6,0)="6^2" ^DIPT(1442,100,7,0)="7^4" ^DIPT(1442,100,8,0)="8^4" ^DIPT(1442,100,9,0)="9^4" ^DIPT(1442,100,10,0)="10^4" ^DIPT(1442,100,11,0)="11^4" ^DIPT(1442,100,12,0)="12^4" ^DIPT(1442,100,13,0)="13^2" ^DIPT(1442,100,14,0)="14^2" ^DIPT(1442,100,15,0)="15^1" ^DIPT(1442,100,16,0)="16^1" ^DIPT(1442,100,17,0)="17^1" ^DIPT(1442,100,18,0)="18^4" ^DIPT(1442,100,19,0)="19^4" ^DIPT(1442,100,20,0)="20^4" ^DIPT(1442,100,21,0)="21^4" ^DIPT(1442,100,22,0)="22^4" ^DIPT(1442,100,23,0)="23^4" ^DIPT(1442,100,24,0)="24^1" ^DIPT(1442,100,25,0)="25^4" ^DIPT(1442,100,26,0)="26^4" ^DIPT(1442,100,27,0)="27^4" ^DIPT(1442,100,28,0)="28^1" ^DIPT(1442,100,29,0)="29^1" ^DIPT(1442,100,30,0)="30^4" ^DIPT(1442,100,31,0)="31^4" ^DIPT(1442,100,32,0)="32^4" ^DIPT(1442,100,33,0)="33^4" ^DIPT(1442,100,34,0)="34^4" ^DIPT(1442,100,35,0)="35^4" ^DIPT(1442,100,36,0)="36^4" ^DIPT(1442,100,37,0)="37^4" ^DIPT(1442,100,38,0)="38^4" ^DIPT(1442,100,"B",1,1)="" ^DIPT(1442,100,"B",2,2)="" ^DIPT(1442,100,"B",3,3)="" ^DIPT(1442,100,"B",4,4)="" ^DIPT(1442,100,"B",5,5)="" ^DIPT(1442,100,"B",6,6)="" ^DIPT(1442,100,"B",7,7)="" ^DIPT(1442,100,"B",8,8)="" ^DIPT(1442,100,"B",9,9)="" ^DIPT(1442,100,"B",10,10)="" ^DIPT(1442,100,"B",11,11)="" ^DIPT(1442,100,"B",12,12)="" ^DIPT(1442,100,"B",13,13)="" ^DIPT(1442,100,"B",14,14)="" ^DIPT(1442,100,"B",15,15)="" ^DIPT(1442,100,"B",16,16)="" ^DIPT(1442,100,"B",17,17)="" ^DIPT(1442,100,"B",18,18)="" ^DIPT(1442,100,"B",19,19)="" ^DIPT(1442,100,"B",20,20)="" ^DIPT(1442,100,"B",21,21)="" ^DIPT(1442,100,"B",22,22)="" ^DIPT(1442,100,"B",23,23)="" ^DIPT(1442,100,"B",24,24)="" ^DIPT(1442,100,"B",25,25)="" ^DIPT(1442,100,"B",26,26)="" ^DIPT(1442,100,"B",27,27)="" ^DIPT(1442,100,"B",28,28)="" ^DIPT(1442,100,"B",29,29)="" ^DIPT(1442,100,"B",30,30)="" ^DIPT(1442,100,"B",31,31)="" ^DIPT(1442,100,"B",32,32)="" ^DIPT(1442,100,"B",33,33)="" ^DIPT(1442,100,"B",34,34)="" ^DIPT(1442,100,"B",35,35)="" ^DIPT(1442,100,"B",36,36)="" ^DIPT(1442,100,"B",37,37)="" ^DIPT(1442,100,"B",38,38)="" ^DIPT(1442,105)=".998" ^DIPT(1442,"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(1442,"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(1442,"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(1442,"H")="@@" ^DIPT(1442,"IOM")="1000" ^DIPT(1442,"SUB")="1" ^DIPT(1443,0)="ECX LAB TEST PRINT^3060612.1113^@^727.2^^@^3061024" ^DIPT(1443,"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(1443,"DXS",2,"B")="BLOOD" ^DIPT(1443,"DXS",2,"F")="FECES" ^DIPT(1443,"DXS",2,"U")="URINE" ^DIPT(1443,"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(1443,"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(1443,"F",3)="1,1,-60,100,.01;L15;C76~1,1,-60,100,6;L10;C94~1,1,-60,500,1;L10;C107~" ^DIPT(1443,"H")="[DSS LAB TEST HEADER]" ^DIPT(1443,"IOM")="132" ^DIPT(1443,"LAST")="" ^DIPT(1443,"ROUOLD")="" ^DIPT(1444,0)="ECX LAB TEST HEADER^3060612.1013^@^727.2^^@^3060905" ^DIPT(1444,"DXS")="2" ^DIPT(1444,"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(1444,"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(1444,"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(1444,"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(1444,"F",4)="""WKLD CODE(s)"";C107~S $P(LN,""-"",120)="""" W LN;C1;Z;""S $P(LN,""-"",120)="""" W LN""~" ^DIPT(1444,"H")="@" ^DIPT(1444,"SUB")="1" ^DIPT(1445,0)="PRCV DYNAMED RIL'S NEED ACTION^3050513.1052^^414.02^^@^3050609" ^DIPT(1445,"F",2)="4~13~2~1~12~" ^DIPT(1445,"H")="DYNAMED IFCAP INTERFACE AUDIT SEARCH" ^DIPT(1446,0)="PRCV ITEM DISPLAY^3050526.1505^@^441^^@^3050603" ^DIPT(1446,"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(1446,"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(1446,"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(1446,"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(1446,"F",1)="""NUMBER: "";C1;""""~0;X;""""~""NIF ITEM NUMBER: "";C40;""""~51;X;""""~""SHORT DESCRIPTION: "";C1;""""~.05;X;""""~""DESCRIPTION: "";C1;""""~.1,.01;C5;""""~" ^DIPT(1446,"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(1446,"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(1446,"F",4)="9;X;""""~""MANDATORY SOURCE: "";C1;""""~" ^DIPT(1446,"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(1446,"F",6)="10;X;""""~1,""FCP: "";C1;""""~" ^DIPT(1446,"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(1446,"F",8)="1,"":"";X;""""~" ^DIPT(1446,"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(1446,"F",10)="1,""PREFERRED VENDOR: "";C17;""""~" ^DIPT(1446,"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(1446,"F",12)="1,3;X;""""~6,""VENDOR: "";C1;""""~" ^DIPT(1446,"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(1446,"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(1446,"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(1446,"H")="@" ^DIPT(1446,"SUB")="1" ^DIPT(1447,0)="PRCH OBLIGATED 1358 LIST^3051114.0739^@^442^^@^3060117" ^DIPT(1447,"%D",0)="^^2^2^3050218^" ^DIPT(1447,"%D",1,0)="This new option is used to support a new FPDS report for the Austin " ^DIPT(1447,"%D",2,0)="Automation Center (AAC)." ^DIPT(1447,"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(1447,"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(1447,"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(1447,"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(1447,"H")="PROCUREMENT & ACCOUNTING TRANSACTIONS LIST (OBLIGATED 1358s)" ^DIPT(1448,0)="RMPR WH DISPLAY^3051128.1308^@^664^^@^3061211" ^DIPT(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"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(1448,"F",12)="2,14,.01;S1;X;m;w~" ^DIPT(1448,"H")="Prosthetics Display" ^DIPT(1449,0)="IBT QUICK REV CODING STAT^3050815.1756^@^356^^@^3050727" ^DIPT(1449,"DXS")="3" ^DIPT(1449,"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(1449,"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(1449,"F",1)=".02~X DXS(1,9) W X K DIP;""SSN"";Z;""PATIENT:SSN""~" ^DIPT(1449,"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(1449,"F",3)=".19;C1~3,.01~" ^DIPT(1449,"H")="QUICK REVIEW CODING STATUS" ^DIPT(1450,0)="ONCQA^3060526.093^@^165.5^^@^3061101" ^DIPT(1450,"DXS")="8" ^DIPT(1450,"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(1450,"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(1450,"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(1450,"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(1450,"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(1450,"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(1450,"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(1450,"F",1)="""CANCER REGISTRY QA ABSTRACT"";C3;S1~" ^DIPT(1450,"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(1450,"F",3)="""Abstracted by.................:"";C3;S1~" ^DIPT(1450,"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(1450,"F",5)="""Reporting Hospital............:"";C3~" ^DIPT(1450,"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(1450,"F",7)="""Date Case Completed...........:"";C3~90;C35~""Patient Name..................:"";C3~.02;C35~""SSN...........................:"";C3~" ^DIPT(1450,"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(1450,"F",9)="""Primary Site..................:"";C3~" ^DIPT(1450,"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(1450,"F",11)="""Laterality....................:"";C3~28;C35;X~""Date Dx.......................:"";C3~3;C35;L10~""Histology (ICD-O-3)...........:"";C3~" ^DIPT(1450,"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(1450,"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(1450,"F",14)="""Diagnostic Confirmation.......:"";C3~26;C35~""* STAGE OF DISEASE AT DIAGNOSIS *"";S1~""Clinical TNM..................: "";C3;S1~37;C35~" ^DIPT(1450,"F",15)="""Clinical Stage Group..........:"";C3~38;C35~""Staged By (Clinical)..........:"";C3~19;C35~""Pathologic TNM................:"";C3~89.1;C35~" ^DIPT(1450,"F",16)="""Pathologic Stage Group........:"";C3~88;C35;L14~""Staged By (Pathologic)........:"";C3~89;C35~""Tumor Size....................:"";C3;S1~29;C35~" ^DIPT(1450,"F",17)="""Extension.....................:"";C3~30;C35;L45~""Pathologic Extension..........:"";C3~30.1;C35~""Regional Lymph Nodes Examined.:"";C3~33;C35~" ^DIPT(1450,"F",18)="""Regional Lymph Nodes Positive.:"";C3~32;C35~""Lymph Nodes...................:"";C3~31;C35~""SEER Summary Stage 2000.......:"";C3~35;C35~" ^DIPT(1450,"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(1450,"F",20)="""Physician's Stage.............:"";C3~65;C35~""Physician Staging.............:"";C3~66;C35~""* FIRST COURSE OF TREATMENT *"";S1~" ^DIPT(1450,"F",21)="""Surgery of Primary............:"";C3;S1~50;C35~58.6;C46;L34~""Radiation.....................:"";C3~51;C35~51.2;C46~""Chemotherapy..................:"";C3~" ^DIPT(1450,"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(1450,"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(1450,"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(1450,"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(1450,"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(1450,"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(1450,"F",28)="60,""Initiation Date...............:"";C3;S1~60,.01;C35~60,""Place.........................:"";C3~" ^DIPT(1450,"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(1450,"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(1450,"F",31)="60,""Chemotherapy..................:"";C3~60,.061;C35~60,.06;C46;L34~60,""Hormone Therapy...............:"";C3~60,.071;C35~60,.07;C46;L34~" ^DIPT(1450,"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(1450,"F",33)="60,S X=X;Z;""S X=X""~60,""Other Treatment...............:"";C3~60,.091;C35~60,.09;C46;L34~" ^DIPT(1450,"H")="@" ^DIPT(1450,"SUB")="1" ^DIPT(1451,0)="ONCQA1^3060526.0928^@^165.5^^@^3061101" ^DIPT(1451,"DXS")="8" ^DIPT(1451,"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(1451,"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(1451,"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(1451,"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(1451,"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(1451,"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(1451,"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(1451,"F",1)="""CANCER REGISTRY QA ABSTRACT"";C3;S1~" ^DIPT(1451,"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(1451,"F",3)="""Abstracted by.................:"";C3;S1~" ^DIPT(1451,"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(1451,"F",5)="""Reporting Hospital............:"";C3~" ^DIPT(1451,"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(1451,"F",7)="""Date Case Completed...........:"";C3~90;C35~""Patient Name..................:"";C3~.02;C35~""SSN...........................:"";C3~" ^DIPT(1451,"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(1451,"F",9)="""Primary Site..................:"";C3~" ^DIPT(1451,"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(1451,"F",11)="""Laterality....................:"";C3~28;C35;X~""Date Dx.......................:"";C3~3;C35;L10~""Histology (ICD-O-3)...........:"";C3~" ^DIPT(1451,"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(1451,"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(1451,"F",14)="""Diagnostic Confirmation.......:"";C3~26;C35~""* STAGE OF DISEASE AT DIAGNOSIS *"";S1~""Clinical TNM..................: "";C3;S1~37;C35~" ^DIPT(1451,"F",15)="""Clinical Stage Group..........:"";C3~38;C35~""Staged By (Clinical)..........:"";C3~19;C35~""Pathologic TNM................:"";C3~89.1;C35~" ^DIPT(1451,"F",16)="""Pathologic Stage Group........:"";C3~88;C35;L14~""Staged By (Pathologic)........:"";C3~89;C35~""Tumor Size....................:"";C3;S1~29;C35~" ^DIPT(1451,"F",17)="""Extension.....................:"";C3~30;C35;L45~""Regional Lymph Nodes Examined.:"";C3~33;C35~""Regional Lymph Nodes Positive.:"";C3~32;C35~" ^DIPT(1451,"F",18)="""Lymph Nodes...................:"";C3~31;C35~""SEER Summary Stage 2000.......:"";C3~35;C35~""Site of Distant Metastasis #1.:"";C3~34;C35~" ^DIPT(1451,"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(1451,"F",20)="""Physician Staging.............:"";C3~66;C35~""* FIRST COURSE OF TREATMENT *"";S1~""Surgery of Primary............:"";C3;S1~50;C35~58.6;C46;L34~" ^DIPT(1451,"F",21)="""Radiation.....................:"";C3~51;C35~51.2;C46~""Chemotherapy..................:"";C3~53;C35~53.2;C46;L34~""Hormone Therapy...............:"";C3~" ^DIPT(1451,"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(1451,"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(1451,"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(1451,"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(1451,"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(1451,"F",27)="""Distant Site 3................:"";C3~71.3;C35~""* SUBSEQUENT COURSE OF TREATMENT *"";S1~60,""Initiation Date...............:"";C3;S1~60,.01;C35~" ^DIPT(1451,"F",28)="60,""Place.........................:"";C3~" ^DIPT(1451,"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(1451,"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(1451,"F",31)="60,""Chemotherapy..................:"";C3~60,.061;C35~60,.06;C46;L34~60,""Hormone Therapy...............:"";C3~60,.071;C35~60,.07;C46;L34~" ^DIPT(1451,"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(1451,"F",33)="60,S X=X;Z;""S X=X""~60,""Other Treatment...............:"";C3~60,.091;C35~60,.09;C46;L34~" ^DIPT(1451,"H")="@" ^DIPT(1451,"SUB")="1" ^DIPT(1452,0)="XIP STATE/COUNTY EXPORT^3050826.091^@^5^^@^3051101" ^DIPT(1452,"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(1452,"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(1452,"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(1452,"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(1452,"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(1452,"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(1452,"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(1452,"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(1452,"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(1452,"H")="@" ^DIPT(1452,"SUB")="1" ^DIPT(1453,0)="XIP STATE EXPORT^3050830.0904^@^5^^@^3060303" ^DIPT(1453,"F",2)="2;C1;X~""^"";X~.01;X~""^"";X~1;X~" ^DIPT(1453,"H")="@" ^DIPT(1453,"SUB")="1" ^DIPT(1454,0)="MAGJ CPT MATCH PRT^3050706.1612^@^2006.67^^@^3051209" ^DIPT(1454,"%D",0)="^^1^1^3050607^" ^DIPT(1454,"%D",1,0)="Print template for VistaRad CPT Matching CPT code set" ^DIPT(1454,"F",2)=".01~1~3~4,.01~5,.01~" ^DIPT(1454,"H")="VistaRad CPT Matching Logic" ^DIPT(1455,0)="XUSEC ISO ACTIVE USER PRINT^3060619.0529^@^200^^@^3060619" ^DIPT(1455,"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(1455,"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(1455,"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(1455,"F",1)="" ^DIPT(1455,"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(1455,"F",3)=""";"";X~"";"";X~""VHA"";X~"";"";X~" ^DIPT(1455,"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(1455,"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(1455,"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(1455,"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(1455,"F",8)="-20,3;X~-20,"";"";X~-20,5;X~-20,"";"";X~"";"";X~" ^DIPT(1455,"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(1455,"F",10)=""";"";X~"";"";X~"";"";X~" ^DIPT(1455,"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(1455,"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(1455,"H")="@@" ^DIPT(1456,0)="MD CONVERSION SUMMARY^3050106.0832^^703.9^^^3050228" ^DIPT(1456,"F",2)="2,.01;C1;""ID"";L20~2,.02;C22;L15;""Status""~2,.1;C39;L40;""Message""~" ^DIPT(1456,"H")="MEDICINE CONVERSION SUMMARY" ^DIPT(1457,0)="MD CONVERSION ERRORS^3030919.1322^@^703.9^^@^3050228" ^DIPT(1457,"F",2)="2,.01~2,.1;C35;W40~" ^DIPT(1457,"H")="CP CONVERSION ERROR LISTING" ^DIPT(1458,0)="MD CONVERSION TOTALS^3030919.1334^@^703.9^^@^3040915" ^DIPT(1458,"DCL","703.92^.04")="+" ^DIPT(1458,"DCL","703.92^.05")="+" ^DIPT(1458,"DNP")="1" ^DIPT(1458,"F",2)="2,.04~2,.05~" ^DIPT(1458,"H")="CP CONVERSION STATISTICS" ^DIPT(1459,0)="PXRM EXTRACT DEFINITION^3060518.1219^@^810.2^^@^3060817" ^DIPT(1459,"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(1459,"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(1459,"F",3)="10,""-----------------"";C2~10,""Patient List:"";C2~10,.03;C6~10,""Rule Set:"";C2;S1~10,.02;C15;L64~10,D PPLR^PXRMEPM;X;Z;""D PPLR^PXRMEPM""~" ^DIPT(1459,"F",4)="10,""Extract Reminders and Related Counting Total Rule:"";C11;S1~10,10,.01;C11;S1~10,10,""Reminder:"";C15~10,10,1;C25;X~10,10,""Counting Rule:"";C15~" ^DIPT(1459,"F",5)="10,10,2;C30;L45~10,10,D PPFR^PXRMEPM;X;Z;""D PPFR^PXRMEPM""~10,"""";C1;S1~""Edit History"";C1;R13;S2~""------------"";C1;R13~110,""Edit Date:"";C2;S1~" ^DIPT(1459,"F",6)="110,.01;C13;X~110,""Edit By:"";C41~110,1;C50;X~110,""Edit Comments:"";C2~110,2,.01;W~"""";C1;S1~" ^DIPT(1459,"H")="REMINDER EXTRACT CRITERIA/PARAMETERS LIST" ^DIPT(1460,0)="PXRM EXTRACT COUNTING^3060809.1458^@^810.7^^@^3060809" ^DIPT(1460,"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(1460,"F",2)=""""";C1;S1~10,.01;C3;L5~10,1;C10;L50~10,2;C60;L20~" ^DIPT(1460,"H")="REMINDER EXTRACT FINDING RULE LIST" ^DIPT(1461,0)="PXRM EXTRACT COUNTING GROUP^3021008.1031^@^810.8^^@^3060809" ^DIPT(1461,"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(1461,"H")="FINDING GROUP LIST" ^DIPT(1462,0)="PXRM REMINDER RULE^3041129.146^@^810.4^^@^3060712" ^DIPT(1462,"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(1462,"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(1462,"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(1462,"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(1462,"H")="REMINDER LIST RULE LIST" ^DIPT(1463,0)="SDWL30DAY^3061010.1114^@^409.3^^@^3061019" ^DIPT(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"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(1463,"H")="EWL 30 DAY REPORT" ^DIPT(1464,0)="SDWLDNR^3060915.1145^@^409.3^^@^3061003" ^DIPT(1464,"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(1464,"F",1)=".01;C1;L20;S1~" ^DIPT(1464,"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(1464,"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(1464,"H")="EWL NON-REMOVAL REASON REPORT" ^DIPT(1465,0)="SDWLWTR^3061031.1423^@^409.3^^@^3061031" ^DIPT(1465,"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(1465,"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(1465,"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(1465,"F",1)=".01;L20~" ^DIPT(1465,"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(1465,"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(1465,"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(1465,"F",5)="""b. ""~" ^DIPT(1465,"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(1465,"F",7)="""c. ""~" ^DIPT(1465,"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(1465,"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(1465,"H")="EWL WAIT TIME STATISTICS REPORT" ^DIPT(1466,0)="SCMC PENDING UNASSIGN^3040427.151^@^404.43^^@^3040728" ^DIPT(1466,"DCL","404.43^.01")="!" ^DIPT(1466,"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(1466,"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(1466,"F",1)=".01;""Patient Name"";L15;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(1466,"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:""~" ^DIPT(1466,"F",3)="-404.42,-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;L4;C17;""SSN"";;Z;""$E(SSN,6,9)""~" ^DIPT(1466,"F",4)="-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(1466,"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:""~" ^DIPT(1466,"F",6)="-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(1466,"F",7)="-404.57,-404.51,.07;""Institution"";L15;C23~-404.57,-404.51,.01;""PC Team"";L12;C41~-404.57,304;""Provider"";L15;C57~-404.57,.01;""Team Position"";L14;C75~" ^DIPT(1466,"F",8)="X DXS(2,9) W X K DIP;""Date Sched. to Inactivate"";L10;C92;Z;""NUMDATE(SCHEDULED INACTIVATION DATE)""~" ^DIPT(1466,"F",9)="D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")));""Next Appt. Date/Clinic"";C105;L27;Z;""D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")))""~" ^DIPT(1466,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST" ^DIPT(1466,"ROUOLD")="SCMCPT3" ^DIPT(1467,0)="SCMC INCONSISTENT^3040319.1427^@^404.57^^@^3060126" ^DIPT(1467,"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(1467,"F",1)="304~.01;L15~.03;L25~" ^DIPT(1467,"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(1467,"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(1467,"F",4)="W $G(^UTILITY(""SCMCTSK"",$J,D0));X;""INCONSISTENCY ERROR"";Z;""W $G(^UTILITY(""SCMCTSK"",$J,D0))""~" ^DIPT(1467,"H")="STAFF-POSITION INCONSISTENCY REPORT" ^DIPT(1467,"IOM")="132" ^DIPT(1467,"LAST")="" ^DIPT(1467,"ROU")="^SCMCPT2" ^DIPT(1467,"ROUOLD")="SCMCPT2" ^DIPT(1468,0)="SCMC EXTENDED^3040423.163^@^404.43^^@^3060126" ^DIPT(1468,"DCL","404.43^.01")="!" ^DIPT(1468,"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(1468,"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(1468,"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(1468,"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(1468,"F",1)=".01;""Patient"";L15;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(1468,"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:""~" ^DIPT(1468,"F",3)="-404.42,-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"";L4;C17;Z;""$E(SSN,6,9)""~" ^DIPT(1468,"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(1468,"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(1468,"F",6)="-404.57,-404.51,.07;""Institution"";L15;C24~-404.57,-404.51,.01;""PC Team"";L15;C42~-404.57,304;""Provider/ Position"";L15;C60~" ^DIPT(1468,"F",7)="-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(1468,"F",8)="-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(1468,"F",9)="-404.57,305;"""";C78;L14~" ^DIPT(1468,"F",10)="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(1468,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST" ^DIPT(1469,0)="SC PROVIDER FLAGGED^3040430.1315^@^404.52^^@^3050824" ^DIPT(1469,"DCL","404.44^0")="#" ^DIPT(1469,"DCL","404.51^201")="&" ^DIPT(1469,"DCL","404.52^.01")="!" ^DIPT(1469,"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(1469,"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(1469,"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(1469,"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(1469,"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(1469,"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(1469,"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(1469,"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(1469,"F",1)=".03;""Name"";C1;L20~.01;""Team Position"";L15;C22~" ^DIPT(1469,"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(1469,"F",3)="-404.57,5,.01;""Assoc. Clinic(s)"";L15;C39~-404.57,.03;""Role"";L15;C56~" ^DIPT(1469,"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(1469,"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(1469,"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(1469,"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(1469,"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(1469,"F",9)="-404.44,X DXS(3,9);""Sched. Inact. Date"";L8;C96;Z;""NUMDATE(PC STAFF AUTO INACTIVATE DATE)"";#~" ^DIPT(1469,"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(1469,"F",11)="-404.57,402;""Inconsistency Reason"";L26;C106~" ^DIPT(1469,"H")="Primary Care Staff Scheduled for Inactivation" ^DIPT(1469,"ROUOLD")="SCMCPT4" ^DIPT(1470,0)="SCMC INACTIVATED^3040526.1501^@^404.43^^@^3040728" ^DIPT(1470,"DCL","404.42^.01")="!" ^DIPT(1470,"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(1470,"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(1470,"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(1470,"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;L15;C1;""Patient Name""~" ^DIPT(1470,"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:""~" ^DIPT(1470,"F",3)="-404.42,-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"";L4;C17;Z;""$E(SSN,6,9)""~" ^DIPT(1470,"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(1470,"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(1470,"F",6)="-404.57,-404.51,.07;""Institution"";L15;C24~-404.57,-404.51,.01;""PC Team"";L15;C42~" ^DIPT(1470,"F",7)="-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(1470,"F",8)="-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(1470,"F",9)="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(1470,"F",10)="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(1470,"F",11)="-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(1470,"F",12)="-404.57,305;"""";C78;L14~" ^DIPT(1470,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST" ^DIPT(1470,"ROUOLD")="SCMCPT5" ^DIPT(1471,0)="SCMC DIRECT PC FTEE 1 CLN^3040329.1354^@^404.52^^@^3040719" ^DIPT(1471,"DCL","404.52^.09")="&" ^DIPT(1471,"DCL","404.52^.097")="&" ^DIPT(1471,"DCL","404.52^.099")="&" ^DIPT(1471,"DCL","404.52^0")="&" ^DIPT(1471,"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(1471,"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(1471,"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(1471,"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(1471,"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(1471,"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(1471,"F",3)="-404.57,D CLN^SCMCTSK6(D0);X;Z;""D CLN^SCMCTSK6(D0)""~" ^DIPT(1471,"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(1471,"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(1471,"F",6)=".097;L4;""Patients for Position Allowed/ Maximum"";& Replace (#.098);L4;""Patients for Position Actual/ Active"";~" ^DIPT(1471,"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(1471,"H")="Direct PC FTEE and Panel Size Report" ^DIPT(1471,"IOM")="132" ^DIPT(1471,"LAST")="" ^DIPT(1471,"ROU")="^SCMCPT6" ^DIPT(1471,"ROUOLD")="SCMCPT6" ^DIPT(1471,"STATS","S",1)="0" ^DIPT(1471,"STATS","S",2)="0" ^DIPT(1471,"STATS","S",3)="0" ^DIPT(1471,"STATS","S",4)="0" ^DIPT(1471,"STATS","S",5)="0" ^DIPT(1471,"STATS","S",6)="0" ^DIPT(1471,"T",77)="4^1^1^NJ4,2X^,2" ^DIPT(1471,"T",85)="4^2^0^C^" ^DIPT(1471,"T",95)="4^3^0^CJ5,0^" ^DIPT(1471,"T",105)="5^4^0^C^" ^DIPT(1471,"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(1472,0)="SC INACTIVATED^3050922.1017^@^404.52^^@^3050922" ^DIPT(1472,"DCL","404.51^201")="&" ^DIPT(1472,"DCL","404.52^.01")="!" ^DIPT(1472,"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(1472,"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(1472,"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(1472,"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(1472,"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(1472,"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(1472,"F",1)=".03;""Name"";C1;L20~.01;""Team Position"";L15;C22~" ^DIPT(1472,"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(1472,"F",3)="-404.57,5,.01;""Associated Clinic(s)"";L15;C39~-404.57,.03;""Role"";L15;C56~" ^DIPT(1472,"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(1472,"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(1472,"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(1472,"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(1472,"F",8)="-404.57,-404.51,201;""# Of Pts."";L4;C90~" ^DIPT(1472,"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(1472,"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(1472,"F",11)="-404.57,402;""Inconsistency Reason"";L26;C106~" ^DIPT(1472,"H")="Primary Care Staff Inactivated" ^DIPT(1473,0)="SCMC PENDING UNASSIGN PAT^3040504.0805^@^404.43^^@^3040505" ^DIPT(1473,"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(1473,"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(1473,"F",1)=".01;""Patient Name"";L15;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(1473,"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:""~" ^DIPT(1473,"F",3)="-404.42,-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;L4;C17;""SSN"";;Z;""$E(SSN,6,9)""~" ^DIPT(1473,"F",4)="-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(1473,"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:""~" ^DIPT(1473,"F",6)="-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(1473,"F",7)="-404.57,-404.51,.07;""Institution"";L15;C23~-404.57,-404.51,.01;""PC Team"";L12;C41~-404.57,304;""Provider"";L15;C57~-404.57,.01;""Team Position"";L14;C75~" ^DIPT(1473,"F",8)="X DXS(2,9) W X K DIP;""Date Sched. to Inactivate"";L10;C92;Z;""NUMDATE(SCHEDULED INACTIVATION DATE)""~" ^DIPT(1473,"F",9)="D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")));""Next Appt. Date/Clinic"";C105;L27;Z;""D FUTAPP^SCMCTSK2(+$G(DIPA(""DFN"")))""~" ^DIPT(1473,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST" ^DIPT(1474,0)="SC BULLETIN^3060502.1107^@^404.43^^@^3060502" ^DIPT(1474,"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(1474,"H")="@@" ^DIPT(1475,0)="SCMC TOBE INACTIVATED^3051219.1045^@^404.43^^@^3051219" ^DIPT(1475,"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(1475,"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(1475,"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(1475,"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(1475,"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(1475,"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(1475,"H")="PATIENT TEAM POSITION ASSIGNMENT LIST" ^DIPT(1476,0)="MAGREADTIME^3060427.1549^@^2006.5849^^@^3060921" ^DIPT(1476,"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(1476,"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(1476,"F",2)="16~17~X DXS(1,9) W X K DIP;""READING TIME/MIN"";Z;""MINUTES(READING STOP,READING START)""~" ^DIPT(1476,"H")="READING TIME REPORT" ^DIPT(1477,0)="MAGREPAIR^3060922.1045^@^2006.5849^^@^3060922" ^DIPT(1477,"DCL","2006.5849^18")="!" ^DIPT(1477,"F",2)=".01~10~18~" ^DIPT(1477,"H")="TELEREADER READ/UNREAD LIST STATISTICS" ^DIPT(1478,0)="MAGSTATUS^3060427.1547^@^2006.5849^^@^3060921" ^DIPT(1478,"DCL","2006.5849^10")="!" ^DIPT(1478,"DNP")="1" ^DIPT(1478,"F",2)="10~" ^DIPT(1478,"H")="TELEREADER READ/UNREAD LIST STATISTICS" ^DIPT(1479,0)="MAGUSER^3060427.1551^@^2006.5849^^@^3060921" ^DIPT(1479,"DCL","2006.5849^9")="&" ^DIPT(1479,"DNP")="1" ^DIPT(1479,"F",2)="9~" ^DIPT(1479,"H")="READ STUDIES" ^DIPT(1480,0)="MAGD CT PARAMETERS^3060731.1442^@^2006.621^^@^3070403" ^DIPT(1480,"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(1480,"H")="MAG CT PARAMETER LIST" ^DIPT(1481,0)="MAGD CR PARAM LIST^3060731.1525^@^2006.623^^@^3060804" ^DIPT(1481,"F",2)=".01~1,.01~1,1,.01~1,1,1,.01~1,1,1,1~" ^DIPT(1481,"H")="MAG CR PARAMETER LIST" ^DIPT(1482,0)="MAG REPORT 1^3060713.1702^@^2005^^@^3060713" ^DIPT(1482,"DCL","2005^3")="!" ^DIPT(1482,"DNP")="1" ^DIPT(1482,"F",2)="3;"""";R20~" ^DIPT(1482,"H")="Image Type Count by User" ^DIPT(1483,0)="MAG REPORT 2^3060713.1704^@^2005^^@^3060713" ^DIPT(1483,"DCL","2005^3")="!" ^DIPT(1483,"F",2)="7;L17~3;C20;L8~42;C31;L15~8;C50;L30~" ^DIPT(1483,"H")="Document Count" ^DIPT(1484,0)="MAG REPORT 3^3060713.1705^@^2005^^@^3061128" ^DIPT(1484,"DCL","2005^10")="!" ^DIPT(1484,"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(1484,"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(1484,"F",3)="8;""SCANNED BY"";C118;N;L15~" ^DIPT(1484,"H")="Package Index Contains 'Note'" ^DIPT(1485,0)="MAG REPORT 4^3061121.0813^@^2005^^@^3061128" ^DIPT(1485,"DCL","2005^42")="!" ^DIPT(1485,"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(1485,"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(1485,"H")="MEANS TEST" ^DIPT(1486,0)="SUSPENSE OIF/OEF VETS^3070328.1704^@^668^^@^3070703" ^DIPT(1486,"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(1486,"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(1486,"H")="PROSTHETIC SUSPENSE LIST" ^DIPT(1487,0)="RMPR OIF/OEF PSAS VETS^3070426.1044^@^660^^@^3070426" ^DIPT(1487,"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(1487,"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(1487,"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(1487,"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(1487,"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(1487,"H")="OIF/OEF PSAS VETS" ^DIPT(1488,0)="XQAL NO BKUP REVIEWER^3070809.145^@^200^^@^3070814" ^DIPT(1488,"%D",0)="^.4001^2^2^3070814^^" ^DIPT(1488,"%D",1,0)="This report will generate a list of active users/providers that hold" ^DIPT(1488,"%D",2,0)="the ORES key and backup reviewers for ALERTS." ^DIPT(1488,"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(1488,"H")="ORES KEY HOLDERS WITH NO BACKUP REVIEWERS (*Designates inactive user)" ^DIPT(1489,0)="FHSELST2^3070725.1428^@^115.2^^@^3070727" ^DIPT(1489,"F",2)=".01;C1~1;""TYPE"";L4;C32~20;""DEF"";L3;C40~21;L5;C50~99;L10;C60~" ^DIPT(1489,"H")="FOOD PREFERENCES 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,.01,1422)="" ^DIPT("AF",200,3,1422)="" ^DIPT("AF",200,28,1422)="" ^DIPT("AF",200,29,27)="" ^DIPT("AF",200,101.01,27)="" ^DIPT("AF",200,101.02,27)="" ^DIPT("AF",200,201,1422)="" ^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,1471)="" ^DIPT("AF",404.52,.09,1320)="" ^DIPT("AF",404.52,.09,1471)="" ^DIPT("AF",404.52,.097,1320)="" ^DIPT("AF",404.52,.097,1471)="" ^DIPT("AF",404.52,.099,1320)="" ^DIPT("AF",404.52,.099,1471)="" ^DIPT("AF",404.57,.01,1320)="" ^DIPT("AF",404.57,.01,1467)="" ^DIPT("AF",404.57,.01,1471)="" ^DIPT("AF",404.57,.02,1320)="" ^DIPT("AF",404.57,.02,1471)="" ^DIPT("AF",404.57,.03,1467)="" ^DIPT("AF",404.57,304,1467)="" ^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",1431)="" ^DIPT("B","801notsenttopce",1430)="" ^DIPT("B","AAQJ INQ HEADING",1416)="" ^DIPT("B","AAQJ INQUIRE",1415)="" ^DIPT("B","AAQJ LIST 132",1414)="" ^DIPT("B","AAQJ LIST 132 HEADING",1419)="" ^DIPT("B","AAQJ LIST 132 ROU",1412)="" ^DIPT("B","AAQJ LIST 132 ROU HDG",1420)="" ^DIPT("B","AAQJ LIST 80",1417)="" ^DIPT("B","AAQJ LIST 80 HEADING",1418)="" ^DIPT("B","AAQJ PATCH SUMMARY",1413)="" ^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","ACTIVE USERS BY MAIL CODE",1424)="" ^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",1389)="" ^DIPT("B","BPS TECH - OPTIONS",1390)="" ^DIPT("B","BRIEF USER HEADING",1425)="" ^DIPT("B","CAPTIONED",.01)="" ^DIPT("B","CHRIS SORT",1409)="" ^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",1428)="" ^DIPT("B","DG ISO SENSITIVE RCDS PRT1",1429)="" ^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",1427)="" ^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",1444)="" ^DIPT("B","ECX LAB TEST PRINT",1443)="" ^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",1442)="" ^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","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",1489)="" ^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",1449)="" ^DIPT("B","ICPT MODIFIERS BY RANGE",1100)="" ^DIPT("B","ICPT PRINT",1101)="" ^DIPT("B","IMRH PRINT LAB LINKS",1273)="" ^DIPT("B","KEY/NEW PERSON HEADING",1426)="" ^DIPT("B","KEY/NEW PERSON LIST",1422)="" ^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",1482)="" ^DIPT("B","MAG REPORT 2",1483)="" ^DIPT("B","MAG REPORT 3",1484)="" ^DIPT("B","MAG REPORT 4",1485)="" ^DIPT("B","MAGD CR PARAM LIST",1481)="" ^DIPT("B","MAGD CT PARAMETERS",1480)="" ^DIPT("B","MAGJ CPT MATCH PRT",1454)="" ^DIPT("B","MAGJ PRIOR PRINT",1297)="" ^DIPT("B","MAGREADTIME",1476)="" ^DIPT("B","MAGREPAIR",1477)="" ^DIPT("B","MAGSTATUS",1478)="" ^DIPT("B","MAGUSER",1479)="" ^DIPT("B","MARKAPUPRINT1",1408)="" ^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",1457)="" ^DIPT("B","MD CONVERSION SUMMARY",1456)="" ^DIPT("B","MD CONVERSION TOTALS",1458)="" ^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",1450)="" ^DIPT("B","ONCQA1",1451)="" ^DIPT("B","OPTION INQUIRE WITH SCHEDULING",1423)="" ^DIPT("B","ORB RECIP TOTALS",170)="" ^DIPT("B","ORDERABLE ITEMS",1410)="" ^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",1447)="" ^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",1445)="" ^DIPT("B","PRCV ITEM DISPLAY",1446)="" ^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",1460)="" ^DIPT("B","PXRM EXTRACT COUNTING GROUP",1461)="" ^DIPT("B","PXRM EXTRACT DEFINITION",1459)="" ^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",1462)="" ^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",1487)="" ^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",1448)="" ^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",1474)="" ^DIPT("B","SC INACTIVATED",1472)="" ^DIPT("B","SC PROVIDER FLAGGED",1469)="" ^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",1471)="" ^DIPT("B","SCMC EXTENDED",1468)="" ^DIPT("B","SCMC INACTIVATED",1470)="" ^DIPT("B","SCMC INCONSISTENT",1467)="" ^DIPT("B","SCMC PENDING UNASSIGN",1466)="" ^DIPT("B","SCMC PENDING UNASSIGN PAT",1473)="" ^DIPT("B","SCMC TOBE INACTIVATED",1475)="" ^DIPT("B","SD-PAIT PAIT ACK SUMMARY",1357)="" ^DIPT("B","SD-PAIT PATIENT HL7 LOCATION",1395)="" ^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",1463)="" ^DIPT("B","SDWLDNR",1464)="" ^DIPT("B","SDWLRO",1441)="" ^DIPT("B","SDWLWTR",1465)="" ^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",1486)="" ^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",1453)="" ^DIPT("B","XIP STATE/COUNTY EXPORT",1452)="" ^DIPT("B","XIP ZIP CODE LIST",1364)="" ^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",1488)="" ^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",1439)="" ^DIPT("B","XTPM UNINSTALLED BY COMPLIANCE",1440)="" ^DIPT("B","XU TEMPLATE LIST",36)="" ^DIPT("B","XU-CLINICAL ACTIVE TRAINEE",1437)="" ^DIPT("B","XU-CLINICAL INACTIVE TRAINEE",1436)="" ^DIPT("B","XU-CLINICAL TRAINEE DB COUNT",1341)="" ^DIPT("B","XU-CLINICAL TRAINEE INQUIRY",1339)="" ^DIPT("B","XU-CLINICAL TRAINEE LIST",1435)="" ^DIPT("B","XU-CLINICAL TRAINEE TRANSA",1432)="" ^DIPT("B","XU-CLINICAL TRAINEE TRANSB",1433)="" ^DIPT("B","XU-CLINICAL TRAINEE TRANSC",1434)="" ^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",1438)="" ^DIPT("B","XUSDECSERVER",20)="" ^DIPT("B","XUSEC ISO ACTIVE USER PRINT",1455)="" ^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","XUSERINQFGO",1421)="" ^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("B","vvso 12",1411)="" ^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("F.7","CAPTIONED",.01)="1" ^DIPT("F0","CAPTIONED",.01)="1" ^DIPT("F1","BPS TECH - FILES",1389)="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","CAPTIONED",.01)="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("F101.43","CAPTIONED",.01)="1" ^DIPT("F101.43","CHRIS SORT",1409)="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",1489)="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","CAPTIONED",.01)="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("F158.9","IMRH PRINT LAB LINKS",1273)="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",1450)="1" ^DIPT("F165.5","ONCQA1",1451)="1" ^DIPT("F19","BPS TECH - OPTIONS",1390)="1" ^DIPT("F19","CAPTIONED",.01)="1" ^DIPT("F19","ONCOLOGY OPTION LIST",758)="1" ^DIPT("F19","OPTION INQUIRE WITH SCHEDULING",1423)="1" ^DIPT("F19","XQ-BACKGROUND RECOMMENDED",39)="1" ^DIPT("F19","XUMENULIST",2)="1" ^DIPT("F19.081","CAPTIONED",.01)="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.1","KEY/NEW PERSON HEADING",1426)="1" ^DIPT("F19.1","KEY/NEW PERSON LIST",1422)="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","ACTIVE USERS BY MAIL CODE",1424)="1" ^DIPT("F200","BRIEF USER HEADING",1425)="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",1488)="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",1437)="1" ^DIPT("F200","XU-CLINICAL INACTIVE TRAINEE",1436)="1" ^DIPT("F200","XU-CLINICAL TRAINEE DB COUNT",1341)="1" ^DIPT("F200","XU-CLINICAL TRAINEE INQUIRY",1339)="1" ^DIPT("F200","XU-CLINICAL TRAINEE LIST",1435)="1" ^DIPT("F200","XU-CLINICAL TRAINEE TRANSA",1432)="1" ^DIPT("F200","XU-CLINICAL TRAINEE TRANSB",1433)="1" ^DIPT("F200","XU-CLINICAL TRAINEE TRANSC",1434)="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",1438)="1" ^DIPT("F200","XUSEC ISO ACTIVE USER PRINT",1455)="1" ^DIPT("F200","XUSER LIST",24)="1" ^DIPT("F200","XUSER PC BUILD",755)="1" ^DIPT("F200","XUSERINQ",27)="1" ^DIPT("F200","XUSERINQFGO",1421)="1" ^DIPT("F200","vvso 12",1411)="1" ^DIPT("F2005","MAG REPORT 1",1482)="1" ^DIPT("F2005","MAG REPORT 2",1483)="1" ^DIPT("F2005","MAG REPORT 3",1484)="1" ^DIPT("F2005","MAG REPORT 4",1485)="1" ^DIPT("F2006.575","MAG FAILED IMAGES",1279)="1" ^DIPT("F2006.5849","MAGREADTIME",1476)="1" ^DIPT("F2006.5849","MAGREPAIR",1477)="1" ^DIPT("F2006.5849","MAGSTATUS",1478)="1" ^DIPT("F2006.5849","MAGUSER",1479)="1" ^DIPT("F2006.621","MAGD CT PARAMETERS",1480)="1" ^DIPT("F2006.623","MAGD CR PARAM LIST",1481)="1" ^DIPT("F2006.65","MAGJ PRIOR PRINT",1297)="1" ^DIPT("F2006.67","MAGJ CPT MATCH PRT",1454)="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","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","CAPTIONED",.01)="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","CAPTIONED",.01)="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",1449)="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","CAPTIONED",.01)="1" ^DIPT("F38.1","DG ISO SENSITIVE RCDS PRT",1428)="1" ^DIPT("F38.1","DG ISO SENSITIVE RCDS PRT1",1429)="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.2","XMHOSTLIST",42)="1" ^DIPT("F4.2998","CAPTIONED",.01)="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",1474)="1" ^DIPT("F404.43","SCMC EXTENDED",1468)="1" ^DIPT("F404.43","SCMC INACTIVATED",1470)="1" ^DIPT("F404.43","SCMC PENDING UNASSIGN",1466)="1" ^DIPT("F404.43","SCMC PENDING UNASSIGN PAT",1473)="1" ^DIPT("F404.43","SCMC TOBE INACTIVATED",1475)="1" ^DIPT("F404.52","SC INACTIVATED",1472)="1" ^DIPT("F404.52","SC PROVIDER FLAGGED",1469)="1" ^DIPT("F404.52","SCMC DIRECT PC FTEE",1320)="1" ^DIPT("F404.52","SCMC DIRECT PC FTEE 1 CLN",1471)="1" ^DIPT("F404.57","SCMC INCONSISTENT",1467)="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",1463)="1" ^DIPT("F409.3","SDWLDNR",1464)="1" ^DIPT("F409.3","SDWLRO",1441)="1" ^DIPT("F409.3","SDWLWTR",1465)="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",1395)="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",1445)="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("F437016","AAQJ INQ HEADING",1416)="1" ^DIPT("F437016","AAQJ INQUIRE",1415)="1" ^DIPT("F437016","AAQJ LIST 132",1414)="1" ^DIPT("F437016","AAQJ LIST 132 HEADING",1419)="1" ^DIPT("F437016","AAQJ LIST 132 ROU",1412)="1" ^DIPT("F437016","AAQJ LIST 132 ROU HDG",1420)="1" ^DIPT("F437016","AAQJ LIST 80",1417)="1" ^DIPT("F437016","AAQJ LIST 80 HEADING",1418)="1" ^DIPT("F437016","AAQJ PATCH SUMMARY",1413)="1" ^DIPT("F437016","CAPTIONED",.01)="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",1446)="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",1447)="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",1431)="1" ^DIPT("F45","801notsenttopce",1430)="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",1427)="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",1453)="1" ^DIPT("F5","XIP STATE/COUNTY EXPORT",1452)="1" ^DIPT("F5.12","XIP ZIP CODE LIST",1364)="1" ^DIPT("F5.13","CAPTIONED",.01)="1" ^DIPT("F50","CAPTIONED",.01)="1" ^DIPT("F50","MARKAPUPRINT1",1408)="1" ^DIPT("F50","ORDERABLE ITEMS",1410)="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.7","CAPTIONED",.01)="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","CAPTIONED",.01)="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","CAPTIONED",.01)="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",1487)="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",1448)="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",1486)="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",1442)="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("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",1457)="1" ^DIPT("F703.9","MD CONVERSION SUMMARY",1456)="1" ^DIPT("F703.9","MD CONVERSION TOTALS",1458)="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("F72","RA STATUS PRINT",606)="1" ^DIPT("F727","ECX LOG",1139)="1" ^DIPT("F727.2","ECX LAB TEST HEADER",1444)="1" ^DIPT("F727.2","ECX LAB TEST PRINT",1443)="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","CAPTIONED",.01)="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","CAPTIONED",.01)="1" ^DIPT("F810.2","PXRM EXTRACT DEFINITION",1459)="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","CAPTIONED",.01)="1" ^DIPT("F810.4","PXRM FINDING RULE",1399)="1" ^DIPT("F810.4","PXRM PATIENT LIST RULE",1405)="1" ^DIPT("F810.4","PXRM REMINDER RULE",1462)="1" ^DIPT("F810.4","PXRM RULE SET",1400)="1" ^DIPT("F810.7","PXRM EXTRACT COUNTING",1460)="1" ^DIPT("F810.8","CAPTIONED",.01)="1" ^DIPT("F810.8","PXRM EXTRACT COUNTING GROUP",1461)="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","CAPTIONED",.01)="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","CAPTIONED",.01)="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","CAPTIONED",.01)="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","CAPTIONED",.01)="1" ^DIPT("F815","PX HS/RPT PARAMETERS PRINT",585)="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.1","CAPTIONED",.01)="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","CAPTIONED",.01)="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.7","CAPTIONED",.01)="1" ^DIPT("F9.8","CAPTIONED",.01)="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","XTPM COMPLETE PATCH HISTORY",1439)="1" ^DIPT("F9.9","XTPM UNINSTALLED BY COMPLIANCE",1440)="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)=""