Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^DIBT(0)="SORT TEMPLATE^.401I^901^785"
^DIBT(1,0)="XPD DISPLAY ENTRY^2940404.1515^@^9.6^^@^2940405"
^DIBT(1,2,1)="9.6^0^NUMBER^@^"
^DIBT(1,2,1,"ASK")=""
^DIBT(1,2,1,"F")="3.99999^4"
^DIBT(1,2,1,"T")="4^4"
^DIBT(1,2,2)="9.68^.01^ENTRIES^^"
^DIBT(1,2,2,9.6)="KRN"
^DIBT(1,2,2,9.67)="NM"
^DIBT(2,0)="XQHNEW/REVISED FRAMES^2851013^@^9.2^^^2940822"
^DIBT(2,2,1)="9.2^.01^NAME^]'^"
^DIBT(2,2,1,"ASK")=""
^DIBT(2,2,1,"F")="AA@z"
^DIBT(2,2,1,"IX")="^DIC(9.2,""B"",^DIC(9.2,^2"
^DIBT(2,2,1,"T")="ZZZ"
^DIBT(2,2,2)="9.2^8^DATE LAST UPDATED^^"
^DIBT(2,2,2,"ASK")=""
^DIBT(2,2,2,"F")="2850704.99999"
^DIBT(2,2,2,"T")="2851013.9999"
^DIBT(3,0)="XUPMDISPS^2961213.1626^^3.07^^^2961213"
^DIBT(3,2,0)="^.4014^2^2"
^DIBT(3,2,1,0)="3.07^^USER^+@"".01^;S1^^^^^4"
^DIBT(3,2,1,"CM")="S Y(1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(3,2,1,"GET")="S Y(1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(3,2,1,"QCON")="I DISX(1)'="""""
^DIBT(3,2,1,"TXT")="USER not null"
^DIBT(3,2,2,0)="3.07^0^DATE/TIME^@^^^D^^^1"
^DIBT(3,2,2,"QCON")="I D0'="""""
^DIBT(3,2,2,"TXT")="DATE/TIME not null"
^DIBT(3,2,"B",3.07,1)=""
^DIBT(3,2,"B",3.07,2)=""
^DIBT(4,0)="XU-FAILED LOGONS: CPU,UCI,DATE^2861217^^3.05^^"
^DIBT(4,2,1)="3.05^1^CPU^#^"
^DIBT(4,2,1,"ASK")=""
^DIBT(4,2,1,"F")="FIRSSz"
^DIBT(4,2,1,"T")="z"
^DIBT(4,2,2)="3.05^4^UCI^^;S1"
^DIBT(4,2,2,"ASK")=""
^DIBT(4,2,2,"F")="FIRSSz"
^DIBT(4,2,2,"T")="z"
^DIBT(4,2,3)="3.05^0^DATE/TIME OF ATTEMPT^^^^D"
^DIBT(4,2,3,"ASK")=""
^DIBT(4,2,3,"F")="2861206.99999"
^DIBT(4,2,3,"T")="z"
^DIBT(5,0)="XUUFAA^2961213.156^^3.05^^^2961213"
^DIBT(5,2,0)="^.4014^3^3"
^DIBT(5,2,1,0)="3.05^0^DATE/TIME OF ATTEMPT^^^^D^^^1"
^DIBT(5,2,1,"QCON")="I D0'="""""
^DIBT(5,2,1,"TXT")="DATE/TIME OF ATTEMPT not null"
^DIBT(5,2,2,0)="3.05^^USER^""5^^^^^^4"
^DIBT(5,2,2,"CM")="S Y(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(5,2,2,"GET")="S Y(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(5,2,2,"QCON")="I DISX(2)'="""""
^DIBT(5,2,2,"TXT")="USER not null"
^DIBT(5,2,3,0)="3.05^2^TYPE OF FAILED ATTEMPT^^^^^^^3"
^DIBT(5,2,3,"GET")="S DISX(3)=$P($G(^%ZUA(3.05,D0,0)),U,3)"
^DIBT(5,2,3,"QCON")="I DISX(3)'="""""
^DIBT(5,2,3,"TXT")="TYPE OF FAILED ATTEMPT not null"
^DIBT(5,2,"B",3.05,1)=""
^DIBT(5,2,"B",3.05,2)=""
^DIBT(5,2,"B",3.05,3)=""
^DIBT(6,0)="XUFDISPS^2961213.1557^^3.05^^^2961213"
^DIBT(6,2,0)="^.4014^2^2"
^DIBT(6,2,1,0)="3.05^^USER^+@""5^;S1^^^^^4"
^DIBT(6,2,1,"CM")="S Y(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(6,2,1,"GET")="S Y(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(6,2,1,"QCON")="I DISX(1)'="""""
^DIBT(6,2,1,"TXT")="USER not null"
^DIBT(6,2,2,0)="3.05^0^DATE/TIME OF ATTEMPT^@^^^D^^^1"
^DIBT(6,2,2,"QCON")="I D0'="""""
^DIBT(6,2,2,"TXT")="DATE/TIME OF ATTEMPT not null"
^DIBT(6,2,"B",3.05,1)=""
^DIBT(6,2,"B",3.05,2)=""
^DIBT(7,0)="XUDFDISPS^2881222^@^3.05^^@"
^DIBT(7,2,1)="3.05^^DEVICE^+@"".01^;S1"
^DIBT(7,2,1,"CM")="S Y(1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$S('$D(^%ZIS(1,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(7,2,2)="3.05^0^DATE/TIME OF ATTEMPT^@^^^D"
^DIBT(8,0)="XUOPTLOGS^2870701^#^19.081^^#^2920113"
^DIBT(8,2,1)="19.081^0^DATE/TIME^]^^^D"
^DIBT(8,2,1,"ASK")=""
^DIBT(8,2,1,"F")="2861200.99999"
^DIBT(8,2,1,"T")="z"
^DIBT(8,2,2)="19.081^^OPTION^"".01^"
^DIBT(8,2,2,"ASK")=""
^DIBT(8,2,2,"CM")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(8,2,2,"F")="@z"
^DIBT(8,2,2,"T")="z"
^DIBT(9,0)="XUOPTDISPS^2870701^#^19.081^^#^2940827"
^DIBT(9,2,1)="19.081^^OPTION^"".01^"
^DIBT(9,2,1,"ASK")=""
^DIBT(9,2,1,"CM")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(9,2,1,"F")="@z"
^DIBT(9,2,1,"T")="z"
^DIBT(9,2,2)="19.081^0^DATE/TIME^^^^D"
^DIBT(9,2,2,"ASK")=""
^DIBT(9,2,2,"F")="2861200.99999"
^DIBT(9,2,2,"T")="z"
^DIBT(10,0)="XUUSEROPTS^2961213.1606^#^19.081^^#^2961213"
^DIBT(10,2,0)="^.4014^2^2"
^DIBT(10,2,1,0)="19.081^^USER^""1^^^^^^4"
^DIBT(10,2,1,"CM")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(10,2,1,"F")="@z^A"
^DIBT(10,2,1,"GET")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(10,2,1,"QCON")="I DISX(1)]]""@z"""
^DIBT(10,2,1,"T")="z^z"
^DIBT(10,2,1,"TXT")="USER from A"
^DIBT(10,2,2,0)="19.081^^OPTION^"".01^^^^^^4"
^DIBT(10,2,2,"CM")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(10,2,2,"F")="@z^A"
^DIBT(10,2,2,"GET")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(10,2,2,"IX")="^XUSEC(19,""B"",^XUSEC(19,^2"
^DIBT(10,2,2,"PTRIX")="^DIC(19,""B"","
^DIBT(10,2,2,"QCON")="I DISX(2)]]""@z"""
^DIBT(10,2,2,"SER")="0.0000^0.0000"
^DIBT(10,2,2,"T")="z^z"
^DIBT(10,2,2,"TXT")="OPTION from A"
^DIBT(10,2,"B",19.081,1)=""
^DIBT(10,2,"B",19.081,2)=""
^DIBT(11,0)="XU-ZISPL-USER^2961213.1543^^3.51^^@^2961213"
^DIBT(11,2,0)="^.4014^1^1"
^DIBT(11,2,1,0)="3.51^^USER^+""4^^^^^^4"
^DIBT(11,2,1,"CM")="S Y(1)=$S($D(^XMB(3.51,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(11,2,1,"GET")="S Y(1)=$S($D(^XMB(3.51,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(11,2,1,"IX")="^XMB(3.51,""ADUZ"",^XMB(3.51,^2"
^DIBT(11,2,1,"PTRIX")="^VA(200,""B"","
^DIBT(11,2,1,"QCON")="I DISX(1)'="""""
^DIBT(11,2,1,"TXT")="USER not null"
^DIBT(11,2,"B",3.51,1)=""
^DIBT(12,0)="XU-SIGNON-USER^2961213.1536^@^3.081^^@^2961213"
^DIBT(12,2,0)="^.4014^3^3"
^DIBT(12,2,1,0)="3.081^7^TASK?^@^^^^^^3"
^DIBT(12,2,1,"GET")="S DISX(1)=$P($G(^XUSEC(0,D0,0)),U,6)"
^DIBT(12,2,1,"QCON")="I DISX(1)'="""""
^DIBT(12,2,1,"TXT")="TASK? not null"
^DIBT(12,2,2,0)="3.081^^USER^"".01^^^^^^4"
^DIBT(12,2,2,"CM")="S Y(1)=$S($D(^XUSEC(0,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(12,2,2,"GET")="S Y(1)=$S($D(^XUSEC(0,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(12,2,2,"IX")="^XUSEC(0,""CUR"",^XUSEC(0,^2"
^DIBT(12,2,2,"PTRIX")="^VA(200,""B"","
^DIBT(12,2,2,"QCON")="I DISX(2)'="""""
^DIBT(12,2,2,"TXT")="USER not null"
^DIBT(12,2,3,0)="3.081^0^DATE/TIME^@^^^D^^^1"
^DIBT(12,2,3,"QCON")="I D0'="""""
^DIBT(12,2,3,"TXT")="DATE/TIME not null"
^DIBT(12,2,"B",3.081,1)=""
^DIBT(12,2,"B",3.081,2)=""
^DIBT(12,2,"B",3.081,3)=""
^DIBT(13,0)="XUPRG-ROUTINE EDIT^2880509^@^9.8^^@^2930708"
^DIBT(13,2,1)="9.8^.01^NAME^^"
^DIBT(13,2,1,"ASK")=""
^DIBT(13,2,1,"F")="T-3/z"
^DIBT(13,2,1,"IX")="^DIC(9.8,""B"",^DIC(9.8,^2"
^DIBT(13,2,1,"T")="TODAY"
^DIBT(13,2,2)="9.823^.01^EDIT HISTORY^^"
^DIBT(13,2,2,9.8)="23"
^DIBT(13,2,2,"ASK")=""
^DIBT(13,2,2,"F")="2880408.99999"
^DIBT(13,2,2,"T")="2880509.9999"
^DIBT(14,0)="XUDOC SYSTEM ROUTINES^2910724.1104^@^9.8^^@^2910724"
^DIBT(14,2,1)="9.8^.01^NAME^^"
^DIBT(14,2,1,"F")="XKz^XL"
^DIBT(14,2,1,"IX")="^DIC(9.8,""B"",^DIC(9.8,^2"
^DIBT(14,2,1,"T")="ZUZ^ZUZ"
^DIBT(14,2,2)="9.8^^XTRTEST(NAME)=1^@""@B^;L1"
^DIBT(14,2,2,"CM")="S Y(1)=$S($D(^DIC(9.8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) X ^%ZOSF(""TEST"") S X=$T S X=X=1 I D0>0 S X(2)=X"
^DIBT(14,2,2,"F")="0"
^DIBT(14,2,2,"T")="1"
^DIBT(15,0)="XUDOC SUPPORTED EP^2890529.1127^^9.8^^^2910724"
^DIBT(15,2,1)="9.801^2^SUPPORTED ENTRY POINT^@^"
^DIBT(15,2,1,9.8)="T"
^DIBT(15,2,1,"F")="xz"
^DIBT(15,2,1,"T")="z"
^DIBT(16,0)="XQSMD BY USER^2880128^^200^^^2940722"
^DIBT(16,2,1)="200^.01^NAME^]^"
^DIBT(16,2,1,"F")="@z"
^DIBT(16,2,1,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(16,2,1,"T")="z"
^DIBT(16,2,2)="200.19^^DELEGATED OPTIONS^"".01^"
^DIBT(16,2,2,200)="19.5"
^DIBT(16,2,2,"CM")="S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(17,0)="XQSMD BY OPTION^2880201^^200^^^2940722"
^DIBT(17,2,1)="200.19^^DELEGATED OPTIONS^]"".01^"
^DIBT(17,2,1,200)="19.5"
^DIBT(17,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(17,2,2)="200^.01^NAME^^"
^DIBT(17,2,2,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(18,0)="XUFILE BY FILE NUMBER^2950201.1316^^200^^^2950308"
^DIBT(18,2,0)="^.4014^1^1"
^DIBT(18,2,1,0)="200.032^^INTERNAL(ACCESSIBLE FILE)^""^;C1;S2;""FILE: ""^^^^^4"
^DIBT(18,2,1,1,0)="^.40141^1^1"
^DIBT(18,2,1,1,1,0)="200^FOF"
^DIBT(18,2,1,1,"B",200,1)=""
^DIBT(18,2,1,"ASK")="1"
^DIBT(18,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,""FOF"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X I D1>0 S DISX(1)=X"
^DIBT(18,2,1,"F")="662001.99999^662002"
^DIBT(18,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,""FOF"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X I D1>0 S DISX(1)=X"
^DIBT(18,2,1,"QCON")="I DISX(1)=662002"
^DIBT(18,2,1,"T")="662002^662002"
^DIBT(18,2,1,"TXT")="INTERNAL(ACCESSIBLE FILE) equals 662002"
^DIBT(18,2,"B",200.032,1)=""
^DIBT(19,0)="XUSERVER SORT^2900122.111^@^19.081^^@^2941115"
^DIBT(19,2,0)="^.4014^2^2"
^DIBT(19,2,1,0)="19.081^^MESSAG'=""""^""@B^;L1^^^^^4"
^DIBT(19,2,1,"CM")="S Y(1)=$S($D(^XUSEC(19,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1)'="""" I D0>0 S DISX(1)=X"
^DIBT(19,2,1,"F")="0"
^DIBT(19,2,1,"GET")="S Y(1)=$S($D(^XUSEC(19,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1)'="""" I D0>0 S DISX(1)=X"
^DIBT(19,2,1,"QCON")="I DISX(1)"
^DIBT(19,2,1,"T")="1"
^DIBT(19,2,1,"TXT")="MESSAG'="""""""""
^DIBT(19,2,2,0)="19.081^0^DATE/TIME^^^^D^^^1"
^DIBT(19,2,2,"QCON")="I D0'="""""
^DIBT(19,2,2,"SER")="0.0000^0.0000"
^DIBT(19,2,2,"TXT")="DATE/TIME not null"
^DIBT(19,2,"B",19.081,1)=""
^DIBT(19,2,"B",19.081,2)=""
^DIBT(20,0)="XQAB +DAT/ROU/SITE^2930726.161^^8991.5^^^2950405^"
^DIBT(20,2,0)="^.4014^3^3"
^DIBT(20,2,1,0)="8991.51^.01^DATE OF ERROR^+^;S1^^^^^1"
^DIBT(20,2,1,1,0)="^.40141^1^1"
^DIBT(20,2,1,1,1,0)="8991.5^1"
^DIBT(20,2,1,1,"B",8991.5,1)=""
^DIBT(20,2,1,"ASK")="1"
^DIBT(20,2,1,"F")="2950203.99999^T-60^2/4/95"
^DIBT(20,2,1,"GET")="S DISX(1)=$P($G(^XTV(8991.5,D0,1,D1,0)),U,1)"
^DIBT(20,2,1,"QCON")="I DISX(1)]]2950203.99999"
^DIBT(20,2,1,"T")="z^"
^DIBT(20,2,1,"TXT")="DATE OF ERROR from 2/4/95"
^DIBT(20,2,2,0)="8991.5^.02^ROUTINE^^^^^^^4"
^DIBT(20,2,2,"ASK")="1"
^DIBT(20,2,2,"GET")="S DISX(2)=$P($G(^XTV(8991.5,D0,0)),U,2)"
^DIBT(20,2,2,"IX")="^XTV(8991.5,""ROU"",^XTV(8991.5,^2"
^DIBT(20,2,2,"QCON")="I DISX(2)'="""""
^DIBT(20,2,2,"SER")="0.0000^0.0000"
^DIBT(20,2,2,"TXT")="ROUTINE not null"
^DIBT(20,2,3,0)="8991.511^.01^SITE^^^^^^^4"
^DIBT(20,2,3,1,0)="^.40141^2^2"
^DIBT(20,2,3,1,1,0)="8991.5^1"
^DIBT(20,2,3,1,2,0)="8991.51^1"
^DIBT(20,2,3,1,"B",8991.5,1)=""
^DIBT(20,2,3,1,"B",8991.51,2)=""
^DIBT(20,2,3,"ASK")="1"
^DIBT(20,2,3,"GET")="S DISX(3)=$P($G(^XTV(8991.5,D0,1,D1,1,D2,0)),U,1)"
^DIBT(20,2,3,"QCON")="I DISX(3)'="""""
^DIBT(20,2,3,"TXT")="SITE not null"
^DIBT(20,2,"B",8991.5,2)=""
^DIBT(20,2,"B",8991.51,1)=""
^DIBT(20,2,"B",8991.511,3)=""
^DIBT(21,0)="XUZ DOC^2890319.1718^@^9.2^^@"
^DIBT(21,2,1)="9.2^.01^NAME^@#^"
^DIBT(21,2,1,"ASK")=""
^DIBT(21,2,1,"F")="XUZ PM00z"
^DIBT(21,2,1,"IX")="^DIC(9.2,""B"",^DIC(9.2,^2"
^DIBT(21,2,1,"T")="XUZ PM07"
^DIBT(22,0)="XQTYPEERRORS^2940204.0931^@^19^^@"
^DIBT(23,0)="XQ-BACKGROUND RECOMMENDED^2940324.0758^@^19^^@^2941123"
^DIBT(23,2,0)="^.4014^1^1"
^DIBT(23,2,1,0)="19^209^SCHEDULING RECOMMENDED^^^^^^^3"
^DIBT(23,2,1,"GET")="S DISX(1)=$P($G(^DIC(19,D0,200.9)),U,1)"
^DIBT(23,2,1,"QCON")="I DISX(1)'="""""
^DIBT(23,2,1,"SER")="0.9802^0.9802"
^DIBT(23,2,1,"TXT")="SCHEDULING RECOMMENDED not null"
^DIBT(23,2,"B",19,1)=""
^DIBT(24,0)="XQ-BACKGROUND SCHEDULE^2941018.1059^^19.2^^@^2971213"
^DIBT(24,2,0)="^.4014^1^1"
^DIBT(24,2,1,0)="19.2^^NAME^"".01^^^^^^4"
^DIBT(24,2,1,"CM")="S Y(1)=$S($D(^DIC(19.2,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(24,2,1,"GET")="S Y(1)=$S($D(^DIC(19.2,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(24,2,1,"IX")="^DIC(19.2,""B"",^DIC(19.2,^2"
^DIBT(24,2,1,"PTRIX")="^DIC(19,""B"","
^DIBT(24,2,1,"QCON")="I DISX(1)'="""""
^DIBT(24,2,1,"SER")="0.0000^0.0000"
^DIBT(24,2,1,"TXT")="NAME not null"
^DIBT(24,2,"B",19.2,1)=""
^DIBT(24,"%D",0)="^^1^1^2941018^"
^DIBT(24,"%D",1,0)="This is the sort template for the XQ-BACKGROUND SCHEDULE"
^DIBT(25,0)="XUDEV LINEPORTADDR^2941024.1111^@^3.5^^@^2941024"
^DIBT(25,2,0)="^.4014^3^3"
^DIBT(25,2,1,0)="3.5^.01^NAME^^^^^^^4"
^DIBT(25,2,1,"GET")="S DISX(1)=$P($G(^%ZIS(1,D0,0)),U,1)"
^DIBT(25,2,1,"IX")="^%ZIS(1,""B"",^%ZIS(1,^2"
^DIBT(25,2,1,"QCON")="I DISX(1)'="""""
^DIBT(25,2,1,"SER")="0.0000^0.0000"
^DIBT(25,2,1,"TXT")="NAME not null"
^DIBT(25,2,2,0)="3.5^^TYPE=""TERMINAL""^""@B^;L1^^^^^4"
^DIBT(25,2,2,3,0)="^.401419^1^1"
^DIBT(25,2,2,3,1,0)="OVF0^9.2"
^DIBT(25,2,2,3,1,"OVF0")="S Y(2)=$C(59)_$S($D(^DD(3.5,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^%ZIS(1,D0,""TYPE"")):^(""TYPE""),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59),1)"
^DIBT(25,2,2,3,"B","OVF0",1)=""
^DIBT(25,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=X=""TERMINAL"" I D0>0 S DISX(2)=X"
^DIBT(25,2,2,"F")="0"
^DIBT(25,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=X=""TERMINAL"" I D0>0 S DISX(2)=X"
^DIBT(25,2,2,"QCON")="I DISX(2)"
^DIBT(25,2,2,"T")="1"
^DIBT(25,2,2,"TXT")="TYPE=""""TERMINAL"""""
^DIBT(25,2,3,0)="3.5^^INTERNAL(#1)'=0^""@B^;L1^^^^^4"
^DIBT(25,2,3,"CM")="S Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=0 I D0>0 S DISX(3)=X"
^DIBT(25,2,3,"F")="0"
^DIBT(25,2,3,"GET")="S Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=0 I D0>0 S DISX(3)=X"
^DIBT(25,2,3,"QCON")="I DISX(3)"
^DIBT(25,2,3,"T")="1"
^DIBT(25,2,3,"TXT")="INTERNAL(#1)'=0"
^DIBT(25,2,"B",3.5,1)=""
^DIBT(25,2,"B",3.5,2)=""
^DIBT(25,2,"B",3.5,3)=""
^DIBT(25,"%D",0)="^^1^1^2941024^^"
^DIBT(25,"%D",1,0)="Sort logic for Line/Port address report."
^DIBT(26,0)="XMMGR-BKFILER-DAY@23:30^2920214.1212^^4.2998^^^^"
^DIBT(26,2,1)="4.2998^.01^DATE/TIME^^"
^DIBT(26,2,1,"ASK")=""
^DIBT(26,2,1,"F")="2110100.99999^1/1/11"
^DIBT(26,2,1,"IX")="^XMBX(4.2998,""B"",^XMBX(4.2998,^2"
^DIBT(26,2,1,"T")="2991231.9999^12/31/99"
^DIBT(26,2,2)="4.2998^^$E($P(INTERNAL(DATE/TIME),""."",2),1,3)=233^'""@B^;L1"
^DIBT(26,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$E(Y(4),Y(5),X)=233 I D0>0 S X(2)=X"
^DIBT(26,2,2,"F")="0"
^DIBT(26,2,2,"OVF0",9.2)="S Y(1)=$S($D(^XMBX(4.2998,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X,Y(2)=X S X=""."",Y(3)=X S X=2,X=$P(Y(2),Y(3),X),Y(4)=X S X=1,Y(5)=X S X=3"
^DIBT(26,2,2,"T")="1"
^DIBT(26,"%D",0)="^^2^2^2931206^^"
^DIBT(26,"%D",1,0)="This template is used to produce a report that lists the number of"
^DIBT(26,"%D",2,0)="messages that were created in a month, a day at a time."
^DIBT(27,0)="XMMGR-BKFILER-TIME_PER_DATE^2920611.091^^4.2998^^^^"
^DIBT(27,2,1)="4.2998^.01^DATE/TIME^@^"
^DIBT(27,2,1,"ASK")=""
^DIBT(27,2,1,"F")="2920500.99999^5/1"
^DIBT(27,2,1,"IX")="^XMBX(4.2998,""B"",^XMBX(4.2998,^2"
^DIBT(27,2,1,"T")="2920531.9999^5/31"
^DIBT(27,2,2)="4.2998^^$E($P(INTERNAL(DATE/TIME),""."",2),1,3)^@""^"
^DIBT(27,2,2,"ASK")=""
^DIBT(27,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$E(Y(4),Y(5),X) I D0>0 S X(2)=X"
^DIBT(27,2,2,"F")="119.99999^120"
^DIBT(27,2,2,"OVF0",9.2)="S Y(1)=$S($D(^XMBX(4.2998,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X,Y(2)=X S X=""."",Y(3)=X S X=2,X=$P(Y(2),Y(3),X),Y(4)=X S X=1,Y(5)=X S X=3"
^DIBT(27,2,2,"T")="120^120"
^DIBT(27,"%D",0)="^.4012^2^2^3020717^^^"
^DIBT(27,"%D",1,0)="This template allows information in a time-oriented file to be output"
^DIBT(27,"%D",2,0)="from a beginning time to an ending time."
^DIBT(28,0)="XTLK SHORT ALPHA^2901017.1326^^8984.2^^^^"
^DIBT(28,2,1)="8984.2^.01^FREQUENTLY USED NARRATIVE^^"
^DIBT(28,2,2)="8984.2^^ENTRY^"".02^"
^DIBT(28,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(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="","" I D0>0 S X(2)=X"
^DIBT(28,2,2,"OVF0",9.2)="S Y(1)=$S($D(^XT(8984.2,D0,0)):^(0),1:"""")"
^DIBT(29,0)="XTLK SHORT CODE^2901017.1331^^8984.2^^^^"
^DIBT(29,2,1)="8984.2^.03^CODE^^"
^DIBT(29,2,1,"IX")="^XT(8984.2,""D"",^XT(8984.2,^2"
^DIBT(29,2,2)="8984.2^.01^FREQUENTLY USED NARRATIVE^^"
^DIBT(30,0)="XTLK SYNONYM ALPHA^2901017.1343^^8984.3^^^^"
^DIBT(30,2,1)="8984.3^.01^TERM^^"
^DIBT(30,2,1,"IX")="^XT(8984.3,""B"",^XT(8984.3,^2"
^DIBT(31,0)="XTLK KEYWORD ALPHA^2901126.1421^^8984.1^^^^"
^DIBT(31,2,1)="8984.1^^INTERNAL(ASSOCIATED FILE)^'@""^"
^DIBT(31,2,1,"ASK")=""
^DIBT(31,2,1,"CM")="S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D0>0 S X(1)=X"
^DIBT(31,2,1,"F")="79.99999^80"
^DIBT(31,2,1,"IX")="^XT(8984.1,""AD"",^XT(8984.1,^2"
^DIBT(31,2,1,"T")="80^80"
^DIBT(31,2,2)="8984.1^.01^NAME^^"
^DIBT(31,2,2,"IX")="^XT(8984.1,""B"",^XT(8984.1,^2"
^DIBT(32,0)="XTLK KEYWORD CODES^2901126.1103^^8984.1^^^^"
^DIBT(32,2,1)="8984.1^^INTERNAL(ASSOCIATED FILE)^'@""^"
^DIBT(32,2,1,"ASK")=""
^DIBT(32,2,1,"CM")="S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D0>0 S X(1)=X"
^DIBT(32,2,1,"F")="80.99999^81"
^DIBT(32,2,1,"IX")="^XT(8984.1,""AD"",^XT(8984.1,^2"
^DIBT(32,2,1,"T")="81^81"
^DIBT(32,2,2)="8984.1^.03^CODE^^"
^DIBT(32,2,2,"IX")="^XT(8984.1,""C"",^XT(8984.1,^2"
^DIBT(33,0)="XDR POTENTIAL DUPLICATE LIST^2971203.1202^^15^^^2980408"
^DIBT(33,2,0)="^.4014^3^3"
^DIBT(33,2,1,0)="15^^STATUS=""POTENTIAL DUPLICATE, UNVERIFIED""^@""@B^;L1;L1^^^^^4"
^DIBT(33,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)=""POTENTIAL DUPLICATE, UNVERIFIED"" I D0>0 S DISX(1)=X"
^DIBT(33,2,1,"F")="0"
^DIBT(33,2,1,"GET")="S Y(2)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)=""POTENTIAL DUPLICATE, UNVERIFIED"" I D0>0 S DISX(1)=X"
^DIBT(33,2,1,"QCON")="I DISX(1)"
^DIBT(33,2,1,"T")="1"
^DIBT(33,2,1,"TXT")="STATUS=""""POTENTIAL DUPLICATE, UNVERIFIED"""""
^DIBT(33,2,2,0)="15^.19^DC DUPE MATCH PERCENTILE^@-^^^^^^2"
^DIBT(33,2,2,"GET")="S DISX(2)=$P($G(^VA(15,D0,0)),U,19)"
^DIBT(33,2,2,"QCON")="I DISX(2)'="""""
^DIBT(33,2,2,"SER")="0.0000^0.0000"
^DIBT(33,2,2,"TXT")="DC DUPE MATCH PERCENTILE not null"
^DIBT(33,2,3,0)="15^.06^DATE FOUND^@^^^^^^1"
^DIBT(33,2,3,"GET")="S DISX(3)=$P($G(^VA(15,D0,0)),U,6)"
^DIBT(33,2,3,"QCON")="I DISX(3)'="""""
^DIBT(33,2,3,"SER")="0.0000^0.0000"
^DIBT(33,2,3,"TXT")="DATE FOUND not null"
^DIBT(33,2,"B",15,1)=""
^DIBT(33,2,"B",15,2)=""
^DIBT(33,2,"B",15,3)=""
^DIBT(33,"%D",0)="^^2^2^2971203^^^"
^DIBT(33,"%D",1,0)="This template is used to produce a listing of all Potential, Unverified"
^DIBT(33,"%D",2,0)="Duplicates of a given file of the Duplicate Record File."
^DIBT(34,0)="XDR NOT READY TO MERGE LIST^2981109.135^^15^^^2981109"
^DIBT(34,2,0)="^.4014^4^4"
^DIBT(34,2,1,0)="15^.03^STATUS^@^^^^^^3"
^DIBT(34,2,1,"F")="Uz^V^V (VERIFIED DUPLICATE)"
^DIBT(34,2,1,"GET")="S DISX(1)=$P($G(^VA(15,D0,0)),U,3)"
^DIBT(34,2,1,"QCON")="I DISX(1)=""V"""
^DIBT(34,2,1,"SER")="0.0000^0.0000"
^DIBT(34,2,1,"T")="V^V^V (VERIFIED DUPLICATE)"
^DIBT(34,2,1,"TXT")="STATUS equals V (VERIFIED DUPLICATE)"
^DIBT(34,2,2,0)="15^.05^MERGE STATUS^@^^^^^^3"
^DIBT(34,2,2,"F")="-1^0^0 (NOT READY)"
^DIBT(34,2,2,"GET")="S DISX(2)=$P($G(^VA(15,D0,0)),U,5)"
^DIBT(34,2,2,"QCON")="I DISX(2)=0"
^DIBT(34,2,2,"SER")="0.0000^0.0000"
^DIBT(34,2,2,"T")="0^0^0 (NOT READY)"
^DIBT(34,2,2,"TXT")="MERGE STATUS equals 0 (NOT READY)"
^DIBT(34,2,3,0)="15^.19^DC DUPE MATCH PERCENTILE^@-^^^^^^2"
^DIBT(34,2,3,"GET")="S DISX(3)=$P($G(^VA(15,D0,0)),U,19) S:DISX(3)]"""" DISX(3)=+DISX(3)"
^DIBT(34,2,3,"QCON")="I DISX(3)'="""""
^DIBT(34,2,3,"SER")="0.0000^0.0000"
^DIBT(34,2,3,"TXT")="DC DUPE MATCH PERCENTILE not null"
^DIBT(34,2,4,0)="15^.06^DATE FOUND^@^^^^^^1"
^DIBT(34,2,4,"GET")="S DISX(4)=$P($G(^VA(15,D0,0)),U,6)"
^DIBT(34,2,4,"QCON")="I DISX(4)'="""""
^DIBT(34,2,4,"SER")="0.0000^0.0000"
^DIBT(34,2,4,"TXT")="DATE FOUND not null"
^DIBT(34,2,"B",15,1)=""
^DIBT(34,2,"B",15,2)=""
^DIBT(34,2,"B",15,3)=""
^DIBT(34,2,"B",15,4)=""
^DIBT(34,"%D",0)="^^2^2^2981109^^^^"
^DIBT(34,"%D",1,0)="This template is used to print out Verified Duplicates that have a"
^DIBT(34,"%D",2,0)="'Merge Status' of Not Ready."
^DIBT(35,0)="XDR READY TO MERGE LIST^2981109.1351^^15^^^2981109"
^DIBT(35,2,0)="^.4014^4^4"
^DIBT(35,2,1,0)="15^.03^STATUS^@^^^^^^3"
^DIBT(35,2,1,"F")="Uz^V^V (VERIFIED DUPLICATE)"
^DIBT(35,2,1,"GET")="S DISX(1)=$P($G(^VA(15,D0,0)),U,3)"
^DIBT(35,2,1,"QCON")="I DISX(1)=""V"""
^DIBT(35,2,1,"SER")="0.0000^0.0000"
^DIBT(35,2,1,"T")="V^V^V (VERIFIED DUPLICATE)"
^DIBT(35,2,1,"TXT")="STATUS equals V (VERIFIED DUPLICATE)"
^DIBT(35,2,2,0)="15^.05^MERGE STATUS^@^^^^^^3"
^DIBT(35,2,2,"F")=".99999^1^1 (READY)"
^DIBT(35,2,2,"GET")="S DISX(2)=$P($G(^VA(15,D0,0)),U,5)"
^DIBT(35,2,2,"QCON")="I DISX(2)=1"
^DIBT(35,2,2,"SER")="0.0000^0.0000"
^DIBT(35,2,2,"T")="1^1^1 (READY)"
^DIBT(35,2,2,"TXT")="MERGE STATUS equals 1 (READY)"
^DIBT(35,2,3,0)="15^.19^DC DUPE MATCH PERCENTILE^@-^^^^^^2"
^DIBT(35,2,3,"GET")="S DISX(3)=$P($G(^VA(15,D0,0)),U,19) S:DISX(3)]"""" DISX(3)=+DISX(3)"
^DIBT(35,2,3,"QCON")="I DISX(3)'="""""
^DIBT(35,2,3,"SER")="0.0000^0.0000"
^DIBT(35,2,3,"TXT")="DC DUPE MATCH PERCENTILE not null"
^DIBT(35,2,4,0)="15^.06^DATE FOUND^@^^^^^^1"
^DIBT(35,2,4,"GET")="S DISX(4)=$P($G(^VA(15,D0,0)),U,6)"
^DIBT(35,2,4,"QCON")="I DISX(4)'="""""
^DIBT(35,2,4,"SER")="0.0000^0.0000"
^DIBT(35,2,4,"TXT")="DATE FOUND not null"
^DIBT(35,2,"B",15,1)=""
^DIBT(35,2,"B",15,2)=""
^DIBT(35,2,"B",15,3)=""
^DIBT(35,2,"B",15,4)=""
^DIBT(35,"%D",0)="^^3^3^2981109^^^"
^DIBT(35,"%D",1,0)="This template is used to produce a listing of all Verified Duplicates that"
^DIBT(35,"%D",2,0)="have a merge status of Ready for a given file from the Duplicate Record"
^DIBT(35,"%D",3,0)="File."
^DIBT(36,0)="LRBLTX^2871012^^65^^^^"
^DIBT(36,2,1)="65^4.1^DISPOSITION^@^"
^DIBT(36,2,1,"F")="Sz"
^DIBT(36,2,1,"T")="TZ"
^DIBT(36,2,2)="65^4.2^DISPOSITION DATE^^"
^DIBT(36,2,2,"ASK")=""
^DIBT(36,2,2,"F")="?z"
^DIBT(36,2,2,"T")="@"
^DIBT(36,2,3)="65^6.1^PATIENT TRANSFUSED^^"
^DIBT(37,0)="LR LAB SECTION LIST BY NAME^2860331^^62.2^^^^"
^DIBT(37,2,1)="62.2^.01^NAME^^"
^DIBT(37,2,1,"IX")="^LAB(62.2,""B"",^LAB(62.2,^2"
^DIBT(37,"DIPT")="LR LAB SECTION LIST BY NAME"
^DIBT(38,0)="LR LAB SECTION LIST BY ABBREV^2860331^^62.2^^^^"
^DIBT(38,2,1)="62.2^.01^NAME^^"
^DIBT(38,2,1,"IX")="^LAB(62.2,""B"",^LAB(62.2,^2"
^DIBT(38,"DIPT")="LR LAB SECTION LIST BY ABBREV"
^DIBT(39,0)="LR LAB SUBSECTION BY SECTION^2860331^^62.2^^^^"
^DIBT(39,2,1)="62.2^.01^NAME^^"
^DIBT(39,2,1,"IX")="^LAB(62.2,""B"",^LAB(62.2,^2"
^DIBT(39,"DIPT")="LR LAB SUBSECTION BY SECTION"
^DIBT(40,0)="LR LAB SUBSECTION LIST^2860331^^62.2^^^^"
^DIBT(40,2,1)="62.2^3^ABBREVIATION^^"
^DIBT(40,2,2)="62.2^.01^NAME^^"
^DIBT(40,2,2,"IX")="^LAB(62.2,""B"",^LAB(62.2,^2"
^DIBT(40,"DIPT")="LR LAB SUBSECTION LIST"
^DIBT(41,0)="LR TEST DICTIONARY^2860416^^60^^^^"
^DIBT(41,2,1)="60^.01^NAME^^"
^DIBT(41,2,1,"IX")="^LAB(60,""B"",^LAB(60,^2"
^DIBT(41,"DIPT")="LR TEST DICTIONARY"
^DIBT(42,0)="LRUCNG^2860523^^69.2^^^^"
^DIBT(42,2,1)="69.2^^NAME^"".01^"
^DIBT(42,2,1,"ASK")=""
^DIBT(42,2,1,"CM")="S Y(1)=$S($D(^LRO(69.2,D0,0)):^(0),1:"""") S X=$S('$D(^LRO(68,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(42,2,1,"F")="?z"
^DIBT(42,2,1,"T")="@"
^DIBT(42,2,2)="69.299^.01^DATA CHANGE DATE^^"
^DIBT(42,2,2,69.2)="999"
^DIBT(42,2,2,"ASK")=""
^DIBT(42,2,2,"F")="?z"
^DIBT(42,2,2,"T")="@"
^DIBT(43,0)="LRBLITR^2861010^^65^^^^"
^DIBT(43,2,1)="65^6.1^PATIENT TRANSFUSED^^"
^DIBT(43,2,1,"ASK")=""
^DIBT(43,2,1,"F")="?z"
^DIBT(43,2,1,"T")="@"
^DIBT(43,2,2)="65^4.2^DISPOSITION DATE^^"
^DIBT(43,2,2,"ASK")=""
^DIBT(43,2,2,"F")="?z"
^DIBT(43,2,2,"T")="@"
^DIBT(44,0)="LRBLDPD^2861120^^65.5^^^^"
^DIBT(44,2,1)="65.5^.1^PERMANENT DEFERRAL^^"
^DIBT(44,2,1,"F")=".99999"
^DIBT(44,2,1,"T")="1"
^DIBT(44,2,2)="65.5^.01^NAME^^"
^DIBT(44,2,2,"ASK")=""
^DIBT(44,2,2,"F")="?z"
^DIBT(44,2,2,"T")="@"
^DIBT(45,0)="LRBLD SCHEDULING^2870114^^65.5^^^^"
^DIBT(45,2,1)="65.54^.01^DONATION OR DEFERRAL DATE^]^"
^DIBT(45,2,1,65.5)="5"
^DIBT(45,2,1,"ASK")=""
^DIBT(45,2,1,"F")="?z"
^DIBT(45,2,1,"T")="@"
^DIBT(45,2,2)="65.54^.13^ARRIVAL/APPT TIME^^"
^DIBT(45,2,2,65.5)="5"
^DIBT(46,0)="LRBLD GALLON^2870121^^65.5^^^^"
^DIBT(46,2,1)="65.5^.08^TOTAL AWARDS^]^"
^DIBT(46,2,2)="65.5^.01^NAME^^"
^DIBT(46,2,2,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(47,0)="LR ANTIGEN LISTING^2870302^^61.3^^^^"
^DIBT(47,"DIS",0)="I $S($D(^LAB(61.3,D0,0)):$P(^(0),U,5),1:"""")=""AN"""
^DIBT(47,"O",0)="^^1^1^2870914^"
^DIBT(47,"O",1,0)="IDENTIFIER EQUALS ""AN"""
^DIBT(48,0)="LR ANTIBODY LISTING^2870303^^61.3^^^^"
^DIBT(48,"DIS",0)="I $S($D(^LAB(61.3,D0,0)):$P(^(0),U,5),1:"""")=""AB"""
^DIBT(48,"O",0)="^^1^1^2890807^^"
^DIBT(48,"O",1,0)="IDENTIFIER EQUALS ""AB"""
^DIBT(49,0)="LRBL DESCRIPTIONS^2870601^^62.5^^^^"
^DIBT(49,"DIS",1)="I $S($D(^LAB(62.5,D0,0)):$P(^(0),U,4),1:"""")=""Z"""
^DIBT(49,"DIS",2)="I $S($D(^LAB(62.5,D0,0)):$P(^(0),U,4),1:"""")=""D"""
^DIBT(49,"DIS",3)="I $S($D(^LAB(62.5,D0,0)):$P(^(0),U,4),1:"""")=""R"""
^DIBT(49,"DIS",4)="I $S($D(^LAB(62.5,D0,0)):$P(^(0),U,4),1:"""")=""X"""
^DIBT(49,"O",0)="^^4^4^2870914^"
^DIBT(49,"O",1,0)="SCREEN EQUALS ""Z"""
^DIBT(49,"O",2,0)=" Or SCREEN EQUALS ""D"""
^DIBT(49,"O",3,0)=" Or SCREEN EQUALS ""R"""
^DIBT(49,"O",4,0)=" Or SCREEN EQUALS ""X"""
^DIBT(50,0)="LRBLINV^2891213.0853^^65^^^^"
^DIBT(50,2,1)="65^.02^SOURCE^+^"
^DIBT(50,2,2)="65^^COMPONENT^+"".04^"
^DIBT(50,2,2,"CM")="S Y(1)=$S($D(^LRD(65,D0,0)):^(0),1:"""") S X=$S('$D(^LAB(66,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(50,2,3)="65^.05^DATE/TIME RECEIVED^^"
^DIBT(50,2,3,"ASK")=""
^DIBT(50,2,3,"F")="?z"
^DIBT(50,2,3,"T")="@"
^DIBT(50,2,4)="65^.07^ABO GROUP^^"
^DIBT(50,2,5)="65^.08^RH TYPE^^"
^DIBT(51,0)="LRBL PATIENT CREDIT^2850825^^65.5^^^^"
^DIBT(51,2,1)="65.54^5^PATIENT CREDIT^^"
^DIBT(51,2,1,65.5)="5"
^DIBT(51,2,1,"ASK")=""
^DIBT(51,2,1,"F")="?z"
^DIBT(51,2,1,"T")="@"
^DIBT(51,2,2)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(51,2,2,65.5)="5"
^DIBT(51,2,2,"ASK")=""
^DIBT(51,2,2,"F")="?z"
^DIBT(51,2,2,"T")="@"
^DIBT(52,0)="LRBL EMERGENCY DONORS^2850712^^65.5^^^^"
^DIBT(52,2,1)="65.53^.01^DONOR SCHEDULING/RECALL^^"
^DIBT(52,2,1,65.5)="4"
^DIBT(52,2,1,"F")="15.99999"
^DIBT(52,2,1,"T")="16"
^DIBT(52,2,2)="65.54^.01^DONATION OR DEFERRAL DATE^'^"
^DIBT(52,2,2,65.5)="5"
^DIBT(52,2,2,"ASK")=""
^DIBT(52,2,2,"F")="?z"
^DIBT(52,2,2,"T")="@"
^DIBT(52,2,3)="65.5^.05^ABO GROUP^^"
^DIBT(52,2,3,"ASK")=""
^DIBT(52,2,3,"F")="?z"
^DIBT(52,2,3,"T")="@"
^DIBT(52,2,4)="65.5^.06^RH TYPE^^"
^DIBT(52,2,4,"ASK")=""
^DIBT(52,2,4,"F")="?z"
^DIBT(52,2,4,"T")="@"
^DIBT(52,2,5)="65.5^.01^NAME^^"
^DIBT(52,2,5,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(53,0)="LRBL DEFERRAL REPORT^2850715^^65.5^^^^"
^DIBT(53,2,1)="65.54^1^DONATION/DEFERRAL CODE^^"
^DIBT(53,2,1,65.5)="5"
^DIBT(53,2,1,"F")="Mz"
^DIBT(53,2,1,"T")="N"
^DIBT(53,2,2)="65.54^^COLLECTION SITE^"".02^;S2"
^DIBT(53,2,2,65.5)="5"
^DIBT(53,2,2,"ASK")=""
^DIBT(53,2,2,"CM")="S Y(1)=$S($D(^LRE(D0,5,D1,0)):^(0),1:"""") S X=$S('$D(^LAB(65.4,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(53,2,2,"F")="?z"
^DIBT(53,2,2,"T")="@"
^DIBT(53,2,3)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(53,2,3,65.5)="5"
^DIBT(53,2,3,"ASK")=""
^DIBT(53,2,3,"F")="?z"
^DIBT(53,2,3,"T")="@"
^DIBT(53,2,4)="65.5^.01^NAME^^"
^DIBT(53,2,4,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(54,0)="LRBL APHERESIS DONORS^2891213.1004^^65.5^^^^"
^DIBT(54,2,1)="65.5^.04^APHERESIS CODE^^"
^DIBT(54,2,1,"F")="?z"
^DIBT(54,2,1,"T")="1"
^DIBT(54,2,2)="65.5^.05^ABO GROUP^^"
^DIBT(54,2,2,"ASK")=""
^DIBT(54,2,2,"F")="?z"
^DIBT(54,2,2,"T")="@"
^DIBT(54,2,3)="65.5^.06^RH TYPE^^;S2"
^DIBT(54,2,3,"ASK")=""
^DIBT(54,2,3,"F")="?z"
^DIBT(54,2,3,"T")="@"
^DIBT(54,2,4)="65.54^.01^DONATION OR DEFERRAL DATE^'^"
^DIBT(54,2,4,65.5)="5"
^DIBT(54,2,4,"ASK")=""
^DIBT(54,2,4,"F")="?z"
^DIBT(54,2,4,"T")="@"
^DIBT(54,2,5)="65.5^.01^NAME^^"
^DIBT(54,2,5,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(55,0)="LRBL ISSUES TO SURGERY^2850828^^65^^^^"
^DIBT(55,2,1)="65.03^.01^DATE/TIME UNIT RELOCATION^!^"
^DIBT(55,2,1,65)="3"
^DIBT(55,2,1,"ASK")=""
^DIBT(55,2,1,"F")="?z"
^DIBT(55,2,1,"T")="@"
^DIBT(55,2,2)="65^.01^UNIT ID^^"
^DIBT(55,2,2,"IX")="^LRD(65,""B"",^LRD(65,^2"
^DIBT(55,2,3)="65.03^.04^LOCATION^'^"
^DIBT(55,2,3,65)="3"
^DIBT(55,2,3,"F")="SURGERXz"
^DIBT(55,2,3,"T")="SURGERY"
^DIBT(56,0)="LRBL DISPOSITION TOTALS^2850828^^65^^^^"
^DIBT(56,2,1)="65^4.1^DISPOSITION^^"
^DIBT(56,2,2)="65^4.2^DISPOSITION DATE^^"
^DIBT(56,2,2,"ASK")=""
^DIBT(56,2,2,"F")="?z"
^DIBT(56,2,2,"T")="@"
^DIBT(56,2,3)="65^^COMPONENT^"".04^"
^DIBT(56,2,3,"ASK")=""
^DIBT(56,2,3,"CM")="S Y(1)=$S($D(^LRD(65,D0,0)):^(0),1:"""") S X=$S('$D(^LAB(66,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(56,2,3,"F")="?z"
^DIBT(56,2,3,"T")="@"
^DIBT(57,0)="LRBL WASTAGE^2850830^^65^^^^"
^DIBT(57,2,1)="65^4.2^DISPOSITION DATE^^"
^DIBT(57,2,1,"ASK")=""
^DIBT(57,2,1,"F")="?z"
^DIBT(57,2,1,"T")="@"
^DIBT(57,2,2)="65.06^.01^DISPOSITION COMMENT^^"
^DIBT(57,2,2,65)="5"
^DIBT(57,2,3)="65^^COMPONENT^"".04^"
^DIBT(57,2,3,"CM")="S Y(1)=$S($D(^LRD(65,D0,0)):^(0),1:"""") S X=$S('$D(^LAB(66,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(57,2,4)="65^.01^UNIT ID^^"
^DIBT(57,2,4,"IX")="^LRD(65,""B"",^LRD(65,^2"
^DIBT(58,0)="LRBL WASTAGE-2^2880519^^65^^^^"
^DIBT(58,2,1)="65^4.2^DISPOSITION DATE^^"
^DIBT(58,2,2)="65^^COMPONENT^"".04^"
^DIBT(58,2,2,"CM")="S Y(1)=$S($D(^LRD(65,D0,0)):^(0),1:"""") S X=$S('$D(^LAB(66,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(59,0)="LRBL DONOR TESTING REPORT^2900312.0719^^65.5^^^^"
^DIBT(59,2,0)="^.4014^2^2"
^DIBT(59,2,1,0)="65.54^.01^DONATION OR DEFERRAL DATE^^^^^^^1"
^DIBT(59,2,1,1,0)="^.40141^1^1"
^DIBT(59,2,1,1,1,0)="65.5^5"
^DIBT(59,2,1,1,"B",65.5,1)=""
^DIBT(59,2,1,"ASK")="1"
^DIBT(59,2,1,"F")="2951208.99999^T-1^12/9/95"
^DIBT(59,2,1,"GET")="S DISX(1)=$P($G(^LRE(D0,5,D1,0)),U,1)"
^DIBT(59,2,1,"QCON")="I DISX(1)]]2951208.99999"
^DIBT(59,2,1,"T")="z^"
^DIBT(59,2,1,"TXT")="DONATION OR DEFERRAL DATE from 12/9/95"
^DIBT(59,2,2,0)="65.54^4^UNIT ID^^^^^^^4"
^DIBT(59,2,2,1,0)="^.40141^1^1"
^DIBT(59,2,2,1,1,0)="65.5^5"
^DIBT(59,2,2,1,"B",65.5,1)=""
^DIBT(59,2,2,"GET")="S DISX(2)=$P($G(^LRE(D0,5,D1,0)),U,4)"
^DIBT(59,2,2,"IX")="^LRE(""C"",^LRE(^2"
^DIBT(59,2,2,"QCON")="I DISX(2)'="""""
^DIBT(59,2,2,"TXT")="UNIT ID not null"
^DIBT(59,2,"B",65.54,1)=""
^DIBT(59,2,"B",65.54,2)=""
^DIBT(60,0)="LRBL COLLECTION DISP RPT^2860114^^65.5^^^^"
^DIBT(60,2,0)="^.4014^2^2"
^DIBT(60,2,1,0)="65.54^.01^DONATION OR DEFERRAL DATE^^^^^^^1"
^DIBT(60,2,1,1,0)="^.40141^1^1"
^DIBT(60,2,1,1,1,0)="65.5^5"
^DIBT(60,2,1,1,"B",65.5,1)=""
^DIBT(60,2,1,"ASK")="1"
^DIBT(60,2,1,"GET")="S DISX(1)=$P($G(^LRE(D0,5,D1,0)),U,1)"
^DIBT(60,2,1,"QCON")="I DISX(1)'="""""
^DIBT(60,2,1,"TXT")="DONATION OR DEFERRAL DATE not null"
^DIBT(60,2,2,0)="65.54^6.1^COLLECTION DISPOSITION^^^^^^^3"
^DIBT(60,2,2,1,0)="^.40141^1^1"
^DIBT(60,2,2,1,1,0)="65.5^5"
^DIBT(60,2,2,1,"B",65.5,1)=""
^DIBT(60,2,2,"F")=".99999"
^DIBT(60,2,2,"GET")="S DISX(2)=$P($G(^LRE(D0,5,D1,0)),U,10)"
^DIBT(60,2,2,"QCON")="I (DISX(2)]].99999)&(DISX(2)']]2)"
^DIBT(60,2,2,"T")="2"
^DIBT(60,2,2,"TXT")="COLLECTION DISPOSITION"
^DIBT(60,2,"B",65.54,1)=""
^DIBT(60,2,"B",65.54,2)=""
^DIBT(61,0)="LRBL PRODUCT REJECTION REPORT^2860114^^65.5^^^^"
^DIBT(61,2,1)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(61,2,1,65.5)="5"
^DIBT(61,2,1,"ASK")=""
^DIBT(61,2,1,"F")="?z"
^DIBT(61,2,1,"T")="@"
^DIBT(61,2,2)="65.66^.08^COMPONENT DISPOSITION^^"
^DIBT(61,2,2,65.5)="5"
^DIBT(61,2,2,65.54)="66"
^DIBT(61,2,2,"F")=".99999"
^DIBT(61,2,2,"T")="2"
^DIBT(61,2,3)="65.66^^BLOOD COMPONENT^"".01^"
^DIBT(61,2,3,65.5)="5"
^DIBT(61,2,3,65.54)="66"
^DIBT(61,2,3,"CM")="S Y(1)=$S($D(^LRE(D0,5,D1,66,D2,0)):^(0),1:"""") S X=$S('$D(^LAB(66,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D2>0 S X(3)=X"
^DIBT(62,0)="LRBL FIRST TIME DONORS^2860117^^65.5^^^^"
^DIBT(62,2,1)="65.5^.11^DATE REGISTERED/EDITED^^"
^DIBT(62,2,1,"ASK")=""
^DIBT(62,2,1,"F")="?z"
^DIBT(62,2,1,"T")="@"
^DIBT(62,2,2)="65.5^.01^NAME^^"
^DIBT(62,2,2,"F")="@z"
^DIBT(62,2,2,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(62,2,2,"T")="a"
^DIBT(63,0)="LRBL GROUP DONATION REPORT^2860130^^65.5^^^^"
^DIBT(63,2,1)="65.54^^DONATION GROUP^"".03^"
^DIBT(63,2,1,65.5)="5"
^DIBT(63,2,1,"ASK")=""
^DIBT(63,2,1,"CM")="S Y(1)=$S($D(^LRE(D0,5,D1,0)):^(0),1:"""") S X=$S('$D(^LAB(65.4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(63,2,1,"F")="?z"
^DIBT(63,2,1,"T")="@"
^DIBT(63,2,2)="65.5^.01^NAME^^"
^DIBT(63,2,2,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(63,2,3)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(63,2,3,65.5)="5"
^DIBT(63,2,3,"ASK")=""
^DIBT(63,2,3,"F")="?z"
^DIBT(63,2,3,"T")="@"
^DIBT(64,0)="LRBL GROUP AFFILIATION REPORT^2860130^^65.5^^^^"
^DIBT(64,2,1)="65.51^^GROUP AFFILIATION^"".01^"
^DIBT(64,2,1,65.5)="2"
^DIBT(64,2,1,"ASK")=""
^DIBT(64,2,1,"CM")="S Y(1)=$S($D(^LRE(D0,2,D1,0)):^(0),1:"""") S X=$S('$D(^LAB(65.4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(64,2,1,"F")="?z"
^DIBT(64,2,1,"T")="@"
^DIBT(64,2,2)="65.5^.01^NAME^^"
^DIBT(64,2,2,"IX")="^LRE(""B"",^LRE(^2"
^DIBT(64,2,3)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(64,2,3,65.5)="5"
^DIBT(64,2,3,"ASK")=""
^DIBT(64,2,3,"F")="?z"
^DIBT(64,2,3,"T")="@"
^DIBT(65,0)="LRBL MONTHLY RECALL LIST^2860507^^65.5^^^^"
^DIBT(65,2,1)="65.53^.01^DONOR SCHEDULING/RECALL^^"
^DIBT(65,2,1,65.5)="4"
^DIBT(65,2,1,"ASK")=""
^DIBT(65,2,1,"F")="?z"
^DIBT(65,2,1,"T")="@"
^DIBT(65,2,2)="65.5^.01^NAME^^"
^DIBT(65,2,2,"ASK")=""
^DIBT(65,2,2,"F")="?z"
^DIBT(65,2,2,"T")="@"
^DIBT(65,2,3)="65.54^.01^DONATION OR DEFERRAL DATE^@@^"
^DIBT(65,2,3,65.5)="5"
^DIBT(65,2,3,"ASK")=""
^DIBT(65,2,3,"F")="?z"
^DIBT(65,2,3,"T")="@"
^DIBT(66,0)="LRBL MOBILE REPORT^2870801^^65.5^^^^"
^DIBT(66,2,1)="65.54^^COLLECTION SITE^"".02^"
^DIBT(66,2,1,65.5)="5"
^DIBT(66,2,1,"ASK")=""
^DIBT(66,2,1,"CM")="S Y(1)=$S($D(^LRE(D0,5,D1,0)):^(0),1:"""") S X=$S('$D(^LAB(65.4,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(66,2,1,"F")="?z"
^DIBT(66,2,1,"T")="@"
^DIBT(66,2,2)="65.54^^DONATION GROUP^"".03^"
^DIBT(66,2,2,65.5)="5"
^DIBT(66,2,2,"CM")="S Y(1)=$S($D(^LRE(D0,5,D1,0)):^(0),1:"""") S X=$S('$D(^LAB(65.4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(66,2,3)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(66,2,3,65.5)="5"
^DIBT(66,2,3,"ASK")=""
^DIBT(66,2,3,"F")="?z"
^DIBT(66,2,3,"T")="@"
^DIBT(67,0)="LRBL SHORT DRAW REPORT^2890319^^65.5^^^^"
^DIBT(67,2,1)="65.54^4.7^COLLECTION VOL (ml)^^"
^DIBT(67,2,1,65.5)="5"
^DIBT(67,2,1,"F")=".99998"
^DIBT(67,2,1,"T")="410"
^DIBT(67,2,2)="65.54^.01^DONATION OR DEFERRAL DATE^^"
^DIBT(67,2,2,65.5)="5"
^DIBT(67,2,2,"ASK")=""
^DIBT(67,2,2,"F")="?z"
^DIBT(67,2,2,"T")="@"
^DIBT(68,0)="LRBL ANTIBODY LISTING^2891201.0739^^61.3^^^^"
^DIBT(69,0)="LRINTEG VERSION COMPARE^2881209^^69.91^^^^"
^DIBT(69,2,1)="69.911^.01^Routine^^"
^DIBT(69,2,1,69.91)="ROU"
^DIBT(69,2,2)="69.91^.01^Version #^^"
^DIBT(69,2,2,"IX")="^LAB(69.91,""B"",^LAB(69.91,^2"
^DIBT(70,0)="LRBLDPA^2920619.1633^^65.5^^^^"
^DIBT(70,2,1)="65.5^0^NUMBER^@^"
^DIBT(70,2,1,"ASK")=""
^DIBT(70,2,1,"F")=".99999^1"
^DIBT(70,2,1,"T")="1^1"
^DIBT(70,2,2)="65.54^.01^DONATION OR DEFERRAL DATE^@^"
^DIBT(70,2,2,65.5)="5"
^DIBT(70,2,2,"ASK")=""
^DIBT(70,2,2,"F")="2920618.99999^T"
^DIBT(70,2,2,"T")="2920619.9999^T"
^DIBT(71,0)="LR MANUFACTURE/INSTRUMENT^2921002.1459^^64.2^^^^"
^DIBT(71,2,1)="64.2^^MANUFACTURER^""11^"
^DIBT(71,2,1,"CM")="S Y(1)=$S($D(^LAB(64.2,D0,0)):^(0),1:"""") S X=$S('$D(^LAB(64.3,+$P(Y(1),U,14),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(71,2,2)="64.2^.01^INSTRUMENT NAME^^"
^DIBT(71,2,2,"IX")="^LAB(64.2,""B"",^LAB(64.2,^2"
^DIBT(72,0)="LR WKLD CODE LIST BY WKLD CODE^2890919.162^^64^^^^"
^DIBT(72,2,1)="64^1^WKLD CODE^]@^"
^DIBT(72,2,1,"IX")="^LAM(""C"",^LAM(^2"
^DIBT(73,0)="LR WKLD CODE LIST BY NAME^2890919.1624^^64^^^^"
^DIBT(73,2,1)="64^.01^PROCEDURE^]@^"
^DIBT(73,2,1,"IX")="^LAM(""B"",^LAM(^2"
^DIBT(74,0)="LRBLAG WKLD CODES^2901017.1437^^61.3^^^^"
^DIBT(74,"DIS",1)="I $S($D(^LAB(61.3,D0,0)):$P(^(0),U,5),1:"""")=""AN"" S D1=$O(^LAB(61.3,D0,9,0)) X DIS(""1A"") I $T"
^DIBT(74,"DIS","1A")="F E=0:0 X DIS(""1AA"") X:D1'>0 ""IF 0"" Q:$T  S D1=$O(^LAB(61.3,D0,9,D1)) Q:D1'>0"
^DIBT(74,"DIS","1AA")="X DIS(""B2"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) I X'?."" """
^DIBT(74,"DIS","B2",9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LAB(61.3,D0,9,D1,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^LAM(+D0,0)) D0=-1 S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"""")"
^DIBT(74,"O",0)="^"
^DIBT(74,"O",1,0)="IDENTIFIER EQUALS ""AN"""
^DIBT(74,"O",2,0)="   and FUNCTION FIELD WKLD CODE NOT NULL"
^DIBT(75,0)="LR WKLD SUFFIX BY LAB SECTION^2910725.1605^^64.2^^^^"
^DIBT(75,2,1)="64.2^^WKLD CODE LAB SECTION^""12^"
^DIBT(75,2,1,"CM")="S Y(1)=$S($D(^LAB(64.2,D0,0)):^(0),1:"""") S X=$S('$D(^LAB(64.21,+$P(Y(1),U,15),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(75,2,2)="64.2^1^WKLD SUFFIX CODE^^"
^DIBT(75,2,2,"IX")="^LAB(64.2,""C"",^LAB(64.2,^2"
^DIBT(76,0)="LR WKLD CODE BY SECTION^2920522.1135^^64^^^^"
^DIBT(76,2,1)="64^^WKLD CODE LAB SECTION^#""13^"
^DIBT(76,2,1,"CM")="S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=$S('$D(^LAB(64.21,+$P(Y(1),U,15),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(76,2,2)="64^.01^PROCEDURE^^"
^DIBT(76,2,2,"IX")="^LAM(""B"",^LAM(^2"
^DIBT(77,0)="LRDFN-TESTS^2880510^^68^^^^"
^DIBT(77,2,1)="68.01^.01^DATE^^"
^DIBT(77,2,1,68)="1"
^DIBT(77,2,1,"ASK")=""
^DIBT(77,2,1,"F")="2880508.99999"
^DIBT(77,2,1,"T")="2880509.9999"
^DIBT(77,2,2)="68.02^^LRDFN^"".01^"
^DIBT(77,2,2,68)="1"
^DIBT(77,2,2,68.01)="1"
^DIBT(77,2,2,"CM")="S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$S('$D(^LR(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D2>0 S X(2)=X"
^DIBT(77,2,3)="68.04^^TESTS^"".01^"
^DIBT(77,2,3,68)="1"
^DIBT(77,2,3,68.01)="1"
^DIBT(77,2,3,68.02)="4"
^DIBT(77,2,3,"CM")="S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"""") S X=$S('$D(^LAB(60,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D3>0 S X(3)=X"
^DIBT(78,0)="LRBL DISCARDED UNITS^2851209^^65^^^^"
^DIBT(78,2,1)="65^4.1^DISPOSITION^^"
^DIBT(78,2,1,"F")="Cz"
^DIBT(78,2,1,"T")="M"
^DIBT(78,2,2)="65^4.2^DISPOSITION DATE^^"
^DIBT(78,2,2,"ASK")=""
^DIBT(78,2,2,"F")="?z"
^DIBT(78,2,2,"T")="@"
^DIBT(79,0)="LRBL TRANSFUSION REACTIONS^2860114^^65^^^^"
^DIBT(79,2,1)="65^4.2^DISPOSITION DATE^^"
^DIBT(79,2,1,"ASK")=""
^DIBT(79,2,1,"F")="?z"
^DIBT(79,2,1,"T")="@"
^DIBT(79,2,2)="65^6.5^TRANSFUSION REACTION^^"
^DIBT(79,2,2,"F")=".9999"
^DIBT(79,2,2,"T")="1"
^DIBT(80,0)="LRBLVAL^2931012.1113^^66.2^^^^"
^DIBT(80,2,1)="66.2^.01^NAME^]@^"
^DIBT(80,2,1,"ASK")=""
^DIBT(80,2,1,"F")="?z^@"
^DIBT(80,2,1,"T")="@^@"
^DIBT(81,0)="LRD-65-EXCEPTIONS^2920817^^65^^^^"
^DIBT(82,0)="ARCHIVE SORT^2930727.1002^^65^^^^"
^DIBT(82,"DA")="DIS(""A1"","
^DIBT(82,"DA",1)="S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIBT(82,"DC",1)="-1^<10^"
^DIBT(82,"DIS",0)="S X=$S('$D(D0):"""",D0<0:"""",1:D0) I X<10"
^DIBT(82,"DL")="1"
^DIBT(82,"DL",0)="^1^"
^DIBT(82,"O",0)="^"
^DIBT(82,"O",1,0)="NUMBER LESS THAN 10"
^DIBT(83,0)="LRBL ARCHIVE^2930727.1509^^65^^^^"
^DIBT(83,"DC",1)="4.1^?."" ""^NULL"
^DIBT(83,"DIS",0)="I $S($D(^LRD(65,D0,4)):$P(^(4),U,1),1:"""")'?."" """
^DIBT(83,"DL")="1"
^DIBT(83,"DL",0)="^1'^"
^DIBT(83,"O",0)="^"
^DIBT(83,"O",1,0)="not DISPOSITION NULL"
^DIBT(84,0)="ARCHIVE BLOOD INVENTORY^2930728.1144^^65^^^^1"
^DIBT(84,"DA")="934"
^DIBT(84,"DC",1)="4.1^'?."" ""^NULL"
^DIBT(84,"DIS",0)="I $S($D(^LRD(65,D0,4)):$P(^(4),U,1),1:"""")'?."" """
^DIBT(84,"DL")="1"
^DIBT(84,"DL",0)="^1^"
^DIBT(84,"O",0)="^"
^DIBT(84,"O",1,0)="DISPOSITION NOT NULL"
^DIBT(85,0)="LR ARCHIVE 65^2950808^^65^^^^"
^DIBT(87,0)="ENCMR^2970107.1124^^6914^^^2970701"
^DIBT(87,2,0)="^.4014^3^3"
^DIBT(87,2,1,0)="6914^^CMR^'""19^^^^^^4"
^DIBT(87,2,1,"ASK")="1"
^DIBT(87,2,1,"CM")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$S('$D(^ENG(6914.1,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(87,2,1,"F")="199.99999^200"
^DIBT(87,2,1,"GET")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$S('$D(^ENG(6914.1,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(87,2,1,"IX")="^ENG(6914,""AD"",^ENG(6914,^2"
^DIBT(87,2,1,"PTRIX")="^ENG(6914.1,""B"","
^DIBT(87,2,1,"QCON")="I DISX(1)=200"
^DIBT(87,2,1,"SER")="9.7143^0.9067"
^DIBT(87,2,1,"T")="200^200"
^DIBT(87,2,1,"TXT")="CMR equals 200"
^DIBT(87,2,2,0)="6914^^CATEGORY STOCK NUMBER^@""18^^^^^^4"
^DIBT(87,2,2,"CM")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$S('$D(^ENCSN(6917,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(87,2,2,"F")="?z^@"
^DIBT(87,2,2,"GET")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$S('$D(^ENCSN(6917,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(87,2,2,"QCON")="I 1"
^DIBT(87,2,2,"T")="z^"
^DIBT(87,2,2,"TXT")="All CATEGORY STOCK NUMBER (includes nulls)"
^DIBT(87,2,3,0)="6914^^$P(LOCATION,""-"",3)_"":""_$P(LOCATION,""-"",2)_"":""_$P(LOCATION,""-"")^@""^^^^^^4"
^DIBT(87,2,3,3,0)="^.401419^2^2"
^DIBT(87,2,3,3,1,0)="OVF0^9.2"
^DIBT(87,2,3,3,1,"OVF0")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$S('$D(^ENG(""SP"",+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)),Y(2)=X S X=""-"",Y(3)=X S X=3,X=$P(Y(2),Y(3),X)_"":"",Y(4)=X"
^DIBT(87,2,3,3,2,0)="OVF0^9.3"
^DIBT(87,2,3,3,2,"OVF0")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^ENG(""SP"",+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)),Y(5)=X S X=""-"",Y(6)=X S X=2,X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_"":"",Y(7)=X"
^DIBT(87,2,3,3,"B","OVF0",1)=""
^DIBT(87,2,3,3,"B","OVF0",2)=""
^DIBT(87,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^ENG(""SP"",+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)),Y(8)=X S X=""-"",X=$P(Y(8),X) S Y=X,X=Y(7),X=X_Y I D0>0 S DISX(3)=X"
^DIBT(87,2,3,"F")="?z^@"
^DIBT(87,2,3,"GET")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^ENG(""SP"",+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)),Y(8)=X S X=""-"",X=$P(Y(8),X) S Y=X,X=Y(7),X=X_Y I D0>0 S DISX(3)=X"
^DIBT(87,2,3,"QCON")="I 1"
^DIBT(87,2,3,"T")="z^"
^DIBT(87,2,3,"TXT")="All $P(LOCATION,""""-"""",3)_"""":""""_$P(LOCATION,""""-"""",2)_"""":""""_$P(LOCATION,""""-"""") (includes nulls)"
^DIBT(87,2,"B",6914,1)=""
^DIBT(87,2,"B",6914,2)=""
^DIBT(87,2,"B",6914,3)=""
^DIBT(88,0)="EN LOCATION^2920427.0853^@^6914^1^@^2930330"
^DIBT(88,2,1)="6914^^$P(LOCATION,""-"",3)^@""^"
^DIBT(88,2,1,"CM")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,5),Y(2)=X S X=""-"",Y(3)=X S X=3,X=$P(Y(2),Y(3),X) I D0>0 S X(1)=X"
^DIBT(88,2,1,"F")="?z^@"
^DIBT(88,2,1,"T")="z^"
^DIBT(88,2,2)="6914^^$P(LOCATION,""-"",2)^@#""^"
^DIBT(88,2,2,"CM")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,5),Y(2)=X S X=""-"",Y(3)=X S X=2,X=$P(Y(2),Y(3),X) I D0>0 S X(2)=X"
^DIBT(88,2,2,"F")="?z^@"
^DIBT(88,2,2,"T")="z^"
^DIBT(88,2,3)="6914^^$P(LOCATION,""-"")^@""^"
^DIBT(88,2,3,"CM")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,5),Y(2)=X S X=""-"",X=$P(Y(2),X) I D0>0 S X(3)=X"
^DIBT(89,0)="EN PM HOURS^2930319.1003^^6922^5^^2930408"
^DIBT(89,2,1)="6922^.01^ENGINEERING SECTION^^;S1"
^DIBT(89,2,1,"ASK")=""
^DIBT(89,2,1,"F")="BINz^BIO"
^DIBT(89,2,1,"IX")="^DIC(6922,""B"",^DIC(6922,^2"
^DIBT(89,2,1,"T")="z^"
^DIBT(89,2,2)="6922.03^.01^PM MONTH^^"
^DIBT(89,2,2,6922)="1"
^DIBT(89,2,2,"ASK")=""
^DIBT(89,2,2,"F")="2930099.99999^1.93"
^DIBT(89,2,2,"T")="z^"
^DIBT(90,0)="ENLEASE^2930322.2208^^6928^^^2930521^"
^DIBT(90,2,1)="6928^^.51:.5^#+""^;""OWNERSHIP: """
^DIBT(90,2,1,"CM")="X DPP(1,""OVF0"",9.2) S Y(101)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,15)_"":"",2),$C(59),1) S D0=I(0,0) I D0>0 S X(1)=X"
^DIBT(90,2,1,"F")="Kz^L"
^DIBT(90,2,1,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:""""),D0=$P(Y(1),U,14) S:'$D(^ENG(6928.3,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(6928.3,.5,0)):$P(^(0),U,3),1:"""")"
^DIBT(90,2,1,"T")="LZ^LZ"
^DIBT(90,2,2)="6928^.6^DIVISION^@^"
^DIBT(90,2,2,"F")="?z^@"
^DIBT(90,2,2,"T")="z^"
^DIBT(90,2,3)="6928^.5^BUILDING NUMBER^^"
^DIBT(90,2,3,"ASK")=""
^DIBT(90,2,3,"F")=".99999^1"
^DIBT(90,2,3,"IX")="^ENG(""SP"",""E"",^ENG(""SP"",^2"
^DIBT(90,2,3,"T")="z^"
^DIBT(90,2,4)="6928^.01^ROOM NUMBER^@^"
^DIBT(90,2,4,"ASK")=""
^DIBT(90,2,4,"F")=".99999^1"
^DIBT(90,2,4,"IX")="^ENG(""SP"",""B"",^ENG(""SP"",^2"
^DIBT(90,2,4,"T")="z^"
^DIBT(91,0)="ENXKNX^2960214.154^^6914^^^^"
^DIBT(91,2,0)="^.4014^3^3"
^DIBT(91,2,1,0)="6914^^INTERNAL(TYPE)=""NX""^'""@B^;L1^^^^^4"
^DIBT(91,2,1,"CM")="S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X=""NX"" I D0>0 S DISX(1)=X"
^DIBT(91,2,1,"F")="0"
^DIBT(91,2,1,"GET")="S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X=""NX"" I D0>0 S DISX(1)=X"
^DIBT(91,2,1,"QCON")="I DISX(1)"
^DIBT(91,2,1,"T")="1"
^DIBT(91,2,1,"TXT")="INTERNAL(TYPE)=""""NX"""""
^DIBT(91,2,2,0)="6914^^ACQUISITION VALUE>4999.99^'""@B^;L1^^^^^4"
^DIBT(91,2,2,"CM")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3)>4999.99 I D0>0 S DISX(2)=X"
^DIBT(91,2,2,"F")="0"
^DIBT(91,2,2,"GET")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3)>4999.99 I D0>0 S DISX(2)=X"
^DIBT(91,2,2,"QCON")="I DISX(2)"
^DIBT(91,2,2,"T")="1"
^DIBT(91,2,2,"TXT")="ACQUISITION VALUE>4999.99"
^DIBT(91,2,3,0)="6914^^DISPOSITION DATE=""""^'""@B^;L1^^^^^4"
^DIBT(91,2,3,"CM")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,11)="""" I D0>0 S DISX(3)=X"
^DIBT(91,2,3,"F")="0"
^DIBT(91,2,3,"GET")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,11)="""" I D0>0 S DISX(3)=X"
^DIBT(91,2,3,"QCON")="I DISX(3)"
^DIBT(91,2,3,"T")="1"
^DIBT(91,2,3,"TXT")="DISPOSITION DATE="""""""""
^DIBT(91,2,"B",6914,1)=""
^DIBT(91,2,"B",6914,2)=""
^DIBT(91,2,"B",6914,3)=""
^DIBT(92,0)="ENXKBLANK^2960214.1704^^6914^^^^"
^DIBT(92,2,0)="^.4014^3^3"
^DIBT(92,2,1,0)="6914^^INTERNAL(TYPE)=""""^'""@B^;L1^^^^^4"
^DIBT(92,2,1,"CM")="S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X="""" I D0>0 S DISX(1)=X"
^DIBT(92,2,1,"F")="0"
^DIBT(92,2,1,"GET")="S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X="""" I D0>0 S DISX(1)=X"
^DIBT(92,2,1,"QCON")="I DISX(1)"
^DIBT(92,2,1,"T")="1"
^DIBT(92,2,1,"TXT")="INTERNAL(TYPE)="""""""""
^DIBT(92,2,2,0)="6914^^ACQUISITION VALUE>4999.99^'""@B^;L1^^^^^4"
^DIBT(92,2,2,"CM")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3)>4999.99 I D0>0 S DISX(2)=X"
^DIBT(92,2,2,"F")="0"
^DIBT(92,2,2,"GET")="S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3)>4999.99 I D0>0 S DISX(2)=X"
^DIBT(92,2,2,"QCON")="I DISX(2)"
^DIBT(92,2,2,"T")="1"
^DIBT(92,2,2,"TXT")="ACQUISITION VALUE>4999.99"
^DIBT(92,2,3,0)="6914^^DISPOSITION DATE=""""^'""@B^;L1^^^^^4"
^DIBT(92,2,3,"CM")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,11)="""" I D0>0 S DISX(3)=X"
^DIBT(92,2,3,"F")="0"
^DIBT(92,2,3,"GET")="S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,11)="""" I D0>0 S DISX(3)=X"
^DIBT(92,2,3,"QCON")="I DISX(3)"
^DIBT(92,2,3,"T")="1"
^DIBT(92,2,3,"TXT")="DISPOSITION DATE="""""""""
^DIBT(92,2,"B",6914,1)=""
^DIBT(92,2,"B",6914,2)=""
^DIBT(92,2,"B",6914,3)=""
^DIBT(93,0)="GECS READY FOR BATCHING^2900816.1836^@^2100^0^@^2940909"
^DIBT(93,2,1)="2100^.1^READY FOR BATCHING^]@^"
^DIBT(93,2,1,"IX")="^GECS(2100,""AC"",^GECS(2100,^2"
^DIBT(93,2,2)="2100^.6^SCHEDULED TRANSMISSION DATE^@^"
^DIBT(93,2,3)="2100^5^STATION NUMBER^@^"
^DIBT(93,2,4)="2100^^BATCH TYPE^@""2^"
^DIBT(93,2,4,"CM")="S Y(1)=$S($D(^GECS(2100,D0,0)):^(0),1:"""") S X=$S('$D(^GECS(2101.1,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(93,2,5)="2100^7^TRANSACTION TYPE/SEGMENT^@^"
^DIBT(94,0)="GECS READY FOR TRANSMISSION^2890103^^2100^^^2941221"
^DIBT(94,2,1)="2100^.15^READY FOR TRANSMISSION^]@^"
^DIBT(94,2,1,"IX")="^GECS(2100,""AE"",^GECS(2100,^2"
^DIBT(94,2,2)="2100^.8^BATCH NUMBER^^"
^DIBT(94,2,2,"IX")="^GECS(2100,""AB"",^GECS(2100,^2"
^DIBT(94,2,3)="2100^.9^BATCH PRIORITY^@^"
^DIBT(94,2,4)="2100^.6^SCHEDULED TRANSMISSION DATE^@^"
^DIBT(95,0)="GECS BATCHES WAITING^2890103^^2101.3^^^2940909"
^DIBT(95,2,1)="2101.3^.01^BATCH NUMBER^]@^"
^DIBT(95,2,1,"IX")="^GECS(2101.3,""B"",^GECS(2101.3,^2"
^DIBT(95,2,2)="2101.3^.7^DATE CREATED^@^"
^DIBT(96,0)="GECS BATCH STATUS^2890104^^2101.3^^^2941209"
^DIBT(96,2,1)="2101.3^.1^SYSTEM IDENTIFIER^]@^"
^DIBT(96,2,2)="2101.3^.7^DATE CREATED^@^"
^DIBT(97,0)="GECS TRANSMISSION^2890109^^2100^^^2931209"
^DIBT(97,2,1)="2100^.8^BATCH NUMBER^@^"
^DIBT(97,2,1,"IX")="^GECS(2100,""AB"",^GECS(2100,^2"
^DIBT(97,2,2)="2100^.9^BATCH PRIORITY^@^"
^DIBT(97,2,3)="2100^.01^ID^@^"
^DIBT(97,2,3,"IX")="^GECS(2100,""B"",^GECS(2100,^2"
^DIBT(98,0)="GMRA SORT AUTOVERIFIED^2950301.1306^^120.8^^^3071207^"
^DIBT(98,2,0)="^.4014^6^6"
^DIBT(98,2,1,0)="120.8^20^VERIFICATION DATE/TIME^'@^;PGMRAVFR-GMRAVTO^^^^^1"
^DIBT(98,2,1,"ASK")="1"
^DIBT(98,2,1,"F")="3070715.999999^Jul 16,2007^Jul 16,2007"
^DIBT(98,2,1,"GET")="S DISX(1)=$P($G(^GMR(120.8,D0,0)),U,17)"
^DIBT(98,2,1,"IX")="^GMR(120.8,""V"",^GMR(120.8,^2"
^DIBT(98,2,1,"QCON")="I (DISX(1)]]3070715.999999)&(DISX(1)']]3071207.24)"
^DIBT(98,2,1,"SER")="100.0000^1.0000"
^DIBT(98,2,1,"T")="3071207.24^Dec 7,2007@2400^Dec 7,2007@24:00"
^DIBT(98,2,1,"TXT")="VERIFICATION DATE/TIME from Jul 16,2007 to Dec 7,2007@24:00"
^DIBT(98,2,2,0)="120.8^19^VERIFIED^'@^^^^^^3"
^DIBT(98,2,2,"F")=".99999^1"
^DIBT(98,2,2,"GET")="S DISX(2)=$P($G(^GMR(120.8,D0,0)),U,16)"
^DIBT(98,2,2,"QCON")="I DISX(2)=1"
^DIBT(98,2,2,"SER")="0.2079^0.2079"
^DIBT(98,2,2,"T")="1^1"
^DIBT(98,2,2,"TXT")="VERIFIED equals 1"
^DIBT(98,2,3,0)="120.8^^VERIFIER^'@""21^^^^^^4"
^DIBT(98,2,3,"CM")="S Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,18),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(98,2,3,"F")="?z^@"
^DIBT(98,2,3,"GET")="S Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,18),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(98,2,3,"QCON")="I DISX(3)="""""
^DIBT(98,2,3,"T")="@^@"
^DIBT(98,2,3,"TXT")="VERIFIER is null"
^DIBT(98,2,4,0)="120.8^^PATIENT:WARD LOCATION^""^;""WARD LOCATION: "";C1;S2^^^^^4"
^DIBT(98,2,4,"ASK")="1"
^DIBT(98,2,4,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0))!('$$PRDTST^GMRAUTL1(+D0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.1)):^(.1),1:"""") S X=$E(Y(101),1,30) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(98,2,4,"F")="@z^A"
^DIBT(98,2,4,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0))!('$$PRDTST^GMRAUTL1(+D0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.1)):^(.1),1:"""") S X=$E(Y(101),1,30) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(98,2,4,"QCON")="I (DISX(4)]]""@z"")&(DISX(4)']]""Z"")"
^DIBT(98,2,4,"T")="Z^Z"
^DIBT(98,2,4,"TXT")="PATIENT:WARD LOCATION from A to Z"
^DIBT(98,2,5,0)="120.8^^.01:.101^@""^^^^^^4"
^DIBT(98,2,5,3,0)="^.401419^1^1"
^DIBT(98,2,5,3,1,0)="OVF0^9.2"
^DIBT(98,2,5,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^GMR(120.8,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0))!('$$PRDTST^GMRAUTL1(+D0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.101)):^(.101),1:"""")"
^DIBT(98,2,5,3,"B","OVF0",1)=""
^DIBT(98,2,5,"CM")="X DPP(5,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(5)=X"
^DIBT(98,2,5,"F")="?z^@"
^DIBT(98,2,5,"GET")="X DPP(5,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(5)=X"
^DIBT(98,2,5,"QCON")="I 1"
^DIBT(98,2,5,"T")="z^"
^DIBT(98,2,5,"TXT")="All .01:.101 (includes nulls)"
^DIBT(98,2,6,0)="120.8^17^MECHANISM^^;C5;""MECHANISM: "";S^^^^^3"
^DIBT(98,2,6,"ASK")="1"
^DIBT(98,2,6,"F")="@z^A^A (ALLERGY)"
^DIBT(98,2,6,"GET")="S DISX(6)=$P($G(^GMR(120.8,D0,0)),U,14)"
^DIBT(98,2,6,"QCON")="I (DISX(6)]]""@z"")&(DISX(6)']]""U"")"
^DIBT(98,2,6,"SER")="0.0000^0.0000"
^DIBT(98,2,6,"T")="U^U^U (UNKNOWN)"
^DIBT(98,2,6,"TXT")="MECHANISM from A (ALLERGY) to U (UNKNOWN)"
^DIBT(98,2,"B",120.8,1)=""
^DIBT(98,2,"B",120.8,2)=""
^DIBT(98,2,"B",120.8,3)=""
^DIBT(98,2,"B",120.8,4)=""
^DIBT(98,2,"B",120.8,5)=""
^DIBT(98,2,"B",120.8,6)=""
^DIBT(99,0)="GMTS TASK LOCATIONS SORT^2901012.1012^^142^^^2951019^"
^DIBT(99,2,0)="^.4014^1^1"
^DIBT(99,2,1,0)="142.2^^LOCATION(S) USING THE SUMMARY^"".01^;S1^^^^^4"
^DIBT(99,2,1,1,0)="^.40141^1^1"
^DIBT(99,2,1,1,1,0)="142^20"
^DIBT(99,2,1,1,"B",142,1)=""
^DIBT(99,2,1,"CM")="S Y(1)=$S($D(^GMT(142,D0,20,D1,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(99,2,1,"GET")="S Y(1)=$S($D(^GMT(142,D0,20,D1,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(99,2,1,"IX")="^GMT(142,""D"",^GMT(142,^2"
^DIBT(99,2,1,"PTRIX")="^SC(""B"","
^DIBT(99,2,1,"QCON")="I DISX(1)'="""""
^DIBT(99,2,1,"SER")="0^0"
^DIBT(99,2,1,"TXT")="LOCATION(S) USING THE SUMMARY not null"
^DIBT(99,2,"B",142.2,1)=""
^DIBT(100,0)="GMRC PROTOCOLS^2911007.1508^^101^^^2950701^"
^DIBT(100,2,0)="^.4014^1^1"
^DIBT(100,2,1,0)="101^.01^NAME^]^^^^^^4"
^DIBT(100,2,1,"F")="GMRBz^GMRC"
^DIBT(100,2,1,"GET")="S DISX(1)=$P($G(^ORD(101,D0,0)),U,1)"
^DIBT(100,2,1,"IX")="^ORD(101,""B"",^ORD(101,^2"
^DIBT(100,2,1,"QCON")="I (DISX(1)]]""GMRBz"")&(DISX(1)']]""GMRCZ"")"
^DIBT(100,2,1,"SER")="15.8333^0.9406"
^DIBT(100,2,1,"T")="GMRCZ^GMRCZ"
^DIBT(100,2,1,"TXT")="NAME from GMRC to GMRCZ"
^DIBT(100,2,"B",101,1)=""
^DIBT(101,0)="GMRC CONSULTS LIST^2920514.1537^^123^^^2980508^"
^DIBT(101,2,0)="^.4014^2^2"
^DIBT(101,2,1,0)="123^^TO^]#""1^^^^^^4"
^DIBT(101,2,1,"ASK")="1"
^DIBT(101,2,1,"CM")="S Y(1)=$S($D(^GMR(123,D0,0)):^(0),1:"""") S X=$S('$D(^GMR(123.5,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(101,2,1,"F")="CARDIOLOGXz^CARDIOLOGY"
^DIBT(101,2,1,"GET")="S Y(1)=$S($D(^GMR(123,D0,0)):^(0),1:"""") S X=$S('$D(^GMR(123.5,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(101,2,1,"IX")="^GMR(123,""C"",^GMR(123,^2"
^DIBT(101,2,1,"PTRIX")="^GMR(123.5,""B"","
^DIBT(101,2,1,"QCON")="I DISX(1)=""CARDIOLOGY"""
^DIBT(101,2,1,"SER")="2.0606^0.6733"
^DIBT(101,2,1,"T")="CARDIOLOGY^CARDIOLOGY"
^DIBT(101,2,1,"TXT")="TO equals CARDIOLOGY"
^DIBT(101,2,2,0)="123^3^DATE OF REQUEST^-+@^^^^^^1"
^DIBT(101,2,2,"GET")="S DISX(2)=$P($G(^GMR(123,D0,0)),U,7)"
^DIBT(101,2,2,"QCON")="I DISX(2)'="""""
^DIBT(101,2,2,"SER")="0.0000^0.0000"
^DIBT(101,2,2,"TXT")="DATE OF REQUEST not null"
^DIBT(101,2,"B",123,1)=""
^DIBT(101,2,"B",123,2)=""
^DIBT(102,0)="DG FEMALE INPATIENTS^2841217^^2^^^^"
^DIBT(102,2,1)="2^.1^WARD LOCATION^'^"
^DIBT(102,2,1,"IX")="^DPT(""CN"",^DPT(^2"
^DIBT(102,2,2)="2^.02^SEX^'^"
^DIBT(102,2,2,"F")="Ez"
^DIBT(102,2,2,"T")="F"
^DIBT(102,2,3)="2^.01^NAME^^"
^DIBT(102,2,3,"IX")="^DPT(""B"",^DPT(^2"
^DIBT(103,0)="DPTNS 02/03/88@08:57^2880203^^2^^^^"
^DIBT(103,"%D",0)="^^1^1^2880203^"
^DIBT(103,"%D",1,0)="Patients Numbered 1 thru 7169478, Identified FEB 3,1988."
^DIBT(104,0)="DGWAIT LIST^2960119.1322^^42.5^^^2960119"
^DIBT(104,2,0)="^.4014^4^4"
^DIBT(104,2,1,0)="42.5^^DIVISION^#"".01^^^^^^4"
^DIBT(104,2,1,"CM")="S Y(1)=$S($D(^DGWAIT(D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(104,2,1,"GET")="S Y(1)=$S($D(^DGWAIT(D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(104,2,1,"IX")="^DGWAIT(""B"",^DGWAIT(^2"
^DIBT(104,2,1,"PTRIX")="^DG(40.8,""B"","
^DIBT(104,2,1,"QCON")="I DISX(1)'="""""
^DIBT(104,2,1,"TXT")="DIVISION not null"
^DIBT(104,2,2,0)="42.51^1^BEDSECTION APPLYING TO^^^^^^^3"
^DIBT(104,2,2,1,0)="^.40141^1^1"
^DIBT(104,2,2,1,1,0)="42.5^P"
^DIBT(104,2,2,1,"B",42.5,1)=""
^DIBT(104,2,2,"GET")="S DISX(2)=$P($G(^DGWAIT(D0,""P"",D1,0)),U,5)"
^DIBT(104,2,2,"QCON")="I DISX(2)'="""""
^DIBT(104,2,2,"TXT")="BEDSECTION APPLYING TO not null"
^DIBT(104,2,3,0)="42.51^^PRIORITY GROUPING:NUMBER^""^;""PRIORITY GROUP # ""^^^^^4"
^DIBT(104,2,3,1,0)="^.40141^1^1"
^DIBT(104,2,3,1,1,0)="42.5^P"
^DIBT(104,2,3,1,"B",42.5,1)=""
^DIBT(104,2,3,3,0)="^.401419^1^1"
^DIBT(104,2,3,3,1,0)="OVF1^9.2"
^DIBT(104,2,3,3,1,"OVF0")="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGWAIT(D0,""P"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,9) S:'$D(^DIC(42.55,+D0,0)) D0=-1"
^DIBT(104,2,3,3,"B","OVF1",1)=""
^DIBT(104,2,3,"CM")="X DPP(3,""OVF1"",9.2) S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X"
^DIBT(104,2,3,"GET")="X DPP(3,""OVF1"",9.2) S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X"
^DIBT(104,2,3,"QCON")="I DISX(3)'="""""
^DIBT(104,2,3,"TXT")="PRIORITY GROUPING:NUMBER not null"
^DIBT(104,2,4,0)="42.51^2^DATE/TIME OF APPLICATION^^^^^^^1"
^DIBT(104,2,4,1,0)="^.40141^1^1"
^DIBT(104,2,4,1,1,0)="42.5^P"
^DIBT(104,2,4,1,"B",42.5,1)=""
^DIBT(104,2,4,"GET")="S DISX(4)=$P($G(^DGWAIT(D0,""P"",D1,0)),U,2)"
^DIBT(104,2,4,"QCON")="I DISX(4)'="""""
^DIBT(104,2,4,"TXT")="DATE/TIME OF APPLICATION not null"
^DIBT(104,2,"B",42.5,1)=""
^DIBT(104,2,"B",42.51,2)=""
^DIBT(104,2,"B",42.51,3)=""
^DIBT(104,2,"B",42.51,4)=""
^DIBT(104,"%D",0)="^^1^1^2960119^"
^DIBT(104,"%D",1,0)="This sort template is used by the Waiting List Output option."
^DIBT(105,0)="DGPTF^2841217^^45^^^^"
^DIBT(105,2,1)="45^^PATIENT^"".01^"
^DIBT(105,2,1,"ASK")=""
^DIBT(105,2,1,"CM")="S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(105,2,1,"F")="Rz"
^DIBT(105,2,1,"T")="z"
^DIBT(105,2,2)="45^2^ADMISSION DATE^#^"
^DIBT(105,2,2,"ASK")=""
^DIBT(105,2,2,"F")="2840907.99999"
^DIBT(105,2,2,"T")="z"
^DIBT(105,2,3)="45^6^STATUS^^"
^DIBT(105,2,3,"ASK")=""
^DIBT(105,2,3,"F")="?z"
^DIBT(105,2,3,"T")="z"
^DIBT(106,0)="DGUNRELEASED^2841222^^45.84^^^^"
^DIBT(106,2,1)="45.84^^RELEASE DATE=""""^""@B^;L1"
^DIBT(106,2,1,"CM")="S Y(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)="""" I D0>0 S X(1)=X"
^DIBT(106,2,1,"F")="0"
^DIBT(106,2,1,"T")="1"
^DIBT(106,2,2)="45.84^2^CLOSE OUT DATE^@^"
^DIBT(106,2,2,"ASK")=""
^DIBT(106,2,2,"F")="2840912.99999"
^DIBT(106,2,2,"IX")="^DGP(45.84,""AC"",^DGP(45.84,^2"
^DIBT(106,2,2,"T")="z"
^DIBT(107,0)="DGOPENPTF^2850718^^45^^^^"
^DIBT(107,2,1)="45^6^STATUS^@^"
^DIBT(107,2,1,"F")="-1"
^DIBT(107,2,1,"IX")="^DGPT(""AS"",^DGPT(^2"
^DIBT(107,2,1,"T")="0"
^DIBT(107,2,2)="45^70^DISCHARGE DATE^^"
^DIBT(107,2,2,"ASK")=""
^DIBT(107,2,2,"F")="2850408.99999"
^DIBT(107,2,2,"IX")="^DGPT(""ADS"",^DGPT(^2"
^DIBT(107,2,2,"T")="z"
^DIBT(108,0)="DGDRGENTER^2861110^^45^^^^"
^DIBT(108,2,1)="45^6^STATUS^^"
^DIBT(108,2,1,"F")=".99999"
^DIBT(108,2,1,"IX")="^DGPT(""AS"",^DGPT(^2"
^DIBT(108,2,1,"T")="z"
^DIBT(109,0)="DGOD COMPLETE OPC^2890622^^408^^^^"
^DIBT(109,2,1)="408^2^SITE CODE^]+#^"
^DIBT(109,2,1,"IX")="^VAT(408,""AC"",^VAT(408,^2"
^DIBT(109,2,2)="408^1^REPORT MONTH/YR^+^"
^DIBT(109,2,2,"ASK")=""
^DIBT(109,2,2,"F")="2010100.99999"
^DIBT(109,2,2,"IX")="^VAT(408,""C"",^VAT(408,^2"
^DIBT(109,2,2,"T")="z"
^DIBT(109,2,3)="408^^REPORT TYPE'=""DISCHARGES""^""@B^;L1"
^DIBT(109,2,3,"CM")="S Y(2)=$C(59)_$S($D(^DD(408,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^VAT(408,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)'=""DISCHARGES"" I D0>0 S X(3)=X"
^DIBT(109,2,3,"F")="0"
^DIBT(109,2,3,"T")="1"
^DIBT(109,2,4)="408^4^REPORT TYPE^+@^"
^DIBT(110,0)="DGOD COMPLETE INP^2890622^^408^^^^"
^DIBT(110,2,1)="408^2^SITE CODE^]+#^"
^DIBT(110,2,1,"IX")="^VAT(408,""AC"",^VAT(408,^2"
^DIBT(110,2,2)="408^1^REPORT MONTH/YR^+^"
^DIBT(110,2,2,"ASK")=""
^DIBT(110,2,2,"F")="2010100.99999"
^DIBT(110,2,2,"IX")="^VAT(408,""C"",^VAT(408,^2"
^DIBT(110,2,2,"T")="z"
^DIBT(110,2,3)="408^^REPORT TYPE=""DISCHARGES""^""@B^;L1"
^DIBT(110,2,3,"CM")="S Y(2)=$C(59)_$S($D(^DD(408,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^VAT(408,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""DISCHARGES"" I D0>0 S X(3)=X"
^DIBT(110,2,3,"F")="0"
^DIBT(110,2,3,"T")="1"
^DIBT(110,2,4)="408^4^REPORT TYPE^+@^"
^DIBT(111,0)="DGPT WORKFILE^2900627.1504^^45.85^^^^"
^DIBT(111,2,1)="45.85^^INTERNAL(CENSUS DATE)^@""^"
^DIBT(111,2,1,"ASK")=""
^DIBT(111,2,1,"CM")="S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D0>0 S X(1)=X"
^DIBT(111,2,1,"F")=".99999"
^DIBT(111,2,1,"IX")="^DG(45.85,""ACENSUS"",^DG(45.85,^2"
^DIBT(111,2,1,"T")="1"
^DIBT(111,2,2)="45.85^^WARD:DIVISION^#""^;""DIVISION: """
^DIBT(111,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DG(40.8,+$P(Y(101),U,11),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(111,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""""),D0=$P(Y(1),U,6) S:'$D(^DIC(42,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(42,D0,0)):^(0),1:"""")"
^DIBT(111,2,3)="45.85^101^CENSUS STATUS^^;S2"
^DIBT(111,2,3,"ASK")=""
^DIBT(111,2,3,"F")="Nz"
^DIBT(111,2,3,"T")="Z"
^DIBT(111,2,4)="45.85^^WARD ON CENSUS DATE^#"".06^"
^DIBT(111,2,4,"CM")="S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(42,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(111,2,5)="45.85^^NAME^"".01^"
^DIBT(111,2,5,"CM")="S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(5)=X"
^DIBT(112,0)="DGPT CENSUS UNRELEASED^2900424.1021^^45.84^^^^"
^DIBT(112,2,1)="45.84^^RELEASE DATE=""""^""@B^;L1;L1"
^DIBT(112,2,1,"CM")="S Y(1)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)="""" I D0>0 S X(1)=X"
^DIBT(112,2,1,"F")="0"
^DIBT(112,2,1,"T")="1"
^DIBT(112,2,2)="45.84^2^CLOSE OUT DATE^@^"
^DIBT(112,2,2,"ASK")=""
^DIBT(112,2,2,"F")="2900423.99999"
^DIBT(112,2,2,"IX")="^DGP(45.84,""AC"",^DGP(45.84,^2"
^DIBT(112,2,2,"T")="2900424.9999"
^DIBT(113,0)="DG ACTIVE PRIORITY GROUPS^2900525.0903^^42.55^^^^"
^DIBT(113,2,1)="42.55^10^ACTIVE^^"
^DIBT(113,2,1,"F")=".99999"
^DIBT(113,2,1,"T")="1"
^DIBT(113,2,2)="42.55^.01^NAME^^"
^DIBT(113,2,2,"F")="FIRSSz"
^DIBT(113,2,2,"IX")="^DIC(42.55,""B"",^DIC(42.55,^2"
^DIBT(113,2,2,"T")="LAST"
^DIBT(114,0)="DG PTF NO ADMISSION^2901204.1331^^405^^^^"
^DIBT(114,2,1)="405^.01^DATE/TIME^@^"
^DIBT(114,2,1,"ASK")=""
^DIBT(114,2,1,"F")="2901203.99999"
^DIBT(114,2,1,"IX")="^DGPM(""ATT3"",^DGPM(^2"
^DIBT(114,2,1,"T")="2901204.9999"
^DIBT(115,0)="DGPM INP HISTORICAL DIVISION^2910516.1533^^405^^^^"
^DIBT(115,2,1)="405^.01^DATE/TIME^'^"
^DIBT(115,2,1,"ASK")=""
^DIBT(115,2,1,"F")="2910204.99999^T-100"
^DIBT(115,2,1,"IX")="^DGPM(""B"",^DGPM(^2"
^DIBT(115,2,1,"T")="2910516.9999^T"
^DIBT(115,2,2)="405^^PATIENT:ABSENCE DIVISION^+""^;""DIVISION: """
^DIBT(115,2,2,"ASK")=""
^DIBT(115,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,999,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(115,2,2,"F")="@z^A"
^DIBT(115,2,2,"T")="Z^Z"
^DIBT(115,2,3)="2^999.1^INPATIENT WARD^""+^"
^DIBT(115,2,3,405,100)="2^DPT(^0^S I(0,0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S D(0)=+X"
^DIBT(115,2,3,"ASK")=""
^DIBT(115,2,3,"F")="@z^A"
^DIBT(115,2,3,"T")="Z^Z"
^DIBT(115,2,4)="405^^PATIENT:NAME^@""^"
^DIBT(115,2,4,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S X(4)=X"
^DIBT(116,0)="DGPM INP HISTORICAL 1 DIVISION^2910516.153^^405^^^^"
^DIBT(116,2,1)="405^.01^DATE/TIME^'^"
^DIBT(116,2,1,"ASK")=""
^DIBT(116,2,1,"F")="2910204.99999^T-100"
^DIBT(116,2,1,"IX")="^DGPM(""B"",^DGPM(^2"
^DIBT(116,2,1,"T")="2910516.9999^T"
^DIBT(116,2,2)="2^999.1^INPATIENT WARD^""+^"
^DIBT(116,2,2,405,100)="2^DPT(^0^S I(0,0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S D(0)=+X"
^DIBT(116,2,2,"ASK")=""
^DIBT(116,2,2,"F")="@z^A"
^DIBT(116,2,2,"T")="Z^Z"
^DIBT(116,2,3)="405^^PATIENT:NAME^@""^"
^DIBT(116,2,3,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(117,0)="DGPT EXPANDED CODE SORT^2910710.0954^^45.89^^^^"
^DIBT(117,2,1)="45.89^^CATEGORY^@"".01^;""Category"""
^DIBT(117,2,1,"ASK")=""
^DIBT(117,2,1,"CM")="S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(45.88,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(117,2,1,"F")="@z^A"
^DIBT(117,2,1,"T")="Z^Z"
^DIBT(117,2,2)="45.89^^DIAGNOSIS/PROCEDURE CODE_"" ""^@""^;""DIAGNOSIS/PROCEDURE CODE"""
^DIBT(117,2,2,"ASK")=""
^DIBT(117,2,2,"CM")="X DPP(2,""OVF0"",9.3) S X=X_"" "" I D0>0 S X(2)=X"
^DIBT(117,2,2,"F")="@z^A"
^DIBT(117,2,2,"OVF0",9.2)="S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"""")"
^DIBT(117,2,2,"OVF0",9.3)="X DPP(2,""OVF0"",9.2) S X=$P(Y(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="","""
^DIBT(117,2,2,"T")="Z^Z"
^DIBT(118,0)="DGBT REMARKS^2930326.1515^^392.1^^^2971211"
^DIBT(118,2,0)="^.4014^2^2"
^DIBT(118,2,1,0)="392.1001^^ADDITIONAL INFORMATION=""YES""^@""@B^;L1^^^^^4"
^DIBT(118,2,1,1,0)="^.40141^1^1"
^DIBT(118,2,1,1,1,0)="392.1^1"
^DIBT(118,2,1,1,"B",392.1,1)=""
^DIBT(118,2,1,3,0)="^.401419^1^1"
^DIBT(118,2,1,3,1,0)="OVF1^9.2"
^DIBT(118,2,1,3,1,"OVF0")="S Y(2)=$C(59)_$S($D(^DD(392.1001,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGBT(392.1,D0,1,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59),1)"
^DIBT(118,2,1,3,"B","OVF1",1)=""
^DIBT(118,2,1,"CM")="X DPP(1,""OVF1"",9.2) S X=X=""YES"" I D1>0 S DISX(1)=X"
^DIBT(118,2,1,"F")="0"
^DIBT(118,2,1,"GET")="X DPP(1,""OVF1"",9.2) S X=X=""YES"" I D1>0 S DISX(1)=X"
^DIBT(118,2,1,"QCON")="I DISX(1)"
^DIBT(118,2,1,"T")="1"
^DIBT(118,2,1,"TXT")="ADDITIONAL INFORMATION=""""YES"""""
^DIBT(118,2,2,0)="392.1001^^REMARKS=""""^@""@B^;L1^^^^^4"
^DIBT(118,2,2,1,0)="^.40141^1^1"
^DIBT(118,2,2,1,1,0)="392.1^1"
^DIBT(118,2,2,1,"B",392.1,1)=""
^DIBT(118,2,2,"CM")="S Y(1)=$S($D(^DGBT(392.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""" I D1>0 S DISX(2)=X"
^DIBT(118,2,2,"F")="0"
^DIBT(118,2,2,"GET")="S Y(1)=$S($D(^DGBT(392.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""" I D1>0 S DISX(2)=X"
^DIBT(118,2,2,"QCON")="I DISX(2)"
^DIBT(118,2,2,"T")="1"
^DIBT(118,2,2,"TXT")="REMARKS="""""""""
^DIBT(118,2,"B",392.1001,1)=""
^DIBT(118,2,"B",392.1001,2)=""
^DIBT(119,0)="DGPTAP80010185010102^2930721.12^^45^^^^"
^DIBT(120,0)="DGPTAP80010185010103^2930721.1201^^45^^^^"
^DIBT(121,0)="SDASUSP^2860910^^40.1^^^^"
^DIBT(121,2,1)="40.1^^NAME^"".01^"
^DIBT(121,2,1,"CM")="S Y(1)=$S($D(^SDASF(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(121,2,2)="40.11^20^SUSPENDED DATE^^"
^DIBT(121,2,2,40.1)="1"
^DIBT(121,2,2,"F")="2860100.99999"
^DIBT(121,2,2,"T")="z"
^DIBT(121,2,3)="40.11^21^RELEASE DATE^^"
^DIBT(121,2,3,40.1)="1"
^DIBT(121,2,3,"F")="?z"
^DIBT(121,2,3,"T")="@"
^DIBT(122,0)="IB BILLING RATES^2900529.0958^^399.5^^^2920708^"
^DIBT(122,2,1)="399.5^^BILLING BEDSECTION^'"".02^"
^DIBT(122,2,1,"CM")="S Y(1)=$S($D(^DGCR(399.5,D0,0)):^(0),1:"""") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(122,2,2)="399.5^.01^EFFECTIVE DATE^^"
^DIBT(122,2,2,"ASK")=""
^DIBT(122,2,2,"F")="2891000.99999"
^DIBT(122,2,2,"IX")="^DGCR(399.5,""B"",^DGCR(399.5,^2"
^DIBT(122,2,2,"T")="z"
^DIBT(122,2,3)="399.5^^BILLING BEDSECTION^"".02^;S2"
^DIBT(122,2,3,"CM")="S Y(1)=$S($D(^DGCR(399.5,D0,0)):^(0),1:"""") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(122,2,4)="399.5^.05^ACTIVE^^"
^DIBT(122,2,5)="399.5^^REVENUE CODE^"".03^"
^DIBT(122,2,5,"CM")="S Y(1)=$S($D(^DGCR(399.5,D0,0)):^(0),1:"""") S X=$S('$D(^DGCR(399.2,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(5)=X"
^DIBT(122,"%D",0)="^^1^1^2920708^"
^DIBT(122,"%D",1,0)="Billing Rates List."
^DIBT(123,0)="IB INCOMPLETE^2910318.1059^^350^^^2920708^"
^DIBT(123,2,1)="350^.05^STATUS^]^"
^DIBT(123,2,1,"F")=".99999"
^DIBT(123,2,1,"IX")="^IB(""AC"",^IB(^2"
^DIBT(123,2,1,"T")="2"
^DIBT(123,2,2)="350^^PATIENT^"".02^"
^DIBT(123,2,2,"CM")="S Y(1)=$S($D(^IB(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(123,"%D",0)="^^1^1^2920708^"
^DIBT(123,"%D",1,0)="Integrated Billing Action List of entries with a Status of Incomplete."
^DIBT(124,0)="IB CLK PROD^2920521.1136^@^399^10882^@^2940315"
^DIBT(124,2,1)="399^1^DATE ENTERED^'^;""Date Entered"""
^DIBT(124,2,1,"ASK")=""
^DIBT(124,2,1,"F")="2910100.99999^2910101"
^DIBT(124,2,1,"IX")="^DGCR(399,""APD"",^DGCR(399,^2"
^DIBT(124,2,1,"T")="z^"
^DIBT(124,2,2)="399^^ENTERED/EDITED BY^+@""2^;""Clerk Entered By"";S1"
^DIBT(124,2,2,"ASK")=""
^DIBT(124,2,2,"CM")="S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(124,2,2,"F")=".99999^1"
^DIBT(124,2,2,"T")="z^"
^DIBT(124,2,3)="399^^RATE TYPE^@"".07^;""Rate Type"";"
^DIBT(124,2,3,"ASK")=""
^DIBT(124,2,3,"CM")="S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$S('$D(^DGCR(399.3,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(124,2,3,"F")=".99999^1"
^DIBT(124,2,3,"T")="z^"
^DIBT(124,2,4)="399^1^DATE ENTERED^^"
^DIBT(124,2,4,"IX")="^DGCR(399,""APD"",^DGCR(399,^2"
^DIBT(124,"%D",0)="^^1^1^2920708^^^^"
^DIBT(124,"%D",1,0)="Clerk Productivity Report."
^DIBT(125,0)="IB PRINT THRESHOLD^2930506.0933^@^354.3^1453^@^2931005"
^DIBT(125,2,1)="354.3^.02^TYPE^^;S1"
^DIBT(125,2,1,"IX")="^IBE(354.3,""AC"",^IBE(354.3,^2"
^DIBT(125,2,2)="354.3^.01^DATE^^"
^DIBT(125,2,2,"ASK")=""
^DIBT(125,2,2,"F")="2930505.99999^T"
^DIBT(125,2,2,"IX")="^IBE(354.3,""B"",^IBE(354.3,^2"
^DIBT(125,2,2,"T")="2930506.9999^T"
^DIBT(126,0)="IB BILLING PATIENT BY STATUS^2930324.0819^@^354^1453^@^2930421"
^DIBT(126,2,1)="354^.04^COPAY INCOME EXEMPTION STATUS^@+^"
^DIBT(126,2,1,"ASK")=""
^DIBT(126,2,1,"F")="@z^A"
^DIBT(126,2,1,"IX")="^IBA(354,""AEX"",^IBA(354,^2"
^DIBT(126,2,1,"T")="Z^Z"
^DIBT(126,2,2)="354^.03^COPAY EXEMPTION STATUS DATE^'@^"
^DIBT(126,2,2,"ASK")=""
^DIBT(126,2,2,"F")="2900628.99999^T-999"
^DIBT(126,2,2,"IX")="^IBA(354,""AD"",^IBA(354,^2"
^DIBT(126,2,2,"T")="2930324.9999^T"
^DIBT(126,2,3)="354^^PATIENT NAME^@"".01^"
^DIBT(126,2,3,"ASK")=""
^DIBT(126,2,3,"CM")="S X(3)=$P($G(^DPT(+D0,0)),U)"
^DIBT(126,2,3,"F")="@z^A"
^DIBT(126,2,3,"T")="Z^Z"
^DIBT(127,0)="IB BILLING PATIENT BY REASON^2930324.0857^@^354^1453^@^2930507"
^DIBT(127,2,1)="354^^COPAY EXEMPTION REASON^@+"".05^"
^DIBT(127,2,1,"ASK")=""
^DIBT(127,2,1,"CM")="S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(127,2,1,"F")="@z^A"
^DIBT(127,2,1,"T")="ZZZZ^ZZZZ"
^DIBT(127,2,2)="354^.03^COPAY EXEMPTION STATUS DATE^'@^"
^DIBT(127,2,2,"ASK")=""
^DIBT(127,2,2,"F")="2920323.99999^T-365"
^DIBT(127,2,2,"IX")="^IBA(354,""AD"",^IBA(354,^2"
^DIBT(127,2,2,"T")="2930324.9999^T"
^DIBT(127,2,3)="354^^PATIENT NAME^@"".01^"
^DIBT(127,2,3,"ASK")=""
^DIBT(127,2,3,"CM")="S X(3)=$P($G(^DPT(+D0,0)),U)"
^DIBT(127,2,3,"F")="@z^A"
^DIBT(127,2,3,"T")="ZZZZ^ZZZZ"
^DIBT(128,0)="IB BILLING PAT W/INCOME^2930408.1559^@^354^1453^@^2930427"
^DIBT(128,2,1)="354^^COPAY EXEMPTION REASON^@+"".05^"
^DIBT(128,2,1,"CM")="S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(128,2,1,"F")="NO INCOME DAT@z^NO INCOME DATA"
^DIBT(128,2,1,"T")="NO INCOME DATA^NO INCOME DATA"
^DIBT(128,2,2)="354^.03^COPAY EXEMPTION STATUS DATE^'@^"
^DIBT(128,2,2,"ASK")=""
^DIBT(128,2,2,"F")="2930406.99999^T-1"
^DIBT(128,2,2,"IX")="^IBA(354,""AD"",^IBA(354,^2"
^DIBT(128,2,2,"T")="2930408.9999^T"
^DIBT(128,2,3)="354^^PATIENT NAME^@"".01^"
^DIBT(128,2,3,"ASK")=""
^DIBT(128,2,3,"CM")="S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(128,2,3,"F")="@z^A"
^DIBT(128,2,3,"T")="Z^Z"
^DIBT(129,0)="IB EXEMPT PATIENTS^2930423.1557^@^354^0^@^2930510"
^DIBT(129,2,1)="354^.04^COPAY INCOME EXEMPTION STATUS^@+^"
^DIBT(129,2,1,"F")=".99999^1"
^DIBT(129,2,1,"IX")="^IBA(354,""AEX"",^IBA(354,^2"
^DIBT(129,2,1,"T")="1^1"
^DIBT(129,2,2)="354^.03^COPAY EXEMPTION STATUS DATE^'@^"
^DIBT(129,2,2,"ASK")=""
^DIBT(129,2,2,"F")="2930413.99999^T-9"
^DIBT(129,2,2,"IX")="^IBA(354,""AD"",^IBA(354,^2"
^DIBT(129,2,2,"T")="2930423.9999^T"
^DIBT(129,2,3)="354^^PATIENT NAME^@"".01^"
^DIBT(129,2,3,"ASK")=""
^DIBT(129,2,3,"CM")="S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(129,2,3,"F")="@z^A"
^DIBT(129,2,3,"T")="Z^Z"
^DIBT(130,0)="IB EXEMPTION LETTER^2930604.1544^^354^^^2940309"
^DIBT(131,0)="IB AB COMMENTS^2940211.0941^@^362.1^10882^@^2940317"
^DIBT(131,2,1)="362.1^.05^DATE ENTERED^^;S1"
^DIBT(131,2,1,"ASK")=""
^DIBT(131,2,1,"F")="2930100.99999^1 1 93"
^DIBT(131,2,1,"T")="z^"
^DIBT(131,2,2)="362.1^^CLAIMS TRACKING ID:EVENT TYPE^@""^;S1"
^DIBT(131,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^IBE(356.6,+$P(Y(101),U,18),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(131,2,2,"F")="?z^@"
^DIBT(131,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"""")"
^DIBT(131,2,2,"T")="z^"
^DIBT(131,2,3)="362.1^^CLAIMS TRACKING ID:PATIENT^@""^;""CLAIMS TRACKING PATIENT"""
^DIBT(131,2,3,"ASK")=""
^DIBT(131,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(131,2,3,"F")="@z^A"
^DIBT(131,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"""")"
^DIBT(131,2,3,"T")="z^"
^DIBT(131,2,4)="362.1^^CLAIMS TRACKING ID:EPISODE DATE^@""^^^D"
^DIBT(131,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(101),U,6) S D0=I(0,0) I D0>0 S X(4)=X"
^DIBT(131,2,4,"F")="?z^@"
^DIBT(131,2,4,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"""")"
^DIBT(131,2,4,"T")="z^"
^DIBT(132,0)="IB INACTIVE INS CO^2931104.111^@^36^1453^@^2940228"
^DIBT(132,2,1)="36^.05^INACTIVE^'@^"
^DIBT(132,2,1,"F")=".99999^1"
^DIBT(132,2,1,"T")="1^1"
^DIBT(132,2,2)="36^.01^NAME^@^;""INSURANCE COMPANY"""
^DIBT(132,2,2,"ASK")=""
^DIBT(132,2,2,"F")="@z^A"
^DIBT(132,2,2,"IX")="^DIC(36,""B"",^DIC(36,^2"
^DIBT(132,2,2,"T")="Z^Z"
^DIBT(133,0)="IBNOTVER^2931129.1527^^2^^^2940309^"
^DIBT(133,2,1)="2.312^1.03^DATE LAST VERIFIED^]@^"
^DIBT(133,2,1,2)=".312"
^DIBT(133,2,1,"F")="?z^@"
^DIBT(133,2,1,"T")="@^@"
^DIBT(133,2,2)="2.312^1.01^DATE ENTERED^@^"
^DIBT(133,2,2,2)=".312"
^DIBT(133,2,2,"ASK")=""
^DIBT(133,2,2,"F")="2931128.99999^T"
^DIBT(133,2,2,"T")="2931129.9999^T"
^DIBT(134,0)="IBNOTVER1^2931129.155^@^2^1453^@^2940309"
^DIBT(134,2,1)="2.312^^INSURANCE TYPE^'"".01^"
^DIBT(134,2,1,2)=".312"
^DIBT(134,2,1,"CM")="S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(36,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(134,2,1,"IX")="^DPT(""AB"",^DPT(^2"
^DIBT(134,2,2)="2.312^1.03^DATE LAST VERIFIED^@'^"
^DIBT(134,2,2,2)=".312"
^DIBT(134,2,2,"F")="?z^@"
^DIBT(134,2,2,"T")="@^@"
^DIBT(134,2,3)="2.312^1.01^DATE ENTERED^@'^"
^DIBT(134,2,3,2)=".312"
^DIBT(134,2,3,"ASK")=""
^DIBT(134,2,3,"F")="2931128.99999^T"
^DIBT(134,2,3,"T")="2931129.9999^T"
^DIBT(134,2,4)="2^.01^NAME^^"
^DIBT(134,2,4,"ASK")=""
^DIBT(134,2,4,"F")="@z^A"
^DIBT(134,2,4,"IX")="^DPT(""B"",^DPT(^2"
^DIBT(134,2,4,"T")="B^B"
^DIBT(135,0)="IBT LIST VISITS^2940124.0915^@^356^1453^@^2940318"
^DIBT(135,2,1)="356^.06^EPISODE DATE^]'^"
^DIBT(135,2,1,"ASK")=""
^DIBT(135,2,1,"F")="2940114.99999^T-9"
^DIBT(135,2,1,"IX")="^IBT(356,""D"",^IBT(356,^2"
^DIBT(135,2,1,"T")="2940124.9999^T"
^DIBT(135,2,2)="356^^PATIENT^"".02^"
^DIBT(135,2,2,"ASK")=""
^DIBT(135,2,2,"CM")="S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(135,2,2,"F")="@z^A"
^DIBT(135,2,2,"T")="ZZZ^ZZZ"
^DIBT(136,0)="PRCT DATA UPLOAD STATUS^2910308.0853^^446.4^^^^"
^DIBT(136,2,1)="446.4^.01^NAME^^"
^DIBT(136,2,1,"IX")="^PRCT(446.4,""B"",^PRCT(446.4,^2"
^DIBT(136,2,2)="446.42^.01^DATE/TIME OF DATA UPLOAD^^"
^DIBT(136,2,2,446.4)="2"
^DIBT(136,2,2,"ASK")=""
^DIBT(136,2,2,"F")="2910308.00999"
^DIBT(136,2,2,"T")="2910308.0853"
^DIBT(137,0)="PRCP SORT:NSN^2910904.1209^^445^^^^"
^DIBT(137,2,1)="445^.01^INVENTORY POINT^]^"
^DIBT(137,2,1,"IX")="^PRCP(445,""B"",^PRCP(445,^2"
^DIBT(137,2,2)="441^5^NSN^""@^"
^DIBT(137,2,2,445)="1"
^DIBT(137,2,2,445.01,100)="441^PRC(441,^0^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(137,2,2,"ASK")=""
^DIBT(137,2,2,"F")="?z^@"
^DIBT(137,2,2,"T")="z^"
^DIBT(137,2,3)="445.01^^X:$D(PRCPSORT) PRCPSORT^@""^"
^DIBT(137,2,3,445)="1"
^DIBT(137,2,3,"CM")="X:$D(PRCPSORT) PRCPSORT I D1>0 S X(3)=X"
^DIBT(138,0)="PRCP SORT:GROUP^2910904.1207^^445^^^^"
^DIBT(138,2,1)="445^.01^INVENTORY POINT^]^"
^DIBT(138,2,1,"IX")="^PRCP(445,""B"",^PRCP(445,^2"
^DIBT(138,2,2)="445.01^^GROUP CATEGORY CODE^"".5^"
^DIBT(138,2,2,445)="1"
^DIBT(138,2,2,"ASK")=""
^DIBT(138,2,2,"CM")="S Y(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^PRCP(445.6,+$P(Y(1),U,21),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(138,2,2,"F")="?z^@"
^DIBT(138,2,2,"T")="z^"
^DIBT(138,2,3)="445.01^.7^ITEM DESCRIPTION^@^"
^DIBT(138,2,3,445)="1"
^DIBT(138,2,3,"F")="?z^@"
^DIBT(138,2,3,"T")="z^"
^DIBT(138,2,4)="445.01^^X:$D(PRCPSORT) PRCPSORT^@""^"
^DIBT(138,2,4,445)="1"
^DIBT(138,2,4,"CM")="X:$D(PRCPSORT) PRCPSORT I D1>0 S X(4)=X"
^DIBT(139,0)="PRCP POSTED DIETETIC SORT^2950117.1445^^445.2^^^^"
^DIBT(139,2,1)="445.2^^OTHER INVENTORY POINT AFFECTED^""14^"
^DIBT(139,2,1,"ASK")=""
^DIBT(139,2,1,"CM")="S Y(1)=$S($D(^PRCP(445.2,D0,0)):^(0),1:"""") S X=$S('$D(^PRCP(445,+$P(Y(1),U,18),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(139,2,1,"F")="31.99999^32"
^DIBT(139,2,1,"T")="32^32"
^DIBT(139,2,2)="441^20^FOOD GROUP^""+^"
^DIBT(139,2,2,445.2,100)="441^PRC(441,^0^S I(0,0)=D0 S Y(1)=$S($D(^PRCP(445.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S D(0)=+X"
^DIBT(139,2,2,"ASK")=""
^DIBT(139,2,2,"F")=".99999^1"
^DIBT(139,2,2,"T")="6^6"
^DIBT(139,2,3)="445.2^2^DATE OF TRANSACTION^^"
^DIBT(139,2,3,"ASK")=""
^DIBT(139,2,3,"F")="2920100.99999^010192"
^DIBT(139,2,3,"T")="2920531.9999^053192"
^DIBT(140,0)="PRCH OUTSTANDING REQUEST/PA^2970609.1414^^443^^^2970908"
^DIBT(140,2,0)="^.4014^4^4"
^DIBT(140,2,1,0)="443^^INTERNAL(#1.5)^'""^^^^^^4"
^DIBT(140,2,1,"CM")="S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X I D0>0 S DISX(1)=X"
^DIBT(140,2,1,"F")="69.99999^70"
^DIBT(140,2,1,"GET")="S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X I D0>0 S DISX(1)=X"
^DIBT(140,2,1,"QCON")="I (DISX(1)]]69.99999)&(DISX(1)']]80)"
^DIBT(140,2,1,"T")="80^80"
^DIBT(140,2,1,"TXT")="INTERNAL(#1.5) from 70 to 80"
^DIBT(140,2,2,0)="443^^PURCHASING AGENT^+""6^;S2;C17^^^^^4"
^DIBT(140,2,2,"CM")="S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(140,2,2,"F")="?z^@"
^DIBT(140,2,2,"GET")="S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(140,2,2,"QCON")="I 1"
^DIBT(140,2,2,"T")="z^"
^DIBT(140,2,2,"TXT")="All PURCHASING AGENT (includes nulls)"
^DIBT(140,2,3,0)="443^^.01:DATE REQUIRED^""^;""DATE REQUIRED: "";C5;S1^^D^^^1"
^DIBT(140,2,3,3,0)="^.401419^1^1"
^DIBT(140,2,3,3,1,0)="OVF0^9.2"
^DIBT(140,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,1)):^(1),1:"""")"
^DIBT(140,2,3,3,"B","OVF0",1)=""
^DIBT(140,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,4) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(140,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,4) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(140,2,3,"QCON")="I DISX(3)'="""""
^DIBT(140,2,3,"TXT")=".01:DATE REQUIRED not null"
^DIBT(140,2,4,0)="443^^2237 TRANSACTION NUMBER^"".01^^^^^^4"
^DIBT(140,2,4,"CM")="S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$S('$D(^PRCS(410,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(140,2,4,"GET")="S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$S('$D(^PRCS(410,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(140,2,4,"IX")="^PRC(443,""B"",^PRC(443,^2"
^DIBT(140,2,4,"PTRIX")="^PRCS(410,""B"","
^DIBT(140,2,4,"QCON")="I DISX(4)'="""""
^DIBT(140,2,4,"SER")="0.0000^0.0000"
^DIBT(140,2,4,"TXT")="2237 TRANSACTION NUMBER not null"
^DIBT(140,2,"B",443,1)=""
^DIBT(140,2,"B",443,2)=""
^DIBT(140,2,"B",443,3)=""
^DIBT(140,2,"B",443,4)=""
^DIBT(141,0)="PRCHITFCP^2860502^^441^^^^"
^DIBT(141,2,1)="441.03^.01^FCP^#^"
^DIBT(141,2,1,441)="4"
^DIBT(141,2,1,"ASK")=""
^DIBT(141,2,1,"F")=".99999"
^DIBT(141,2,1,"T")="2"
^DIBT(141,2,2)="441^.05^SHORT DESCRIPTION^@^"
^DIBT(141,2,2,"IX")="^PRC(441,""C"",^PRC(441,^2"
^DIBT(142,0)="PRCH FISCAL PRNT TIME^2861004^^442^^^^"
^DIBT(142,2,1)="442^17^ES CODE DATE/TIME^^"
^DIBT(142,2,1,"ASK")=""
^DIBT(142,2,1,"F")="2861003.07999"
^DIBT(142,2,1,"T")="2861004.9999"
^DIBT(142,"DIPT")="PRCH FISCAL PRINT"
^DIBT(143,0)="PRCH PO REGISTER^2960411.1727^^442^^^2980522"
^DIBT(143,2,0)="^.4014^4^4"
^DIBT(143,2,1,0)="442^.1^P.O. DATE^'@^^^^^^1"
^DIBT(143,2,1,"ASK")="1"
^DIBT(143,2,1,"F")="2971000.99999^100197^10/1/97"
^DIBT(143,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(143,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(143,2,1,"QCON")="I DISX(1)'="""""
^DIBT(143,2,1,"SER")="0.0978^0.0891"
^DIBT(143,2,1,"T")="z^"
^DIBT(143,2,1,"TXT")="P.O. DATE not null"
^DIBT(143,2,2,0)="442^^INTERNAL(#.02)<5!(INTERNAL(#.02)=25)^'@""@B^;L1^^^^^4"
^DIBT(143,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X<5,Y(2)=X,Y(3)=X S X=$P(Y(1),U,2),X=X S X=X=25,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(2)=X"
^DIBT(143,2,2,"F")="0"
^DIBT(143,2,2,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X<5,Y(2)=X,Y(3)=X S X=$P(Y(1),U,2),X=X S X=X=25,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(2)=X"
^DIBT(143,2,2,"QCON")="I DISX(2)"
^DIBT(143,2,2,"T")="1"
^DIBT(143,2,2,"TXT")="INTERNAL(#.02)<5!(INTERNAL(#.02)=25)"
^DIBT(143,2,3,0)="442^^METHOD OF PROCESSING^"".02^;S2^^^^^4"
^DIBT(143,2,3,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(143,2,3,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(143,2,3,"IX")="^PRC(442,""F"",^PRC(442,^2"
^DIBT(143,2,3,"PTRIX")="^PRCD(442.5,""B"","
^DIBT(143,2,3,"QCON")="I DISX(3)'="""""
^DIBT(143,2,3,"SER")="0.0412^0.0396"
^DIBT(143,2,3,"TXT")="METHOD OF PROCESSING not null"
^DIBT(143,2,4,0)="442^.01^PURCHASE ORDER NUMBER^^^^^^^4"
^DIBT(143,2,4,"ASK")="1"
^DIBT(143,2,4,"F")="P7000/z^P70000"
^DIBT(143,2,4,"GET")="S DISX(4)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(143,2,4,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(143,2,4,"QCON")="I DISX(4)'="""""
^DIBT(143,2,4,"SER")="0^0"
^DIBT(143,2,4,"T")="z^"
^DIBT(143,2,4,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(143,2,"B",442,1)=""
^DIBT(143,2,"B",442,2)=""
^DIBT(143,2,"B",442,3)=""
^DIBT(143,2,"B",442,4)=""
^DIBT(144,0)="PRCH POREG^2890817.1022^^442^^^^"
^DIBT(144,2,1)="442^.1^P.O. DATE^'^"
^DIBT(144,2,1,"ASK")=""
^DIBT(144,2,1,"F")="2010100.99999"
^DIBT(144,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(144,2,1,"T")="z"
^DIBT(144,2,2)="442^^METHOD OF PROCESSING^#'"".02^"
^DIBT(144,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(144,2,3)="442^.01^PURCHASE ORDER NUMBER^]^"
^DIBT(144,2,3,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(146,0)="PRCH INCOMPLETE PO BY PA^2930224.1619^^442^^^^"
^DIBT(146,2,1)="442^^SUPPLY STATUS:SUPPLY STATUS ORDER^'""^"
^DIBT(146,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(1)=X"
^DIBT(146,2,1,"F")=".99999^1"
^DIBT(146,2,1,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCD(442.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(442.3,D0,0)):^(0),1:"""")"
^DIBT(146,2,1,"T")="9^9"
^DIBT(146,2,2)="442^^AGENT ASSIGNED P.O.^+#""19^"
^DIBT(146,2,2,"ASK")=""
^DIBT(146,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(146,2,2,"F")="@yz^@z"
^DIBT(146,2,2,"T")="Z^Z"
^DIBT(146,2,3)="442^.01^PURCHASE ORDER NUMBER^^"
^DIBT(146,2,3,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(147,0)="PRCHOUT WHSE STATS^2930225.1744^^442^^^^"
^DIBT(147,2,1)="442.11^^WAREHOUSE APPROVED BY^+""6^"
^DIBT(147,2,1,442)="11"
^DIBT(147,2,1,"ASK")=""
^DIBT(147,2,1,"CM")="S Y(1)=$S($D(^PRC(442,D0,11,D1,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(147,2,1,"F")="DYz^DZ"
^DIBT(147,2,1,"T")="Z^Z"
^DIBT(147,2,2)="442.11^.01^DATE^@^"
^DIBT(147,2,2,442)="11"
^DIBT(147,2,2,"ASK")=""
^DIBT(147,2,2,"F")="2930200.99999^020193"
^DIBT(147,2,2,"T")="2930228.9999^022893"
^DIBT(148,0)="PRCFA UNDEL ORD^2871215^^442^^^^"
^DIBT(148,2,1)="442^^SUPPLY STATUS:SUPPLY STATUS ORDER^'@""^"
^DIBT(148,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(1)=X"
^DIBT(148,2,1,"F")="19.99999"
^DIBT(148,2,1,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCD(442.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(442.3,D0,0)):^(0),1:"""")"
^DIBT(148,2,1,"T")="29"
^DIBT(148,2,2)="442^1.4^APPROPRIATION^#^"
^DIBT(148,2,3)="442^.01^PURCHASE ORDER NUMBER^^"
^DIBT(148,2,3,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(149,0)="PRCFA BATCH PRINT SORT^2900607.1352^^423^^^^"
^DIBT(149,2,0)="^.4014^4^4"
^DIBT(149,2,1,0)="423^.21^BATCH LIST KEY^@^^^^^^4"
^DIBT(149,2,1,"ASK")="1"
^DIBT(149,2,1,"F")="2950313.143511-43z^2950313.143511-44"
^DIBT(149,2,1,"GET")="S DISX(1)=$P($G(^PRCF(423,D0,""TRANS"")),U,10)"
^DIBT(149,2,1,"IX")="^PRCF(423,""AJ"",^PRCF(423,^2"
^DIBT(149,2,1,"QCON")="I DISX(1)=""2950313.143511-44"""
^DIBT(149,2,1,"SER")="100.0000^1.0000"
^DIBT(149,2,1,"T")="2950313.143511-44^2950313.143511-44"
^DIBT(149,2,1,"TXT")="BATCH LIST KEY equals 2950313.143511-44"
^DIBT(149,2,2,0)="423^.7^BATCH NUMBER^@#^^^^^^4"
^DIBT(149,2,2,"GET")="S DISX(2)=$P($G(^PRCF(423,D0,""TRANS"")),U,5)"
^DIBT(149,2,2,"IX")="^PRCF(423,""AD"",^PRCF(423,^2"
^DIBT(149,2,2,"QCON")="I DISX(2)'="""""
^DIBT(149,2,2,"SER")="1.2286^0.5513"
^DIBT(149,2,2,"TXT")="BATCH NUMBER not null"
^DIBT(149,2,3,0)="423^.8^BATCH PRIORITY^@^^^^^^2"
^DIBT(149,2,3,"GET")="S DISX(3)=$P($G(^PRCF(423,D0,""TRANS"")),U,6)"
^DIBT(149,2,3,"IX")="^PRCF(423,""AE"",^PRCF(423,^2"
^DIBT(149,2,3,"QCON")="I DISX(3)'="""""
^DIBT(149,2,3,"SER")="0.3000^0.2308"
^DIBT(149,2,3,"TXT")="BATCH PRIORITY not null"
^DIBT(149,2,4,0)="423^^$E(+(TRANSACTION TYPE),1,6)^@""^^^^^^4"
^DIBT(149,2,4,"CM")="S Y(1)=$S($D(^PRCF(423,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=+X,Y(2)=X S X=1,Y(3)=X S X=6,X=$E(Y(2),Y(3),X) I D0>0 S DISX(4)=X"
^DIBT(149,2,4,"GET")="S Y(1)=$S($D(^PRCF(423,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=+X,Y(2)=X S X=1,Y(3)=X S X=6,X=$E(Y(2),Y(3),X) I D0>0 S DISX(4)=X"
^DIBT(149,2,4,"QCON")="I DISX(4)'="""""
^DIBT(149,2,4,"TXT")="$E(+(TRANSACTION TYPE),1,6) not null"
^DIBT(149,2,"B",423,1)=""
^DIBT(149,2,"B",423,2)=""
^DIBT(149,2,"B",423,3)=""
^DIBT(149,2,"B",423,4)=""
^DIBT(150,0)="PRCFA BATCH TRANSMIT SORT^2900607.1353^^423^^^^"
^DIBT(150,2,1)="423^.22^TRANSMIT LIST KEY^@^"
^DIBT(150,2,1,"ASK")=""
^DIBT(150,2,1,"F")=".99999"
^DIBT(150,2,1,"IX")="^PRCF(423,""AK"",^PRCF(423,^2"
^DIBT(150,2,1,"T")="z"
^DIBT(150,2,2)="423^.7^BATCH NUMBER^@#^"
^DIBT(150,2,2,"IX")="^PRCF(423,""AD"",^PRCF(423,^2"
^DIBT(150,2,3)="423^.8^BATCH PRIORITY^@^"
^DIBT(150,2,3,"IX")="^PRCF(423,""AE"",^PRCF(423,^2"
^DIBT(150,2,4)="423^^$E(+(TRANSACTION TYPE),1,6)^@""^"
^DIBT(150,2,4,"CM")="S Y(1)=$S($D(^PRCF(423,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=+X,Y(2)=X S X=1,Y(3)=X S X=6,X=$E(Y(2),Y(3),X) I D0>0 S X(4)=X"
^DIBT(151,0)="PRCFA BATCH REPRINT SORT^2900607.1356^^423^^^^"
^DIBT(151,2,1)="423^.24^REPRINT LIST KEY^@^"
^DIBT(151,2,1,"ASK")=""
^DIBT(151,2,1,"F")=".99999"
^DIBT(151,2,1,"IX")="^PRCF(423,""AM"",^PRCF(423,^2"
^DIBT(151,2,1,"T")="z"
^DIBT(151,2,2)="423^.7^BATCH NUMBER^@#^"
^DIBT(151,2,2,"IX")="^PRCF(423,""AD"",^PRCF(423,^2"
^DIBT(151,2,3)="423^.8^BATCH PRIORITY^@^"
^DIBT(151,2,3,"IX")="^PRCF(423,""AE"",^PRCF(423,^2"
^DIBT(151,2,4)="423^^$E(+(TRANSACTION TYPE),1,6)^@""^"
^DIBT(151,2,4,"CM")="S Y(1)=$S($D(^PRCF(423,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=+X,Y(2)=X S X=1,Y(3)=X S X=6,X=$E(Y(2),Y(3),X) I D0>0 S X(4)=X"
^DIBT(152,0)="PRCHOUT PA STATS^2970521.0933^^442^^^2970825"
^DIBT(152,2,0)="^.4014^2^2"
^DIBT(152,2,1,0)="442^^PA/PPM/AUTHORIZED BUYER^+""16^;S2^^^^^4"
^DIBT(152,2,1,"CM")="S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(152,2,1,"GET")="S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(152,2,1,"QCON")="I DISX(1)'="""""
^DIBT(152,2,1,"TXT")="PA/PPM/AUTHORIZED BUYER not null"
^DIBT(152,2,2,0)="442^.1^P.O. DATE^@^^^^^^1"
^DIBT(152,2,2,"ASK")="1"
^DIBT(152,2,2,"F")="2970700.99999^0701^7/1/97"
^DIBT(152,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(152,2,2,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(152,2,2,"QCON")="I DISX(2)]]2970700.99999"
^DIBT(152,2,2,"SER")="5.7333^0.8515"
^DIBT(152,2,2,"T")="z^"
^DIBT(152,2,2,"TXT")="P.O. DATE from 7/1/97"
^DIBT(152,2,"B",442,1)=""
^DIBT(152,2,"B",442,2)=""
^DIBT(153,0)="PRCH REQUESTING SVC^2970825.1513^^410^^^2970908"
^DIBT(153,2,0)="^.4014^4^4"
^DIBT(153,2,1,0)="410^^INTERNAL(FORM TYPE)^'@""^^^^^^4"
^DIBT(153,2,1,"CM")="S Y(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D0>0 S DISX(1)=X"
^DIBT(153,2,1,"GET")="S Y(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D0>0 S DISX(1)=X"
^DIBT(153,2,1,"QCON")="I DISX(1)'="""""
^DIBT(153,2,1,"TXT")="INTERNAL(FORM TYPE) not null"
^DIBT(153,2,2,0)="410^44^DATE SIGNED (APPROVED)^'@^^^^^^1"
^DIBT(153,2,2,"ASK")="1"
^DIBT(153,2,2,"F")="2970600.99999^0601^6/1/97"
^DIBT(153,2,2,"GET")="S DISX(2)=$P($G(^PRCS(410,D0,7)),U,5)"
^DIBT(153,2,2,"QCON")="I DISX(2)'="""""
^DIBT(153,2,2,"SER")="0.7000^0.7000"
^DIBT(153,2,2,"T")="z^"
^DIBT(153,2,2,"TXT")="DATE SIGNED (APPROVED) not null"
^DIBT(153,2,3,0)="410^^REQUESTING SERVICE^+""6.3^;""SVC: "";S2^^^^^4"
^DIBT(153,2,3,"ASK")="1"
^DIBT(153,2,3,"CM")="S Y(1)=$S($D(^PRCS(410,D0,3)):^(3),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(153,2,3,"F")="FISBz^FISC"
^DIBT(153,2,3,"GET")="S Y(1)=$S($D(^PRCS(410,D0,3)):^(3),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(153,2,3,"QCON")="I DISX(3)'="""""
^DIBT(153,2,3,"T")="FISC^FISC"
^DIBT(153,2,3,"TXT")="REQUESTING SERVICE not null"
^DIBT(153,2,4,0)="410^7.5^PRIORITY OF REQUEST^+^;""PRIORITY: "";S^^^^^3"
^DIBT(153,2,4,"GET")="S DISX(4)=$P($G(^PRCS(410,D0,1)),U,3)"
^DIBT(153,2,4,"QCON")="I DISX(4)'="""""
^DIBT(153,2,4,"SER")="0.5400^0.5400"
^DIBT(153,2,4,"TXT")="PRIORITY OF REQUEST not null"
^DIBT(153,2,"B",410,1)=""
^DIBT(153,2,"B",410,2)=""
^DIBT(153,2,"B",410,3)=""
^DIBT(153,2,"B",410,4)=""
^DIBT(154,0)="PRCH FPDS <25K^2881208^^442^^^^"
^DIBT(154,2,0)="^.4014^4^4"
^DIBT(154,2,1,0)="442^.1^P.O. DATE^'@^^^^^^1"
^DIBT(154,2,1,"ASK")="1"
^DIBT(154,2,1,"F")="2941219.99999^2941220^12/20/94"
^DIBT(154,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(154,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(154,2,1,"QCON")="I (DISX(1)]]2941219.99999)&(DISX(1)']]2950330)"
^DIBT(154,2,1,"SER")="3.2083^0.7624"
^DIBT(154,2,1,"T")="2950330^2950330^3/30/95"
^DIBT(154,2,1,"TXT")="P.O. DATE from 12/20/94 to 3/30/95"
^DIBT(154,2,2,0)="442^.01^PURCHASE ORDER NUMBER^'@^^^^^^4"
^DIBT(154,2,2,"ASK")="1"
^DIBT(154,2,2,"F")="688,z^688-"
^DIBT(154,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(154,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(154,2,2,"QCON")="I (DISX(2)]]""688,z"")&(DISX(2)']]""688z"")"
^DIBT(154,2,2,"SER")="0.0202^0.0198"
^DIBT(154,2,2,"T")="688z^688z"
^DIBT(154,2,2,"TXT")="PURCHASE ORDER NUMBER from 688- to 688z"
^DIBT(154,2,3,0)="442^^.5:#.02^'@#""^^^^^^4"
^DIBT(154,2,3,3,0)="^.401419^1^1"
^DIBT(154,2,3,3,1,0)="OVF0^9.2"
^DIBT(154,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCD(442.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(442.3,D0,0)):^(0),1:"""")"
^DIBT(154,2,3,3,"B","OVF0",1)=""
^DIBT(154,2,3,"ASK")="1"
^DIBT(154,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(154,2,3,"F")="8.99999^9"
^DIBT(154,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(154,2,3,"QCON")="I DISX(3)]]8.99999"
^DIBT(154,2,3,"T")="z^"
^DIBT(154,2,3,"TXT")=".5:#.02 from 9"
^DIBT(154,2,4,0)="442^91^TOTAL AMOUNT^'@^^^^^^2"
^DIBT(154,2,4,"ASK")="1"
^DIBT(154,2,4,"F")="-1^0"
^DIBT(154,2,4,"GET")="S DISX(4)=$P($G(^PRC(442,D0,0)),U,15)"
^DIBT(154,2,4,"QCON")="I (DISX(4)]]-1)&(DISX(4)']]25000)"
^DIBT(154,2,4,"SER")="0.1485^0.1485"
^DIBT(154,2,4,"T")="25000^25000"
^DIBT(154,2,4,"TXT")="TOTAL AMOUNT from 0 to 25000"
^DIBT(154,2,"B",442,1)=""
^DIBT(154,2,"B",442,2)=""
^DIBT(154,2,"B",442,3)=""
^DIBT(154,2,"B",442,4)=""
^DIBT(155,0)="PRCH FPDS CONTRACT #^2881208^^442^^^^"
^DIBT(155,2,1)="442^.1^P.O. DATE^'@^"
^DIBT(155,2,1,"ASK")=""
^DIBT(155,2,1,"F")="2880900.99999"
^DIBT(155,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(155,2,1,"T")="z"
^DIBT(155,2,2)="442^^.5:#.02^'@#""^"
^DIBT(155,2,2,"ASK")=""
^DIBT(155,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(155,2,2,"F")="8.99999"
^DIBT(155,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCD(442.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(442.3,D0,0)):^(0),1:"""")"
^DIBT(155,2,2,"T")="z"
^DIBT(155,2,3)="442.1^2^CONTRACT #^+^;S1"
^DIBT(155,2,3,442)="9"
^DIBT(155,2,4)="442^.01^PURCHASE ORDER NUMBER^@^"
^DIBT(155,2,4,"ASK")=""
^DIBT(155,2,4,"F")="661.99999"
^DIBT(155,2,4,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(155,2,4,"T")="z"
^DIBT(156,0)="PRCH FPDS LI^2881208^^442^^^^"
^DIBT(156,2,1)="442^.1^P.O. DATE^'@^"
^DIBT(156,2,1,"ASK")=""
^DIBT(156,2,1,"F")="2880900.99999"
^DIBT(156,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(156,2,1,"T")="z"
^DIBT(156,2,2)="442^.01^PURCHASE ORDER NUMBER^'^"
^DIBT(156,2,2,"ASK")=""
^DIBT(156,2,2,"F")="661.99999"
^DIBT(156,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(156,2,2,"T")="z"
^DIBT(156,2,3)="442^^.5:#.02^'@""^"
^DIBT(156,2,3,"ASK")=""
^DIBT(156,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(156,2,3,"F")="8.99999"
^DIBT(156,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCD(442.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(442.3,D0,0)):^(0),1:"""")"
^DIBT(156,2,3,"T")="z"
^DIBT(156,2,4)="442^15^LINE ITEM COUNT^'^"
^DIBT(157,0)="PRCSFACPT^2940518.1244^^410^^^^"
^DIBT(157,2,1)="410^15^CONTROL POINT^@^"
^DIBT(157,2,1,"IX")="^PRCS(410,""AN"",^PRCS(410,^2"
^DIBT(157,2,2)="410^31^FMS DATE^@^"
^DIBT(157,2,3)="410^24^PURCHASE ORDER/OBLIGATION NO^@^"
^DIBT(157,2,3,"IX")="^PRCS(410,""D"",^PRCS(410,^2"
^DIBT(157,2,4)="410^.01^TRANSACTION NUMBER^@^"
^DIBT(157,2,4,"IX")="^PRCS(410,""B"",^PRCS(410,^2"
^DIBT(158,0)="PRCFA RR INQUIRY LISTING^2890802^^421.2^^^^"
^DIBT(158,2,0)="^.4014^3^3"
^DIBT(158,2,1,0)="421.2^.5^TYPE^^^^^^^3"
^DIBT(158,2,1,"F")="Qz"
^DIBT(158,2,1,"GET")="S DISX(1)=$P($G(^PRCF(421.2,D0,0)),U,3)"
^DIBT(158,2,1,"QCON")="I (DISX(1)]]""Qz"")&(DISX(1)']]""RED"")"
^DIBT(158,2,1,"SER")="0.2209^0.2209"
^DIBT(158,2,1,"T")="RED"
^DIBT(158,2,1,"TXT")="TYPE"
^DIBT(158,2,2,0)="421.2^.7^DATE CREATED^^^^^^^1"
^DIBT(158,2,2,"ASK")="1"
^DIBT(158,2,2,"F")="2950300.99999^3/1/95^3/1/95"
^DIBT(158,2,2,"GET")="S DISX(2)=$P($G(^PRCF(421.2,D0,0)),U,10)"
^DIBT(158,2,2,"QCON")="I DISX(2)]]2950300.99999"
^DIBT(158,2,2,"SER")="0.9884^0.9884"
^DIBT(158,2,2,"T")="z^"
^DIBT(158,2,2,"TXT")="DATE CREATED from 3/1/95"
^DIBT(158,2,3,0)="421.2^.01^BATCH/TRANSMISSION NUMBER^^^^^^^4"
^DIBT(158,2,3,"ASK")="1"
^DIBT(158,2,3,"F")="687.99999^688"
^DIBT(158,2,3,"GET")="S DISX(3)=$P($G(^PRCF(421.2,D0,0)),U,1)"
^DIBT(158,2,3,"IX")="^PRCF(421.2,""B"",^PRCF(421.2,^2"
^DIBT(158,2,3,"QCON")="I DISX(3)]]687.99999"
^DIBT(158,2,3,"SER")="0.0000^0.0000"
^DIBT(158,2,3,"T")="z^"
^DIBT(158,2,3,"TXT")="BATCH/TRANSMISSION NUMBER from 688"
^DIBT(158,2,"B",421.2,1)=""
^DIBT(158,2,"B",421.2,2)=""
^DIBT(158,2,"B",421.2,3)=""
^DIBT(159,0)="PRCFUO^2890308^^442^^^^"
^DIBT(159,2,0)="^.4014^3^3"
^DIBT(159,2,1,0)="442^1.4^APPROPRIATION^@^^^^^^4"
^DIBT(159,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,0)),U,4)"
^DIBT(159,2,1,"QCON")="I DISX(1)'="""""
^DIBT(159,2,1,"SER")="0.1287^0.1287"
^DIBT(159,2,1,"TXT")="APPROPRIATION not null"
^DIBT(159,2,2,0)="442^.01^PURCHASE ORDER NUMBER^@^^^^^^4"
^DIBT(159,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(159,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(159,2,2,"QCON")="I DISX(2)'="""""
^DIBT(159,2,2,"SER")="0.0202^0.0198"
^DIBT(159,2,2,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(159,2,3,0)="442.09^5^DATE SIGNED^'@^^^^^^1"
^DIBT(159,2,3,1,0)="^.40141^1^1"
^DIBT(159,2,3,1,1,0)="442^10"
^DIBT(159,2,3,1,"B",442,1)=""
^DIBT(159,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,10,D1,0)),U,6)"
^DIBT(159,2,3,"QCON")="I DISX(3)'="""""
^DIBT(159,2,3,"TXT")="DATE SIGNED not null"
^DIBT(159,2,"B",442,1)=""
^DIBT(159,2,"B",442,2)=""
^DIBT(159,2,"B",442.09,3)=""
^DIBT(160,0)="PRCH W/O FPDS^2881208^^442^^^^"
^DIBT(160,2,1)="442^.1^P.O. DATE^'@^"
^DIBT(160,2,1,"ASK")=""
^DIBT(160,2,1,"F")="2880900.99999"
^DIBT(160,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(160,2,1,"T")="z"
^DIBT(160,2,2)="442^.01^PURCHASE ORDER NUMBER^^"
^DIBT(160,2,2,"ASK")=""
^DIBT(160,2,2,"F")="661.99999"
^DIBT(160,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(160,2,2,"T")="z"
^DIBT(160,2,3)="442^^.5:#.02^'@""^"
^DIBT(160,2,3,"ASK")=""
^DIBT(160,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(160,2,3,"F")="8.99999"
^DIBT(160,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRCD(442.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(442.3,D0,0)):^(0),1:"""")"
^DIBT(160,2,3,"T")="z"
^DIBT(160,2,4)="442^91^TOTAL AMOUNT^'@^"
^DIBT(160,2,4,"ASK")=""
^DIBT(160,2,4,"F")="8.99999"
^DIBT(160,2,4,"T")="22"
^DIBT(160,2,5)="442.1^^$S(#1=""""!(#1.1="""")!(#1.2=""""):1,1:0)^'@""^"
^DIBT(160,2,5,442)="9"
^DIBT(160,2,5,"ASK")=""
^DIBT(160,2,5,"CM")="X DPP(5,""OVF1"",9.3) S X=X="""",Y=X,X=Y(3),X=X!Y,Y(4)=X S X=1,Y(5)=X S X=1,Y(6)=X S X=0,X=$S(Y(4):Y(5),Y(6):X) I D1>0 S X(5)=X"
^DIBT(160,2,5,"F")=".99999"
^DIBT(160,2,5,"OVF1",9.2)="S Y(1)=$S($D(^PRC(442,D0,9,D1,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.6,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""",Y(2)=X"
^DIBT(160,2,5,"OVF1",9.3)="X DPP(5,""OVF1"",9.2) S X=$S('$D(^PRCD(420.6,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1))="""",Y=X,X=Y(2),X=X!Y,Y(3)=X S X=$S('$D(^PRCD(420.6,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))"
^DIBT(160,2,5,"T")="1"
^DIBT(161,0)="PRCFUOMS^2890301^^442^^^^"
^DIBT(161,2,0)="^.4014^3^3"
^DIBT(161,2,1,0)="442^^$S(#8:#2'=3&(#8:#2'=7):#8:#2,1:"""")^'""^^^^^^4"
^DIBT(161,2,1,3,0)="^.401419^4^4"
^DIBT(161,2,1,3,1,0)="OVF0^9.2"
^DIBT(161,2,1,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:""""),D0=$P(Y(1),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(161,2,1,3,2,0)="OVF0^9.3"
^DIBT(161,2,1,3,2,"OVF0")="X DPP(1,""OVF0"",9.2) S Y(101)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3)'=3,Y(102)=X,D0=$P(Y(1),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S I(200,0)=$S($D(D0):D0,1:"""")"
^DIBT(161,2,1,3,3,0)="OVF0^9.4"
^DIBT(161,2,1,3,3,"OVF0")="X DPP(1,""OVF0"",9.3) S Y(201)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""") S X=$P(Y(201),U,3)'=7,Y=X,X=Y(102),X=X&Y,Y(202)=X"
^DIBT(161,2,1,3,4,0)="OVF0^9.5"
^DIBT(161,2,1,3,4,"OVF0")="X DPP(1,""OVF0"",9.4) S D0=$P(Y(1),U,7) S:'$D(^PRCD(420.8,+D0,0)) D0=-1 S Y(301)=$S($D(^PRCD(420.8,D0,0)):^(0),1:"""") S X=$P(Y(301),U,3),Y(302)=X S X=1,Y(303)=X S X="""""
^DIBT(161,2,1,3,"B","OVF0",1)=""
^DIBT(161,2,1,3,"B","OVF0",2)=""
^DIBT(161,2,1,3,"B","OVF0",3)=""
^DIBT(161,2,1,3,"B","OVF0",4)=""
^DIBT(161,2,1,"CM")="X DPP(1,""OVF0"",9.5) S X=$S(Y(202):Y(302),Y(303):X) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(161,2,1,"GET")="X DPP(1,""OVF0"",9.5) S X=$S(Y(202):Y(302),Y(303):X) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(161,2,1,"QCON")="I DISX(1)'="""""
^DIBT(161,2,1,"TXT")="$S(#8:#2'=3&(#8:#2'=7):#8:#2,1:"""""""") not null"
^DIBT(161,2,2,0)="442^.01^PURCHASE ORDER NUMBER^@^^^^^^4"
^DIBT(161,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(161,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(161,2,2,"QCON")="I DISX(2)'="""""
^DIBT(161,2,2,"SER")="0.0202^0.0198"
^DIBT(161,2,2,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(161,2,3,0)="442.09^5^DATE SIGNED^'@^^^^^^1"
^DIBT(161,2,3,1,0)="^.40141^1^1"
^DIBT(161,2,3,1,1,0)="442^10"
^DIBT(161,2,3,1,"B",442,1)=""
^DIBT(161,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,10,D1,0)),U,6)"
^DIBT(161,2,3,"QCON")="I DISX(3)'="""""
^DIBT(161,2,3,"TXT")="DATE SIGNED not null"
^DIBT(161,2,"B",442,1)=""
^DIBT(161,2,"B",442,2)=""
^DIBT(161,2,"B",442.09,3)=""
^DIBT(162,0)="PRCFA ERROR LIST^2890329^^423^^^^"
^DIBT(162,2,1)="423^.23^ERROR IN BATCHING^]@^"
^DIBT(162,2,1,"IX")="^PRCF(423,""AL"",^PRCF(423,^2"
^DIBT(162,2,2)="423^.01^ID^^"
^DIBT(162,2,2,"IX")="^PRCF(423,""B"",^PRCF(423,^2"
^DIBT(163,0)="PRCB FCP LIST OF MGR/USER^2940610.0816^^420^^^^"
^DIBT(163,2,1)="420.01^^PROGRAM^""26^"
^DIBT(163,2,1,420)="1"
^DIBT(163,2,1,"CM")="S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$S('$D(^PRCD(420.13,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(163,2,2)="420.01^.01^CONTROL POINT^^"
^DIBT(163,2,2,420)="1"
^DIBT(164,0)="PRCB FCP PO STATUS^2890629^^442^^^^"
^DIBT(164,2,1)="442^1^FCP^+^;S1"
^DIBT(164,2,1,"ASK")=""
^DIBT(164,2,1,"F")="043z"
^DIBT(164,2,1,"T")="089"
^DIBT(164,2,2)="442^106^DATE SIGNED^'^"
^DIBT(164,2,2,"ASK")=""
^DIBT(164,2,2,"F")="2890100.99999"
^DIBT(164,2,2,"T")="2890701.9999"
^DIBT(164,2,3)="442^^""""^@""^;S1"
^DIBT(164,2,3,"CM")="S X="""" I D0>0 S X(3)=X"
^DIBT(164,2,3,"F")="?z"
^DIBT(164,2,3,"T")="@"
^DIBT(165,0)="PRCB FCP SUB-ACCOUNT LIST^2890502^^420^^^^"
^DIBT(165,2,1)="420.01^.01^CONTROL POINT^^"
^DIBT(165,2,1,420)="1"
^DIBT(165,2,2)="420^^""""^@""^;S1"
^DIBT(165,2,2,"CM")="S X="""" I D0>0 S X(2)=X"
^DIBT(165,2,2,"F")="?z"
^DIBT(165,2,2,"T")="@"
^DIBT(166,0)="PRCHOUT RR NOT PROC.BY FISCAL^2911212.1005^^442^^^^"
^DIBT(166,2,0)="^.4014^5^5"
^DIBT(166,2,1,0)="442^.1^P.O. DATE^@^^^^^^1"
^DIBT(166,2,1,"ASK")="1"
^DIBT(166,2,1,"F")="2950316.99999^T-5^3/17/95"
^DIBT(166,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(166,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(166,2,1,"QCON")="I DISX(1)]]2950316.99999"
^DIBT(166,2,1,"SER")="49.5000^0.9802"
^DIBT(166,2,1,"T")="z^"
^DIBT(166,2,1,"TXT")="P.O. DATE from 3/17/95"
^DIBT(166,2,2,0)="442^.7^SUPPLY STATUS ORDER^@'^^^^^^2"
^DIBT(166,2,2,"F")="24.99999^25"
^DIBT(166,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,7)),U,2)"
^DIBT(166,2,2,"IX")="^PRC(442,""AH"",^PRC(442,^2"
^DIBT(166,2,2,"QCON")="I (DISX(2)]]24.99999)&(DISX(2)']]33)"
^DIBT(166,2,2,"SER")="7.4167^0.8812"
^DIBT(166,2,2,"T")="33^33"
^DIBT(166,2,2,"TXT")="SUPPLY STATUS ORDER from 25 to 33"
^DIBT(166,2,3,0)="442^^SUPPLY STATUS ORDER'=27^@'""@B^;L1;L1^^^^^4"
^DIBT(166,2,3,"CM")="S Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2)'=27 I D0>0 S DISX(3)=X"
^DIBT(166,2,3,"F")="0"
^DIBT(166,2,3,"GET")="S Y(1)=$S($D(^PRC(442,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2)'=27 I D0>0 S DISX(3)=X"
^DIBT(166,2,3,"QCON")="I DISX(3)"
^DIBT(166,2,3,"T")="1"
^DIBT(166,2,3,"TXT")="SUPPLY STATUS ORDER'=27"
^DIBT(166,2,4,0)="442.11^5^PROCESSED BY FISCAL?^'@'@^^^^^^3"
^DIBT(166,2,4,1,0)="^.40141^1^1"
^DIBT(166,2,4,1,1,0)="442^11"
^DIBT(166,2,4,1,"B",442,1)=""
^DIBT(166,2,4,"F")="?z^@"
^DIBT(166,2,4,"GET")="S DISX(4)=$P($G(^PRC(442,D0,11,D1,0)),U,6)"
^DIBT(166,2,4,"QCON")="I DISX(4)="""""
^DIBT(166,2,4,"T")="@^@"
^DIBT(166,2,4,"TXT")="PROCESSED BY FISCAL? is null"
^DIBT(166,2,5,0)="442^.01^PURCHASE ORDER NUMBER^^^^^^^4"
^DIBT(166,2,5,"GET")="S DISX(5)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(166,2,5,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(166,2,5,"QCON")="I DISX(5)'="""""
^DIBT(166,2,5,"SER")="0.0202^0.0198"
^DIBT(166,2,5,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(166,2,"B",442,1)=""
^DIBT(166,2,"B",442,2)=""
^DIBT(166,2,"B",442,3)=""
^DIBT(166,2,"B",442,5)=""
^DIBT(166,2,"B",442.11,4)=""
^DIBT(167,0)="PRCFA STATUS OF PAT^2890919.0822^^442^^^^"
^DIBT(167,2,1)="442^.01^PURCHASE ORDER NUMBER^@^"
^DIBT(167,2,1,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(167,2,2)="442^106^DATE SIGNED^@^"
^DIBT(167,2,2,"ASK")=""
^DIBT(167,2,2,"F")="2880923.99999"
^DIBT(167,2,2,"T")="2890919.9999"
^DIBT(167,2,3)="442^.7^SUPPLY STATUS ORDER^@^"
^DIBT(167,2,3,"ASK")=""
^DIBT(167,2,3,"F")=".99999"
^DIBT(167,2,3,"IX")="^PRC(442,""AH"",^PRC(442,^2"
^DIBT(167,2,3,"T")="30"
^DIBT(168,0)="PRCB BY TRANSACTION NUMBER^2850320^^421^^^^"
^DIBT(168,2,0)="^.4014^1^1"
^DIBT(168,2,1,0)="421^.01^TRANSACTION NUMBER^]^^^^^^4"
^DIBT(168,2,1,"ASK")="1"
^DIBT(168,2,1,"F")="688-95-0000z^688-95-0001"
^DIBT(168,2,1,"GET")="S DISX(1)=$P($G(^PRCF(421,D0,0)),U,1)"
^DIBT(168,2,1,"IX")="^PRCF(421,""B"",^PRCF(421,^2"
^DIBT(168,2,1,"QCON")="I (DISX(1)]]""688-95-0000z"")&(DISX(1)']]""688-95-0021"")"
^DIBT(168,2,1,"SER")="5.3000^0.8413"
^DIBT(168,2,1,"T")="688-95-0021^688-95-0021"
^DIBT(168,2,1,"TXT")="TRANSACTION NUMBER from 688-95-0001 to 688-95-0021"
^DIBT(168,2,"B",421,1)=""
^DIBT(169,0)="PRCB BY TRANS/TDA^2940620.1322^^421^^^^"
^DIBT(169,2,1)="421^.5^SIFY^]@^"
^DIBT(169,2,1,"IX")="^PRCF(421,""AJ"",^PRCF(421,^2"
^DIBT(169,2,2)="421^3^TDA NUMBER^^"
^DIBT(169,2,2,"IX")="^PRCF(421,""C"",^PRCF(421,^2"
^DIBT(170,0)="PRCB BY APPROP/TDA^2890417^^421^^^^"
^DIBT(170,2,1)="421^.5^SIFY^]@^"
^DIBT(170,2,1,"ASK")=""
^DIBT(170,2,1,"F")=".99999"
^DIBT(170,2,1,"IX")="^PRCF(421,""AJ"",^PRCF(421,^2"
^DIBT(170,2,1,"T")="z"
^DIBT(170,2,2)="421^^(RECURRING FTEE'=0!(NON RECUR FTEE'=0)!(TRNG FTEE'=0))^@'""@B^;L1"
^DIBT(170,2,2,"CM")="S Y(1)=$S($D(^PRCF(421,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13)'=0,Y(2)=X S X=$P(Y(1),U,14)'=0,Y=X,X=Y(2),X=X!Y,Y(3)=X S X=$P(Y(1),U,15)'=0,Y=X,X=Y(3),X=X!Y I D0>0 S X(2)=X"
^DIBT(170,2,2,"F")="0"
^DIBT(170,2,2,"T")="1"
^DIBT(170,2,3)="421^13.5^APPROPRIATION^+^;S2"
^DIBT(170,2,4)="421^3^TDA NUMBER^^"
^DIBT(171,0)="PRCB BY SEARCH/FCP/TRANS^2881207^^421^^^^"
^DIBT(171,2,1)="421^.9^ON SEARCH LIST^]@^"
^DIBT(171,2,1,"F")=".99999"
^DIBT(171,2,1,"IX")="^PRCF(421,""AM"",^PRCF(421,^2"
^DIBT(171,2,1,"T")="z"
^DIBT(171,2,2)="421^1^CONTROL POINT^+#^"
^DIBT(171,2,3)="421^.01^TRANSACTION NUMBER^^"
^DIBT(171,2,3,"IX")="^PRCF(421,""B"",^PRCF(421,^2"
^DIBT(172,0)="PRCB BY APP/FCP^2890417^^421^^^^"
^DIBT(172,2,0)="^.4014^3^3"
^DIBT(172,2,1,0)="421^.5^SIFY^@^^^^^^4"
^DIBT(172,2,1,"ASK")="1"
^DIBT(172,2,1,"F")="688-94z^688-95"
^DIBT(172,2,1,"GET")="S DISX(1)=$P($G(^PRCF(421,D0,0)),U,12)"
^DIBT(172,2,1,"IX")="^PRCF(421,""AJ"",^PRCF(421,^2"
^DIBT(172,2,1,"QCON")="I DISX(1)=""688-95"""
^DIBT(172,2,1,"SER")="5.2000^0.8387"
^DIBT(172,2,1,"T")="688-95^688-95"
^DIBT(172,2,1,"TXT")="SIFY equals 688-95"
^DIBT(172,2,2,0)="421^13.5^APPROPRIATION^+^;S2^^^^^4"
^DIBT(172,2,2,"GET")="S DISX(2)=$P($G(^PRCF(421,D0,0)),U,16)"
^DIBT(172,2,2,"QCON")="I DISX(2)'="""""
^DIBT(172,2,2,"SER")="0.0968^0.0968"
^DIBT(172,2,2,"TXT")="APPROPRIATION not null"
^DIBT(172,2,3,0)="421^1^CONTROL POINT^+^;S^^^^^4"
^DIBT(172,2,3,"GET")="S DISX(3)=$P($G(^PRCF(421,D0,0)),U,2)"
^DIBT(172,2,3,"QCON")="I DISX(3)'="""""
^DIBT(172,2,3,"SER")="0.0645^0.0645"
^DIBT(172,2,3,"TXT")="CONTROL POINT not null"
^DIBT(172,2,"B",421,1)=""
^DIBT(172,2,"B",421,2)=""
^DIBT(172,2,"B",421,3)=""
^DIBT(174,0)="PRCB SORT BY SIFY/TDA^2890816^^421^^^^"
^DIBT(174,2,1)="421^.5^SIFY^@^"
^DIBT(174,2,1,"ASK")=""
^DIBT(174,2,1,"F")=".99999"
^DIBT(174,2,1,"IX")="^PRCF(421,""AJ"",^PRCF(421,^2"
^DIBT(174,2,1,"T")="z"
^DIBT(174,2,2)="421^2.5^BUDGET SORT ORDER^@^"
^DIBT(174,2,3)="421^^BUDGET SORT CATEGORY^+""2^;S3"
^DIBT(174,2,3,"CM")="S Y(1)=$S($D(^PRCF(421,D0,0)):^(0),1:"""") S X=$S('$D(^PRCF(420.7,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(174,2,4)="421^.01^TRANSACTION NUMBER^^"
^DIBT(174,2,4,"IX")="^PRCF(421,""B"",^PRCF(421,^2"
^DIBT(175,0)="PRCFA RECEIVING REPORT LIST^2880822^^442.9^^^^"
^DIBT(175,2,0)="^.4014^3^3"
^DIBT(175,2,1,0)="442.9^^I +^@""^^^^^^4"
^DIBT(175,2,1,"CM")="I +^PRC(442.9,D0,0)=PRC(""SITE"") I D0>0 S DISX(1)=X"
^DIBT(175,2,1,"GET")="I +^PRC(442.9,D0,0)=PRC(""SITE"") I D0>0 S DISX(1)=X"
^DIBT(175,2,1,"QCON")="I DISX(1)'="""""
^DIBT(175,2,1,"TXT")="I + not null"
^DIBT(175,2,2,0)="442.9^3^TRANSMISSION DATE^+^;S3^^^^^1"
^DIBT(175,2,2,"F")="?z"
^DIBT(175,2,2,"GET")="S DISX(2)=$P($G(^PRC(442.9,D0,0)),U,4)"
^DIBT(175,2,2,"QCON")="I 1"
^DIBT(175,2,2,"SER")="0.0000^0.0000"
^DIBT(175,2,2,"T")="z"
^DIBT(175,2,2,"TXT")="All TRANSMISSION DATE (includes nulls)"
^DIBT(175,2,3,0)="442.9^.01^NAME^^^^^^^4"
^DIBT(175,2,3,"GET")="S DISX(3)=$P($G(^PRC(442.9,D0,0)),U,1)"
^DIBT(175,2,3,"IX")="^PRC(442.9,""B"",^PRC(442.9,^2"
^DIBT(175,2,3,"QCON")="I DISX(3)'="""""
^DIBT(175,2,3,"SER")="0.0000^0.0000"
^DIBT(175,2,3,"TXT")="NAME not null"
^DIBT(175,2,"B",442.9,1)=""
^DIBT(175,2,"B",442.9,2)=""
^DIBT(175,2,"B",442.9,3)=""
^DIBT(176,0)="PRCFA REC RPT TRANS LIST^2880819^^442.9^^^^"
^DIBT(176,2,0)="^.4014^2^2"
^DIBT(176,2,1,0)="442.9^6^MESSAGE CREATED^@^^^^^^3"
^DIBT(176,2,1,"F")=".99999"
^DIBT(176,2,1,"GET")="S DISX(1)=$P($G(^PRC(442.9,D0,0)),U,7)"
^DIBT(176,2,1,"IX")="^PRC(442.9,""AC"",^PRC(442.9,^2"
^DIBT(176,2,1,"QCON")="I DISX(1)]].99999"
^DIBT(176,2,1,"SER")="0.0000^0.0000"
^DIBT(176,2,1,"T")="z"
^DIBT(176,2,1,"TXT")="MESSAGE CREATED"
^DIBT(176,2,2,0)="442.9^.01^NAME^^^^^^^4"
^DIBT(176,2,2,"GET")="S DISX(2)=$P($G(^PRC(442.9,D0,0)),U,1)"
^DIBT(176,2,2,"IX")="^PRC(442.9,""B"",^PRC(442.9,^2"
^DIBT(176,2,2,"QCON")="I DISX(2)'="""""
^DIBT(176,2,2,"SER")="0.0000^0.0000"
^DIBT(176,2,2,"TXT")="NAME not null"
^DIBT(176,2,"B",442.9,1)=""
^DIBT(176,2,"B",442.9,2)=""
^DIBT(177,0)="PRCF CI OUT SORT^2890707^^421.5^^^^"
^DIBT(177,2,1)="421.5^57^DATE DUE IN FISCAL^^"
^DIBT(177,2,1,"ASK")=""
^DIBT(177,2,1,"F")="2010100.99999"
^DIBT(177,2,1,"IX")="^PRCF(421.5,""AC"",^PRCF(421.5,^2"
^DIBT(177,2,1,"T")="z"
^DIBT(177,2,2)="421.5^^CURRENT INVOICE LOCATION^""53^;S2"
^DIBT(177,2,2,"CM")="S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(178,0)="PRCF CI DISCOUNT DUE SORT^2890908^^421.5^^^^"
^DIBT(178,2,0)="^.4014^3^3"
^DIBT(178,2,1,0)="421.5^55^DISCOUNT PAYMENT DATE^]^^^^^^1"
^DIBT(178,2,1,"ASK")="1"
^DIBT(178,2,1,"F")="2940914.99999^T-180^9/15/94"
^DIBT(178,2,1,"GET")="S DISX(1)=$P($G(^PRCF(421.5,D0,2)),U,6)"
^DIBT(178,2,1,"QCON")="I (DISX(1)]]2940914.99999)&(DISX(1)']]2950314)"
^DIBT(178,2,1,"SER")="1.0000^1.0000"
^DIBT(178,2,1,"T")="2950314^TODAY^3/14/95"
^DIBT(178,2,1,"TXT")="DISCOUNT PAYMENT DATE from 9/15/94 to 3/14/95"
^DIBT(178,2,2,0)="421.5^53^CURRENT INVOICE LOCATION^^;S2^^^^^4"
^DIBT(178,2,2,"F")="?z"
^DIBT(178,2,2,"GET")="S DISX(2)=$P($G(^PRCF(421.5,D0,2)),U,4)"
^DIBT(178,2,2,"QCON")="I 1"
^DIBT(178,2,2,"SER")="0.0000^0.0000"
^DIBT(178,2,2,"T")="z"
^DIBT(178,2,2,"TXT")="All CURRENT INVOICE LOCATION (includes nulls)"
^DIBT(178,2,3,0)="421.5^^INTERNAL(STATUS)<20^@'""@B^;L1^^^^^4"
^DIBT(178,2,3,"CM")="S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S X=X<20 I D0>0 S DISX(3)=X"
^DIBT(178,2,3,"F")="0"
^DIBT(178,2,3,"GET")="S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S X=X<20 I D0>0 S DISX(3)=X"
^DIBT(178,2,3,"QCON")="I DISX(3)"
^DIBT(178,2,3,"T")="1"
^DIBT(178,2,3,"TXT")="INTERNAL(STATUS)<20"
^DIBT(178,2,"B",421.5,1)=""
^DIBT(178,2,"B",421.5,2)=""
^DIBT(178,2,"B",421.5,3)=""
^DIBT(179,0)="PRCF CI NET DUE DATE SORT^2890908^^421.5^^^^"
^DIBT(179,2,0)="^.4014^3^3"
^DIBT(179,2,1,0)="421.5^56^NET PAYMENT DATE^]^^^^^^1"
^DIBT(179,2,1,"ASK")="1"
^DIBT(179,2,1,"F")="2940914.99999^T-180^9/15/94"
^DIBT(179,2,1,"GET")="S DISX(1)=$P($G(^PRCF(421.5,D0,2)),U,7)"
^DIBT(179,2,1,"QCON")="I (DISX(1)]]2940914.99999)&(DISX(1)']]2950314)"
^DIBT(179,2,1,"SER")="1.0000^1.0000"
^DIBT(179,2,1,"T")="2950314^TODAY^3/14/95"
^DIBT(179,2,1,"TXT")="NET PAYMENT DATE from 9/15/94 to 3/14/95"
^DIBT(179,2,2,0)="421.5^53^CURRENT INVOICE LOCATION^^;S2^^^^^4"
^DIBT(179,2,2,"F")="?z"
^DIBT(179,2,2,"GET")="S DISX(2)=$P($G(^PRCF(421.5,D0,2)),U,4)"
^DIBT(179,2,2,"QCON")="I 1"
^DIBT(179,2,2,"SER")="0.0000^0.0000"
^DIBT(179,2,2,"T")="z"
^DIBT(179,2,2,"TXT")="All CURRENT INVOICE LOCATION (includes nulls)"
^DIBT(179,2,3,0)="421.5^^INTERNAL(STATUS)<20^@'""@B^;L1^^^^^4"
^DIBT(179,2,3,"CM")="S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S X=X<20 I D0>0 S DISX(3)=X"
^DIBT(179,2,3,"F")="0"
^DIBT(179,2,3,"GET")="S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S X=X<20 I D0>0 S DISX(3)=X"
^DIBT(179,2,3,"QCON")="I DISX(3)"
^DIBT(179,2,3,"T")="1"
^DIBT(179,2,3,"TXT")="INTERNAL(STATUS)<20"
^DIBT(179,2,"B",421.5,1)=""
^DIBT(179,2,"B",421.5,2)=""
^DIBT(179,2,"B",421.5,3)=""
^DIBT(180,0)="PRCH FPDS PO REG^2890816.1102^^442^^^^"
^DIBT(180,2,1)="442^.1^P.O. DATE^'@^"
^DIBT(180,2,1,"ASK")=""
^DIBT(180,2,1,"F")="2010100.99999"
^DIBT(180,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(180,2,1,"T")="z"
^DIBT(180,2,2)="442^.7^SUPPLY STATUS ORDER^'@#^"
^DIBT(180,2,2,"ASK")=""
^DIBT(180,2,2,"F")="8.99998"
^DIBT(180,2,2,"IX")="^PRC(442,""AH"",^PRC(442,^2"
^DIBT(180,2,2,"T")="z"
^DIBT(180,2,3)="442^^METHOD OF PROCESSING^'"".02^"
^DIBT(180,2,3,"ASK")=""
^DIBT(180,2,3,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(180,2,3,"F")="-1"
^DIBT(180,2,3,"T")="@"
^DIBT(180,2,4)="442^.01^PURCHASE ORDER NUMBER^^"
^DIBT(180,2,4,"ASK")=""
^DIBT(180,2,4,"F")="000,z"
^DIBT(180,2,4,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(180,2,4,"T")="z"
^DIBT(181,0)="PRCH IMP POREG^2890816.1203^^442^^^2980902"
^DIBT(181,2,0)="^.4014^3^3"
^DIBT(181,2,1,0)="442^.1^P.O. DATE^'^^^^^^1"
^DIBT(181,2,1,"ASK")="1"
^DIBT(181,2,1,"F")="2971000.99999^10/1/97^Oct 1,1997"
^DIBT(181,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(181,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(181,2,1,"QCON")="I (DISX(1)]]2971000.99999)&(DISX(1)']]2980101)"
^DIBT(181,2,1,"SER")="5.7333^0.8515"
^DIBT(181,2,1,"T")="2980101^1/1/98^Jan 1,1998"
^DIBT(181,2,1,"TXT")="P.O. DATE from Oct 1,1997 to Jan 1,1998"
^DIBT(181,2,2,0)="442^^INTERNAL(#.02)^'@""^^^^^^4"
^DIBT(181,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(2)=X"
^DIBT(181,2,2,"F")="6.99999"
^DIBT(181,2,2,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(2)=X"
^DIBT(181,2,2,"QCON")="I (DISX(2)]]6.99999)&(DISX(2)']]7)"
^DIBT(181,2,2,"T")="7"
^DIBT(181,2,2,"TXT")="INTERNAL(#.02)"
^DIBT(181,2,3,0)="442^.01^PURCHASE ORDER NUMBER^^^^^^^4"
^DIBT(181,2,3,"ASK")="1"
^DIBT(181,2,3,"F")="'NULKz^'NULL"
^DIBT(181,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(181,2,3,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(181,2,3,"QCON")="I DISX(3)]]""'NULKz"""
^DIBT(181,2,3,"SER")="0.0306^0.0297"
^DIBT(181,2,3,"T")="z^"
^DIBT(181,2,3,"TXT")="PURCHASE ORDER NUMBER from 'NULL"
^DIBT(181,2,"B",442,1)=""
^DIBT(181,2,"B",442,2)=""
^DIBT(181,2,"B",442,3)=""
^DIBT(182,0)="PRCH REQ POREG^2890816.1343^^442^^^^"
^DIBT(182,2,1)="442^.1^P.O. DATE^'^"
^DIBT(182,2,1,"ASK")=""
^DIBT(182,2,1,"F")="2010100.99999"
^DIBT(182,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(182,2,1,"T")="z"
^DIBT(182,2,2)="442^^INTERNAL(#.02)^'@""^"
^DIBT(182,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S X(2)=X"
^DIBT(182,2,2,"F")="7.99999"
^DIBT(182,2,2,"T")="8"
^DIBT(182,2,3)="442^.01^PURCHASE ORDER NUMBER^^"
^DIBT(182,2,3,"ASK")=""
^DIBT(182,2,3,"F")="000,z"
^DIBT(182,2,3,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(182,2,3,"T")="z"
^DIBT(183,0)="PRCEC OPN1358^2920622.1547^^424^^^^"
^DIBT(183,2,0)="^.4014^3^3"
^DIBT(183,2,1,0)="424^.03^TRANSACTION TYPE^'@^^^^^^3"
^DIBT(183,2,1,"F")="ATz^AU"
^DIBT(183,2,1,"GET")="S DISX(1)=$P($G(^PRC(424,D0,0)),U,3)"
^DIBT(183,2,1,"IX")="^PRC(424,""AT"",^PRC(424,^2"
^DIBT(183,2,1,"QCON")="I DISX(1)=""AU"""
^DIBT(183,2,1,"SER")="46.5000^0.9789"
^DIBT(183,2,1,"T")="AU^AU"
^DIBT(183,2,1,"TXT")="TRANSACTION TYPE equals AU"
^DIBT(183,2,2,0)="424^.09^COMPLETED FLAG^'^^^^^^3"
^DIBT(183,2,2,"F")="?z^@"
^DIBT(183,2,2,"GET")="S DISX(2)=$P($G(^PRC(424,D0,0)),U,9)"
^DIBT(183,2,2,"QCON")="I DISX(2)="""""
^DIBT(183,2,2,"SER")="0.0000^0.0000"
^DIBT(183,2,2,"T")="@^@"
^DIBT(183,2,2,"TXT")="COMPLETED FLAG is null"
^DIBT(183,2,3,0)="424^.01^AUTHORIZATION #^^^^^^^4"
^DIBT(183,2,3,"GET")="S DISX(3)=$P($G(^PRC(424,D0,0)),U,1)"
^DIBT(183,2,3,"IX")="^PRC(424,""B"",^PRC(424,^2"
^DIBT(183,2,3,"QCON")="I DISX(3)'="""""
^DIBT(183,2,3,"SER")="0.0000^0.0000"
^DIBT(183,2,3,"TXT")="AUTHORIZATION # not null"
^DIBT(183,2,"B",424,1)=""
^DIBT(183,2,"B",424,2)=""
^DIBT(183,2,"B",424,3)=""
^DIBT(184,0)="PRCH UNPOSTED DIETETIC SORT^2950117.1439^^442^^^^"
^DIBT(184,2,0)="^.4014^3^3"
^DIBT(184,2,1,0)="442.01^41^FOOD GROUP^+^^^^^^3"
^DIBT(184,2,1,1,0)="^.40141^1^1"
^DIBT(184,2,1,1,1,0)="442^2"
^DIBT(184,2,1,1,"B",442,1)=""
^DIBT(184,2,1,"F")="?z^@"
^DIBT(184,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,2,D1,4)),U,12)"
^DIBT(184,2,1,"QCON")="I DISX(1)']]6"
^DIBT(184,2,1,"T")="6^6"
^DIBT(184,2,1,"TXT")="FOOD GROUP to 6 (includes nulls)"
^DIBT(184,2,2,0)="442^1^FCP^^^^^^^4"
^DIBT(184,2,2,"ASK")="1"
^DIBT(184,2,2,"F")="120Yz^120Z"
^DIBT(184,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,0)),U,3)"
^DIBT(184,2,2,"QCON")="I DISX(2)=""120Z"""
^DIBT(184,2,2,"SER")="1.0000^1.0000"
^DIBT(184,2,2,"T")="120Z^120Z"
^DIBT(184,2,2,"TXT")="FCP equals 120Z"
^DIBT(184,2,3,0)="442.08^.01^DATE RECEIVED^^^^^^^1"
^DIBT(184,2,3,1,0)="^.40141^2^2"
^DIBT(184,2,3,1,1,0)="442^2"
^DIBT(184,2,3,1,2,0)="442.01^3"
^DIBT(184,2,3,1,"B",442,1)=""
^DIBT(184,2,3,1,"B",442.01,2)=""
^DIBT(184,2,3,"ASK")="1"
^DIBT(184,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,2,D1,3,D2,0)),U,1)"
^DIBT(184,2,3,"QCON")="I DISX(3)'="""""
^DIBT(184,2,3,"TXT")="DATE RECEIVED not null"
^DIBT(184,2,"B",442,2)=""
^DIBT(184,2,"B",442.01,1)=""
^DIBT(184,2,"B",442.08,3)=""
^DIBT(185,0)="PRCFA REPRINT ERROR LIST^2920602.1346^^423^^^^"
^DIBT(185,2,1)="423^.3^BATCHED?^@^"
^DIBT(185,2,1,"F")="Mz^N"
^DIBT(185,2,1,"IX")="^PRCF(423,""AC"",^PRCF(423,^2"
^DIBT(185,2,1,"T")="N^N"
^DIBT(185,2,2)="423^.231^BATCHING ERROR^'^"
^DIBT(186,0)="PRCFUO MAN^2930308.1505^^442^^^^"
^DIBT(186,2,0)="^.4014^3^3"
^DIBT(186,2,1,0)="442^1.4^APPROPRIATION^@^^^^^^4"
^DIBT(186,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,0)),U,4)"
^DIBT(186,2,1,"QCON")="I DISX(1)'="""""
^DIBT(186,2,1,"SER")="0.1584^0.1584"
^DIBT(186,2,1,"TXT")="APPROPRIATION not null"
^DIBT(186,2,2,0)="442^.01^PURCHASE ORDER NUMBER^@^^^^^^4"
^DIBT(186,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(186,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(186,2,2,"QCON")="I DISX(2)'="""""
^DIBT(186,2,2,"SER")="0.0202^0.0198"
^DIBT(186,2,2,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(186,2,3,0)="442.09^5^DATE SIGNED^'@^^^^^^1"
^DIBT(186,2,3,1,0)="^.40141^1^1"
^DIBT(186,2,3,1,1,0)="442^10"
^DIBT(186,2,3,1,"B",442,1)=""
^DIBT(186,2,3,"ASK")="1"
^DIBT(186,2,3,"F")="2941223.99999^2941224^12/24/94"
^DIBT(186,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,10,D1,0)),U,6)"
^DIBT(186,2,3,"QCON")="I (DISX(3)]]2941223.99999)&(DISX(3)']]2950324.235959)"
^DIBT(186,2,3,"T")="2950324.235959^2950324@23:59:59^3/24/95@23:59:59"
^DIBT(186,2,3,"TXT")="DATE SIGNED from 12/24/94 to 3/24/95@23:59:59"
^DIBT(186,2,"B",442,1)=""
^DIBT(186,2,"B",442,2)=""
^DIBT(186,2,"B",442.09,3)=""
^DIBT(187,0)="PRCFOOR4^2941219.1206^^420.96^^^^"
^DIBT(187,2,1)="420.96^.5^STATION NUMBER^'@^"
^DIBT(187,2,1,"ASK")=""
^DIBT(187,2,1,"F")="@z^A"
^DIBT(187,2,1,"IX")="^PRCU(420.96,""AD"",^PRCU(420.96,^2"
^DIBT(187,2,1,"T")="z^"
^DIBT(187,2,2)="420.96^5^STATUS^#^;S2"
^DIBT(187,2,2,"IX")="^PRCU(420.96,""AC"",^PRCU(420.96,^2"
^DIBT(187,2,3)="420.96^.01^ID^^"
^DIBT(187,2,3,"IX")="^PRCU(420.96,""B"",^PRCU(420.96,^2"
^DIBT(188,0)="PRCFA 1358 EOM REPORT^2880316^^442^^^^"
^DIBT(188,2,0)="^.4014^6^6"
^DIBT(188,2,1,0)="442^^METHOD OF PAYMENT[""MISC. OBL""^'""@B^;L1^^^^^4"
^DIBT(188,2,1,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))[""MISC. OBL"" I D0>0 S DISX(1)=X"
^DIBT(188,2,1,"F")="0"
^DIBT(188,2,1,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))[""MISC. OBL"" I D0>0 S DISX(1)=X"
^DIBT(188,2,1,"QCON")="I DISX(1)"
^DIBT(188,2,1,"T")="1"
^DIBT(188,2,1,"TXT")="METHOD OF PAYMENT[""""MISC. OBL"""""
^DIBT(188,2,2,0)="442^^$E(PURCHASE ORDER NUMBER,1,3)^@#""^^^^^^4"
^DIBT(188,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=1,Y(3)=X S X=3,X=$E(Y(2),Y(3),X) I D0>0 S DISX(2)=X"
^DIBT(188,2,2,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=1,Y(3)=X S X=3,X=$E(Y(2),Y(3),X) I D0>0 S DISX(2)=X"
^DIBT(188,2,2,"QCON")="I DISX(2)'="""""
^DIBT(188,2,2,"TXT")="$E(PURCHASE ORDER NUMBER,1,3) not null"
^DIBT(188,2,3,0)="442^1.4^APPROPRIATION^^;S3^^^^^4"
^DIBT(188,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,0)),U,4)"
^DIBT(188,2,3,"QCON")="I DISX(3)'="""""
^DIBT(188,2,3,"SER")="0.0990^0.0990"
^DIBT(188,2,3,"TXT")="APPROPRIATION not null"
^DIBT(188,2,4,0)="442^^$E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6)^@""^^^^^^4"
^DIBT(188,2,4,3,0)="^.401419^2^2"
^DIBT(188,2,4,3,1,0)="OVF0^9.2"
^DIBT(188,2,4,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),X=0,Y(103)=0 S Y(102)="""""
^DIBT(188,2,4,3,2,0)="OVF0^9.3"
^DIBT(188,2,4,3,2,"OVF0")="X DPP(4,""OVF0"",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'?."""" """" Y(103)=Y(103)+1 I Y(103)=1 S Y(102)=Y Q"" S D(1)=D1"
^DIBT(188,2,4,3,"B","OVF0",1)=""
^DIBT(188,2,4,3,"B","OVF0",2)=""
^DIBT(188,2,4,"CM")="X DPP(4,""OVF0"",9.3) S X=Y(102),Y(104)=X S X=1,Y(105)=X S X=6,X=$E(Y(104),Y(105),X) S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(4)=X"
^DIBT(188,2,4,"GET")="X DPP(4,""OVF0"",9.3) S X=Y(102),Y(104)=X S X=1,Y(105)=X S X=6,X=$E(Y(104),Y(105),X) S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(4)=X"
^DIBT(188,2,4,"QCON")="I DISX(4)'="""""
^DIBT(188,2,4,"TXT")="$E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6) not null"
^DIBT(188,2,5,0)="442^.01^PURCHASE ORDER NUMBER^^^^^^^4"
^DIBT(188,2,5,"GET")="S DISX(5)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(188,2,5,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(188,2,5,"QCON")="I DISX(5)'="""""
^DIBT(188,2,5,"SER")="0.0100^0.0099"
^DIBT(188,2,5,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(188,2,6,0)="442^^FISCAL 1358 BALANCE'=0^""@B^;L1^^^^^4"
^DIBT(188,2,6,"CM")="S Y(1)=$S($D(^PRC(442,D0,8)):^(8),1:"""") S X=$P(Y(1),U,2)'=0 I D0>0 S DISX(6)=X"
^DIBT(188,2,6,"F")="0"
^DIBT(188,2,6,"GET")="S Y(1)=$S($D(^PRC(442,D0,8)):^(8),1:"""") S X=$P(Y(1),U,2)'=0 I D0>0 S DISX(6)=X"
^DIBT(188,2,6,"QCON")="I DISX(6)"
^DIBT(188,2,6,"T")="1"
^DIBT(188,2,6,"TXT")="FISCAL 1358 BALANCE'=0"
^DIBT(188,2,"B",442,1)=""
^DIBT(188,2,"B",442,2)=""
^DIBT(188,2,"B",442,3)=""
^DIBT(188,2,"B",442,4)=""
^DIBT(188,2,"B",442,5)=""
^DIBT(188,2,"B",442,6)=""
^DIBT(189,0)="PRCS1358 BALANCES^2890706^^424^^^^"
^DIBT(189,2,1)="424^.01^ENTRY NUMBER^@^"
^DIBT(189,2,1,"ASK")=""
^DIBT(189,2,1,"F")=".99999"
^DIBT(189,2,1,"IX")="^PRC(424,""B"",^PRC(424,^2"
^DIBT(189,2,1,"T")="z"
^DIBT(189,2,2)="424^3^ENTRY TYPE^@^"
^DIBT(189,2,3)="424^6^REFERENCE^^;S1"
^DIBT(189,2,3,"ASK")=""
^DIBT(189,2,3,"F")="@z"
^DIBT(189,2,3,"IX")="^PRC(424,""C"",^PRC(424,^2"
^DIBT(189,2,3,"T")="z"
^DIBT(189,2,4)="424^5^DATE/TIME^@^"
^DIBT(189,"%D",0)="^^2^2^2890716^"
^DIBT(189,"%D",1,0)="This sort template is for sorting Daily Records for a particular"
^DIBT(189,"%D",2,0)="Control Point Transaction."
^DIBT(190,0)="PRCS1358 OPEN DAILY RECORDS^2890612^^424^^^^"
^DIBT(190,2,1)="410^.01^TRANSACTION NUMBER^'@""^"
^DIBT(190,2,1,424,100)="410^PRCS(410,^0^S I(0,0)=D0 S Y(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S D(0)=+X"
^DIBT(190,2,1,"ASK")=""
^DIBT(190,2,1,"F")="@z"
^DIBT(190,2,1,"T")="B"
^DIBT(190,2,2)="424^^$P(#.01,""-"",3)^'""^"
^DIBT(190,2,2,"CM")="S Y(1)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",Y(3)=X S X=3,X=$P(Y(2),Y(3),X) I D0>0 S X(2)=X"
^DIBT(190,2,2,"F")="0000z"
^DIBT(190,2,2,"T")="0001"
^DIBT(190,2,3)="424^16^COMPLETED FLAG^'#^"
^DIBT(190,2,3,"F")="?z"
^DIBT(190,2,3,"T")="@"
^DIBT(190,"%D",0)="^^2^2^2890716^^"
^DIBT(190,"%D",1,0)="This sort template is for those records that have not been marked"
^DIBT(190,"%D",2,0)="(stamped) closed by the Control Point."
^DIBT(191,0)="PRCB BY REL LIST/FCP/TRANS^2881207^^421^^^^"
^DIBT(191,2,1)="421^.8^ON PRINT LIST^@^"
^DIBT(191,2,1,"F")=".99999"
^DIBT(191,2,1,"IX")="^PRCF(421,""AI"",^PRCF(421,^2"
^DIBT(191,2,1,"T")="z"
^DIBT(191,2,2)="421^1^CONTROL POINT^+#^"
^DIBT(191,2,3)="421^.01^TRANSACTION NUMBER^^"
^DIBT(191,2,3,"IX")="^PRCF(421,""B"",^PRCF(421,^2"
^DIBT(192,0)="PRCB SORT BY 285/TRANS/TDA^2890816^^421^^^^"
^DIBT(192,2,1)="421^^BUDGET SORT CATEGORY^]+""2^;S3"
^DIBT(192,2,1,"CM")="S Y(1)=$S($D(^PRCF(421,D0,0)):^(0),1:"""") S X=$S('$D(^PRCF(420.7,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(192,2,2)="421^.01^TRANSACTION NUMBER^'^"
^DIBT(192,2,2,"ASK")=""
^DIBT(192,2,2,"F")=".99999"
^DIBT(192,2,2,"IX")="^PRCF(421,""B"",^PRCF(421,^2"
^DIBT(192,2,2,"T")="z"
^DIBT(192,2,3)="421^3^TDA NUMBER^^"
^DIBT(192,2,3,"IX")="^PRCF(421,""C"",^PRCF(421,^2"
^DIBT(193,0)="PRCSASRT^2940518.124^^410^^^^"
^DIBT(193,2,0)="^.4014^3^3"
^DIBT(193,2,1,0)="410^^TRANSACTION TYPE=""OBLIGATION""^""@B^;L1^^^^^4"
^DIBT(193,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)=""OBLIGATION"" I D0>0 S DISX(1)=X"
^DIBT(193,2,1,"F")="0"
^DIBT(193,2,1,"GET")="S Y(2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)=""OBLIGATION"" I D0>0 S DISX(1)=X"
^DIBT(193,2,1,"QCON")="I DISX(1)"
^DIBT(193,2,1,"T")="1"
^DIBT(193,2,1,"TXT")="TRANSACTION TYPE=""""OBLIGATION"""""
^DIBT(193,2,2,0)="410.02^4^BOC^+^^^^^^4"
^DIBT(193,2,2,1,0)="^.40141^1^1"
^DIBT(193,2,2,1,1,0)="410^IT"
^DIBT(193,2,2,1,"B",410,1)=""
^DIBT(193,2,2,"GET")="S DISX(2)=$P($G(^PRCS(410,D0,""IT"",D1,0)),U,4)"
^DIBT(193,2,2,"QCON")="I DISX(2)'="""""
^DIBT(193,2,2,"TXT")="BOC not null"
^DIBT(193,2,3,0)="410^.01^TRANSACTION NUMBER^^^^^^^4"
^DIBT(193,2,3,"GET")="S DISX(3)=$P($G(^PRCS(410,D0,0)),U,1)"
^DIBT(193,2,3,"IX")="^PRCS(410,""B"",^PRCS(410,^2"
^DIBT(193,2,3,"QCON")="I DISX(3)'="""""
^DIBT(193,2,3,"SER")="0.0000^0.0000"
^DIBT(193,2,3,"TXT")="TRANSACTION NUMBER not null"
^DIBT(193,2,"B",410,1)=""
^DIBT(193,2,"B",410,3)=""
^DIBT(193,2,"B",410.02,2)=""
^DIBT(194,0)="PRCD BY FUND,DOC TYPE,DATA ELE^2940217.0908^^420.18^^^^"
^DIBT(194,2,0)="^.4014^3^3"
^DIBT(194,2,1,0)="420.18^^FUND^@"".01^^^^^^4"
^DIBT(194,2,1,"CM")="S Y(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.14,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(194,2,1,"GET")="S Y(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.14,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(194,2,1,"IX")="^PRCD(420.18,""B"",^PRCD(420.18,^2"
^DIBT(194,2,1,"PTRIX")="^PRCD(420.14,""B"","
^DIBT(194,2,1,"QCON")="I DISX(1)'="""""
^DIBT(194,2,1,"SER")="0.0000^0.0000"
^DIBT(194,2,1,"TXT")="FUND not null"
^DIBT(194,2,2,0)="420.18^^DOCUMENT TYPE^@""1^^^^^^4"
^DIBT(194,2,2,"CM")="S Y(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.16,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(194,2,2,"GET")="S Y(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.16,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(194,2,2,"QCON")="I DISX(2)'="""""
^DIBT(194,2,2,"TXT")="DOCUMENT TYPE not null"
^DIBT(194,2,3,0)="420.18^^DATA ELEMENT^@""2^^^^^^4"
^DIBT(194,2,3,"CM")="S Y(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.17,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(194,2,3,"GET")="S Y(1)=$S($D(^PRCD(420.18,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(420.17,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(194,2,3,"QCON")="I DISX(3)'="""""
^DIBT(194,2,3,"TXT")="DATA ELEMENT not null"
^DIBT(194,2,"B",420.18,1)=""
^DIBT(194,2,"B",420.18,2)=""
^DIBT(194,2,"B",420.18,3)=""
^DIBT(195,0)="PRCF FMS ADJUSTMENTS^2940809.1604^^420.99^^^^"
^DIBT(195,2,0)="^.4014^3^3"
^DIBT(195,2,1,0)="420.99^^FMS A=""YES""^]'""@B^;L1^^^^^4"
^DIBT(195,2,1,3,0)="^.401419^1^1"
^DIBT(195,2,1,3,1,0)="OVF0^9.2"
^DIBT(195,2,1,3,1,"OVF0")="S Y(2)=$C(59)_$S($D(^DD(420.99,8,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRCU(420.99,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1)"
^DIBT(195,2,1,3,"B","OVF0",1)=""
^DIBT(195,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=X=""YES"" I D0>0 S DISX(1)=X"
^DIBT(195,2,1,"F")="0"
^DIBT(195,2,1,"GET")="X DPP(1,""OVF0"",9.2) S X=X=""YES"" I D0>0 S DISX(1)=X"
^DIBT(195,2,1,"QCON")="I DISX(1)"
^DIBT(195,2,1,"T")="1"
^DIBT(195,2,1,"TXT")="FMS A=""""YES"""""
^DIBT(195,2,2,0)="420.99^9^CP TYPE^^;S2^^^^^3"
^DIBT(195,2,2,"GET")="S DISX(2)=$P($G(^PRCU(420.99,D0,0)),U,11)"
^DIBT(195,2,2,"QCON")="I DISX(2)'="""""
^DIBT(195,2,2,"SER")="0.0000^0.0000"
^DIBT(195,2,2,"TXT")="CP TYPE not null"
^DIBT(195,2,3,0)="420.99^.01^ID^^^^^^^4"
^DIBT(195,2,3,"GET")="S DISX(3)=$P($G(^PRCU(420.99,D0,0)),U,1)"
^DIBT(195,2,3,"IX")="^PRCU(420.99,""B"",^PRCU(420.99,^2"
^DIBT(195,2,3,"QCON")="I DISX(3)'="""""
^DIBT(195,2,3,"SER")="0.0000^0.0000"
^DIBT(195,2,3,"TXT")="ID not null"
^DIBT(195,2,"B",420.99,1)=""
^DIBT(195,2,"B",420.99,2)=""
^DIBT(195,2,"B",420.99,3)=""
^DIBT(196,0)="PRCF FMS ADJUSTMENTS^2940809.2312^^420.98^^^^"
^DIBT(196,2,1)="420.98^.01^ID^]@^"
^DIBT(196,2,1,"IX")="^PRCU(420.98,""B"",^PRCU(420.98,^2"
^DIBT(197,0)="PRCXA^2941214.1411^^420^^^^"
^DIBT(197,2,1)="420^^STATION NAME^"".01^"
^DIBT(197,2,1,"CM")="S Y(1)=$S($D(^PRC(420,D0,0)):^(0),1:"""") S X=$S('$D(^PRC(411,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(197,2,2)="420.06^.01^FISCAL YEAR^^"
^DIBT(197,2,2,420)="1"
^DIBT(197,2,2,420.01)="4"
^DIBT(197,2,2,"ASK")=""
^DIBT(197,2,2,"F")="94.99999^95"
^DIBT(197,2,2,"T")="95^95"
^DIBT(201,0)="PRCAT NEW TRANS^2880331^^433^^^^"
^DIBT(201,2,1)="433^.01^TRANSACTION NUMBER^@^"
^DIBT(201,2,1,"IX")="^PRCA(433,""B"",^PRCA(433,^2"
^DIBT(201,2,2)="433^^TRANSACTION TYPE:CALM CODE TYPE^@""^"
^DIBT(201,2,2,"CM")="X DPP(2,""OVF0"",9.2) S Y(101)=$S($D(^PRCA(430.3,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,4)_"":"",2),$C(59),1) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(201,2,2,"F")="YERz"
^DIBT(201,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRCA(433,D0,1)):^(1),1:""""),D0=$P(Y(1),U,2) S:'$D(^PRCA(430.3,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(430.3,3,0)):$P(^(0),U,3),1:"""")"
^DIBT(201,2,2,"T")="YES"
^DIBT(201,2,3)="433^3^CALM CODE DONE^^"
^DIBT(201,2,3,"F")=".99999"
^DIBT(201,2,3,"T")="1"
^DIBT(201,"%D",0)="^^3^3^2880825^"
^DIBT(201,"%D",1,0)="This template sorts transactions fro the 'New Bills Pending"
^DIBT(201,"%D",2,0)="CALM Transaction' listing."
^DIBT(201,"%D",3,0)="OPTION: PRCAT LIST PENDING CALM"
^DIBT(202,0)="PRCAS AMIS SORT^2880616^^433^^^^"
^DIBT(202,2,1)="433^6^SEGMENT^#^"
^DIBT(202,2,1,"ASK")=""
^DIBT(202,2,1,"F")="239.99999"
^DIBT(202,2,1,"T")="249"
^DIBT(202,2,2)="433^^TRANSACTION TYPE^+""12^"
^DIBT(202,2,2,"CM")="S Y(1)=$S($D(^PRCA(433,D0,1)):^(1),1:"""") S X=$S('$D(^PRCA(430.3,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(202,2,3)="433^5^DATE CALM DONE^^"
^DIBT(202,2,3,"ASK")=""
^DIBT(202,2,3,"F")="2880516.99999"
^DIBT(202,2,3,"T")="2880616.9999"
^DIBT(202,2,4)="433^^BILL NUMBER^"".03^"
^DIBT(202,2,4,"CM")="S Y(1)=$S($D(^PRCA(433,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(202,"%D",0)="^^2^2^2880825^"
^DIBT(202,"%D",1,0)="This template sorts transactions by AMIS reporting segments."
^DIBT(202,"%D",2,0)="OPTION: PRCAD AMIS REPORT"
^DIBT(203,0)="PRCAS OUTSTAND AMIS^2880616^^430^^^^"
^DIBT(203,2,1)="430^20.1^SEGMENT^+^"
^DIBT(203,2,1,"ASK")=""
^DIBT(203,2,1,"F")="242.99999"
^DIBT(203,2,1,"T")="252"
^DIBT(203,2,2)="430^^CURRENT STATUS^@""8^"
^DIBT(203,2,2,"ASK")=""
^DIBT(203,2,2,"CM")="S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430.3,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(203,2,2,"F")="ACTIVDz"
^DIBT(203,2,2,"T")="ACTIVE"
^DIBT(203,"%D",0)="^^2^2^2881006^"
^DIBT(203,"%D",1,0)="This template sorts by AMIS Segment and Current Status."
^DIBT(203,"%D",2,0)="OPTION: PRCAD AMIS REPORT"
^DIBT(204,0)="PRCAS ESTABLISH AMIS^2890404^^430^^^^"
^DIBT(204,2,1)="430^20.1^SEGMENT^+^"
^DIBT(204,2,1,"ASK")=""
^DIBT(204,2,1,"F")="242.99999"
^DIBT(204,2,1,"T")="252"
^DIBT(204,2,2)="430^16^DATE CALM DONE^^"
^DIBT(204,2,2,"ASK")=""
^DIBT(204,2,2,"F")="2880607.99999"
^DIBT(204,2,2,"T")="2890404.9999"
^DIBT(204,"%D",0)="^^3^3^2881006^^"
^DIBT(204,"%D",1,0)="This template sorts by AMIS Segment and date CALM code sheet was"
^DIBT(204,"%D",2,0)="done."
^DIBT(204,"%D",3,0)="OPTION: PRCAD AMIS REPORT"
^DIBT(207,0)="PRCA FOLLOW-UP^2930714.1433^^433^^^^"
^DIBT(207,2,1)="433^5.03^FOLLOW-UP DATE^@^"
^DIBT(207,2,1,"ASK")=""
^DIBT(207,2,1,"F")="2930713.99999^T"
^DIBT(207,2,1,"IX")="^PRCA(433,""AG"",^PRCA(433,^2"
^DIBT(207,2,1,"T")="2930714.9999^T"
^DIBT(207,2,2)="433^^PROCESSED BY^@#""42^"
^DIBT(207,2,2,"CM")="S Y(1)=$S($D(^PRCA(433,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(208,0)="PRCA LAST ACTIVITY^2930608.114^^430^^^^"
^DIBT(208,2,1)="430^^CATEGORY^@+#""2^"
^DIBT(208,2,1,"ASK")=""
^DIBT(208,2,1,"CM")="S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430.2,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(208,2,1,"F")="@z^A"
^DIBT(208,2,1,"T")="B^B"
^DIBT(208,2,2)="430^^PRCA LAST ACTIVITY^@""^;""DATE OF LAST ACTIVITY""^^D"
^DIBT(208,2,2,"ASK")=""
^DIBT(208,2,2,"CM")="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$$ACT^PRCADEL(X) S:X<0 X="""" I D0>0 S X(2)=X"
^DIBT(208,2,2,"F")="2660120.99999^T-10000"
^DIBT(208,2,2,"T")="2930608.1139^N"
^DIBT(210,0)="RCAM COMMENT^2930714.1433^^341^^^^"
^DIBT(210,2,1)="341^4.02^FOLLOW-UP DATE^@^"
^DIBT(210,2,1,"ASK")=""
^DIBT(210,2,1,"F")="2930713.99999^T"
^DIBT(210,2,1,"IX")="^RC(341,""AE"",^RC(341,^2"
^DIBT(210,2,1,"T")="2930714.9999^T"
^DIBT(210,2,2)="341^^CREATED BY^@#"".08^"
^DIBT(210,2,2,"CM")="S Y(1)=$S($D(^RC(341,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(211,0)="PRCARFD^2940203.0959^^430^^^^"
^DIBT(211,2,1)="430^^CURRENT STATUS=""REFUND REVIEW""^]""@B^;L1"
^DIBT(211,2,1,"CM")="S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$S('$D(^PRCA(430.3,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1))=""REFUND REVIEW"" I D0>0 S X(1)=X"
^DIBT(211,2,1,"F")="0"
^DIBT(211,2,1,"T")="1"
^DIBT(211,2,2)="430^79.19^REFUNDED DATE^^"
^DIBT(211,"%D",0)="^^2^2^2940203^"
^DIBT(211,"%D",1,0)="This template is used to list all refunds that have not been REFUNDED"
^DIBT(211,"%D",2,0)="and passed to the CERTIFYING OFFICIAL yet."
^DIBT(211,"DIPT")="PRCARFD"
^DIBT(213,0)="PSNFRMSRT^2920925.1259^^50^^^2930310"
^DIBT(213,2,1)="50^26^VA DRUG CLASS CODE^@^;S1"
^DIBT(213,2,1,"ASK")=""
^DIBT(213,2,1,"F")="@z^A"
^DIBT(213,2,1,"T")="Z^Z"
^DIBT(213,2,2)="50^51^NON-FORMULARY^@^"
^DIBT(213,2,2,"F")="?z^@"
^DIBT(213,2,2,"T")="@^@"
^DIBT(213,2,3)="50^.01^GENERIC NAME^@^"
^DIBT(213,2,3,"IX")="^PSDRUG(""B"",^PSDRUG(^2"
^DIBT(213,2,4)="50.1^1^INTENDED USE^@@@^"
^DIBT(213,2,4,50)="1"
^DIBT(213,2,4,"F")="-1^0"
^DIBT(213,2,4,"T")="0^0"
^DIBT(214,0)="PSO DRUG LIST^2820512^^50^^^^"
^DIBT(214,2,1)="50^100^INACTIVE DATE^'^"
^DIBT(214,2,1,"F")="?z"
^DIBT(214,2,1,"T")="@"
^DIBT(214,2,2)="50^51^NON-FORMULARY^@^"
^DIBT(214,2,2,"F")="?z"
^DIBT(214,2,2,"T")="@"
^DIBT(214,2,3)="50^.01^GENERIC NAME^^"
^DIBT(214,2,3,"IX")="^PSDRUG(""B"",^PSDRUG(^2"
^DIBT(215,0)="PSO NARC LIST^2930308.155^@^52^^@^2970902^"
^DIBT(215,2,0)="^.4014^3^3"
^DIBT(215,2,1,0)="52^22^FILL DATE^+^^^^^^1"
^DIBT(215,2,1,"ASK")="1"
^DIBT(215,2,1,"F")="2950100.99999^010195^1/1/95"
^DIBT(215,2,1,"GET")="S DISX(1)=$P($G(^PSRX(D0,2)),U,2)"
^DIBT(215,2,1,"QCON")="I DISX(1)'="""""
^DIBT(215,2,1,"SER")="0.0594^0.0594"
^DIBT(215,2,1,"T")="2951010^T^10/10/95"
^DIBT(215,2,1,"TXT")="FILL DATE not null"
^DIBT(215,2,2,0)="52^^(DRUG:DEA, SPECIAL HDLG)[""A""^""@B^;L1^^^^^4"
^DIBT(215,2,2,3,0)="^.401419^1^1"
^DIBT(215,2,2,3,1,0)="OVF0^9.2"
^DIBT(215,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PSRX(D0,0)):^(0),1:""""),D0=$P(Y(1),U,6) S:'$D(^PSDRUG(+D0,0)) D0=-1 S Y(101)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$P(Y(101),U,3)"
^DIBT(215,2,2,3,"B","OVF0",1)=""
^DIBT(215,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=X[""A"" S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(215,2,2,"F")="0"
^DIBT(215,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=X[""A"" S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(215,2,2,"QCON")="I DISX(2)"
^DIBT(215,2,2,"T")="1"
^DIBT(215,2,2,"TXT")="(DRUG:DEA, SPECIAL HDLG)[""""A"""""
^DIBT(215,2,3,0)="52^^DRUG^""6^^^^^^4"
^DIBT(215,2,3,"CM")="S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"""") S X=$S('$D(^PSDRUG(+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(215,2,3,"GET")="S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"""") S X=$S('$D(^PSDRUG(+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(215,2,3,"QCON")="I DISX(3)'="""""
^DIBT(215,2,3,"TXT")="DRUG not null"
^DIBT(215,2,"B",52,1)=""
^DIBT(215,2,"B",52,2)=""
^DIBT(215,2,"B",52,3)=""
^DIBT(216,0)="PSO HOLD LIST^2940517.0936^@^52^^@^2970902^"
^DIBT(216,2,0)="^.4014^3^3"
^DIBT(216,2,1,0)="52^^DIVISION^#""20^^^^^^4"
^DIBT(216,2,1,"ASK")="1"
^DIBT(216,2,1,"CM")="S Y(1)=$S($D(^PSRX(D0,2)):^(2),1:"""") S X=$S('$D(^PS(59,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(216,2,1,"F")="STICKXz^STICKY"
^DIBT(216,2,1,"GET")="S Y(1)=$S($D(^PSRX(D0,2)):^(2),1:"""") S X=$S('$D(^PS(59,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(216,2,1,"QCON")="I DISX(1)'="""""
^DIBT(216,2,1,"T")="STICKY^STICKY"
^DIBT(216,2,1,"TXT")="DIVISION not null"
^DIBT(216,2,2,0)="52^99^HOLD REASON^^;S2^^^^^3"
^DIBT(216,2,2,"ASK")="1"
^DIBT(216,2,2,"F")="2.99999^3^3 (PATIENT REACTION)"
^DIBT(216,2,2,"GET")="S DISX(2)=$P($G(^PSRX(D0,""H"")),U,1)"
^DIBT(216,2,2,"IX")="^PSRX(""AH"",^PSRX(^2"
^DIBT(216,2,2,"QCON")="I DISX(2)=3"
^DIBT(216,2,2,"SER")="49.5000^0.9802"
^DIBT(216,2,2,"T")="3^3^3 (PATIENT REACTION)"
^DIBT(216,2,2,"TXT")="HOLD REASON equals 3 (PATIENT REACTION)"
^DIBT(216,2,3,0)="52^99.2^HOLD DATE^^^^^^^1"
^DIBT(216,2,3,"ASK")="1"
^DIBT(216,2,3,"GET")="S DISX(3)=$P($G(^PSRX(D0,""H"")),U,3)"
^DIBT(216,2,3,"QCON")="I DISX(3)'="""""
^DIBT(216,2,3,"SER")="0.9406^0.9406"
^DIBT(216,2,3,"TXT")="HOLD DATE not null"
^DIBT(216,2,"B",52,1)=""
^DIBT(216,2,"B",52,2)=""
^DIBT(216,2,"B",52,3)=""
^DIBT(217,0)="PSO INTERVENTIONS^2950829.152^^9009032.4^^^2971218^"
^DIBT(217,2,0)="^.4014^3^3"
^DIBT(217,2,1,0)="9009032.4^^INTERVENTION^+"".07^;S2;C1^^^^^4"
^DIBT(217,2,1,"CM")="S Y(1)=$S($D(^APSPQA(32.4,D0,0)):^(0),1:"""") S X=$S('$D(^APSPQA(32.3,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(217,2,1,"GET")="S Y(1)=$S($D(^APSPQA(32.4,D0,0)):^(0),1:"""") S X=$S('$D(^APSPQA(32.3,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(217,2,1,"IX")="^APSPQA(32.4,""AD"",^APSPQA(32.4,^2"
^DIBT(217,2,1,"PTRIX")="^APSPQA(32.3,""B"","
^DIBT(217,2,1,"QCON")="I DISX(1)'="""""
^DIBT(217,2,1,"SER")="0.0000^0.0000"
^DIBT(217,2,1,"TXT")="INTERVENTION not null"
^DIBT(217,2,2,0)="9009032.4^.01^INTERVENTION DATE^@^^^^^^1"
^DIBT(217,2,2,"ASK")="1"
^DIBT(217,2,2,"F")="2971216.99999^12.17.97^12/17/97"
^DIBT(217,2,2,"GET")="S DISX(2)=$P($G(^APSPQA(32.4,D0,0)),U,1)"
^DIBT(217,2,2,"IX")="^APSPQA(32.4,""B"",^APSPQA(32.4,^2"
^DIBT(217,2,2,"QCON")="I DISX(2)]]2971216.99999"
^DIBT(217,2,2,"SER")="100.0000^1.0000"
^DIBT(217,2,2,"T")="z^"
^DIBT(217,2,2,"TXT")="INTERVENTION DATE from 12/17/97"
^DIBT(217,2,3,0)="9009032.4^^PROVIDER^@"".03^^^^^^4"
^DIBT(217,2,3,"CM")="S Y(1)=$S($D(^APSPQA(32.4,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(217,2,3,"GET")="S Y(1)=$S($D(^APSPQA(32.4,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(217,2,3,"IX")="^APSPQA(32.4,""AC"",^APSPQA(32.4,^2"
^DIBT(217,2,3,"PTRIX")="^VA(200,""B"","
^DIBT(217,2,3,"QCON")="I DISX(3)'="""""
^DIBT(217,2,3,"SER")="0.0430^0.0412"
^DIBT(217,2,3,"TXT")="PROVIDER not null"
^DIBT(217,2,"B",9009032.4,1)=""
^DIBT(217,2,"B",9009032.4,2)=""
^DIBT(217,2,"B",9009032.4,3)=""
^DIBT(218,0)="PRCH CREDIT SORT^2951020.1231^^442^^^^"
^DIBT(218,2,0)="^.4014^3^3"
^DIBT(218,2,1,0)="442^1^FCP^^;S1;C20^^^^^4"
^DIBT(218,2,1,"ASK")="1"
^DIBT(218,2,1,"F")="100z^101 "
^DIBT(218,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,0)),U,3)"
^DIBT(218,2,1,"QCON")="I DISX(1)]]""100z"""
^DIBT(218,2,1,"SER")="0.2178^0.2178"
^DIBT(218,2,1,"T")="z^"
^DIBT(218,2,1,"TXT")="FCP from 101 "
^DIBT(218,2,2,0)="442^^PURCHASING/PPM AGENT^""16^;""PURCHASING AGENT: "";C20^^^^^4"
^DIBT(218,2,2,"ASK")="1"
^DIBT(218,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(218,2,2,"F")="EVERITTE,ROBIMz^EVERITTE,ROBIN"
^DIBT(218,2,2,"GET")="S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(218,2,2,"QCON")="I DISX(2)=""EVERITTE,ROBIN"""
^DIBT(218,2,2,"T")="EVERITTE,ROBIN^EVERITTE,ROBIN"
^DIBT(218,2,2,"TXT")="PURCHASING/PPM AGENT equals EVERITTE,ROBIN"
^DIBT(218,2,3,0)="442^.1^P.O. DATE^^;S1^^^^^1"
^DIBT(218,2,3,"ASK")="1"
^DIBT(218,2,3,"F")="2951008.99999^T-30^10/9/95"
^DIBT(218,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(218,2,3,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(218,2,3,"QCON")="I DISX(3)'="""""
^DIBT(218,2,3,"SER")="0.0306^0.0297"
^DIBT(218,2,3,"T")="z^"
^DIBT(218,2,3,"TXT")="P.O. DATE not null"
^DIBT(218,2,"B",442,1)=""
^DIBT(218,2,"B",442,2)=""
^DIBT(218,2,"B",442,3)=""
^DIBT(218,"%D",0)="^^3^3^2951020^^^^"
^DIBT(218,"%D",1,0)="SORT TEMPLATE CREATED FOR CREDIT CARD PURCHASES, WHICH SORTS BY"
^DIBT(218,"%D",2,0)="FUND CONTROL POINT, WITHIN FCP IT SORTS BY PURCHASING/PPM AGENT(PA)"
^DIBT(218,"%D",3,0)="AND WITHIN PA IT SORTS BY PURCHASE ORDER DATE."
^DIBT(219,0)="PRCH OVERAGE^2951130.1425^^442^^^^"
^DIBT(219,2,0)="^.4014^3^3"
^DIBT(219,2,1,0)="442^.1^P.O. DATE^'^^^^^^1"
^DIBT(219,2,1,"ASK")="1"
^DIBT(219,2,1,"F")="2960209.99999^0210^2/10/96"
^DIBT(219,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(219,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(219,2,1,"QCON")="I (DISX(1)]]2960209.99999)&(DISX(1)']]2960215)"
^DIBT(219,2,1,"SER")="100.0000^0.9901"
^DIBT(219,2,1,"T")="2960215^0215^2/15/96"
^DIBT(219,2,1,"TXT")="P.O. DATE from 2/10/96 to 2/15/96"
^DIBT(219,2,2,0)="442.11^9^OVERAGE^'^^^^^^3"
^DIBT(219,2,2,1,0)="^.40141^1^1"
^DIBT(219,2,2,1,1,0)="442^11"
^DIBT(219,2,2,1,"B",442,1)=""
^DIBT(219,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,11,D1,0)),U,10)"
^DIBT(219,2,2,"QCON")="I DISX(2)'="""""
^DIBT(219,2,2,"TXT")="OVERAGE not null"
^DIBT(219,2,3,0)="442^.01^PURCHASE ORDER NUMBER^^^^^^^4"
^DIBT(219,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,0)),U,1)"
^DIBT(219,2,3,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(219,2,3,"QCON")="I DISX(3)'="""""
^DIBT(219,2,3,"SER")="0^0"
^DIBT(219,2,3,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(219,2,"B",442,1)=""
^DIBT(219,2,"B",442,3)=""
^DIBT(219,2,"B",442.11,2)=""
^DIBT(219,"%D",0)="^^1^1^2951130^^^"
^DIBT(219,"%D",1,0)="Sort template for Overage Report"
^DIBT(220,0)="RT PRINT TEMPLATES^2861118^^.4^^^^"
^DIBT(220,2,1)=".4^4^FILE^^"
^DIBT(220,2,1,"F")="189.99999"
^DIBT(220,2,1,"T")="195.99"
^DIBT(220,2,2)=".4^.01^NAME^^"
^DIBT(220,2,2,"IX")="^DIPT(""B"",^DIPT(^2"
^DIBT(221,0)="RT INPUT TEMPLATES^2861118^^.402^^^^"
^DIBT(221,2,1)=".402^4^FILE^^"
^DIBT(221,2,1,"F")="189.99999"
^DIBT(221,2,1,"T")="195.99"
^DIBT(221,2,2)=".402^.01^NAME^^"
^DIBT(221,2,2,"IX")="^DIE(""B"",^DIE(^2"
^DIBT(222,0)="RT SORT TEMPLATES^2861118^^.401^^^^"
^DIBT(222,2,1)=".401^4^FILE^^"
^DIBT(222,2,1,"F")="189.99999"
^DIBT(222,2,1,"T")="195.99"
^DIBT(222,2,2)=".401^.01^NAME^^"
^DIBT(222,2,2,"IX")="^DIBT(""B"",^DIBT(^2"
^DIBT(223,0)="RT WARD LIST^2870227^^2^^^^"
^DIBT(223,2,1)="2.95^.01^ADMISSION DATE^'@^"
^DIBT(223,2,1,2)="DA"
^DIBT(223,2,1,"ASK")=""
^DIBT(223,2,1,"F")="2870226.99999"
^DIBT(223,2,1,"IX")="^DPT(""AA"",^DPT(^2"
^DIBT(223,2,1,"T")="2870227.9999"
^DIBT(223,2,2)="190^^APPLICATION^""'@""4^"
^DIBT(223,2,2,2,100)="190^RT(^1^S I(0,0)=$S($D(D0):D0,1:"""") X DPP(2,""OVF0"",9.2) S X="""" S D0=I(0,0)"
^DIBT(223,2,2,"ASK")=""
^DIBT(223,2,2,"CM")="S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.1,+$P(Y(101),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(223,2,2,"F")="MECz"
^DIBT(223,2,2,"OVF0",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) D M Q:'$D(D)  S D=D0"
^DIBT(223,2,2,"T")="MED"
^DIBT(223,2,3)="195.2^15^IS RECORD TEMPORARY?^""""'@^"
^DIBT(223,2,3,2,100)="190^RT(^1^S I(0,0)=$S($D(D0):D0,1:"""") X DPP(3,""OVF0"",9.2) S X="""" S D0=I(0,0)"
^DIBT(223,2,3,190,200)="195.2^DIC(195.2,^0^S I(100,0)=D0 S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S D(0)=+X"
^DIBT(223,2,3,"F")="mz"
^DIBT(223,2,3,"OVF0",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) D M Q:'$D(D)  S D=D0"
^DIBT(223,2,3,"T")="n"
^DIBT(223,2,4)="2^.1^WARD LOCATION^^"
^DIBT(223,2,4,"IX")="^DPT(""ACN"",^DPT(^2"
^DIBT(223,2,5)="2^.01^NAME^^"
^DIBT(223,2,5,"IX")="^DPT(""B"",^DPT(^2"
^DIBT(224,0)="RT ALL INPATIENTS^2870227^^2^^^^"
^DIBT(224,2,1)="2^.1^WARD LOCATION^^"
^DIBT(224,2,1,"IX")="^DPT(""ACN"",^DPT(^2"
^DIBT(224,2,2)="2^.01^NAME^^"
^DIBT(224,2,2,"IX")="^DPT(""B"",^DPT(^2"
^DIBT(224,2,3)="190^^APPLICATION^""@""4^"
^DIBT(224,2,3,2,100)="190^RT(^1^S I(0,0)=$S($D(D0):D0,1:"""") X DPP(3,""OVF0"",9.2) S X="""" S D0=I(0,0)"
^DIBT(224,2,3,"ASK")=""
^DIBT(224,2,3,"CM")="S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.1,+$P(Y(101),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(224,2,3,"F")="MECz"
^DIBT(224,2,3,"OVF0",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) D M Q:'$D(D)  S D=D0"
^DIBT(224,2,3,"T")="MED"
^DIBT(225,0)="RT DAILY LOG^2870129^^190.3^^^^"
^DIBT(225,2,1)="190.3^6^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(225,2,1,"ASK")=""
^DIBT(225,2,1,"F")="2870128.99999"
^DIBT(225,2,1,"IX")="^RTV(190.3,""C"",^RTV(190.3,^2"
^DIBT(225,2,1,"T")="2870129.9999"
^DIBT(225,2,2)="190.3^^TYPE OF MOVEMENT^+""8^"
^DIBT(225,2,2,"CM")="S Y(1)=$S($D(^RTV(190.3,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.3,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(225,2,3)="190.3^6^DATE/TIME CHARGED TO BORROWER^^"
^DIBT(225,2,3,"IX")="^RTV(190.3,""C"",^RTV(190.3,^2"
^DIBT(226,0)="RT PENDING REQUESTS^2870203^^190.1^^^^"
^DIBT(226,2,1)="190.1^4^DATE/TIME RECORD NEEDED^'@^"
^DIBT(226,2,1,"ASK")=""
^DIBT(226,2,1,"F")="2870202.99999"
^DIBT(226,2,1,"IX")="^RTV(190.1,""C"",^RTV(190.1,^2"
^DIBT(226,2,1,"T")="2870203.9999"
^DIBT(226,2,2)="190.1^^INSTITUTION OF REQUESTOR^""12^;""Institution: """
^DIBT(226,2,2,"ASK")=""
^DIBT(226,2,2,"CM")="S Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(226,2,2,"F")="@z"
^DIBT(226,2,2,"T")="Z"
^DIBT(226,2,3)="190^^ASSOCIATED ENTITY OR ITEM^""@"".01^"
^DIBT(226,2,3,190.1,100)="190^RT(^0^S I(0,0)=D0 S Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(226,2,3,"CM")="X DPP(3,""OVF100"",9.2) S X=$P(Y(101),U,1),C=$S(X="""":"","",'$D(@(U_$P(X,"";"",2)_""0)"")):"","",1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)) I C'="","" S Y=X,C=$P(^DD(+C,.01,0),U,2) D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","" I D0>0 S X(3)=X"
^DIBT(226,2,3,"OVF100",9.2)="S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(227,0)="RT CHARGED BY HOME BY BOR^2870329^^190^^^^"
^DIBT(227,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(227,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(227,2,2)="190^^INTERNAL(HOME LOCATION)^@""^"
^DIBT(227,2,2,"ASK")=""
^DIBT(227,2,2,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(2)=X"
^DIBT(227,2,2,"F")=".99999"
^DIBT(227,2,2,"T")="1"
^DIBT(227,2,3)="190^^CURRENT BORROWER/FILE ROOM^+""105^;S2;""Borrower: """
^DIBT(227,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(227,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),D0=$P(Y(1),U,5) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(227,2,4)="190^^ASSOCIATED ENTITY OR ITEM^"".01^"
^DIBT(227,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(4)=X"
^DIBT(227,2,4,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(228,0)="RT CHARGED BY HOME BY NAME^2870318^^190^^^^"
^DIBT(228,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(228,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(228,2,2)="190^^INTERNAL(HOME LOCATION)^+@""^"
^DIBT(228,2,2,"ASK")=""
^DIBT(228,2,2,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(2)=X"
^DIBT(228,2,2,"F")=".99999"
^DIBT(228,2,2,"T")="1"
^DIBT(228,2,3)="190^^ASSOCIATED ENTITY OR ITEM^"".01^"
^DIBT(228,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),U,1),C=$S(X="""":"","",'$D(@(U_$P(X,"";"",2)_""0)"")):"","",1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)) I C'="","" S Y=X,C=$P(^DD(+C,.01,0),U,2) D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","" I D0>0 S X(3)=X"
^DIBT(228,2,3,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(229,0)="RT OVER BY HOME BY BOR^2930909.1611^^190^^^^"
^DIBT(229,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(229,2,1,"ASK")=""
^DIBT(229,2,1,"F")="2660424.99999^T-9999"
^DIBT(229,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(229,2,1,"T")="z^"
^DIBT(229,2,2)="190^^INTERNAL(HOME LOCATION)^@""^"
^DIBT(229,2,2,"ASK")=""
^DIBT(229,2,2,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(2)=X"
^DIBT(229,2,2,"F")="0^0"
^DIBT(229,2,2,"IX")="^RT(""AH"",^RT(^2"
^DIBT(229,2,2,"T")="9999^9999"
^DIBT(229,2,3)="190^^CURRENT BORROWER/FILE ROOM^+""105^;S2;""Borrower: """
^DIBT(229,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(229,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),D0=$P(Y(1),U,5) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(229,2,4)="190^^INTERNAL(+.01)^@""^"
^DIBT(229,2,4,"CM")="S X=+.01,X=X I D0>0 S X(4)=X"
^DIBT(230,0)="RT OVER BY HOME BY NAME^2870218^^190^^^^"
^DIBT(230,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(230,2,1,"ASK")=""
^DIBT(230,2,1,"F")="2870217.99999"
^DIBT(230,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(230,2,1,"T")="2870218.9999"
^DIBT(230,2,2)="190^^INTERNAL(HOME LOCATION)^+@""^"
^DIBT(230,2,2,"ASK")=""
^DIBT(230,2,2,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(2)=X"
^DIBT(230,2,2,"F")="7.99999"
^DIBT(230,2,2,"IX")="^RT(""AH"",^RT(^2"
^DIBT(230,2,2,"T")="8"
^DIBT(230,2,3)="190^^ASSOCIATED ENTITY OR ITEM^"".01^"
^DIBT(230,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),U,1),C=$S(X="""":"","",'$D(@(U_$P(X,"";"",2)_""0)"")):"","",1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)) I C'="","" S Y=X,C=$P(^DD(+C,.01,0),U,2) D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","" I D0>0 S X(3)=X"
^DIBT(230,2,3,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(231,0)="RT FORMATS^2870309^^194.4^^^^"
^DIBT(231,2,1)="194.4^^APPLICATION^""3^"
^DIBT(231,2,1,"ASK")=""
^DIBT(231,2,1,"CM")="S Y(1)=$S($D(^DIC(194.4,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.1,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(231,2,1,"F")="RACz"
^DIBT(231,2,1,"T")="RADZ"
^DIBT(232,0)="RT OVER BY DIV BY BOR^2930913.0837^^190^^^^"
^DIBT(232,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(232,2,1,"ASK")=""
^DIBT(232,2,1,"F")="2660428.99999^T-9999"
^DIBT(232,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(232,2,1,"T")="z^"
^DIBT(232,2,2)="190^^HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION^""^;""Institution: """
^DIBT(232,2,2,"ASK")=""
^DIBT(232,2,2,"CM")="X DPP(2,""OVF0"",9.2) S D0=$P(Y(101),U,2) S:'$D(^SC(+D0,0)) D0=-1 S Y(201)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(201),U,4),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(232,2,2,"F")="0^0"
^DIBT(232,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,0)):^(0),1:""""),D0=$P(Y(1),U,6) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(232,2,2,"T")="9999^9999"
^DIBT(232,2,3)="190^^CURRENT BORROWER/FILE ROOM^+@""105^;S1;"""""
^DIBT(232,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(232,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),D0=$P(Y(1),U,5) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(232,2,4)="190^^ASSOCIATED ENTITY OR ITEM^@"".01^"
^DIBT(232,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(4)=X"
^DIBT(232,2,4,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(233,0)="RT OVER BY DIV BY NAME^2870318^^190^^^^"
^DIBT(233,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(233,2,1,"ASK")=""
^DIBT(233,2,1,"F")="2870317.99999"
^DIBT(233,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(233,2,1,"T")="2870318.9999"
^DIBT(233,2,2)="190^^HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION^+""^;""Institution: """
^DIBT(233,2,2,"ASK")=""
^DIBT(233,2,2,"CM")="X DPP(2,""OVF0"",9.2) S D0=$P(Y(101),U,2) S:'$D(^SC(+D0,0)) D0=-1 S Y(201)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(201),U,4),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(233,2,2,"F")="@z"
^DIBT(233,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,0)):^(0),1:""""),D0=$P(Y(1),U,6) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(233,2,2,"T")="Z"
^DIBT(233,2,3)="190^^ASSOCIATED ENTITY OR ITEM^"".01^"
^DIBT(233,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),U,1),C=$S(X="""":"","",'$D(@(U_$P(X,"";"",2)_""0)"")):"","",1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)) I C'="","" S Y=X,C=$P(^DD(+C,.01,0),U,2) D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","" I D0>0 S X(3)=X"
^DIBT(233,2,3,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(234,0)="RT MISSING^2870325^^190.2^^^^"
^DIBT(234,2,1)="190.2^^INTERNAL(STATUS)'=""f""^""@B^;L1"
^DIBT(234,2,1,"CM")="S Y(1)=$S($D(^RTV(190.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X'=""f"" I D0>0 S X(1)=X"
^DIBT(234,2,1,"F")="0"
^DIBT(234,2,1,"T")="1"
^DIBT(234,2,2)="190.2^^NAME^"".01^"
^DIBT(234,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,1),C=$S(X="""":"","",'$D(@(U_$P(X,"";"",2)_""0)"")):"","",1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)) I C'="","" S Y=X,C=$P(^DD(+C,.01,0),U,2) D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","" S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(234,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RTV(190.2,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RT(+D0,0)) D0=-1 S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(234,2,3)="190^^TYPE OF RECORD^""@""3^"
^DIBT(234,2,3,190.2,100)="190^RT(^0^S I(0,0)=D0 S Y(1)=$S($D(^RTV(190.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(234,2,3,"CM")="S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.2,+$P(Y(101),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(234,2,4)="190^7^VOLUME NUMBER^""@^"
^DIBT(234,2,4,190.2,100)="190^RT(^0^S I(0,0)=D0 S Y(1)=$S($D(^RTV(190.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(235,0)="RT HOME LIST BY BOR^2870410^^190^^^^"
^DIBT(235,2,1)="190^^INTERNAL(HOME LOCATION)^@""^"
^DIBT(235,2,1,"ASK")=""
^DIBT(235,2,1,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(1)=X"
^DIBT(235,2,1,"F")=".99999"
^DIBT(235,2,1,"IX")="^RT(""AH"",^RT(^2"
^DIBT(235,2,1,"T")="1"
^DIBT(235,2,2)="190^^CURRENT BORROWER/FILE ROOM^+""105^;S2;""Borrower: """
^DIBT(235,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(235,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),D0=$P(Y(1),U,5) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(235,2,3)="190^^ASSOCIATED ENTITY OR ITEM^"".01^"
^DIBT(235,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(3)=X"
^DIBT(235,2,3,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(236,0)="RT HOME LIST BY NAME^2870410^^190^^^^"
^DIBT(236,2,1)="190^^INTERNAL(HOME LOCATION)^+@""^"
^DIBT(236,2,1,"ASK")=""
^DIBT(236,2,1,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(1)=X"
^DIBT(236,2,1,"F")=".99999"
^DIBT(236,2,1,"IX")="^RT(""AH"",^RT(^2"
^DIBT(236,2,1,"T")="1"
^DIBT(236,2,2)="190^^ASSOCIATED ENTITY OR ITEM^"".01^"
^DIBT(236,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(2)=X"
^DIBT(236,2,2,"OVF0",9.2)="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(237,0)="RT TIME STUDY^2870422^^190.1^^^^"
^DIBT(237,2,1)="190.1^2^DATE/TIME REQUESTED^'^"
^DIBT(237,2,1,"ASK")=""
^DIBT(237,2,1,"F")="2870421.99999"
^DIBT(237,2,1,"IX")="^RTV(190.1,""AD"",^RTV(190.1,^2"
^DIBT(237,2,1,"T")="2870422.9999"
^DIBT(237,2,2)="190.1^^REQUEST STATUS'=""REQUESTED""^@""@B^;L1;L1;L1"
^DIBT(237,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(190.1,6,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)'=""REQUESTED"" I D0>0 S X(2)=X"
^DIBT(237,2,2,"F")="0"
^DIBT(237,2,2,"T")="1"
^DIBT(237,2,3)="190.1^^PULL LIST=""""^@""@B^;L1;L1;L1"
^DIBT(237,2,3,"CM")="S Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$S('$D(^RTV(194.2,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1))="""" I D0>0 S X(3)=X"
^DIBT(237,2,3,"F")="0"
^DIBT(237,2,3,"T")="1"
^DIBT(237,2,4)="190.1^^DATE(DATE/TIME REQUESTED)^+#""^;""DATE REQUESTED: "";C20^^D"
^DIBT(237,2,4,"CM")="S Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=$P(X,""."",1) I D0>0 S X(4)=X"
^DIBT(237,2,5)="190.1^6^REQUEST STATUS^+^;C20;S1"
^DIBT(237,2,6)="190.1^^TIME(DATE/TIME REQUESTED)^@""^"
^DIBT(237,2,6,"CM")="X DPP(6,""OVF0"",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"" I D0>0 S X(6)=X"
^DIBT(237,2,6,"OVF0",9.2)="S Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2)"
^DIBT(237,2,7)="190.1^^NAME^"".01^"
^DIBT(237,2,7,"CM")="X DPP(7,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(7)=X"
^DIBT(237,2,7,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RT(+D0,0)) D0=-1 S Y(101)=$S($D(^RT(D0,0)):^(0),1:"""")"
^DIBT(238,0)="RT OVER BY DIV BY TD^2870423^^190^^^^"
^DIBT(238,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(238,2,1,"ASK")=""
^DIBT(238,2,1,"F")="2870422.99999"
^DIBT(238,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(238,2,1,"T")="2870423.9999"
^DIBT(238,2,2)="190^^HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION^+""^;""Institution: """
^DIBT(238,2,2,"ASK")=""
^DIBT(238,2,2,"CM")="X DPP(2,""OVF0"",9.2) S D0=$P(Y(101),U,2) S:'$D(^SC(+D0,0)) D0=-1 S Y(201)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(201),U,4),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(238,2,2,"F")="@z"
^DIBT(238,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RT(D0,0)):^(0),1:""""),D0=$P(Y(1),U,6) S:'$D(^RTV(195.9,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(238,2,2,"T")="Z"
^DIBT(238,2,3)="190^^""A""_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)^@""^"
^DIBT(238,2,3,"CM")="X DPP(3,""OVF0"",9.4) S X=$E(Y(202),Y(203),X) S Y=X,X=Y(104),X=X_Y S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(238,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""A"",Y(1)=X,D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(238,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9),Y(102)=X S X=8,Y(103)=X S X=9,X=$E(Y(102),Y(103),X) S Y=X,X=Y(1),X=X_Y,Y(104)=X"
^DIBT(238,2,3,"OVF0",9.4)="X DPP(3,""OVF0"",9.3) S D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(201),U,9),Y(202)=X S X=6,Y(203)=X S X=7"
^DIBT(239,0)="RT OVER BY HOME BY TD^2930909.1612^^190^^^^"
^DIBT(239,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(239,2,1,"ASK")=""
^DIBT(239,2,1,"F")="2901214.99999^T-999"
^DIBT(239,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(239,2,1,"T")="z^"
^DIBT(239,2,2)="190^^INTERNAL(HOME LOCATION)^+@""^"
^DIBT(239,2,2,"ASK")=""
^DIBT(239,2,2,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(2)=X"
^DIBT(239,2,2,"F")="0^0"
^DIBT(239,2,2,"IX")="^RT(""AH"",^RT(^2"
^DIBT(239,2,2,"T")="9999^9999"
^DIBT(239,2,3)="190^^""A""_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)^@""^"
^DIBT(239,2,3,"CM")="X DPP(3,""OVF0"",9.4) S X=$E(Y(202),Y(203),X) S Y=X,X=Y(104),X=X_Y S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(239,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""A"",Y(1)=X,D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(239,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9),Y(102)=X S X=8,Y(103)=X S X=9,X=$E(Y(102),Y(103),X) S Y=X,X=Y(1),X=X_Y,Y(104)=X"
^DIBT(239,2,3,"OVF0",9.4)="X DPP(3,""OVF0"",9.3) S D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(201),U,9),Y(202)=X S X=6,Y(203)=X S X=7"
^DIBT(240,0)="RT HOME LIST BY TD^2870423^^190^^^^"
^DIBT(240,2,1)="190^^INTERNAL(HOME LOCATION)^+@""^"
^DIBT(240,2,1,"ASK")=""
^DIBT(240,2,1,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(1)=X"
^DIBT(240,2,1,"F")=".99999"
^DIBT(240,2,1,"IX")="^RT(""AH"",^RT(^2"
^DIBT(240,2,1,"T")="1"
^DIBT(240,2,2)="190^^""A""_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)^@""^"
^DIBT(240,2,2,"CM")="X DPP(2,""OVF0"",9.4) S X=$E(Y(202),Y(203),X) S Y=X,X=Y(104),X=X_Y S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(240,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""A"",Y(1)=X,D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(240,2,2,"OVF0",9.3)="X DPP(2,""OVF0"",9.2) S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9),Y(102)=X S X=8,Y(103)=X S X=9,X=$E(Y(102),Y(103),X) S Y=X,X=Y(1),X=X_Y,Y(104)=X"
^DIBT(240,2,2,"OVF0",9.4)="X DPP(2,""OVF0"",9.3) S D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(201),U,9),Y(202)=X S X=6,Y(203)=X S X=7"
^DIBT(241,0)="RT CHARGED BY HOME BY TD^2870423^^190^^^^"
^DIBT(241,2,1)="190^106^DATE/TIME CHARGED TO BORROWER^'@^"
^DIBT(241,2,1,"ASK")=""
^DIBT(241,2,1,"F")="2870422.99999"
^DIBT(241,2,1,"IX")="^RT(""AC"",^RT(^2"
^DIBT(241,2,1,"T")="2870423.9999"
^DIBT(241,2,2)="190^^INTERNAL(HOME LOCATION)^+@""^"
^DIBT(241,2,2,"ASK")=""
^DIBT(241,2,2,"CM")="S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S X(2)=X"
^DIBT(241,2,2,"F")=".99999"
^DIBT(241,2,2,"T")="1"
^DIBT(241,2,3)="190^^""A""_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)^@""^"
^DIBT(241,2,3,"CM")="X DPP(3,""OVF0"",9.4) S X=$E(Y(202),Y(203),X) S Y=X,X=Y(104),X=X_Y S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(241,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2)=$S($D(^RT(D0,0)):^(0),1:"""") S X=""A"",Y(1)=X,D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(241,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9),Y(102)=X S X=8,Y(103)=X S X=9,X=$E(Y(102),Y(103),X) S Y=X,X=Y(1),X=X_Y,Y(104)=X"
^DIBT(241,2,3,"OVF0",9.4)="X DPP(3,""OVF0"",9.3) S D0=$P(Y(2),U,9) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(201),U,9),Y(202)=X S X=6,Y(203)=X S X=7"
^DIBT(242,0)="RT PURGE PROFILE^2870428^^195.2^^^^"
^DIBT(242,2,1)="195.2^^APPLICATION^""3^;S1;C5;""Application: """
^DIBT(242,2,1,"CM")="S Y(1)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.1,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(242,2,2)="195.2^.01^NAME^^"
^DIBT(242,2,2,"IX")="^DIC(195.2,""B"",^DIC(195.2,^2"
^DIBT(243,0)="RT LOOSE FILING^2870504^^190^^^^"
^DIBT(243,2,1)="190^13^LOOSE FILING INDICATOR^@^"
^DIBT(243,2,1,"F")="xz"
^DIBT(243,2,1,"IX")="^RT(""AL"",^RT(^2"
^DIBT(243,2,1,"T")="y"
^DIBT(243,2,2)="2^^""A""_$E(SSN,8,9)_$E(SSN,6,7)^@""""^"
^DIBT(243,2,2,190,100)="2^DPT(^0^S I(0,0)=D0 S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S D(0)=+X"
^DIBT(243,2,2,"CM")="X DPP(2,""OVF100"",9.2) S X=$P(Y(102),U,9),Y(106)=X S X=6,Y(107)=X S X=7,X=$E(Y(106),Y(107),X) S Y=X,X=Y(105),X=X_Y I D0>0 S X(2)=X"
^DIBT(243,2,2,"OVF100",9.2)="S Y(102)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=""A"",Y(101)=X S X=$P(Y(102),U,9),Y(103)=X S X=8,Y(104)=X S X=9,X=$E(Y(103),Y(104),X) S Y=X,X=Y(101),X=X_Y,Y(105)=X"
^DIBT(244,0)="RT RETIREMENT PROFILE^2910313.1304^^195.2^^^^"
^DIBT(244,2,1)="195.2^^APPLICATION^""3^;S1;C5;""Application: """
^DIBT(244,2,1,"CM")="S Y(1)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(195.1,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(244,2,2)="195.2^.01^NAME^^"
^DIBT(244,2,2,"IX")="^DIC(195.2,""B"",^DIC(195.2,^2"
^DIBT(245,0)="RT FILE ROOM/REMOTE^2910918.1053^^195.9^^^^"
^DIBT(245,2,1)="195.9^^DOMAIN FILE POINTER^'@""21^"
^DIBT(245,2,1,"ASK")=""
^DIBT(245,2,1,"CM")="S Y(1)=$S($D(^RTV(195.9,D0,1)):^(1),1:"""") S X=$S('$D(^DIC(4.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(245,2,1,"F")="@z^A"
^DIBT(245,2,1,"IX")="^RTV(195.9,""AE"",^RTV(195.9,^2"
^DIBT(245,2,1,"T")="z^"
^DIBT(245,2,2)="195.9^^NAME^"".01^"
^DIBT(245,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(2)=X"
^DIBT(245,2,2,"OVF0",9.2)="S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""")"
^DIBT(246,0)="PSGW ITEM LOC^2840915^^58.17^^^^"
^DIBT(246,2,1)="58.17^.01^ITEM ADDRESS CODE^^"
^DIBT(246,2,1,"IX")="^PSI(58.17,""B"",^PSI(58.17,^2"
^DIBT(246,2,2)="58.17^^(""A""=""A"")^'@""@B^;L1"
^DIBT(246,2,2,"CM")="S X=""A""=""A"" I D0>0 S X(2)=X"
^DIBT(246,2,2,"F")="0"
^DIBT(246,2,2,"T")="1"
^DIBT(246,"DIPT")="PSGW ITEM LOC"
^DIBT(247,0)="PSGW INV TYPE^2840915^^58.16^^^^"
^DIBT(247,2,1)="58.16^.01^NAME^^"
^DIBT(247,2,1,"IX")="^PSI(58.16,""B"",^PSI(58.16,^2"
^DIBT(247,2,2)="58.16^^(""A""=""A"")^'""@B^;"""";L1"
^DIBT(247,2,2,"CM")="S X=""A""=""A"" I D0>0 S X(2)=X"
^DIBT(247,2,2,"F")="0"
^DIBT(247,2,2,"T")="1"
^DIBT(248,0)="PSGW SHOW AREA OF USE^2890627.1455^^58.1^^^^"
^DIBT(248,2,1)="58.1^^INPATIENT SITE^#""4^"
^DIBT(248,2,1,"CM")="S Y(1)=$S($D(^PSI(58.1,D0,""SITE"")):^(""SITE""),1:"""") S X=$S('$D(^PS(59.4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(248,2,2)="58.1^.01^AREA OF USE (AOU)^^"
^DIBT(248,2,2,"IX")="^PSI(58.1,""B"",^PSI(58.1,^2"
^DIBT(249,0)="PSGW PERCENTAGE^2880212^^58.1^^^^"
^DIBT(249,2,1)="58.12^5^PERCENTAGE OF STOCK ON HAND^@^"
^DIBT(249,2,1,58.1)="1"
^DIBT(249,2,1,58.11)="1"
^DIBT(249,2,1,"ASK")=""
^DIBT(249,2,1,"F")="59.99999"
^DIBT(249,2,1,"T")="100"
^DIBT(249,2,2)="58.11^^ITEM^@"".01^"
^DIBT(249,2,2,58.1)="1"
^DIBT(249,2,2,"CM")="S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^PSDRUG(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(249,2,3)="58.12^^DATE(DATE/TIME FOR INVENTORY)^@""^^^D"
^DIBT(249,2,3,58.1)="1"
^DIBT(249,2,3,58.11)="1"
^DIBT(249,2,3,"ASK")=""
^DIBT(249,2,3,"CM")="S Y(1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$S('$D(^PSI(58.19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)),X=$P(X,""."",1) I D2>0 S X(3)=X"
^DIBT(249,2,3,"F")="2870700.99999"
^DIBT(249,2,3,"T")="z"
^DIBT(250,0)="VAQ WORK-LOAD BY FACILITY^2930121.1357^^394.87^^^2931019^"
^DIBT(250,2,1)="394.87^20^Remote Facility^^"
^DIBT(250,2,2)="394.87^.01^Date/Time of Work^^"
^DIBT(250,2,2,"IX")="^VAT(394.87,""B"",^VAT(394.87,^2"
^DIBT(251,0)="VAQ WORK-LOAD BY PATIENT^2930126.1422^^394.87^^^^"
^DIBT(251,2,1)="394.87^11^Patient's Name^^"
^DIBT(251,2,2)="394.87^13^Patient ID^^"
^DIBT(251,2,3)="394.87^20^Remote Facility^^"
^DIBT(251,2,4)="394.87^.01^Date/Time of Work^^"
^DIBT(251,2,4,"IX")="^VAT(394.87,""B"",^VAT(394.87,^2"
^DIBT(252,0)="VAQ WORK-LOAD BY WORK^2930921.0854^^394.87^^^2931005^"
^DIBT(252,2,1)="394.87^^Work Done:Work^@""^"
^DIBT(252,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(1)=X"
^DIBT(252,2,1,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^VAT(394.87,D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^VAT(394.88,+D0,0)) D0=-1 S Y(101)=$S($D(^VAT(394.88,D0,0)):^(0),1:"""")"
^DIBT(252,2,2)="394.87^.01^Date/Time of Work^^"
^DIBT(252,2,2,"IX")="^VAT(394.87,""B"",^VAT(394.87,^2"
^DIBT(253,0)="VAQ WORK-LOAD BY DATE^2930122.1126^^394.87^^^2931019^"
^DIBT(253,2,1)="394.87^.01^Date/Time of Work^^"
^DIBT(253,2,1,"ASK")=""
^DIBT(253,2,1,"F")="2930117.99999^T-4"
^DIBT(253,2,1,"IX")="^VAT(394.87,""B"",^VAT(394.87,^2"
^DIBT(253,2,1,"T")="2930123.9999^T+1"
^DIBT(254,0)="VAQ TRANSACTIONS BY PATIENT^2930127.1127^^394.61^^^^"
^DIBT(254,2,1)="394.61^10^Patient's Name^^"
^DIBT(254,2,1,"IX")="^VAT(394.61,""NAME"",^VAT(394.61,^2"
^DIBT(254,2,2)="394.61^13^Patient ID^^"
^DIBT(254,2,3)="394.61^60^Authorizing Site^^"
^DIBT(254,2,4)="394.61^.01^Transaction Number^^"
^DIBT(254,2,4,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(254,2,5)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(254,2,5,"CM")="X DPP(5,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(5)=X"
^DIBT(254,2,5,"F")="0"
^DIBT(254,2,5,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(254,2,5,"OVF0",9.3)="X DPP(5,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(254,2,5,"T")="1"
^DIBT(255,0)="VAQ TRANSACTIONS BY FACILITY^2930127.1126^^394.61^^^^"
^DIBT(255,2,1)="394.61^60^Authorizing Site^^"
^DIBT(255,2,2)="394.61^.01^Transaction Number^^"
^DIBT(255,2,2,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(255,2,3)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(255,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(3)=X"
^DIBT(255,2,3,"F")="0"
^DIBT(255,2,3,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(255,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(255,2,3,"T")="1"
^DIBT(256,0)="VAQ TRANSACTIONS BY AUTHORIZER^2930127.1123^^394.61^^^^"
^DIBT(256,2,1)="394.61^51^Authorizer^^"
^DIBT(256,2,2)="394.61^.01^Transaction Number^^"
^DIBT(256,2,2,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(256,2,3)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(256,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(3)=X"
^DIBT(256,2,3,"F")="0"
^DIBT(256,2,3,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(256,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(256,2,3,"T")="1"
^DIBT(257,0)="VAQ TRANSACTIONS BY REQUESTOR^2930127.1129^^394.61^^^^"
^DIBT(257,2,1)="394.61^21^Requestor^^"
^DIBT(257,2,2)="394.61^.01^Transaction Number^^"
^DIBT(257,2,2,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(257,2,3)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(257,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(3)=X"
^DIBT(257,2,3,"F")="0"
^DIBT(257,2,3,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(257,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(257,2,3,"T")="1"
^DIBT(258,0)="VAQ TRANSACTIONS BY RECEIPT^2930127.1128^^394.61^^^2931001^"
^DIBT(258,2,1)="394.61^50^Date/Time of Reply^'^"
^DIBT(258,2,1,"ASK")=""
^DIBT(258,2,1,"F")="2930122.99999^T-4"
^DIBT(258,2,1,"T")="z^"
^DIBT(258,2,2)="394.61^.01^Transaction Number^^"
^DIBT(258,2,2,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(258,2,3)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(258,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(3)=X"
^DIBT(258,2,3,"F")="0"
^DIBT(258,2,3,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(258,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(258,2,3,"T")="1"
^DIBT(259,0)="VAQ TRANSACTIONS BY DATE SENT^2930127.1125^^394.61^^^^"
^DIBT(259,2,1)="394.61^20^Date/Time of Request^'^"
^DIBT(259,2,1,"ASK")=""
^DIBT(259,2,1,"F")="2930119.99999^T-7"
^DIBT(259,2,1,"T")="z^"
^DIBT(259,2,2)="394.61^.01^Transaction Number^^"
^DIBT(259,2,2,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(259,2,3)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(259,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(3)=X"
^DIBT(259,2,3,"F")="0"
^DIBT(259,2,3,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(259,2,3,"OVF0",9.3)="X DPP(3,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(259,2,3,"T")="1"
^DIBT(260,0)="VAQ TRANSACTIONS BY STATUS^2930127.1131^^394.61^^^^"
^DIBT(260,2,1)="394.61^^(Current Status'=""VAQ-AUTO"")&(Current Status'=""VAQ-PROC"")&(Current Status'=""VAQ-UNACK"")^""@B^;L1"
^DIBT(260,2,1,"CM")="X DPP(1,""OVF0"",9.3) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-UNACK"",Y=X,X=Y(3),X=X&Y I D0>0 S X(1)=X"
^DIBT(260,2,1,"F")="0"
^DIBT(260,2,1,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-AUTO"",Y(2)=X"
^DIBT(260,2,1,"OVF0",9.3)="X DPP(1,""OVF0"",9.2) S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))'=""VAQ-PROC"",Y=X,X=Y(2),X=X&Y,Y(3)=X"
^DIBT(260,2,1,"T")="1"
^DIBT(260,2,2)="394.61^^Current Status^@"".02^"
^DIBT(260,2,2,"CM")="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(260,2,3)="394.61^.01^Transaction Number^^"
^DIBT(260,2,3,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(261,0)="VAQ REQUIRES PROCESSING^2930930.1622^@^394.61^1934^@^2930930"
^DIBT(261,2,1)="394.61^^Current Status=""VAQ-PROC""^@""@B^;L1"
^DIBT(261,2,1,"CM")="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))=""VAQ-PROC"" I D0>0 S X(1)=X"
^DIBT(261,2,1,"F")="0"
^DIBT(261,2,1,"T")="1"
^DIBT(261,2,2)="394.61^^Release Status=""VAQ-RQACK""^@""@B^;L1"
^DIBT(261,2,2,"CM")="S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"""") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))=""VAQ-RQACK"" I D0>0 S X(2)=X"
^DIBT(261,2,2,"F")="0"
^DIBT(261,2,2,"T")="1"
^DIBT(261,2,3)="394.61^20^Date/Time of Request^@^"
^DIBT(261,2,4)="394.61^.01^Transaction Number^@^"
^DIBT(261,2,4,"IX")="^VAT(394.61,""B"",^VAT(394.61,^2"
^DIBT(261,2,5)="394.61^^RANGEDATE(#20,NOW,#20,NOW)<VAQ GET LIFE^@""@B^;L1"
^DIBT(261,2,5,"CM")="X DPP(5,""OVF0"",9.4) S Y(7)=X,X=+$O(^VAT(394.81,0)) S X=+$G(^VAT(394.81,X,""LIFE"")) S:(X=0) X=30 I 1 S Y=X,X=Y(7),X=X S X=X<Y I D0>0 S X(5)=X"
^DIBT(261,2,5,"F")="0"
^DIBT(261,2,5,"OVF0",9.2)="S Y(1)=$S($D(^VAT(394.61,D0,""RQST1"")):^(""RQST1""),1:"""") S X=$P(Y(1),U,1),Y(2)=X,Y(3)=X,%=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DIBT(261,2,5,"OVF0",9.3)="X DPP(5,""OVF0"",9.2) S Y(4)=X S X=$P(Y(1),U,1),Y(5)=X,Y(6)=X,%=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DIBT(261,2,5,"OVF0",9.4)="X DPP(5,""OVF0"",9.3) S X1=Y(5) S X2=Y(4) S X3=Y(2) S %Y=X3,Y=X2,X2=X S:X>X1 X2=X1,X1=X S:Y>%Y %Y=Y,Y=X3 S:Y>X2 X2=Y S:%Y<X1 X1=%Y D ^%DTC S X=$S(%Y=0:0,X<0:0,1:X+1) K %Y,X3 S X=X"
^DIBT(261,2,5,"T")="1"
^DIBT(261,2,6)="394.61^^(Purge'=""YES"")^@""@B^;L1"
^DIBT(261,2,6,"CM")="S Y(2)=$C(59)_$S($D(^DD(394.61,90,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^VAT(394.61,D0,""PRG"")):^(""PRG""),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59),1)'=""YES"" I D0>0 S X(6)=X"
^DIBT(261,2,6,"F")="0"
^DIBT(261,2,6,"T")="1"
^DIBT(262,0)="PPP LOGS^2920324.141^^1020.4^^^^"
^DIBT(262,2,1)="1020.4^2^DATE^@'^"
^DIBT(262,2,1,"IX")="^PPP(1020.4,""C"",^PPP(1020.4,^2"
^DIBT(264,0)="DVBHINQPURGE^2851107^^395.5^^^^"
^DIBT(264,2,1)="395.5^3^TIME OF LAST HINQ REQUEST^]^"
^DIBT(264,2,1,"ASK")=""
^DIBT(264,2,1,"F")="2851007.99999"
^DIBT(264,2,1,"T")="2851031.9999"
^DIBT(265,0)="DVBHINQ AUDIT/DT^2950502.1549^^395.7^^^^"
^DIBT(265,2,0)="^.4014^2^2"
^DIBT(265,2,1,0)="395.7^2^DATE/TIME^-^^^^^^1"
^DIBT(265,2,1,"GET")="S DISX(1)=$P($G(^DVB(395.7,D0,0)),U,3)"
^DIBT(265,2,1,"QCON")="I DISX(1)'="""""
^DIBT(265,2,1,"SER")="0.0000^0.0000"
^DIBT(265,2,1,"TXT")="DATE/TIME not null"
^DIBT(265,2,2,0)="395.7^^USER NAME^""1^^^^^^4"
^DIBT(265,2,2,"CM")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(265,2,2,"GET")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(265,2,2,"QCON")="I DISX(2)'="""""
^DIBT(265,2,2,"TXT")="USER NAME not null"
^DIBT(265,2,"B",395.7,1)=""
^DIBT(265,2,"B",395.7,2)=""
^DIBT(266,0)="DVBHINQ AUDIT/USER^2950502.155^^395.7^^^^"
^DIBT(266,2,0)="^.4014^3^3"
^DIBT(266,2,1,0)="395.7^^USER NAME^""1^^^^^^4"
^DIBT(266,2,1,"CM")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(266,2,1,"GET")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(266,2,1,"QCON")="I DISX(1)'="""""
^DIBT(266,2,1,"TXT")="USER NAME not null"
^DIBT(266,2,2,0)="395.7^2^DATE/TIME^^^^^^^1"
^DIBT(266,2,2,"GET")="S DISX(2)=$P($G(^DVB(395.7,D0,0)),U,3)"
^DIBT(266,2,2,"QCON")="I DISX(2)'="""""
^DIBT(266,2,2,"SER")="0.0000^0.0000"
^DIBT(266,2,2,"TXT")="DATE/TIME not null"
^DIBT(266,2,3,0)="395.7^^PATIENT^"".01^^^^^^4"
^DIBT(266,2,3,"CM")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(266,2,3,"GET")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(266,2,3,"IX")="^DVB(395.7,""B"",^DVB(395.7,^2"
^DIBT(266,2,3,"PTRIX")="^DPT(""B"","
^DIBT(266,2,3,"QCON")="I DISX(3)'="""""
^DIBT(266,2,3,"SER")="0.0061^0.0060"
^DIBT(266,2,3,"TXT")="PATIENT not null"
^DIBT(266,2,"B",395.7,1)=""
^DIBT(266,2,"B",395.7,2)=""
^DIBT(266,2,"B",395.7,3)=""
^DIBT(267,0)="DVBHINQ AUDIT/PAT^2890920.1534^^395.7^^^^"
^DIBT(267,2,1)="395.7^^PATIENT^"".01^"
^DIBT(267,2,1,"CM")="S Y(1)=$S($D(^DVB(395.7,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(268,0)="DVBA INCOMP REQ REPORT^2890727^^396^^^^"
^DIBT(268,2,1)="396^^FINALIZATION DATE=""""^]""@B^;L1"
^DIBT(268,2,1,"CM")="S Y(1)=$S($D(^DVB(396,D0,1)):^(1),1:"""") S X=$P(Y(1),U,12)="""" I D0>0 S X(1)=X"
^DIBT(268,2,1,"F")="0"
^DIBT(268,2,1,"T")="1"
^DIBT(268,2,2)="396^23^DATE OF REQUEST^+@^;S2"
^DIBT(268,2,2,"ASK")=""
^DIBT(268,2,2,"F")="2890100.99999"
^DIBT(268,2,2,"IX")="^DVB(396,""E"",^DVB(396,^2"
^DIBT(268,2,2,"T")="2890727.9999"
^DIBT(269,0)="DVBA FINALIZED REPORT^2880809^^396^^^^"
^DIBT(269,2,1)="396^25^FINALIZATION DATE^@+^;S2"
^DIBT(269,2,1,"ASK")=""
^DIBT(269,2,1,"F")="2010100.99999"
^DIBT(269,2,1,"IX")="^DVB(396,""F"",^DVB(396,^2"
^DIBT(269,2,1,"T")="2990101.9999"
^DIBT(269,2,2)="396^23^DATE OF REQUEST^@^"
^DIBT(269,2,2,"IX")="^DVB(396,""E"",^DVB(396,^2"
^DIBT(270,0)="DVBA NOT/DIS-21 DAY CERT CHECK^2890202^^396^^^^"
^DIBT(270,2,1)="396^^PATIENT NAME^"".01^;S1"
^DIBT(270,2,1,"CM")="S Y(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(270,2,2)="396^^NOTICE OF DISCHARGE=""YES""!(CERTIFICATE (21-DAY)=""YES"")^""@B^;L1"
^DIBT(270,2,2,"CM")="X DPP(2,""OVF0"",9.3) S X=X!Y I D0>0 S X(2)=X"
^DIBT(270,2,2,"F")="0"
^DIBT(270,2,2,"OVF0",9.2)="S Y(2)=$C(59)_$S($D(^DD(396,4,0)):$P(^(0),U,3),1:""""),Y(4)=$C(59)_$S($D(^DD(396,6,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""")"
^DIBT(270,2,2,"OVF0",9.3)="X DPP(2,""OVF0"",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""YES"",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59),1)=""YES"",Y=X,X=Y(3),X=X"
^DIBT(270,2,2,"T")="1"
^DIBT(271,0)="DVBA ADMISSION REVIEW^2910122.1224^^405^^^^"
^DIBT(271,2,1)="405^.01^DATE/TIME^@^"
^DIBT(271,2,1,"ASK")=""
^DIBT(271,2,1,"F")="2010100.99999"
^DIBT(271,2,1,"IX")="^DGPM(""B"",^DGPM(^2"
^DIBT(271,2,1,"T")="2910122.9999"
^DIBT(271,2,2)="405^^TRANSACTION^@"".02^"
^DIBT(271,2,2,"CM")="S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$S('$D(^DG(405.3,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(271,2,2,"F")="ADMISSIOMz"
^DIBT(271,2,2,"T")="ADMISSION"
^DIBT(272,0)="DVBA C EXAM CHECKLIST^2900423.1444^^396.6^^^^"
^DIBT(272,2,1)="396.6^^BODY SYSTEM^""2^;S2;C1"
^DIBT(272,2,1,"CM")="S Y(1)=$S($D(^DVB(396.6,D0,0)):^(0),1:"""") S X=$S('$D(^DVB(396.7,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(272,2,2)="396.6^.01^NAME^^"
^DIBT(272,2,2,"IX")="^DVB(396.6,""B"",^DVB(396.6,^2"
^DIBT(272,"%D",0)="^^1^1^2930623^^^"
^DIBT(272,"%D",1,0)="Generates checklist for proofing new or old exam data that was entered."
^DIBT(273,0)="DVBA C EXAM LAYOUT^2900309.1016^^396.6^^^^"
^DIBT(273,2,1)="396.6^.01^NAME^^;S2"
^DIBT(273,2,1,"ASK")=""
^DIBT(273,2,1,"F")="    "
^DIBT(273,2,1,"IX")="^DVB(396.6,""B"",^DVB(396.6,^2"
^DIBT(273,2,1,"T")="ZZZZ"
^DIBT(273,2,2)="396.65^.01^LINE NUMBER^^"
^DIBT(273,2,2,396.6)="2"
^DIBT(273,"%D",0)="^^1^1^2930319^^"
^DIBT(273,"%D",1,0)="Shows how exam lines are laid out for printing."
^DIBT(274,0)="DVBA C REQUESTS BY DATE RANGE^2900720.1334^^396.3^^^^"
^DIBT(274,2,1)="396.3^1^REQUEST DATE^@^"
^DIBT(274,2,1,"ASK")=""
^DIBT(274,2,1,"F")="2900100.99999"
^DIBT(274,2,1,"IX")="^DVB(396.3,""C"",^DVB(396.3,^2"
^DIBT(274,2,1,"T")="2900720.9999"
^DIBT(274,2,2)="396.3^^NAME^"".01^"
^DIBT(274,2,2,"CM")="S Y(1)=$S($D(^DVB(396.3,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(275,0)="DVBA C REQUESTS BY PHYSICIAN^2930519.1524^^396.4^^^^"
^DIBT(275,2,1)="396.4^.06^DATE OF EXAM^@^"
^DIBT(275,2,1,"ASK")=""
^DIBT(275,2,1,"F")="2930519.15209^N"
^DIBT(275,2,1,"T")="z^"
^DIBT(275,2,2)="396.4^^2507 REQUEST:NAME^@""^"
^DIBT(275,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(275,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DVB(396.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^DVB(396.3,+D0,0)) D0=-1 S Y(101)=$S($D(^DVB(396.3,D0,0)):^(0),1:"""")"
^DIBT(275,2,3)="396.4^^2507 REQUEST:REGIONAL OFFICE NUMBER^@""^;""REGIONAL OFFICE NUMBER"""
^DIBT(275,2,3,"ASK")=""
^DIBT(275,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,3),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(275,2,3,"F")="499.99999^500"
^DIBT(275,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DVB(396.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^DVB(396.3,+D0,0)) D0=-1 S Y(101)=$S($D(^DVB(396.3,D0,0)):^(0),1:"""")"
^DIBT(275,2,3,"T")="z^"
^DIBT(275,2,4)="396.4^.07^EXAMINING PHYSICIAN^@^"
^DIBT(275,2,4,"ASK")=""
^DIBT(275,2,4,"F")="BILKz^BILL"
^DIBT(275,2,4,"T")="z^"
^DIBT(276,0)="DVBA NOTICE OF DISCHARGE^2940915.0824^^396^^^^"
^DIBT(276,2,1)="396^^PATIENT NAME^"".01^"
^DIBT(276,2,1,"CM")="S Y(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(276,2,2)="396^^NOTICE OF DISCHARGE=""YES""^""@B^;L1"
^DIBT(276,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(396,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""YES"" I D0>0 S X(2)=X"
^DIBT(276,2,2,"F")="0"
^DIBT(276,2,2,"T")="1"
^DIBT(277,0)="DVBA 21 DAY CERT^2940915.0836^^396^^^^"
^DIBT(277,2,1)="396^^PATIENT NAME^"".01^"
^DIBT(277,2,1,"CM")="S Y(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(277,2,2)="396^^CERTIFICATE (21-DAY)=""YES""^""@B^;L1"
^DIBT(277,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(396,6,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DVB(396,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59),1)=""YES"" I D0>0 S X(2)=X"
^DIBT(277,2,2,"F")="0"
^DIBT(277,2,2,"T")="1"
^DIBT(278,0)="QAQ AUDIT LIST^2891208.1309^^740.5^^^^"
^DIBT(278,2,1)="740.5^^NAME^"".01^;S3;C5;L45;""FILE: """
^DIBT(278,2,1,"CM")="S Y(1)=$S($D(^QA(740.5,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(285,0)="YSSR 10-2683 SORT^2881102^^615.2^^^^"
^DIBT(285,2,1)="615.2^^WARD^@#"".04^"
^DIBT(285,2,1,"CM")="S Y(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(286,0)="YSSR WARD MGT SORT^2880809^^615.2^^^^"
^DIBT(286,2,1)="615.2^^WARD^@#"".04^"
^DIBT(286,2,1,"CM")="S Y(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(287,0)="YSSR NURSE MGT SORT^2880809^^615.2^^^^"
^DIBT(287,2,1)="615.2^^WARD^@#"".04^"
^DIBT(287,2,1,"CM")="S Y(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(287,2,2)="615.2^^NURSING SHIFT^@"".06^"
^DIBT(287,2,2,"CM")="S Y(1)=$S($D(^YS(615.2,D0,0)):^(0),1:"""") S X=$S('$D(^NURSF(211.6,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(288,0)="YSSR DATE OF REVIEW^2890120^^615.2^^^^"
^DIBT(288,2,1)="615.2^52^ACTUAL DATE OF REVIEW^@^"
^DIBT(289,0)="YSSR DATE SORT^2890119^^615.2^^^^"
^DIBT(289,2,1)="615.2^.03^DATE/TIME APPLIED^@^"
^DIBT(290,0)="NURA-S-EXCEPTION^2900330.1545^^213.5^^^2960829^"
^DIBT(290,2,0)="^.4014^5^5"
^DIBT(290,2,1,0)="213.5^.01^DATE^@^^^^^^1"
^DIBT(290,2,1,"ASK")="1"
^DIBT(290,2,1,"F")="2960827.99999^2960828^8/28/96"
^DIBT(290,2,1,"GET")="S DISX(1)=$P($G(^NURSA(213.5,D0,0)),U,1)"
^DIBT(290,2,1,"IX")="^NURSA(213.5,""B"",^NURSA(213.5,^2"
^DIBT(290,2,1,"QCON")="I DISX(1)=2960828"
^DIBT(290,2,1,"T")="2960828^2960828^8/28/96"
^DIBT(290,2,1,"TXT")="DATE equals 8/28/96"
^DIBT(290,2,2,0)="213.5^.02^AMIS TYPE^@^^^^^^3"
^DIBT(290,2,2,"ASK")="1"
^DIBT(290,2,2,"F")="-1^0^0 (3 PM TOTALS)"
^DIBT(290,2,2,"GET")="S DISX(2)=$P($G(^NURSA(213.5,D0,0)),U,2)"
^DIBT(290,2,2,"IX")="^NURSA(213.5,""E"",^NURSA(213.5,^2"
^DIBT(290,2,2,"QCON")="I DISX(2)=0"
^DIBT(290,2,2,"T")="0^0^0 (3 PM TOTALS)"
^DIBT(290,2,2,"TXT")="AMIS TYPE equals 0 (3 PM TOTALS)"
^DIBT(290,2,3,0)="213.51^^NURS LOCATION:NAME^""^;C11;L15;S1;""WARD: ""^^^^^4"
^DIBT(290,2,3,1,0)="^.40141^1^1"
^DIBT(290,2,3,1,1,0)="213.5^1"
^DIBT(290,2,3,1,"B",213.5,1)=""
^DIBT(290,2,3,3,0)="^.401419^1^1"
^DIBT(290,2,3,3,1,0)="OVF1^9.2"
^DIBT(290,2,3,3,1,"OVF0")="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^NURSA(213.5,D0,1,D1,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^NURSF(211.4,+D0,0)) D0=-1"
^DIBT(290,2,3,3,"B","OVF1",1)=""
^DIBT(290,2,3,"CM")="X DPP(3,""OVF1"",9.2) S Y(101)=$S($D(^NURSF(211.4,D0,0)):^(0),1:""""),Y(102)=X,Y=$P(Y(101),U,1) X:$D(^DD(211.4,.01,2)) ^(2) S X=Y S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X"
^DIBT(290,2,3,"GET")="X DPP(3,""OVF1"",9.2) S Y(101)=$S($D(^NURSF(211.4,D0,0)):^(0),1:""""),Y(102)=X,Y=$P(Y(101),U,1) X:$D(^DD(211.4,.01,2)) ^(2) S X=Y S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X"
^DIBT(290,2,3,"QCON")="I DISX(3)'="""""
^DIBT(290,2,3,"TXT")="NURS LOCATION:NAME not null"
^DIBT(290,2,4,0)="213.5^^"" ""^@""^;S1^^^^^4"
^DIBT(290,2,4,"CM")="S X="" "" I D0>0 S DISX(4)=X"
^DIBT(290,2,4,"GET")="S X="" "" I D0>0 S DISX(4)=X"
^DIBT(290,2,4,"QCON")="I DISX(4)'="""""
^DIBT(290,2,4,"TXT")=""""" """" not null"
^DIBT(290,2,5,0)="213.51^^PATIENT^"".01^^^^^^4"
^DIBT(290,2,5,1,0)="^.40141^1^1"
^DIBT(290,2,5,1,1,0)="213.5^1"
^DIBT(290,2,5,1,"B",213.5,1)=""
^DIBT(290,2,5,"CM")="S Y(1)=$S($D(^NURSA(213.5,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(5)=X"
^DIBT(290,2,5,"GET")="S Y(1)=$S($D(^NURSA(213.5,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(5)=X"
^DIBT(290,2,5,"IX")="^NURSA(213.5,""C"",^NURSA(213.5,^2"
^DIBT(290,2,5,"PTRIX")="^DPT(""B"","
^DIBT(290,2,5,"QCON")="I DISX(5)'="""""
^DIBT(290,2,5,"TXT")="PATIENT not null"
^DIBT(290,2,"B",213.5,1)=""
^DIBT(290,2,"B",213.5,2)=""
^DIBT(290,2,"B",213.5,4)=""
^DIBT(290,2,"B",213.51,3)=""
^DIBT(290,2,"B",213.51,5)=""
^DIBT(291,0)="NURS-S-MANHOURS^2890404^^213.9^^^^"
^DIBT(291,2,1)="213.9003^.01^DATE^^"
^DIBT(291,2,1,213.9)="MAN"
^DIBT(292,0)="NURS-SORT BY TYPE/OLD NAME^2900706.1057^^219.7^^^^"
^DIBT(292,2,1)="219.7^2^TYPE^^"
^DIBT(292,2,1,"ASK")=""
^DIBT(292,2,1,"F")="@z"
^DIBT(292,2,1,"IX")="^NURSF(219.7,""C"",^NURSF(219.7,^2"
^DIBT(292,2,1,"SER")="0.0000^0.0000"
^DIBT(292,2,1,"T")="A"
^DIBT(292,2,2)="219.7^.01^OLD NAME^^"
^DIBT(292,2,2,"ASK")=""
^DIBT(292,2,2,"F")="@z"
^DIBT(292,2,2,"IX")="^NURSF(219.7,""B"",^NURSF(219.7,^2"
^DIBT(292,2,2,"SER")="0^0"
^DIBT(292,2,2,"T")="A"
^DIBT(292,"%D",0)="^^4^4^2911220^^^"
^DIBT(292,"%D",1,0)=" Enter (B)ulletin,(H)elp Frame,(O)ption or (R)outine to define the type"
^DIBT(292,"%D",2,0)="sort parameter.  The default FIRST// will display all types in the above"
^DIBT(292,"%D",3,0)="mentioned sequence. NA displayed in the type field means that this item"
^DIBT(292,"%D",4,0)="in not applicable to this version of the package."
^DIBT(293,0)="NURS-NAME-SORT^2900316.1151^^210^^^^"
^DIBT(294,0)="PXTT ALL TOPICS^2950720.0819^^9999999.09^^^2960524^"
^DIBT(294,2,0)="^.4014^1^1"
^DIBT(294,2,1,0)="9999999.09^.01^NAME^^^^^^^4"
^DIBT(294,2,1,"GET")="S DISX(1)=$P($G(^AUTTEDT(D0,0)),U,1)"
^DIBT(294,2,1,"IX")="^AUTTEDT(""B"",^AUTTEDT(^2"
^DIBT(294,2,1,"QCON")="I DISX(1)'="""""
^DIBT(294,2,1,"TXT")="NAME not null"
^DIBT(294,2,"B",9999999.09,1)=""
^DIBT(294,"%D",0)="^^1^1^2951121^^"
^DIBT(294,"%D",1,0)="Finds all topics and sorts them by name."
^DIBT(295,0)="PXTT HEALTH FACTOR BY CATEGORY^2950814.0029^^9999999.64^^^2960802^"
^DIBT(295,2,0)="^.4014^2^2"
^DIBT(295,2,1,0)="9999999.64^^CATEGORY^"".03^;S^^^^^4"
^DIBT(295,2,1,"CM")="S Y(1)=$S($D(^AUTTHF(D0,0)):^(0),1:"""") S X=$S('$D(^AUTTHF(+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(295,2,1,"GET")="S Y(1)=$S($D(^AUTTHF(D0,0)):^(0),1:"""") S X=$S('$D(^AUTTHF(+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(295,2,1,"IX")="^AUTTHF(""AC"",^AUTTHF(^2"
^DIBT(295,2,1,"PTRIX")="^AUTTHF(""B"","
^DIBT(295,2,1,"QCON")="I DISX(1)'="""""
^DIBT(295,2,1,"SER")="0.0250^0.0250"
^DIBT(295,2,1,"TXT")="CATEGORY not null"
^DIBT(295,2,2,0)="9999999.64^.01^FACTOR^^^^^^^4"
^DIBT(295,2,2,"GET")="S DISX(2)=$P($G(^AUTTHF(D0,0)),U,1)"
^DIBT(295,2,2,"IX")="^AUTTHF(""B"",^AUTTHF(^2"
^DIBT(295,2,2,"QCON")="I DISX(2)'="""""
^DIBT(295,2,2,"SER")="0^0"
^DIBT(295,2,2,"TXT")="FACTOR not null"
^DIBT(295,2,"B",9999999.64,1)=""
^DIBT(295,2,"B",9999999.64,2)=""
^DIBT(295,"%D",0)="^^2^2^2951122^^^"
^DIBT(295,"%D",1,0)="This will sort the health factors alphabetically by category, and then by"
^DIBT(295,"%D",2,0)="the health factor."
^DIBT(296,0)="PX CODE MAPPING^2950307.1403^^811.1^^^2960524^"
^DIBT(296,2,0)="^.4014^2^2"
^DIBT(296,2,1,0)="811.1^.03^FROM^]^^^^^^4"
^DIBT(296,2,1,"GET")="S DISX(1)=$P($G(^PXD(811.1,D0,0)),U,3)"
^DIBT(296,2,1,"QCON")="I DISX(1)'="""""
^DIBT(296,2,1,"SER")="0.0000^0.0000"
^DIBT(296,2,1,"TXT")="FROM not null"
^DIBT(296,2,2,0)="811.1^^FILE ENTRY^"".01^^^^^^4"
^DIBT(296,2,2,3,0)="^.401419^2^2"
^DIBT(296,2,2,3,1,0)="OVF0^9.2"
^DIBT(296,2,2,3,1,"OVF0")="S Y(1)=$S($D(^PXD(811.1,D0,0)):^(0),1:"""")"
^DIBT(296,2,2,3,2,0)="OVF1^9.2"
^DIBT(296,2,2,3,2,"OVF0")="S X=$P(Y(1),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="","" I D0>0 S X(2)=X"
^DIBT(296,2,2,3,"B","OVF0",1)=""
^DIBT(296,2,2,3,"B","OVF1",2)=""
^DIBT(296,2,2,"CM")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(296,2,2,"GET")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(296,2,2,"QCON")="I DISX(2)'="""""
^DIBT(296,2,2,"TXT")="FILE ENTRY not null"
^DIBT(296,2,"B",811.1,1)=""
^DIBT(296,2,"B",811.1,2)=""
^DIBT(297,0)="PX PARAMETERS PRINT^2960418.1222^^815^^^2960612"
^DIBT(297,2,0)="^.4014^1^1"
^DIBT(297,2,1,0)="815^.01^ONE^@^^^^^^2"
^DIBT(297,2,1,"F")=".99999^1"
^DIBT(297,2,1,"GET")="S DISX(1)=$P($G(^PX(815,D0,0)),U,1) S:DISX(1)]"""" DISX(1)=+DISX(1)"
^DIBT(297,2,1,"IX")="^PX(815,""B"",^PX(815,^2"
^DIBT(297,2,1,"QCON")="I DISX(1)=1"
^DIBT(297,2,1,"T")="1^1"
^DIBT(297,2,1,"TXT")="ONE equals 1"
^DIBT(297,2,"B",815,1)=""
^DIBT(297,"%D",0)="^^2^2^2960418^"
^DIBT(297,"%D",1,0)="This sort template extracts the entry number ""1"" from the PCE Parameter"
^DIBT(297,"%D",2,0)="file.                "
^DIBT(298,0)="PXTT ACTIVE EDUCATION TOPICS^2960606.1226^^9999999.09^^^2960606"
^DIBT(298,2,0)="^.4014^2^2"
^DIBT(298,2,1,0)="9999999.09^.03^INACTIVE FLAG^]^^^^^^3"
^DIBT(298,2,1,"F")="?z^@"
^DIBT(298,2,1,"GET")="S DISX(1)=$P($G(^AUTTEDT(D0,0)),U,3)"
^DIBT(298,2,1,"QCON")="I DISX(1)="""""
^DIBT(298,2,1,"SER")="0.0465^0.0465"
^DIBT(298,2,1,"T")="@^@"
^DIBT(298,2,1,"TXT")="INACTIVE FLAG is null"
^DIBT(298,2,2,0)="9999999.09^.01^NAME^^^^^^^4"
^DIBT(298,2,2,"GET")="S DISX(2)=$P($G(^AUTTEDT(D0,0)),U,1)"
^DIBT(298,2,2,"IX")="^AUTTEDT(""B"",^AUTTEDT(^2"
^DIBT(298,2,2,"QCON")="I DISX(2)'="""""
^DIBT(298,2,2,"SER")="0^0"
^DIBT(298,2,2,"TXT")="NAME not null"
^DIBT(298,2,"B",9999999.09,1)=""
^DIBT(298,2,"B",9999999.09,2)=""
^DIBT(298,"%D",0)="^^2^2^2960606^"
^DIBT(298,"%D",1,0)="This sort template selects educations topics that do not have an INACTIVE"
^DIBT(298,"%D",2,0)="STATUS and sorts these ""active"" topics alphabetically."
^DIBT(299,0)="FB BATCH LIST^2920826.1111^@^161.7^705^@^2941219"
^DIBT(299,2,1)="161.7^.01^NUMBER^]@^"
^DIBT(299,2,1,"ASK")=""
^DIBT(299,2,1,"F")="99.99999^100"
^DIBT(299,2,1,"IX")="^FBAA(161.7,""B"",^FBAA(161.7,^2"
^DIBT(299,2,1,"T")="199^199"
^DIBT(299,"%D",0)="^^1^1^2931012^"
^DIBT(299,"%D",1,0)="List batch"
^DIBT(300,0)="FBAA RX PENDING^2920827.1421^^162.1^705^^2950110"
^DIBT(300,2,1)="162.11^^PATIENT^""4^"
^DIBT(300,2,1,162.1)="RX"
^DIBT(300,2,1,"CM")="X DPP(1,""OVF1"",9.2) S Y(101)=$S($D(^FBAAA(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) I D1>0 S X(1)=X"
^DIBT(300,2,1,"OVF1",9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^FBAA(162.1,D0,""RX"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,5) S:'$D(^FBAAA(+D0,0)) D0=-1"
^DIBT(300,2,2)="162.1^5^INVOICE STATUS^@^"
^DIBT(300,2,2,"F")=".99999^1"
^DIBT(300,2,2,"IX")="^FBAA(162.1,""AC"",^FBAA(162.1,^2"
^DIBT(300,2,2,"T")="1^1"
^DIBT(300,2,3)="162.11^8^LINE ITEM STATUS^@^"
^DIBT(300,2,3,162.1)="RX"
^DIBT(300,2,3,"F")=".99999^1"
^DIBT(300,2,3,"T")="1^1"
^DIBT(300,"%D",0)="^^1^1^2931012^"
^DIBT(300,"%D",1,0)="Prescriptions pending pharmacy review"
^DIBT(301,0)="FBCH PENDING REQUEST^2920917.1434^@^162.2^705^@^2941219"
^DIBT(301,2,1)="162.2^100^REQUEST STATUS^]^"
^DIBT(301,2,1,"F")=".99999^1"
^DIBT(301,2,1,"T")="2^2"
^DIBT(301,"%D",0)="^^1^1^2931012^"
^DIBT(301,"%D",1,0)="Fee notifications/requests pending entitlement"
^DIBT(302,0)="FBCH 7078 CANCEL^2930518.1108^@^162.4^705^@^2941219"
^DIBT(302,2,1)="162.4^9^STATUS^@^"
^DIBT(302,2,1,"F")="DBz^DC"
^DIBT(302,2,1,"T")="DC^DC"
^DIBT(302,2,2)="162.4^.014^DATE CANCELLED^@^"
^DIBT(302,"%D",0)="^^1^1^2931012^"
^DIBT(302,"%D",1,0)="Listing of cancelled 7078s"
^DIBT(303,0)="FBUC STATUS BY PATIENT^2940422.1248^@^162.7^10226^@^2950117"
^DIBT(303,2,1)="162.7^.01^DATE CLAIM RECEIVED^@'^"
^DIBT(303,2,1,"ASK")=""
^DIBT(303,2,1,"F")="?z^@"
^DIBT(303,2,1,"T")="z^"
^DIBT(303,2,2)="162.7^^PRIMARY SERVICE FACILITY^#+""6^"
^DIBT(303,2,2,"ASK")=""
^DIBT(303,2,2,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(303,2,2,"F")="?z^@"
^DIBT(303,2,2,"T")="z^"
^DIBT(303,2,3)="162.92^.04^STATUS ORDER^@""^;S2"
^DIBT(303,2,3,162.7,100)="162.92^FB(162.92,^0^S I(0,0)=D0 S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S D(0)=+X"
^DIBT(303,2,3,"ASK")=""
^DIBT(303,2,3,"F")="?z^@"
^DIBT(303,2,3,"T")="z^"
^DIBT(303,2,4)="162.7^^STATUS^'+""24^"
^DIBT(303,2,4,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^FB(162.92,+$P(Y(1),U,24),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(303,2,5)="162.7^^VETERAN^""2^"
^DIBT(303,2,5,"ASK")=""
^DIBT(303,2,5,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(5)=X"
^DIBT(303,2,5,"F")="?z^@"
^DIBT(303,2,5,"T")="z^"
^DIBT(303,2,6)="162.7^^VENDOR^""1^"
^DIBT(303,2,6,"ASK")=""
^DIBT(303,2,6,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^FBAAV(+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(6)=X"
^DIBT(303,2,6,"F")="?z^@"
^DIBT(303,2,6,"T")="z^"
^DIBT(303,2,7)="162.7^26^EXPIRATION DATE OF CLAIM^^"
^DIBT(303,2,7,"ASK")=""
^DIBT(303,2,7,"F")="?z^@"
^DIBT(303,2,7,"T")="z^"
^DIBT(303,"%D",0)="^^1^1^2931012^"
^DIBT(303,"%D",1,0)="Status listing of unauthorized claims by patient"
^DIBT(304,0)="FBUC STATUS BY VENDOR^2940422.1249^@^162.7^10226^@^2940422"
^DIBT(304,2,1)="162.7^.01^DATE CLAIM RECEIVED^@'^"
^DIBT(304,2,1,"ASK")=""
^DIBT(304,2,1,"F")="?z^@"
^DIBT(304,2,1,"T")="z^"
^DIBT(304,2,2)="162.7^^PRIMARY SERVICE FACILITY^#+""6^"
^DIBT(304,2,2,"ASK")=""
^DIBT(304,2,2,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(304,2,2,"F")="?z^@"
^DIBT(304,2,2,"T")="z^"
^DIBT(304,2,3)="162.92^.04^STATUS ORDER^@""^;S2"
^DIBT(304,2,3,162.7,100)="162.92^FB(162.92,^0^S I(0,0)=D0 S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S D(0)=+X"
^DIBT(304,2,3,"ASK")=""
^DIBT(304,2,3,"F")="?z^@"
^DIBT(304,2,3,"T")="z^"
^DIBT(304,2,4)="162.7^^STATUS^'+""24^"
^DIBT(304,2,4,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^FB(162.92,+$P(Y(1),U,24),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(304,2,5)="162.7^^VENDOR^""1^"
^DIBT(304,2,5,"ASK")=""
^DIBT(304,2,5,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^FBAAV(+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(5)=X"
^DIBT(304,2,5,"F")="?z^@"
^DIBT(304,2,5,"T")="z^"
^DIBT(304,2,6)="162.7^^VETERAN^""2^"
^DIBT(304,2,6,"ASK")=""
^DIBT(304,2,6,"CM")="S Y(1)=$S($D(^FB583(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(6)=X"
^DIBT(304,2,6,"F")="?z^@"
^DIBT(304,2,6,"T")="z^"
^DIBT(304,2,7)="162.7^26^EXPIRATION DATE OF CLAIM^^"
^DIBT(304,2,7,"ASK")=""
^DIBT(304,2,7,"F")="?z^@"
^DIBT(304,2,7,"T")="z^"
^DIBT(304,"%D",0)="^^1^1^2931012^"
^DIBT(304,"%D",1,0)="Status listing of unauthorized claims by vendor"
^DIBT(305,0)="RA SERIES ONLY^2850228^^71^^^2971201^"
^DIBT(305,2,0)="^.4014^2^2"
^DIBT(305,2,1,0)="71^6^TYPE OF PROCEDURE^]^^^^^^3"
^DIBT(305,2,1,"F")="Rz"
^DIBT(305,2,1,"GET")="S DISX(1)=$P($G(^RAMIS(71,D0,0)),U,6)"
^DIBT(305,2,1,"QCON")="I (DISX(1)]]""Rz"")&(DISX(1)']]""S"")"
^DIBT(305,2,1,"SER")="0.9697^0.9697"
^DIBT(305,2,1,"T")="S"
^DIBT(305,2,1,"TXT")="TYPE OF PROCEDURE"
^DIBT(305,2,2,0)="71^9^CPT CODE^^^^^^^4"
^DIBT(305,2,2,"GET")="S DISX(2)=$P($G(^RAMIS(71,D0,0)),U,9)"
^DIBT(305,2,2,"IX")="^RAMIS(71,""D"",^RAMIS(71,^2"
^DIBT(305,2,2,"QCON")="I DISX(2)'="""""
^DIBT(305,2,2,"SER")="0.1928^0.1616"
^DIBT(305,2,2,"TXT")="CPT CODE not null"
^DIBT(305,2,"B",71,1)=""
^DIBT(305,2,"B",71,2)=""
^DIBT(305,"%D",0)="^^1^1^2940607^"
^DIBT(305,"%D",1,0)="Used to sort procedures by 'series' type only."
^DIBT(307,0)="RA ALPHA LIST OF ACTIVES^2850416^^71^^^2971104^"
^DIBT(307,2,0)="^.4014^2^2"
^DIBT(307,2,1,0)="71^^INACTIVATION DATE=""""^]""@B^;L1^^^^^4"
^DIBT(307,2,1,"CM")="S Y(1)=$S($D(^RAMIS(71,D0,""I"")):^(""I""),1:"""") S X=$P(Y(1),U,1)="""" I D0>0 S DISX(1)=X"
^DIBT(307,2,1,"F")="0"
^DIBT(307,2,1,"GET")="S Y(1)=$S($D(^RAMIS(71,D0,""I"")):^(""I""),1:"""") S X=$P(Y(1),U,1)="""" I D0>0 S DISX(1)=X"
^DIBT(307,2,1,"QCON")="I DISX(1)"
^DIBT(307,2,1,"T")="1"
^DIBT(307,2,1,"TXT")="INACTIVATION DATE="""""""""
^DIBT(307,2,2,0)="71^.01^NAME^^^^^^^4"
^DIBT(307,2,2,"GET")="S DISX(2)=$P($G(^RAMIS(71,D0,0)),U,1)"
^DIBT(307,2,2,"IX")="^RAMIS(71,""B"",^RAMIS(71,^2"
^DIBT(307,2,2,"QCON")="I DISX(2)'="""""
^DIBT(307,2,2,"SER")="0^0"
^DIBT(307,2,2,"TXT")="NAME not null"
^DIBT(307,2,"B",71,1)=""
^DIBT(307,2,"B",71,2)=""
^DIBT(307,"%D",0)="^^2^2^2940607^^"
^DIBT(307,"%D",1,0)="This template sorts the procedure file to determine the active procedures"
^DIBT(307,"%D",2,0)="and puts them in alphabetical order."
^DIBT(307,"DIPT")="RA ALPHA LIST OF ACTIVES"
^DIBT(308,0)="RA PROCEDURES BY AMIS^2851212^^71^^^^"
^DIBT(308,2,1)="71.03^^.01:.001^@""^"
^DIBT(308,2,1,71)="2"
^DIBT(308,2,1,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:""""),D0=$P(Y(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) I D1>0 S X(1)=X"
^DIBT(308,2,2)="71.03^^AMIS CODE^"".01^;""AMIS: """
^DIBT(308,2,2,71)="2"
^DIBT(308,2,2,"CM")="S Y(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:"""") S X=$S('$D(^RAMIS(71.1,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(308,2,3)="71^.01^NAME^^"
^DIBT(308,2,3,"IX")="^RAMIS(71,""B"",^RAMIS(71,^2"
^DIBT(308,"%D",0)="^^1^1^2940607^"
^DIBT(308,"%D",1,0)="Used to sort procedures by Major Amis code."
^DIBT(309,0)="RA PERSONNEL LIST^2900705.103^^200^^^2980204^"
^DIBT(309,2,0)="^.4014^1^1"
^DIBT(309,2,1,0)="200^.01^NAME^^^^^^^4"
^DIBT(309,2,1,"GET")="S DISX(1)=$P($G(^VA(200,D0,0)),U,1)"
^DIBT(309,2,1,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(309,2,1,"QCON")="I DISX(1)'="""""
^DIBT(309,2,1,"TXT")="NAME not null"
^DIBT(309,2,"B",200,1)=""
^DIBT(309,"%D",0)="^^2^2^2950406^^^"
^DIBT(309,"%D",1,0)="This template sorts radiology/nuclear medicine personnel by"
^DIBT(309,"%D",2,0)="classification."
^DIBT(310,0)="RA IMAGE LOC LIST^2960221.0854^^79.1^^^3000517"
^DIBT(310,2,0)="^.4014^3^3"
^DIBT(310,2,1,0)="79.1^^TYPE OF IMAGING^""6^^^^^^4"
^DIBT(310,2,1,"CM")="S Y(1)=$S($D(^RA(79.1,D0,0)):^(0),1:"""") S X=$S('$D(^RA(79.2,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(310,2,1,"GET")="S Y(1)=$S($D(^RA(79.1,D0,0)):^(0),1:"""") S X=$S('$D(^RA(79.2,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(310,2,1,"IX")="^RA(79.1,""BIMG"",^RA(79.1,^2"
^DIBT(310,2,1,"PTRIX")="^RA(79.2,""B"","
^DIBT(310,2,1,"QCON")="I DISX(1)'="""""
^DIBT(310,2,1,"SER")="0.0000^0.0000"
^DIBT(310,2,1,"TXT")="TYPE OF IMAGING not null"
^DIBT(310,2,2,0)="79.1^^RAD/NUC MED DIVISION^""25^^^^^^7"
^DIBT(310,2,2,3,0)="^.401419^1^1"
^DIBT(310,2,2,3,1,0)="OVF0^9.2"
^DIBT(310,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RA(79.1,D0,""DIV"")):^(""DIV""),1:""""),D0=$P(Y(1),U,1) S:'$D(^RA(79,+D0,0)) D0=-1 S Y(101)=$S($D(^RA(79,D0,0)):^(0),1:"""")"
^DIBT(310,2,2,3,"B","OVF0",1)=""
^DIBT(310,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(310,2,2,"F")="?z^@"
^DIBT(310,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(310,2,2,"QCON")="I 1"
^DIBT(310,2,2,"T")="z^"
^DIBT(310,2,2,"TXT")="All RAD/NUC MED DIVISION (includes nulls)"
^DIBT(310,2,3,0)="79.1^^LOCATION^#"".01^^^^^^4"
^DIBT(310,2,3,"CM")="S Y(1)=$S($D(^RA(79.1,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(310,2,3,"GET")="S Y(1)=$S($D(^RA(79.1,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(310,2,3,"IX")="^RA(79.1,""B"",^RA(79.1,^2"
^DIBT(310,2,3,"PTRIX")="^SC(""B"","
^DIBT(310,2,3,"QCON")="I DISX(3)'="""""
^DIBT(310,2,3,"SER")="0.0000^0.0000"
^DIBT(310,2,3,"TXT")="LOCATION not null"
^DIBT(310,2,"B",79.1,1)=""
^DIBT(310,2,"B",79.1,2)=""
^DIBT(310,2,"B",79.1,3)=""
^DIBT(310,"%D",0)="^^2^2^2960221^^^^"
^DIBT(310,"%D",1,0)="This template is used to sort location parameters by imaging"
^DIBT(310,"%D",2,0)="location."
^DIBT(310,"DIPT")="RA IMAGE LOC LIST"
^DIBT(311,0)="RA OUTSIDE LIST^2890111^^70^^^2971201^"
^DIBT(311,2,0)="^.4014^3^3"
^DIBT(311,2,1,0)="70.06^2^NEEDED BACK DATE^^^^^^^1"
^DIBT(311,2,1,1,0)="^.40141^1^1"
^DIBT(311,2,1,1,1,0)="70^O"
^DIBT(311,2,1,1,"B",70,1)=""
^DIBT(311,2,1,"ASK")="1"
^DIBT(311,2,1,"F")="2000100.99999^2000101^1/1/00"
^DIBT(311,2,1,"GET")="S DISX(1)=$P($G(^RADPT(D0,""O"",D1,0)),U,2)"
^DIBT(311,2,1,"QCON")="I (DISX(1)]]2000100.99999)&(DISX(1)']]2971201)"
^DIBT(311,2,1,"T")="2971201^2971201^12/1/97"
^DIBT(311,2,1,"TXT")="NEEDED BACK DATE from 1/1/00 to 12/1/97"
^DIBT(311,2,2,0)="70.06^3^RETURNED DATE^@^^^^^^1"
^DIBT(311,2,2,1,0)="^.40141^1^1"
^DIBT(311,2,2,1,1,0)="70^O"
^DIBT(311,2,2,1,"B",70,1)=""
^DIBT(311,2,2,"F")="?z"
^DIBT(311,2,2,"GET")="S DISX(2)=$P($G(^RADPT(D0,""O"",D1,0)),U,3)"
^DIBT(311,2,2,"QCON")="I DISX(2)="""""
^DIBT(311,2,2,"T")="@"
^DIBT(311,2,2,"TXT")="RETURNED DATE is null"
^DIBT(311,2,3,0)="70^^NAME^"".01^^^^^^4"
^DIBT(311,2,3,"CM")="S Y(1)=$S($D(^RADPT(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(311,2,3,"F")="@z"
^DIBT(311,2,3,"GET")="S Y(1)=$S($D(^RADPT(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(311,2,3,"IX")="^RADPT(""B"",^RADPT(^2"
^DIBT(311,2,3,"PTRIX")="^DPT(""B"","
^DIBT(311,2,3,"QCON")="I (DISX(3)]]""@z"")&(DISX(3)']]""ZZZZ"")"
^DIBT(311,2,3,"SER")="0.0000^0.0000"
^DIBT(311,2,3,"T")="ZZZZ"
^DIBT(311,2,3,"TXT")="NAME"
^DIBT(311,2,"B",70,3)=""
^DIBT(311,2,"B",70.06,1)=""
^DIBT(311,2,"B",70.06,2)=""
^DIBT(311,"%D",0)="^^1^1^2940607^^"
^DIBT(311,"%D",1,0)="Used for sorting outside film registry."
^DIBT(312,0)="RA DAILY LOG^2850307^^70^^^^"
^DIBT(312,2,1)="70.02^.01^EXAM DATE^'^"
^DIBT(312,2,1,70)="DT"
^DIBT(312,2,1,"ASK")=""
^DIBT(312,2,1,"F")="2850305.99999"
^DIBT(312,2,1,"IX")="^RADPT(""AR"",^RADPT(^2"
^DIBT(312,2,1,"T")="2850306.9999"
^DIBT(312,2,2)="70.02^^HOSPITAL DIVISION^#""3^"
^DIBT(312,2,2,70)="DT"
^DIBT(312,2,2,"CM")="X DPP(2,""OVFLO"",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(2) I D1>0 S X(2)=X"
^DIBT(312,2,2,"OVFLO",9.2)="S Y(2)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RADPT(D0,""DT"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^RA(79,+D0,0)) D0=-1 S Y(101)=$S($D(^RA(79,D0,0)):^(0),1:"""")"
^DIBT(312,2,3)="70^^NAME^"".01^"
^DIBT(312,2,3,"CM")="S Y(1)=$S($D(^RADPT(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(312,"%D",0)="^^1^1^2940607^^"
^DIBT(312,"%D",1,0)="Used for sorting exams by exam date and hospital division."
^DIBT(313,0)="RA EXAM ROOM LIST^2960624.1056^^79.1^^^2971110"
^DIBT(313,2,0)="^.4014^3^3"
^DIBT(313,2,1,0)="79.12^^CAMERA/EQUIP/RM^@"".01^^^^^^4"
^DIBT(313,2,1,1,0)="^.40141^1^1"
^DIBT(313,2,1,1,1,0)="79.1^R"
^DIBT(313,2,1,1,"B",79.1,1)=""
^DIBT(313,2,1,"CM")="S Y(1)=$S($D(^RA(79.1,D0,""R"",D1,0)):^(0),1:"""") S X=$S('$D(^RA(78.6,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(313,2,1,"GET")="S Y(1)=$S($D(^RA(79.1,D0,""R"",D1,0)):^(0),1:"""") S X=$S('$D(^RA(78.6,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(313,2,1,"QCON")="I DISX(1)'="""""
^DIBT(313,2,1,"TXT")="CAMERA/EQUIP/RM not null"
^DIBT(313,2,2,0)="79.1^^RAD/NUC MED DIVISION^""25^^^^^^4"
^DIBT(313,2,2,3,0)="^.401419^1^1"
^DIBT(313,2,2,3,1,0)="OVF0^9.2"
^DIBT(313,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RA(79.1,D0,""DIV"")):^(""DIV""),1:""""),D0=$P(Y(1),U,1) S:'$D(^RA(79,+D0,0)) D0=-1 S Y(101)=$S($D(^RA(79,D0,0)):^(0),1:"""")"
^DIBT(313,2,2,3,"B","OVF0",1)=""
^DIBT(313,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(313,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(313,2,2,"QCON")="I DISX(2)'="""""
^DIBT(313,2,2,"TXT")="RAD/NUC MED DIVISION not null"
^DIBT(313,2,3,0)="79.1^^LOCATION^"".01^^^^^^4"
^DIBT(313,2,3,"CM")="S Y(1)=$S($D(^RA(79.1,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(313,2,3,"GET")="S Y(1)=$S($D(^RA(79.1,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(313,2,3,"IX")="^RA(79.1,""B"",^RA(79.1,^2"
^DIBT(313,2,3,"PTRIX")="^SC(""B"","
^DIBT(313,2,3,"QCON")="I DISX(3)'="""""
^DIBT(313,2,3,"SER")="0.0000^0.0000"
^DIBT(313,2,3,"TXT")="LOCATION not null"
^DIBT(313,2,"B",79.1,2)=""
^DIBT(313,2,"B",79.1,3)=""
^DIBT(313,2,"B",79.12,1)=""
^DIBT(313,"DIPT")="RA EXAM ROOM LIST"
^DIBT(314,0)="RA FLASH PRINT^2850221^^78.2^^^2980126^"
^DIBT(314,2,0)="^.4014^3^3"
^DIBT(314,2,1,0)="78.2^.01^FORMAT NAME^#^^^^^^4"
^DIBT(314,2,1,"GET")="S DISX(1)=$P($G(^RA(78.2,D0,0)),U,1)"
^DIBT(314,2,1,"IX")="^RA(78.2,""B"",^RA(78.2,^2"
^DIBT(314,2,1,"QCON")="I DISX(1)'="""""
^DIBT(314,2,1,"SER")="0^0"
^DIBT(314,2,1,"TXT")="FORMAT NAME not null"
^DIBT(314,2,2,0)="78.21^2^ROW^^^^^^^2"
^DIBT(314,2,2,1,0)="^.40141^1^1"
^DIBT(314,2,2,1,1,0)="78.2^1"
^DIBT(314,2,2,1,"B",78.2,1)=""
^DIBT(314,2,2,"GET")="S DISX(2)=$P($G(^RA(78.2,D0,1,D1,0)),U,2)"
^DIBT(314,2,2,"QCON")="I DISX(2)'="""""
^DIBT(314,2,2,"TXT")="ROW not null"
^DIBT(314,2,3,0)="78.21^3^COLUMN^^^^^^^2"
^DIBT(314,2,3,1,0)="^.40141^1^1"
^DIBT(314,2,3,1,1,0)="78.2^1"
^DIBT(314,2,3,1,"B",78.2,1)=""
^DIBT(314,2,3,"GET")="S DISX(3)=$P($G(^RA(78.2,D0,1,D1,0)),U,3)"
^DIBT(314,2,3,"QCON")="I DISX(3)'="""""
^DIBT(314,2,3,"TXT")="COLUMN not null"
^DIBT(314,2,"B",78.2,1)=""
^DIBT(314,2,"B",78.21,2)=""
^DIBT(314,2,"B",78.21,3)=""
^DIBT(314,"%D",0)="^^1^1^2940607^^"
^DIBT(314,"%D",1,0)="Sorts print formats by name for printing label set-ups."
^DIBT(315,0)="RA CLINIC BY PRINT DATE^2930129.115^^74.4^^^2971217"
^DIBT(315,2,0)="^.4014^4^4"
^DIBT(315,2,1,0)="74.4^4^PRINT DATE/TIME^@^^^^^^1"
^DIBT(315,2,1,"ASK")="1"
^DIBT(315,2,1,"F")="2970907.99999^2970908^9/8/97"
^DIBT(315,2,1,"GET")="S DISX(1)=$P($G(^RABTCH(74.4,D0,0)),U,4)"
^DIBT(315,2,1,"IX")="^RABTCH(74.4,""AD"",^RABTCH(74.4,^2"
^DIBT(315,2,1,"QCON")="I (DISX(1)]]2970907.99999)&(DISX(1)']]2971217.9999)"
^DIBT(315,2,1,"SER")="29.0000^0.9667"
^DIBT(315,2,1,"T")="2971217.9999^2971217.9999^12/17/97@99:99"
^DIBT(315,2,1,"TXT")="PRINT DATE/TIME from 9/8/97 to 12/17/97@99:99"
^DIBT(315,2,2,0)="74.4^^REPORT:HOSPITAL DIVISION^@""^^^^^^4"
^DIBT(315,2,2,"ASK")="1"
^DIBT(315,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(315,2,2,"F")="@z^A"
^DIBT(315,2,2,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(315,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(315,2,2,"T")="Z^Z"
^DIBT(315,2,2,"TXT")="REPORT:HOSPITAL DIVISION from A to Z"
^DIBT(315,2,3,0)="74.4^^PRINCIPAL CLINIC^@""8^^^^^^4"
^DIBT(315,2,3,"ASK")="1"
^DIBT(315,2,3,"CM")="S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(315,2,3,"F")="1Dz^1E"
^DIBT(315,2,3,"GET")="S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(315,2,3,"QCON")="I (DISX(3)]]""1Dz"")&(DISX(3)']]""ZZX-RAY"")"
^DIBT(315,2,3,"T")="ZZX-RAY^ZZX-RAY"
^DIBT(315,2,3,"TXT")="PRINCIPAL CLINIC from 1E to ZZX-RAY"
^DIBT(315,2,4,0)="74.4^^REPORT:PATIENT NAME^@""^^^^^^4"
^DIBT(315,2,4,3,0)="^.401419^1^1"
^DIBT(315,2,4,3,1,0)="OVF0^9.2"
^DIBT(315,2,4,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S Y(101)=$S($D(^RARPT(D0,0)):^(0),1:"""")"
^DIBT(315,2,4,3,"B","OVF0",1)=""
^DIBT(315,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(315,2,4,"GET")="X DPP(4,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(315,2,4,"QCON")="I DISX(4)'="""""
^DIBT(315,2,4,"TXT")="REPORT:PATIENT NAME not null"
^DIBT(315,2,"B",74.4,1)=""
^DIBT(315,2,"B",74.4,2)=""
^DIBT(315,2,"B",74.4,3)=""
^DIBT(315,2,"B",74.4,4)=""
^DIBT(315,"%D",0)="^^3^3^2940607^^"
^DIBT(315,"%D",1,0)=" "
^DIBT(315,"%D",2,0)="This template sorts the distribution queue by clinic location."
^DIBT(315,"%D",3,0)="It also allows for sorting of reports by print status."
^DIBT(316,0)="RA WARD BY PRINT DATE^2930201.1151^^74.4^^^2971217"
^DIBT(316,2,0)="^.4014^4^4"
^DIBT(316,2,1,0)="74.4^4^PRINT DATE/TIME^@^^^^^^1"
^DIBT(316,2,1,"ASK")="1"
^DIBT(316,2,1,"F")="2970907.99999^2970908^9/8/97"
^DIBT(316,2,1,"GET")="S DISX(1)=$P($G(^RABTCH(74.4,D0,0)),U,4)"
^DIBT(316,2,1,"IX")="^RABTCH(74.4,""AD"",^RABTCH(74.4,^2"
^DIBT(316,2,1,"QCON")="I (DISX(1)]]2970907.99999)&(DISX(1)']]2971217.9999)"
^DIBT(316,2,1,"SER")="29.0000^0.9667"
^DIBT(316,2,1,"T")="2971217.9999^2971217.9999^12/17/97@99:99"
^DIBT(316,2,1,"TXT")="PRINT DATE/TIME from 9/8/97 to 12/17/97@99:99"
^DIBT(316,2,2,0)="74.4^^REPORT:HOSPITAL DIVISION^@""^^^^^^4"
^DIBT(316,2,2,"ASK")="1"
^DIBT(316,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(316,2,2,"F")="@z^A"
^DIBT(316,2,2,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(316,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(316,2,2,"T")="Z^Z"
^DIBT(316,2,2,"TXT")="REPORT:HOSPITAL DIVISION from A to Z"
^DIBT(316,2,3,0)="74.4^^WARD^@""6^^^^^^4"
^DIBT(316,2,3,"ASK")="1"
^DIBT(316,2,3,"CM")="S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(42,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(316,2,3,"F")="1Dz^1E"
^DIBT(316,2,3,"GET")="S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(42,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(316,2,3,"QCON")="I (DISX(3)]]""1Dz"")&(DISX(3)']]""3S"")"
^DIBT(316,2,3,"T")="3S^3S"
^DIBT(316,2,3,"TXT")="WARD from 1E to 3S"
^DIBT(316,2,4,0)="74.4^^REPORT:PATIENT NAME^@""^^^^^^4"
^DIBT(316,2,4,3,0)="^.401419^1^1"
^DIBT(316,2,4,3,1,0)="OVF0^9.2"
^DIBT(316,2,4,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S Y(101)=$S($D(^RARPT(D0,0)):^(0),1:"""")"
^DIBT(316,2,4,3,"B","OVF0",1)=""
^DIBT(316,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(316,2,4,"GET")="X DPP(4,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(316,2,4,"QCON")="I DISX(4)'="""""
^DIBT(316,2,4,"TXT")="REPORT:PATIENT NAME not null"
^DIBT(316,2,"B",74.4,1)=""
^DIBT(316,2,"B",74.4,2)=""
^DIBT(316,2,"B",74.4,3)=""
^DIBT(316,2,"B",74.4,4)=""
^DIBT(316,"%D",0)="^^1^1^2940607^^"
^DIBT(316,"%D",1,0)="Sorts reports in the ward distribution queue by print date."
^DIBT(317,0)="RA ALL UNPRINTED^2950731.0913^^74.4^^^2971217"
^DIBT(317,2,0)="^.4014^3^3"
^DIBT(317,2,1,0)="74.4^4^PRINT DATE/TIME^@^^^^^^1"
^DIBT(317,2,1,"F")="?z^@"
^DIBT(317,2,1,"GET")="S DISX(1)=$P($G(^RABTCH(74.4,D0,0)),U,4)"
^DIBT(317,2,1,"QCON")="I DISX(1)="""""
^DIBT(317,2,1,"SER")="0.0333^0.0333"
^DIBT(317,2,1,"T")="@^@"
^DIBT(317,2,1,"TXT")="PRINT DATE/TIME is null"
^DIBT(317,2,2,0)="74.4^^REPORT:HOSPITAL DIVISION^@""^^^^^^4"
^DIBT(317,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(317,2,2,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(317,2,2,"QCON")="I DISX(2)'="""""
^DIBT(317,2,2,"TXT")="REPORT:HOSPITAL DIVISION not null"
^DIBT(317,2,3,0)="74.4^^REPORT:PATIENT NAME^@""^^^^^^4"
^DIBT(317,2,3,3,0)="^.401419^1^1"
^DIBT(317,2,3,3,1,0)="OVF0^9.2"
^DIBT(317,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S Y(101)=$S($D(^RARPT(D0,0)):^(0),1:"""")"
^DIBT(317,2,3,3,"B","OVF0",1)=""
^DIBT(317,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(317,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(317,2,3,"QCON")="I DISX(3)'="""""
^DIBT(317,2,3,"TXT")="REPORT:PATIENT NAME not null"
^DIBT(317,2,"B",74.4,1)=""
^DIBT(317,2,"B",74.4,2)=""
^DIBT(317,2,"B",74.4,3)=""
^DIBT(317,"%D",0)="^^2^2^2950731^^^^"
^DIBT(317,"%D",1,0)="This template is used to sort the Unprinted Reports List for the report"
^DIBT(317,"%D",2,0)="distribution queue."
^DIBT(319,0)="LBRY NEW LOCAL TITLES^2881021^^680.5^^^^"
^DIBT(319,2,1)="680.5^.05^PORTION^@'^"
^DIBT(319,2,1,"F")="Kz"
^DIBT(319,2,1,"T")="L"
^DIBT(319,2,2)="680.5^.01^TITLE^^"
^DIBT(319,2,2,"ASK")=""
^DIBT(319,2,2,"F")=" "
^DIBT(319,2,2,"IX")="^LBRY(680.5,""B"",^LBRY(680.5,^2"
^DIBT(319,2,2,"T")="z"
^DIBT(339,0)="LBRY TAF SORT^2880601^^680.5^^^^"
^DIBT(339,2,1)="680.5^.01^TITLE^]^"
^DIBT(339,2,1,"ASK")=""
^DIBT(339,2,1,"F")=" "
^DIBT(339,2,1,"T")="z"
^DIBT(340,0)="LBRY LOCAL HOLDINGS SORT^2880727^^680.5^^^^"
^DIBT(340,2,1)="680.5^.01^TITLE^]^"
^DIBT(340,2,1,"ASK")=""
^DIBT(340,2,1,"F")=" "
^DIBT(340,2,1,"T")="z"
^DIBT(350,0)="LBRY TITLE LOCATION^2960412.1603^^680^^^2970326"
^DIBT(350,2,0)="^.4014^2^2"
^DIBT(350,2,1,0)="680^^PLACEMENT^#""1.1^;C5;""LOCATION: ""^^^^^4"
^DIBT(350,2,1,"ASK")="1"
^DIBT(350,2,1,"CM")="S Y(1)=$S($D(^LBRY(680,D0,1)):^(1),1:"""") S X=$S('$D(^LBRY(680.7,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(350,2,1,"F")="MED LIAz^MED LIB"
^DIBT(350,2,1,"GET")="S Y(1)=$S($D(^LBRY(680,D0,1)):^(1),1:"""") S X=$S('$D(^LBRY(680.7,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(350,2,1,"QCON")="I DISX(1)'="""""
^DIBT(350,2,1,"T")="z^"
^DIBT(350,2,1,"TXT")="PLACEMENT not null"
^DIBT(350,2,2,0)="680^^TITLE^"".01^^^^^^4"
^DIBT(350,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(350,2,2,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(350,2,2,"QCON")="I DISX(2)'="""""
^DIBT(350,2,2,"TXT")="TITLE not null"
^DIBT(350,2,"B",680,1)=""
^DIBT(350,2,"B",680,2)=""
^DIBT(351,0)="LBRY GAPS LIST^2960507.1616^^680^^^2960507"
^DIBT(351,2,0)="^.4014^1^1"
^DIBT(351,2,1,0)="680^^TITLE^]"".01^^^^^^4"
^DIBT(351,2,1,"ASK")="1"
^DIBT(351,2,1,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(351,2,1,"F")=",z^-"
^DIBT(351,2,1,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(351,2,1,"QCON")="I DISX(1)'="""""
^DIBT(351,2,1,"T")="z^"
^DIBT(351,2,1,"TXT")="TITLE not null"
^DIBT(351,2,"B",680,1)=""
^DIBT(352,0)="LBRY MICROFILM HOLDINGS^2880218^^680^^^^"
^DIBT(352,2,1)="680^2.1^MICROFILM HOLDING^@'^"
^DIBT(352,2,2)="680^^TITLE^]"".01^"
^DIBT(352,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(353,0)="LBRY SUBSCRIPTION/VENDOR^2960507.1522^^681^^^2960521"
^DIBT(353,2,0)="^.4014^2^2"
^DIBT(353,2,1,0)="681^1.4^VENDOR^#^;C5^^^^^4"
^DIBT(353,2,1,"ASK")="1"
^DIBT(353,2,1,"F")="Qz^R"
^DIBT(353,2,1,"GET")="S DISX(1)=$P($G(^LBRY(681,D0,1)),U,5)"
^DIBT(353,2,1,"IX")="^LBRY(681,""AD"",^LBRY(681,^2"
^DIBT(353,2,1,"QCON")="I DISX(1)'="""""
^DIBT(353,2,1,"SER")="0.3750^0.2727"
^DIBT(353,2,1,"T")="S^S"
^DIBT(353,2,1,"TXT")="VENDOR not null"
^DIBT(353,2,2,0)="681^^LOCAL SERIALS TITLE^@"".02^^^^^^4"
^DIBT(353,2,2,3,0)="^.401419^1^1"
^DIBT(353,2,2,3,1,0)="OVF0^9.2"
^DIBT(353,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(353,2,2,3,"B","OVF0",1)=""
^DIBT(353,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(353,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(353,2,2,"QCON")="I DISX(2)'="""""
^DIBT(353,2,2,"TXT")="LOCAL SERIALS TITLE not null"
^DIBT(353,2,"B",681,1)=""
^DIBT(353,2,"B",681,2)=""
^DIBT(354,0)="LBRY RECIPIENTS BY TITLE^2880304^^681^^^^"
^DIBT(354,2,1)="681^1.5^COPY DISPOSITION^@'^"
^DIBT(354,2,1,"F")=".99999"
^DIBT(354,2,1,"T")="2"
^DIBT(354,2,2)="681^^LOCAL SERIALS TITLE^"".02^"
^DIBT(354,2,2,"ASK")=""
^DIBT(354,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(354,2,2,"F")=" "
^DIBT(354,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(354,2,2,"T")="z"
^DIBT(354,2,3)="681^1^COPY NUMBER OR ToC^@^"
^DIBT(354,2,3,"ASK")=""
^DIBT(354,2,3,"F")=".99999"
^DIBT(354,2,3,"T")="ToC"
^DIBT(355,0)="LBRY RECIPIENTS WITH TITLES^2880225^^681^^^^"
^DIBT(355,2,1)="681^1^COPY NUMBER OR ToC^@'^"
^DIBT(355,2,2)="681.02^^TO ROUTE TO^"".01^"
^DIBT(355,2,2,681)="2"
^DIBT(355,2,2,"ASK")=""
^DIBT(355,2,2,"CM")="S Y(1)=$S($D(^LBRY(681,D0,2,D1,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(355,2,2,"F")="@z"
^DIBT(355,2,2,"T")="z"
^DIBT(355,2,3)="681^^LOCAL SERIALS TITLE^"".02^"
^DIBT(355,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(355,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(356,0)="LBRY MICROFILM VENDOR^2880225^^680^^^^"
^DIBT(356,2,1)="680^2.1^MICROFILM HOLDING^@'^"
^DIBT(356,2,2)="680^2.5^MICROFILM VENDOR^#^;C5;""VENDOR: """
^DIBT(356,2,2,"ASK")=""
^DIBT(356,2,2,"F")="@z"
^DIBT(356,2,2,"T")="z"
^DIBT(356,2,3)="680^^TITLE^"".01^"
^DIBT(356,2,3,"ASK")=""
^DIBT(356,2,3,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(356,2,3,"F")="@z"
^DIBT(356,2,3,"T")="z"
^DIBT(357,0)="LBRY MEDICAL HOLDINGS^2960507.153^^680^^^2970326"
^DIBT(357,2,0)="^.4014^2^2"
^DIBT(357,2,1,0)="680.01^.01^CATEGORY^@'^^^^^^3"
^DIBT(357,2,1,1,0)="^.40141^1^1"
^DIBT(357,2,1,1,1,0)="680^4"
^DIBT(357,2,1,1,"B",680,1)=""
^DIBT(357,2,1,"F")="Lz^M^M (MEDICAL)"
^DIBT(357,2,1,"GET")="S DISX(1)=$P($G(^LBRY(680,D0,4,D1,0)),U,1)"
^DIBT(357,2,1,"QCON")="I DISX(1)=""M"""
^DIBT(357,2,1,"T")="M^M^M (MEDICAL)"
^DIBT(357,2,1,"TXT")="CATEGORY equals M (MEDICAL)"
^DIBT(357,2,2,0)="680^^TITLE^"".01^^^^^^4"
^DIBT(357,2,2,"ASK")="1"
^DIBT(357,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(357,2,2,"F")="@z^A"
^DIBT(357,2,2,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(357,2,2,"QCON")="I DISX(2)'="""""
^DIBT(357,2,2,"T")="B^B"
^DIBT(357,2,2,"TXT")="TITLE not null"
^DIBT(357,2,"B",680,2)=""
^DIBT(357,2,"B",680.01,1)=""
^DIBT(358,0)="LBRY MEDICAL BY SUBJECT^2960403.1026^^680^^^2960429"
^DIBT(358,2,0)="^.4014^3^3"
^DIBT(358,2,1,0)="680.01^.01^CATEGORY^@'^^^^^^3"
^DIBT(358,2,1,1,0)="^.40141^1^1"
^DIBT(358,2,1,1,1,0)="680^4"
^DIBT(358,2,1,1,"B",680,1)=""
^DIBT(358,2,1,"GET")="S DISX(1)=$P($G(^LBRY(680,D0,4,D1,0)),U,1)"
^DIBT(358,2,1,"QCON")="I DISX(1)'="""""
^DIBT(358,2,1,"TXT")="CATEGORY not null"
^DIBT(358,2,2,0)="680.03^^SUBJECT^#"".01^;C5;""SUBJECT: ""^^^^^4"
^DIBT(358,2,2,1,0)="^.40141^1^1"
^DIBT(358,2,2,1,1,0)="680^3"
^DIBT(358,2,2,1,"B",680,1)=""
^DIBT(358,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,3,D1,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.3,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(2)=X"
^DIBT(358,2,2,"GET")="S Y(1)=$S($D(^LBRY(680,D0,3,D1,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.3,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(2)=X"
^DIBT(358,2,2,"IX")="^LBRY(680,""C"",^LBRY(680,^2"
^DIBT(358,2,2,"PTRIX")="^LBRY(680.3,""B"","
^DIBT(358,2,2,"QCON")="I DISX(2)'="""""
^DIBT(358,2,2,"TXT")="SUBJECT not null"
^DIBT(358,2,3,0)="680^^TITLE^"".01^^^^^^4"
^DIBT(358,2,3,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(358,2,3,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(358,2,3,"QCON")="I DISX(3)'="""""
^DIBT(358,2,3,"TXT")="TITLE not null"
^DIBT(358,2,"B",680,3)=""
^DIBT(358,2,"B",680.01,1)=""
^DIBT(358,2,"B",680.03,2)=""
^DIBT(359,0)="LBRY MEDICAL SUBSCRIPTIONS^2880301^^680^^^^"
^DIBT(359,2,1)="680^.02^INACTIVE^@'^"
^DIBT(359,2,1,"F")="?z"
^DIBT(359,2,1,"T")="@"
^DIBT(359,2,2)="680.03^^SUBJECT^#"".01^"
^DIBT(359,2,2,680)="3"
^DIBT(359,2,2,"ASK")=""
^DIBT(359,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,3,D1,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.3,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(359,2,2,"F")=" "
^DIBT(359,2,2,"T")="z"
^DIBT(359,2,3)="680^^TITLE^"".01^"
^DIBT(359,2,3,"ASK")=""
^DIBT(359,2,3,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(359,2,3,"F")=" "
^DIBT(359,2,3,"T")="z"
^DIBT(360,0)="LBRY PATIENT HOLDINGS^2880302^^680^^^^"
^DIBT(360,2,1)="680^.02^INACTIVE^@'^"
^DIBT(360,2,1,"F")="?z"
^DIBT(360,2,1,"T")="@"
^DIBT(360,2,2)="680^^TITLE^"".01^"
^DIBT(360,2,2,"ASK")=""
^DIBT(360,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(360,2,2,"F")=" "
^DIBT(360,2,2,"T")="z"
^DIBT(361,0)="LBRY ADMIN TITLES^2970327.1705^^680^^^2970327"
^DIBT(361,2,0)="^.4014^3^3"
^DIBT(361,2,1,0)="681^1.3^CATEGORY OF COPY^""^^^^^^3"
^DIBT(361,2,1,2,0)="^.401418^1^1"
^DIBT(361,2,1,2,1,0)="680^100^681^LBRY(681,^1"
^DIBT(361,2,1,2,1,"RCOD")="S I(0,0)=$S($D(D0):D0,1:"""") X DPP(1,""OVF0"",9.2) S X="""" S D0=I(0,0)"
^DIBT(361,2,1,2,"B",680,1)=""
^DIBT(361,2,1,3,0)="^.401419^1^1"
^DIBT(361,2,1,3,1,0)="OVF0^9.2"
^DIBT(361,2,1,3,1,"OVF0")="S D=0 F  S (D,D0)=$O(^LBRY(681,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0  I $D(^LBRY(681,D,0)) S X=$P(^(0),U,1) D M Q:'$D(D)  S D=D0"
^DIBT(361,2,1,3,"B","OVF0",1)=""
^DIBT(361,2,1,"F")="@z^A^A (ADMINISTRATIVE)"
^DIBT(361,2,1,"GET")="S DISX(1)=$P($G(^LBRY(681,D0,1)),U,4)"
^DIBT(361,2,1,"QCON")="I DISX(1)=""A"""
^DIBT(361,2,1,"T")="A^A^A (ADMINISTRATIVE)"
^DIBT(361,2,1,"TXT")="CATEGORY OF COPY equals A (ADMINISTRATIVE)"
^DIBT(361,2,2,0)="681^^PLACEMENT OF ITEM^""""1.1^^^^^^4"
^DIBT(361,2,2,2,0)="^.401418^1^1"
^DIBT(361,2,2,2,1,0)="680^100^681^LBRY(681,^1"
^DIBT(361,2,2,2,1,"RCOD")="S I(0,0)=$S($D(D0):D0,1:"""") X DPP(2,""OVF0"",9.2) S X="""" S D0=I(0,0)"
^DIBT(361,2,2,2,"B",680,1)=""
^DIBT(361,2,2,3,0)="^.401419^1^1"
^DIBT(361,2,2,3,1,0)="OVF0^9.2"
^DIBT(361,2,2,3,1,"OVF0")="S D=0 F  S (D,D0)=$O(^LBRY(681,""C"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0  I $D(^LBRY(681,D,0)) S X=$P(^(0),U,1) D M Q:'$D(D)  S D=D0"
^DIBT(361,2,2,3,"B","OVF0",1)=""
^DIBT(361,2,2,"ASK")="1"
^DIBT(361,2,2,"CM")="S Y(101)=$S($D(^LBRY(681,D0,1)):^(1),1:"""") S X=$S('$D(^LBRY(680.7,+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(361,2,2,"F")=",z^-"
^DIBT(361,2,2,"GET")="S Y(101)=$S($D(^LBRY(681,D0,1)):^(1),1:"""") S X=$S('$D(^LBRY(680.7,+$P(Y(101),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(361,2,2,"QCON")="I DISX(2)]]"",z"""
^DIBT(361,2,2,"T")="z^"
^DIBT(361,2,2,"TXT")="PLACEMENT OF ITEM from -"
^DIBT(361,2,3,0)="680^^TITLE^"".01^^^^^^4"
^DIBT(361,2,3,"ASK")="1"
^DIBT(361,2,3,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(361,2,3,"F")=",z^-"
^DIBT(361,2,3,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(361,2,3,"QCON")="I DISX(3)]]"",z"""
^DIBT(361,2,3,"T")="z^"
^DIBT(361,2,3,"TXT")="TITLE from -"
^DIBT(361,2,"B",680,3)=""
^DIBT(361,2,"B",681,1)=""
^DIBT(361,2,"B",681,2)=""
^DIBT(361,"%D",0)="^^1^1^2970327^^^^"
^DIBT(361,"%D",1,0)="LBRY ADMIN TITLES"
^DIBT(361,"DIPT")=""
^DIBT(362,0)="LBRY DONOR TITLES^2880304^^681^^^^"
^DIBT(362,2,1)="681^1.6^GIFT^@'^"
^DIBT(362,2,2)="681^^DONOR^""1.7^"
^DIBT(362,2,2,"ASK")=""
^DIBT(362,2,2,"CM")="S Y(1)=$S($D(^LBRY(681,D0,1)):^(1),1:"""") S X=$S('$D(^LBRY(680.4,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(362,2,2,"F")=" "
^DIBT(362,2,2,"T")="z"
^DIBT(362,2,3)="681^^LOCAL SERIALS TITLE^"".02^"
^DIBT(362,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(362,2,3,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(363,0)="LBRY PATIENT TITLES^2880302^^680^^^^"
^DIBT(363,2,1)="680^^TITLE^]"".01^"
^DIBT(363,2,1,"ASK")=""
^DIBT(363,2,1,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(363,2,1,"F")=" "
^DIBT(363,2,1,"T")="z"
^DIBT(364,0)="LBRY PATIENT TITLES BRIEF^2880302^^680^^^^"
^DIBT(364,2,1)="680.01^.01^CATEGORY^@'^"
^DIBT(364,2,1,680)="4"
^DIBT(364,2,1,"F")="Oz"
^DIBT(364,2,1,"T")="P"
^DIBT(364,2,2)="680^^TITLE^"".01^"
^DIBT(364,2,2,"ASK")=""
^DIBT(364,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(364,2,2,"F")=" "
^DIBT(364,2,2,"T")="z"
^DIBT(365,0)="LBRY ROUTE-TO-RETURN^2880302^^682^^^^"
^DIBT(365,2,1)="682^^LOCAL SERIALS TITLE^"".02^"
^DIBT(365,2,1,"ASK")=""
^DIBT(365,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(1)=X"
^DIBT(365,2,1,"F")=" "
^DIBT(365,2,1,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(682,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(365,2,1,"T")="z"
^DIBT(365,2,2)="682.04^1^ISSUE STATUS^@'^"
^DIBT(365,2,2,682)="4"
^DIBT(365,2,2,"F")="1.99999"
^DIBT(365,2,2,"T")="2"
^DIBT(365,2,3)="682.04^.01^COPY OF ISSUE^^"
^DIBT(365,2,3,682)="4"
^DIBT(366,0)="LBRY FYI LIST^2880302^^680^^^^"
^DIBT(366,2,1)="680^.02^INACTIVE^@'^"
^DIBT(366,2,1,"F")="?z"
^DIBT(366,2,1,"T")="@"
^DIBT(366,2,2)="680^1.5^FOR-YOUR-INFORMATION^@^"
^DIBT(366,2,3)="680^^TITLE^"".01^"
^DIBT(366,2,3,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(367,0)="LBRY ADMIN RECIPIENTS^2880304^^681^^^^"
^DIBT(367,2,1)="681^1.3^CATEGORY OF COPY^@'^"
^DIBT(367,2,1,"F")="@z"
^DIBT(367,2,1,"T")="A"
^DIBT(367,2,2)="681^^LOCAL SERIALS TITLE^"".02^"
^DIBT(367,2,2,"ASK")=""
^DIBT(367,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(367,2,2,"F")=" "
^DIBT(367,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(367,2,2,"T")="z"
^DIBT(367,2,3)="681^1^COPY NUMBER OR ToC^@^"
^DIBT(367,2,3,"ASK")=""
^DIBT(367,2,3,"F")=".99999"
^DIBT(367,2,3,"T")="ToC"
^DIBT(368,0)="LBRY UNION LIST CODE^2880307^^680^^^^"
^DIBT(368,2,1)="680.02^.01^UNION LIST CODE^#^;C5;""UNION LIST: "";S"
^DIBT(368,2,1,680)="6"
^DIBT(368,2,1,"ASK")=""
^DIBT(368,2,1,"F")=" "
^DIBT(368,2,1,"T")="z"
^DIBT(368,2,2)="680^^TITLE^"".01^"
^DIBT(368,2,2,"ASK")=""
^DIBT(368,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(368,2,2,"F")=" "
^DIBT(368,2,2,"T")="z"
^DIBT(369,0)="LBRY MISSING ISSUES LIST^2960422.1636^^682^^^2960507"
^DIBT(369,2,0)="^.4014^4^4"
^DIBT(369,2,1,0)="682.04^1^ISSUE STATUS^^^^^^^3"
^DIBT(369,2,1,1,0)="^.40141^1^1"
^DIBT(369,2,1,1,1,0)="682^4"
^DIBT(369,2,1,1,"B",682,1)=""
^DIBT(369,2,1,"F")="3.99999^4^4 (NOT RECEIVED)"
^DIBT(369,2,1,"GET")="S DISX(1)=$P($G(^LBRY(682,D0,4,D1,0)),U,2)"
^DIBT(369,2,1,"QCON")="I DISX(1)=4"
^DIBT(369,2,1,"T")="4^4^4 (NOT RECEIVED)"
^DIBT(369,2,1,"TXT")="ISSUE STATUS equals 4 (NOT RECEIVED)"
^DIBT(369,2,2,0)="681^1.4^VENDOR^""^^^^^^4"
^DIBT(369,2,2,1,0)="^.40141^1^1"
^DIBT(369,2,2,1,1,0)="682^4"
^DIBT(369,2,2,1,"B",682,1)=""
^DIBT(369,2,2,2,0)="^.401418^1^1"
^DIBT(369,2,2,2,1,0)="682.04^100^681^LBRY(681,^0"
^DIBT(369,2,2,2,1,"RCOD")="S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S D(0)=+X"
^DIBT(369,2,2,2,"B",682.04,1)=""
^DIBT(369,2,2,"ASK")="1"
^DIBT(369,2,2,"F")="@z^A"
^DIBT(369,2,2,"GET")="S DISX(2)=$P($G(^LBRY(681,D0,1)),U,5)"
^DIBT(369,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""B"")"
^DIBT(369,2,2,"T")="B^B"
^DIBT(369,2,2,"TXT")="VENDOR from A to B"
^DIBT(369,2,3,0)="682^^LOCAL SERIALS TITLE^"".02^^^^^^4"
^DIBT(369,2,3,3,0)="^.401419^1^1"
^DIBT(369,2,3,3,1,0)="OVF0^9.2"
^DIBT(369,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^LBRY(682,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(369,2,3,3,"B","OVF0",1)=""
^DIBT(369,2,3,"ASK")="1"
^DIBT(369,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(369,2,3,"F")="LHz^LI"
^DIBT(369,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(369,2,3,"QCON")="I DISX(3)'="""""
^DIBT(369,2,3,"T")="LIJ^LIJ"
^DIBT(369,2,3,"TXT")="LOCAL SERIALS TITLE not null"
^DIBT(369,2,4,0)="682^1^JOURNAL DATE^^^^^^^1"
^DIBT(369,2,4,"ASK")="1"
^DIBT(369,2,4,"F")="2950900.99999^SEP 1 95^9/1/95"
^DIBT(369,2,4,"GET")="S DISX(4)=$P($G(^LBRY(682,D0,1)),U,1)"
^DIBT(369,2,4,"IX")="^LBRY(682,""D"",^LBRY(682,^2"
^DIBT(369,2,4,"QCON")="I DISX(4)'="""""
^DIBT(369,2,4,"SER")="0.0000^0.0000"
^DIBT(369,2,4,"T")="2960301^MAR 1 96^3/1/96"
^DIBT(369,2,4,"TXT")="JOURNAL DATE not null"
^DIBT(369,2,"B",681,2)=""
^DIBT(369,2,"B",682,3)=""
^DIBT(369,2,"B",682,4)=""
^DIBT(369,2,"B",682.04,1)=""
^DIBT(370,0)="LBRY TITLE ALPHABETICAL^2960402.175^^680^^^2980317"
^DIBT(370,2,0)="^.4014^1^1"
^DIBT(370,2,1,0)="680^^TITLE^"".01^^^^^^4"
^DIBT(370,2,1,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(370,2,1,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(370,2,1,"IX")="^LBRY(680,""B"",^LBRY(680,^2"
^DIBT(370,2,1,"PTRIX")="^LBRY(680.5,""B"","
^DIBT(370,2,1,"QCON")="I DISX(1)'="""""
^DIBT(370,2,1,"SER")="0.0118^0.0118"
^DIBT(370,2,1,"TXT")="TITLE not null"
^DIBT(370,2,"B",680,1)=""
^DIBT(373,0)="XUSER PC BUILD^2960731.0801^^200^^^2960731"
^DIBT(373,2,0)="^.4014^3^3"
^DIBT(373,2,1,0)="200^^PROVIDER KEY=1^""@B^;L1^^^^^4"
^DIBT(373,2,1,"CM")="X $P(^DD(200,8932.001,0),U,5,99) S Y(1)=X S X=Y(1)=1 I D0>0 S DISX(1)=X"
^DIBT(373,2,1,"F")="0"
^DIBT(373,2,1,"GET")="X $P(^DD(200,8932.001,0),U,5,99) S Y(1)=X S X=Y(1)=1 I D0>0 S DISX(1)=X"
^DIBT(373,2,1,"QCON")="I DISX(1)"
^DIBT(373,2,1,"T")="1"
^DIBT(373,2,1,"TXT")="PROVIDER KEY=1"
^DIBT(373,2,2,0)="200^^$L(INTERNAL(#11))>0^@""@B^;;L1^^^^^4"
^DIBT(373,2,2,"CM")="S Y(1)=$S($D(^VA(200,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,2),X=X S X=X,X=$L(X)>0 I D0>0 S DISX(2)=X"
^DIBT(373,2,2,"F")="0"
^DIBT(373,2,2,"GET")="S Y(1)=$S($D(^VA(200,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,2),X=X S X=X,X=$L(X)>0 I D0>0 S DISX(2)=X"
^DIBT(373,2,2,"QCON")="I DISX(2)"
^DIBT(373,2,2,"T")="1"
^DIBT(373,2,2,"TXT")="$L(INTERNAL(#11))>0"
^DIBT(373,2,3,0)="200^.01^NAME^^^^^^^4"
^DIBT(373,2,3,"GET")="S DISX(3)=$P($G(^VA(200,D0,0)),U,1)"
^DIBT(373,2,3,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(373,2,3,"QCON")="I DISX(3)'="""""
^DIBT(373,2,3,"SER")="0^0"
^DIBT(373,2,3,"TXT")="NAME not null"
^DIBT(373,2,"B",200,1)=""
^DIBT(373,2,"B",200,2)=""
^DIBT(373,2,"B",200,3)=""
^DIBT(373,"%D",0)="^^1^1^2960731^^"
^DIBT(373,"%D",1,0)="Give sites a list of users that have the provider key"
^DIBT(374,0)="ONCOLOGY OPTION LIST^2920528.185^^19^^@^^"
^DIBT(374,2,1)="19^4^TYPE^^"
^DIBT(374,2,1,"ASK")=""
^DIBT(374,2,1,"F")="ROTz^ROU"
^DIBT(374,2,1,"T")="ROUZ^ROUZ"
^DIBT(374,2,2)="19^.01^NAME^^"
^DIBT(374,2,2,"F")="ONCNz^ONCO"
^DIBT(374,2,2,"IX")="^DIC(19,""B"",^DIC(19,^2"
^DIBT(374,2,2,"T")="ONCOZ^ONCOZ"
^DIBT(374,"DIPT")="ONCOLOGY OPTION LIST"
^DIBT(375,0)="ONCOLOGY ROUTINE LIST^2920528.1851^^9.8^^@^^"
^DIBT(375,2,1)="9.8^.01^NAME^"
^DIBT(375,2,1,"F")="ONCNz^ONCO"
^DIBT(375,2,1,"IX")="^DIC(9.8,""B"",^DIC(9.8,^2"
^DIBT(375,2,1,"T")="ONCOZ^ONCOZ"
^DIBT(375,"DIPT")="ONCOLOGY ROUTINE LIST"
^DIBT(376,0)="ONCOLOGY INPUT TEMPLATE LIST^2920528.1903^^.402^^@^^"
^DIBT(376,2,1)=".402^.01^NAME^"
^DIBT(376,2,1,"F")="ONCNz^ONCO"
^DIBT(376,2,1,"IX")="^DIE(""B"",^DIE(^2"
^DIBT(376,2,1,"T")="ONCOZ^ONCOZ"
^DIBT(376,"DIPT")="ONCOLOGY INPUT TEMPLATE LIST"
^DIBT(377,0)="ONCOLOGY SORT TEMPLATE LIST^2920528.1904^^.401^^@^^"
^DIBT(377,2,1)=".401^.01^NAME^"
^DIBT(377,2,1,"F")="ONCNz^ONCO"
^DIBT(377,2,1,"IX")="^DIBT(""B"",^DIBT(^2"
^DIBT(377,2,1,"T")="ONCOZ^ONCOZ"
^DIBT(377,"DIPT")="ONCOLOGY SORT TEMPLATE LIST"
^DIBT(378,0)="ONCOLOGY PRINT TEMPLATE LIST^2920529.1013^^.4^^@^^"
^DIBT(378,2,1)=".4^.01^NAME^"
^DIBT(378,2,1,"F")="ONCNz^ONCO"
^DIBT(378,2,1,"IX")="^DIPT(""B"",^DIPT(^2"
^DIBT(378,2,1,"T")="ONCOZ^ONCOZ"
^DIBT(378,"DIPT")="ONCOLOGY PRINT TEMPLATE LIST"
^DIBT(379,0)="ONCOLOGY SITE/GROUP-TOPOGRAPHY^2920528.1845^^164.2^^@^^"
^DIBT(379,2,1)="164.2^.01^NAME^@^;S1"
^DIBT(379,2,1,"IX")="^ONCO(164.2,""B"",^ONCO(164.2,^2"
^DIBT(379,2,2)="164.22^^.01:CODE^@""^"
^DIBT(379,2,2,164.2)="T"
^DIBT(379,2,2,"CM")="X DPP(2,""OVF1"",9.2) S Y(101)=$S($D(^ONCO(164,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0) I D1>0 S X(2)=X"
^DIBT(379,2,2,"OVF1",9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(164.2,D0,""T"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^ONCO(164,+D0,0)) D0=-1"
^DIBT(381,0)="ONCO ACOS DOCUMENTATION^2920816.1141^^160.2^^@^2960516^"
^DIBT(381,2,0)="^.4014^1^1"
^DIBT(381,2,1,0)="160.2^.01^NAME^@^^^^^^4"
^DIBT(381,2,1,"F")="ACORz^ACOS"
^DIBT(381,2,1,"GET")="S DISX(1)=$P($G(^ONCO(160.2,D0,0)),U,1)"
^DIBT(381,2,1,"IX")="^ONCO(160.2,""B"",^ONCO(160.2,^2"
^DIBT(381,2,1,"QCON")="I (DISX(1)]]""ACORz"")&(DISX(1)']]""ACOS Z"")"
^DIBT(381,2,1,"T")="ACOS Z^ACOS Z"
^DIBT(381,2,1,"TXT")="NAME from ACOS to ACOS Z"
^DIBT(381,2,"B",160.2,1)=""
^DIBT(381,"DIPT")="ONCO ACOS DOCUMENTATION"
^DIBT(382,0)="ONCO NEG-REPORT^2920524.2136^^160.1^^@^2960624^"
^DIBT(382,2,0)="^.4014^1^1"
^DIBT(382,2,1,0)="160.1^20^NEG-REPORT^^^^^^^4"
^DIBT(382,2,1,"GET")="S DISX(1)=$P($G(^ONCO(160.1,D0,10)),U,1)"
^DIBT(382,2,1,"QCON")="I DISX(1)'="""""
^DIBT(382,2,1,"TXT")="NEG-REPORT not null"
^DIBT(382,2,"B",160.1,1)=""
^DIBT(382,"DIPT")="ONCO NEG-REPORT"
^DIBT(387,0)="ONCO PATIENT ONLY^3000105.1537^^160^^@^3000403"
^DIBT(387,2,0)="^.4014^3^3"
^DIBT(387,2,1,0)="160^^INTERNAL(#30)^@""^^^^^^4"
^DIBT(387,2,1,"ASK")="1"
^DIBT(387,2,1,"CM")="S Y(1)=$S($D(^ONCO(160,D0,2)):^(2),1:"""") S X=$P(Y(1),U,12),X=X I D0>0 S DISX(1)=X"
^DIBT(387,2,1,"F")="527.99999^528"
^DIBT(387,2,1,"GET")="S Y(1)=$S($D(^ONCO(160,D0,2)):^(2),1:"""") S X=$P(Y(1),U,12),X=X I D0>0 S DISX(1)=X"
^DIBT(387,2,1,"QCON")="I DISX(1)=528"
^DIBT(387,2,1,"T")="528^528"
^DIBT(387,2,1,"TXT")="INTERNAL(#30) equals 528"
^DIBT(387,2,2,0)="160^59^NO PRIMARY^@^;L1^^^^^4"
^DIBT(387,2,2,"GET")="S X=$S($D(^ONCO(165.5,""C"",D0)):"""",1:1) S DISX(2)=X"
^DIBT(387,2,2,"QCON")="I DISX(2)'="""""
^DIBT(387,2,2,"SER")="0.5833^0.5833"
^DIBT(387,2,2,"TXT")="NO PRIMARY not null"
^DIBT(387,2,3,0)="160^^NAME^"".01^^^^^^4"
^DIBT(387,2,3,3,0)="^.401419^1^1"
^DIBT(387,2,3,3,1,0)="OVF0^9.2"
^DIBT(387,2,3,3,1,"OVF0")="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(387,2,3,3,"B","OVF0",1)=""
^DIBT(387,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S DISX(3)=X"
^DIBT(387,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S DISX(3)=X"
^DIBT(387,2,3,"QCON")="I DISX(3)'="""""
^DIBT(387,2,3,"TXT")="NAME not null"
^DIBT(387,2,"B",160,1)=""
^DIBT(387,2,"B",160,2)=""
^DIBT(387,2,"B",160,3)=""
^DIBT(387,"DIPT")=""
^DIBT(388,0)="ONCO DUE FOLLOWUP^2901214.1424^^160^^@^3000417^"
^DIBT(388,2,0)="^.4014^2^2"
^DIBT(388,2,1,0)="160^27^DUE FOLLOW-UP^^;C30;S1^^^^^1"
^DIBT(388,2,1,"ASK")="1"
^DIBT(388,2,1,"GET")="S DISX(1)=$P($G(^ONCO(160,D0,1)),U,2)"
^DIBT(388,2,1,"IX")="^ONCO(160,""AD"",^ONCO(160,^2"
^DIBT(388,2,1,"QCON")="I DISX(1)'="""""
^DIBT(388,2,1,"SER")="40.5000^0.9759"
^DIBT(388,2,1,"TXT")="DUE FOLLOW-UP not null"
^DIBT(388,2,2,0)="160^^NAME^"".01^^^^^^4"
^DIBT(388,2,2,3,0)="^.401419^2^2"
^DIBT(388,2,2,3,1,0)="OVF0^9.2"
^DIBT(388,2,2,3,1,"OVF0")="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(388,2,2,3,2,0)="OVF1^9.2"
^DIBT(388,2,2,3,2,"OVF0")="S X=$P(Y(1),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="","" I D0>0 S X(2)=X"
^DIBT(388,2,2,3,"B","OVF0",1)=""
^DIBT(388,2,2,3,"B","OVF1",2)=""
^DIBT(388,2,2,"CM")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(388,2,2,"GET")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(388,2,2,"QCON")="I DISX(2)'="""""
^DIBT(388,2,2,"TXT")="NAME not null"
^DIBT(388,2,"B",160,1)=""
^DIBT(388,2,"B",160,2)=""
^DIBT(388,"DIPT")=""
^DIBT(389,0)="ONCO DELINQUENT(LTF) LIST^2900730.1645^^160^^@^2960523^"
^DIBT(389,2,0)="^.4014^3^3"
^DIBT(389,2,1,0)="160^36^LOST TO FOLLOWUP^@'^^^^^^2"
^DIBT(389,2,1,"F")="0"
^DIBT(389,2,1,"GET")="S Y(160,36,1)=$S($D(^ONCO(160,D0,1)):^(1),1:""""),X1=DT,X2=$P(Y(160,36,1),U,2) D:X2 ^%DTC:X1 S X=X>91.25 S:X $P(^ONCO(160,D0,1),U,7)=8 S DISX(1)=X S:DISX(1)]"""" DISX(1)=+DISX(1)"
^DIBT(389,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(389,2,1,"SER")="0.9615^0.9615"
^DIBT(389,2,1,"T")="1"
^DIBT(389,2,1,"TXT")="LOST TO FOLLOWUP"
^DIBT(389,2,2,0)="160^27^DUE FOLLOW-UP^^;C35;S1^^^^^1"
^DIBT(389,2,2,"GET")="S DISX(2)=$P($G(^ONCO(160,D0,1)),U,2)"
^DIBT(389,2,2,"IX")="^ONCO(160,""AD"",^ONCO(160,^2"
^DIBT(389,2,2,"QCON")="I DISX(2)'="""""
^DIBT(389,2,2,"SER")="0.5294^0.3462"
^DIBT(389,2,2,"TXT")="DUE FOLLOW-UP not null"
^DIBT(389,2,3,0)="160^^NAME^"".01^^^^^^4"
^DIBT(389,2,3,3,0)="^.401419^2^2"
^DIBT(389,2,3,3,1,0)="OVF0^9.2"
^DIBT(389,2,3,3,1,"OVF0")="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(389,2,3,3,2,0)="OVF1^9.2"
^DIBT(389,2,3,3,2,"OVF0")="S X=$P(Y(1),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="","" I D0>0 S X(3)=X"
^DIBT(389,2,3,3,"B","OVF0",1)=""
^DIBT(389,2,3,3,"B","OVF1",2)=""
^DIBT(389,2,3,"CM")="X DPP(3,""OVF0"",9.2) X DPP(3,""OVF1"",9.2) I $G(X(3))]"""" S DISX(3)=X(3)"
^DIBT(389,2,3,"GET")="X DPP(3,""OVF0"",9.2) X DPP(3,""OVF1"",9.2) I $G(X(3))]"""" S DISX(3)=X(3)"
^DIBT(389,2,3,"QCON")="I DISX(3)'="""""
^DIBT(389,2,3,"TXT")="NAME not null"
^DIBT(389,2,"B",160,1)=""
^DIBT(389,2,"B",160,2)=""
^DIBT(389,2,"B",160,3)=""
^DIBT(389,"DIPT")="ONCO DELINQUENT(LTF) LIST"
^DIBT(390,0)="ONCO FOLLOWUP STATUS RPT^2970715.1342^^160^^@^2971017"
^DIBT(390,2,0)="^.4014^3^3"
^DIBT(390,2,1,0)="160^^STATUS=""Alive""^""@B^;L1^^^^^4"
^DIBT(390,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(160,15,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59),1)=""Alive"" I D0>0 S DISX(1)=X"
^DIBT(390,2,1,"F")="0"
^DIBT(390,2,1,"GET")="S Y(2)=$C(59)_$S($D(^DD(160,15,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59),1)=""Alive"" I D0>0 S DISX(1)=X"
^DIBT(390,2,1,"QCON")="I DISX(1)"
^DIBT(390,2,1,"T")="1"
^DIBT(390,2,1,"TXT")="STATUS=""""Alive"""""
^DIBT(390,2,2,0)="160^15.2^FOLLOW-UP STATUS^+#^^^^^^3"
^DIBT(390,2,2,"ASK")="1"
^DIBT(390,2,2,"F")="-1^INACTIVE^0 (INACTIVE)"
^DIBT(390,2,2,"GET")="S DISX(2)=$P($G(^ONCO(160,D0,1)),U,7)"
^DIBT(390,2,2,"IX")="^ONCO(160,""AFS"",^ONCO(160,^2"
^DIBT(390,2,2,"QCON")="I DISX(2)'="""""
^DIBT(390,2,2,"T")="0^INACTIVE^0 (INACTIVE)"
^DIBT(390,2,2,"TXT")="FOLLOW-UP STATUS not null"
^DIBT(390,2,3,0)="160^^NAME^"".01^^^^^^4"
^DIBT(390,2,3,3,0)="^.401419^1^1"
^DIBT(390,2,3,3,1,0)="OVF0^9.2"
^DIBT(390,2,3,3,1,"OVF0")="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(390,2,3,3,"B","OVF0",1)=""
^DIBT(390,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S DISX(3)=X"
^DIBT(390,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S DISX(3)=X"
^DIBT(390,2,3,"QCON")="I DISX(3)'="""""
^DIBT(390,2,3,"TXT")="NAME not null"
^DIBT(390,2,"B",160,1)=""
^DIBT(390,2,"B",160,2)=""
^DIBT(390,2,"B",160,3)=""
^DIBT(390,"DIPT")="ONCO FOLLOWUP STATUS RPT"
^DIBT(391,0)="ONCO FOLLOWUP HISTORY^2900811.1905^^160^^@^^"
^DIBT(391,"DIPT")="ONCO FOLLOWUP HISTORY"
^DIBT(392,0)="ONCO DUE FOLLOWUP-ADM/DIS^2900820.1402^^160^^@^2960221^"
^DIBT(392,2,0)="^.4014^2^2"
^DIBT(392,2,1,0)="160^27^DUE FOLLOW-UP^#^;S1;C30^^^^^1"
^DIBT(392,2,1,"ASK")="1"
^DIBT(392,2,1,"GET")="S DISX(1)=$P($G(^ONCO(160,D0,1)),U,2)"
^DIBT(392,2,1,"IX")="^ONCO(160,""AD"",^ONCO(160,^2"
^DIBT(392,2,1,"QCON")="I DISX(1)'="""""
^DIBT(392,2,1,"SER")="0.2500^0.2000"
^DIBT(392,2,1,"TXT")="DUE FOLLOW-UP not null"
^DIBT(392,2,2,0)="160^^NAME^"".01^^^^^^4"
^DIBT(392,2,2,3,0)="^.401419^2^2"
^DIBT(392,2,2,3,1,0)="OVF0^9.2"
^DIBT(392,2,2,3,1,"OVF0")="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(392,2,2,3,2,0)="OVF1^9.2"
^DIBT(392,2,2,3,2,"OVF0")="S X=$P(Y(1),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="","" I D0>0 S X(2)=X"
^DIBT(392,2,2,3,"B","OVF0",1)=""
^DIBT(392,2,2,3,"B","OVF1",2)=""
^DIBT(392,2,2,"CM")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(392,2,2,"GET")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(392,2,2,"QCON")="I DISX(2)'="""""
^DIBT(392,2,2,"TXT")="NAME not null"
^DIBT(392,2,"B",160,1)=""
^DIBT(392,2,"B",160,2)=""
^DIBT(392,"DIPT")="ONCO DUE FOLLOWUP-ADM/DIS"
^DIBT(394,0)="ONCO DUE FOLLOWUP/TERMDIG^2900912.1135^^160^^@^2960523^"
^DIBT(394,2,0)="^.4014^2^2"
^DIBT(394,2,1,0)="160^27^DUE FOLLOW-UP^#+^;S2^^^^^1"
^DIBT(394,2,1,"ASK")="1"
^DIBT(394,2,1,"GET")="S DISX(1)=$P($G(^ONCO(160,D0,1)),U,2)"
^DIBT(394,2,1,"IX")="^ONCO(160,""AD"",^ONCO(160,^2"
^DIBT(394,2,1,"QCON")="I DISX(1)'="""""
^DIBT(394,2,1,"SER")="0.5294^0.3462"
^DIBT(394,2,1,"TXT")="DUE FOLLOW-UP not null"
^DIBT(394,2,2,0)="160^4.1^TERMINAL DIGIT^@^;S1^^^^^4"
^DIBT(394,2,2,"GET")="S X="""" D TRM^ONCOES S DISX(2)=X"
^DIBT(394,2,2,"QCON")="I DISX(2)'="""""
^DIBT(394,2,2,"SER")="0.0000^0.0000"
^DIBT(394,2,2,"TXT")="TERMINAL DIGIT not null"
^DIBT(394,2,"B",160,1)=""
^DIBT(394,2,"B",160,2)=""
^DIBT(394,"DIPT")="ONCO DUE FOLLOWUP/TERMDIG"
^DIBT(395,0)="ONCO FOLLOWUP PATIENT RPT^2910411^^160^^@^^"
^DIBT(395,"%D",0)="^^1^1^2910411^"
^DIBT(395,"%D",1,0)="Use to select entry for corresponding tied Print template."
^DIBT(395,"DIPT")="ONCO FOLLOWUP PATIENT RPT"
^DIBT(396,0)="ONCO LAB-CASEFINDING REPORT^2920210.155^^160^^@^^"
^DIBT(396,2,1)="160^26^SOURCE^+^"
^DIBT(396,2,1,"F")="L"
^DIBT(396,2,1,"IX")="^ONCO(160,""D"",^ONCO(160,^2"
^DIBT(396,2,1,"T")="LA"
^DIBT(396,2,2)="160^33^SUSPENSE DATE^@^"
^DIBT(396,2,2,"F")="2900100.99"
^DIBT(396,2,2,"IX")="^ONCO(160,""ADX"",^ONCO(160,^2"
^DIBT(396,2,2,"T")="2920922.99"
^DIBT(396,2,3)="160^^NAME^@"".01^"
^DIBT(396,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(3)=X"
^DIBT(396,2,3,"OVF0",9.2)="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(396,"DIPT")="ONCO LAB-CASEFINDING REPORT"
^DIBT(397,0)="ONCO LOSTTOFOLLOWUP^2920109.1252^^160^^@^^"
^DIBT(397,"DIS",0)="I $S($D(^ONCO(160,D0,1)):$P(^(1),U,7),1:"""")=8"
^DIBT(397,"DL")="^DIBT(+Y,"
^DIBT(397,"O",0)="^"
^DIBT(397,"O",1,0)="FOLLOW-UP STATUS EQUALS 8^(LTF)"
^DIBT(398,0)="ONCO PTF-CASEFINDING RPT^2920203.0928^^160^^@^^"
^DIBT(398,2,1)="160^26^SOURCE^@^"
^DIBT(398,2,1,"F")="P@z^PA"
^DIBT(398,2,1,"IX")="^ONCO(160,""D"",^ONCO(160,^2"
^DIBT(398,2,1,"T")="PZ^PZ"
^DIBT(398,2,2)="160^33^SUSPENSE DATE^@^"
^DIBT(398,2,2,"F")="2000100.8888889"
^DIBT(398,2,2,"IX")="^ONCO(160,""ADX"",^ONCO(160,^2"
^DIBT(398,2,2,"T")="2920922.9999999"
^DIBT(398,"DIPT")="ONCO PTF-CASEFINDING RPT"
^DIBT(399,0)="ONCO RAD-CASEFINDING RPT^2920204.21^^160^^@^^"
^DIBT(399,2,1)="160^26^SOURCE^@^"
^DIBT(399,2,1,"F")="R@z^RA"
^DIBT(399,2,1,"IX")="^ONCO(160,""D"",^ONCO(160,^2"
^DIBT(399,2,1,"T")="RZ^RZ"
^DIBT(399,2,2)="160^33^SUSPENSE DATE^@^"
^DIBT(399,2,2,"F")="2000100.8888889"
^DIBT(399,2,2,"IX")="^ONCO(160,""ADX"",^ONCO(160,^2"
^DIBT(399,2,2,"T")="2920922.9999999"
^DIBT(399,"DIPT")="ONCO RAD-CASEFINDING RPT"
^DIBT(402,0)="ONCO CASEFINDING REPORT^2920804.14^^160^^@^^"
^DIBT(402,2,1)="160^26^SOURCE^+^"
^DIBT(402,2,1,"F")="L"
^DIBT(402,2,1,"IX")="^ONCO(160,""D"",^ONCO(160,^2"
^DIBT(402,2,1,"T")="LZ"
^DIBT(402,2,2)="160^33^SUSPENSE DATE^@^"
^DIBT(402,2,2,"ASK")=""
^DIBT(402,2,2,"F")="2910100.99999^JAN 1,1991"
^DIBT(402,2,2,"IX")="^ONCO(160,""ADX"",^ONCO(160,^2"
^DIBT(402,2,2,"T")="z^"
^DIBT(402,2,3)="160^^NAME^@"".01^"
^DIBT(402,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(1),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="","" I D0>0 S X(3)=X"
^DIBT(402,2,3,"OVF0",9.2)="S Y(1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(402,"DIPT")="ONCO CASEFINDING REPORT"
^DIBT(403,0)="ONCOS SEX=MALE^2940309.1155^^160^^@"
^DIBT(403,"DA")="1648"
^DIBT(403,"DC",1)="10^=1^Male"
^DIBT(403,"DIS",0)="S Y=$S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:"""") I $S(Y="""":"""",$D(DIS(U,1,Y)):DIS(U,1,Y),1:"""")=1"
^DIBT(403,"DIS","^",1,1)="Male"
^DIBT(403,"DIS","^",1,2)="Female"
^DIBT(403,"DIS","^",1,3)="Other (Hermaphrodite)"
^DIBT(403,"DIS","^",1,4)="Transsexual"
^DIBT(403,"DIS","^",1,9)="Not Stated"
^DIBT(403,"DL")="1"
^DIBT(403,"DL",0)="^1^"
^DIBT(403,"O",0)="^"
^DIBT(403,"O",1,0)="SEX EQUALS 1^Male"
^DIBT(404,0)="ONCOS RACE=WHITE^2920727.0248^^160^^@^^"
^DIBT(404,"DA")="1649"
^DIBT(404,"DC",1)="8^=""01""^White NOS"
^DIBT(404,"DIS",0)="I $S($D(^ONCO(160,D0,0)):$P(^(0),U,6),1:"""")=""01"""
^DIBT(404,"DL")="1"
^DIBT(404,"DL",0)="^1^"
^DIBT(404,"O",0)="^"
^DIBT(404,"O",1,0)="RACE EQUALS ""01""^White NOS"
^DIBT(405,0)="ONCOS SEX=FEMALE^2920727.0248^^160^^@^^"
^DIBT(405,"DA")="1650"
^DIBT(405,"DC",1)="10^=2^Female"
^DIBT(405,"DIS",0)="I $S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:"""")=2"
^DIBT(405,"DL")="1"
^DIBT(405,"DL",0)="^1^"
^DIBT(405,"O",0)="^"
^DIBT(405,"O",1,0)="SEX EQUALS 2^Female"
^DIBT(406,0)="ONCOS RACE=BLACK^2920727.0249^^160^^@^^"
^DIBT(406,"DA")="1651"
^DIBT(406,"DC",1)="8^=""02""^Black"
^DIBT(406,"DIS",0)="S Y=$S($D(^ONCO(160,D0,0)):$P(^(0),U,6),1:"""") I $S(Y="""":"""",$D(DIS(U,1,Y)):DIS(U,1,Y),1:"""")=""02"""
^DIBT(406,"DIS","^",1,10)="Vietnamese"
^DIBT(406,"DIS","^",1,11)="Laotian"
^DIBT(406,"DIS","^",1,12)="Hmong"
^DIBT(406,"DIS","^",1,13)="Kampuchean"
^DIBT(406,"DIS","^",1,98)="Other"
^DIBT(406,"DIS","^",1,99)="Unknown"
^DIBT(406,"DIS","^",1,"01")="White NOS"
^DIBT(406,"DIS","^",1,"02")="Black"
^DIBT(406,"DIS","^",1,"03")="American Indian, Aleutian, or Eskimo"
^DIBT(406,"DIS","^",1,"04")="Chinese"
^DIBT(406,"DIS","^",1,"05")="Japanese"
^DIBT(406,"DIS","^",1,"06")="Filipino"
^DIBT(406,"DIS","^",1,"07")="Hawaiian"
^DIBT(406,"DIS","^",1,"08")="Korean"
^DIBT(406,"DIS","^",1,"09")="Asian Indian, Pakistani"
^DIBT(406,"DL")="1"
^DIBT(406,"DL",0)="^1^"
^DIBT(406,"O",0)="^"
^DIBT(406,"O",1,0)="RACE EQUALS ""02""^Black"
^DIBT(407,0)="ONCOS WHITE-MALES^2920727.025^^160^^@^^"
^DIBT(407,"DA")="1652"
^DIBT(407,"DC",1)="10^=1^Male"
^DIBT(407,"DC",2)="8^=""01""^White NOS"
^DIBT(407,"DIS",0)="I $S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:"""")=1 I $S($D(^ONCO(160,D0,0)):$P(^(0),U,6),1:"""")=""01"""
^DIBT(407,"DL")="1"
^DIBT(407,"DL",0)="^1^2^"
^DIBT(407,"O",0)="^"
^DIBT(407,"O",1,0)="SEX EQUALS 1^Male"
^DIBT(407,"O",2,0)="   and RACE EQUALS ""01""^White NOS"
^DIBT(408,0)="ONCOS BLACK-MALES^2920727.0251^^160^^@^^"
^DIBT(408,"DA")="1653"
^DIBT(408,"DC",1)="10^=1^Male"
^DIBT(408,"DC",2)="8^=""02""^Black"
^DIBT(408,"DIS",0)="I $S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:"""")=1 I $S($D(^ONCO(160,D0,0)):$P(^(0),U,6),1:"""")=""02"""
^DIBT(408,"DL")="1"
^DIBT(408,"DL",0)="^1^2^"
^DIBT(408,"O",0)="^"
^DIBT(408,"O",1,0)="SEX EQUALS 1^Male"
^DIBT(408,"O",2,0)="   and RACE EQUALS ""02""^Black"
^DIBT(409,0)="ONCOS WHITE-FEMALES^2920727.0252^^160^^@^^"
^DIBT(409,"DA")="1654"
^DIBT(409,"DC",1)="10^=2^Female"
^DIBT(409,"DC",2)="8^=""01""^White NOS"
^DIBT(409,"DIS",0)="I $S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:"""")=2 I $S($D(^ONCO(160,D0,0)):$P(^(0),U,6),1:"""")=""01"""
^DIBT(409,"DL")="1"
^DIBT(409,"DL",0)="^1^2^"
^DIBT(409,"O",0)="^"
^DIBT(409,"O",1,0)="SEX EQUALS 2^Female"
^DIBT(409,"O",2,0)="   and RACE EQUALS ""01""^White NOS"
^DIBT(410,0)="ONCOS BLACK-FEMALES^2920727.0252^^160^^@^^"
^DIBT(410,"DA")="1655"
^DIBT(410,"DC",1)="10^=2^Female"
^DIBT(410,"DC",2)="8^=""02""^Black"
^DIBT(410,"DIS",0)="I $S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:"""")=2 S Y=$S($D(^ONCO(160,D0,0)):$P(^(0),U,6),1:"""") I $S(Y="""":"""",$D(DIS(U,2,Y)):DIS(U,2,Y),1:"""")=""02"""
^DIBT(410,"DIS","^",2,10)="Vietnamese"
^DIBT(410,"DIS","^",2,11)="Laotian"
^DIBT(410,"DIS","^",2,12)="Hmong"
^DIBT(410,"DIS","^",2,13)="Kampuchean"
^DIBT(410,"DIS","^",2,98)="Other"
^DIBT(410,"DIS","^",2,99)="Unknown"
^DIBT(410,"DIS","^",2,"01")="White NOS"
^DIBT(410,"DIS","^",2,"02")="Black"
^DIBT(410,"DIS","^",2,"03")="American Indian, Aleutian, or Eskimo"
^DIBT(410,"DIS","^",2,"04")="Chinese"
^DIBT(410,"DIS","^",2,"05")="Japanese"
^DIBT(410,"DIS","^",2,"06")="Filipino"
^DIBT(410,"DIS","^",2,"07")="Hawaiian"
^DIBT(410,"DIS","^",2,"08")="Korean"
^DIBT(410,"DIS","^",2,"09")="Asian Indian, Pakistani"
^DIBT(410,"DL")="1"
^DIBT(410,"DL",0)="^1^2^"
^DIBT(410,"O",0)="^"
^DIBT(410,"O",1,0)="SEX EQUALS 2^Female"
^DIBT(410,"O",2,0)="   and RACE EQUALS ""02""^Black"
^DIBT(411,0)="ONCO CONTACT LIST-A^2920815.215^^165^^@^^"
^DIBT(411,2,1)="165^.01^CONTACT^^"
^DIBT(411,2,1,"ASK")=""
^DIBT(411,2,1,"F")="C@z^CA"
^DIBT(411,2,1,"T")="FZ^FZ"
^DIBT(411,"DIPT")="ONCO CONTACT LIST-A"
^DIBT(412,0)="ONCO CONTACT LIST-T^2920816.0851^^165^^@^2960401^"
^DIBT(412,2,0)="^.4014^2^2"
^DIBT(412,2,1,0)="165^1^TYPE^#^^^^^^3"
^DIBT(412,2,1,"ASK")="1"
^DIBT(412,2,1,"F")="3.99999^4^4 (INSTITUTION)"
^DIBT(412,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165,D0,0)),U,2)"
^DIBT(412,2,1,"QCON")="I DISX(1)=4"
^DIBT(412,2,1,"SER")="0.5909^0.5909"
^DIBT(412,2,1,"T")="4^4^4 (INSTITUTION)"
^DIBT(412,2,1,"TXT")="TYPE equals 4 (INSTITUTION)"
^DIBT(412,2,2,0)="165^.01^CONTACT^^^^^^^4"
^DIBT(412,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165,D0,0)),U,1)"
^DIBT(412,2,2,"QCON")="I DISX(2)'="""""
^DIBT(412,2,2,"SER")="0^0"
^DIBT(412,2,2,"TXT")="CONTACT not null"
^DIBT(412,2,"B",165,1)=""
^DIBT(412,2,"B",165,2)=""
^DIBT(412,"DIPT")="ONCO CONTACT LIST-T"
^DIBT(413,0)="ONCO ACCREG-ACOS80^2991029.1008^^165.5^^@^3000330"
^DIBT(413,2,0)="^.4014^1^1"
^DIBT(413,2,1,0)="165.5^.061^ACC/SEQ NUMBER^^^^^^^4"
^DIBT(413,2,1,"ASK")="1"
^DIBT(413,2,1,"GET")="X ^DD(165.5,.061,9.3) S X=$E(Y(165.5,.061,5),Y(165.5,.061,6),X) S Y=X,X=Y(165.5,.061,4),X=X_Y_""/""_$P(Y(165.5,.061,1),U,6) S DISX(1)=X"
^DIBT(413,2,1,"QCON")="I DISX(1)'="""""
^DIBT(413,2,1,"TXT")="ACC/SEQ NUMBER not null"
^DIBT(413,2,"B",165.5,1)=""
^DIBT(413,"DIPT")=""
^DIBT(414,0)="ONCO ACCREG-SITE/GP80^2900606.1333^^165.5^^@^3000403^"
^DIBT(414,2,0)="^.4014^1^1"
^DIBT(414,2,1,0)="165.5^.061^ACC/SEQ NO.^^^^^^^4"
^DIBT(414,2,1,"ASK")="1"
^DIBT(414,2,1,"GET")="X ^DD(165.5,.061,9.3) S X=$E(Y(165.5,.061,5),Y(165.5,.061,6),X) S Y=X,X=Y(165.5,.061,4),X=X_Y_""/""_$P(Y(165.5,.061,1),U,6) S DISX(1)=X"
^DIBT(414,2,1,"QCON")="I DISX(1)'="""""
^DIBT(414,2,1,"TXT")="ACC/SEQ NO. not null"
^DIBT(414,2,"B",165.5,1)=""
^DIBT(414,"DIPT")=""
^DIBT(415,0)="ONCO ACCREG-EOVA132^2900606.1514^^165.5^^@^3000103^"
^DIBT(415,2,0)="^.4014^1^1"
^DIBT(415,2,1,0)="165.5^.061^ACC/SEQ NO.^@^^^^^^4"
^DIBT(415,2,1,"ASK")="1"
^DIBT(415,2,1,"GET")="X ^DD(165.5,.061,9.3) S X=$E(Y(165.5,.061,5),Y(165.5,.061,6),X) S Y=X,X=Y(165.5,.061,4),X=X_Y_""/""_$P(Y(165.5,.061,1),U,6) S DISX(1)=X"
^DIBT(415,2,1,"QCON")="I DISX(1)'="""""
^DIBT(415,2,1,"TXT")="ACC/SEQ NO. not null"
^DIBT(415,2,"B",165.5,1)=""
^DIBT(415,"DIPT")=""
^DIBT(416,0)="ONCO SITE/GP80^2910318.1851^^165.5^^@^3000306^"
^DIBT(416,2,0)="^.4014^3^3"
^DIBT(416,2,1,0)="165.5^^SITE/GP^#@"".01^;^^^^^7"
^DIBT(416,2,1,"ASK")="1"
^DIBT(416,2,1,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(416,2,1,"GET")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(416,2,1,"IX")="^ONCO(165.5,""B"",^ONCO(165.5,^2"
^DIBT(416,2,1,"PTRIX")="^ONCO(164.2,""B"","
^DIBT(416,2,1,"QCON")="I DISX(1)'="""""
^DIBT(416,2,1,"SER")="0.0000^0.0000"
^DIBT(416,2,1,"TXT")="SITE/GP not null"
^DIBT(416,2,2,0)="165.5^20.1^ICDO TOPOGRAPHY-CODE^^;S1;""ICDO CODE: "";C35^^^^^4"
^DIBT(416,2,2,"ASK")="1"
^DIBT(416,2,2,"GET")="S X=$P($G(^ONCO(165.5,D0,2)),U),X=$S(X="""":"""",1:""C""_$E(X,3,4)_"".""_$E(X,5)) S DISX(2)=X"
^DIBT(416,2,2,"QCON")="I DISX(2)'="""""
^DIBT(416,2,2,"SER")="0.1010^0.1010"
^DIBT(416,2,2,"TXT")="ICDO TOPOGRAPHY-CODE not null"
^DIBT(416,2,3,0)="165.5^^PATIENT NAME^@"".02^^^^^^4"
^DIBT(416,2,3,3,0)="^.401419^2^2"
^DIBT(416,2,3,3,1,0)="OVF0^9.2"
^DIBT(416,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(416,2,3,3,2,0)="OVF1^9.2"
^DIBT(416,2,3,3,2,"OVF0")="S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(3)=X"
^DIBT(416,2,3,3,"B","OVF0",1)=""
^DIBT(416,2,3,3,"B","OVF1",2)=""
^DIBT(416,2,3,"CM")="X DPP(3,""OVF0"",9.2) X DPP(3,""OVF1"",9.2) I $G(X(3))]"""" S DISX(3)=X(3)"
^DIBT(416,2,3,"GET")="X DPP(3,""OVF0"",9.2) X DPP(3,""OVF1"",9.2) I $G(X(3))]"""" S DISX(3)=X(3)"
^DIBT(416,2,3,"QCON")="I DISX(3)'="""""
^DIBT(416,2,3,"TXT")="PATIENT NAME not null"
^DIBT(416,2,"B",165.5,1)=""
^DIBT(416,2,"B",165.5,2)=""
^DIBT(416,2,"B",165.5,3)=""
^DIBT(416,"DIPT")=""
^DIBT(417,0)="ONCO ABSTRACT NOT-COMPLETE^3060718.1022^^165.5^^@^3061101"
^DIBT(417,2,0)="^.4014^2^2"
^DIBT(417,2,1,0)="165.5^91^ABSTRACT STATUS^#+^;C25;L1^^^^^3"
^DIBT(417,2,1,"F")="-1^0^0 (Incomplete)"
^DIBT(417,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165.5,D0,7)),U,2)"
^DIBT(417,2,1,"IX")="^ONCO(165.5,""AS"",^ONCO(165.5,^2"
^DIBT(417,2,1,"QCON")="I (DISX(1)]]-1)&(DISX(1)']]2)"
^DIBT(417,2,1,"SER")="1.0200^0.5050"
^DIBT(417,2,1,"T")="2^2^2 (Partial)"
^DIBT(417,2,1,"TXT")="ABSTRACT STATUS from 0 (Incomplete) to 2 (Partial)"
^DIBT(417,2,2,0)="165.5^3^DATE DX^@^^^^^^1"
^DIBT(417,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165.5,D0,0)),U,16)"
^DIBT(417,2,2,"IX")="^ONCO(165.5,""ADX"",^ONCO(165.5,^2"
^DIBT(417,2,2,"QCON")="I DISX(2)'="""""
^DIBT(417,2,2,"SER")="0.0745^0.0693"
^DIBT(417,2,2,"TXT")="DATE DX not null"
^DIBT(417,2,"B",165.5,1)=""
^DIBT(417,2,"B",165.5,2)=""
^DIBT(417,"DIPT")="ONCO ABSTRACT NOT-COMPLETE"
^DIBT(418,0)="ONCO ANNUAL CLASS/PATIENT^2901026.1347^^165.5^^@^^"
^DIBT(418,2,1)="165.5^.07^ACCESSION YEAR^@^"
^DIBT(418,2,1,"F")="90.9"
^DIBT(418,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(418,2,1,"T")="91"
^DIBT(418,2,2)="165.5^.042^CLASS CATEGORY^+#@^;S1"
^DIBT(418,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(418,2,3)="165.5^.04^CLASS OF CASE^+^;S1;C20"
^DIBT(418,2,3,"IX")="^ONCO(165.5,""AGC"",^ONCO(165.5,^2"
^DIBT(418,2,4)="165.5^^PATIENT NAME^@"".02^"
^DIBT(418,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(4)=X"
^DIBT(418,2,4,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(418,"DIPT")="ONCO ANNUAL CLASS/PATIENT"
^DIBT(419,0)="ONCO ANNUAL ACCREG80^2901018.1413^^165.5^^@^^"
^DIBT(419,2,1)="165.5^.07^ACCESSION YEAR^@#^;S2"
^DIBT(419,2,1,"ASK")=""
^DIBT(419,2,1,"F")="92.9"
^DIBT(419,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(419,2,1,"T")="93"
^DIBT(419,2,2)="165.5^.061^ACC/SEQ NO.^@^"
^DIBT(419,"DIPT")="ONCO ANNUAL ACCREG80"
^DIBT(420,0)="ONCO ANNUAL PATIENT INDX^2901022.1818^^165.5^^@^^"
^DIBT(420,2,1)="165.5^.07^ACCESSION YEAR^#@^;S1"
^DIBT(420,2,1,"ASK")=""
^DIBT(420,2,1,"F")="91.9"
^DIBT(420,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(420,2,1,"T")="92"
^DIBT(420,2,2)="165.5^^PATIENT NAME^@"".02^"
^DIBT(420,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(420,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(420,"DIPT")="ONCO ANNUAL PATIENT INDX"
^DIBT(421,0)="ONCOS ANALYTIC-160^2910111.114^^165.5^^@^^"
^DIBT(421,"%D",0)="^^1^1^2910111^"
^DIBT(421,"%D",1,0)="Searches for all Analytic ICDO site codes 160."
^DIBT(421,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=160 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(421,"O",0)="^^2^2^2910111^"
^DIBT(421,"O",1,0)="ICDO-SITE EQUALS 160^NASAL CAV/ACC SINUSES/MID,INNER EAR"
^DIBT(421,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(422,0)="ONCOS ANALYTIC-162^2910208.141^^165.5^^@^^"
^DIBT(422,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=162 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(422,"DL")="^DIBT(+Y,"
^DIBT(422,"O",0)="^"
^DIBT(422,"O",1,0)="ICDO-SITE EQUALS 162^TRACHEA,BRONCHUS,LUNG"
^DIBT(422,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(423,0)="ONCO ANNUAL SITE/ICDT/ICDM^2920829.1504^^165.5^^@^^"
^DIBT(423,2,1)="165.5^.07^ACCESSION YEAR^@^"
^DIBT(423,2,1,"ASK")=""
^DIBT(423,2,1,"F")="90.9"
^DIBT(423,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(423,2,1,"T")="91"
^DIBT(423,2,2)="165.5^.042^CLASS CATEGORY^@^"
^DIBT(423,2,2,"F")=".99999^1"
^DIBT(423,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(423,2,2,"T")="1^1"
^DIBT(423,2,3)="165.5^^SITE/GP^#"".01^;S1;C20"
^DIBT(423,2,3,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(423,2,4)="165.5^^ICDO-TOPOGRAPHY^+""20^;C20"
^DIBT(423,2,4,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$S('$D(^ONCO(164,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(423,2,5)="165.5^^HISTOLOGY^+""22^;C26"
^DIBT(423,2,5,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$S('$D(^ONCO(164.1,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(5)=X"
^DIBT(423,"DIPT")="ONCO ANNUAL SITE/ICDT/ICDM"
^DIBT(424,0)="ONCOS ANALYTIC-161^2910111.1203^^165.5^^@^^"
^DIBT(424,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=161 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(424,"O",0)="^"
^DIBT(424,"O",1,0)="ICDO-SITE EQUALS 161^LARYNX"
^DIBT(424,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(425,0)="ONCOS ANALYTIC-153^2910208.151^^165.5^^@^^"
^DIBT(425,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=153 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(425,"O",0)="^"
^DIBT(425,"O",1,0)="ICDO-SITE EQUALS 153^COLON"
^DIBT(425,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(426,0)="ONCOS ANALYTIC-154^2910111.1205^^165.5^^@^^"
^DIBT(426,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=154 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(426,"O",0)="^"
^DIBT(426,"O",1,0)="ICDO-SITE EQUALS 154^RECTUM/ANAL CANAL/ANUS,NOS"
^DIBT(426,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(427,0)="ONCOS ANALYTIC-140^2910111.1206^^165.5^^@^^"
^DIBT(427,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=140 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(427,"O",0)="^"
^DIBT(427,"O",1,0)="ICDO-SITE EQUALS 140^LIP"
^DIBT(427,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(428,0)="ONCOS ANALYTIC-193^2910111.1207^^165.5^^@^^"
^DIBT(428,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=193 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(428,"O",0)="^"
^DIBT(428,"O",1,0)="ICDO-SITE EQUALS 193^THYROID GLAND"
^DIBT(428,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(429,0)="ONCOS ANALYTIC-196^2910111.1208^^165.5^^@^^"
^DIBT(429,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,22),1:"""")=196 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(429,"O",0)="^"
^DIBT(429,"O",1,0)="ICDO-SITE EQUALS 196^LYMPH NODES"
^DIBT(429,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(430,0)="ONCOS NON-ANALYTIC^2910626^^165.5^^@^^"
^DIBT(430,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=0"
^DIBT(430,"O",0)="^^1^1^2910628^"
^DIBT(430,"O",1,0)="CLASS CATEGORY EQUALS 0"
^DIBT(431,0)="ONCOS RANGE-ANALYTIC^2960418^^165.5^^@^^"
^DIBT(431,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")>84 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")<90"
^DIBT(431,"O",0)="^"
^DIBT(431,"O",1,0)="ACCESSION YEAR GREATER THAN 84"
^DIBT(431,"O",2,0)="   and ACCESSION YEAR LESS THAN 90"
^DIBT(432,0)="ONCOS ANNUAL ANAL/STAGE I^2960507^^165.5^^@^^"
^DIBT(432,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")=90 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 X DIS(""0@1"") I $T"
^DIBT(432,"DIS","0@1")="I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,28),1:"""")=""I"""
^DIBT(432,"O",0)="^"
^DIBT(432,"O",1,0)="ACCESSION YEAR EQUALS 90"
^DIBT(432,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(432,"O",3,0)="   and STAGE GROUPING-AJCC EQUALS ""I"""
^DIBT(433,0)="ONCOS ANNUAL ANAL/STAGE II^2960507^^165.5^^@^^"
^DIBT(433,"%D",0)="^^2^2^2901128^"
^DIBT(433,"%D",1,0)="This search template selects records with specfic accession year, analytic"
^DIBT(433,"%D",2,0)="cases, stage II only."
^DIBT(433,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")=90 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 X DIS(""0@1"") I $T"
^DIBT(433,"DIS","0@1")="I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,28),1:"""")=""II"""
^DIBT(433,"O",0)="^"
^DIBT(433,"O",1,0)="ACCESSION YEAR EQUALS 90"
^DIBT(433,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(433,"O",3,0)="   and STAGE GROUPING-AJCC EQUALS ""II"""
^DIBT(434,0)="ONCOS ANNUAL ANAL/STAGE III^2960507^^165.5^^@^^"
^DIBT(434,"%D",0)="^^1^1^2901128^"
^DIBT(434,"%D",1,0)="Selects Analytic Stage III records for specified accession year."
^DIBT(435,0)="ONCOS ANNUAL ANAL/STAGE IV^2960507^^165.5^^@^^"
^DIBT(435,"%D",0)="^^1^1^2901128^"
^DIBT(435,"%D",1,0)="Selects Analytic Stage IV records for specified accession year."
^DIBT(436,0)="ONCOS ANNUAL ANAL/STAGE 0^2960507^^165.5^^@^^"
^DIBT(436,"%D",0)="^^1^1^2901203^"
^DIBT(436,"%D",1,0)="Selects Stage 0 analytical cases for particular year."
^DIBT(436,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")=90 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 X DIS(""0@1"") I $T"
^DIBT(436,"DIS","0@1")="I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,28),1:"""")=0"
^DIBT(436,"O",0)="^"
^DIBT(436,"O",1,0)="ACCESSION YEAR EQUALS 90"
^DIBT(436,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(436,"O",3,0)="   and STAGE GROUPING-AJCC EQUALS 0"
^DIBT(437,0)="ONCOS ANNUAL ANAL/STAGE U^2960507^^165.5^^@^^"
^DIBT(437,2,1)="165.5^0^NUMBER^"
^DIBT(438,0)="ONCO ANNUAL SITE/GP^2910613.1412^^165.5^^@^^"
^DIBT(438,2,1)="165.5^.07^ACCESSION YEAR^@^"
^DIBT(438,2,1,"ASK")=""
^DIBT(438,2,1,"F")="89.9"
^DIBT(438,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(438,2,1,"T")="90"
^DIBT(438,2,2)="165.5^.042^CLASS CATEGORY^@^"
^DIBT(438,2,2,"F")=".9999"
^DIBT(438,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(438,2,2,"T")="1"
^DIBT(438,2,3)="165.5^^SITE/GP^#@"".01^"
^DIBT(438,2,3,"ASK")=""
^DIBT(438,2,3,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(438,2,4)="165.5^^ICDO-TOPOGRAPHY^""21^"
^DIBT(438,2,4,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=$S('$D(^ONCO(164,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(438,"DIPT")="ONCO ANNUAL SITE/GP"
^DIBT(439,0)="ONCO ICDO-SITE80^2960523.1524^^165.5^^@^3000104"
^DIBT(439,2,0)="^.4014^3^3"
^DIBT(439,2,1,0)="165.5^.023^ICDO-SITE CODE^#@^^^^^^4"
^DIBT(439,2,1,"GET")="S X=$P($G(^ONCO(165.5,D0,0)),U,22) I X'="""" S X=""C""_$E(X,3,4) S DISX(1)=X"
^DIBT(439,2,1,"QCON")="I DISX(1)'="""""
^DIBT(439,2,1,"SER")="0.0000^0.0000"
^DIBT(439,2,1,"TXT")="ICDO-SITE CODE not null"
^DIBT(439,2,2,0)="165.5^20.1^ICDO TOPOGRAPHY-CODE^^;S1;""ICDO CODE: "";C35^^^^^4"
^DIBT(439,2,2,"GET")="S X=$P($G(^ONCO(165.5,D0,2)),U),X=$S(X="""":"""",1:""C""_$E(X,3,4)_"".""_$E(X,5)) S DISX(2)=X"
^DIBT(439,2,2,"QCON")="I DISX(2)'="""""
^DIBT(439,2,2,"SER")="0.1064^0.1064"
^DIBT(439,2,2,"TXT")="ICDO TOPOGRAPHY-CODE not null"
^DIBT(439,2,3,0)="165.5^^PATIENT NAME^@"".02^^^^^^4"
^DIBT(439,2,3,3,0)="^.401419^1^1"
^DIBT(439,2,3,3,1,0)="OVF0^9.2"
^DIBT(439,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(439,2,3,3,"B","OVF0",1)=""
^DIBT(439,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(439,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(439,2,3,"QCON")="I DISX(3)'="""""
^DIBT(439,2,3,"TXT")="PATIENT NAME not null"
^DIBT(439,2,"B",165.5,1)=""
^DIBT(439,2,"B",165.5,2)=""
^DIBT(439,2,"B",165.5,3)=""
^DIBT(439,"DIPT")=""
^DIBT(440,0)="ONCO ICDO-SITE132^2960523.1526^^165.5^^@^2991117"
^DIBT(440,2,0)="^.4014^3^3"
^DIBT(440,2,1,0)="165.5^.023^ICDO-SITE CODE^#@^;S1^^^^^4"
^DIBT(440,2,1,"GET")="S X=$P($G(^ONCO(165.5,D0,0)),U,22) I X'="""" S X=""C""_$E(X,3,4) S DISX(1)=X"
^DIBT(440,2,1,"QCON")="I DISX(1)'="""""
^DIBT(440,2,1,"SER")="0.0000^0.0000"
^DIBT(440,2,1,"TXT")="ICDO-SITE CODE not null"
^DIBT(440,2,2,0)="165.5^20.1^ICDO TOPOGRAPHY-CODE^@^;S1;^^^^^4"
^DIBT(440,2,2,"GET")="S X=$P($G(^ONCO(165.5,D0,2)),U),X=$S(X="""":"""",1:""C""_$E(X,3,4)_"".""_$E(X,5)) S DISX(2)=X"
^DIBT(440,2,2,"QCON")="I DISX(2)'="""""
^DIBT(440,2,2,"SER")="0.1011^0.1011"
^DIBT(440,2,2,"TXT")="ICDO TOPOGRAPHY-CODE not null"
^DIBT(440,2,3,0)="165.5^^PATIENT NAME^@"".02^^^^^^4"
^DIBT(440,2,3,3,0)="^.401419^1^1"
^DIBT(440,2,3,3,1,0)="OVF0^9.2"
^DIBT(440,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(440,2,3,3,"B","OVF0",1)=""
^DIBT(440,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(440,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(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="","" S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(440,2,3,"QCON")="I DISX(3)'="""""
^DIBT(440,2,3,"TXT")="PATIENT NAME not null"
^DIBT(440,2,"B",165.5,1)=""
^DIBT(440,2,"B",165.5,2)=""
^DIBT(440,2,"B",165.5,3)=""
^DIBT(440,"DIPT")=""
^DIBT(441,0)="ONCO ANNUAL ANALYTIC^2910205^^165.5^^@^^"
^DIBT(441,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")=90 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(441,"O",0)="^"
^DIBT(441,"O",1,0)="ACCESSION YEAR EQUALS 90"
^DIBT(441,"O",2,0)="   and CLASS CATEGORY EQUALS 1"
^DIBT(442,0)="ONCO ANNUAL ACOSACCREG80^2901018.1413^^165.5^^@^^"
^DIBT(442,2,1)="165.5^.07^ACCESSION YEAR^@#^;S2"
^DIBT(442,2,1,"ASK")=""
^DIBT(442,2,1,"F")="89.9"
^DIBT(442,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(442,2,1,"T")="90"
^DIBT(442,2,2)="165.5^.061^ACC/SEQ NO.^@^"
^DIBT(442,"DIPT")="ONCO ANNUAL ACCREG80"
^DIBT(443,0)="ONCO STAGE/SITE^2901128.1126^^165.5^^@^^"
^DIBT(443,2,1)="165.5^.042^CLASS CATEGORY^^"
^DIBT(443,2,1,"ASK")=""
^DIBT(443,2,1,"F")=".99999"
^DIBT(443,2,1,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(443,2,1,"T")="1"
^DIBT(443,2,2)="165.5^.07^ACCESSION YEAR^^"
^DIBT(443,2,2,"ASK")=""
^DIBT(443,2,2,"F")="89.99999"
^DIBT(443,2,2,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(443,2,2,"T")="90"
^DIBT(443,2,3)="165.5^38.5^STAGE GROUPING-AJCC^^"
^DIBT(443,2,3,"IX")="^ONCO(165.5,""ASG"",^ONCO(165.5,^2"
^DIBT(443,2,4)="165.5^^SITE/GP^"".01^"
^DIBT(443,2,4,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(444,0)="ONCO ICDO-SITE^2901221.0723^^165.5^^@^^"
^DIBT(444,2,1)="165.5^^ICDO-SITE^"".022^;S1"
^DIBT(444,2,1,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.08,+$P(Y(1),U,22),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(444,2,2)="165.5^^20:CODE^""^;""ICDO CODE: "";C24"
^DIBT(444,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(444,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""""),D0=$P(Y(1),U,1) S:'$D(^ONCO(164,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(164,D0,0)):^(0),1:"""")"
^DIBT(445,0)="ONCO ANNUAL CLASS/SITE^2900823.1821^^165.5^^@^^"
^DIBT(445,2,1)="165.5^.07^ACCESSION YEAR^@^"
^DIBT(445,2,1,"ASK")=""
^DIBT(445,2,1,"F")="89.99999"
^DIBT(445,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(445,2,1,"T")="90"
^DIBT(445,2,2)="165.5^.042^CLASS CATEGORY^^"
^DIBT(445,2,3)="165.5^.04^CLASS OF CASE^^"
^DIBT(445,2,4)="165.5^^SITE/GP^"".01^"
^DIBT(445,2,4,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(446,0)="ONCO ABSTRACT RECORD^2910328.1257^^165.5^^@^^"
^DIBT(446,2,1)="165.5^^SITE/GP^"".01^"
^DIBT(446,2,1,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(446,"DIPT")="ONCO XABSTRACT RECORD"
^DIBT(447,0)="ONCO ANNUAL SITE/STAGE/TX^2910620.1108^^165.5^^@^2960301^"
^DIBT(447,2,0)="^.4014^5^5"
^DIBT(447,2,1,0)="165.5^.07^ACCESSION YEAR^#@^^^^^^4"
^DIBT(447,2,1,"ASK")="1"
^DIBT(447,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165.5,D0,0)),U,7)"
^DIBT(447,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(447,2,1,"QCON")="I DISX(1)'="""""
^DIBT(447,2,1,"SER")="0.0000^0.0000"
^DIBT(447,2,1,"TXT")="ACCESSION YEAR not null"
^DIBT(447,2,2,0)="165.5^.042^CLASS CATEGORY^@^^^^^^3"
^DIBT(447,2,2,"F")=".99999^1"
^DIBT(447,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165.5,D0,0)),U,20)"
^DIBT(447,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(447,2,2,"QCON")="I DISX(2)=1"
^DIBT(447,2,2,"SER")="0.5000^0.3333"
^DIBT(447,2,2,"T")="1^1"
^DIBT(447,2,2,"TXT")="CLASS CATEGORY equals 1"
^DIBT(447,2,3,0)="165.5^^SITE/GP^"".01^;S2;C46^^^^^7"
^DIBT(447,2,3,"ASK")="1"
^DIBT(447,2,3,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(447,2,3,"GET")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(447,2,3,"IX")="^ONCO(165.5,""B"",^ONCO(165.5,^2"
^DIBT(447,2,3,"PTRIX")="^ONCO(164.2,""B"","
^DIBT(447,2,3,"QCON")="I DISX(3)'="""""
^DIBT(447,2,3,"SER")="0.0000^0.0000"
^DIBT(447,2,3,"TXT")="SITE/GP not null"
^DIBT(447,2,4,0)="165.5^38.5^STAGE GROUPING-AJCC^+^;S1;C55^^^^^3"
^DIBT(447,2,4,"GET")="S DISX(4)=$P($G(^ONCO(165.5,D0,2)),U,28)"
^DIBT(447,2,4,"IX")="^ONCO(165.5,""ASG"",^ONCO(165.5,^2"
^DIBT(447,2,4,"QCON")="I DISX(4)'="""""
^DIBT(447,2,4,"SER")="1.0204^0.5051"
^DIBT(447,2,4,"TXT")="STAGE GROUPING-AJCC not null"
^DIBT(447,2,5,0)="165.5^43^TREATMENT^+^^^^^^4"
^DIBT(447,2,5,"GET")="S X="""" D TX^ONCOCOS S DISX(5)=X"
^DIBT(447,2,5,"QCON")="I DISX(5)'="""""
^DIBT(447,2,5,"SER")="0.0000^0.0000"
^DIBT(447,2,5,"TXT")="TREATMENT not null"
^DIBT(447,2,"B",165.5,1)=""
^DIBT(447,2,"B",165.5,2)=""
^DIBT(447,2,"B",165.5,3)=""
^DIBT(447,2,"B",165.5,4)=""
^DIBT(447,2,"B",165.5,5)=""
^DIBT(447,"DIPT")="ONCO ANNUAL SITE/STAGE/TX"
^DIBT(448,0)="ONCOS ANAL/STAGE 0^2960430^^165.5^^@^^"
^DIBT(448,"DA")="DIS(""B1"","
^DIBT(448,"DC",1)=".042^=1^Analytic"
^DIBT(448,"DC",2)="38.5^=0^0"
^DIBT(448,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 X DIS(""0@1"") I $T"
^DIBT(448,"DIS","0@1")="S Y=$S($D(^ONCO(165.5,D0,2)):$P(^(2),U,28),1:"""") I $S(Y="""":"""",$D(DIS(U,2,Y)):DIS(U,2,Y),1:"""")=0"
^DIBT(448,"DIS","^",2,0)="O"
^DIBT(448,"DIS","^",2,1)="I"
^DIBT(448,"DIS","^",2,2)="II"
^DIBT(448,"DIS","^",2,3)="III"
^DIBT(448,"DIS","^",2,4)="IV"
^DIBT(448,"DIS","^",2,9)="Unknown/Unstaged"
^DIBT(448,"DIS","^",2,"1A")="IA"
^DIBT(448,"DIS","^",2,"1B")="IB"
^DIBT(448,"DIS","^",2,"1C")="IC"
^DIBT(448,"DIS","^",2,"2A")="IIA"
^DIBT(448,"DIS","^",2,"2B")="IIB"
^DIBT(448,"DIS","^",2,"2C")="IIC"
^DIBT(448,"DIS","^",2,"3A")="IIIA"
^DIBT(448,"DIS","^",2,"3B")="IIIB"
^DIBT(448,"DIS","^",2,"4A")="IVA"
^DIBT(448,"DIS","^",2,"4B")="IVB"
^DIBT(448,"DL")="1"
^DIBT(448,"DL",0)="^1^2^"
^DIBT(448,"O",0)="^^2^2^2960424^"
^DIBT(448,"O",1,0)="CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(448,"O",2,0)="   and STAGE GROUPING-AJCC EQUALS 0^0"
^DIBT(449,0)="ONCO ANNUAL ICDO/STAGE/TX^2910620.1846^^165.5^^@^2960301^"
^DIBT(449,2,0)="^.4014^5^5"
^DIBT(449,2,1,0)="165.5^.07^ACCESSION YEAR^#@^^^^^^4"
^DIBT(449,2,1,"ASK")="1"
^DIBT(449,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165.5,D0,0)),U,7)"
^DIBT(449,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(449,2,1,"QCON")="I DISX(1)'="""""
^DIBT(449,2,1,"SER")="0.0000^0.0000"
^DIBT(449,2,1,"TXT")="ACCESSION YEAR not null"
^DIBT(449,2,2,0)="165.5^.042^CLASS CATEGORY^@^^^^^^3"
^DIBT(449,2,2,"F")=".99999^1"
^DIBT(449,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165.5,D0,0)),U,20)"
^DIBT(449,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(449,2,2,"QCON")="I DISX(2)=1"
^DIBT(449,2,2,"SER")="0.5000^0.3333"
^DIBT(449,2,2,"T")="1^1"
^DIBT(449,2,2,"TXT")="CLASS CATEGORY equals 1"
^DIBT(449,2,3,0)="165.5^.023^ICDO-SITE CODE^^;S2;C46^^^^^4"
^DIBT(449,2,3,"ASK")="1"
^DIBT(449,2,3,"GET")="S X=$P($G(^ONCO(165.5,D0,0)),U,22) I X'="""" S X=""C""_$E(X,3,4) S DISX(3)=X"
^DIBT(449,2,3,"QCON")="I DISX(3)'="""""
^DIBT(449,2,3,"SER")="0.0000^0.0000"
^DIBT(449,2,3,"TXT")="ICDO-SITE CODE not null"
^DIBT(449,2,4,0)="165.5^38.5^STAGE GROUPING-AJCC^+^;S1;C55^^^^^3"
^DIBT(449,2,4,"GET")="S DISX(4)=$P($G(^ONCO(165.5,D0,2)),U,28)"
^DIBT(449,2,4,"IX")="^ONCO(165.5,""ASG"",^ONCO(165.5,^2"
^DIBT(449,2,4,"QCON")="I DISX(4)'="""""
^DIBT(449,2,4,"SER")="1.0204^0.5051"
^DIBT(449,2,4,"TXT")="STAGE GROUPING-AJCC not null"
^DIBT(449,2,5,0)="165.5^43^TREATMENT^+^^^^^^4"
^DIBT(449,2,5,"GET")="S X="""" D TX^ONCOCOS S DISX(5)=X"
^DIBT(449,2,5,"QCON")="I DISX(5)'="""""
^DIBT(449,2,5,"SER")="0.0000^0.0000"
^DIBT(449,2,5,"TXT")="TREATMENT not null"
^DIBT(449,2,"B",165.5,1)=""
^DIBT(449,2,"B",165.5,2)=""
^DIBT(449,2,"B",165.5,3)=""
^DIBT(449,2,"B",165.5,4)=""
^DIBT(449,2,"B",165.5,5)=""
^DIBT(449,"DIPT")="ONCO ANNUAL ICDO/STAGE/TX"
^DIBT(450,0)="ONCO ANNUAL HIST/SITE/ICDO^3021023.0922^^165.5^^@^3021023"
^DIBT(450,2,0)="^.4014^6^6"
^DIBT(450,2,1,0)="165.5^.07^ACCESSION YEAR^+@^^^^^^4"
^DIBT(450,2,1,"ASK")="1"
^DIBT(450,2,1,"F")="2001.999999^2002"
^DIBT(450,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165.5,D0,0)),U,7)"
^DIBT(450,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(450,2,1,"QCON")="I DISX(1)=2002"
^DIBT(450,2,1,"SER")="11.5714^0.9205"
^DIBT(450,2,1,"T")="2002^2002"
^DIBT(450,2,1,"TXT")="ACCESSION YEAR equals 2002"
^DIBT(450,2,2,0)="165.5^.042^CLASS CATEGORY^@^^^^^^3"
^DIBT(450,2,2,"F")=".999999^1^1 (Analytic)"
^DIBT(450,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165.5,D0,0)),U,20)"
^DIBT(450,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(450,2,2,"QCON")="I DISX(2)=1"
^DIBT(450,2,2,"SER")="0.2055^0.1705"
^DIBT(450,2,2,"T")="1^1^1 (Analytic)"
^DIBT(450,2,2,"TXT")="CLASS CATEGORY equals 1 (Analytic)"
^DIBT(450,2,3,0)="165.5^22.1^ICDO HISTOLOGY-CODE^+^^^^^^4"
^DIBT(450,2,3,"GET")="S X=$$HIST^ONCFUNC(D0),X=$S(X="""":"""",1:$E(X,1,4)_""/""_$E(X,5)) S DISX(3)=X"
^DIBT(450,2,3,"QCON")="I DISX(3)'="""""
^DIBT(450,2,3,"SER")="0.1136^0.1136"
^DIBT(450,2,3,"TXT")="ICDO HISTOLOGY-CODE not null"
^DIBT(450,2,4,0)="165.5^^SITE/GP^+"".01^;S1^^^^^4"
^DIBT(450,2,4,"ASK")="1"
^DIBT(450,2,4,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(450,2,4,"GET")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(450,2,4,"IX")="^ONCO(165.5,""B"",^ONCO(165.5,^2"
^DIBT(450,2,4,"PTRIX")="^ONCO(164.2,""B"","
^DIBT(450,2,4,"QCON")="I DISX(4)'="""""
^DIBT(450,2,4,"SER")="0.0000^0.0000"
^DIBT(450,2,4,"TXT")="SITE/GP not null"
^DIBT(450,2,5,0)="165.5^.023^ICDO-SITE CODE^^^^^^^4"
^DIBT(450,2,5,"GET")="S X=$P($G(^ONCO(165.5,D0,0)),U,22) I X'="""" S X=""C""_$E(X,3,4) S DISX(5)=X"
^DIBT(450,2,5,"QCON")="I DISX(5)'="""""
^DIBT(450,2,5,"SER")="0.0000^0.0000"
^DIBT(450,2,5,"TXT")="ICDO-SITE CODE not null"
^DIBT(450,2,6,0)="165.5^^PATIENT NAME^"".02^^^^^^4"
^DIBT(450,2,6,3,0)="^.401419^2^2"
^DIBT(450,2,6,3,1,0)="OVF0^9.2"
^DIBT(450,2,6,3,1,"OVF0")="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"
^DIBT(450,2,6,3,2,0)="OVF0^9.3"
^DIBT(450,2,6,3,2,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DIBT(450,2,6,3,"B","OVF0",1)=""
^DIBT(450,2,6,3,"B","OVF0",2)=""
^DIBT(450,2,6,"CM")="X DPP(6,""OVF0"",9.3) S X=$P(Y(101),U,1) X DPP(6,""OVF0"",9.2) S X=X S D0=I(0,0) I D0>0 S DISX(6)=X"
^DIBT(450,2,6,"GET")="X DPP(6,""OVF0"",9.3) S X=$P(Y(101),U,1) X DPP(6,""OVF0"",9.2) S X=X S D0=I(0,0) I D0>0 S DISX(6)=X"
^DIBT(450,2,6,"QCON")="I DISX(6)'="""""
^DIBT(450,2,6,"TXT")="PATIENT NAME not null"
^DIBT(450,2,"B",165.5,1)=""
^DIBT(450,2,"B",165.5,2)=""
^DIBT(450,2,"B",165.5,3)=""
^DIBT(450,2,"B",165.5,4)=""
^DIBT(450,2,"B",165.5,5)=""
^DIBT(450,2,"B",165.5,6)=""
^DIBT(451,0)="ONCOS ANAL/STAGE I^2960430^^165.5^^@^^"
^DIBT(452,0)="ONCOS ANAL/STAGE II^2960430^^165.5^^@^^"
^DIBT(453,0)="ONCOS ANAL/STAGE III^2960430^^165.5^^@^^"
^DIBT(454,0)="ONCOS ANAL/STAGE IV^2960430^^165.5^^@^^"
^DIBT(455,0)="ONCOS ANAL/STAGE U^2960430^^165.5^^@^2960424^"
^DIBT(455,2,0)="^.4014"
^DIBT(456,0)="ONCOS ANNUAL-ANALYTIC^2960507^^165.5^^@^^"
^DIBT(457,0)="ONCOS ANALYTIC^2960430^^165.5^^@^^"
^DIBT(457,"DC",1)=".042^=1^Analytic"
^DIBT(457,"DIS",0)="S Y=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""") I $S(Y="""":"""",$D(DIS(U,1,Y)):DIS(U,1,Y),1:"""")=1"
^DIBT(457,"DIS","^",1,0)="NonAnalytic"
^DIBT(457,"DIS","^",1,1)="Analytic"
^DIBT(457,"DL")="1"
^DIBT(457,"DL",0)="^1^"
^DIBT(457,"O",0)="^"
^DIBT(457,"O",1,0)="CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(458,0)="ONCOS ANNUAL-NON ANAL^2960418^^165.5^^@^^"
^DIBT(459,0)="ONCOS ANALYTIC_NON^2910628^^165.5^^@^^"
^DIBT(460,0)="ONCOS RANGE-ALLCASES^2960418^^165.5^^@^^"
^DIBT(461,0)="ONCOS RANGE-NON ANAL^2960418^^165.5^^@^^"
^DIBT(462,0)="ONCOS ANNUAL-ALLCASES^2960418^^165.5^^@^^"
^DIBT(463,0)="ONCOS TOTAL-ANAL^2910628^^165.5^^@^^"
^DIBT(464,0)="ONCOS TOTAL-NON^2910628^^165.5^^@^^"
^DIBT(465,0)="ONCO ANN/ANAL/STA/SITE/DX AGE^2910629.1708^^165.5^^@^2960329^"
^DIBT(465,2,0)="^.4014^5^5"
^DIBT(465,2,1,0)="165.5^.07^ACCESSION YEAR^+#^^^^^^4"
^DIBT(465,2,1,"ASK")="1"
^DIBT(465,2,1,"F")="CPR     ;PRINT CUSTOM REPORTRz^CPR     ;PRINT CUSTOM REPORTS"
^DIBT(465,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165.5,D0,0)),U,7)"
^DIBT(465,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(465,2,1,"QCON")="I DISX(1)'="""""
^DIBT(465,2,1,"T")="DIP G EX^DIP G EX"
^DIBT(465,2,1,"TXT")="ACCESSION YEAR not null"
^DIBT(465,2,2,0)="165.5^.042^CLASS CATEGORY^^^^^^^3"
^DIBT(465,2,2,"ASK")="1"
^DIBT(465,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165.5,D0,0)),U,20)"
^DIBT(465,2,2,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(465,2,2,"QCON")="I DISX(2)'="""""
^DIBT(465,2,2,"TXT")="CLASS CATEGORY not null"
^DIBT(465,2,3,0)="165.5^.091^STATUS^^^^^^^4"
^DIBT(465,2,3,"GET")="X ^DD(165.5,.091,9.3) S X=$P($P(Y(165.5,.091,102),$C(59)_$P(Y(165.5,.091,101),U,1)_"":"",2),$C(59),1) S D0=Y(165.5,.091,80) S DISX(3)=X"
^DIBT(465,2,3,"QCON")="I DISX(3)'="""""
^DIBT(465,2,3,"TXT")="STATUS not null"
^DIBT(465,2,4,0)="165.5^^SITE/GP^+"".01^^^^^^7"
^DIBT(465,2,4,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(465,2,4,"GET")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(465,2,4,"IX")="^ONCO(165.5,""B"",^ONCO(165.5,^2"
^DIBT(465,2,4,"PTRIX")="^ONCO(164.2,""B"","
^DIBT(465,2,4,"QCON")="I DISX(4)'="""""
^DIBT(465,2,4,"TXT")="SITE/GP not null"
^DIBT(465,2,5,0)="165.5^4.1^DX AGE-GP^+^^^^^^4"
^DIBT(465,2,5,"GET")="D DEC^ONCOCOM S DISX(5)=X"
^DIBT(465,2,5,"QCON")="I DISX(5)'="""""
^DIBT(465,2,5,"TXT")="DX AGE-GP not null"
^DIBT(465,2,"B",165.5,1)=""
^DIBT(465,2,"B",165.5,2)=""
^DIBT(465,2,"B",165.5,3)=""
^DIBT(465,2,"B",165.5,4)=""
^DIBT(465,2,"B",165.5,5)=""
^DIBT(466,0)="ONCOS SITE=PROSTATE^2920906.1845^^165.5^^@^^"
^DIBT(466,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=50 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(466,"DL")="^DIBT(+Y,"
^DIBT(466,"O",0)="^"
^DIBT(466,"O",1,0)="SITE/GP EQUALS 50^PROSTATE"
^DIBT(466,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(467,0)="ONCOS SITE=LUNG^2920829.1514^^165.5^^@^^"
^DIBT(467,"DA")="DIS(""A1"","
^DIBT(467,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(467,"DC",1)=".01^=31^LUNG"
^DIBT(467,"DC",2)=".042^=1^Analytic"
^DIBT(467,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=31 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(467,"DL")="1"
^DIBT(467,"DL",0)="^1^2^"
^DIBT(467,"O",0)="^"
^DIBT(467,"O",1,0)="SITE/GP EQUALS 31^LUNG"
^DIBT(467,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(468,0)="ONCOS SITE=COLON^2920922.2233^^165.5^^@^^"
^DIBT(468,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=17 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(468,"DJ")="0"
^DIBT(468,"O",0)="^"
^DIBT(468,"O",1,0)="SITE/GP EQUALS 17^COLON"
^DIBT(468,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(469,0)="ONCOS SITE=LIP^2910918.1836^^165.5^^@^^"
^DIBT(469,"DA")="DIS(""A1"","
^DIBT(469,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(469,"DC",1)=".01^=1^LIP"
^DIBT(469,"DC",2)=".042^=1^Analytic"
^DIBT(469,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=1 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(469,"DL")="1"
^DIBT(469,"DL",0)="^1^2^"
^DIBT(469,"O",0)="^"
^DIBT(469,"O",1,0)="SITE/GP EQUALS 1^LIP"
^DIBT(469,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(470,0)="ONCOS SITE=BRAIN^2910918.1845^^165.5^^@^^"
^DIBT(470,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=58 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(470,"O",0)="^"
^DIBT(470,"O",1,0)="SITE/GP EQUALS 58^BRAIN"
^DIBT(470,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(471,0)="ONCOS SITE=HODGKINS^2910630^^165.5^^@^^"
^DIBT(472,0)="ONCOS SITE=NON-HODGKINS^2910630^^165.5^^@^^"
^DIBT(473,0)="ONCOS SITE=LARYNX^2910918.1851^^165.5^^@^^"
^DIBT(473,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=28 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(473,"DL")="^DIBT(+Y,"
^DIBT(473,"O",0)="^"
^DIBT(473,"O",1,0)="SITE/GP EQUALS 28^LARYNX"
^DIBT(473,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(474,0)="ONCOS SITE=LYMPH NODES^2910630^^165.5^^@^^"
^DIBT(475,0)="ONCOS TX-SURGERY^2910630^^165.5^^@^^"
^DIBT(476,0)="ONCOS TX-CHEMO^2910630^^165.5^^@^^"
^DIBT(477,0)="ONCOS TX-RADIATION^2910630^^165.5^^@^^"
^DIBT(478,0)="ONCOS TX-HORMONE^2910630^^165.5^^@^^"
^DIBT(479,0)="ONCOS KAPOSI^2910807.1135^^165.5^^@^^"
^DIBT(479,"DA")="DIS(""B1"","
^DIBT(479,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(479,"DA",2)="X DIS(""B1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(479,"DC",1)=".01^=38^SKIN (EX. MELANOMA, MYCOSIS)"
^DIBT(479,"DC",2)="22^=91403^KAPOSI'S SARCOMA"
^DIBT(479,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=38 I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,3),1:"""")=91403"
^DIBT(479,"DL")="1"
^DIBT(479,"DL",0)="^1^2^"
^DIBT(479,"O",0)="^"
^DIBT(479,"O",1,0)="SITE/GP EQUALS 38^SKIN (EX. MELANOMA, MYCOSIS)"
^DIBT(479,"O",2,0)="   and HISTOLOGY EQUALS 91403^KAPOSI'S SARCOMA"
^DIBT(479,"O","ONCOAIF")=""
^DIBT(480,0)="ONCOS LARYNX/AN/90^2910807.1527^^165.5^^@^^"
^DIBT(480,"DA")="DIS(""A1"","
^DIBT(480,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(480,"DC",1)=".01^=28^LARYNX"
^DIBT(480,"DC",2)=".042^=1^Analytic"
^DIBT(480,"DC",3)=".07^=90^"
^DIBT(480,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=28 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 X DIS(""0@1"") I $T"
^DIBT(480,"DIS","0@1")="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")=90"
^DIBT(480,"DL")="1"
^DIBT(480,"DL",0)="^1^2^3^"
^DIBT(480,"O",0)="^"
^DIBT(480,"O",1,0)="SITE/GP EQUALS 28^LARYNX"
^DIBT(480,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(480,"O",3,0)="   and ACCESSION YEAR EQUALS 90"
^DIBT(481,0)="ONCOS SITE=TESTIS^2910918.1848^^165.5^^@^^"
^DIBT(481,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=51 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(481,"DL")="^DIBT(+Y,"
^DIBT(481,"O",0)="^"
^DIBT(481,"O",1,0)="SITE/GP EQUALS 51^TESTIS"
^DIBT(481,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(482,0)="ONCOS SITE=BLADDER^2920529.1713^^165.5^^@^^"
^DIBT(482,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=54 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(482,"O",0)="^"
^DIBT(482,"O",1,0)="SITE/GP EQUALS 54^BLADDER"
^DIBT(482,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(483,0)="ONCOS SITE=ESOHAGUS^2910918.1807^^165.5^^@^^"
^DIBT(483,"DA")="DIS(""A1"","
^DIBT(483,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(483,"DC",1)=".01^=14^ESOPHAGUS"
^DIBT(483,"DC",2)=".042^=1^Analytic"
^DIBT(483,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=14 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(483,"DL")="1"
^DIBT(483,"DL",0)="^1^2^"
^DIBT(483,"O",0)="^"
^DIBT(483,"O",1,0)="SITE/GP EQUALS 14^ESOPHAGUS"
^DIBT(483,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(484,0)="ONCOS SITE=PHARYNX^2910918.1853^^165.5^^@^^"
^DIBT(484,"DA")="DIS(""A1"","
^DIBT(484,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(484,"DC",1)=".01^=13^PHARYNX"
^DIBT(484,"DC",2)=".042^=1^Analytic"
^DIBT(484,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=13 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(484,"DL")="1"
^DIBT(484,"DL",0)="^1^2^"
^DIBT(484,"O",0)="^"
^DIBT(484,"O",1,0)="SITE/GP EQUALS 13^PHARYNX"
^DIBT(484,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(485,0)="ONCOS SITE=HODGKIN'S^2910918.1858^^165.5^^@^^"
^DIBT(485,"DA")="DIS(""A1"","
^DIBT(485,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(485,"DC",1)=".01^=62^LYMPHOMA, HODGKIN'S"
^DIBT(485,"DC",2)=".042^=1^Analytic"
^DIBT(485,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=62 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(485,"DL")="1"
^DIBT(485,"DL",0)="^1^2^"
^DIBT(485,"O",0)="^"
^DIBT(485,"O",1,0)="SITE/GP EQUALS 62^LYMPHOMA, HODGKIN'S"
^DIBT(485,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(486,0)="ONCOS SITE=NON-HODGKINS'S^2910918.1902^^165.5^^@^^"
^DIBT(486,"DA")="DIS(""A1"","
^DIBT(486,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(486,"DC",1)=".01^=63^LYMPHOMA, NON-HODGKIN'S"
^DIBT(486,"DC",2)=".042^=1^Analytic"
^DIBT(486,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=63 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(486,"DL")="1"
^DIBT(486,"DL",0)="^1^2^"
^DIBT(486,"O",0)="^"
^DIBT(486,"O",1,0)="SITE/GP EQUALS 63^LYMPHOMA, NON-HODGKIN'S"
^DIBT(486,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(487,0)="ONCOS ANNUAL/ANAL-90^2910929.1331^^165.5^^@^^"
^DIBT(487,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,7),1:"""")=90 X DIS(""0@1"") I $T"
^DIBT(487,"DIS","0@1")="S Y=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""") I $S(Y="""":"""",$D(DIS(U,2,Y)):DIS(U,2,Y),1:"""")=1"
^DIBT(487,"DIS","^",2,0)="NonAnalytic"
^DIBT(487,"DIS","^",2,1)="Analytic"
^DIBT(487,"O",0)="^"
^DIBT(487,"O",1,0)="ACCESSION YEAR EQUALS 90"
^DIBT(487,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(488,0)="ONCOS SITE=LIVER^2911001.1135^^165.5^^@^^"
^DIBT(488,"DA")="DIS(""B1"","
^DIBT(488,"DA",2)="X DIS(""B1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(488,"DC",1)=".042^=1^Analytic"
^DIBT(488,"DC",2)=".01^=20^LIVER"
^DIBT(488,"DIS",0)="S Y=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""") I $S(Y="""":"""",$D(DIS(U,1,Y)):DIS(U,1,Y),1:"""")=1 X DIS(""0@1"") I $T X DIS(""0@2"") I $T X DIS(""0@3"") I $T"
^DIBT(488,"DIS","0@1")="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=54"
^DIBT(488,"DIS","0@2")="S Y=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""") I $S(Y="""":"""",$D(DIS(U,1,Y)):DIS(U,1,Y),1:"""")=1"
^DIBT(488,"DIS","0@3")="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=20"
^DIBT(488,"DIS","^",1,0)="DX HERE, 1ST RX EW"
^DIBT(488,"DIS","^",1,1)="DX HERE & 1ST RX HERE"
^DIBT(488,"DIS","^",1,2)="DX EW, 1ST RX HERE"
^DIBT(488,"DIS","^",1,3)="DX EW, 1ST RX EW"
^DIBT(488,"DIS","^",1,4)="DX & 1ST RX BEFORE REF DATE"
^DIBT(488,"DIS","^",1,5)="DX AT AUTOPSY"
^DIBT(488,"DIS","^",1,8)="DX BY DEATH CERT ONLY"
^DIBT(488,"DIS","^",1,9)="UNKNOWN"
^DIBT(488,"DL")="1"
^DIBT(488,"DL",0)="^1^2^"
^DIBT(488,"O",0)="^"
^DIBT(488,"O",1,0)="CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(488,"O",2,0)="   and SITE/GP EQUALS 20^LIVER"
^DIBT(489,0)="ONCO ABSTINCOM-TERMDIG^2920108.1254^^165.5^^@^2960502^"
^DIBT(489,2,0)="^.4014^3^3"
^DIBT(489,2,1,0)="165.5^.07^ACCESSION YEAR^^^^^^^4"
^DIBT(489,2,1,"ASK")="1"
^DIBT(489,2,1,"GET")="S DISX(1)=$P($G(^ONCO(165.5,D0,0)),U,7)"
^DIBT(489,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(489,2,1,"QCON")="I DISX(1)'="""""
^DIBT(489,2,1,"TXT")="ACCESSION YEAR not null"
^DIBT(489,2,2,0)="165.5^91^ABSTRACT STATUS^^^^^^^3"
^DIBT(489,2,2,"ASK")="1"
^DIBT(489,2,2,"GET")="S DISX(2)=$P($G(^ONCO(165.5,D0,7)),U,2)"
^DIBT(489,2,2,"IX")="^ONCO(165.5,""AS"",^ONCO(165.5,^2"
^DIBT(489,2,2,"QCON")="I DISX(2)'="""""
^DIBT(489,2,2,"TXT")="ABSTRACT STATUS not null"
^DIBT(489,2,3,0)="160^4.1^TERMINAL DIGIT^""^^^^^^4"
^DIBT(489,2,3,2,0)="^.401418^1^1"
^DIBT(489,2,3,2,1,0)="165.5^100^160^ONCO(160,^0"
^DIBT(489,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(489,2,3,2,"B",165.5,1)=""
^DIBT(489,2,3,"GET")="S X="""" D TRM^ONCOES S DISX(3)=X"
^DIBT(489,2,3,"QCON")="I DISX(3)'="""""
^DIBT(489,2,3,"TXT")="TERMINAL DIGIT not null"
^DIBT(489,2,"B",160,3)=""
^DIBT(489,2,"B",165.5,1)=""
^DIBT(489,2,"B",165.5,2)=""
^DIBT(490,0)="ONCO ABSTRACT DATE/COMPLETE^2920511.1814^^165.5^^@^^"
^DIBT(490,2,1)="165.5^90^ABSTRACT DATE^^"
^DIBT(490,2,1,"ASK")=""
^DIBT(490,2,1,"F")="2880900.99999^SEPT 1,1988"
^DIBT(490,2,1,"T")="2880930.9999^SEPT 30,1988"
^DIBT(490,2,2)="165.5^91^ABSTRACT STATUS^^"
^DIBT(490,2,2,"F")="2.99999^3"
^DIBT(490,2,2,"T")="3^3"
^DIBT(491,0)="ONCOS MEMPHIS LUNG^2920514.1251^^165.5^^@^^"
^DIBT(491,"DA")="DIS(""B1"","
^DIBT(491,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(491,"DA",2)="X DIS(""B1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(491,"DC",1)=".01^=31^LUNG, NON-SMALL CELL"
^DIBT(491,"DC",2)=".01^=42^LUNG, SMALL CELL"
^DIBT(491,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=31 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=42"
^DIBT(491,"DL")="1"
^DIBT(491,"DL",0)="^1^2^"
^DIBT(491,"O",0)="^"
^DIBT(491,"O",1,0)="SITE/GP EQUALS 31^LUNG, NON-SMALL CELL"
^DIBT(491,"O",2,0)="   and SITE/GP EQUALS 42^LUNG, SMALL CELL"
^DIBT(492,0)="ONCOS SITE=BREAST^2920906.1902^^165.5^^@^^"
^DIBT(492,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=41 I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1"
^DIBT(492,"DL")="^DIBT(+Y,"
^DIBT(492,"O",0)="^"
^DIBT(492,"O",1,0)="SITE/GP EQUALS 41^BREAST"
^DIBT(492,"O",2,0)="   and CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(493,0)="ONCO PCE ANNUAL REPORT^2920715.0827^^165.5^^@^^"
^DIBT(493,2,1)="165.5^.07^ACCESSION YEAR^@^"
^DIBT(493,2,1,"ASK")=""
^DIBT(493,2,1,"F")="91.99999^92"
^DIBT(493,2,1,"IX")="^ONCO(165.5,""AY"",^ONCO(165.5,^2"
^DIBT(493,2,1,"T")="92^92"
^DIBT(493,2,2)="165.5^^SITE/GP^"".01^"
^DIBT(493,2,2,"CM")="S Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.2,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(493,2,3)="165.5^.042^CLASS CATEGORY^+@^"
^DIBT(493,2,3,"F")="AN@z^ANA"
^DIBT(493,2,3,"IX")="^ONCO(165.5,""AG"",^ONCO(165.5,^2"
^DIBT(493,2,3,"T")="ANZ^ANZ"
^DIBT(494,0)="ONCOS LUNG/NON-SMALL CELL^2920919.12^^165.5^^@^^"
^DIBT(494,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,1),1:"""")=31 I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,3),1:"""")'=80413 X DIS(""0@1"") I $T"
^DIBT(494,"DIS","0@1")="I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,3),1:"""")'=80423"
^DIBT(494,"DL")="^DIBT(+Y,"
^DIBT(494,"O",0)="^"
^DIBT(494,"O",1,0)="SITE/GP EQUALS 31^LUNG"
^DIBT(494,"O",2,0)="   and HISTOLOGY NOT EQUALS 80413^SMALL CELL CARCINOMA NOS"
^DIBT(494,"O",3,0)="   and HISTOLOGY NOT EQUALS 80423^OAT CELL CARCINOMA (LUNG)"
^DIBT(495,0)="ONCO TOPOGRAPHY BY CODE^2930512.0934^^164^^@^^"
^DIBT(495,2,1)="164^1^CODE^^"
^DIBT(495,2,1,"IX")="^ONCO(164,""H"",^ONCO(164,^2"
^DIBT(495,2,2)="164^0^NUMBER^^"
^DIBT(496,0)="ONCO TOPOG SITES^2930721.1152^^164.2^^@^2960516^"
^DIBT(496,2,0)="^.4014^2^2"
^DIBT(496,2,1,0)="164.2^0^NUMBER^^^^^^^2"
^DIBT(496,2,1,"IX")="^ONCO(164.2,^ONCO(164.2,^1"
^DIBT(496,2,1,"QCON")="I D0'="""""
^DIBT(496,2,1,"SER")="0^0"
^DIBT(496,2,1,"TXT")="NUMBER not null"
^DIBT(496,2,2,0)="164.2^^HISTOLOGIC'=""Yes""^""@B^;L1^^^^^4"
^DIBT(496,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(164.2,71,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ONCO(164.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)'=""Yes"" I D0>0 S DISX(2)=X"
^DIBT(496,2,2,"F")="0"
^DIBT(496,2,2,"GET")="S Y(2)=$C(59)_$S($D(^DD(164.2,71,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ONCO(164.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)'=""Yes"" I D0>0 S DISX(2)=X"
^DIBT(496,2,2,"QCON")="I DISX(2)"
^DIBT(496,2,2,"T")="1"
^DIBT(496,2,2,"TXT")="HISTOLOGIC'=""""Yes"""""
^DIBT(496,2,"B",164.2,1)=""
^DIBT(496,2,"B",164.2,2)=""
^DIBT(496,"%D",0)="^^2^2^2930721^"
^DIBT(496,"%D",1,0)="This template sorts the site-group entries in numeric order and excludes"
^DIBT(496,"%D",2,0)="the histologic sites."
^DIBT(496,"DIPT")="ONCO TOPOG SITES"
^DIBT(497,0)="ONCO TOPOG BY SITEGRP^2930722.1021^^164^^@^2960516^"
^DIBT(497,2,0)="^.4014^2^2"
^DIBT(497,2,1,0)="164^^DEFAULT PRIMARY SITE GROUP:NUMBER^@""^;S^^^^^4"
^DIBT(497,2,1,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(164,D0,0)):^(0),1:""""),D0=$P(Y(1),U,13) S:'$D(^ONCO(164.2,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(497,2,1,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(164,D0,0)):^(0),1:""""),D0=$P(Y(1),U,13) S:'$D(^ONCO(164.2,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(497,2,1,"QCON")="I DISX(1)'="""""
^DIBT(497,2,1,"TXT")="DEFAULT PRIMARY SITE GROUP:NUMBER not null"
^DIBT(497,2,2,0)="164^1^CODE^^^^^^^4"
^DIBT(497,2,2,"GET")="S DISX(2)=$P($G(^ONCO(164,D0,0)),U,2)"
^DIBT(497,2,2,"IX")="^ONCO(164,""H"",^ONCO(164,^2"
^DIBT(497,2,2,"QCON")="I DISX(2)'="""""
^DIBT(497,2,2,"SER")="0.0000^0.0000"
^DIBT(497,2,2,"TXT")="CODE not null"
^DIBT(497,2,"B",164,1)=""
^DIBT(497,2,"B",164,2)=""
^DIBT(498,0)="ONCOZ LUNG SURVIVAL^2960306.0956^^165.5^^@^2960306"
^DIBT(498,"DA")="DIS(""A1"","
^DIBT(498,"DA",1)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DIBT(498,"DC",1)="-1^[""LUNG""^"
^DIBT(498,"DIS",0)="X DIS(""A1"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I X[""LUNG"""
^DIBT(498,"DIS","A1",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^ONCO(164.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ONCO(164.2,D0,0)):^(0),1:"""")"
^DIBT(498,"DL")="1"
^DIBT(498,"DL",0)="^1^"
^DIBT(498,"O",0)="^"
^DIBT(498,"O",1,0)="SITE/GP CONTAINS ""LUNG"""
^DIBT(498,"QR")="2960306.095612^9"
^DIBT(499,0)="ONCOS ANAL/STAGE NA^2960430^^165.5^^@"
^DIBT(499,"DC",1)=".042^=1^Analytic"
^DIBT(499,"DC",2)="38.5^=""NA""^Not Applicable"
^DIBT(499,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,28),1:"""")=""NA"""
^DIBT(499,"DL")="1"
^DIBT(499,"DL",0)="^1^2^"
^DIBT(499,"O",0)="^"
^DIBT(499,"O",1,0)="CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(499,"O",2,0)="   and STAGE GROUPING-AJCC EQUALS ""NA""^Not Applicable"
^DIBT(500,0)="ONCOS ANNUAL ANAL/STAGE NA^2960507^^165.5^^@^2960507"
^DIBT(500,"DC",1)=".042^=1^Analytic"
^DIBT(500,"DC",2)="38.5^=""NA""^Not Applicable"
^DIBT(500,"DIS",0)="I $S($D(^ONCO(165.5,D0,0)):$P(^(0),U,20),1:"""")=1 I $S($D(^ONCO(165.5,D0,2)):$P(^(2),U,28),1:"""")=""NA"""
^DIBT(500,"DL")="1"
^DIBT(500,"DL",0)="^1^2^"
^DIBT(500,"O",0)="^"
^DIBT(500,"O",1,0)="CLASS CATEGORY EQUALS 1^Analytic"
^DIBT(500,"O",2,0)="   and STAGE GROUPING-AJCC EQUALS ""NA""^Not Applicable"
^DIBT(500,"QR")="2960507.140312^22"
^DIBT(502,0)="ESP VEHICLE REGISTRATION LOG^2930630.142^^910.2^^^2940314^"
^DIBT(502,2,1)="910.2^.04^REGISTRATION TYPE^@^"
^DIBT(502,2,1,"F")=".99999^1"
^DIBT(502,2,1,"IX")="^ESP(910.2,""T"",^ESP(910.2,^2"
^DIBT(502,2,1,"T")="VEHICLEZ^VEHICLEZ"
^DIBT(502,2,2)="910.2^.01^VA TAG ID^^"
^DIBT(502,2,2,"IX")="^ESP(910.2,""B"",^ESP(910.2,^2"
^DIBT(503,0)="ESP VIOLATIONS/WARNINGS ISSUED^2930706.143^^914^^^^"
^DIBT(503,2,1)="914^.02^DATE/TIME OF OFFENSE^^"
^DIBT(503,2,1,"ASK")=""
^DIBT(503,2,1,"F")="2931000.99999^10 1 93"
^DIBT(503,2,1,"IX")="^ESP(914,""C"",^ESP(914,^2"
^DIBT(503,2,1,"T")="2931031.9999^10 31 93"
^DIBT(503,2,2)="914^^OFFENSE CHARGED^"".04^"
^DIBT(503,2,2,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(915,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(504,0)="ESP VIOLATIONS ISSUED^2930706.1404^^914^^^^"
^DIBT(504,2,1)="914^^COURTESY/VIOLATION[""USDCVN""^'""@B^;L1"
^DIBT(504,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(914,.03,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)[""USDCVN"" I D0>0 S X(1)=X"
^DIBT(504,2,1,"F")="0"
^DIBT(504,2,1,"T")="1"
^DIBT(504,2,2)="914^.02^DATE/TIME OF OFFENSE^'^"
^DIBT(504,2,2,"ASK")=""
^DIBT(504,2,2,"F")="2931000.99999^10 1 93"
^DIBT(504,2,2,"IX")="^ESP(914,""C"",^ESP(914,^2"
^DIBT(504,2,2,"T")="2931031.9999^10 31 93"
^DIBT(504,2,3)="914^^OFFENSE CHARGED^"".04^;S1"
^DIBT(504,2,3,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(915,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(505,0)="ESP OFFENSE LOOKUP^2921020.1409^^915^^^^"
^DIBT(505,2,1)="915^.031^SECTION^]^;S1"
^DIBT(505,2,1,"IX")="^ESP(915,""C"",^ESP(915,^2"
^DIBT(506,0)="ESP TRAINING^2931022.1229^@^912.5^1221^@^2940314"
^DIBT(506,2,1)="912.5^^ATTENDEE^+"".01^;S1"
^DIBT(506,2,1,"CM")="S Y(1)=$S($D(^ESP(912.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(506,2,2)="912.55^.01^TRAINING DATE^@'^"
^DIBT(506,2,2,912.5)="5"
^DIBT(506,2,2,"ASK")=""
^DIBT(506,2,2,"F")="2931000.99999^10 1 93"
^DIBT(506,2,2,"T")="z^"
^DIBT(507,0)="ESP TRAINING1^2930719.0921^^912.5^^^2931026^"
^DIBT(507,2,1)="912.555^.02^TYPE^^"
^DIBT(507,2,1,912.5)="5"
^DIBT(507,2,1,912.55)="5"
^DIBT(507,2,1,"ASK")=""
^DIBT(507,2,1,"F")="AA@z^AAA"
^DIBT(507,2,1,"T")="z^"
^DIBT(507,2,2)="912.55^.01^TRAINING DATE^^"
^DIBT(507,2,2,912.5)="5"
^DIBT(507,2,2,"ASK")=""
^DIBT(507,2,2,"F")="2931000.99999^10 1"
^DIBT(507,2,2,"T")="z^"
^DIBT(508,0)="ESP TRAINING2^2930719.092^^912.5^^^^"
^DIBT(508,2,1)="912.55^.01^TRAINING DATE^]@^"
^DIBT(508,2,1,912.5)="5"
^DIBT(508,2,1,"ASK")=""
^DIBT(508,2,1,"F")="2931000.99999^10 1 93"
^DIBT(508,2,1,"T")="z^"
^DIBT(508,2,2)="912.555^.01^SUBJECT^+^;S1"
^DIBT(508,2,2,912.5)="5"
^DIBT(508,2,2,912.55)="5"
^DIBT(508,2,2,"ASK")=""
^DIBT(508,2,2,"F")="110.99999^111"
^DIBT(508,2,2,"T")="z^"
^DIBT(509,0)="ESP STATUTE PRINT^2921030.0848^^915^^^2940314^"
^DIBT(509,2,1)="915^.032^PRINT #^@^;S1"
^DIBT(510,0)="ESP TRAINING3^2930719.0922^^912.5^^^^"
^DIBT(510,2,1)="912.5^^ATTENDEE^@'"".01^"
^DIBT(510,2,1,"ASK")=""
^DIBT(510,2,1,"CM")="S Y(1)=$S($D(^ESP(912.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(510,2,1,"F")="AA@z^AAA"
^DIBT(510,2,1,"T")="z^"
^DIBT(510,2,2)="912.55^.01^TRAINING DATE^@'^"
^DIBT(510,2,2,912.5)="5"
^DIBT(510,2,2,"ASK")=""
^DIBT(510,2,2,"F")="2931000.99999^10 1"
^DIBT(510,2,2,"T")="z^"
^DIBT(511,0)="ESP TRAINING4^2930719.0923^^912.5^^^2940314^"
^DIBT(511,2,1)="912.55^.01^TRAINING DATE^^"
^DIBT(511,2,1,912.5)="5"
^DIBT(511,2,1,"ASK")=""
^DIBT(511,2,1,"F")="2931000.99999^10 1"
^DIBT(511,2,1,"T")="z^"
^DIBT(511,2,2)="912.5^^ATTENDEE^"".01^"
^DIBT(511,2,2,"ASK")=""
^DIBT(511,2,2,"CM")="S Y(1)=$S($D(^ESP(912.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(511,2,2,"F")="AA@z^AAA"
^DIBT(511,2,2,"T")="z^"
^DIBT(511,2,3)="912.555^.02^TYPE^^"
^DIBT(511,2,3,912.5)="5"
^DIBT(511,2,3,912.55)="5"
^DIBT(511,2,3,"ASK")=""
^DIBT(511,2,3,"F")="AA@z^AAA"
^DIBT(511,2,3,"T")="z^"
^DIBT(511,2,4)="912.555^.01^SUBJECT^^"
^DIBT(511,2,4,912.5)="5"
^DIBT(511,2,4,912.55)="5"
^DIBT(511,2,4,"ASK")=""
^DIBT(511,2,4,"F")="AA@z^AAA"
^DIBT(511,2,4,"T")="z^"
^DIBT(512,0)="ESP OPEN EVIDENCE RECORDS^3030703.1421^^910.8^^^3030703^"
^DIBT(512,2,0)="^.4014^2^2"
^DIBT(512,2,1,0)="910.8^^RECORD STATUS[""OPEN""^""@B^;L1^^^^^4"
^DIBT(512,2,1,"CM")="S Y(2)=$C(59)_$P($G(^DD(910.8,10,0)),U,3),Y(1)=$S($D(^ESP(910.8,D0,10)):^(10),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))[""OPEN"" I D0>0 S DISX(1)=X"
^DIBT(512,2,1,"F")="0"
^DIBT(512,2,1,"GET")="S Y(2)=$C(59)_$P($G(^DD(910.8,10,0)),U,3),Y(1)=$S($D(^ESP(910.8,D0,10)):^(10),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))[""OPEN"" I D0>0 S DISX(1)=X"
^DIBT(512,2,1,"QCON")="I DISX(1)"
^DIBT(512,2,1,"T")="1"
^DIBT(512,2,1,"TXT")="RECORD STATUS[""""OPEN"""""
^DIBT(512,2,2,0)="910.8^.03^DATE/TIME OBTAINED^^^^^^^1"
^DIBT(512,2,2,"GET")="S DISX(2)=$P($G(^ESP(910.8,D0,0)),U,3)"
^DIBT(512,2,2,"QCON")="I DISX(2)'="""""
^DIBT(512,2,2,"SER")="0.2500^0.2500"
^DIBT(512,2,2,"TXT")="DATE/TIME OBTAINED not null"
^DIBT(512,2,"B",910.8,1)=""
^DIBT(512,2,"B",910.8,2)=""
^DIBT(513,0)="ESP ALL EVIDENCE RECORDS^2931018.1536^@^910.8^1221^@^2940314"
^DIBT(513,2,1)="910.8^.03^DATE/TIME OBTAINED^@^"
^DIBT(513,2,2)="910.8^.01^RECORD NUMBER^^"
^DIBT(513,2,2,"ASK")=""
^DIBT(513,2,2,"F")="93-000z^93-001"
^DIBT(513,2,2,"IX")="^ESP(910.8,""B"",^ESP(910.8,^2"
^DIBT(513,2,2,"T")="z^"
^DIBT(514,0)="ESP WANTS & WARRANTS OPEN^2930111.1035^^913^^^2931206^"
^DIBT(514,2,1)="913^^DETAIN'[""IN""^]""@B^;L1"
^DIBT(514,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(913,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(913,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)'[""IN"" I D0>0 S X(1)=X"
^DIBT(514,2,1,"F")="0"
^DIBT(514,2,1,"T")="1"
^DIBT(514,2,2)="913^^NAME^"".01^"
^DIBT(514,2,2,"CM")="S Y(1)=$S($D(^ESP(913,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(515,0)="ESP WANTS & WARRANTS ALL^2931027.134^@^913^1221^@^2931027"
^DIBT(515,2,1)="913^^NAME^]"".01^"
^DIBT(515,2,1,"CM")="S Y(1)=$S($D(^ESP(913,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(515,2,2)="913^.02^ISSUE DATE^@^"
^DIBT(515,2,2,"ASK")=""
^DIBT(515,2,2,"F")="2921000.99999^10 1 92"
^DIBT(515,2,2,"T")="z^"
^DIBT(516,0)="ESP VEHICLE IDENTIFY^2930707.112^^910.2^^^2940315^"
^DIBT(516,2,1)="910.2^^VEHICLE COLOR^@""1.06^"
^DIBT(516,2,1,"ASK")=""
^DIBT(516,2,1,"CM")="S Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"""") S X=$S('$D(^ESP(910.7,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(516,2,1,"F")="WHITDz^WHITE"
^DIBT(516,2,1,"T")="WHITEZ^WHITEZ"
^DIBT(516,2,2)="910.2^^VEHICLE MAKE^@""1.03^"
^DIBT(516,2,2,"ASK")=""
^DIBT(516,2,2,"CM")="S Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"""") S X=$S('$D(^ESP(910.7,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(516,2,2,"F")="FORCz^FORD"
^DIBT(516,2,2,"T")="FORDZ^FORDZ"
^DIBT(516,2,3)="910.2^^STATE^@""1.02^"
^DIBT(516,2,3,"ASK")=""
^DIBT(516,2,3,"CM")="S Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"""") S X=$S('$D(^DIC(5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(516,2,3,"F")="MARYLANCz^MARYLAND"
^DIBT(516,2,3,"T")="OKLAHOMA^OKLAHOMA"
^DIBT(517,0)="ESP CASE ASSIGNMENT OPEN^2930921.1457^@^912^^@^2940314"
^DIBT(517,2,1)="912^.1^UOR NUMBER^^"
^DIBT(517,2,2)="912^^CASE STATUS=""OPEN""^""@B^;L1"
^DIBT(517,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,.08,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59),1)=""OPEN"" I D0>0 S X(2)=X"
^DIBT(517,2,2,"F")="0"
^DIBT(517,2,2,"T")="1"
^DIBT(517,2,3)="912^^DELETED/REOPENED FLAG=""NONE OF THE ABOVE""^""@B^;L1"
^DIBT(517,2,3,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,5.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""NONE OF THE ABOVE"" I D0>0 S X(3)=X"
^DIBT(517,2,3,"F")="0"
^DIBT(517,2,3,"T")="1"
^DIBT(518,0)="ESP LOCATE VIOLATION^2940331.1431^@^914^1221^@^2940331"
^DIBT(518,2,1)="914^.02^DATE/TIME OF OFFENSE^^"
^DIBT(518,2,1,"ASK")=""
^DIBT(518,2,1,"F")="2921000.99999^10 1 92"
^DIBT(518,2,1,"IX")="^ESP(914,""C"",^ESP(914,^2"
^DIBT(518,2,1,"T")="z^"
^DIBT(518,2,2)="914^^OFFENSE CHARGED^"".04^"
^DIBT(518,2,2,"ASK")=""
^DIBT(518,2,2,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(915,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(518,2,2,"F")="SPEEDINFz^SPEEDING"
^DIBT(518,2,2,"T")="z^"
^DIBT(518,2,3)="914^^OFFENDER^@"".09^"
^DIBT(518,2,3,"ASK")=""
^DIBT(518,2,3,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(518,2,3,"F")="JONES,MICHAEKz^JONES,MICHAEL"
^DIBT(518,2,3,"T")="z^"
^DIBT(518,2,4)="914^^ISSUING OFFICER^@"".06^"
^DIBT(518,2,4,"ASK")=""
^DIBT(518,2,4,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(4)=X"
^DIBT(518,2,4,"F")="WAIBEKz^WAIBEL"
^DIBT(518,2,4,"T")="z^"
^DIBT(519,0)="ESP OFFENSE MATCH^2930209.1012^^912^^^2940315^"
^DIBT(519,2,1)="912^.02^DATE/TIME RECEIVED^@^"
^DIBT(519,2,1,"ASK")=""
^DIBT(519,2,1,"F")="2931000.99999^10 1"
^DIBT(519,2,1,"IX")="^ESP(912,""C"",^ESP(912,^2"
^DIBT(519,2,1,"T")="z^"
^DIBT(519,2,2)="912.01^^CLASSIFICATION CODE^"".01^"
^DIBT(519,2,2,912)="10"
^DIBT(519,2,2,"ASK")=""
^DIBT(519,2,2,"CM")="S Y(1)=$S($D(^ESP(912,D0,10,D1,0)):^(0),1:"""") S X=$S('$D(^ESP(912.7,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(519,2,2,"F")="ASS@z^ASSA"
^DIBT(519,2,2,"T")="z^"
^DIBT(519,2,3)="912.05^^NAME^"".02^"
^DIBT(519,2,3,912)="40"
^DIBT(519,2,3,"ASK")=""
^DIBT(519,2,3,"CM")="S Y(1)=$S($D(^ESP(912,D0,40,D1,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(3)=X"
^DIBT(519,2,3,"F")="JONERz^JONES"
^DIBT(519,2,3,"T")="z^"
^DIBT(519,2,4)="912^^INVESTIGATING OFFICER^@"".06^"
^DIBT(519,2,4,"ASK")=""
^DIBT(519,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$S('$D(^ESP(910,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(4)=X"
^DIBT(519,2,4,"F")="WAIBEKz^WAIBEL"
^DIBT(519,2,4,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:""""),D0=$P(Y(1),U,6) S:'$D(^ESP(910.9,+D0,0)) D0=-1 S Y(101)=$S($D(^ESP(910.9,D0,0)):^(0),1:"""")"
^DIBT(519,2,4,"T")="z^"
^DIBT(519,2,5)="912^.04^LOCATION^^"
^DIBT(519,2,5,"ASK")=""
^DIBT(519,2,5,"F")="23Gz^23H"
^DIBT(519,2,5,"T")="z^"
^DIBT(520,0)="ESP CASE ASSIGNMENT ALL^2930930.083^@^912^5^@^2940224"
^DIBT(520,2,1)="912^.02^DATE/TIME RECEIVED^@]^"
^DIBT(520,2,1,"ASK")=""
^DIBT(520,2,1,"F")="2921000.99999^10 1 92"
^DIBT(520,2,1,"IX")="^ESP(912,""C"",^ESP(912,^2"
^DIBT(520,2,1,"T")="z^"
^DIBT(520,2,2)="912^^DELETED/REOPENED FLAG=""NONE OF THE ABOVE""^""@B^;L1"
^DIBT(520,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,5.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""NONE OF THE ABOVE"" I D0>0 S X(2)=X"
^DIBT(520,2,2,"F")="0"
^DIBT(520,2,2,"T")="1"
^DIBT(521,0)="ESP VIOLATIONS BY OFFICER^2930727.0911^^914^^^2931027^"
^DIBT(521,2,1)="914^^ISSUING OFFICER^@"".06^;S1"
^DIBT(521,2,1,"ASK")=""
^DIBT(521,2,1,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(521,2,1,"F")="WAIBEKz^WAIBEL"
^DIBT(521,2,1,"T")="WAIBELZ^WAIBELZ"
^DIBT(521,2,2)="914^.02^DATE/TIME OF OFFENSE^@^"
^DIBT(521,2,2,"ASK")=""
^DIBT(521,2,2,"F")="2931000.99999^10 1 93"
^DIBT(521,2,2,"IX")="^ESP(914,""C"",^ESP(914,^2"
^DIBT(521,2,2,"T")="z^"
^DIBT(521,2,3)="914^^OFFENSE CHARGED^@"".04^"
^DIBT(521,2,3,"ASK")=""
^DIBT(521,2,3,"CM")="S Y(1)=$S($D(^ESP(914,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(915,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(521,2,3,"F")="RAPDz^RAPE"
^DIBT(521,2,3,"T")="z^"
^DIBT(522,0)="ESP PERSONAL DESCRIPTOR LOOKUP^2930707.1117^^910^^^2940315^"
^DIBT(522,2,1)="910^^RACE^"".09^"
^DIBT(522,2,1,"ASK")=""
^DIBT(522,2,1,"CM")="S Y(1)=$S($D(^ESP(910,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(10,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(522,2,1,"F")="WHITDz^WHITE"
^DIBT(522,2,1,"T")="WHITEZ^WHITEZ"
^DIBT(522,2,2)="910^.08^SEX^^"
^DIBT(522,2,2,"ASK")=""
^DIBT(522,2,2,"F")="Lz^M"
^DIBT(522,2,2,"T")="MALEZ^MALEZ"
^DIBT(522,2,3)="910^3.01^HEIGHT^^"
^DIBT(522,2,3,"ASK")=""
^DIBT(522,2,3,"F")="5-10z^5-11"
^DIBT(522,2,3,"T")="6-02^6-02"
^DIBT(522,2,4)="910^3.02^WEIGHT^^"
^DIBT(522,2,4,"ASK")=""
^DIBT(522,2,4,"F")="174.99999^175"
^DIBT(522,2,4,"T")="220^220"
^DIBT(523,0)="ESP CAR POOL AVAILABILITY LIST^2930706.106^^910.2^^^2940315^"
^DIBT(523,2,1)="910.2^^REGISTRATION TYPE[""VEHICLE""^@""@B^;L1"
^DIBT(523,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(910.2,.04,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59),1)[""VEHICLE"" I D0>0 S X(1)=X"
^DIBT(523,2,1,"F")="0"
^DIBT(523,2,1,"T")="1"
^DIBT(523,2,2)="910.2^^OWNER NAME:ZIP^@""^;S1"
^DIBT(523,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,5) S D0=I(0,0) I D0>0 S X(2)=X"
^DIBT(523,2,2,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^ESP(910,+D0,0)) D0=-1 S Y(101)=$S($D(^ESP(910,D0,1)):^(1),1:"""")"
^DIBT(523,2,3)="910.2^^OWNER NAME^@"".03^"
^DIBT(523,2,3,"CM")="S Y(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(524,0)="ESP CAR POOL ASSIGNMENTS^2930630.1518^^910.2^^^2940315^"
^DIBT(524,2,1)="910.2^^CAR POOL MEMBER[""YES""^""@B^;L1"
^DIBT(524,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(910.2,1.09,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_"":"",2),$C(59),1)[""YES"" I D0>0 S X(1)=X"
^DIBT(524,2,1,"F")="0"
^DIBT(524,2,1,"T")="1"
^DIBT(524,2,2)="910.2^1.08^ASSIGNED PARKING SPACE^@^"
^DIBT(524,2,2,"IX")="^ESP(910.2,""K"",^ESP(910.2,^2"
^DIBT(524,2,3)="910.2^^OWNER NAME^@"".03^"
^DIBT(524,2,3,"CM")="S Y(1)=$S($D(^ESP(910.2,D0,0)):^(0),1:"""") S X=$S('$D(^ESP(910,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(525,0)="ESP MISSING PATIENT REPORT-ALL^2930916.1453^@^912^0^@^2940315"
^DIBT(525,2,1)="912.01^^CLASSIFICATION CODE^@"".01^"
^DIBT(525,2,1,912)="10"
^DIBT(525,2,1,"CM")="S Y(1)=$S($D(^ESP(912,D0,10,D1,0)):^(0),1:"""") S X=$S('$D(^ESP(912.7,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(525,2,1,"F")="NOMz^NON"
^DIBT(525,2,1,"T")="NONZ^NONZ"
^DIBT(525,2,2)="912.01^^TYPE^@"".02^"
^DIBT(525,2,2,912)="10"
^DIBT(525,2,2,"CM")="S Y(1)=$S($D(^ESP(912,D0,10,D1,0)):^(0),1:"""") S X=$S('$D(^ESP(912.8,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(525,2,2,"F")="MISSINFz^MISSING"
^DIBT(525,2,2,"T")="MISSINGZ^MISSINGZ"
^DIBT(525,2,3)="912^.03^DATE/TIME OF OFFENSE^@^"
^DIBT(525,2,3,"ASK")=""
^DIBT(525,2,3,"F")="2930100.99999^1 1 93"
^DIBT(525,2,3,"T")="z^"
^DIBT(525,2,4)="912^^DELETED/REOPENED FLAG'=""REOPENED""^""@B^;L1"
^DIBT(525,2,4,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,5.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)'=""REOPENED"" I D0>0 S X(4)=X"
^DIBT(525,2,4,"F")="0"
^DIBT(525,2,4,"T")="1"
^DIBT(525,"%D",0)="^^4^4^2930916^"
^DIBT(525,"%D",1,0)="This sort template allows VA Police staff to generate a report for all"
^DIBT(525,"%D",2,0)="Missing Patient Reaction investigations.  The template allows them to"
^DIBT(525,"%D",3,0)="select a date range based on the Date/Time of Offense field within the"
^DIBT(525,"%D",4,0)="Uniform Offense Report."
^DIBT(526,0)="ESP MISSING PATIENT REPORT-OPN^2930916.1456^@^912^0^@^2940315"
^DIBT(526,2,1)="912.01^^CLASSIFICATION CODE^@"".01^"
^DIBT(526,2,1,912)="10"
^DIBT(526,2,1,"CM")="S Y(1)=$S($D(^ESP(912,D0,10,D1,0)):^(0),1:"""") S X=$S('$D(^ESP(912.7,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(1)=X"
^DIBT(526,2,1,"F")="NOMz^NON"
^DIBT(526,2,1,"T")="NONZ^NONZ"
^DIBT(526,2,2)="912.01^^TYPE^@"".02^"
^DIBT(526,2,2,912)="10"
^DIBT(526,2,2,"CM")="S Y(1)=$S($D(^ESP(912,D0,10,D1,0)):^(0),1:"""") S X=$S('$D(^ESP(912.8,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D1>0 S X(2)=X"
^DIBT(526,2,2,"F")="MISSINFz^MISSING"
^DIBT(526,2,2,"T")="MISSINGZ^MISSINGZ"
^DIBT(526,2,3)="912^^DELETED/REOPENED FLAG'=""REOPENED""^""@B^;L1"
^DIBT(526,2,3,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,5.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)'=""REOPENED"" I D0>0 S X(3)=X"
^DIBT(526,2,3,"F")="0"
^DIBT(526,2,3,"T")="1"
^DIBT(526,2,4)="912^^CASE STATUS=""OPEN""^""@B^;L1"
^DIBT(526,2,4,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,.08,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59),1)=""OPEN"" I D0>0 S X(4)=X"
^DIBT(526,2,4,"F")="0"
^DIBT(526,2,4,"T")="1"
^DIBT(526,"%D",0)="^^2^2^2930916^"
^DIBT(526,"%D",1,0)="This sort template allows VA Police staff to generate a report listing"
^DIBT(526,"%D",2,0)="all Missing Patient Reaction investigations with a Case Status of 'Open'."
^DIBT(527,0)="ESP DAILY SHIFT JOURNAL^2960404.0814^^916^^^2960417"
^DIBT(527,2,0)="^.4014^2^2"
^DIBT(527,2,1,0)="916^.01^DATE^^^^^^^1"
^DIBT(527,2,1,"ASK")="1"
^DIBT(527,2,1,"F")="2960402.99999^T-1^4/3/96"
^DIBT(527,2,1,"GET")="S DISX(1)=$P($G(^ESP(916,D0,0)),U,1)"
^DIBT(527,2,1,"IX")="^ESP(916,""B"",^ESP(916,^2"
^DIBT(527,2,1,"QCON")="I DISX(1)'="""""
^DIBT(527,2,1,"SER")="0^0"
^DIBT(527,2,1,"T")="2960403^T-1^4/3/96"
^DIBT(527,2,1,"TXT")="DATE not null"
^DIBT(527,2,2,0)="916.05^.01^TIME^^;TXT^^^^^4"
^DIBT(527,2,2,1,0)="^.40141^1^1"
^DIBT(527,2,2,1,1,0)="916^4"
^DIBT(527,2,2,1,"B",916,1)=""
^DIBT(527,2,2,"ASK")="1"
^DIBT(527,2,2,"F")=" 0000z^0001"
^DIBT(527,2,2,"GET")="S DISX(2)=$P($G(^ESP(916,D0,4,D1,0)),U,1) S:DISX(2)]"""" DISX(2)="" ""_DISX(2)"
^DIBT(527,2,2,"QCON")="I DISX(2)'="""""
^DIBT(527,2,2,"SRTTXT")="SORT"
^DIBT(527,2,2,"T")=" 2359^2359"
^DIBT(527,2,2,"TXT")="TIME not null"
^DIBT(527,2,"B",916,1)=""
^DIBT(527,2,"B",916.05,2)=""
^DIBT(527,"%D",0)="^^1^1^2960404^"
^DIBT(527,"%D",1,0)="This template allows the shift journal to be sorted by time."
^DIBT(531,0)="QAC SERV RPT^2950110.1325^@^745.1^1053^@^2950530"
^DIBT(531,2,0)="^.4014^2^2"
^DIBT(531,2,1,0)="745.1^1^DATE OF CONTACT^'^^^^^^1"
^DIBT(531,2,1,"ASK")="1"
^DIBT(531,2,1,"GET")="S DISX(1)=$P($G(^QA(745.1,D0,0)),U,2)"
^DIBT(531,2,1,"IX")="^QA(745.1,""D"",^QA(745.1,^2"
^DIBT(531,2,1,"QCON")="I DISX(1)'="""""
^DIBT(531,2,1,"SER")="0.0000^0.0000"
^DIBT(531,2,1,"TXT")="DATE OF CONTACT not null"
^DIBT(531,2,2,0)="745.1211^^SERV/SECT INVOLVED^+"".01^;S;C20;""""^^^^^7"
^DIBT(531,2,2,1,0)="^.40141^2^2"
^DIBT(531,2,2,1,1,0)="745.1^3"
^DIBT(531,2,2,1,2,0)="745.121^1"
^DIBT(531,2,2,1,"B",745.1,1)=""
^DIBT(531,2,2,1,"B",745.121,2)=""
^DIBT(531,2,2,"ASK")="1"
^DIBT(531,2,2,"CM")="S Y(1)=$S($D(^QA(745.1,D0,3,D1,1,D2,0)):^(0),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D2>0 S DISX(2)=X"
^DIBT(531,2,2,"GET")="S Y(1)=$S($D(^QA(745.1,D0,3,D1,1,D2,0)):^(0),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D2>0 S DISX(2)=X"
^DIBT(531,2,2,"QCON")="I DISX(2)'="""""
^DIBT(531,2,2,"TXT")="SERV/SECT INVOLVED not null"
^DIBT(531,2,"B",745.1,1)=""
^DIBT(531,2,"B",745.1211,2)=""
^DIBT(531,"%D",0)="^^3^3^2950127^"
^DIBT(531,"%D",1,0)="This template is used by the option Service/Section Contact Totals."
^DIBT(531,"%D",2,0)="It sorts by the fields Date of Contact, Issue Codes and Serv/Sect"
^DIBT(531,"%D",3,0)="Involved."
^DIBT(531,"DIPT")="QAC SERV RPT"
^DIBT(533,0)="SOWKOPC^2911218.1509^^650^^^^"
^DIBT(533,2,1)="650^^PATIENT NAME^""7^"
^DIBT(533,2,1,"CM")="S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(533,2,2)="650^^CLOSE DATE=""""^@""@B^;L1"
^DIBT(533,2,2,"CM")="S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18)="""" I D0>0 S X(2)=X"
^DIBT(533,2,2,"F")="0"
^DIBT(533,2,2,"T")="1"
^DIBT(533,2,3)="650^^CDC SECTION^@""3.1^"
^DIBT(533,2,3,"CM")="S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$S('$D(^SOWK(651,+$P(Y(1),U,13),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(533,2,4)="650^^3.1:SERVICE TYPE=""R""^""@B^;L1"
^DIBT(533,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(101),U,6)=""R"" S D0=I(0,0) I D0>0 S X(4)=X"
^DIBT(533,2,4,"F")="0"
^DIBT(533,2,4,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:""""),D0=$P(Y(1),U,13) S:'$D(^SOWK(651,+D0,0)) D0=-1 S Y(101)=$S($D(^SOWK(651,D0,0)):^(0),1:"""")"
^DIBT(533,2,4,"T")="1"
^DIBT(534,0)="SOWKCLC^2911218.1511^^650^^^^"
^DIBT(534,2,1)="650^^PATIENT NAME^""7^"
^DIBT(534,2,1,"CM")="S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(534,2,2)="650^^CLOSE DATE'=""""^""@B^;L1;L1"
^DIBT(534,2,2,"CM")="S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18)'="""" I D0>0 S X(2)=X"
^DIBT(534,2,2,"F")="0"
^DIBT(534,2,2,"T")="1"
^DIBT(534,2,3)="650^^CDC SECTION^@""3.1^"
^DIBT(534,2,3,"CM")="S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$S('$D(^SOWK(651,+$P(Y(1),U,13),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(534,2,4)="650^^3.1:SERVICE TYPE=""R""^""@B^;L1"
^DIBT(534,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(101),U,6)=""R"" S D0=I(0,0) I D0>0 S X(4)=X"
^DIBT(534,2,4,"F")="0"
^DIBT(534,2,4,"OVF0",9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:""""),D0=$P(Y(1),U,13) S:'$D(^SOWK(651,+D0,0)) D0=-1 S Y(101)=$S($D(^SOWK(651,D0,0)):^(0),1:"""")"
^DIBT(534,2,4,"T")="1"
^DIBT(535,0)="SOWKHIFS^2910813.1315^^655^^^^"
^DIBT(535,2,1)="655^^NAME^"".01^"
^DIBT(535,2,1,"CM")="S Y(1)=$S($D(^SOWK(655,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(535,2,2)="655^7^FALSE HIGH-RISK^@^"
^DIBT(536,0)="SOWK CITY/HOMELESS^2920128.1308^^656^^^^"
^DIBT(536,2,1)="656^2^CITY^@^"
^DIBT(536,2,1,"F")="BIRMINGHALz^BIRMINGHAM"
^DIBT(536,2,1,"IX")="^SOWK(656,""E"",^SOWK(656,^2"
^DIBT(536,2,1,"T")="BIRMINGHAMZ^BIRMINGHAMZ"
^DIBT(536,2,2)="656^15^SPECIAL POPULATION^@^"
^DIBT(536,2,2,"F")="HOMELESRz^HOMELESS"
^DIBT(536,2,2,"T")="HOMELESSZ^HOMELESSZ"
^DIBT(537,0)="RMPR PRINT ITEM^2910221.091^^661^^^^"
^DIBT(537,2,0)="^.4014^1^1"
^DIBT(537,2,1,0)="661^^.01:.05^@""^^^^^^4"
^DIBT(537,2,1,3,0)="^.401419^1^1"
^DIBT(537,2,1,3,1,0)="OVF0^9.2"
^DIBT(537,2,1,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(101)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DIBT(537,2,1,3,"B","OVF0",1)=""
^DIBT(537,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(537,2,1,"GET")="X DPP(1,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(537,2,1,"QCON")="I DISX(1)'="""""
^DIBT(537,2,1,"TXT")=".01:.05 not null"
^DIBT(537,2,"B",661,1)=""
^DIBT(537,"%D",0)="^^1^1^2950524^"
^DIBT(537,"%D",1,0)="Sorts Prosthetics Item file by short description."
^DIBT(538,0)="RMPR SUSPENSE CLOSE^2910320.1254^^668^^^3000821^"
^DIBT(538,2,0)="^.4014^2^2"
^DIBT(538,2,1,0)="668^5^COMPLETION DATE^'^^^^^^1"
^DIBT(538,2,1,"ASK")="1"
^DIBT(538,2,1,"F")="3000200.999999^0201^Feb 1,2000"
^DIBT(538,2,1,"GET")="S DISX(1)=$P($G(^RMPR(668,D0,0)),U,5)"
^DIBT(538,2,1,"QCON")="I (DISX(1)]]3000200.999999)&(DISX(1)']]3000220.24)"
^DIBT(538,2,1,"SER")="1.0000^1.0000"
^DIBT(538,2,1,"T")="3000220.24^0220@2400^Feb 20,2000@24:00"
^DIBT(538,2,1,"TXT")="COMPLETION DATE from Feb 1,2000 to Feb 20,2000@24:00"
^DIBT(538,2,2,0)="668^^VETERAN^""1^^^^^^4"
^DIBT(538,2,2,"CM")="S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(538,2,2,"GET")="S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(538,2,2,"IX")="^RMPR(668,""C"",^RMPR(668,^2"
^DIBT(538,2,2,"PTRIX")="^DPT(""B"","
^DIBT(538,2,2,"QCON")="I DISX(2)'="""""
^DIBT(538,2,2,"SER")="0.0278^0.0278"
^DIBT(538,2,2,"TXT")="VETERAN not null"
^DIBT(538,2,"B",668,1)=""
^DIBT(538,2,"B",668,2)=""
^DIBT(538,"%D",0)="^^1^1^2940829^"
^DIBT(538,"%D",1,0)="Sorts file 668 by completion date and veteran."
^DIBT(539,0)="RMPR CLOSED VISITS^2930429.1427^^665.1^^^^"
^DIBT(539,2,0)="^.4014^2^2"
^DIBT(539,2,1,0)="665.1^4^DATE VISIT CLOSED^@^^^^^^1"
^DIBT(539,2,1,"ASK")="1"
^DIBT(539,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665.1,D0,0)),U,5)"
^DIBT(539,2,1,"IX")="^RMPR(665.1,""C"",^RMPR(665.1,^2"
^DIBT(539,2,1,"QCON")="I DISX(1)'="""""
^DIBT(539,2,1,"SER")="2.0000^0.6667"
^DIBT(539,2,1,"TXT")="DATE VISIT CLOSED not null"
^DIBT(539,2,2,0)="665.1^^PATIENT NAME/INSTITUTION^@""1^^^^^^4"
^DIBT(539,2,2,3,0)="^.401419^2^2"
^DIBT(539,2,2,3,1,0)="OVF0^9.2"
^DIBT(539,2,2,3,1,"OVF0")="S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""")"
^DIBT(539,2,2,3,2,0)="OVF1^9.2"
^DIBT(539,2,2,3,2,"OVF0")="S X=$P(Y(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="","" I D0>0 S X(2)=X"
^DIBT(539,2,2,3,"B","OVF0",1)=""
^DIBT(539,2,2,3,"B","OVF1",2)=""
^DIBT(539,2,2,"CM")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(539,2,2,"GET")="X DPP(2,""OVF0"",9.2) X DPP(2,""OVF1"",9.2) I $G(X(2))]"""" S DISX(2)=X(2)"
^DIBT(539,2,2,"QCON")="I DISX(2)'="""""
^DIBT(539,2,2,"TXT")="PATIENT NAME/INSTITUTION not null"
^DIBT(539,2,"B",665.1,1)=""
^DIBT(539,2,"B",665.1,2)=""
^DIBT(539,"%D",0)="^^1^1^2940829^"
^DIBT(539,"%D",1,0)="Sorts file 665.1 by date visit closed and patient name/institution."
^DIBT(540,0)="RMPR OPEN VISITS^2930914.1528^^665.1^^^2951113^"
^DIBT(540,2,0)="^.4014^3^3"
^DIBT(540,2,1,0)="665.1^^DATE VISIT CLOSED=""""^@""@B^;L1^^^^^4"
^DIBT(540,2,1,"CM")="S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""" I D0>0 S DISX(1)=X"
^DIBT(540,2,1,"F")="0"
^DIBT(540,2,1,"GET")="S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""" I D0>0 S DISX(1)=X"
^DIBT(540,2,1,"QCON")="I DISX(1)"
^DIBT(540,2,1,"T")="1"
^DIBT(540,2,1,"TXT")="DATE VISIT CLOSED="""""""""
^DIBT(540,2,2,0)="665.1^.01^DATE VISIT OPENED^@^^^^^^1"
^DIBT(540,2,2,"ASK")="1"
^DIBT(540,2,2,"F")="2951112.99999^T^11/13/95"
^DIBT(540,2,2,"GET")="S DISX(2)=$P($G(^RMPR(665.1,D0,0)),U,1)"
^DIBT(540,2,2,"IX")="^RMPR(665.1,""B"",^RMPR(665.1,^2"
^DIBT(540,2,2,"QCON")="I (DISX(2)]]2951112.99999)&(DISX(2)']]2951113.2359)"
^DIBT(540,2,2,"SER")="2.0000^0.6667"
^DIBT(540,2,2,"T")="2951113.2359^T@23:59^11/13/95@23:59"
^DIBT(540,2,2,"TXT")="DATE VISIT OPENED from 11/13/95 to 11/13/95@23:59"
^DIBT(540,2,3,0)="665.1^^PATIENT NAME/INSTITUTION^@""1^^^^^^4"
^DIBT(540,2,3,3,0)="^.401419^2^2"
^DIBT(540,2,3,3,1,0)="OVF0^9.2"
^DIBT(540,2,3,3,1,"OVF0")="S Y(1)=$S($D(^RMPR(665.1,D0,0)):^(0),1:"""")"
^DIBT(540,2,3,3,2,0)="OVF1^9.2"
^DIBT(540,2,3,3,2,"OVF0")="S X=$P(Y(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="","" I D0>0 S X(3)=X"
^DIBT(540,2,3,3,"B","OVF0",1)=""
^DIBT(540,2,3,3,"B","OVF1",2)=""
^DIBT(540,2,3,"CM")="X DPP(3,""OVF0"",9.2) X DPP(3,""OVF1"",9.2) I $G(X(3))]"""" S DISX(3)=X(3)"
^DIBT(540,2,3,"GET")="X DPP(3,""OVF0"",9.2) X DPP(3,""OVF1"",9.2) I $G(X(3))]"""" S DISX(3)=X(3)"
^DIBT(540,2,3,"QCON")="I DISX(3)'="""""
^DIBT(540,2,3,"TXT")="PATIENT NAME/INSTITUTION not null"
^DIBT(540,2,"B",665.1,1)=""
^DIBT(540,2,"B",665.1,2)=""
^DIBT(540,2,"B",665.1,3)=""
^DIBT(540,"%D",0)="^^1^1^2940829^"
^DIBT(540,"%D",1,0)="Sorts file 665.1 by date visit closed and date visit opened."
^DIBT(541,0)="RMPR FL 10-90 ADP^2940106.1413^^665.4^^^^"
^DIBT(541,2,1)="665.4^^LETTER TYPE^@""1^"
^DIBT(541,2,1,"CM")="S Y(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:"""") S X=$S('$D(^RMPR(665.2,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(541,2,1,"F")="FL 10-90 ADOz^FL 10-90 ADP"
^DIBT(541,2,1,"T")="FL 10-90 ADP^FL 10-90 ADP"
^DIBT(541,2,2)="665.4^0^NUMBER^^"
^DIBT(541,2,2,"ASK")=""
^DIBT(541,2,2,"F")="2.99999^3"
^DIBT(541,2,2,"T")="4^4"
^DIBT(541,"%D",0)="^^1^1^2940829^"
^DIBT(541,"%D",1,0)="Sorts file 665.4 by letter type."
^DIBT(542,0)="RMPR NEED APP BY FORM TYPE^2940930.1106^^664^^^^"
^DIBT(542,2,1)="664^32^READY FOR APPROVAL?^@^"
^DIBT(542,2,1,"IX")="^RMPR(664,""F"",^RMPR(664,^2"
^DIBT(542,2,2)="664^15^FORM TYPE^@^"
^DIBT(542,2,2,"F")="2913.99999^2914"
^DIBT(542,2,2,"T")="2914^2914"
^DIBT(543,0)="RMPR TECH PAT^2950227.1614^^664.1^^^^"
^DIBT(543,2,0)="^.4014^2^2"
^DIBT(543,2,1,0)="664.1^^PATIENT^"".02^^^^^^4"
^DIBT(543,2,1,3,0)="^.401419^1^1"
^DIBT(543,2,1,3,1,0)="OVF0^9.2"
^DIBT(543,2,1,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^RMPR(665,+D0,0)) D0=-1 S Y(101)=$S($D(^RMPR(665,D0,0)):^(0),1:"""")"
^DIBT(543,2,1,3,"B","OVF0",1)=""
^DIBT(543,2,1,"ASK")="1"
^DIBT(543,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(543,2,1,"GET")="X DPP(1,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(543,2,1,"QCON")="I DISX(1)'="""""
^DIBT(543,2,1,"TXT")="PATIENT not null"
^DIBT(543,2,2,0)="664.1^^TECHNICIAN^""15^^^^^^4"
^DIBT(543,2,2,"ASK")="1"
^DIBT(543,2,2,"CM")="S Y(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,16),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(543,2,2,"GET")="S Y(1)=$S($D(^RMPR(664.1,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,16),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(543,2,2,"QCON")="I DISX(2)'="""""
^DIBT(543,2,2,"TXT")="TECHNICIAN not null"
^DIBT(543,2,"B",664.1,1)=""
^DIBT(543,2,"B",664.1,2)=""
^DIBT(544,0)="RMPR OPEN TRANS^2950814.115^^664^^^^"
^DIBT(544,2,0)="^.4014^3^3"
^DIBT(544,2,1,0)="664^8^CLOSE OUT DATE^^^^^^^1"
^DIBT(544,2,1,"F")="?z^@"
^DIBT(544,2,1,"GET")="S DISX(1)=$P($G(^RMPR(664,D0,0)),U,8)"
^DIBT(544,2,1,"QCON")="I DISX(1)="""""
^DIBT(544,2,1,"SER")="0.3636^0.3636"
^DIBT(544,2,1,"T")="@^@"
^DIBT(544,2,1,"TXT")="CLOSE OUT DATE is null"
^DIBT(544,2,2,0)="664^^STATION NAME^""18^^^^^^7"
^DIBT(544,2,2,"ASK")="1"
^DIBT(544,2,2,"CM")="S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,14),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(544,2,2,"F")="@z^A"
^DIBT(544,2,2,"GET")="S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,14),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(544,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""V"")"
^DIBT(544,2,2,"T")="V^V"
^DIBT(544,2,2,"TXT")="STATION NAME from A to V"
^DIBT(544,2,3,0)="664^^INITIATOR^""10^^^^^^4"
^DIBT(544,2,3,"CM")="S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(544,2,3,"GET")="S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(544,2,3,"QCON")="I DISX(3)'="""""
^DIBT(544,2,3,"TXT")="INITIATOR not null"
^DIBT(544,2,"B",664,1)=""
^DIBT(544,2,"B",664,2)=""
^DIBT(544,2,"B",664,3)=""
^DIBT(545,0)="QAO QAI POSSIBLE INCIDENTS^2910814.1149^@^741^1866^@^2920108"
^DIBT(545,2,1)="741^^SCREEN^@""3^"
^DIBT(545,2,1,"CM")="S Y(1)=$S($D(^QA(741,D0,""SCRN"")):^(""SCRN""),1:"""") S X=$S('$D(^QA(741.1,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(545,2,1,"F")="108.99999^109"
^DIBT(545,2,1,"T")="109^109"
^DIBT(545,2,2)="741^1^DATE^^"
^DIBT(545,2,2,"ASK")=""
^DIBT(545,2,2,"F")="2910812.99999^T-1"
^DIBT(545,2,2,"IX")="^QA(741,""C"",^QA(741,^2"
^DIBT(545,2,2,"T")="2910814.9999^T"
^DIBT(545,2,3)="741^^QA PATIENT^"".01^"
^DIBT(545,2,3,"CM")="S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(546,0)="ABSV ORGANIZATION DETAIL LIST^2930315.0939^^503335^^^2980402^"
^DIBT(546,2,0)="^.4014^3^3"
^DIBT(546,2,1,0)="503335^4^MONTH/YEAR^'^^^^^^1"
^DIBT(546,2,1,"ASK")="1"
^DIBT(546,2,1,"F")="2980299.99999^2980300^Mar 1998"
^DIBT(546,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(546,2,1,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(546,2,1,"QCON")="I DISX(1)=2980300"
^DIBT(546,2,1,"SER")="100.0000^1.0000"
^DIBT(546,2,1,"T")="2980300^2980300^Mar 1998"
^DIBT(546,2,1,"TXT")="MONTH/YEAR equals Mar 1998"
^DIBT(546,2,2,0)="503335^1.15^ORGANIZATION NAME^#+^^^^^^4"
^DIBT(546,2,2,"GET")="X ^DD(503335,1.15,9.2) S Y(503335,1.15,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.15,101),U,2) S D0=Y(503335,1.15,80) S DISX(2)=X"
^DIBT(546,2,2,"QCON")="I DISX(2)'="""""
^DIBT(546,2,2,"SER")="0.0000^0.0000"
^DIBT(546,2,2,"TXT")="ORGANIZATION NAME not null"
^DIBT(546,2,3,0)="503335^^NAME^"".01^;S^^^^^4"
^DIBT(546,2,3,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(546,2,3,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(546,2,3,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(546,2,3,"PTRIX")="^ABS(503330,""B"","
^DIBT(546,2,3,"QCON")="I DISX(3)'="""""
^DIBT(546,2,3,"SER")="0.0000^0.0000"
^DIBT(546,2,3,"TXT")="NAME not null"
^DIBT(546,2,"B",503335,1)=""
^DIBT(546,2,"B",503335,2)=""
^DIBT(546,2,"B",503335,3)=""
^DIBT(547,0)="ABSV SERVICE LIST^2930311.1545^^503335^^^2980402^"
^DIBT(547,2,0)="^.4014^3^3"
^DIBT(547,2,1,0)="503335^4^MONTH/YEAR^@^^^^^^1"
^DIBT(547,2,1,"ASK")="1"
^DIBT(547,2,1,"F")="2980299.99999^0398^Mar 1998"
^DIBT(547,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(547,2,1,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(547,2,1,"QCON")="I DISX(1)=2980300"
^DIBT(547,2,1,"T")="2980300^0398^Mar 1998"
^DIBT(547,2,1,"TXT")="MONTH/YEAR equals Mar 1998"
^DIBT(547,2,2,0)="503335^^(INTERNAL(SERVICE))^@#+""^^^^^^4"
^DIBT(547,2,2,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X I D0>0 S DISX(2)=X"
^DIBT(547,2,2,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X I D0>0 S DISX(2)=X"
^DIBT(547,2,2,"QCON")="I DISX(2)'="""""
^DIBT(547,2,2,"TXT")="(INTERNAL(SERVICE)) not null"
^DIBT(547,2,3,0)="503335^^NAME^"".01^^^^^^4"
^DIBT(547,2,3,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(547,2,3,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(547,2,3,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(547,2,3,"PTRIX")="^ABS(503330,""B"","
^DIBT(547,2,3,"QCON")="I DISX(3)'="""""
^DIBT(547,2,3,"TXT")="NAME not null"
^DIBT(547,2,"B",503335,1)=""
^DIBT(547,2,"B",503335,2)=""
^DIBT(547,2,"B",503335,3)=""
^DIBT(548,0)="ABSV BATCH LIST^2930208.1055^^503335^^^2980422^"
^DIBT(548,2,0)="^.4014^2^2"
^DIBT(548,2,1,0)="503335^1.9^TRANSMISSION STATUS^+^;S2^^^^^3"
^DIBT(548,2,1,"ASK")="1"
^DIBT(548,2,1,"F")=".99999^READY FOR TRANSMISSION^1 (READY FOR TRANSMISSION)"
^DIBT(548,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,6)"
^DIBT(548,2,1,"IX")="^ABS(503335,""AF"",^ABS(503335,^2"
^DIBT(548,2,1,"QCON")="I DISX(1)=1"
^DIBT(548,2,1,"SER")="100.0000^1.0000"
^DIBT(548,2,1,"T")="1^READY FOR TRANSMISSION^1 (READY FOR TRANSMISSION)"
^DIBT(548,2,1,"TXT")="TRANSMISSION STATUS equals 1 (READY FOR TRANSMISSION)"
^DIBT(548,2,2,0)="503335^^NAME^"".01^^^^^^4"
^DIBT(548,2,2,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(548,2,2,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(548,2,2,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(548,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(548,2,2,"QCON")="I DISX(2)'="""""
^DIBT(548,2,2,"SER")="0.0000^0.0000"
^DIBT(548,2,2,"TXT")="NAME not null"
^DIBT(548,2,"B",503335,1)=""
^DIBT(548,2,"B",503335,2)=""
^DIBT(549,0)="ABSV TRANSMIT^2930311.1532^^503335^^^2980406^"
^DIBT(549,2,0)="^.4014^2^2"
^DIBT(549,2,1,0)="503335^1.9^TRANSMISSION STATUS^]@^^^^^^3"
^DIBT(549,2,1,"F")=".99999^1"
^DIBT(549,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,6)"
^DIBT(549,2,1,"IX")="^ABS(503335,""AF"",^ABS(503335,^2"
^DIBT(549,2,1,"QCON")="I DISX(1)=1"
^DIBT(549,2,1,"SER")="100.0000^1.0000"
^DIBT(549,2,1,"T")="1^1"
^DIBT(549,2,1,"TXT")="TRANSMISSION STATUS equals 1"
^DIBT(549,2,2,0)="503335^^NAME^@"".01^^^^^^4"
^DIBT(549,2,2,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(549,2,2,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(549,2,2,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(549,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(549,2,2,"QCON")="I DISX(2)'="""""
^DIBT(549,2,2,"SER")="0.0000^0.0000"
^DIBT(549,2,2,"TXT")="NAME not null"
^DIBT(549,2,"B",503335,1)=""
^DIBT(549,2,"B",503335,2)=""
^DIBT(550,0)="ABSV ERROR LIST^2930311.153^^503335^^^2980406^"
^DIBT(550,2,0)="^.4014^2^2"
^DIBT(550,2,1,0)="503335^1.9^TRANSMISSION STATUS^]^^^^^^3"
^DIBT(550,2,1,"F")="1.99999^2"
^DIBT(550,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,6)"
^DIBT(550,2,1,"IX")="^ABS(503335,""AF"",^ABS(503335,^2"
^DIBT(550,2,1,"QCON")="I DISX(1)=2"
^DIBT(550,2,1,"SER")="100.0000^1.0000"
^DIBT(550,2,1,"T")="2^2"
^DIBT(550,2,1,"TXT")="TRANSMISSION STATUS equals 2"
^DIBT(550,2,2,0)="503335^^NAME^"".01^^^^^^4"
^DIBT(550,2,2,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(550,2,2,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(550,2,2,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(550,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(550,2,2,"QCON")="I DISX(2)'="""""
^DIBT(550,2,2,"SER")="0.0000^0.0000"
^DIBT(550,2,2,"TXT")="NAME not null"
^DIBT(550,2,"B",503335,1)=""
^DIBT(550,2,"B",503335,2)=""
^DIBT(551,0)="ABSV REVIEW DAILY ENTRIES^2940606.1522^^503331^^^2950926^"
^DIBT(551,2,0)="^.4014^3^3"
^DIBT(551,2,1,0)="503331^7^REVIEW DAILY ENTRY LIST?^@^^^^^^3"
^DIBT(551,2,1,"GET")="S DISX(1)=$P($G(^ABS(503331,D0,0)),U,9)"
^DIBT(551,2,1,"IX")="^ABS(503331,""AH"",^ABS(503331,^2"
^DIBT(551,2,1,"QCON")="I DISX(1)'="""""
^DIBT(551,2,1,"SER")="0.9802^0.9802"
^DIBT(551,2,1,"TXT")="REVIEW DAILY ENTRY LIST? not null"
^DIBT(551,2,2,0)="503331^^NAME^"".01^^^^^^4"
^DIBT(551,2,2,"CM")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(551,2,2,"GET")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(551,2,2,"IX")="^ABS(503331,""B"",^ABS(503331,^2"
^DIBT(551,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(551,2,2,"QCON")="I DISX(2)'="""""
^DIBT(551,2,2,"SER")="0.0000^0.0000"
^DIBT(551,2,2,"TXT")="NAME not null"
^DIBT(551,2,3,0)="503331^2^DATE WORKED^^^^^^^1"
^DIBT(551,2,3,"ASK")="1"
^DIBT(551,2,3,"F")="2950800.99999^2950801^8/1/95"
^DIBT(551,2,3,"GET")="S DISX(3)=$P($G(^ABS(503331,D0,0)),U,3)"
^DIBT(551,2,3,"IX")="^ABS(503331,""AD"",^ABS(503331,^2"
^DIBT(551,2,3,"QCON")="I (DISX(3)]]2950800.99999)&(DISX(3)']]2950915)"
^DIBT(551,2,3,"SER")="19.2000^0.9505"
^DIBT(551,2,3,"T")="2950915^2950915^9/15/95"
^DIBT(551,2,3,"TXT")="DATE WORKED from 8/1/95 to 9/15/95"
^DIBT(551,2,"B",503331,1)=""
^DIBT(551,2,"B",503331,2)=""
^DIBT(551,2,"B",503331,3)=""
^DIBT(552,0)="ABSV ORGANIZATION SUMMARY^2930311.1614^^503335^^^2971202^"
^DIBT(552,2,0)="^.4014^3^3"
^DIBT(552,2,1,0)="503335^4^MONTH/YEAR^]'^^^^^^1"
^DIBT(552,2,1,"ASK")="1"
^DIBT(552,2,1,"F")="2971099.99999^11/97^11/0/97"
^DIBT(552,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(552,2,1,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(552,2,1,"QCON")="I DISX(1)=2971100"
^DIBT(552,2,1,"SER")="100.0000^1.0000"
^DIBT(552,2,1,"T")="2971100^11/97^11/0/97"
^DIBT(552,2,1,"TXT")="MONTH/YEAR equals 11/0/97"
^DIBT(552,2,2,0)="503335^1.15^ORGANIZATION NAME^+^;S3^^^^^4"
^DIBT(552,2,2,"GET")="X ^DD(503335,1.15,9.2) S Y(503335,1.15,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.15,101),U,2) S D0=Y(503335,1.15,80) S DISX(2)=X"
^DIBT(552,2,2,"QCON")="I DISX(2)'="""""
^DIBT(552,2,2,"SER")="0.0000^0.0000"
^DIBT(552,2,2,"TXT")="ORGANIZATION NAME not null"
^DIBT(552,2,3,0)="503335^4^MONTH/YEAR^+^;S^^^^^1"
^DIBT(552,2,3,"GET")="S DISX(3)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(552,2,3,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(552,2,3,"QCON")="I DISX(3)'="""""
^DIBT(552,2,3,"SER")="0.0000^0.0000"
^DIBT(552,2,3,"TXT")="MONTH/YEAR not null"
^DIBT(552,2,"B",503335,1)=""
^DIBT(552,2,"B",503335,2)=""
^DIBT(552,2,"B",503335,3)=""
^DIBT(553,0)="ABSV SERVICE SUMMARY^2920910.1351^^503335^^^2970903^"
^DIBT(553,2,0)="^.4014^4^4"
^DIBT(553,2,1,0)="503335^4^MONTH/YEAR^'@^^^^^^1"
^DIBT(553,2,1,"ASK")="1"
^DIBT(553,2,1,"F")="2970699.99999^0797^7/0/97"
^DIBT(553,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(553,2,1,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(553,2,1,"QCON")="I DISX(1)=2970700"
^DIBT(553,2,1,"SER")="100.0000^1.0000"
^DIBT(553,2,1,"T")="2970700^0797^7/0/97"
^DIBT(553,2,1,"TXT")="MONTH/YEAR equals 7/0/97"
^DIBT(553,2,2,0)="503335^3^STATION NUMBER^^;S2^^^^^4"
^DIBT(553,2,2,"GET")="S DISX(2)=$P($G(^ABS(503335,D0,0)),U,12)"
^DIBT(553,2,2,"QCON")="I DISX(2)'="""""
^DIBT(553,2,2,"SER")="0.0000^0.0000"
^DIBT(553,2,2,"TXT")="STATION NUMBER not null"
^DIBT(553,2,3,0)="503335^^SERVICE:#1^+""^;""SERVICE:  "";S3^^^^^4"
^DIBT(553,2,3,3,0)="^.401419^1^1"
^DIBT(553,2,3,3,1,0)="OVF0^9.2"
^DIBT(553,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:""""),D0=$P(Y(1),U,8) S:'$D(^ABS(503332,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""")"
^DIBT(553,2,3,3,"B","OVF0",1)=""
^DIBT(553,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(553,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(553,2,3,"QCON")="I DISX(3)'="""""
^DIBT(553,2,3,"TXT")="SERVICE:#1 not null"
^DIBT(553,2,4,0)="503335^4^MONTH/YEAR^+^;S^^^^^1"
^DIBT(553,2,4,"GET")="S DISX(4)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(553,2,4,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(553,2,4,"QCON")="I DISX(4)'="""""
^DIBT(553,2,4,"SER")="0.0000^0.0000"
^DIBT(553,2,4,"TXT")="MONTH/YEAR not null"
^DIBT(553,2,"B",503335,1)=""
^DIBT(553,2,"B",503335,2)=""
^DIBT(553,2,"B",503335,3)=""
^DIBT(553,2,"B",503335,4)=""
^DIBT(554,0)="ABSV SELECTED ORGS^2950331.1555^^503335^^^2970206^"
^DIBT(554,2,0)="^.4014^3^3"
^DIBT(554,2,1,0)="503335^1.15^ORGANIZATION NAME^#+^^^^^^4"
^DIBT(554,2,1,"GET")="X ^DD(503335,1.15,9.2) S Y(503335,1.15,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.15,101),U,2) S D0=Y(503335,1.15,80) S DISX(1)=X"
^DIBT(554,2,1,"QCON")="I DISX(1)'="""""
^DIBT(554,2,1,"SER")="0.0000^0.0000"
^DIBT(554,2,1,"TXT")="ORGANIZATION NAME not null"
^DIBT(554,2,2,0)="503335^4^MONTH/YEAR^+^;S^^^^^1"
^DIBT(554,2,2,"GET")="S DISX(2)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(554,2,2,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(554,2,2,"QCON")="I DISX(2)'="""""
^DIBT(554,2,2,"SER")="0.0000^0.0000"
^DIBT(554,2,2,"TXT")="MONTH/YEAR not null"
^DIBT(554,2,3,0)="503335^^NAME^"".01^;S^^^^^4"
^DIBT(554,2,3,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(554,2,3,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(554,2,3,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(554,2,3,"PTRIX")="^ABS(503330,""B"","
^DIBT(554,2,3,"QCON")="I DISX(3)'="""""
^DIBT(554,2,3,"SER")="0.0000^0.0000"
^DIBT(554,2,3,"TXT")="NAME not null"
^DIBT(554,2,"B",503335,1)=""
^DIBT(554,2,"B",503335,2)=""
^DIBT(554,2,"B",503335,3)=""
^DIBT(554,"%D",0)="^^1^1^2950331^"
^DIBT(554,"%D",1,0)="Print selected organizations by month/year and name"
^DIBT(555,0)="ABSV BY MONTH/ORG/NAME^2880426^^503331^^^^"
^DIBT(555,2,1)="503331^5^MONTH^]+^;S3"
^DIBT(555,2,1,"ASK")=" "
^DIBT(555,2,1,"F")="2880399.99999"
^DIBT(555,2,1,"T")="z"
^DIBT(555,2,2)="503331^^ORGANIZATION^+""3^;S2"
^DIBT(555,2,2,"CM")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503016,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(555,2,3)="503331^^NAME^"".01^"
^DIBT(555,2,3,"CM")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(3)=X"
^DIBT(556,0)="ABSV MONTHLY SUMMARY^2900208.092^^503331^^^^"
^DIBT(556,2,1)="503331^5^MONTH^]+^;S3"
^DIBT(556,2,1,"ASK")=" "
^DIBT(556,2,1,"F")="2900099.99999"
^DIBT(556,2,1,"IX")="^ABS(503331,""AF"",^ABS(503331,^2"
^DIBT(556,2,1,"T")="2900100"
^DIBT(556,2,2)="503331^^ORGANIZATION^+""3^;S2"
^DIBT(556,2,2,"CM")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503334,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(557,0)="ABSV OCC TRANSMIT^2900413.153^^503336^^^2980406^"
^DIBT(557,2,0)="^.4014^3^3"
^DIBT(557,2,1,0)="503336^8^TRANSMISSION STATUS^]@^^^^^^3"
^DIBT(557,2,1,"ASK")="1"
^DIBT(557,2,1,"F")=".99999^1^1 (READY FOR TRANSMISSION)"
^DIBT(557,2,1,"GET")="S DISX(1)=$P($G(^ABS(503336,D0,0)),U,9)"
^DIBT(557,2,1,"IX")="^ABS(503336,""AF"",^ABS(503336,^2"
^DIBT(557,2,1,"QCON")="I DISX(1)=1"
^DIBT(557,2,1,"SER")="100.0000^1.0000"
^DIBT(557,2,1,"T")="1^1^1 (READY FOR TRANSMISSION)"
^DIBT(557,2,1,"TXT")="TRANSMISSION STATUS equals 1 (READY FOR TRANSMISSION)"
^DIBT(557,2,2,0)="503336^2^FACILITY^'^^^^^^4"
^DIBT(557,2,2,"ASK")="1"
^DIBT(557,2,2,"F")="502.99999^503"
^DIBT(557,2,2,"GET")="S DISX(2)=$P($G(^ABS(503336,D0,0)),U,3)"
^DIBT(557,2,2,"QCON")="I DISX(2)=503"
^DIBT(557,2,2,"SER")="0.1584^0.1584"
^DIBT(557,2,2,"T")="503^503"
^DIBT(557,2,2,"TXT")="FACILITY equals 503"
^DIBT(557,2,3,0)="503336^7^DATE^@^^^^^^1"
^DIBT(557,2,3,"GET")="S DISX(3)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(557,2,3,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(557,2,3,"QCON")="I DISX(3)'="""""
^DIBT(557,2,3,"SER")="0.0521^0.0495"
^DIBT(557,2,3,"TXT")="DATE not null"
^DIBT(557,2,"B",503336,1)=""
^DIBT(557,2,"B",503336,2)=""
^DIBT(557,2,"B",503336,3)=""
^DIBT(558,0)="ABSV OCC ERROR LIST^2900413.1527^^503336^^^2980406^"
^DIBT(558,2,0)="^.4014^3^3"
^DIBT(558,2,1,0)="503336^8^TRANSMISSION STATUS^]@^^^^^^3"
^DIBT(558,2,1,"ASK")="1"
^DIBT(558,2,1,"F")="1.99999^2^2 (ERROR - NOT TRANSMITTED)"
^DIBT(558,2,1,"GET")="S DISX(1)=$P($G(^ABS(503336,D0,0)),U,9)"
^DIBT(558,2,1,"IX")="^ABS(503336,""AF"",^ABS(503336,^2"
^DIBT(558,2,1,"QCON")="I DISX(1)=2"
^DIBT(558,2,1,"SER")="100.0000^0.9901"
^DIBT(558,2,1,"T")="2^2^2 (ERROR - NOT TRANSMITTED)"
^DIBT(558,2,1,"TXT")="TRANSMISSION STATUS equals 2 (ERROR - NOT TRANSMITTED)"
^DIBT(558,2,2,0)="503336^2^FACILITY^'^^^^^^4"
^DIBT(558,2,2,"ASK")="1"
^DIBT(558,2,2,"F")="502.99999^503"
^DIBT(558,2,2,"GET")="S DISX(2)=$P($G(^ABS(503336,D0,0)),U,3)"
^DIBT(558,2,2,"QCON")="I DISX(2)=503"
^DIBT(558,2,2,"SER")="0.1584^0.1584"
^DIBT(558,2,2,"T")="503^503"
^DIBT(558,2,2,"TXT")="FACILITY equals 503"
^DIBT(558,2,3,0)="503336^7^DATE^@^^^^^^1"
^DIBT(558,2,3,"GET")="S DISX(3)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(558,2,3,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(558,2,3,"QCON")="I DISX(3)'="""""
^DIBT(558,2,3,"SER")="0.0521^0.0495"
^DIBT(558,2,3,"TXT")="DATE not null"
^DIBT(558,2,"B",503336,1)=""
^DIBT(558,2,"B",503336,2)=""
^DIBT(558,2,"B",503336,3)=""
^DIBT(559,0)="ABSV OCC BATCH LIST^2900413.1136^^503336^^^2980406^"
^DIBT(559,2,0)="^.4014^4^4"
^DIBT(559,2,1,0)="503336^2^FACILITY^^^^^^^4"
^DIBT(559,2,1,"ASK")="1"
^DIBT(559,2,1,"F")="502.99999^503"
^DIBT(559,2,1,"GET")="S DISX(1)=$P($G(^ABS(503336,D0,0)),U,3)"
^DIBT(559,2,1,"QCON")="I (DISX(1)]]502.99999)&(DISX(1)']]""503 "")"
^DIBT(559,2,1,"SER")="0.1584^0.1584"
^DIBT(559,2,1,"T")="503 ^503 "
^DIBT(559,2,1,"TXT")="FACILITY from 503 to 503 "
^DIBT(559,2,2,0)="503336^^INTERNAL(TRANSMISSION STATUS)<2^'""@B^;L1;L1^^^^^4"
^DIBT(559,2,2,"CM")="S Y(1)=$S($D(^ABS(503336,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S X=X<2 I D0>0 S DISX(2)=X"
^DIBT(559,2,2,"F")="0"
^DIBT(559,2,2,"GET")="S Y(1)=$S($D(^ABS(503336,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S X=X<2 I D0>0 S DISX(2)=X"
^DIBT(559,2,2,"QCON")="I DISX(2)"
^DIBT(559,2,2,"T")="1"
^DIBT(559,2,2,"TXT")="INTERNAL(TRANSMISSION STATUS)<2"
^DIBT(559,2,3,0)="503336^8^TRANSMISSION STATUS^+^^^^^^3"
^DIBT(559,2,3,"GET")="S DISX(3)=$P($G(^ABS(503336,D0,0)),U,9)"
^DIBT(559,2,3,"IX")="^ABS(503336,""AF"",^ABS(503336,^2"
^DIBT(559,2,3,"QCON")="I DISX(3)'="""""
^DIBT(559,2,3,"SER")="0.0521^0.0495"
^DIBT(559,2,3,"TXT")="TRANSMISSION STATUS not null"
^DIBT(559,2,4,0)="503336^7^DATE^^^^^^^1"
^DIBT(559,2,4,"GET")="S DISX(4)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(559,2,4,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(559,2,4,"QCON")="I DISX(4)'="""""
^DIBT(559,2,4,"SER")="0.0521^0.0495"
^DIBT(559,2,4,"TXT")="DATE not null"
^DIBT(559,2,"B",503336,1)=""
^DIBT(559,2,"B",503336,2)=""
^DIBT(559,2,"B",503336,3)=""
^DIBT(559,2,"B",503336,4)=""
^DIBT(560,0)="ABSV POST SORT^2930317.1529^^503330.1^^^2980427^"
^DIBT(560,2,0)="^.4014^4^4"
^DIBT(560,2,1,0)="503330.1^8^STATION NUMBER^'^^^^^^4"
^DIBT(560,2,1,"ASK")="1"
^DIBT(560,2,1,"F")="502.99999^503"
^DIBT(560,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330.1,D0,0)),U,9)"
^DIBT(560,2,1,"IX")="^ABS(503330.1,""AF"",^ABS(503330.1,^2"
^DIBT(560,2,1,"QCON")="I (DISX(1)]]502.99999)&(DISX(1)']]""503 "")"
^DIBT(560,2,1,"SER")="0.1071^0.0968"
^DIBT(560,2,1,"T")="503 ^503 "
^DIBT(560,2,1,"TXT")="STATION NUMBER from 503 to 503 "
^DIBT(560,2,2,0)="503330.1^10^TRANSFER SUCCESSFUL?^^^^^^^3"
^DIBT(560,2,2,"F")=".99999^1"
^DIBT(560,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330.1,D0,0)),U,5)"
^DIBT(560,2,2,"QCON")="I DISX(2)=1"
^DIBT(560,2,2,"SER")="0.0968^0.0968"
^DIBT(560,2,2,"T")="1^1"
^DIBT(560,2,2,"TXT")="TRANSFER SUCCESSFUL? equals 1"
^DIBT(560,2,3,0)="503330.1^1^DATE^+^;S^^^^^1"
^DIBT(560,2,3,"GET")="S DISX(3)=$P($G(^ABS(503330.1,D0,0)),U,2)"
^DIBT(560,2,3,"IX")="^ABS(503330.1,""AC"",^ABS(503330.1,^2"
^DIBT(560,2,3,"QCON")="I DISX(3)'="""""
^DIBT(560,2,3,"SER")="0.1071^0.0968"
^DIBT(560,2,3,"TXT")="DATE not null"
^DIBT(560,2,4,0)="503330.1^^CODE^"".01^^^^^^4"
^DIBT(560,2,4,"CM")="S Y(1)=$S($D(^ABS(503330.1,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(560,2,4,"GET")="S Y(1)=$S($D(^ABS(503330.1,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(560,2,4,"IX")="^ABS(503330.1,""B"",^ABS(503330.1,^2"
^DIBT(560,2,4,"PTRIX")="^ABS(503330,""B"","
^DIBT(560,2,4,"QCON")="I DISX(4)'="""""
^DIBT(560,2,4,"SER")="0.0000^0.0000"
^DIBT(560,2,4,"TXT")="CODE not null"
^DIBT(560,2,"B",503330.1,1)=""
^DIBT(560,2,"B",503330.1,2)=""
^DIBT(560,2,"B",503330.1,3)=""
^DIBT(560,2,"B",503330.1,4)=""
^DIBT(561,0)="ABSV POST ERROR^2900417.1101^^503330.1^^^2950829^"
^DIBT(561,2,0)="^.4014^2^2"
^DIBT(561,2,1,0)="503330.1^8^STATION NUMBER^#^^^^^^4"
^DIBT(561,2,1,"ASK")="1"
^DIBT(561,2,1,"F")="502.99999^503"
^DIBT(561,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330.1,D0,0)),U,9)"
^DIBT(561,2,1,"IX")="^ABS(503330.1,""AF"",^ABS(503330.1,^2"
^DIBT(561,2,1,"QCON")="I DISX(1)=503"
^DIBT(561,2,1,"SER")="0.0000^0.0000"
^DIBT(561,2,1,"T")="503^503"
^DIBT(561,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(561,2,2,0)="503330.1^9^REASON FOR ERROR^^^^^^^3"
^DIBT(561,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330.1,D0,0)),U,4)"
^DIBT(561,2,2,"QCON")="I DISX(2)'="""""
^DIBT(561,2,2,"SER")="0.9688^0.9688"
^DIBT(561,2,2,"TXT")="REASON FOR ERROR not null"
^DIBT(561,2,"B",503330.1,1)=""
^DIBT(561,2,"B",503330.1,2)=""
^DIBT(562,0)="ABSV TC SORT^2930311.155^^503335^^^3000602^"
^DIBT(562,2,0)="^.4014^3^3"
^DIBT(562,2,1,0)="503335^4^MONTH/YEAR^]^;S2^^^^^1"
^DIBT(562,2,1,"ASK")="1"
^DIBT(562,2,1,"F")="3000499.999999^3000500^May 2000"
^DIBT(562,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(562,2,1,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(562,2,1,"QCON")="I DISX(1)=3000500"
^DIBT(562,2,1,"SER")="100.0000^1.0000"
^DIBT(562,2,1,"T")="3000500^3000500^May 2000"
^DIBT(562,2,1,"TXT")="MONTH/YEAR equals May 2000"
^DIBT(562,2,2,0)="503335^^NAME^"".01^^^^^^4"
^DIBT(562,2,2,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(562,2,2,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(562,2,2,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(562,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(562,2,2,"QCON")="I DISX(2)'="""""
^DIBT(562,2,2,"SER")="0.0000^0.0000"
^DIBT(562,2,2,"TXT")="NAME not null"
^DIBT(562,2,3,0)="503335^1^COMBINATION^^^^^^^4"
^DIBT(562,2,3,"GET")="S DISX(3)=$P($G(^ABS(503335,D0,0)),U,2)"
^DIBT(562,2,3,"QCON")="I DISX(3)'="""""
^DIBT(562,2,3,"SER")="0.0000^0.0000"
^DIBT(562,2,3,"TXT")="COMBINATION not null"
^DIBT(562,2,"B",503335,1)=""
^DIBT(562,2,"B",503335,2)=""
^DIBT(562,2,"B",503335,3)=""
^DIBT(563,0)="ABSV WEEKLY WORK SUMMARY^2930513.103^^503331^^^2980213^"
^DIBT(563,2,0)="^.4014^2^2"
^DIBT(563,2,1,0)="503331^2^DATE WORKED^]+^;S2^^^^^1"
^DIBT(563,2,1,"ASK")="1"
^DIBT(563,2,1,"F")="2980212.99999^2/13^2/13/98"
^DIBT(563,2,1,"GET")="S DISX(1)=$P($G(^ABS(503331,D0,0)),U,3)"
^DIBT(563,2,1,"IX")="^ABS(503331,""AD"",^ABS(503331,^2"
^DIBT(563,2,1,"QCON")="I DISX(1)=2980213"
^DIBT(563,2,1,"SER")="100.0000^1.0000"
^DIBT(563,2,1,"T")="2980213^2/13^2/13/98"
^DIBT(563,2,1,"TXT")="DATE WORKED equals 2/13/98"
^DIBT(563,2,2,0)="503331^^NAME^"".01^^^^^^4"
^DIBT(563,2,2,"CM")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(563,2,2,"GET")="S Y(1)=$S($D(^ABS(503331,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(563,2,2,"IX")="^ABS(503331,""B"",^ABS(503331,^2"
^DIBT(563,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(563,2,2,"QCON")="I DISX(2)'="""""
^DIBT(563,2,2,"SER")="0.0000^0.0000"
^DIBT(563,2,2,"TXT")="NAME not null"
^DIBT(563,2,"B",503331,1)=""
^DIBT(563,2,"B",503331,2)=""
^DIBT(564,0)="ABSV MEAL PRINT^2930309.1344^^503330.2^^^2980422^"
^DIBT(564,2,0)="^.4014^2^2"
^DIBT(564,2,1,0)="503330.2^3^DATE^]@^^^^^^1"
^DIBT(564,2,1,"ASK")="1"
^DIBT(564,2,1,"F")="2980421.99999^2980422^Apr 22,1998"
^DIBT(564,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330.2,D0,0)),U,4)"
^DIBT(564,2,1,"IX")="^ABS(503330.2,""AC"",^ABS(503330.2,^2"
^DIBT(564,2,1,"QCON")="I DISX(1)=2980422"
^DIBT(564,2,1,"SER")="46.5000^0.9789"
^DIBT(564,2,1,"T")="2980422^2980422^Apr 22,1998"
^DIBT(564,2,1,"TXT")="DATE equals Apr 22,1998"
^DIBT(564,2,2,0)="503330.2^^NAME^"".01^^^^^^4"
^DIBT(564,2,2,"CM")="S Y(1)=$S($D(^ABS(503330.2,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(564,2,2,"GET")="S Y(1)=$S($D(^ABS(503330.2,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(564,2,2,"IX")="^ABS(503330.2,""B"",^ABS(503330.2,^2"
^DIBT(564,2,2,"PTRIX")="^ABS(503330,""B"","
^DIBT(564,2,2,"QCON")="I DISX(2)'="""""
^DIBT(564,2,2,"SER")="0.0000^0.0000"
^DIBT(564,2,2,"TXT")="NAME not null"
^DIBT(564,2,"B",503330.2,1)=""
^DIBT(564,2,"B",503330.2,2)=""
^DIBT(565,0)="ABSV VIEW DAILY ENTRIES^2940608.1559^^503330^^^^"
^DIBT(565,2,1)="503330^.01^VOLUNTEER^^"
^DIBT(565,2,1,"ASK")=" "
^DIBT(565,2,1,"F")="@z^A"
^DIBT(565,2,1,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(565,2,1,"T")="Z^Z"
^DIBT(565,2,2)="503331^2^DATE WORKED^""^"
^DIBT(565,2,2,503330,100)="503331^ABS(503331,^1^S I(0,0)=$S($D(D0):D0,1:"""") X DPP(2,""OVF0"",9.2) S X="""" S D0=I(0,0)"
^DIBT(565,2,2,"ASK")=" "
^DIBT(565,2,2,"F")="2010100.99999^010101"
^DIBT(565,2,2,"OVF0",9.2)="S D=0 F  S (D,D0)=$O(^ABS(503331,""B"",I(0,0),D)) S:D="""" (D,D0)=-1 Q:D'>0  I $D(^ABS(503331,D,0)) S X=$P(^(0),U,1) S:$D(^ABS(503330,+X,0)) X=$P(^(0),U,1) D M Q:'$D(D)  S D=D0"
^DIBT(565,2,2,"T")="z^"
^DIBT(566,0)="ABSV ALPHA SORT^2900913.1532^^503330^^^2950825^"
^DIBT(566,2,0)="^.4014^2^2"
^DIBT(566,2,1,0)="503330.01^^STATION^]"".01^^^^^^7"
^DIBT(566,2,1,1,0)="^.40141^1^1"
^DIBT(566,2,1,1,1,0)="503330^4"
^DIBT(566,2,1,1,"B",503330,1)=""
^DIBT(566,2,1,"ASK")="1"
^DIBT(566,2,1,"CM")="S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(566,2,1,"F")="502.99999^503"
^DIBT(566,2,1,"GET")="S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(566,2,1,"QCON")="I DISX(1)=503"
^DIBT(566,2,1,"T")="503^503"
^DIBT(566,2,1,"TXT")="STATION equals 503"
^DIBT(566,2,2,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(566,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U,1)"
^DIBT(566,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(566,2,2,"QCON")="I DISX(2)'="""""
^DIBT(566,2,2,"SER")="0^0"
^DIBT(566,2,2,"TXT")="VOLUNTEER not null"
^DIBT(566,2,"B",503330,2)=""
^DIBT(566,2,"B",503330.01,1)=""
^DIBT(567,0)="ABSV BIRTH MONTH^2970328.1444^^503330^^^3001228"
^DIBT(567,2,0)="^.4014^2^2"
^DIBT(567,2,1,0)="503330^^(+$E(INTERNAL(BIRTH DATE),4,5))^]'+""^^^^^^4"
^DIBT(567,2,1,"ASK")="1"
^DIBT(567,2,1,"CM")="S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S X=X,Y(2)=X S X=4,Y(3)=X S X=5,X=$E(Y(2),Y(3),X) S X=+X I D0>0 S DISX(1)=X"
^DIBT(567,2,1,"F")=".999999^1"
^DIBT(567,2,1,"GET")="S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S X=X,Y(2)=X S X=4,Y(3)=X S X=5,X=$E(Y(2),Y(3),X) S X=+X I D0>0 S DISX(1)=X"
^DIBT(567,2,1,"QCON")="I DISX(1)=1"
^DIBT(567,2,1,"T")="1^1"
^DIBT(567,2,1,"TXT")="(+$E(INTERNAL(BIRTH DATE),4,5)) equals 1"
^DIBT(567,2,2,0)="503330^.01^VOLUNTEER^@^^^^^^4"
^DIBT(567,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(567,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(567,2,2,"QCON")="I DISX(2)'="""""
^DIBT(567,2,2,"SER")="0^0"
^DIBT(567,2,2,"TXT")="VOLUNTEER not null"
^DIBT(567,2,"B",503330,1)=""
^DIBT(567,2,"B",503330,2)=""
^DIBT(568,0)="ABSV AGE^2930212.1649^^503330^^^3000418^"
^DIBT(568,2,0)="^.4014^2^2"
^DIBT(568,2,1,0)="503330^8^AGE^]^^^^^^4"
^DIBT(568,2,1,"ASK")="1"
^DIBT(568,2,1,"GET")="S X1=$P(^ABS(503330,D0,0),""^"",8) S:X1 X=$$AGE^ABSVU2(X1) S DISX(1)=X"
^DIBT(568,2,1,"QCON")="I DISX(1)'="""""
^DIBT(568,2,1,"SER")="0.2376^0.2376"
^DIBT(568,2,1,"TXT")="AGE not null"
^DIBT(568,2,2,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(568,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U,1)"
^DIBT(568,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(568,2,2,"QCON")="I DISX(2)'="""""
^DIBT(568,2,2,"SER")="0^0"
^DIBT(568,2,2,"TXT")="VOLUNTEER not null"
^DIBT(568,2,"B",503330,1)=""
^DIBT(568,2,"B",503330,2)=""
^DIBT(569,0)="ABSV ORG LABEL^2980417.1408^^503330^^^3001005"
^DIBT(569,2,0)="^.4014^3^3"
^DIBT(569,2,1,0)="503330.03^^INTERNAL(ORGANIZATION)^""^^^^^^4"
^DIBT(569,2,1,1,0)="^.40141^1^1"
^DIBT(569,2,1,1,1,0)="503330^1"
^DIBT(569,2,1,1,"B",503330,1)=""
^DIBT(569,2,1,"ASK")="1"
^DIBT(569,2,1,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D1>0 S DISX(1)=X"
^DIBT(569,2,1,"F")="1.999999^2"
^DIBT(569,2,1,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D1>0 S DISX(1)=X"
^DIBT(569,2,1,"QCON")="I DISX(1)=2"
^DIBT(569,2,1,"T")="2^2"
^DIBT(569,2,1,"TXT")="INTERNAL(ORGANIZATION) equals 2"
^DIBT(569,2,2,0)="503330.03^^$P(#.01,""-"")^""^^^^^^4"
^DIBT(569,2,2,1,0)="^.40141^1^1"
^DIBT(569,2,2,1,1,0)="503330^1"
^DIBT(569,2,2,1,"B",503330,1)=""
^DIBT(569,2,2,"ASK")="1"
^DIBT(569,2,2,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",X=$P(Y(2),X) I D1>0 S DISX(2)=X"
^DIBT(569,2,2,"F")="502.999999^503"
^DIBT(569,2,2,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",X=$P(Y(2),X) I D1>0 S DISX(2)=X"
^DIBT(569,2,2,"QCON")="I DISX(2)=503"
^DIBT(569,2,2,"T")="503^503"
^DIBT(569,2,2,"TXT")="$P(#.01,""""-"""") equals 503"
^DIBT(569,2,3,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(569,2,3,"GET")="S DISX(3)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(569,2,3,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(569,2,3,"QCON")="I DISX(3)'="""""
^DIBT(569,2,3,"SER")="0^0"
^DIBT(569,2,3,"TXT")="VOLUNTEER not null"
^DIBT(569,2,"B",503330,3)=""
^DIBT(569,2,"B",503330.03,1)=""
^DIBT(569,2,"B",503330.03,2)=""
^DIBT(569,"%D",0)="^^2^2^2980417^^"
^DIBT(569,"%D",1,0)="This template is used to print labels based on the organization of the"
^DIBT(569,"%D",2,0)="volunteer."
^DIBT(570,0)="ABSV SERVICE LABEL^2980417.141^^503330^^^3010112"
^DIBT(570,2,0)="^.4014^3^3"
^DIBT(570,2,1,0)="503330.03^^INTERNAL(SERVICE)^""^^^^^^4"
^DIBT(570,2,1,1,0)="^.40141^1^1"
^DIBT(570,2,1,1,1,0)="503330^1"
^DIBT(570,2,1,1,"B",503330,1)=""
^DIBT(570,2,1,"ASK")="1"
^DIBT(570,2,1,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D1>0 S DISX(1)=X"
^DIBT(570,2,1,"F")="39.999999^40"
^DIBT(570,2,1,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X I D1>0 S DISX(1)=X"
^DIBT(570,2,1,"QCON")="I DISX(1)=40"
^DIBT(570,2,1,"T")="40^40"
^DIBT(570,2,1,"TXT")="INTERNAL(SERVICE) equals 40"
^DIBT(570,2,2,0)="503330.03^^$P(#.01,""-"")^""^^^^^^4"
^DIBT(570,2,2,1,0)="^.40141^1^1"
^DIBT(570,2,2,1,1,0)="503330^1"
^DIBT(570,2,2,1,"B",503330,1)=""
^DIBT(570,2,2,"ASK")="1"
^DIBT(570,2,2,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",X=$P(Y(2),X) I D1>0 S DISX(2)=X"
^DIBT(570,2,2,"F")="502.999999^503"
^DIBT(570,2,2,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",X=$P(Y(2),X) I D1>0 S DISX(2)=X"
^DIBT(570,2,2,"QCON")="I DISX(2)=503"
^DIBT(570,2,2,"T")="503^503"
^DIBT(570,2,2,"TXT")="$P(#.01,""""-"""") equals 503"
^DIBT(570,2,3,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(570,2,3,"GET")="S DISX(3)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(570,2,3,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(570,2,3,"QCON")="I DISX(3)'="""""
^DIBT(570,2,3,"SER")="0^0"
^DIBT(570,2,3,"TXT")="VOLUNTEER not null"
^DIBT(570,2,"B",503330,3)=""
^DIBT(570,2,"B",503330.03,1)=""
^DIBT(570,2,"B",503330.03,2)=""
^DIBT(570,"%D",0)="^^1^1^2980417^"
^DIBT(570,"%D",1,0)="This template is used to print labels sorted by service."
^DIBT(571,0)="ABSV STATION LIST^2930420.1342^^503330.1^^^2980417^"
^DIBT(571,2,0)="^.4014^3^3"
^DIBT(571,2,1,0)="503330.1^1^DATE^]^^^^^^1"
^DIBT(571,2,1,"ASK")="1"
^DIBT(571,2,1,"F")="2980416.99999^TODAY^Apr 17,1998"
^DIBT(571,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330.1,D0,0)),U,2)"
^DIBT(571,2,1,"IX")="^ABS(503330.1,""AC"",^ABS(503330.1,^2"
^DIBT(571,2,1,"QCON")="I DISX(1)=2980417"
^DIBT(571,2,1,"SER")="1.7500^0.6364"
^DIBT(571,2,1,"T")="2980417^TODAY^Apr 17,1998"
^DIBT(571,2,1,"TXT")="DATE equals Apr 17,1998"
^DIBT(571,2,2,0)="503330.1^5^MEAL TICKET^-^^^^^^3"
^DIBT(571,2,2,"F")="?z^@"
^DIBT(571,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330.1,D0,0)),U,6)"
^DIBT(571,2,2,"QCON")="I 1"
^DIBT(571,2,2,"SER")="0.0000^0.0000"
^DIBT(571,2,2,"T")="z^"
^DIBT(571,2,2,"TXT")="All MEAL TICKET (includes nulls)"
^DIBT(571,2,3,0)="503330.1^^CODE^"".01^^^^^^4"
^DIBT(571,2,3,"CM")="S Y(1)=$S($D(^ABS(503330.1,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(571,2,3,"GET")="S Y(1)=$S($D(^ABS(503330.1,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(571,2,3,"IX")="^ABS(503330.1,""B"",^ABS(503330.1,^2"
^DIBT(571,2,3,"PTRIX")="^ABS(503330,""B"","
^DIBT(571,2,3,"QCON")="I DISX(3)'="""""
^DIBT(571,2,3,"SER")="0.0000^0.0000"
^DIBT(571,2,3,"TXT")="CODE not null"
^DIBT(571,2,"B",503330.1,1)=""
^DIBT(571,2,"B",503330.1,2)=""
^DIBT(571,2,"B",503330.1,3)=""
^DIBT(572,0)="ABSV TT88 VIEW SORT^2930720.1527^^503330^^^2980422^"
^DIBT(572,2,0)="^.4014^2^2"
^DIBT(572,2,1,0)="503330.01^.5^STATION NUMBER^@^^^^^^4"
^DIBT(572,2,1,1,0)="^.40141^1^1"
^DIBT(572,2,1,1,1,0)="503330^4"
^DIBT(572,2,1,1,"B",503330,1)=""
^DIBT(572,2,1,"ASK")="1"
^DIBT(572,2,1,"F")="502.99989^502.9999"
^DIBT(572,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330,D0,4,D1,0)),U,12)"
^DIBT(572,2,1,"IX")="^ABS(503330,""AB"",^ABS(503330,^2"
^DIBT(572,2,1,"QCON")="I (DISX(1)]]502.99989)&(DISX(1)']]503.0001)"
^DIBT(572,2,1,"T")="503.0001^503.0001"
^DIBT(572,2,1,"TXT")="STATION NUMBER from 502.9999 to 503.0001"
^DIBT(572,2,2,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(572,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U,1)"
^DIBT(572,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(572,2,2,"QCON")="I DISX(2)'="""""
^DIBT(572,2,2,"SER")="0^0"
^DIBT(572,2,2,"TXT")="VOLUNTEER not null"
^DIBT(572,2,"B",503330,2)=""
^DIBT(572,2,"B",503330.01,1)=""
^DIBT(573,0)="ABSV SELECTED SERVICES^2950331.1629^^503335^^^^"
^DIBT(573,2,0)="^.4014^3^3"
^DIBT(573,2,1,0)="503335^1.3^SERVICE NAME^#+^^^^^^4"
^DIBT(573,2,1,"GET")="X ^DD(503335,1.3,9.2) S Y(503335,1.3,101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.3,101),U,2) S D0=Y(503335,1.3,80) S DISX(1)=X"
^DIBT(573,2,1,"QCON")="I DISX(1)'="""""
^DIBT(573,2,1,"SER")="0.0000^0.0000"
^DIBT(573,2,1,"TXT")="SERVICE NAME not null"
^DIBT(573,2,2,0)="503335^4^MONTH/YEAR^+^;S^^^^^1"
^DIBT(573,2,2,"GET")="S DISX(2)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(573,2,2,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(573,2,2,"QCON")="I DISX(2)'="""""
^DIBT(573,2,2,"SER")="0.0000^0.0000"
^DIBT(573,2,2,"TXT")="MONTH/YEAR not null"
^DIBT(573,2,3,0)="503335^^NAME^"".01^^^^^^4"
^DIBT(573,2,3,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(573,2,3,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(573,2,3,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(573,2,3,"PTRIX")="^ABS(503330,""B"","
^DIBT(573,2,3,"QCON")="I DISX(3)'="""""
^DIBT(573,2,3,"SER")="0.0000^0.0000"
^DIBT(573,2,3,"TXT")="NAME not null"
^DIBT(573,2,"B",503335,1)=""
^DIBT(573,2,"B",503335,2)=""
^DIBT(573,2,"B",503335,3)=""
^DIBT(573,"%D",0)="^^1^1^2950331^^"
^DIBT(573,"%D",1,0)="Sort template for selected services."
^DIBT(574,0)="ABSV ACTIVE VOLUNTEERS^2950825.1127^^503330^^^2950825"
^DIBT(574,2,0)="^.4014^3^3"
^DIBT(574,2,1,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(574,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330,D0,0)),U,1)"
^DIBT(574,2,1,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(574,2,1,"QCON")="I DISX(1)'="""""
^DIBT(574,2,1,"SER")="0^0"
^DIBT(574,2,1,"TXT")="VOLUNTEER not null"
^DIBT(574,2,2,0)="503330.01^.5^STATION NUMBER^'^^^^^^4"
^DIBT(574,2,2,1,0)="^.40141^1^1"
^DIBT(574,2,2,1,1,0)="503330^4"
^DIBT(574,2,2,1,"B",503330,1)=""
^DIBT(574,2,2,"ASK")="1"
^DIBT(574,2,2,"F")="502.99999^503"
^DIBT(574,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,4,D1,0)),U,12)"
^DIBT(574,2,2,"IX")="^ABS(503330,""AB"",^ABS(503330,^2"
^DIBT(574,2,2,"QCON")="I DISX(2)=503"
^DIBT(574,2,2,"T")="503^503"
^DIBT(574,2,2,"TXT")="STATION NUMBER equals 503"
^DIBT(574,2,3,0)="503330.01^^TERMINATION DATE=""""^""@B^;L1^^^^^4"
^DIBT(574,2,3,1,0)="^.40141^1^1"
^DIBT(574,2,3,1,1,0)="503330^4"
^DIBT(574,2,3,1,"B",503330,1)=""
^DIBT(574,2,3,"CM")="S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,8)="""" I D1>0 S DISX(3)=X"
^DIBT(574,2,3,"F")="0"
^DIBT(574,2,3,"GET")="S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,8)="""" I D1>0 S DISX(3)=X"
^DIBT(574,2,3,"QCON")="I DISX(3)"
^DIBT(574,2,3,"T")="1"
^DIBT(574,2,3,"TXT")="TERMINATION DATE="""""""""
^DIBT(574,2,"B",503330,1)=""
^DIBT(574,2,"B",503330.01,2)=""
^DIBT(574,2,"B",503330.01,3)=""
^DIBT(574,"%D",0)="^^1^1^2950825^^^^"
^DIBT(574,"%D",1,0)="This template sorts lists for active volunteers only."
^DIBT(575,0)="ECCAT^2890628.1012^^720^^^^"
^DIBT(575,2,0)="^.4014^2^2"
^DIBT(575,2,1,0)="720^^CATEGORY=""YES""^]""@B^;L1^^^^^4"
^DIBT(575,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(720,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ECP(D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)=""YES"" I D0>0 S DISX(1)=X"
^DIBT(575,2,1,"F")="0"
^DIBT(575,2,1,"GET")="S Y(2)=$C(59)_$S($D(^DD(720,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ECP(D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)=""YES"" I D0>0 S DISX(1)=X"
^DIBT(575,2,1,"QCON")="I DISX(1)"
^DIBT(575,2,1,"T")="1"
^DIBT(575,2,1,"TXT")="CATEGORY=""""YES"""""
^DIBT(575,2,2,0)="720^.01^PROCEDURE NAME^^^^^^^4"
^DIBT(575,2,2,"GET")="S DISX(2)=$P($G(^ECP(D0,0)),U,1)"
^DIBT(575,2,2,"IX")="^ECP(""B"",^ECP(^2"
^DIBT(575,2,2,"QCON")="I DISX(2)'="""""
^DIBT(575,2,2,"SER")="0^0"
^DIBT(575,2,2,"TXT")="PROCEDURE NAME not null"
^DIBT(575,2,"B",720,1)=""
^DIBT(575,2,"B",720,2)=""
^DIBT(577,0)="MCARGIRCLI^2940523.1547^^699^^^2960612^"
^DIBT(577,2,0)="^.4014^3^3"
^DIBT(577,2,1,0)="699^^PROCEDURE^""1^^^^^^4"
^DIBT(577,2,1,"ASK")="1"
^DIBT(577,2,1,"CM")="S Y(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$S('$D(^MCAR(697.2,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(577,2,1,"GET")="S Y(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$S('$D(^MCAR(697.2,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(577,2,1,"IX")="^MCAR(699,""D"",^MCAR(699,^2"
^DIBT(577,2,1,"PTRIX")="^MCAR(697.2,""B"","
^DIBT(577,2,1,"QCON")="I DISX(1)'="""""
^DIBT(577,2,1,"SER")="0.0000^0.0000"
^DIBT(577,2,1,"TXT")="PROCEDURE not null"
^DIBT(577,2,2,0)="699.73^1^FINAL DISPOSITION DATE^^^^^^^1"
^DIBT(577,2,2,1,0)="^.40141^1^1"
^DIBT(577,2,2,1,1,0)="699^25"
^DIBT(577,2,2,1,"B",699,1)=""
^DIBT(577,2,2,"ASK")="1"
^DIBT(577,2,2,"GET")="S DISX(2)=$P($G(^MCAR(699,D0,25,D1,0)),U,2)"
^DIBT(577,2,2,"QCON")="I DISX(2)'="""""
^DIBT(577,2,2,"TXT")="FINAL DISPOSITION DATE not null"
^DIBT(577,2,3,0)="699^^MEDICAL PATIENT^"".02^^^^^^4"
^DIBT(577,2,3,3,0)="^.401419^1^1"
^DIBT(577,2,3,3,1,0)="OVF0^9.2"
^DIBT(577,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^MCAR(699,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(690,D0,0)):^(0),1:"""")"
^DIBT(577,2,3,3,"B","OVF0",1)=""
^DIBT(577,2,3,"ASK")="1"
^DIBT(577,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(577,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(577,2,3,"QCON")="I DISX(3)'="""""
^DIBT(577,2,3,"TXT")="MEDICAL PATIENT not null"
^DIBT(577,2,"B",699,1)=""
^DIBT(577,2,"B",699,3)=""
^DIBT(577,2,"B",699.73,2)=""
^DIBT(578,0)="MCESSORT^2930921.0945^^699^^^^"
^DIBT(578,2,1)="699^.01^APPOINTMENT DATE/TIME^^"
^DIBT(578,2,1,"ASK")=""
^DIBT(578,2,1,"F")="?z^@"
^DIBT(578,2,1,"T")="@^@"
^DIBT(579,0)="PRCNSRPR^2921110.1346^^413^^^2960514^"
^DIBT(579,2,0)="^.4014^2^2"
^DIBT(579,2,1,0)="413^^REQUESTING SERVICE^""2^;C12;""""^^^^^7"
^DIBT(579,2,1,"CM")="S Y(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(579,2,1,"GET")="S Y(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(579,2,1,"IX")="^PRCN(413,""AE"",^PRCN(413,^2"
^DIBT(579,2,1,"PTRIX")="^DIC(49,""B"","
^DIBT(579,2,1,"QCON")="I DISX(1)'="""""
^DIBT(579,2,1,"SER")="0.0000^0.0000"
^DIBT(579,2,1,"TXT")="REQUESTING SERVICE not null"
^DIBT(579,2,2,0)="413^34^CMR PRIORITY^^^^^^^2"
^DIBT(579,2,2,"GET")="S DISX(2)=$P($G(^PRCN(413,D0,2)),U,18)"
^DIBT(579,2,2,"QCON")="I DISX(2)'="""""
^DIBT(579,2,2,"SER")="0.3333^0.3333"
^DIBT(579,2,2,"TXT")="CMR PRIORITY not null"
^DIBT(579,2,"B",413,1)=""
^DIBT(579,2,"B",413,2)=""
^DIBT(580,0)="PRCH P/C ORACLE SORT^2961001.1022^^440.6^^^2961002"
^DIBT(580,2,0)="^.4014^3^3"
^DIBT(580,2,1,0)="440.6^46^RECONCILE DATE^^^^^^^1"
^DIBT(580,2,1,"GET")="S DISX(1)=$P($G(^PRCH(440.6,D0,1)),U,6)"
^DIBT(580,2,1,"QCON")="I DISX(1)'="""""
^DIBT(580,2,1,"TXT")="RECONCILE DATE not null"
^DIBT(580,2,2,0)="440.6^^CARD HOLDER^""16^^^^^^4"
^DIBT(580,2,2,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(580,2,2,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(580,2,2,"QCON")="I DISX(2)'="""""
^DIBT(580,2,2,"TXT")="CARD HOLDER not null"
^DIBT(580,2,3,0)="440.6^^PURCHASE ORDER^""41^^^^^^4"
^DIBT(580,2,3,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$S('$D(^PRC(442,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(580,2,3,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$S('$D(^PRC(442,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(580,2,3,"IX")="^PRCH(440.6,""PO"",^PRCH(440.6,^2"
^DIBT(580,2,3,"PTRIX")="^PRC(442,""B"","
^DIBT(580,2,3,"QCON")="I DISX(3)'="""""
^DIBT(580,2,3,"TXT")="PURCHASE ORDER not null"
^DIBT(580,2,"B",440.6,1)=""
^DIBT(580,2,"B",440.6,2)=""
^DIBT(580,2,"B",440.6,3)=""
^DIBT(580,"%D",0)="^^1^1^2961001^^^^"
^DIBT(580,"%D",1,0)="Sort by card holder and purchase order.."
^DIBT(581,0)="PRCHQ RFQ MESSAGE SORT^2960328.1528^@^444^^@^2961022"
^DIBT(581,2,0)="^.4014^2^2"
^DIBT(581,2,1,0)="444^.01^RFQ NBR^@^^^^^^4"
^DIBT(581,2,1,"ASK")="1"
^DIBT(581,2,1,"F")="688-96-RFQ-00031z^688-96-RFQ-00032"
^DIBT(581,2,1,"GET")="S DISX(1)=$P($G(^PRC(444,D0,0)),U,1)"
^DIBT(581,2,1,"IX")="^PRC(444,""B"",^PRC(444,^2"
^DIBT(581,2,1,"QCON")="I DISX(1)=""688-96-RFQ-00032"""
^DIBT(581,2,1,"SER")="66.0000^0.9851"
^DIBT(581,2,1,"T")="688-96-RFQ-00032^688-96-RFQ-00032"
^DIBT(581,2,1,"TXT")="RFQ NBR equals 688-96-RFQ-00032"
^DIBT(581,2,2,0)="444.021^.01^MESSAGE SEQUENCE NBR^^^^^^^2"
^DIBT(581,2,2,1,0)="^.40141^1^1"
^DIBT(581,2,2,1,1,0)="444^7"
^DIBT(581,2,2,1,"B",444,1)=""
^DIBT(581,2,2,"ASK")="1"
^DIBT(581,2,2,"F")="11.99999^12"
^DIBT(581,2,2,"GET")="S DISX(2)=$P($G(^PRC(444,D0,7,D1,0)),U,1) S:DISX(2)]"""" DISX(2)=+DISX(2)"
^DIBT(581,2,2,"QCON")="I DISX(2)=12"
^DIBT(581,2,2,"T")="12^12"
^DIBT(581,2,2,"TXT")="MESSAGE SEQUENCE NBR equals 12"
^DIBT(581,2,"B",444,1)=""
^DIBT(581,2,"B",444.021,2)=""
^DIBT(581,"%D",0)="^^1^1^2960328^^"
^DIBT(581,"%D",1,0)="This Sort Template will be used in the display of 864 TEXT Messages."
^DIBT(584,0)="RCCPC INQUIRE STATEMENT^2960709.1512^@^349.2^^@^2960911"
^DIBT(584,2,0)="^.4014^1^1"
^DIBT(584,2,1,0)="349.2^.03^PATIENT NAME^#^^^^^^4"
^DIBT(584,2,1,"ASK")="1"
^DIBT(584,2,1,"F")="Az^B"
^DIBT(584,2,1,"GET")="S DISX(1)=$P($G(^RCPS(349.2,D0,0)),U,3)"
^DIBT(584,2,1,"QCON")="I DISX(1)'="""""
^DIBT(584,2,1,"T")="BZ^BZ"
^DIBT(584,2,1,"TXT")="PATIENT NAME not null"
^DIBT(584,2,"B",349.2,1)=""
^DIBT(584,"%D",0)="^^1^1^2960709^^^"
^DIBT(584,"%D",1,0)="This sort template will allow you to sort by patient name."
^DIBT(585,0)="RCAM ADDRESS UNKNOWN^3000830.0937^@^340^^@^3000830"
^DIBT(585,2,0)="^.4014^2^2"
^DIBT(585,2,1,0)="340^1.09^ADDRESS UNKNOWN^@^^^^^^3"
^DIBT(585,2,1,"F")=".999999^1^1 (YES)"
^DIBT(585,2,1,"GET")="S DISX(1)=$P($G(^RCD(340,D0,1)),U,9)"
^DIBT(585,2,1,"QCON")="I DISX(1)=1"
^DIBT(585,2,1,"T")="1^1^1 (YES)"
^DIBT(585,2,1,"TXT")="ADDRESS UNKNOWN equals 1 (YES)"
^DIBT(585,2,2,0)="340^^DEBTOR^@"".01^^^^^^4"
^DIBT(585,2,2,3,0)="^.401419^1^1"
^DIBT(585,2,2,3,1,0)="OVF0^9.2"
^DIBT(585,2,2,3,1,"OVF0")="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"
^DIBT(585,2,2,3,"B","OVF0",1)=""
^DIBT(585,2,2,"CM")="S Y(1)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) X DPP(2,""OVF0"",9.2) I D0>0 S DISX(2)=X"
^DIBT(585,2,2,"GET")="S Y(1)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) X DPP(2,""OVF0"",9.2) I D0>0 S DISX(2)=X"
^DIBT(585,2,2,"QCON")="I DISX(2)'="""""
^DIBT(585,2,2,"TXT")="DEBTOR not null"
^DIBT(585,2,"B",340,1)=""
^DIBT(585,2,"B",340,2)=""
^DIBT(585,"%D",0)="^.4012^2^2^3000830^^^^"
^DIBT(585,"%D",1,0)="This template will identify patients with the address unknown field marked"
^DIBT(585,"%D",2,0)="as ""Yes""."
^DIBT(585,"DIPT")="RCAM ADDRESS UNKNOWN"
^DIBT(586,0)="LA ASHORG^2960401.0812^^61.39^^^2960401"
^DIBT(586,2,0)="^.4014^1^1"
^DIBT(586,2,1,0)="61.39^.01^INSTRUMENT^^^^^^^4"
^DIBT(586,2,1,"F")="VISz^VIT"
^DIBT(586,2,1,"GET")="S DISX(1)=$P($G(^LAB(61.39,D0,0)),U,1)"
^DIBT(586,2,1,"IX")="^LAB(61.39,""B"",^LAB(61.39,^2"
^DIBT(586,2,1,"QCON")="I (DISX(1)]]""VISz"")&(DISX(1)']]""VIZ"")"
^DIBT(586,2,1,"T")="VIZ^VIZ"
^DIBT(586,2,1,"TXT")="INSTRUMENT from VIT to VIZ"
^DIBT(586,2,"B",61.39,1)=""
^DIBT(586,"%D",0)="^^1^1^2960401^"
^DIBT(586,"%D",1,0)="Sorts vitek verses DHCP file data."
^DIBT(587,0)="LA ASHANT^2960401.0813^^61.39^^^2960402"
^DIBT(587,2,0)="^.4014^1^1"
^DIBT(587,2,1,0)="61.39^.01^INSTRUMENT^^^^^^^4"
^DIBT(587,2,1,"F")="VISz^VIT"
^DIBT(587,2,1,"GET")="S DISX(1)=$P($G(^LAB(61.39,D0,0)),U,1)"
^DIBT(587,2,1,"IX")="^LAB(61.39,""B"",^LAB(61.39,^2"
^DIBT(587,2,1,"QCON")="I (DISX(1)]]""VISz"")&(DISX(1)']]""VIZ"")"
^DIBT(587,2,1,"T")="VIZ^VIZ"
^DIBT(587,2,1,"TXT")="INSTRUMENT from VIT to VIZ"
^DIBT(587,2,"B",61.39,1)=""
^DIBT(587,"%D",0)="^^1^1^2960401^^"
^DIBT(587,"%D",1,0)="Sorts vitek verses DHCP antibiotics"
^DIBT(589,0)="PRPF DAILY ACTIVITY^2901129.1621^@^470.1^^@^2970218^"
^DIBT(589,2,0)="^.4014^5^5"
^DIBT(589,2,1,0)="470.1^5^DATE TRANSACTION ENTERED^+^;S2^^^^^1"
^DIBT(589,2,1,"ASK")="1"
^DIBT(589,2,1,"F")="2970100.99999^2970101^1/1/97"
^DIBT(589,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470.1,D0,0)),U,6)"
^DIBT(589,2,1,"IX")="^PRPF(470.1,""AC"",^PRPF(470.1,^2"
^DIBT(589,2,1,"QCON")="I (DISX(1)]]2970100.99999)&(DISX(1)']]2970218)"
^DIBT(589,2,1,"SER")="100.0000^1.0000"
^DIBT(589,2,1,"T")="2970218^2970218^2/18/97"
^DIBT(589,2,1,"TXT")="DATE TRANSACTION ENTERED from 1/1/97 to 2/18/97"
^DIBT(589,2,2,0)="470.1^7^DEPOSIT/WITHDRAWAL^+^;S^^^^^3"
^DIBT(589,2,2,"GET")="S DISX(2)=$P($G(^PRPF(470.1,D0,0)),U,8)"
^DIBT(589,2,2,"QCON")="I DISX(2)'="""""
^DIBT(589,2,2,"SER")="0.0000^0.0000"
^DIBT(589,2,2,"TXT")="DEPOSIT/WITHDRAWAL not null"
^DIBT(589,2,3,0)="470.1^8^CASH/CHECK/OTHER^+^;S^^^^^3"
^DIBT(589,2,3,"GET")="S DISX(3)=$P($G(^PRPF(470.1,D0,0)),U,9)"
^DIBT(589,2,3,"QCON")="I DISX(3)'="""""
^DIBT(589,2,3,"SER")="0.0000^0.0000"
^DIBT(589,2,3,"TXT")="CASH/CHECK/OTHER not null"
^DIBT(589,2,4,0)="470.1^^FORM^+""10^;S^^^^^4"
^DIBT(589,2,4,"CM")="S Y(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$S('$D(^PRPF(470.2,+$P(Y(1),U,11),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(589,2,4,"GET")="S Y(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$S('$D(^PRPF(470.2,+$P(Y(1),U,11),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(589,2,4,"QCON")="I DISX(4)'="""""
^DIBT(589,2,4,"TXT")="FORM not null"
^DIBT(589,2,5,0)="470.1^6^REFERENCE^@^^^^^^4"
^DIBT(589,2,5,"GET")="S DISX(5)=$P($G(^PRPF(470.1,D0,0)),U,7)"
^DIBT(589,2,5,"QCON")="I DISX(5)'="""""
^DIBT(589,2,5,"SER")="0.0000^0.0000"
^DIBT(589,2,5,"TXT")="REFERENCE not null"
^DIBT(589,2,"B",470.1,1)=""
^DIBT(589,2,"B",470.1,2)=""
^DIBT(589,2,"B",470.1,3)=""
^DIBT(589,2,"B",470.1,4)=""
^DIBT(589,2,"B",470.1,5)=""
^DIBT(590,0)="PRPF DAILY TRANSACTION SUMMARY^2901129.1619^@^470.1^^@^2970224^"
^DIBT(590,2,0)="^.4014^1^1"
^DIBT(590,2,1,0)="470.1^5^DATE TRANSACTION ENTERED^+^;S2;""DATE ENTERED: ""^^^^^1"
^DIBT(590,2,1,"ASK")="1"
^DIBT(590,2,1,"F")="2970100.99999^2970101^1/1/97"
^DIBT(590,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470.1,D0,0)),U,6)"
^DIBT(590,2,1,"IX")="^PRPF(470.1,""AC"",^PRPF(470.1,^2"
^DIBT(590,2,1,"QCON")="I (DISX(1)]]2970100.99999)&(DISX(1)']]2970224)"
^DIBT(590,2,1,"T")="2970224^2970224^2/24/97"
^DIBT(590,2,1,"TXT")="DATE TRANSACTION ENTERED from 1/1/97 to 2/24/97"
^DIBT(590,2,"B",470.1,1)=""
^DIBT(591,0)="PRPF INACTIVE ACCOUNTS^2870713^@^470^^@^^"
^DIBT(591,2,1)="470^1^ACCOUNT STATUS^]^"
^DIBT(591,2,1,"F")="Hz"
^DIBT(591,2,1,"IX")="^PRPF(470,""AC"",^PRPF(470,^2"
^DIBT(591,2,1,"T")="z"
^DIBT(591,2,2)="470^^NAME^"".01^"
^DIBT(591,2,2,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(2)=X"
^DIBT(592,0)="PRPF INDIGENT LIST^2980219.1523^@^470^^@^2980219"
^DIBT(592,2,0)="^.4014^3^3"
^DIBT(592,2,1,0)="470^4^INDIGENT^]^^^^^^3"
^DIBT(592,2,1,"F")="Xz^Y^Y (YES)"
^DIBT(592,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470,D0,0)),U,5)"
^DIBT(592,2,1,"QCON")="I DISX(1)]]""Xz"""
^DIBT(592,2,1,"SER")="0.0000^0.0000"
^DIBT(592,2,1,"T")="z^"
^DIBT(592,2,1,"TXT")="INDIGENT from Y (YES)"
^DIBT(592,2,2,0)="470^1^ACCOUNT STATUS^^^^^^^3"
^DIBT(592,2,2,"F")="@z^A^A (ACTIVE)"
^DIBT(592,2,2,"GET")="S DISX(2)=$P($G(^PRPF(470,D0,0)),U,2)"
^DIBT(592,2,2,"IX")="^PRPF(470,""AC"",^PRPF(470,^2"
^DIBT(592,2,2,"QCON")="I DISX(2)=""A"""
^DIBT(592,2,2,"SER")="0.0000^0.0000"
^DIBT(592,2,2,"T")="A^A^A (ACTIVE)"
^DIBT(592,2,2,"TXT")="ACCOUNT STATUS equals A (ACTIVE)"
^DIBT(592,2,3,0)="470^^NAME^"".01^^^^^^4"
^DIBT(592,2,3,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(592,2,3,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(592,2,3,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(592,2,3,"PTRIX")="^DPT(""B"","
^DIBT(592,2,3,"QCON")="I DISX(3)'="""""
^DIBT(592,2,3,"SER")="0.0000^0.0000"
^DIBT(592,2,3,"TXT")="NAME not null"
^DIBT(592,2,"B",470,1)=""
^DIBT(592,2,"B",470,2)=""
^DIBT(592,2,"B",470,3)=""
^DIBT(592,"%D",0)="^^1^1^2980219^"
^DIBT(592,"%D",1,0)="Select all Active Indigent patients."
^DIBT(593,0)="PRPF PATIENT SUMMARY^2880106^@^470^^@^2970428^"
^DIBT(593,2,0)="^.4014^2^2"
^DIBT(593,2,1,0)="470^1^ACCOUNT STATUS^@^^^^^^3"
^DIBT(593,2,1,"F")="@z"
^DIBT(593,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470,D0,0)),U,2)"
^DIBT(593,2,1,"IX")="^PRPF(470,""AC"",^PRPF(470,^2"
^DIBT(593,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""B"")"
^DIBT(593,2,1,"T")="B"
^DIBT(593,2,1,"TXT")="ACCOUNT STATUS"
^DIBT(593,2,2,0)="470^^NAME^"".01^^^^^^4"
^DIBT(593,2,2,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(593,2,2,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(593,2,2,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(593,2,2,"PTRIX")="^DPT(""B"","
^DIBT(593,2,2,"QCON")="I DISX(2)'="""""
^DIBT(593,2,2,"TXT")="NAME not null"
^DIBT(593,2,"B",470,1)=""
^DIBT(593,2,"B",470,2)=""
^DIBT(594,0)="PRPF BY PATIENT^2870713^@^470^^@^2970417^"
^DIBT(594,2,0)="^.4014^1^1"
^DIBT(594,2,1,0)="470^^NAME^]"".01^^^^^^4"
^DIBT(594,2,1,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(594,2,1,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(594,2,1,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(594,2,1,"PTRIX")="^DPT(""B"","
^DIBT(594,2,1,"QCON")="I DISX(1)'="""""
^DIBT(594,2,1,"SER")="0.0000^0.0000"
^DIBT(594,2,1,"TXT")="NAME not null"
^DIBT(594,2,"B",470,1)=""
^DIBT(601,0)="PRPF SUSPENSE LIST^2870902^@^470^^@^2970422^"
^DIBT(601,2,0)="^.4014^2^2"
^DIBT(601,2,1,0)="470.03^.01^SUSPENSE DATE^]^;S^^^^^1"
^DIBT(601,2,1,1,0)="^.40141^1^1"
^DIBT(601,2,1,1,1,0)="470^5"
^DIBT(601,2,1,1,"B",470,1)=""
^DIBT(601,2,1,"ASK")="1"
^DIBT(601,2,1,"F")="2010100.99999^1/1/1901^1/1/01"
^DIBT(601,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470,D0,5,D1,0)),U,1)"
^DIBT(601,2,1,"IX")="^PRPF(470,""C"",^PRPF(470,^2"
^DIBT(601,2,1,"QCON")="I (DISX(1)]]2010100.99999)&(DISX(1)']]2970427)"
^DIBT(601,2,1,"T")="2970427^T+5^4/27/97"
^DIBT(601,2,1,"TXT")="SUSPENSE DATE from 1/1/01 to 4/27/97"
^DIBT(601,2,2,0)="470^^NAME^"".01^^^^^^4"
^DIBT(601,2,2,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(601,2,2,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(601,2,2,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(601,2,2,"PTRIX")="^DPT(""B"","
^DIBT(601,2,2,"QCON")="I DISX(2)'="""""
^DIBT(601,2,2,"SER")="0.0000^0.0000"
^DIBT(601,2,2,"TXT")="NAME not null"
^DIBT(601,2,"B",470,2)=""
^DIBT(601,2,"B",470.03,1)=""
^DIBT(603,0)="PRPF LIST^2871214^@^470^^@^^"
^DIBT(603,"DIS",0)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) I X'?."" """
^DIBT(603,"O",0)="^"
^DIBT(603,"O",1,0)="NAME NOT NULL"
^DIBT(604,0)="PRPF FISCAL ACTIVITY REPORT^2880713^@^470.1^^@^2960925^"
^DIBT(604,2,0)="^.4014^4^4"
^DIBT(604,2,1,0)="470.1^4^TRANSACTION DATE^+^;S2^^^^^1"
^DIBT(604,2,1,"ASK")="1"
^DIBT(604,2,1,"F")="2960800.99999^8 1 96^8/1/96"
^DIBT(604,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470.1,D0,0)),U,5)"
^DIBT(604,2,1,"IX")="^PRPF(470.1,""AD"",^PRPF(470.1,^2"
^DIBT(604,2,1,"QCON")="I (DISX(1)]]2960800.99999)&(DISX(1)']]2960830)"
^DIBT(604,2,1,"SER")="100.0000^1.0000"
^DIBT(604,2,1,"T")="2960830^8 30 96^8/30/96"
^DIBT(604,2,1,"TXT")="TRANSACTION DATE from 8/1/96 to 8/30/96"
^DIBT(604,2,2,0)="470.1^7^DEPOSIT/WITHDRAWAL^+^;S^^^^^3"
^DIBT(604,2,2,"GET")="S DISX(2)=$P($G(^PRPF(470.1,D0,0)),U,8)"
^DIBT(604,2,2,"QCON")="I DISX(2)'="""""
^DIBT(604,2,2,"SER")="0.0000^0.0000"
^DIBT(604,2,2,"TXT")="DEPOSIT/WITHDRAWAL not null"
^DIBT(604,2,3,0)="470.1^^FORM^+""10^;S^^^^^4"
^DIBT(604,2,3,"CM")="S Y(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$S('$D(^PRPF(470.2,+$P(Y(1),U,11),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(604,2,3,"GET")="S Y(1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$S('$D(^PRPF(470.2,+$P(Y(1),U,11),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(604,2,3,"QCON")="I DISX(3)'="""""
^DIBT(604,2,3,"TXT")="FORM not null"
^DIBT(604,2,4,0)="470.1^6^REFERENCE^@^^^^^^4"
^DIBT(604,2,4,"GET")="S DISX(4)=$P($G(^PRPF(470.1,D0,0)),U,7)"
^DIBT(604,2,4,"QCON")="I DISX(4)'="""""
^DIBT(604,2,4,"SER")="0.0000^0.0000"
^DIBT(604,2,4,"TXT")="REFERENCE not null"
^DIBT(604,2,"B",470.1,1)=""
^DIBT(604,2,"B",470.1,2)=""
^DIBT(604,2,"B",470.1,3)=""
^DIBT(604,2,"B",470.1,4)=""
^DIBT(605,0)="PRPF FISCAL TRANS SUMMARY^2880713^@^470.1^^@^2960925^"
^DIBT(605,2,0)="^.4014^1^1"
^DIBT(605,2,1,0)="470.1^4^TRANSACTION DATE^]+^;S2^^^^^1"
^DIBT(605,2,1,"ASK")="1"
^DIBT(605,2,1,"F")="2960800.99999^8 1 96^8/1/96"
^DIBT(605,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470.1,D0,0)),U,5)"
^DIBT(605,2,1,"IX")="^PRPF(470.1,""AD"",^PRPF(470.1,^2"
^DIBT(605,2,1,"QCON")="I DISX(1)]]2960800.99999"
^DIBT(605,2,1,"T")="z^"
^DIBT(605,2,1,"TXT")="TRANSACTION DATE from 8/1/96"
^DIBT(605,2,"B",470.1,1)=""
^DIBT(606,0)="PRPF BALANCE IN ACCOUNTS^2880322^@^470^^@^^"
^DIBT(606,2,1)="470^1^ACCOUNT STATUS^]+^;S3"
^DIBT(606,2,1,"IX")="^PRPF(470,""AC"",^PRPF(470,^2"
^DIBT(607,0)="IBD PRIM CARE SEARCH^2960530.1526^@^357.6^^@^2960530"
^DIBT(607,"%D",0)="^^1^1^2960530^"
^DIBT(607,"%D",1,0)="List of new primary care interfaces for patch."
^DIBT(607,"DC",1)=".01^[""PRIMARY CARE""^"
^DIBT(607,"DIS",0)="I $S($D(^IBE(357.6,D0,0)):$P(^(0),U,1),1:"""")[""PRIMARY CARE"""
^DIBT(607,"DL")="1"
^DIBT(607,"DL",0)="^1^"
^DIBT(607,"O",0)="^"
^DIBT(607,"O",1,0)="NAME CONTAINS ""PRIMARY CARE"""
^DIBT(607,"QR")="2960530.152646^2"
^DIBT(608,0)="IBD RPC LIST^2960604.1119^@^8994^^@"
^DIBT(608,"%D",0)="^^1^1^2960604^^"
^DIBT(608,"%D",1,0)="AICS Remote Procedure List"
^DIBT(608,"QR")="2960604^8"
^DIBT(609,0)="IBD LIST ERRORS^2970314.1644^@^359.3^^@^2970416"
^DIBT(609,2,0)="^.4014^4^4"
^DIBT(609,2,1,0)="359.3^.01^ERROR DATE/TIME^'@^^^^^^1"
^DIBT(609,2,1,"ASK")="1"
^DIBT(609,2,1,"F")="2970415.99999^T^4/16/97"
^DIBT(609,2,1,"GET")="S DISX(1)=$P($G(^IBD(359.3,D0,0)),U,1)"
^DIBT(609,2,1,"IX")="^IBD(359.3,""B"",^IBD(359.3,^2"
^DIBT(609,2,1,"QCON")="I (DISX(1)]]2970415.99999)&(DISX(1)']]2970416.235959)"
^DIBT(609,2,1,"SER")="100.0000^1.0000"
^DIBT(609,2,1,"T")="2970416.235959^T@23:59:59^4/16/97@23:59:59"
^DIBT(609,2,1,"TXT")="ERROR DATE/TIME from 4/16/97 to 4/16/97@23:59:59"
^DIBT(609,2,2,0)="359.3^^USER^#"".13^^^^^^4"
^DIBT(609,2,2,"ASK")="1"
^DIBT(609,2,2,"CM")="S Y(1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,13),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(609,2,2,"F")="@z^A"
^DIBT(609,2,2,"GET")="S Y(1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,13),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(609,2,2,"IX")="^IBD(359.3,""AC"",^IBD(359.3,^2"
^DIBT(609,2,2,"PTRIX")="^VA(200,""B"","
^DIBT(609,2,2,"QCON")="I DISX(2)'="""""
^DIBT(609,2,2,"SER")="0.0000^0.0000"
^DIBT(609,2,2,"T")="A^A"
^DIBT(609,2,2,"TXT")="USER not null"
^DIBT(609,2,3,0)="359.3^^PATIENT^"".02^^^^^^4"
^DIBT(609,2,3,"CM")="S Y(1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(609,2,3,"F")="?z^@"
^DIBT(609,2,3,"GET")="S Y(1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(609,2,3,"QCON")="I 1"
^DIBT(609,2,3,"T")="z^"
^DIBT(609,2,3,"TXT")="All PATIENT (includes nulls)"
^DIBT(609,2,4,0)="359.3^.03^ENCOUNTER DATE/TIME^^;S1^^^^^1"
^DIBT(609,2,4,"F")="?z^@"
^DIBT(609,2,4,"GET")="S DISX(4)=$P($G(^IBD(359.3,D0,0)),U,3)"
^DIBT(609,2,4,"QCON")="I 1"
^DIBT(609,2,4,"SER")="0.0000^0.0000"
^DIBT(609,2,4,"T")="z^"
^DIBT(609,2,4,"TXT")="All ENCOUNTER DATE/TIME (includes nulls)"
^DIBT(609,2,"B",359.3,1)=""
^DIBT(609,2,"B",359.3,2)=""
^DIBT(609,2,"B",359.3,3)=""
^DIBT(609,2,"B",359.3,4)=""
^DIBT(610,0)="ICPT NEW/INACTIVE CODES^2970326.1359^@^81^^@^2970409"
^DIBT(610,2,0)="^.4014^3^3"
^DIBT(610,2,1,0)="81.02^.01^EFFECTIVE DATE^@@@^^^^^^1"
^DIBT(610,2,1,1,0)="^.40141^1^1"
^DIBT(610,2,1,1,1,0)="81^60"
^DIBT(610,2,1,1,"B",81,1)=""
^DIBT(610,2,1,"ASK")="1"
^DIBT(610,2,1,"F")="2970601.99999^2970602^6/2/97"
^DIBT(610,2,1,"GET")="S DISX(1)=$P($G(^ICPT(D0,60,D1,0)),U)"
^DIBT(610,2,1,"QCON")="I DISX(1)=2970602"
^DIBT(610,2,1,"T")="2970602^2970602^6/2/97"
^DIBT(610,2,1,"TXT")="EFFECTIVE DATE equals 6/2/97"
^DIBT(610,2,2,0)="81^5^INACTIVE FLAG^@^^^^^^3"
^DIBT(610,2,2,"ASK")="1"
^DIBT(610,2,2,"F")=".99999^1^1 (INACTIVE CODE)"
^DIBT(610,2,2,"GET")="S DISX(2)=$P($G(^ICPT(D0,0)),U,4)"
^DIBT(610,2,2,"QCON")="I DISX(2)=1"
^DIBT(610,2,2,"SER")="0.9109^0.9109"
^DIBT(610,2,2,"T")="1^1^1 (INACTIVE CODE)"
^DIBT(610,2,2,"TXT")="INACTIVE FLAG equals 1 (INACTIVE CODE)"
^DIBT(610,2,3,0)="81^.01^CPT CODE^@^^^^^^4"
^DIBT(610,2,3,"ASK")="1"
^DIBT(610,2,3,"F")="-1^0"
^DIBT(610,2,3,"GET")="S DISX(3)=$P($G(^ICPT(D0,0)),U)"
^DIBT(610,2,3,"IX")="^ICPT(""B"",^ICPT(^2"
^DIBT(610,2,3,"QCON")="I DISX(3)'="""""
^DIBT(610,2,3,"SER")="0^0"
^DIBT(610,2,3,"T")="z^"
^DIBT(610,2,3,"TXT")="CPT CODE not null"
^DIBT(610,2,"B",81,2)=""
^DIBT(610,2,"B",81,3)=""
^DIBT(610,2,"B",81.02,1)=""
^DIBT(610,"%D",0)="^^2^2^2970326^^^"
^DIBT(610,"%D",1,0)="This template will gather all the CPT codes that are newly active or"
^DIBT(610,"%D",2,0)="inactive, as of the current distribution date. ($$CPTDIST^ICPTAPIU)"
^DIBT(611,0)="ICPT MODIFIERS FOR RANGE^2970327.1245^@^81.3^^@^2970404"
^DIBT(611,2,0)="^.4014^3^3"
^DIBT(611,2,1,0)="81.32^.01^BEGIN CPT RANGE^^;S1^^^^^4"
^DIBT(611,2,1,1,0)="^.40141^1^1"
^DIBT(611,2,1,1,1,0)="81.3^10"
^DIBT(611,2,1,1,"B",81.3,1)=""
^DIBT(611,2,1,"F")="-1^0"
^DIBT(611,2,1,"GET")="S DISX(1)=$P($G(^DIC(81.3,D0,10,D1,0)),U)"
^DIBT(611,2,1,"QCON")="I DISX(1)]]-1"
^DIBT(611,2,1,"T")="z^"
^DIBT(611,2,1,"TXT")="BEGIN CPT RANGE from 0"
^DIBT(611,2,2,0)="81.32^.02^END CPT RANGE^^^^^^^4"
^DIBT(611,2,2,1,0)="^.40141^1^1"
^DIBT(611,2,2,1,1,0)="81.3^10"
^DIBT(611,2,2,1,"B",81.3,1)=""
^DIBT(611,2,2,"F")="-1^0"
^DIBT(611,2,2,"GET")="S DISX(2)=$P($G(^DIC(81.3,D0,10,D1,0)),U,2)"
^DIBT(611,2,2,"QCON")="I DISX(2)]]-1"
^DIBT(611,2,2,"T")="z^"
^DIBT(611,2,2,"TXT")="END CPT RANGE from 0"
^DIBT(611,2,3,0)="81.3^.01^MODIFIER^^^^^^^4"
^DIBT(611,2,3,"GET")="S DISX(3)=$P($G(^DIC(81.3,D0,0)),U)"
^DIBT(611,2,3,"IX")="^DIC(81.3,""B"",^DIC(81.3,^2"
^DIBT(611,2,3,"QCON")="I DISX(3)'="""""
^DIBT(611,2,3,"SER")="0^0"
^DIBT(611,2,3,"TXT")="MODIFIER not null"
^DIBT(611,2,"B",81.3,3)=""
^DIBT(611,2,"B",81.32,1)=""
^DIBT(611,2,"B",81.32,2)=""
^DIBT(611,"%D",0)="^^3^3^2970327^^"
^DIBT(611,"%D",1,0)="This will list out all the modifiers that apply to a range of"
^DIBT(611,"%D",2,0)="codes."
^DIBT(611,"%D",3,0)=" "
^DIBT(612,0)="PRPF RANGE OF CARDS^2900302.1422^^470^^^2970324^"
^DIBT(612,2,0)="^.4014^1^1"
^DIBT(612,2,1,0)="470^^NAME^]"".01^^^^^^4"
^DIBT(612,2,1,"ASK")="1"
^DIBT(612,2,1,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(612,2,1,"F")="@z^A"
^DIBT(612,2,1,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(612,2,1,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(612,2,1,"PTRIX")="^DPT(""B"","
^DIBT(612,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""ZZ"")"
^DIBT(612,2,1,"T")="ZZ^ZZ"
^DIBT(612,2,1,"TXT")="NAME from A to ZZ"
^DIBT(612,2,"B",470,1)=""
^DIBT(613,0)="PRPF CURRENT BAL^2910910.2248^^470^^^^"
^DIBT(613,2,0)="^.4014^2^2"
^DIBT(613,2,1,0)="470^^NAME^@"".01^^^^^^4"
^DIBT(613,2,1,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(613,2,1,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(613,2,1,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(613,2,1,"PTRIX")="^DPT(""B"","
^DIBT(613,2,1,"QCON")="I DISX(1)'="""""
^DIBT(613,2,1,"SER")="0.0000^0.0000"
^DIBT(613,2,1,"TXT")="NAME not null"
^DIBT(613,2,2,0)="470^1^ACCOUNT STATUS^@^^^^^^3"
^DIBT(613,2,2,"F")="@z^A"
^DIBT(613,2,2,"GET")="S DISX(2)=$P($G(^PRPF(470,D0,0)),U,2)"
^DIBT(613,2,2,"IX")="^PRPF(470,""AC"",^PRPF(470,^2"
^DIBT(613,2,2,"QCON")="I DISX(2)=""A"""
^DIBT(613,2,2,"SER")="11.6250^0.9208"
^DIBT(613,2,2,"T")="A^A"
^DIBT(613,2,2,"TXT")="ACCOUNT STATUS equals A"
^DIBT(613,2,"B",470,1)=""
^DIBT(613,2,"B",470,2)=""
^DIBT(614,0)="PRPF DAYS BETWEEN DATES^2970318.1533^^470.1^^^2970318"
^DIBT(614,2,0)="^.4014^2^2"
^DIBT(614,2,1,0)="470.1^5^DATE TRANSACTION ENTERED^^^^^^^1"
^DIBT(614,2,1,"ASK")="1"
^DIBT(614,2,1,"F")="2970200.99999^2 1 97^2/1/97"
^DIBT(614,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470.1,D0,0)),U,6)"
^DIBT(614,2,1,"IX")="^PRPF(470.1,""AC"",^PRPF(470.1,^2"
^DIBT(614,2,1,"QCON")="I DISX(1)]]2970200.99999"
^DIBT(614,2,1,"SER")="100.0000^1.0000"
^DIBT(614,2,1,"T")="z^"
^DIBT(614,2,1,"TXT")="DATE TRANSACTION ENTERED from 2/1/97"
^DIBT(614,2,2,0)="470.1^^DAYS BETWEEN DATES'=0^'""@B^;L1^^^^^4"
^DIBT(614,2,2,"CM")="X $P(^DD(470.1,5.5,0),U,5,99) S Y(1)=X S X=Y(1)'=0 I D0>0 S DISX(2)=X"
^DIBT(614,2,2,"F")="0"
^DIBT(614,2,2,"GET")="X $P(^DD(470.1,5.5,0),U,5,99) S Y(1)=X S X=Y(1)'=0 I D0>0 S DISX(2)=X"
^DIBT(614,2,2,"QCON")="I DISX(2)"
^DIBT(614,2,2,"T")="1"
^DIBT(614,2,2,"TXT")="DAYS BETWEEN DATES'=0"
^DIBT(614,2,"B",470.1,1)=""
^DIBT(614,2,"B",470.1,2)=""
^DIBT(614,"%D",0)="^^3^3^2970318^^^"
^DIBT(614,"%D",1,0)="This template allows the supervisor/fiscal auditor to examine transactions"
^DIBT(614,"%D",2,0)="which have differing values for the transaction date and the date the"
^DIBT(614,"%D",3,0)="transaction was entered."
^DIBT(615,0)="PRPF DORMANT ACCOUNT LIST^2871214^^470^^^^"
^DIBT(615,2,0)="^.4014^2^2"
^DIBT(615,2,1,0)="470^61^ON DORMANT ACCOUNT LIST^]@^^^^^^3"
^DIBT(615,2,1,"F")="Xz"
^DIBT(615,2,1,"GET")="S DISX(1)=$P($G(^PRPF(470,D0,1)),U,14)"
^DIBT(615,2,1,"IX")="^PRPF(470,""AE"",^PRPF(470,^2"
^DIBT(615,2,1,"QCON")="I DISX(1)]]""Xz"""
^DIBT(615,2,1,"SER")="0.0000^0.0000"
^DIBT(615,2,1,"T")="z"
^DIBT(615,2,1,"TXT")="ON DORMANT ACCOUNT LIST"
^DIBT(615,2,2,0)="470^^NAME^"".01^^^^^^4"
^DIBT(615,2,2,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(615,2,2,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(615,2,2,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(615,2,2,"PTRIX")="^DPT(""B"","
^DIBT(615,2,2,"QCON")="I DISX(2)'="""""
^DIBT(615,2,2,"SER")="0.0000^0.0000"
^DIBT(615,2,2,"TXT")="NAME not null"
^DIBT(615,2,"B",470,1)=""
^DIBT(615,2,"B",470,2)=""
^DIBT(616,0)="PRPF SUSPENSE DISPLAY^2950428.1209^^470^^^2970303^"
^DIBT(616,2,0)="^.4014^2^2"
^DIBT(616,2,1,0)="470^^NAME^"".01^^^^^^4"
^DIBT(616,2,1,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(616,2,1,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(616,2,1,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(616,2,1,"PTRIX")="^DPT(""B"","
^DIBT(616,2,1,"QCON")="I DISX(1)'="""""
^DIBT(616,2,1,"SER")="0.0000^0.0000"
^DIBT(616,2,1,"TXT")="NAME not null"
^DIBT(616,2,2,0)="470.03^.01^SUSPENSE DATE^^;S^^^^^1"
^DIBT(616,2,2,1,0)="^.40141^1^1"
^DIBT(616,2,2,1,1,0)="470^5"
^DIBT(616,2,2,1,"B",470,1)=""
^DIBT(616,2,2,"ASK")="1"
^DIBT(616,2,2,"F")="2010100.99999^010101^1/1/01"
^DIBT(616,2,2,"GET")="S DISX(2)=$P($G(^PRPF(470,D0,5,D1,0)),U,1)"
^DIBT(616,2,2,"IX")="^PRPF(470,""C"",^PRPF(470,^2"
^DIBT(616,2,2,"QCON")="I DISX(2)'="""""
^DIBT(616,2,2,"T")="z^"
^DIBT(616,2,2,"TXT")="SUSPENSE DATE not null"
^DIBT(616,2,"B",470,1)=""
^DIBT(616,2,"B",470.03,2)=""
^DIBT(617,0)="PRCH IMPAC SORT^3001214.0954^@^440.5^^@^3020117"
^DIBT(617,2,0)="^.4014^3^3"
^DIBT(617,2,1,0)="440.5^^APPROVING OFFICIAL^#""8^^^^^^4"
^DIBT(617,2,1,"CM")="S Y(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(617,2,1,"F")="@z^A"
^DIBT(617,2,1,"GET")="S Y(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(617,2,1,"IX")="^PRC(440.5,""E"",^PRC(440.5,^2"
^DIBT(617,2,1,"PTRIX")="^VA(200,""B"","
^DIBT(617,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""Z"")"
^DIBT(617,2,1,"SER")="0.4179^0.2947"
^DIBT(617,2,1,"T")="ZZ^ZZ"
^DIBT(617,2,1,"TXT")="APPROVING OFFICIAL from A to Z"
^DIBT(617,2,2,0)="440.5^.01^PURCHASE CARD NUMBER^^^^^^^4"
^DIBT(617,2,2,"GET")="S DISX(2)=$P($G(^PRC(440.5,D0,0)),U)"
^DIBT(617,2,2,"IX")="^PRC(440.5,""B"",^PRC(440.5,^2"
^DIBT(617,2,2,"QCON")="I DISX(2)'="""""
^DIBT(617,2,2,"SER")="0^0"
^DIBT(617,2,2,"TXT")="PURCHASE CARD NUMBER not null"
^DIBT(617,2,3,0)="440.5^^STATION NUMBER^+""15^^^^^^4"
^DIBT(617,2,3,"ASK")="1"
^DIBT(617,2,3,"CM")="S Y(1)=$S($D(^PRC(440.5,D0,2)):^(2),1:"""") S X=$S('$D(^PRC(411,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(617,2,3,"GET")="S Y(1)=$S($D(^PRC(440.5,D0,2)):^(2),1:"""") S X=$S('$D(^PRC(411,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(617,2,3,"QCON")="I DISX(3)'="""""
^DIBT(617,2,3,"TXT")="STATION NUMBER not null"
^DIBT(617,2,"B",440.5,1)=""
^DIBT(617,2,"B",440.5,2)=""
^DIBT(617,2,"B",440.5,3)=""
^DIBT(617,"%D",0)="^.4012^2^2^3001214^^^"
^DIBT(617,"%D",1,0)="This sort template, on approving official and card number,"
^DIBT(617,"%D",2,0)="is used with the PRCH IMPAC INFO report."
^DIBT(618,0)="MCARGEN^2970701.1459^@^697.2^^@^2970701"
^DIBT(618,"%D",0)="^^2^2^2970701^^^^"
^DIBT(618,"%D",1,0)="This sort template is to export the entries for generalized procedures,"
^DIBT(618,"%D",2,0)="and to fix three entries BRON, LAR, and LAV for Pulmonary Endoscopy."
^DIBT(618,"DIS",1)="I $S($D(^MCAR(697.2,D0,0)):$P(^(0),U,9),1:"""")=1 I $S($D(^MCAR(697.2,D0,0)):$P(^(0),U,19),1:"""")?."" """
^DIBT(618,"DIS",2)="I $S($D(^MCAR(697.2,D0,0)):$P(^(0),U,4),1:"""")=""P"""
^DIBT(618,"DL")="^DIBT(+Y,"
^DIBT(618,"O",0)="^"
^DIBT(618,"O",1,0)="USED WITH GENERIC MODULE? EQUALS 1^YES"
^DIBT(618,"O",2,0)="   and LOCALLY DEFINED NULL"
^DIBT(618,"O",3,0)=" Or TYPE OF PROCEDURE EQUALS ""P""^PULMONARY ENDOSCOPY"
^DIBT(618,"QR")="2970701.150206^49"
^DIBT(619,0)="MCARGENS^2970522.1101^@^697.3^^@^2970522"
^DIBT(619,"%D",0)="^^2^2^2970522^^"
^DIBT(619,"%D",1,0)="This sort template is to export the screen changes for the Generalized"
^DIBT(619,"%D",2,0)="Procedure module."
^DIBT(619,"DC",1)=".01^=""MCFSGEN""^"
^DIBT(619,"DC",2)=".01^=""MCBSGEN""^"
^DIBT(619,"DIS",1)="I $S($D(^MCAR(697.3,D0,0)):$P(^(0),U,1),1:"""")=""MCFSGEN"""
^DIBT(619,"DIS",2)="I $S($D(^MCAR(697.3,D0,0)):$P(^(0),U,1),1:"""")=""MCBSGEN"""
^DIBT(619,"DL")="2"
^DIBT(619,"DL",0)=""
^DIBT(619,"DL",1)="^1^"
^DIBT(619,"DL",2)="^2^"
^DIBT(619,"O",0)="^"
^DIBT(619,"O",1,0)="NAME EQUALS ""MCFSGEN"""
^DIBT(619,"O",2,0)=" Or NAME EQUALS ""MCBSGEN"""
^DIBT(619,"QR")="2970522.110133^2"
^DIBT(620,0)="MCARGENV^2970522.1222^@^690.2^^@^2970522"
^DIBT(620,"%D",0)="^^2^2^2970522^"
^DIBT(620,"%D",1,0)="This sort template is to export entries in Medicine View for the"
^DIBT(620,"%D",2,0)="Generalized Procedure module."
^DIBT(620,"DA")="DIS(""A1"","
^DIBT(620,"DC",1)=".01^=""Full Generic""^"
^DIBT(620,"DC",2)=".01^=""Brief Generic""^"
^DIBT(620,"DIS",1)="I $S($D(^MCAR(690.2,D0,0)):$P(^(0),U,1),1:"""")=""Full Generic"""
^DIBT(620,"DIS",2)="I $S($D(^MCAR(690.2,D0,0)):$P(^(0),U,1),1:"""")=""Brief Generic"""
^DIBT(620,"DL")="2"
^DIBT(620,"DL",0)=""
^DIBT(620,"DL",1)="^1^"
^DIBT(620,"DL",2)="^2^"
^DIBT(620,"O",0)="^"
^DIBT(620,"O",1,0)="PRINT VIEW TEMPLATE NAME EQUALS ""Full Generic"""
^DIBT(620,"O",2,0)=" Or PRINT VIEW TEMPLATE NAME EQUALS ""Brief Generic"""
^DIBT(620,"QR")="2970522.12242^2"
^DIBT(621,0)="GRS_971006^2971006.1148^@^745.2^0^@^2971006"
^DIBT(621,2,0)="^.4014^3^3"
^DIBT(621,2,1,0)="745.2^^HEADING (Y/N)=""YES""^""@B^;L1^^^^^4"
^DIBT(621,2,1,"CM")="S Y(2)=$C(59)_$S($D(^DD(745.2,1,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)=""YES"" I D0>0 S DISX(1)=X"
^DIBT(621,2,1,"F")="0"
^DIBT(621,2,1,"GET")="S Y(2)=$C(59)_$S($D(^DD(745.2,1,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)=""YES"" I D0>0 S DISX(1)=X"
^DIBT(621,2,1,"QCON")="I DISX(1)"
^DIBT(621,2,1,"T")="1"
^DIBT(621,2,1,"TXT")="HEADING (Y/N)=""""YES"""""
^DIBT(621,2,2,0)="745.2^^STATUS=""NATIONAL""^""@B^;L1^^^^^4"
^DIBT(621,2,2,"CM")="S Y(2)=$C(59)_$S($D(^DD(745.2,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""NATIONAL"" I D0>0 S DISX(2)=X"
^DIBT(621,2,2,"F")="0"
^DIBT(621,2,2,"GET")="S Y(2)=$C(59)_$S($D(^DD(745.2,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""NATIONAL"" I D0>0 S DISX(2)=X"
^DIBT(621,2,2,"QCON")="I DISX(2)"
^DIBT(621,2,2,"T")="1"
^DIBT(621,2,2,"TXT")="STATUS=""""NATIONAL"""""
^DIBT(621,2,3,0)="745.2^.01^CODE^^^^^^^4"
^DIBT(621,2,3,"GET")="S DISX(3)=$P($G(^QA(745.2,D0,0)),U)"
^DIBT(621,2,3,"IX")="^QA(745.2,""B"",^QA(745.2,^2"
^DIBT(621,2,3,"QCON")="I DISX(3)'="""""
^DIBT(621,2,3,"SER")="0^0"
^DIBT(621,2,3,"TXT")="CODE not null"
^DIBT(621,2,"B",745.2,1)=""
^DIBT(621,2,"B",745.2,2)=""
^DIBT(621,2,"B",745.2,3)=""
^DIBT(623,0)="PRCHOUT PA STATS DAILY^2970521.0803^@^442^^@^2970908"
^DIBT(623,2,0)="^.4014^2^2"
^DIBT(623,2,1,0)="442^^PA/PPM/AUTHORIZED BUYER^+""16^;S2^^^^^4"
^DIBT(623,2,1,"ASK")="1"
^DIBT(623,2,1,"CM")="S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(623,2,1,"F")="@z^A"
^DIBT(623,2,1,"GET")="S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(623,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""CZ"")"
^DIBT(623,2,1,"T")="CZ^CZ"
^DIBT(623,2,1,"TXT")="PA/PPM/AUTHORIZED BUYER from A to CZ"
^DIBT(623,2,2,0)="442^.1^P.O. DATE^@^^^^^^1"
^DIBT(623,2,2,"ASK")="1"
^DIBT(623,2,2,"F")="2970600.99999^0601^6/1/97"
^DIBT(623,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(623,2,2,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(623,2,2,"QCON")="I (DISX(2)]]2970600.99999)&(DISX(2)']]2970801)"
^DIBT(623,2,2,"SER")="2.3667^0.7030"
^DIBT(623,2,2,"T")="2970801^0801^8/1/97"
^DIBT(623,2,2,"TXT")="P.O. DATE from 6/1/97 to 8/1/97"
^DIBT(623,2,"B",442,1)=""
^DIBT(623,2,"B",442,2)=""
^DIBT(624,0)="PRCH DEL. REC^2970612.1452^@^440.6^^@^2971119"
^DIBT(624,2,0)="^.4014^3^3"
^DIBT(624,2,1,0)="440.6^^CARD HOLDER^""16^^^^^^4"
^DIBT(624,2,1,"ASK")="1"
^DIBT(624,2,1,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(624,2,1,"F")="ZFz^ZG"
^DIBT(624,2,1,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(624,2,1,"QCON")="I DISX(1)=""ZG"""
^DIBT(624,2,1,"T")="ZG^ZG"
^DIBT(624,2,1,"TXT")="CARD HOLDER equals ZG"
^DIBT(624,2,2,0)="440.6^6^TRANSACTION DATE^@^^^^^^1"
^DIBT(624,2,2,"ASK")="1"
^DIBT(624,2,2,"F")="2970522.99999^T-20^5/23/97"
^DIBT(624,2,2,"GET")="S DISX(2)=$P($G(^PRCH(440.6,D0,0)),U,7)"
^DIBT(624,2,2,"QCON")="I DISX(2)'="""""
^DIBT(624,2,2,"T")="2970612^T^6/12/97"
^DIBT(624,2,2,"TXT")="TRANSACTION DATE not null"
^DIBT(624,2,3,0)="440.6^^XUWORKDAY(#46,#6)>5^@""@B^;L1^^^^^4"
^DIBT(624,2,3,"CM")="S Y(3)=$S($D(^PRCH(440.6,D0,0)):^(0),1:""""),Y(1)=$S($D(^(1)):^(1),1:"""") S X=$P(Y(1),U,6),Y(2)=X S X=$P(Y(3),U,7),X1=Y(2) D ^XUWORKDY S X=X>5 I D0>0 S DISX(3)=X"
^DIBT(624,2,3,"F")="0"
^DIBT(624,2,3,"GET")="S Y(3)=$S($D(^PRCH(440.6,D0,0)):^(0),1:""""),Y(1)=$S($D(^(1)):^(1),1:"""") S X=$P(Y(1),U,6),Y(2)=X S X=$P(Y(3),U,7),X1=Y(2) D ^XUWORKDY S X=X>5 I D0>0 S DISX(3)=X"
^DIBT(624,2,3,"QCON")="I DISX(3)"
^DIBT(624,2,3,"T")="1"
^DIBT(624,2,3,"TXT")="XUWORKDAY(#46,#6)>5"
^DIBT(624,2,"B",440.6,1)=""
^DIBT(624,2,"B",440.6,2)=""
^DIBT(624,2,"B",440.6,3)=""
^DIBT(625,0)="PRCH WORKLOAD1^3001129.135^@^442^^@^3010409"
^DIBT(625,2,0)="^.4014^4^4"
^DIBT(625,2,1,0)="442^^METHOD OF PROCESSING^@"".02^^^^^^4"
^DIBT(625,2,1,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(625,2,1,"F")="PURCHASE CARCz^PURCHASE CARD"
^DIBT(625,2,1,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$S('$D(^PRCD(442.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(625,2,1,"IX")="^PRC(442,""F"",^PRC(442,^2"
^DIBT(625,2,1,"PTRIX")="^PRCD(442.5,""B"","
^DIBT(625,2,1,"QCON")="I (DISX(1)]]""PURCHASE CARCz"")&(DISX(1)']]""PURCHASE CARZ"")"
^DIBT(625,2,1,"SER")="0.8704^0.4653"
^DIBT(625,2,1,"T")="PURCHASE CARZ^PURCHASE CARZ"
^DIBT(625,2,1,"TXT")="METHOD OF PROCESSING from PURCHASE CARD to PURCHASE CARZ"
^DIBT(625,2,2,0)="442^^PURCHASE CARD HOLDER^""61^^^^^^4"
^DIBT(625,2,2,"ASK")="1"
^DIBT(625,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,23)):^(23),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,22),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(625,2,2,"F")="@z^A"
^DIBT(625,2,2,"GET")="S Y(1)=$S($D(^PRC(442,D0,23)):^(23),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,22),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(625,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(625,2,2,"T")="Z^Z"
^DIBT(625,2,2,"TXT")="PURCHASE CARD HOLDER from A to Z"
^DIBT(625,2,3,0)="442^17^VALIDATION DATE/TIME^@^^^^^^1"
^DIBT(625,2,3,"ASK")="1"
^DIBT(625,2,3,"F")="3010100.999999^1.1.01^Jan 1,2001"
^DIBT(625,2,3,"GET")="S DISX(3)=$P($G(^PRC(442,D0,12)),U,3)"
^DIBT(625,2,3,"QCON")="I (DISX(3)]]3010100.999999)&(DISX(3)']]3010409.24)"
^DIBT(625,2,3,"SER")="0.9010^0.9010"
^DIBT(625,2,3,"T")="3010409.24^T@2400^Apr 9,2001@24:00"
^DIBT(625,2,3,"TXT")="VALIDATION DATE/TIME from Jan 1,2001 to Apr 9,2001@24:00"
^DIBT(625,2,4,0)="440.5^^STATION NUMBER^""+@""15^^^^^^4"
^DIBT(625,2,4,2,0)="^.401418^1^1"
^DIBT(625,2,4,2,1,0)="442^100^440.5^PRC(440.5,^0"
^DIBT(625,2,4,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^PRC(442,D0,23)):^(23),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X"
^DIBT(625,2,4,2,"B",442,1)=""
^DIBT(625,2,4,"ASK")="1"
^DIBT(625,2,4,"CM")="S Y(101)=$S($D(^PRC(440.5,D0,2)):^(2),1:"""") S X=$S('$D(^PRC(411,+$P(Y(101),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(625,2,4,"F")="661.999999^662"
^DIBT(625,2,4,"GET")="S Y(101)=$S($D(^PRC(440.5,D0,2)):^(2),1:"""") S X=$S('$D(^PRC(411,+$P(Y(101),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(625,2,4,"QCON")="I (DISX(4)]]661.999999)&(DISX(4)']]688)"
^DIBT(625,2,4,"T")="688^688"
^DIBT(625,2,4,"TXT")="STATION NUMBER from 662 to 688"
^DIBT(625,2,"B",440.5,4)=""
^DIBT(625,2,"B",442,1)=""
^DIBT(625,2,"B",442,2)=""
^DIBT(625,2,"B",442,3)=""
^DIBT(625,"%D",0)="^.4012^2^2^3001129^^"
^DIBT(625,"%D",1,0)="This sort template is used to track how quickly users"
^DIBT(625,"%D",2,0)="complete purchase card orders."
^DIBT(626,0)="PRCH FINAL CHARGE1^2970610.1456^@^440.6^^@^2971020"
^DIBT(626,2,0)="^.4014^2^2"
^DIBT(626,2,1,0)="440.6^44^FINAL CHARGE^@^^^^^^3"
^DIBT(626,2,1,"F")="Xz^Y^Y (YES)"
^DIBT(626,2,1,"GET")="S DISX(1)=$P($G(^PRCH(440.6,D0,1)),U,4)"
^DIBT(626,2,1,"QCON")="I DISX(1)=""Y"""
^DIBT(626,2,1,"SER")="0.9462^0.9462"
^DIBT(626,2,1,"T")="Y^Y^Y (YES)"
^DIBT(626,2,1,"TXT")="FINAL CHARGE equals Y (YES)"
^DIBT(626,2,2,0)="440.6^46^RECONCILE DATE^^^^^^^1"
^DIBT(626,2,2,"ASK")="1"
^DIBT(626,2,2,"F")="2970700.99999^7/1/97^7/1/97"
^DIBT(626,2,2,"GET")="S DISX(2)=$P($G(^PRCH(440.6,D0,1)),U,6)"
^DIBT(626,2,2,"QCON")="I DISX(2)]]2970700.99999"
^DIBT(626,2,2,"SER")="1.0000^1.0000"
^DIBT(626,2,2,"T")="z^"
^DIBT(626,2,2,"TXT")="RECONCILE DATE from 7/1/97"
^DIBT(626,2,"B",440.6,1)=""
^DIBT(626,2,"B",440.6,2)=""
^DIBT(628,0)="ECX LOG^2940805.1257^^727^^^2971006^"
^DIBT(628,2,0)="^.4014^3^3"
^DIBT(628,2,1,0)="727^2^TYPE^@^^^^^^4"
^DIBT(628,2,1,"GET")="S DISX(1)=$P($G(^ECX(727,D0,0)),U,3)"
^DIBT(628,2,1,"IX")="^ECX(727,""AD"",^ECX(727,^2"
^DIBT(628,2,1,"QCON")="I DISX(1)'="""""
^DIBT(628,2,1,"SER")="0.0000^0.0000"
^DIBT(628,2,1,"TXT")="TYPE not null"
^DIBT(628,2,2,0)="727^3^START DATE/TIME^@^^^^^^1"
^DIBT(628,2,2,"ASK")="1"
^DIBT(628,2,2,"F")="2970800.99999^8 1^8/1/97"
^DIBT(628,2,2,"GET")="S DISX(2)=$P($G(^ECX(727,D0,0)),U,4)"
^DIBT(628,2,2,"QCON")="I DISX(2)'="""""
^DIBT(628,2,2,"SER")="0.0000^0.0000"
^DIBT(628,2,2,"T")="z^"
^DIBT(628,2,2,"TXT")="START DATE/TIME not null"
^DIBT(628,2,3,0)="727^^(#5)>0^""@B^;L1^^^^^4"
^DIBT(628,2,3,"CM")="S Y(1)=$S($D(^ECX(727,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6)>0 I D0>0 S DISX(3)=X"
^DIBT(628,2,3,"F")="0"
^DIBT(628,2,3,"GET")="S Y(1)=$S($D(^ECX(727,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6)>0 I D0>0 S DISX(3)=X"
^DIBT(628,2,3,"QCON")="I DISX(3)"
^DIBT(628,2,3,"T")="1"
^DIBT(628,2,3,"TXT")="(#5)>0"
^DIBT(628,2,"B",727,1)=""
^DIBT(628,2,"B",727,2)=""
^DIBT(628,2,"B",727,3)=""
^DIBT(629,0)="ECX CLINIC CODE^2950414.0658^^728.441^^^2970521^"
^DIBT(629,2,0)="^.4014^1^1"
^DIBT(629,2,1,0)="728.441^.01^CODE^]^^^^^^4"
^DIBT(629,2,1,"GET")="S DISX(1)=$P($G(^ECX(728.441,D0,0)),U,1)"
^DIBT(629,2,1,"IX")="^ECX(728.441,""B"",^ECX(728.441,^2"
^DIBT(629,2,1,"QCON")="I DISX(1)'="""""
^DIBT(629,2,1,"TXT")="CODE not null"
^DIBT(629,2,"B",728.441,1)=""
^DIBT(630,0)="IBD NO APPOINTMENT LIST^2970731.1437^@^357.96^^@^2970801"
^DIBT(630,2,0)="^.4014^4^4"
^DIBT(630,2,1,0)="357.96^^NO APPOINTMENT ENTRY=NO APPOINTMENT ENTRY^'@""@B^;L1^^^^^4"
^DIBT(630,2,1,3,0)="^.401419^1^1"
^DIBT(630,2,1,3,1,0)="OVF0^9.2"
^DIBT(630,2,1,3,1,"OVF0")="S Y(2)=$C(59)_$S($D(^DD(357.96,.14,0)):$P(^(0),U,3),1:""""),Y(3)=$C(59)_$S($D(^DD(357.96,.14,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""")"
^DIBT(630,2,1,3,"B","OVF0",1)=""
^DIBT(630,2,1,"CM")="X DPP(1,""OVF0"",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1)=$P($P(Y(3),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1) I D0>0 S DISX(1)=X"
^DIBT(630,2,1,"F")="0"
^DIBT(630,2,1,"GET")="X DPP(1,""OVF0"",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1)=$P($P(Y(3),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1) I D0>0 S DISX(1)=X"
^DIBT(630,2,1,"QCON")="I DISX(1)"
^DIBT(630,2,1,"T")="1"
^DIBT(630,2,1,"TXT")="NO APPOINTMENT ENTRY=NO APPOINTMENT ENTRY"
^DIBT(630,2,2,0)="357.96^^INTERNAL(#.11)=3!(INTERNAL(#.11)=6)^'@""@B^;L1^^^^^4"
^DIBT(630,2,2,"CM")="S Y(1)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S X=X=3,Y(2)=X,Y(3)=X S X=$P(Y(1),U,11),X=X S X=X=6,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(2)=X"
^DIBT(630,2,2,"F")="0"
^DIBT(630,2,2,"GET")="S Y(1)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S X=X=3,Y(2)=X,Y(3)=X S X=$P(Y(1),U,11),X=X S X=X=6,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(2)=X"
^DIBT(630,2,2,"QCON")="I DISX(2)"
^DIBT(630,2,2,"T")="1"
^DIBT(630,2,2,"TXT")="INTERNAL(#.11)=3!(INTERNAL(#.11)=6)"
^DIBT(630,2,3,0)="357.96^^PATIENT^+"".02^^^^^^4"
^DIBT(630,2,3,"CM")="S Y(1)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(630,2,3,"GET")="S Y(1)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(630,2,3,"IX")="^IBD(357.96,""C"",^IBD(357.96,^2"
^DIBT(630,2,3,"PTRIX")="^DPT(""B"","
^DIBT(630,2,3,"QCON")="I DISX(3)'="""""
^DIBT(630,2,3,"SER")="0.0110^0.0110"
^DIBT(630,2,3,"TXT")="PATIENT not null"
^DIBT(630,2,4,0)="357.96^.05^DATE/TIME PRINTED^^^^^^^1"
^DIBT(630,2,4,"ASK")="1"
^DIBT(630,2,4,"F")="2970730.99999^T-1^7/31/97"
^DIBT(630,2,4,"GET")="S DISX(4)=$P($G(^IBD(357.96,D0,0)),U,5)"
^DIBT(630,2,4,"QCON")="I (DISX(4)]]2970730.99999)&(DISX(4)']]2970731.24)"
^DIBT(630,2,4,"SER")="0.9890^0.9890"
^DIBT(630,2,4,"T")="2970731.24^T-1@2400^7/31/97@24:00"
^DIBT(630,2,4,"TXT")="DATE/TIME PRINTED from 7/31/97 to 7/31/97@24:00"
^DIBT(630,2,"B",357.96,1)=""
^DIBT(630,2,"B",357.96,2)=""
^DIBT(630,2,"B",357.96,3)=""
^DIBT(630,2,"B",357.96,4)=""
^DIBT(630,"%D",0)="^^3^3^2970731^^^"
^DIBT(630,"%D",1,0)="This template with list patients for a date range that have had encounter"
^DIBT(630,"%D",2,0)="forms printed that are not related to appointments."
^DIBT(630,"%D",3,0)=""
^DIBT(631,0)="SCENI PT ALPHA SORT^2981009.2057^@^409.75^^@^2981119"
^DIBT(631,2,0)="^.4014^2^2"
^DIBT(631,2,1,0)="409.75^^.01:20.05^#""^;""Division: ""^^^^^4"
^DIBT(631,2,1,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.05,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(631,2,1,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.05,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(631,2,1,"QCON")="I DISX(1)'="""""
^DIBT(631,2,1,"TXT")=".01:20.05 not null"
^DIBT(631,2,2,0)="409.75^^.01:20.01^""^;S2;C5;""""^^^^^4"
^DIBT(631,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.01,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(631,2,2,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.01,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(631,2,2,"QCON")="I DISX(2)'="""""
^DIBT(631,2,2,"TXT")=".01:20.01 not null"
^DIBT(631,2,"B",409.75,1)=""
^DIBT(631,2,"B",409.75,2)=""
^DIBT(631,"%D",0)="^^1^1^2981009^^^^"
^DIBT(631,"%D",1,0)="Sort incomplete encounters by division and patient"
^DIBT(632,0)="SCENI ERROR SORT^2981120.0042^@^409.75^^@^2981124"
^DIBT(632,2,0)="^.4014^4^4"
^DIBT(632,2,1,0)="409.75^^.01:20.06^'""^^^^^^4"
^DIBT(632,2,1,"ASK")="1"
^DIBT(632,2,1,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.06,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(632,2,1,"F")=".99999^1"
^DIBT(632,2,1,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.06,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(632,2,1,"QCON")="I DISX(1)'="""""
^DIBT(632,2,1,"T")="1^1"
^DIBT(632,2,1,"TXT")=".01:20.06 not null"
^DIBT(632,2,2,0)="409.75^^.01:20.05^#""^;C1;""Division: "";L70^^^^^4"
^DIBT(632,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.05,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(632,2,2,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1 X $P(^DD(409.73,20.05,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(632,2,2,"QCON")="I DISX(2)'="""""
^DIBT(632,2,2,"TXT")=".01:20.05 not null"
^DIBT(632,2,3,0)="409.75^^.02:.01^""^;C1;S2;""Error Code: ""^^^^^4"
^DIBT(632,2,3,3,0)="^.401419^1^1"
^DIBT(632,2,3,3,1,0)="OVF0^9.2"
^DIBT(632,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^SD(409.76,+D0,0)) D0=-1 S Y(101)=$S($D(^SD(409.76,D0,0)):^(0),1:"""")"
^DIBT(632,2,3,3,"B","OVF0",1)=""
^DIBT(632,2,3,"ASK")="1"
^DIBT(632,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(632,2,3,"F")="809.99999^810"
^DIBT(632,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(632,2,3,"QCON")="I DISX(3)'="""""
^DIBT(632,2,3,"T")="810^810"
^DIBT(632,2,3,"TXT")=".02:.01 not null"
^DIBT(632,2,4,0)="409.75^^.02:11^""^;C1;"""";L70^^^^^4"
^DIBT(632,2,4,3,0)="^.401419^1^1"
^DIBT(632,2,4,3,1,0)="OVF0^9.2"
^DIBT(632,2,4,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^SD(409.76,+D0,0)) D0=-1 S Y(101)=$S($D(^SD(409.76,D0,1)):^(1),1:"""")"
^DIBT(632,2,4,3,"B","OVF0",1)=""
^DIBT(632,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(632,2,4,"GET")="X DPP(4,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(632,2,4,"QCON")="I DISX(4)'="""""
^DIBT(632,2,4,"TXT")=".02:11 not null"
^DIBT(632,2,"B",409.75,1)=""
^DIBT(632,2,"B",409.75,2)=""
^DIBT(632,2,"B",409.75,3)=""
^DIBT(632,2,"B",409.75,4)=""
^DIBT(632,"%D",0)="^^2^2^2981120^^^^"
^DIBT(632,"%D",1,0)="Sorts Transmitted outpatient encounter error file by Division, error code,"
^DIBT(632,"%D",2,0)="and patient for output."
^DIBT(633,0)="PRCH AO AUDIT REPORT^2971205.1432^@^440.6^^@^2971210"
^DIBT(633,2,0)="^.4014^5^5"
^DIBT(633,2,1,0)="440.6^5^STATEMENT DATE^+#^;C1^^^^^1"
^DIBT(633,2,1,"ASK")="1"
^DIBT(633,2,1,"F")="2971203.99999^T-1^12/4/97"
^DIBT(633,2,1,"GET")="S DISX(1)=$P($G(^PRCH(440.6,D0,0)),U,6)"
^DIBT(633,2,1,"IX")="^PRCH(440.6,""D"",^PRCH(440.6,^2"
^DIBT(633,2,1,"QCON")="I DISX(1)'="""""
^DIBT(633,2,1,"SER")="0.0000^0.0000"
^DIBT(633,2,1,"T")="z^"
^DIBT(633,2,1,"TXT")="STATEMENT DATE not null"
^DIBT(633,2,2,0)="440.6^^INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR(""DUZ"")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR(""DUZ""))^""@B^;L1^^^^^4"
^DIBT(633,2,2,3,0)="^.401419^4^4"
^DIBT(633,2,2,3,1,0)="OVF0^9.2"
^DIBT(633,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4) K DIC S DIC=""^PRC(440.5,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(633,2,2,3,2,0)="OVF0^9.3"
^DIBT(633,2,2,3,2,"OVF0")="X DPP(2,""OVF0"",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9),X=X S X=X,Y(102)=X S X=""DUZ"""
^DIBT(633,2,2,3,3,0)="OVF0^9.4"
^DIBT(633,2,2,3,3,"OVF0")="X DPP(2,""OVF0"",9.3) Q:X[U!(X[""$C(94)"")!X  S X=$S($D(@X):@X,1:"""") S Y=X,X=Y(102),X=X S X=X=Y,Y(103)=X,Y(104)=X S X=$P(Y(1),U,4)"
^DIBT(633,2,2,3,4,0)="OVF0^9.5"
^DIBT(633,2,2,3,4,"OVF0")="X DPP(2,""OVF0"",9.4) K DIC S DIC=""^PRC(440.5,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y S Y(201)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$P(Y(201),U,10),X=X S X=X"
^DIBT(633,2,2,3,"B","OVF0",1)=""
^DIBT(633,2,2,3,"B","OVF0",2)=""
^DIBT(633,2,2,3,"B","OVF0",3)=""
^DIBT(633,2,2,3,"B","OVF0",4)=""
^DIBT(633,2,2,"CM")="X DPP(2,""OVF0"",9.5) S Y(202)=X S X=""DUZ"" Q:X[U!(X[""$C(94)"")!X  S X=$S($D(@X):@X,1:"""") S Y=X,X=Y(202),X=X S X=X=Y,Y=X,X=Y(103),X=X!Y S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(633,2,2,"F")="0"
^DIBT(633,2,2,"GET")="X DPP(2,""OVF0"",9.5) S Y(202)=X S X=""DUZ"" Q:X[U!(X[""$C(94)"")!X  S X=$S($D(@X):@X,1:"""") S Y=X,X=Y(202),X=X S X=X=Y,Y=X,X=Y(103),X=X!Y S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(633,2,2,"QCON")="I DISX(2)"
^DIBT(633,2,2,"T")="1"
^DIBT(633,2,2,"TXT")="INTERNAL(CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL)=VAR(""""DUZ"""")!(INTERNAL(CREDIT CARD NUMBER IN 440.5:ALTERNATE APPROVING OFFICIAL)=VAR(""""DUZ""""))"
^DIBT(633,2,3,0)="440.6^^CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL^+""^;""APPROVING OFFICIAL: "";C1^^^^^4"
^DIBT(633,2,3,3,0)="^.401419^1^1"
^DIBT(633,2,3,3,1,0)="OVF0^9.2"
^DIBT(633,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4) K DIC S DIC=""^PRC(440.5,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DIBT(633,2,3,3,"B","OVF0",1)=""
^DIBT(633,2,3,"CM")="X DPP(3,""OVF0"",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(101),U,9),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(633,2,3,"GET")="X DPP(3,""OVF0"",9.2) S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(101),U,9),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(633,2,3,"QCON")="I DISX(3)'="""""
^DIBT(633,2,3,"TXT")="CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL not null"
^DIBT(633,2,4,0)="440.6^^CARD HOLDER^+""16^;C1^^^^^4"
^DIBT(633,2,4,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(633,2,4,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(633,2,4,"QCON")="I DISX(4)'="""""
^DIBT(633,2,4,"TXT")="CARD HOLDER not null"
^DIBT(633,2,5,0)="440.6^3^CREDIT CARD NUMBER^@+^^^^^^4"
^DIBT(633,2,5,"GET")="S DISX(5)=$P($G(^PRCH(440.6,D0,0)),U,4)"
^DIBT(633,2,5,"QCON")="I DISX(5)'="""""
^DIBT(633,2,5,"SER")="0.0000^0.0000"
^DIBT(633,2,5,"TXT")="CREDIT CARD NUMBER not null"
^DIBT(633,2,"B",440.6,1)=""
^DIBT(633,2,"B",440.6,2)=""
^DIBT(633,2,"B",440.6,3)=""
^DIBT(633,2,"B",440.6,4)=""
^DIBT(633,2,"B",440.6,5)=""
^DIBT(633,"%D",0)="^^1^1^2971205^^^^"
^DIBT(633,"%D",1,0)="This is a sort template for the approving official audit report."
^DIBT(634,0)="PRCH CO AO AUDIT^3001204.0948^@^440.6^^@^3010409"
^DIBT(634,2,0)="^.4014^5^5"
^DIBT(634,2,1,0)="440.6^5^STATEMENT DATE^+#^;C1^^^^^1"
^DIBT(634,2,1,"ASK")="1"
^DIBT(634,2,1,"GET")="S DISX(1)=$P($G(^PRCH(440.6,D0,0)),U,6)"
^DIBT(634,2,1,"IX")="^PRCH(440.6,""D"",^PRCH(440.6,^2"
^DIBT(634,2,1,"QCON")="I DISX(1)'="""""
^DIBT(634,2,1,"SER")="0.0000^0.0000"
^DIBT(634,2,1,"TXT")="STATEMENT DATE not null"
^DIBT(634,2,2,0)="440.6^^CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL^+""^;""APPROVING OFFICIAL: "";C1^^^^^4"
^DIBT(634,2,2,3,0)="^.401419^1^1"
^DIBT(634,2,2,3,1,0)="OVF0^9.2"
^DIBT(634,2,2,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4) K DIC S DIC=""^PRC(440.5,"",DIC(0)=""MF"" D ^DIC S (D,D0)=+Y S Y(101)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""")"
^DIBT(634,2,2,3,"B","OVF0",1)=""
^DIBT(634,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^VA(200,+$P(Y(101),U,9),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(634,2,2,"F")="@z^A"
^DIBT(634,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^VA(200,+$P(Y(101),U,9),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(634,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(634,2,2,"T")="Z^Z"
^DIBT(634,2,2,"TXT")="CREDIT CARD NUMBER IN 440.5:APPROVING OFFICIAL from A to Z"
^DIBT(634,2,3,0)="440.6^^CARD HOLDER^+""16^;C1^^^^^4"
^DIBT(634,2,3,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(634,2,3,"F")="@z^A"
^DIBT(634,2,3,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(634,2,3,"QCON")="I (DISX(3)]]""@z"")&(DISX(3)']]""Z"")"
^DIBT(634,2,3,"T")="Z^Z"
^DIBT(634,2,3,"TXT")="CARD HOLDER from A to Z"
^DIBT(634,2,4,0)="440.6^3^CREDIT CARD NUMBER^@+^^^^^^4"
^DIBT(634,2,4,"GET")="S DISX(4)=$P($G(^PRCH(440.6,D0,0)),U,4)"
^DIBT(634,2,4,"QCON")="I DISX(4)'="""""
^DIBT(634,2,4,"SER")="0.0000^0.0000"
^DIBT(634,2,4,"TXT")="CREDIT CARD NUMBER not null"
^DIBT(634,2,5,0)="440.6^7^STATION NUMBER^^;C1^^^^^4"
^DIBT(634,2,5,"ASK")="1"
^DIBT(634,2,5,"F")="661.999999^662"
^DIBT(634,2,5,"GET")="S DISX(5)=$P($G(^PRCH(440.6,D0,0)),U,8)"
^DIBT(634,2,5,"QCON")="I DISX(5)=662"
^DIBT(634,2,5,"SER")="0.9894^0.9894"
^DIBT(634,2,5,"T")="662^662"
^DIBT(634,2,5,"TXT")="STATION NUMBER equals 662"
^DIBT(634,2,"B",440.6,1)=""
^DIBT(634,2,"B",440.6,2)=""
^DIBT(634,2,"B",440.6,3)=""
^DIBT(634,2,"B",440.6,4)=""
^DIBT(634,2,"B",440.6,5)=""
^DIBT(634,"%D",0)="^.4012^2^2^3001204^^^^"
^DIBT(634,"%D",1,0)="This is the sort template for the coordinator official approval official"
^DIBT(634,"%D",2,0)="audit report."
^DIBT(635,0)="QAC SERV/DISC^2971119.1138^@^745.1^^@^2980309"
^DIBT(635,2,0)="^.4014^2^2"
^DIBT(635,2,1,0)="745.1^1^DATE OF CONTACT^'^^^^^^1"
^DIBT(635,2,1,"ASK")="1"
^DIBT(635,2,1,"F")="2980120.99999^0121^Jan 21,1998"
^DIBT(635,2,1,"GET")="S DISX(1)=$P($G(^QA(745.1,D0,0)),U,2)"
^DIBT(635,2,1,"IX")="^QA(745.1,""D"",^QA(745.1,^2"
^DIBT(635,2,1,"QCON")="I DISX(1)=2980121"
^DIBT(635,2,1,"SER")="20.2500^0.9529"
^DIBT(635,2,1,"T")="2980121^0121^Jan 21,1998"
^DIBT(635,2,1,"TXT")="DATE OF CONTACT equals Jan 21,1998"
^DIBT(635,2,2,0)="745.1213^^.01:NAME^+""^;S;C20;""SERVICE/DISCIPLINE: ""^^^^^4"
^DIBT(635,2,2,1,0)="^.40141^2^2"
^DIBT(635,2,2,1,1,0)="745.1^3"
^DIBT(635,2,2,1,2,0)="745.121^3"
^DIBT(635,2,2,1,"B",745.1,1)=""
^DIBT(635,2,2,1,"B",745.121,2)=""
^DIBT(635,2,2,3,0)="^.401419^1^1"
^DIBT(635,2,2,3,1,0)="OVF2^9.2"
^DIBT(635,2,2,3,1,"OVF0")="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:""""),Y(1)=$S($D(^QA(745.1,D0,3,D1,3,D2,0)):^(0),1:"""")"
^DIBT(635,2,2,3,"B","OVF2",1)=""
^DIBT(635,2,2,"ASK")="1"
^DIBT(635,2,2,"CM")="X DPP(2,""OVF2"",9.2) S D0=$P(Y(1),U,1) S:'$D(^QA(745.55,+D0,0)) D0=-1 S Y(101)=$S($D(^QA(745.55,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0) I D2>0 S DISX(2)=X"
^DIBT(635,2,2,"F")="L@z^LA"
^DIBT(635,2,2,"GET")="X DPP(2,""OVF2"",9.2) S D0=$P(Y(1),U,1) S:'$D(^QA(745.55,+D0,0)) D0=-1 S Y(101)=$S($D(^QA(745.55,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0) I D2>0 S DISX(2)=X"
^DIBT(635,2,2,"QCON")="I (DISX(2)]]""L@z"")&(DISX(2)']]""LB"")"
^DIBT(635,2,2,"T")="LB^LB"
^DIBT(635,2,2,"TXT")=".01:NAME from LA to LB"
^DIBT(635,2,"B",745.1,1)=""
^DIBT(635,2,"B",745.1213,2)=""
^DIBT(636,0)="LA7S SORT^2970530.1505^^60^^^2970822"
^DIBT(636,2,0)="^.4014^2^2"
^DIBT(636,2,1,0)="60^64.2^CATALOG ITEM^@^^^^^^3"
^DIBT(636,2,1,"GET")="S DISX(1)=$P($G(^LAB(60,D0,64)),U,3)"
^DIBT(636,2,1,"QCON")="I DISX(1)'="""""
^DIBT(636,2,1,"SER")="1.0000^1.0000"
^DIBT(636,2,1,"TXT")="CATALOG ITEM not null"
^DIBT(636,2,2,0)="60^.01^NAME^@#^^^^^^4"
^DIBT(636,2,2,"GET")="S DISX(2)=$P($G(^LAB(60,D0,0)),U,1)"
^DIBT(636,2,2,"IX")="^LAB(60,""B"",^LAB(60,^2"
^DIBT(636,2,2,"QCON")="I DISX(2)'="""""
^DIBT(636,2,2,"SER")="0^0"
^DIBT(636,2,2,"TXT")="NAME not null"
^DIBT(636,2,"B",60,1)=""
^DIBT(636,2,"B",60,2)=""
^DIBT(637,0)="LA7S EXEP SORT^2970523.0937^^69.6^^^2971126"
^DIBT(637,2,0)="^.4014^2^2"
^DIBT(637,2,1,0)="69.6^18^SHIPPING MANIFEST^^;S1^^^^^4"
^DIBT(637,2,1,"GET")="S DISX(1)=$P($G(^LRO(69.6,D0,0)),U,14)"
^DIBT(637,2,1,"IX")="^LRO(69.6,""D"",^LRO(69.6,^2"
^DIBT(637,2,1,"QCON")="I DISX(1)'="""""
^DIBT(637,2,1,"TXT")="SHIPPING MANIFEST not null"
^DIBT(637,2,2,0)="69.6^.01^NAME^@^^^^^^4"
^DIBT(637,2,2,"GET")="S DISX(2)=$P($G(^LRO(69.6,D0,0)),U,1)"
^DIBT(637,2,2,"IX")="^LRO(69.6,""B"",^LRO(69.6,^2"
^DIBT(637,2,2,"QCON")="I DISX(2)'="""""
^DIBT(637,2,2,"TXT")="NAME not null"
^DIBT(637,2,"B",69.6,1)=""
^DIBT(637,2,"B",69.6,2)=""
^DIBT(638,0)="LBRY TITLES DUE RENEWAL^2960507.1642^^681^^^2961002"
^DIBT(638,2,0)="^.4014^2^2"
^DIBT(638,2,1,0)="680^^TITLE^"""".01^^^^^^4"
^DIBT(638,2,1,2,0)="^.401418^1^1"
^DIBT(638,2,1,2,1,0)="681^100^680^LBRY(680,^0"
^DIBT(638,2,1,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(638,2,1,2,"B",681,1)=""
^DIBT(638,2,1,"ASK")="1"
^DIBT(638,2,1,"CM")="S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(638,2,1,"F")=",z^-"
^DIBT(638,2,1,"GET")="S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(638,2,1,"QCON")="I DISX(1)'="""""
^DIBT(638,2,1,"T")="z^"
^DIBT(638,2,1,"TXT")="TITLE not null"
^DIBT(638,2,2,0)="680^10.5^RENEWAL DATE (HC)^""^^^^^^1"
^DIBT(638,2,2,2,0)="^.401418^1^1"
^DIBT(638,2,2,2,1,0)="681^100^680^LBRY(680,^0"
^DIBT(638,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(638,2,2,2,"B",681,1)=""
^DIBT(638,2,2,"GET")="S DISX(2)=$P($G(^LBRY(680,D0,10)),U,5)"
^DIBT(638,2,2,"QCON")="I DISX(2)'="""""
^DIBT(638,2,2,"TXT")="RENEWAL DATE (HC) not null"
^DIBT(638,2,"B",680,1)=""
^DIBT(638,2,"B",680,2)=""
^DIBT(638,"%D",0)="^^1^1^2960507^^^"
^DIBT(638,"%D",1,0)="Sort by the title and the renewal date"
^DIBT(640,0)="ABSV ALPHA LIST^2940418.114^@^503330^^@^2950825"
^DIBT(640,2,0)="^.4014^2^2"
^DIBT(640,2,1,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(640,2,1,"ASK")="1"
^DIBT(640,2,1,"F")="@z^A"
^DIBT(640,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330,D0,0)),U,1)"
^DIBT(640,2,1,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(640,2,1,"QCON")="I DISX(1)'="""""
^DIBT(640,2,1,"SER")="0^0"
^DIBT(640,2,1,"T")="B^B"
^DIBT(640,2,1,"TXT")="VOLUNTEER not null"
^DIBT(640,2,2,0)="503330.01^0^NUMBER^'^^^^^^2"
^DIBT(640,2,2,1,0)="^.40141^1^1"
^DIBT(640,2,2,1,1,0)="503330^4"
^DIBT(640,2,2,1,"B",503330,1)=""
^DIBT(640,2,2,"ASK")="1"
^DIBT(640,2,2,"F")="502.99999^503"
^DIBT(640,2,2,"QCON")="I D1=503"
^DIBT(640,2,2,"T")="503^503"
^DIBT(640,2,2,"TXT")="NUMBER equals 503"
^DIBT(640,2,"B",503330,1)=""
^DIBT(640,2,"B",503330.01,2)=""
^DIBT(641,0)="ABSV SELECTED STATION INFO^2951010.1059^Vv^503339.2^^Vv^3001212"
^DIBT(641,2,0)="^.4014^2^2"
^DIBT(641,2,1,0)="503339.2^1^PRIMARY STATION NAME^^^^^^^4"
^DIBT(641,2,1,"GET")="S DISX(1)=$P($G(^ABS(503339.2,D0,0)),U,2)"
^DIBT(641,2,1,"IX")="^ABS(503339.2,""C"",^ABS(503339.2,^2"
^DIBT(641,2,1,"QCON")="I DISX(1)'="""""
^DIBT(641,2,1,"SER")="0.0000^0.0000"
^DIBT(641,2,1,"TXT")="PRIMARY STATION NAME not null"
^DIBT(641,2,2,0)="503339.214^0^NUMBER^^^^^^^2"
^DIBT(641,2,2,1,0)="^.40141^1^1"
^DIBT(641,2,2,1,1,0)="503339.2^2"
^DIBT(641,2,2,1,"B",503339.2,1)=""
^DIBT(641,2,2,"F")=".99999^1"
^DIBT(641,2,2,"QCON")="I D1=1"
^DIBT(641,2,2,"T")="1^1"
^DIBT(641,2,2,"TXT")="NUMBER equals 1"
^DIBT(641,2,"B",503339.2,1)=""
^DIBT(641,2,"B",503339.214,2)=""
^DIBT(642,0)="ABSV OCC HRS ORG SUMMARY^2951011.1144^^503336^^^2971202"
^DIBT(642,2,0)="^.4014^3^3"
^DIBT(642,2,1,0)="503336^7^DATE^'@^^^^^^1"
^DIBT(642,2,1,"ASK")="1"
^DIBT(642,2,1,"F")="2971100.99999^2971101^11/1/97"
^DIBT(642,2,1,"GET")="S DISX(1)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(642,2,1,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(642,2,1,"QCON")="I (DISX(1)]]2971100.99999)&(DISX(1)']]2971130)"
^DIBT(642,2,1,"SER")="100.0000^1.0000"
^DIBT(642,2,1,"T")="2971130^2971130^11/30/97"
^DIBT(642,2,1,"TXT")="DATE from 11/1/97 to 11/30/97"
^DIBT(642,2,2,0)="503336^^ORGANIZATION CODE:ORGANIZATION^#+""^;S2;""""^^^^^4"
^DIBT(642,2,2,3,0)="^.401419^1^1"
^DIBT(642,2,2,3,1,0)="OVF0^9.2"
^DIBT(642,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ABS(503336,D0,0)):^(0),1:""""),D0=$P(Y(1),U,4) S:'$D(^ABS(503334,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DIBT(642,2,2,3,"B","OVF0",1)=""
^DIBT(642,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(642,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(642,2,2,"QCON")="I DISX(2)'="""""
^DIBT(642,2,2,"TXT")="ORGANIZATION CODE:ORGANIZATION not null"
^DIBT(642,2,3,0)="503336^7^DATE^^^^^^^1"
^DIBT(642,2,3,"GET")="S DISX(3)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(642,2,3,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(642,2,3,"QCON")="I DISX(3)'="""""
^DIBT(642,2,3,"SER")="0.0521^0.0495"
^DIBT(642,2,3,"TXT")="DATE not null"
^DIBT(642,2,"B",503336,1)=""
^DIBT(642,2,"B",503336,2)=""
^DIBT(642,2,"B",503336,3)=""
^DIBT(642,"%D",0)="^^2^2^2951011^^^^"
^DIBT(642,"%D",1,0)="This sort templates presents to the user the sort logic for the"
^DIBT(642,"%D",2,0)="Occassional Hours Organization Summary Report."
^DIBT(643,0)="ABSV OCC HRS SERV SUMMARY^2951011.1155^@^503336^^@^2980204"
^DIBT(643,2,0)="^.4014^3^3"
^DIBT(643,2,1,0)="503336^7^DATE^'@^^^^^^1"
^DIBT(643,2,1,"ASK")="1"
^DIBT(643,2,1,"F")="2980100.99999^2980101^1/1/98"
^DIBT(643,2,1,"GET")="S DISX(1)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(643,2,1,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(643,2,1,"QCON")="I (DISX(1)]]2980100.99999)&(DISX(1)']]2980131)"
^DIBT(643,2,1,"SER")="100.0000^1.0000"
^DIBT(643,2,1,"T")="2980131^2980131^1/31/98"
^DIBT(643,2,1,"TXT")="DATE from 1/1/98 to 1/31/98"
^DIBT(643,2,2,0)="503336^^SERVICE ASSIGNMENT:#1^#+""^;""""^^^^^4"
^DIBT(643,2,2,3,0)="^.401419^1^1"
^DIBT(643,2,2,3,1,0)="OVF0^9.2"
^DIBT(643,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ABS(503336,D0,0)):^(0),1:""""),D0=$P(Y(1),U,5) S:'$D(^ABS(503332,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""")"
^DIBT(643,2,2,3,"B","OVF0",1)=""
^DIBT(643,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(643,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(643,2,2,"QCON")="I DISX(2)'="""""
^DIBT(643,2,2,"TXT")="SERVICE ASSIGNMENT:#1 not null"
^DIBT(643,2,3,0)="503336^7^DATE^^^^^^^1"
^DIBT(643,2,3,"GET")="S DISX(3)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(643,2,3,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(643,2,3,"QCON")="I DISX(3)'="""""
^DIBT(643,2,3,"SER")="0.0521^0.0495"
^DIBT(643,2,3,"TXT")="DATE not null"
^DIBT(643,2,"B",503336,1)=""
^DIBT(643,2,"B",503336,2)=""
^DIBT(643,2,"B",503336,3)=""
^DIBT(643,"%D",0)="^^1^1^2951011^"
^DIBT(643,"%D",1,0)="This sort template is used to print sorted Occasional Volunteer Timesheets."
^DIBT(644,0)="ABSV OCC HRS SUMMARY^2951011.1218^^503336^^^2970903"
^DIBT(644,2,0)="^.4014^1^1"
^DIBT(644,2,1,0)="503336^7^DATE^]^^^^^^1"
^DIBT(644,2,1,"ASK")="1"
^DIBT(644,2,1,"F")="2970700.99999^2970701^7/1/97"
^DIBT(644,2,1,"GET")="S DISX(1)=$P($G(^ABS(503336,D0,0)),U,8)"
^DIBT(644,2,1,"IX")="^ABS(503336,""AC"",^ABS(503336,^2"
^DIBT(644,2,1,"QCON")="I (DISX(1)]]2970700.99999)&(DISX(1)']]2970715)"
^DIBT(644,2,1,"T")="2970715^2970715^7/15/97"
^DIBT(644,2,1,"TXT")="DATE from 7/1/97 to 7/15/97"
^DIBT(644,2,"B",503336,1)=""
^DIBT(644,"%D",0)="^^1^1^2951011^"
^DIBT(644,"%D",1,0)="This template sorts Occasional Timesheets by date."
^DIBT(645,0)="ABSV DIRECTORY SORT^2960124.1442^@^503339.2^^@^2970905"
^DIBT(645,2,0)="^.4014^2^2"
^DIBT(645,2,1,0)="503339.2^1^PRIMARY STATION NAME^]^^^^^^4"
^DIBT(645,2,1,"ASK")="1"
^DIBT(645,2,1,"F")="ALTOON@z^ALTOONA"
^DIBT(645,2,1,"GET")="S DISX(1)=$P($G(^ABS(503339.2,D0,0)),U,2)"
^DIBT(645,2,1,"IX")="^ABS(503339.2,""C"",^ABS(503339.2,^2"
^DIBT(645,2,1,"QCON")="I (DISX(1)]]""ALTOON@z"")&(DISX(1)']]""ALTOONAZ"")"
^DIBT(645,2,1,"SER")="79.0000^0.9875"
^DIBT(645,2,1,"T")="ALTOONAZ^ALTOONAZ"
^DIBT(645,2,1,"TXT")="PRIMARY STATION NAME from ALTOONA to ALTOONAZ"
^DIBT(645,2,2,0)="503339.2^.01^PRIMARY STATION NUMBER^^^^^^^4"
^DIBT(645,2,2,"GET")="S DISX(2)=$P($G(^ABS(503339.2,D0,0)),U,1)"
^DIBT(645,2,2,"IX")="^ABS(503339.2,""B"",^ABS(503339.2,^2"
^DIBT(645,2,2,"QCON")="I DISX(2)'="""""
^DIBT(645,2,2,"SER")="0^0"
^DIBT(645,2,2,"TXT")="PRIMARY STATION NUMBER not null"
^DIBT(645,2,"B",503339.2,1)=""
^DIBT(645,2,"B",503339.2,2)=""
^DIBT(646,0)="ABSV POTENTIAL AWARD LIST^2980420.16^^503330^^^3000607"
^DIBT(646,2,0)="^.4014^4^4"
^DIBT(646,2,1,0)="503330.01^.5^STATION NUMBER^#^^^^^^4"
^DIBT(646,2,1,1,0)="^.40141^1^1"
^DIBT(646,2,1,1,1,0)="503330^4"
^DIBT(646,2,1,1,"B",503330,1)=""
^DIBT(646,2,1,"ASK")="1"
^DIBT(646,2,1,"F")="502.999999^503"
^DIBT(646,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330,D0,4,D1,0)),U,12)"
^DIBT(646,2,1,"IX")="^ABS(503330,""AB"",^ABS(503330,^2"
^DIBT(646,2,1,"QCON")="I DISX(1)=503"
^DIBT(646,2,1,"T")="503^503"
^DIBT(646,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(646,2,2,0)="503330.01^7^TERMINATION DATE^@^^^^^^1"
^DIBT(646,2,2,1,0)="^.40141^1^1"
^DIBT(646,2,2,1,1,0)="503330^4"
^DIBT(646,2,2,1,"B",503330,1)=""
^DIBT(646,2,2,"F")="?z^@"
^DIBT(646,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,4,D1,0)),U,8)"
^DIBT(646,2,2,"QCON")="I DISX(2)="""""
^DIBT(646,2,2,"T")="@^@"
^DIBT(646,2,2,"TXT")="TERMINATION DATE is null"
^DIBT(646,2,3,0)="503330.01^4^HOURS LAST AWARD^-^;S^^^^^2"
^DIBT(646,2,3,1,0)="^.40141^1^1"
^DIBT(646,2,3,1,1,0)="503330^4"
^DIBT(646,2,3,1,"B",503330,1)=""
^DIBT(646,2,3,"F")="?z^@"
^DIBT(646,2,3,"GET")="S DISX(3)=$P($G(^ABS(503330,D0,4,D1,0)),U,5) S:DISX(3)]"""" DISX(3)=+DISX(3)"
^DIBT(646,2,3,"QCON")="I 1"
^DIBT(646,2,3,"T")="z^"
^DIBT(646,2,3,"TXT")="All HOURS LAST AWARD (includes nulls)"
^DIBT(646,2,4,0)="503330.01^3^HOURS SERVED^-^^^^^^2"
^DIBT(646,2,4,1,0)="^.40141^1^1"
^DIBT(646,2,4,1,1,0)="503330^4"
^DIBT(646,2,4,1,"B",503330,1)=""
^DIBT(646,2,4,"F")="?z^@"
^DIBT(646,2,4,"GET")="S DISX(4)=$P($G(^ABS(503330,D0,4,D1,0)),U,4) S:DISX(4)]"""" DISX(4)=+DISX(4)"
^DIBT(646,2,4,"QCON")="I 1"
^DIBT(646,2,4,"T")="z^"
^DIBT(646,2,4,"TXT")="All HOURS SERVED (includes nulls)"
^DIBT(646,2,"B",503330.01,1)=""
^DIBT(646,2,"B",503330.01,2)=""
^DIBT(646,2,"B",503330.01,3)=""
^DIBT(646,2,"B",503330.01,4)=""
^DIBT(646,"%D",0)="^^1^1^2980420^^^^"
^DIBT(646,"%D",1,0)="This template sorts the data for the Potential Award Listing."
^DIBT(647,0)="SR BLOOD PRODUCT VERIFICATION^2980520.0841^@^19.081^^@^2980520"
^DIBT(647,2,0)="^.4014^2^2"
^DIBT(647,2,1,0)="19.081^0^DATE/TIME^]^^^D^^^1"
^DIBT(647,2,1,"ASK")="1"
^DIBT(647,2,1,"F")="2980100.99999^1 1^Jan 1,1998"
^DIBT(647,2,1,"QCON")="I D0]]2980100.99999"
^DIBT(647,2,1,"SER")="0.0000^0.0000"
^DIBT(647,2,1,"T")="z^"
^DIBT(647,2,1,"TXT")="DATE/TIME from Jan 1,1998"
^DIBT(647,2,2,0)="19.081^^OPTION[""SR BLOOD PRODUCT VERIFICATION""^""@B^;L1^^^^^4"
^DIBT(647,2,2,"CM")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))[""SR BLOOD PRODUCT VERIFICATION"" I D0>0 S DISX(2)=X"
^DIBT(647,2,2,"F")="0"
^DIBT(647,2,2,"GET")="S Y(1)=$S($D(^XUSEC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))[""SR BLOOD PRODUCT VERIFICATION"" I D0>0 S DISX(2)=X"
^DIBT(647,2,2,"QCON")="I DISX(2)"
^DIBT(647,2,2,"T")="1"
^DIBT(647,2,2,"TXT")="OPTION[""""SR BLOOD PRODUCT VERIFICATION"""""
^DIBT(647,2,"B",19.081,1)=""
^DIBT(647,2,"B",19.081,2)=""
^DIBT(647,"%D",0)="^^3^3^2980520^^^^"
^DIBT(647,"%D",1,0)="Used to audit the Surgery package option [SR BLOOD PRODUCT VERIFICATION]."
^DIBT(647,"%D",2,0)="This sort template is a clone of the KERNEL sort template, XUOPTLOGS."
^DIBT(647,"%D",3,0)="However, it is setup to run for the above Surgery option only."
^DIBT(648,0)="LR CAP ELROY^2980326.1144^^67.9^^^2980407"
^DIBT(648,2,0)="^.4014^3^3"
^DIBT(648,2,1,0)="67.901^^DIVISION^"".01^^^^^^4"
^DIBT(648,2,1,1,0)="^.40141^1^1"
^DIBT(648,2,1,1,1,0)="67.9^1"
^DIBT(648,2,1,1,"B",67.9,1)=""
^DIBT(648,2,1,"ASK")="1"
^DIBT(648,2,1,"CM")="S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:""""),Y=$P(Y(1),U,1) X:$D(^DD(67.901,.01,2)) ^(2) S X=Y I D1>0 S DISX(1)=X"
^DIBT(648,2,1,"F")="REFz^REG"
^DIBT(648,2,1,"GET")="S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:""""),Y=$P(Y(1),U,1) X:$D(^DD(67.901,.01,2)) ^(2) S X=Y I D1>0 S DISX(1)=X"
^DIBT(648,2,1,"QCON")="I (DISX(1)]]""REFz"")&(DISX(1)']]""Z"")"
^DIBT(648,2,1,"T")="Z^Z"
^DIBT(648,2,1,"TXT")="DIVISION from REG to Z"
^DIBT(648,2,2,0)="67.911^.01^MONTH^'^^^^^^1"
^DIBT(648,2,2,1,0)="^.40141^2^2"
^DIBT(648,2,2,1,1,0)="67.9^1"
^DIBT(648,2,2,1,2,0)="67.901^1"
^DIBT(648,2,2,1,"B",67.9,1)=""
^DIBT(648,2,2,1,"B",67.901,2)=""
^DIBT(648,2,2,"ASK")="1"
^DIBT(648,2,2,"F")="2970099.99999^1-97^1/0/97"
^DIBT(648,2,2,"GET")="S DISX(2)=$P($G(^LRO(67.9,D0,1,D1,1,D2,0)),U)"
^DIBT(648,2,2,"QCON")="I (DISX(2)]]2970099.99999)&(DISX(2)']]2980407)"
^DIBT(648,2,2,"T")="2980407^T^4/7/98"
^DIBT(648,2,2,"TXT")="MONTH from 1/0/97 to 4/7/98"
^DIBT(648,2,3,0)="67.9114^.01^WKLD CODE^+^;S1^^^^^4"
^DIBT(648,2,3,1,0)="^.40141^3^3"
^DIBT(648,2,3,1,1,0)="67.9^1"
^DIBT(648,2,3,1,2,0)="67.901^1"
^DIBT(648,2,3,1,3,0)="67.911^1"
^DIBT(648,2,3,1,"B",67.9,1)=""
^DIBT(648,2,3,1,"B",67.901,2)=""
^DIBT(648,2,3,1,"B",67.911,3)=""
^DIBT(648,2,3,"ASK")="1"
^DIBT(648,2,3,"F")="79999.99999^80000"
^DIBT(648,2,3,"GET")="S DISX(3)=$P($G(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)),U)"
^DIBT(648,2,3,"QCON")="I (DISX(3)]]79999.99999)&(DISX(3)']]99999)"
^DIBT(648,2,3,"SRTTXT")="RANGE"
^DIBT(648,2,3,"T")="99999^99999"
^DIBT(648,2,3,"TXT")="WKLD CODE from 80000 to 99999"
^DIBT(648,2,"B",67.901,1)=""
^DIBT(648,2,"B",67.911,2)=""
^DIBT(648,2,"B",67.9114,3)=""
^DIBT(649,0)="ANRVAD^2891102.1651^^2040^^^2980507^"
^DIBT(649,2,0)="^.4014^2^2"
^DIBT(649,2,1,0)="2^.1^WARD LOCATION^""^;S1^^^^^4"
^DIBT(649,2,1,2,0)="^.401418^1^1"
^DIBT(649,2,1,2,1,0)="2040^100^2^DPT(^0"
^DIBT(649,2,1,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(649,2,1,2,"B",2040,1)=""
^DIBT(649,2,1,"GET")="S DISX(1)=$E($G(^DPT(D0,.1)),1,30)"
^DIBT(649,2,1,"QCON")="I DISX(1)'="""""
^DIBT(649,2,1,"TXT")="WARD LOCATION not null"
^DIBT(649,2,2,0)="2040^^NAME:ROOM-BED^@""^^^^^^4"
^DIBT(649,2,2,3,0)="^.401419^1^1"
^DIBT(649,2,2,3,1,0)="OVF0^9.2"
^DIBT(649,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.101)):^(.101),1:"""")"
^DIBT(649,2,2,3,"B","OVF0",1)=""
^DIBT(649,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(649,2,2,"F")="?z"
^DIBT(649,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(649,2,2,"QCON")="I 1"
^DIBT(649,2,2,"T")="z"
^DIBT(649,2,2,"TXT")="All NAME:ROOM-BED (includes nulls)"
^DIBT(649,2,"B",2,1)=""
^DIBT(649,2,"B",2040,2)=""
^DIBT(650,0)="ANRVID^2890523^^2040^^^2980512^"
^DIBT(650,2,0)="^.4014^2^2"
^DIBT(650,2,1,0)="2040.014^.01^INACTIVATION DATE^^^^^^^1"
^DIBT(650,2,1,1,0)="^.40141^1^1"
^DIBT(650,2,1,1,1,0)="2040^8"
^DIBT(650,2,1,1,"B",2040,1)=""
^DIBT(650,2,1,"ASK")="1"
^DIBT(650,2,1,"GET")="S DISX(1)=$P($G(^ANRV(2040,D0,8,D1,0)),U)"
^DIBT(650,2,1,"QCON")="I DISX(1)'="""""
^DIBT(650,2,1,"TXT")="INACTIVATION DATE not null"
^DIBT(650,2,2,0)="2040^^NAME^"".01^^^^^^4"
^DIBT(650,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(650,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(650,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(650,2,2,"PTRIX")="^DPT(""B"","
^DIBT(650,2,2,"QCON")="I DISX(2)'="""""
^DIBT(650,2,2,"SER")="0.0000^0.0000"
^DIBT(650,2,2,"TXT")="NAME not null"
^DIBT(650,2,"B",2040,2)=""
^DIBT(650,2,"B",2040.014,1)=""
^DIBT(651,0)="ANRVED^2890526^^2040^^^2980527^"
^DIBT(651,2,0)="^.4014^2^2"
^DIBT(651,2,1,0)="2040^.015^ENROLLMENT DATE^^^^^^^1"
^DIBT(651,2,1,"ASK")="1"
^DIBT(651,2,1,"GET")="S DISX(1)=$P($G(^ANRV(2040,D0,7)),U,6)"
^DIBT(651,2,1,"QCON")="I DISX(1)'="""""
^DIBT(651,2,1,"SER")="0.0625^0.0625"
^DIBT(651,2,1,"TXT")="ENROLLMENT DATE not null"
^DIBT(651,2,2,0)="2040^^NAME^"".01^^^^^^4"
^DIBT(651,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(651,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(651,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(651,2,2,"PTRIX")="^DPT(""B"","
^DIBT(651,2,2,"QCON")="I DISX(2)'="""""
^DIBT(651,2,2,"SER")="0.0000^0.0000"
^DIBT(651,2,2,"TXT")="NAME not null"
^DIBT(651,2,"B",2040,1)=""
^DIBT(651,2,"B",2040,2)=""
^DIBT(652,0)="ANRVFVD^2890526^^2040^^^2980609^"
^DIBT(652,2,0)="^.4014^2^2"
^DIBT(652,2,1,0)="2040.03^.01^VIST FIELD VISIT DATE (AMIS)^^^^^^^1"
^DIBT(652,2,1,1,0)="^.40141^1^1"
^DIBT(652,2,1,1,1,0)="2040^10"
^DIBT(652,2,1,1,"B",2040,1)=""
^DIBT(652,2,1,"ASK")="1"
^DIBT(652,2,1,"F")="2970600.99999^T-365^Jun 1,1997"
^DIBT(652,2,1,"GET")="S DISX(1)=$P($G(^ANRV(2040,D0,10,D1,0)),U)"
^DIBT(652,2,1,"IX")="^ANRV(2040,""AC"",^ANRV(2040,^2"
^DIBT(652,2,1,"QCON")="I DISX(1)'="""""
^DIBT(652,2,1,"T")="2980601^T^Jun 1,1998"
^DIBT(652,2,1,"TXT")="VIST FIELD VISIT DATE (AMIS) not null"
^DIBT(652,2,2,0)="2040^^NAME^"".01^^^^^^4"
^DIBT(652,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(652,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(652,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(652,2,2,"PTRIX")="^DPT(""B"","
^DIBT(652,2,2,"QCON")="I DISX(2)'="""""
^DIBT(652,2,2,"SER")="0.0000^0.0000"
^DIBT(652,2,2,"TXT")="NAME not null"
^DIBT(652,2,"B",2040,2)=""
^DIBT(652,2,"B",2040.03,1)=""
^DIBT(653,0)="ANRVREV1^2890531^^2040^^^2980514^"
^DIBT(653,2,0)="^.4014^2^2"
^DIBT(653,2,1,0)="2040.06^.01^VIS TEAM REVIEW DATE^^^^^^^1"
^DIBT(653,2,1,1,0)="^.40141^1^1"
^DIBT(653,2,1,1,1,0)="2040^6"
^DIBT(653,2,1,1,"B",2040,1)=""
^DIBT(653,2,1,"ASK")="1"
^DIBT(653,2,1,"GET")="S DISX(1)=$P($G(^ANRV(2040,D0,6,D1,0)),U)"
^DIBT(653,2,1,"IX")="^ANRV(2040,""AB"",^ANRV(2040,^2"
^DIBT(653,2,1,"QCON")="I DISX(1)'="""""
^DIBT(653,2,1,"TXT")="VIS TEAM REVIEW DATE not null"
^DIBT(653,2,2,0)="2040^^NAME^"".01^^^^^^4"
^DIBT(653,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(653,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(653,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(653,2,2,"PTRIX")="^DPT(""B"","
^DIBT(653,2,2,"QCON")="I DISX(2)'="""""
^DIBT(653,2,2,"SER")="0.0000^0.0000"
^DIBT(653,2,2,"TXT")="NAME not null"
^DIBT(653,2,"B",2040,2)=""
^DIBT(653,2,"B",2040.06,1)=""
^DIBT(654,0)="ANRV INC AMIS^2910605.1246^^2040^^^2980514^"
^DIBT(654,2,0)="^.4014^2^2"
^DIBT(654,2,1,0)="2040^^(#4.5="""")!(#7="""")!(#9="""")^""@B^;L1^^^^^4"
^DIBT(654,2,1,3,0)="^.401419^3^3"
^DIBT(654,2,1,3,1,0)="OVF0^9.2"
^DIBT(654,2,1,3,1,"OVF0")="S Y(2)=$C(59)_$S($D(^DD(2040,4.5,0)):$P(^(0),U,3),1:""""),Y(5)=$C(59)_$S($D(^DD(2040,7,0)):$P(^(0),U,3),1:""""),Y(7)=$C(59)_$S($D(^DD(2040,9,0)):$P(^(0),U,3),1:"""")"
^DIBT(654,2,1,3,2,0)="OVF0^9.3"
^DIBT(654,2,1,3,2,"OVF0")="X DPP(1,""OVF0"",9.2) S Y(4)=$S($D(^ANRV(2040,D0,13)):^(13),1:""""),Y(1)=$S($D(^(7)):^(7),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1)="""",Y(3)=X"
^DIBT(654,2,1,3,3,0)="OVF0^9.4"
^DIBT(654,2,1,3,3,"OVF0")="X DPP(1,""OVF0"",9.3) S X=$P($P(Y(5),$C(59)_$P(Y(4),U,2)_"":"",2),$C(59),1)="""",Y=X,X=Y(3),X=X!Y,Y(6)=X S X=$P($P(Y(7),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59),1)="""""
^DIBT(654,2,1,3,"B","OVF0",1)=""
^DIBT(654,2,1,3,"B","OVF0",2)=""
^DIBT(654,2,1,3,"B","OVF0",3)=""
^DIBT(654,2,1,"CM")="X DPP(1,""OVF0"",9.4) S Y=X,X=Y(6),X=X!Y I D0>0 S DISX(1)=X"
^DIBT(654,2,1,"F")="0"
^DIBT(654,2,1,"GET")="X DPP(1,""OVF0"",9.4) S Y=X,X=Y(6),X=X!Y I D0>0 S DISX(1)=X"
^DIBT(654,2,1,"QCON")="I DISX(1)"
^DIBT(654,2,1,"T")="1"
^DIBT(654,2,1,"TXT")="(#4.5="""""""")!(#7="""""""")!(#9="""""""")"
^DIBT(654,2,2,0)="2040^^NAME^"".01^^^^^^4"
^DIBT(654,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(654,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(654,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(654,2,2,"PTRIX")="^DPT(""B"","
^DIBT(654,2,2,"QCON")="I DISX(2)'="""""
^DIBT(654,2,2,"SER")="0.0000^0.0000"
^DIBT(654,2,2,"TXT")="NAME not null"
^DIBT(654,2,"B",2040,1)=""
^DIBT(654,2,"B",2040,2)=""
^DIBT(655,0)="ANRV DECEASED LIST^2930601.134^^2040^^^2980430^"
^DIBT(655,2,0)="^.4014^3^3"
^DIBT(655,2,1,0)="2^^DATE OF DEATH'=""""^""""@B^;L1^^^^^4"
^DIBT(655,2,1,2,0)="^.401418^1^1"
^DIBT(655,2,1,2,1,0)="2040^100^2^DPT(^0"
^DIBT(655,2,1,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(655,2,1,2,"B",2040,1)=""
^DIBT(655,2,1,"CM")="S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(Y(101),U,1)'="""" I D0>0 S DISX(1)=X"
^DIBT(655,2,1,"F")="0"
^DIBT(655,2,1,"GET")="S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(Y(101),U,1)'="""" I D0>0 S DISX(1)=X"
^DIBT(655,2,1,"QCON")="I DISX(1)"
^DIBT(655,2,1,"T")="1"
^DIBT(655,2,1,"TXT")="DATE OF DEATH'="""""""""
^DIBT(655,2,2,0)="2040^^NAME:DATE OF DEATH^@""^^^D^^^1"
^DIBT(655,2,2,3,0)="^.401419^1^1"
^DIBT(655,2,2,3,1,0)="OVF0^9.2"
^DIBT(655,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"""")"
^DIBT(655,2,2,3,"B","OVF0",1)=""
^DIBT(655,2,2,"ASK")="1"
^DIBT(655,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(655,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$P(Y(101),U,1) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(655,2,2,"QCON")="I DISX(2)'="""""
^DIBT(655,2,2,"TXT")="NAME:DATE OF DEATH not null"
^DIBT(655,2,3,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(655,2,3,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(655,2,3,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(655,2,3,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(655,2,3,"PTRIX")="^DPT(""B"","
^DIBT(655,2,3,"QCON")="I DISX(3)'="""""
^DIBT(655,2,3,"SER")="0.0000^0.0000"
^DIBT(655,2,3,"TXT")="NAME not null"
^DIBT(655,2,"B",2,1)=""
^DIBT(655,2,"B",2040,2)=""
^DIBT(655,2,"B",2040,3)=""
^DIBT(656,0)="ANRV AGE LIST^2930522.1444^^2040^^^2980430^"
^DIBT(656,2,0)="^.4014^3^3"
^DIBT(656,2,1,0)="2040^^INTERNAL(VIST ELIGIBLE (AMIS))'=""I""^@""@B^;L1^^^^^4"
^DIBT(656,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(656,2,1,"F")="0"
^DIBT(656,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(656,2,1,"QCON")="I DISX(1)"
^DIBT(656,2,1,"T")="1"
^DIBT(656,2,1,"TXT")="INTERNAL(VIST ELIGIBLE (AMIS))'=""""I"""""
^DIBT(656,2,2,0)="2040^^NAME:AGE^@""^;""AGE"";S^^^^^4"
^DIBT(656,2,2,"ASK")="1"
^DIBT(656,2,2,"CM")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(656,2,2,"GET")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(656,2,2,"QCON")="I DISX(2)'="""""
^DIBT(656,2,2,"TXT")="NAME:AGE not null"
^DIBT(656,2,3,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(656,2,3,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(656,2,3,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(656,2,3,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(656,2,3,"PTRIX")="^DPT(""B"","
^DIBT(656,2,3,"QCON")="I DISX(3)'="""""
^DIBT(656,2,3,"SER")="0.0000^0.0000"
^DIBT(656,2,3,"TXT")="NAME not null"
^DIBT(656,2,"B",2040,1)=""
^DIBT(656,2,"B",2040,2)=""
^DIBT(656,2,"B",2040,3)=""
^DIBT(657,0)="ANRV BIRTH LIST^2930522.1447^^2040^^^2980430^"
^DIBT(657,2,0)="^.4014^3^3"
^DIBT(657,2,1,0)="2040^^INTERNAL(VIST ELIGIBLE (AMIS))'=""I""^@""@B^;L1^^^^^4"
^DIBT(657,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(657,2,1,"F")="0"
^DIBT(657,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(657,2,1,"QCON")="I DISX(1)"
^DIBT(657,2,1,"T")="1"
^DIBT(657,2,1,"TXT")="INTERNAL(VIST ELIGIBLE (AMIS))'=""""I"""""
^DIBT(657,2,2,0)="2040^^NAME:MONTHNAME(+$E(DATE OF BIRTH,4,5))^@""^;""DATE OF BIRTH MONTH""^^^^^4"
^DIBT(657,2,2,3,0)="^.401419^2^2"
^DIBT(657,2,2,3,1,0)="OVF0^9.2"
^DIBT(657,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(103)=$S($D(^DPT(D0,0)):^(0),1:""""),Y(101)=X"
^DIBT(657,2,2,3,2,0)="OVF0^9.3"
^DIBT(657,2,2,3,2,"OVF0")="X DPP(2,""OVF0"",9.2) S Y(102)=X S X=$P(Y(103),U,3),Y(104)=X S X=4,Y(105)=X S X=5,X=$E(Y(104),Y(105),X) S Y=X,X=Y(102),X=X+Y"
^DIBT(657,2,2,3,"B","OVF0",1)=""
^DIBT(657,2,2,3,"B","OVF0",2)=""
^DIBT(657,2,2,"ASK")="1"
^DIBT(657,2,2,"CM")="X DPP(2,""OVF0"",9.3) S X=$P(""JANUARY^FEBRUARY^MARCH^APRIL^MAY^JUNE^JULY^AUGUST^SEPTEMBER^OCTOBER^NOVEMBER^DECEMBER"",""^"",+X) S X=X S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(657,2,2,"GET")="X DPP(2,""OVF0"",9.3) S X=$P(""JANUARY^FEBRUARY^MARCH^APRIL^MAY^JUNE^JULY^AUGUST^SEPTEMBER^OCTOBER^NOVEMBER^DECEMBER"",""^"",+X) S X=X S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(657,2,2,"QCON")="I DISX(2)'="""""
^DIBT(657,2,2,"TXT")="NAME:MONTHNAME(+$E(DATE OF BIRTH,4,5)) not null"
^DIBT(657,2,3,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(657,2,3,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(657,2,3,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(657,2,3,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(657,2,3,"PTRIX")="^DPT(""B"","
^DIBT(657,2,3,"QCON")="I DISX(3)'="""""
^DIBT(657,2,3,"SER")="0.0000^0.0000"
^DIBT(657,2,3,"TXT")="NAME not null"
^DIBT(657,2,"B",2040,1)=""
^DIBT(657,2,"B",2040,2)=""
^DIBT(657,2,"B",2040,3)=""
^DIBT(658,0)="ANRV EYE DIAG PRINT^2980515.0912^^2040^^^2980515"
^DIBT(658,2,0)="^.4014^2^2"
^DIBT(658,2,1,0)="2040.01^^EYE DIAGNOSIS^@+"".01^;S^^^^^4"
^DIBT(658,2,1,1,0)="^.40141^1^1"
^DIBT(658,2,1,1,1,0)="2040^15"
^DIBT(658,2,1,1,"B",2040,1)=""
^DIBT(658,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,15,D1,0)):^(0),1:"""") S X=$S('$D(^ANRV(2041.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(658,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,15,D1,0)):^(0),1:"""") S X=$S('$D(^ANRV(2041.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(658,2,1,"QCON")="I DISX(1)'="""""
^DIBT(658,2,1,"TXT")="EYE DIAGNOSIS not null"
^DIBT(658,2,2,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(658,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(658,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(658,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(658,2,2,"PTRIX")="^DPT(""B"","
^DIBT(658,2,2,"QCON")="I DISX(2)'="""""
^DIBT(658,2,2,"SER")="0.0000^0.0000"
^DIBT(658,2,2,"TXT")="NAME not null"
^DIBT(658,2,"B",2040,2)=""
^DIBT(658,2,"B",2040.01,1)=""
^DIBT(659,0)="ANRV EYE DIAG NAR^2930913.1156^^2040^^^2980430^"
^DIBT(659,2,0)="^.4014^2^2"
^DIBT(659,2,1,0)="2040^^INTERNAL(VIST ELIGIBLE (AMIS))'=""I""^@""@B^;L1^^^^^4"
^DIBT(659,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(659,2,1,"F")="0"
^DIBT(659,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(659,2,1,"QCON")="I DISX(1)"
^DIBT(659,2,1,"T")="1"
^DIBT(659,2,1,"TXT")="INTERNAL(VIST ELIGIBLE (AMIS))'=""""I"""""
^DIBT(659,2,2,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(659,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(659,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(659,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(659,2,2,"PTRIX")="^DPT(""B"","
^DIBT(659,2,2,"QCON")="I DISX(2)'="""""
^DIBT(659,2,2,"SER")="0.0000^0.0000"
^DIBT(659,2,2,"TXT")="NAME not null"
^DIBT(659,2,"B",2040,1)=""
^DIBT(659,2,"B",2040,2)=""
^DIBT(660,0)="ANRV REFERRAL LIST^2930621.1356^^2040^^^2980527^"
^DIBT(660,2,0)="^.4014^4^4"
^DIBT(660,2,1,0)="2040^^INTERNAL(VIST ELIGIBLE (AMIS))'=""I""^@""@B^;L1^^^^^4"
^DIBT(660,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(660,2,1,"F")="0"
^DIBT(660,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(660,2,1,"QCON")="I DISX(1)"
^DIBT(660,2,1,"T")="1"
^DIBT(660,2,1,"TXT")="INTERNAL(VIST ELIGIBLE (AMIS))'=""""I"""""
^DIBT(660,2,2,0)="2040^.015^ENROLLMENT DATE^'^^^^^^1"
^DIBT(660,2,2,"ASK")="1"
^DIBT(660,2,2,"GET")="S DISX(2)=$P($G(^ANRV(2040,D0,7)),U,6)"
^DIBT(660,2,2,"QCON")="I DISX(2)'="""""
^DIBT(660,2,2,"SER")="0.0769^0.0769"
^DIBT(660,2,2,"TXT")="ENROLLMENT DATE not null"
^DIBT(660,2,3,0)="2040^.5^REFERRAL SOURCE^+@^;S^^^^^3"
^DIBT(660,2,3,"GET")="S DISX(3)=$P($G(^ANRV(2040,D0,9)),U)"
^DIBT(660,2,3,"QCON")="I DISX(3)'="""""
^DIBT(660,2,3,"SER")="0.1538^0.1538"
^DIBT(660,2,3,"TXT")="REFERRAL SOURCE not null"
^DIBT(660,2,4,0)="2040^^NAME^"".01^^^^^^4"
^DIBT(660,2,4,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(660,2,4,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(660,2,4,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(660,2,4,"PTRIX")="^DPT(""B"","
^DIBT(660,2,4,"QCON")="I DISX(4)'="""""
^DIBT(660,2,4,"SER")="0.0000^0.0000"
^DIBT(660,2,4,"TXT")="NAME not null"
^DIBT(660,2,"B",2040,1)=""
^DIBT(660,2,"B",2040,2)=""
^DIBT(660,2,"B",2040,3)=""
^DIBT(660,2,"B",2040,4)=""
^DIBT(661,0)="ANRV FEE PT^2930805.135^^2040^^^2980430^"
^DIBT(661,2,0)="^.4014^3^3"
^DIBT(661,2,1,0)="2040^^INTERNAL(VIST ELIGIBLE (AMIS))'=""I""^@""@B^;L1^^^^^4"
^DIBT(661,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(661,2,1,"F")="0"
^DIBT(661,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(661,2,1,"QCON")="I DISX(1)"
^DIBT(661,2,1,"T")="1"
^DIBT(661,2,1,"TXT")="INTERNAL(VIST ELIGIBLE (AMIS))'=""""I"""""
^DIBT(661,2,2,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(661,2,2,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(661,2,2,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(661,2,2,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(661,2,2,"PTRIX")="^DPT(""B"","
^DIBT(661,2,2,"QCON")="I DISX(2)'="""""
^DIBT(661,2,2,"SER")="0.0000^0.0000"
^DIBT(661,2,2,"TXT")="NAME not null"
^DIBT(661,2,3,0)="161.01^^TREATMENT TYPE CODE[""CARD""&(TO DATE>T)^""""@B^;L1^^^^^4"
^DIBT(661,2,3,1,0)="^.40141^1^1"
^DIBT(661,2,3,1,1,0)="161^1"
^DIBT(661,2,3,1,"B",161,1)=""
^DIBT(661,2,3,2,0)="^.401418^1^1"
^DIBT(661,2,3,2,1,0)="2040^200^161^FBAAA(^0"
^DIBT(661,2,3,2,1,"RCOD")="X DPP(3,""OVF0"",9.2) S D0=D0 S:'$D(^FBAAA(+D0,0)) D0=-1 S D(0)=D0 S Y(201)=$S($D(^FBAAA(D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(201),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0)"
^DIBT(661,2,3,2,"B",2040,1)=""
^DIBT(661,2,3,3,0)="^.401419^2^2"
^DIBT(661,2,3,3,1,0)="OVF0^9.2"
^DIBT(661,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S D(0)=D0 S I(100,0)=$S($D(D0):D0,1:"""")"
^DIBT(661,2,3,3,2,0)="OVF201^9.2"
^DIBT(661,2,3,3,2,"OVF0")="S Y(202)=$C(59)_$S($D(^DD(161.01,.095,0)):$P(^(0),U,3),1:""""),Y(201)=$S($D(^FBAAA(D0,1,D1,0)):^(0),1:"""") S X=$P($P(Y(202),$C(59)_$P(Y(201),U,13)_"":"",2),$C(59),1)"
^DIBT(661,2,3,3,"B","OVF0",1)=""
^DIBT(661,2,3,3,"B","OVF201",2)=""
^DIBT(661,2,3,"CM")="X DPP(3,""OVF201"",9.2) S X=X[""CARD"",Y(203)=X S X=$P(Y(201),U,2)>2930805,Y=X,X=Y(203),X=X&Y I D1>0 S DISX(3)=X"
^DIBT(661,2,3,"F")="0"
^DIBT(661,2,3,"GET")="X DPP(3,""OVF201"",9.2) S X=X[""CARD"",Y(203)=X S X=$P(Y(201),U,2)>2930805,Y=X,X=Y(203),X=X&Y I D1>0 S DISX(3)=X"
^DIBT(661,2,3,"QCON")="I DISX(3)"
^DIBT(661,2,3,"T")="1"
^DIBT(661,2,3,"TXT")="TREATMENT TYPE CODE[""""CARD""""&(TO DATE>T)"
^DIBT(661,2,"B",161.01,3)=""
^DIBT(661,2,"B",2040,1)=""
^DIBT(661,2,"B",2040,2)=""
^DIBT(662,0)="ANRV ELIG AMIS LIST^2940331.1026^^2040^^^2980430^"
^DIBT(662,2,0)="^.4014^3^3"
^DIBT(662,2,1,0)="2040^^INTERNAL(VIST ELIGIBLE (AMIS))'=""I""^""@B^;L1^^^^^4"
^DIBT(662,2,1,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(662,2,1,"F")="0"
^DIBT(662,2,1,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,13)):^(13),1:"""") S X=$P(Y(1),U,2),X=X S X=X'=""I"" I D0>0 S DISX(1)=X"
^DIBT(662,2,1,"QCON")="I DISX(1)"
^DIBT(662,2,1,"T")="1"
^DIBT(662,2,1,"TXT")="INTERNAL(VIST ELIGIBLE (AMIS))'=""""I"""""
^DIBT(662,2,2,0)="2040^7^VIST ELIGIBLE (AMIS)^@+^;S^^^^^3"
^DIBT(662,2,2,"GET")="S DISX(2)=$P($G(^ANRV(2040,D0,13)),U,2)"
^DIBT(662,2,2,"QCON")="I DISX(2)'="""""
^DIBT(662,2,2,"SER")="0.1176^0.1176"
^DIBT(662,2,2,"TXT")="VIST ELIGIBLE (AMIS) not null"
^DIBT(662,2,3,0)="2040^^NAME^@"".01^^^^^^4"
^DIBT(662,2,3,"CM")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(662,2,3,"GET")="S Y(1)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(662,2,3,"IX")="^ANRV(2040,""B"",^ANRV(2040,^2"
^DIBT(662,2,3,"PTRIX")="^DPT(""B"","
^DIBT(662,2,3,"QCON")="I DISX(3)'="""""
^DIBT(662,2,3,"SER")="0.0000^0.0000"
^DIBT(662,2,3,"TXT")="NAME not null"
^DIBT(662,2,"B",2040,1)=""
^DIBT(662,2,"B",2040,2)=""
^DIBT(662,2,"B",2040,3)=""
^DIBT(663,0)="ANRVRRL^2980527.134^^2042.5^^^2980610"
^DIBT(663,2,0)="^.4014^2^2"
^DIBT(663,2,1,0)="2042.51^.01^REFERRAL DATE^@^^^^^^1"
^DIBT(663,2,1,1,0)="^.40141^1^1"
^DIBT(663,2,1,1,1,0)="2042.5^1"
^DIBT(663,2,1,1,"B",2042.5,1)=""
^DIBT(663,2,1,"ASK")="1"
^DIBT(663,2,1,"F")="2970609.99999^T-365^Jun 10,1997"
^DIBT(663,2,1,"GET")="S DISX(1)=$P($G(^ANRV(2042.5,D0,1,D1,0)),U)"
^DIBT(663,2,1,"IX")="^ANRV(2042.5,""C"",^ANRV(2042.5,^2"
^DIBT(663,2,1,"QCON")="I DISX(1)'="""""
^DIBT(663,2,1,"T")="2980610.24^T@2400^Jun 10,1998@24:00"
^DIBT(663,2,1,"TXT")="REFERRAL DATE not null"
^DIBT(663,2,2,0)="2042.5^^NAME^"".01^^^^^^4"
^DIBT(663,2,2,3,0)="^.401419^1^1"
^DIBT(663,2,2,3,1,0)="OVF0^9.2"
^DIBT(663,2,2,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ANRV(2042.5,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^ANRV(2040,+D0,0)) D0=-1 S Y(101)=$S($D(^ANRV(2040,D0,0)):^(0),1:"""")"
^DIBT(663,2,2,3,"B","OVF0",1)=""
^DIBT(663,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(663,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(663,2,2,"QCON")="I DISX(2)'="""""
^DIBT(663,2,2,"TXT")="NAME not null"
^DIBT(663,2,"B",2042.5,2)=""
^DIBT(663,2,"B",2042.51,1)=""
^DIBT(664,0)="ABSV ORGANIZATION CONDENSED^2980622.0953^@^503335^^@^2980622"
^DIBT(664,2,0)="^.4014^3^3"
^DIBT(664,2,1,0)="503335^4^MONTH/YEAR^'^^^^^^1"
^DIBT(664,2,1,"ASK")="1"
^DIBT(664,2,1,"F")="2980499.99999^0598^May 1998"
^DIBT(664,2,1,"GET")="S DISX(1)=$P($G(^ABS(503335,D0,0)),U,5)"
^DIBT(664,2,1,"IX")="^ABS(503335,""AK"",^ABS(503335,^2"
^DIBT(664,2,1,"QCON")="I DISX(1)]]2980499.99999"
^DIBT(664,2,1,"SER")="100.0000^1.0000"
^DIBT(664,2,1,"T")="z^"
^DIBT(664,2,1,"TXT")="MONTH/YEAR from May 1998"
^DIBT(664,2,2,0)="503335^1.15^ORGANIZATION NAME^#+^^^^^^4"
^DIBT(664,2,2,"GET")="X ^DD(503335,1.15,9.2) S Y(503335,1.15,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.15,101),U,2) S D0=Y(503335,1.15,80) S DISX(2)=X"
^DIBT(664,2,2,"QCON")="I DISX(2)'="""""
^DIBT(664,2,2,"SER")="0.0000^0.0000"
^DIBT(664,2,2,"TXT")="ORGANIZATION NAME not null"
^DIBT(664,2,3,0)="503335^^NAME^"".01^^^^^^4"
^DIBT(664,2,3,"CM")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(664,2,3,"GET")="S Y(1)=$S($D(^ABS(503335,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503330,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(664,2,3,"IX")="^ABS(503335,""B"",^ABS(503335,^2"
^DIBT(664,2,3,"PTRIX")="^ABS(503330,""B"","
^DIBT(664,2,3,"QCON")="I DISX(3)'="""""
^DIBT(664,2,3,"SER")="0.0000^0.0000"
^DIBT(664,2,3,"TXT")="NAME not null"
^DIBT(664,2,"B",503335,1)=""
^DIBT(664,2,"B",503335,2)=""
^DIBT(664,2,"B",503335,3)=""
^DIBT(664,"%D",0)="^^2^2^2980622^"
^DIBT(664,"%D",1,0)="This template contains the sort logic necessary to print the condensed"
^DIBT(664,"%D",2,0)="Organization detail list."
^DIBT(665,0)="RMPR LIST^3000524.1104^@^661.1^^@^3000524"
^DIBT(665,2,0)="^.4014^2^2"
^DIBT(665,2,1,0)="661.1^.01^HCPCS^^^^^^^4"
^DIBT(665,2,1,"GET")="S DISX(1)=$P($G(^RMPR(661.1,D0,0)),U)"
^DIBT(665,2,1,"QCON")="I DISX(1)'="""""
^DIBT(665,2,1,"SER")="0^0"
^DIBT(665,2,1,"TXT")="HCPCS not null"
^DIBT(665,2,2,0)="661.1^^STATUS=""ACTIVE""^""@B^;L1^^^^^4"
^DIBT(665,2,2,"CM")="S Y(2)=$C(59)_$P($G(^DD(661.1,3,0)),U,3),Y(1)=$S($D(^RMPR(661.1,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""ACTIVE"" I D0>0 S DISX(2)=X"
^DIBT(665,2,2,"F")="0"
^DIBT(665,2,2,"GET")="S Y(2)=$C(59)_$P($G(^DD(661.1,3,0)),U,3),Y(1)=$S($D(^RMPR(661.1,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""ACTIVE"" I D0>0 S DISX(2)=X"
^DIBT(665,2,2,"QCON")="I DISX(2)"
^DIBT(665,2,2,"T")="1"
^DIBT(665,2,2,"TXT")="STATUS=""""ACTIVE"""""
^DIBT(665,2,"B",661.1,1)=""
^DIBT(665,2,"B",661.1,2)=""
^DIBT(665,"%D",0)="^^1^1^3000524^"
^DIBT(665,"%D",1,0)="Print Prosthetic HPCPS List."
^DIBT(666,0)="XDR MERGED LIST^2981109.1348^^15^^^2981109"
^DIBT(666,2,0)="^.4014^3^3"
^DIBT(666,2,1,0)="15^.05^MERGE STATUS^@^^^^^^3"
^DIBT(666,2,1,"F")="1.99999^2^2 (MERGED)"
^DIBT(666,2,1,"GET")="S DISX(1)=$P($G(^VA(15,D0,0)),U,5)"
^DIBT(666,2,1,"QCON")="I DISX(1)=2"
^DIBT(666,2,1,"SER")="0.0000^0.0000"
^DIBT(666,2,1,"T")="2^2^2 (MERGED)"
^DIBT(666,2,1,"TXT")="MERGE STATUS equals 2 (MERGED)"
^DIBT(666,2,2,0)="15^.19^DC DUPE MATCH PERCENTILE^@-^^^^^^2"
^DIBT(666,2,2,"GET")="S DISX(2)=$P($G(^VA(15,D0,0)),U,19) S:DISX(2)]"""" DISX(2)=+DISX(2)"
^DIBT(666,2,2,"QCON")="I DISX(2)'="""""
^DIBT(666,2,2,"SER")="0.0000^0.0000"
^DIBT(666,2,2,"TXT")="DC DUPE MATCH PERCENTILE not null"
^DIBT(666,2,3,0)="15^.08^DATE RESOLVED^@^^^^^^1"
^DIBT(666,2,3,"GET")="S DISX(3)=$P($G(^VA(15,D0,0)),U,8)"
^DIBT(666,2,3,"QCON")="I DISX(3)'="""""
^DIBT(666,2,3,"SER")="0.0000^0.0000"
^DIBT(666,2,3,"TXT")="DATE RESOLVED not null"
^DIBT(666,2,"B",15,1)=""
^DIBT(666,2,"B",15,2)=""
^DIBT(666,2,"B",15,3)=""
^DIBT(666,"%D",0)="^^2^2^2981109^^^"
^DIBT(666,"%D",1,0)="This template is used to print out a listing of all merged entries"
^DIBT(666,"%D",2,0)="from the duplicate record file."
^DIBT(667,0)="DG NPTF TOTALS^3040921.0954^^772^^@^3040921"
^DIBT(667,2,0)="^.4014^3^3"
^DIBT(667,2,1,0)="772^.01^DATE/TIME ENTERED^#^;L7;C1;""PIMS EVENTS DATED ""^^^^^1"
^DIBT(667,2,1,"ASK")="1"
^DIBT(667,2,1,"F")="3040907.999999^Sep 8,2004^Sep 8,2004"
^DIBT(667,2,1,"GET")="S DISX(1)=$P($G(^HL(772,D0,0)),U)"
^DIBT(667,2,1,"IX")="^HL(772,""B"",^HL(772,^2"
^DIBT(667,2,1,"QCON")="I (DISX(1)]]3040907.999999)&(DISX(1)']]3040921.24)"
^DIBT(667,2,1,"SER")="100.0000^1.0000"
^DIBT(667,2,1,"T")="3040921.24^Sep 21,2004@2400^Sep 21,2004@24:00"
^DIBT(667,2,1,"TXT")="DATE/TIME ENTERED from Sep 8,2004 to Sep 21,2004@24:00"
^DIBT(667,2,2,0)="772^^CLIENT APPLICATION^@""3^^^^^^4"
^DIBT(667,2,2,"CM")="S Y(1)=$S($D(^HL(772,D0,0)):^(0),1:"""") S X=$P($G(^HL(771,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(2)=X"
^DIBT(667,2,2,"F")="NPTEz^NPTF "
^DIBT(667,2,2,"GET")="S Y(1)=$S($D(^HL(772,D0,0)):^(0),1:"""") S X=$P($G(^HL(771,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(2)=X"
^DIBT(667,2,2,"QCON")="I (DISX(2)]]""NPTEz"")&(DISX(2)']]""NPTFz"")"
^DIBT(667,2,2,"T")="NPTFz^NPTFz"
^DIBT(667,2,2,"TXT")="CLIENT APPLICATION from NPTF  to NPTFz"
^DIBT(667,2,3,0)="779.001^2^DESCRIPTION^""""^;C1;S1;""""^^^^^4"
^DIBT(667,2,3,2,0)="^.401418^2^2"
^DIBT(667,2,3,2,1,0)="101^200^779.001^HL(779.001,^0"
^DIBT(667,2,3,2,1,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$P(Y(101),U,4),X=X S D(0)=+X"
^DIBT(667,2,3,2,2,0)="772^100^101^ORD(101,^0"
^DIBT(667,2,3,2,2,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^HL(772,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S D(0)=+X"
^DIBT(667,2,3,2,"B",101,1)=""
^DIBT(667,2,3,2,"B",772,2)=""
^DIBT(667,2,3,"GET")="S DISX(3)=$P($G(^HL(779.001,D0,0)),U,2)"
^DIBT(667,2,3,"QCON")="I DISX(3)'="""""
^DIBT(667,2,3,"TXT")="DESCRIPTION not null"
^DIBT(667,2,"B",772,1)=""
^DIBT(667,2,"B",772,2)=""
^DIBT(667,2,"B",779.001,3)=""
^DIBT(668,0)="PRCS CP ITEMHIST^2971106.1323^^410^^^2980922"
^DIBT(668,2,0)="^.4014^3^3"
^DIBT(668,2,1,0)="410^15^CONTROL POINT^^^^^^^4"
^DIBT(668,2,1,"ASK")="1"
^DIBT(668,2,1,"F")="911 PROSTHETICRz^911 PROSTHETICS"
^DIBT(668,2,1,"GET")="S DISX(1)=$P($G(^PRCS(410,D0,3)),U)"
^DIBT(668,2,1,"IX")="^PRCS(410,""AN"",^PRCS(410,^2"
^DIBT(668,2,1,"QCON")="I DISX(1)=""911 PROSTHETICS"""
^DIBT(668,2,1,"SER")="32.6667^0.9703"
^DIBT(668,2,1,"SRTTXT")="RANGE"
^DIBT(668,2,1,"T")="911 PROSTHETICS^911 PROSTHETICS"
^DIBT(668,2,1,"TXT")="CONTROL POINT equals 911 PROSTHETICS"
^DIBT(668,2,2,0)="410.02^5^ITEM MASTER FILE NO.^^^^^^^4"
^DIBT(668,2,2,1,0)="^.40141^1^1"
^DIBT(668,2,2,1,1,0)="410^IT"
^DIBT(668,2,2,1,"B",410,1)=""
^DIBT(668,2,2,"ASK")="1"
^DIBT(668,2,2,"F")="118.99999^119"
^DIBT(668,2,2,"GET")="S DISX(2)=$P($G(^PRCS(410,D0,""IT"",D1,0)),U,5)"
^DIBT(668,2,2,"QCON")="I DISX(2)=119"
^DIBT(668,2,2,"T")="119^119"
^DIBT(668,2,2,"TXT")="ITEM MASTER FILE NO. equals 119"
^DIBT(668,2,3,0)="410^23^DATE OBLIGATED^-@^^^^^^1"
^DIBT(668,2,3,"ASK")="1"
^DIBT(668,2,3,"F")="2970921.99999^2970922^Sep 22,1997"
^DIBT(668,2,3,"GET")="S DISX(3)=$P($G(^PRCS(410,D0,4)),U,4)"
^DIBT(668,2,3,"QCON")="I (DISX(3)]]2970921.99999)&(DISX(3)']]2980922)"
^DIBT(668,2,3,"SER")="0.7228^0.7228"
^DIBT(668,2,3,"T")="2980922^2980922^Sep 22,1998"
^DIBT(668,2,3,"TXT")="DATE OBLIGATED from Sep 22,1997 to Sep 22,1998"
^DIBT(668,2,"B",410,1)=""
^DIBT(668,2,"B",410,3)=""
^DIBT(668,2,"B",410.02,2)=""
^DIBT(669,0)="PRCH ITEM TXHIST^2980401.0954^^442^^^2980722"
^DIBT(669,2,0)="^.4014^4^4"
^DIBT(669,2,1,0)="442^1^FCP^@#^^^^^^4"
^DIBT(669,2,1,"ASK")="1"
^DIBT(669,2,1,"F")="0 AA@z^0 AAA"
^DIBT(669,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,0)),U,3)"
^DIBT(669,2,1,"QCON")="I (DISX(1)]]""0 AA@z"")&(DISX(1)']]""99999 ZZZ ZZZ"")"
^DIBT(669,2,1,"SER")="0.1287^0.1287"
^DIBT(669,2,1,"T")="99999 ZZZ ZZZ^99999 ZZZ ZZZ"
^DIBT(669,2,1,"TXT")="FCP from 0 AAA to 99999 ZZZ ZZZ"
^DIBT(669,2,2,0)="442^^$P(PURCHASE ORDER NUMBER,""-"",1)^@""^;""STN""^^^^^4"
^DIBT(669,2,2,"ASK")="1"
^DIBT(669,2,2,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",Y(3)=X S X=1,X=$P(Y(2),Y(3),X) I D0>0 S DISX(2)=X"
^DIBT(669,2,2,"F")="687.99999^688"
^DIBT(669,2,2,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""-"",Y(3)=X S X=1,X=$P(Y(2),Y(3),X) I D0>0 S DISX(2)=X"
^DIBT(669,2,2,"QCON")="I DISX(2)=688"
^DIBT(669,2,2,"T")="688^688"
^DIBT(669,2,2,"TXT")="$P(PURCHASE ORDER NUMBER,""""-"""",1) equals 688"
^DIBT(669,2,3,0)="442.01^^ITEM MASTER FILE NO.^@""1.5^^^^^^2"
^DIBT(669,2,3,1,0)="^.40141^1^1"
^DIBT(669,2,3,1,1,0)="442^2"
^DIBT(669,2,3,1,"B",442,1)=""
^DIBT(669,2,3,"ASK")="1"
^DIBT(669,2,3,"CM")="S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"""") S X=$S('$D(^PRC(441,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(3)=X"
^DIBT(669,2,3,"F")=".99999^1"
^DIBT(669,2,3,"GET")="S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"""") S X=$S('$D(^PRC(441,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(3)=X"
^DIBT(669,2,3,"QCON")="I DISX(3)=1"
^DIBT(669,2,3,"T")="1^1"
^DIBT(669,2,3,"TXT")="ITEM MASTER FILE NO. equals 1"
^DIBT(669,2,4,0)="442^.1^P.O. DATE^-^^^^^^1"
^DIBT(669,2,4,"ASK")="1"
^DIBT(669,2,4,"F")="2980100.99999^2980101^Jan 1,1998"
^DIBT(669,2,4,"GET")="S DISX(4)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(669,2,4,"QCON")="I (DISX(4)]]2980100.99999)&(DISX(4)']]2980722)"
^DIBT(669,2,4,"SER")="0.5149^0.5149"
^DIBT(669,2,4,"T")="2980722^2980722^Jul 22,1998"
^DIBT(669,2,4,"TXT")="P.O. DATE from Jan 1,1998 to Jul 22,1998"
^DIBT(669,2,"B",442,1)=""
^DIBT(669,2,"B",442,2)=""
^DIBT(669,2,"B",442,4)=""
^DIBT(669,2,"B",442.01,3)=""
^DIBT(670,0)="PSO COST STAT^2980629.1244^^50.9^^^2990622"
^DIBT(670,2,0)="^.4014^2^2"
^DIBT(670,2,1,0)="50.9006^^DIVISION^+"".01^^^^^^4"
^DIBT(670,2,1,1,0)="^.40141^1^1"
^DIBT(670,2,1,1,1,0)="50.9^V"
^DIBT(670,2,1,1,"B",50.9,1)=""
^DIBT(670,2,1,"ASK")="1"
^DIBT(670,2,1,"CM")="S Y(1)=$S($D(^PSCST(D0,""V"",D1,0)):^(0),1:"""") S X=$S('$D(^PS(59,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(670,2,1,"F")="STICJz^STICK"
^DIBT(670,2,1,"GET")="S Y(1)=$S($D(^PSCST(D0,""V"",D1,0)):^(0),1:"""") S X=$S('$D(^PS(59,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X"
^DIBT(670,2,1,"QCON")="I DISX(1)'="""""
^DIBT(670,2,1,"T")="z^"
^DIBT(670,2,1,"TXT")="DIVISION not null"
^DIBT(670,2,2,0)="50.9^.01^FILLED DATE^@^;^^^^^1"
^DIBT(670,2,2,"ASK")="1"
^DIBT(670,2,2,"F")="2990100.99999^0101^Jan 1,1999"
^DIBT(670,2,2,"GET")="S DISX(2)=$P($G(^PSCST(D0,0)),U)"
^DIBT(670,2,2,"IX")="^PSCST(""B"",^PSCST(^2"
^DIBT(670,2,2,"QCON")="I DISX(2)'="""""
^DIBT(670,2,2,"SER")="0^0"
^DIBT(670,2,2,"T")="z^"
^DIBT(670,2,2,"TXT")="FILLED DATE not null"
^DIBT(670,2,"B",50.9,2)=""
^DIBT(670,2,"B",50.9006,1)=""
^DIBT(670,"%D",0)="^^2^2^2980629^^"
^DIBT(670,"%D",1,0)="This sort template is used to print Rx cost data sorted by Outpatient"
^DIBT(670,"%D",2,0)="Pharmacy division."
^DIBT(671,0)="PSOUPAT^2890328^^52^^^^"
^DIBT(671,2,1)="52^^DRUG^""6^"
^DIBT(671,2,1,"ASK")=""
^DIBT(671,2,1,"CM")="S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"""") S X=$S('$D(^PSDRUG(+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) I D0>0 S X(1)=X"
^DIBT(671,2,1,"F")="CHEMSTRIPRz"
^DIBT(671,2,1,"T")="CHEMSTRIPSZ"
^DIBT(671,2,2)="52^.01^RX #^^"
^DIBT(671,2,2,"IX")="^PSRX(""B"",^PSRX(^2"
^DIBT(671,2,3)="52^1^ISSUE DATE^^"
^DIBT(671,2,3,"ASK")=""
^DIBT(671,2,3,"F")="2881000.99999"
^DIBT(671,2,3,"T")="z"
^DIBT(672,0)="PSO BBWAIT SORT^2970520.1632^@^52.11^^@^2971016"
^DIBT(672,2,0)="^.4014^4^4"
^DIBT(672,2,1,0)="52.11^^DISPLAY GROUP^""2^;""DISPLAY: ""^^^^^4"
^DIBT(672,2,1,"CM")="S Y(1)=$S($D(^PS(52.11,D0,0)):^(0),1:"""") S X=$S('$D(^PS(59.3,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(672,2,1,"GET")="S Y(1)=$S($D(^PS(52.11,D0,0)):^(0),1:"""") S X=$S('$D(^PS(59.3,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(672,2,1,"IX")="^PS(52.11,""AD"",^PS(52.11,^2"
^DIBT(672,2,1,"PTRIX")="^PS(59.3,""B"","
^DIBT(672,2,1,"QCON")="I DISX(1)'="""""
^DIBT(672,2,1,"TXT")="DISPLAY GROUP not null"
^DIBT(672,2,2,0)="52.11^5^TIME IN^^^^^^^2"
^DIBT(672,2,2,"GET")="S DISX(2)=$P($G(^PS(52.11,D0,0)),U,6) S:DISX(2)]"""" DISX(2)=+DISX(2)"
^DIBT(672,2,2,"QCON")="I DISX(2)'="""""
^DIBT(672,2,2,"TXT")="TIME IN not null"
^DIBT(672,2,3,0)="52.11^8^NAME^^^^^^^4"
^DIBT(672,2,3,"GET")="S DISX(3)=$P($G(^PS(52.11,D0,1)),U,1)"
^DIBT(672,2,3,"QCON")="I DISX(3)'="""""
^DIBT(672,2,3,"TXT")="NAME not null"
^DIBT(672,2,4,0)="52.1112^.01^PRESCRIPTION(S)^^^^^^^4"
^DIBT(672,2,4,1,0)="^.40141^1^1"
^DIBT(672,2,4,1,1,0)="52.11^2"
^DIBT(672,2,4,1,"B",52.11,1)=""
^DIBT(672,2,4,"GET")="S DISX(4)=$P($G(^PS(52.11,D0,2,D1,0)),U,1)"
^DIBT(672,2,4,"QCON")="I DISX(4)'="""""
^DIBT(672,2,4,"TXT")="PRESCRIPTION(S) not null"
^DIBT(672,2,"B",52.11,1)=""
^DIBT(672,2,"B",52.11,2)=""
^DIBT(672,2,"B",52.11,3)=""
^DIBT(672,2,"B",52.1112,4)=""
^DIBT(672,"%D",0)="^^1^1^2970520^^"
^DIBT(672,"%D",1,0)="Sorted by Display Group, Time In, Name, and Prescription."
^DIBT(673,0)="PRCH BOC SORT^2990105.1917^^440.6^^^2990416"
^DIBT(673,2,0)="^.4014^4^4"
^DIBT(673,2,1,0)="440.6^^CARD HOLDER^""16^^^^^^4"
^DIBT(673,2,1,"ASK")="1"
^DIBT(673,2,1,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(673,2,1,"F")="@z^A"
^DIBT(673,2,1,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(673,2,1,"QCON")="I DISX(1)'="""""
^DIBT(673,2,1,"T")="z^"
^DIBT(673,2,1,"TXT")="CARD HOLDER not null"
^DIBT(673,2,2,0)="440.6^24^BOC^^;S1^^^^^4"
^DIBT(673,2,2,"F")="2695.99999^2696"
^DIBT(673,2,2,"GET")="S DISX(2)=$P($G(^PRCH(440.6,D0,5)),U,4)"
^DIBT(673,2,2,"QCON")="I (DISX(2)]]2695.99999)&(DISX(2)']]2699)"
^DIBT(673,2,2,"SER")="0.9891^0.9891"
^DIBT(673,2,2,"T")="2699^2699"
^DIBT(673,2,2,"TXT")="BOC from 2696 to 2699"
^DIBT(673,2,3,0)="440.6^^STATUS=""RECONCILED""!(""APPROVED"")^@""@B^;L1^^^^^4"
^DIBT(673,2,3,3,0)="^.401419^1^1"
^DIBT(673,2,3,3,1,0)="OVF0^9.2"
^DIBT(673,2,3,3,1,"OVF0")="S Y(2)=$C(59)_$S($D(^DD(440.6,15,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59),1)=""RECONCILED"""
^DIBT(673,2,3,3,"B","OVF0",1)=""
^DIBT(673,2,3,"CM")="X DPP(3,""OVF0"",9.2) S Y(3)=X S X=""APPROVED"",Y=X,X=Y(3),X=X!Y I D0>0 S DISX(3)=X"
^DIBT(673,2,3,"F")="0"
^DIBT(673,2,3,"GET")="X DPP(3,""OVF0"",9.2) S Y(3)=X S X=""APPROVED"",Y=X,X=Y(3),X=X!Y I D0>0 S DISX(3)=X"
^DIBT(673,2,3,"QCON")="I DISX(3)"
^DIBT(673,2,3,"T")="1"
^DIBT(673,2,3,"TXT")="STATUS=""""RECONCILED""""!(""""APPROVED"""")"
^DIBT(673,2,4,0)="440.6^6^TRANSACTION DATE^^^^^^^1"
^DIBT(673,2,4,"ASK")="1"
^DIBT(673,2,4,"F")="2990100.99999^1/1/99^Jan 1,1999"
^DIBT(673,2,4,"GET")="S DISX(4)=$P($G(^PRCH(440.6,D0,0)),U,7)"
^DIBT(673,2,4,"QCON")="I DISX(4)'="""""
^DIBT(673,2,4,"SER")="0.0000^0.0000"
^DIBT(673,2,4,"T")="2990405^T^Apr 5,1999"
^DIBT(673,2,4,"TXT")="TRANSACTION DATE not null"
^DIBT(673,2,"B",440.6,1)=""
^DIBT(673,2,"B",440.6,2)=""
^DIBT(673,2,"B",440.6,3)=""
^DIBT(673,2,"B",440.6,4)=""
^DIBT(673,"%D",0)="^^2^2^2990105^^"
^DIBT(673,"%D",1,0)="This sort template is used for a report of reconciled or approved purchase"
^DIBT(673,"%D",2,0)="card transactions using the BOC range 2696 to 2699."
^DIBT(674,0)="ABSV GAMES WORK SCHEDULE^2990422.151^^503330^^^2990422"
^DIBT(674,2,0)="^.4014^4^4"
^DIBT(674,2,1,0)="503330.03^6^STATION NUMBER^@^^^^^^4"
^DIBT(674,2,1,1,0)="^.40141^1^1"
^DIBT(674,2,1,1,1,0)="503330^1"
^DIBT(674,2,1,1,"B",503330,1)=""
^DIBT(674,2,1,"ASK")="1"
^DIBT(674,2,1,"F")="502.99999^503"
^DIBT(674,2,1,"GET")="X ^DD(503330.03,6,9.2) S X=$P(Y(503330.03,6,2),Y(503330.03,6,3),X) S DISX(1)=X"
^DIBT(674,2,1,"QCON")="I DISX(1)]]502.99999"
^DIBT(674,2,1,"T")="z^"
^DIBT(674,2,1,"TXT")="STATION NUMBER from 503"
^DIBT(674,2,2,0)="503330.03^^SERVICE^#+""3^^^^^^4"
^DIBT(674,2,2,1,0)="^.40141^1^1"
^DIBT(674,2,2,1,1,0)="503330^1"
^DIBT(674,2,2,1,"B",503330,1)=""
^DIBT(674,2,2,"ASK")="1"
^DIBT(674,2,2,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(2)=X"
^DIBT(674,2,2,"F")="599.99999^600"
^DIBT(674,2,2,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(2)=X"
^DIBT(674,2,2,"QCON")="I DISX(2)]]599.99999"
^DIBT(674,2,2,"T")="z^"
^DIBT(674,2,2,"TXT")="SERVICE from 600"
^DIBT(674,2,3,0)="503330.03^^SCHEDULE^+""2^^^^^^4"
^DIBT(674,2,3,1,0)="^.40141^1^1"
^DIBT(674,2,3,1,1,0)="503330^1"
^DIBT(674,2,3,1,"B",503330,1)=""
^DIBT(674,2,3,"ASK")="1"
^DIBT(674,2,3,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(3)=X"
^DIBT(674,2,3,"F")="@z^A"
^DIBT(674,2,3,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(3)=X"
^DIBT(674,2,3,"QCON")="I DISX(3)]]""@z"""
^DIBT(674,2,3,"T")="z^"
^DIBT(674,2,3,"TXT")="SCHEDULE from A"
^DIBT(674,2,4,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(674,2,4,"GET")="S DISX(4)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(674,2,4,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(674,2,4,"QCON")="I DISX(4)'="""""
^DIBT(674,2,4,"TXT")="VOLUNTEER not null"
^DIBT(674,2,"B",503330,4)=""
^DIBT(674,2,"B",503330.03,1)=""
^DIBT(674,2,"B",503330.03,2)=""
^DIBT(674,2,"B",503330.03,3)=""
^DIBT(674,"%D",0)="^^2^2^2990422^^^^"
^DIBT(674,"%D",1,0)="This sort template is used to print a list of all combinations for all"
^DIBT(674,"%D",2,0)="volunteers with a specified station number."
^DIBT(675,0)="ABSV GAMES ASSIGNMENT SCHEDULE^2990422.1514^^503330^^^2990422"
^DIBT(675,2,0)="^.4014^4^4"
^DIBT(675,2,1,0)="503330.03^6^STATION NUMBER^@^^^^^^4"
^DIBT(675,2,1,1,0)="^.40141^1^1"
^DIBT(675,2,1,1,1,0)="503330^1"
^DIBT(675,2,1,1,"B",503330,1)=""
^DIBT(675,2,1,"ASK")="1"
^DIBT(675,2,1,"F")="502.99999^503"
^DIBT(675,2,1,"GET")="X ^DD(503330.03,6,9.2) S X=$P(Y(503330.03,6,2),Y(503330.03,6,3),X) S DISX(1)=X"
^DIBT(675,2,1,"QCON")="I DISX(1)]]502.99999"
^DIBT(675,2,1,"T")="z^"
^DIBT(675,2,1,"TXT")="STATION NUMBER from 503"
^DIBT(675,2,2,0)="503330.03^^SERVICE^+#""3^^^^^^4"
^DIBT(675,2,2,1,0)="^.40141^1^1"
^DIBT(675,2,2,1,1,0)="503330^1"
^DIBT(675,2,2,1,"B",503330,1)=""
^DIBT(675,2,2,"ASK")="1"
^DIBT(675,2,2,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(2)=X"
^DIBT(675,2,2,"F")="117.99999^118"
^DIBT(675,2,2,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(2)=X"
^DIBT(675,2,2,"QCON")="I DISX(2)]]117.99999"
^DIBT(675,2,2,"T")="z^"
^DIBT(675,2,2,"TXT")="SERVICE from 118"
^DIBT(675,2,3,0)="503330.03^^SCHEDULE^""2^^^^^^4"
^DIBT(675,2,3,1,0)="^.40141^1^1"
^DIBT(675,2,3,1,1,0)="503330^1"
^DIBT(675,2,3,1,"B",503330,1)=""
^DIBT(675,2,3,"ASK")="1"
^DIBT(675,2,3,"CM")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(3)=X"
^DIBT(675,2,3,"F")="Pz^Q"
^DIBT(675,2,3,"GET")="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D1>0 S DISX(3)=X"
^DIBT(675,2,3,"QCON")="I DISX(3)=""Q"""
^DIBT(675,2,3,"T")="Q^Q"
^DIBT(675,2,3,"TXT")="SCHEDULE equals Q"
^DIBT(675,2,4,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(675,2,4,"GET")="S DISX(4)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(675,2,4,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(675,2,4,"QCON")="I DISX(4)'="""""
^DIBT(675,2,4,"TXT")="VOLUNTEER not null"
^DIBT(675,2,"B",503330,4)=""
^DIBT(675,2,"B",503330.03,1)=""
^DIBT(675,2,"B",503330.03,2)=""
^DIBT(675,2,"B",503330.03,3)=""
^DIBT(675,"%D",0)="^^2^2^2990422^^^^"
^DIBT(675,"%D",1,0)="This template is used to print the Service Assignment Schedule for the"
^DIBT(675,"%D",2,0)="Veterans Games Report Menu."
^DIBT(676,0)="ABSV GAMES SHIRT LIST^2990308.1458^^503330^^^2990309"
^DIBT(676,2,0)="^.4014^2^2"
^DIBT(676,2,1,0)="503330^.7^FIRST CHARACTER OF LAST NAME^@#^^^^^^4"
^DIBT(676,2,1,"ASK")="1"
^DIBT(676,2,1,"F")="@z^A"
^DIBT(676,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330,D0,2)),U,3)"
^DIBT(676,2,1,"IX")="^ABS(503330,""AE"",^ABS(503330,^2"
^DIBT(676,2,1,"QCON")="I DISX(1)'="""""
^DIBT(676,2,1,"SER")="0.0000^0.0000"
^DIBT(676,2,1,"T")="E^E"
^DIBT(676,2,1,"TXT")="FIRST CHARACTER OF LAST NAME not null"
^DIBT(676,2,2,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(676,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(676,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(676,2,2,"QCON")="I DISX(2)'="""""
^DIBT(676,2,2,"SER")="0^0"
^DIBT(676,2,2,"TXT")="VOLUNTEER not null"
^DIBT(676,2,"B",503330,1)=""
^DIBT(676,2,"B",503330,2)=""
^DIBT(676,"%D",0)="^^2^2^2990308^^^^"
^DIBT(676,"%D",1,0)="This sort template is used to print the listing used to issue shirts to"
^DIBT(676,"%D",2,0)="participants of Veterans Games."
^DIBT(677,0)="ABSV GAMES MASTER REGISTRATION^2990308.1053^^503330^^^2990309"
^DIBT(677,2,0)="^.4014^3^3"
^DIBT(677,2,1,0)="503330^^$E(VOLUNTEER,1)^@#""^^^^^^4"
^DIBT(677,2,1,"CM")="S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=1,X=$E(Y(2),X) I D0>0 S DISX(1)=X"
^DIBT(677,2,1,"GET")="S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=1,X=$E(Y(2),X) I D0>0 S DISX(1)=X"
^DIBT(677,2,1,"QCON")="I DISX(1)'="""""
^DIBT(677,2,1,"TXT")="$E(VOLUNTEER,1) not null"
^DIBT(677,2,2,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(677,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(677,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(677,2,2,"QCON")="I DISX(2)'="""""
^DIBT(677,2,2,"SER")="0^0"
^DIBT(677,2,2,"TXT")="VOLUNTEER not null"
^DIBT(677,2,3,0)="503330.03^6^STATION NUMBER^'@^^^^^^4"
^DIBT(677,2,3,1,0)="^.40141^1^1"
^DIBT(677,2,3,1,1,0)="503330^1"
^DIBT(677,2,3,1,"B",503330,1)=""
^DIBT(677,2,3,"ASK")="1"
^DIBT(677,2,3,"F")="503@z^503A"
^DIBT(677,2,3,"GET")="X ^DD(503330.03,6,9.2) S X=$P(Y(503330.03,6,2),Y(503330.03,6,3),X) S DISX(3)=X"
^DIBT(677,2,3,"QCON")="I DISX(3)=""503A"""
^DIBT(677,2,3,"T")="503A^503A"
^DIBT(677,2,3,"TXT")="STATION NUMBER equals 503A"
^DIBT(677,2,"B",503330,1)=""
^DIBT(677,2,"B",503330,2)=""
^DIBT(677,2,"B",503330.03,3)=""
^DIBT(677,"%D",0)="^^1^1^2990308^^^^"
^DIBT(677,"%D",1,0)="Sort Template for the Games Master Registration Option."
^DIBT(678,0)="ABSV GAMES SIGN-IN LIST^2990308.1456^^503330^^^2990310"
^DIBT(678,2,0)="^.4014^2^2"
^DIBT(678,2,1,0)="503330^.7^FIRST CHARACTER OF LAST NAME^@#^^^^^^4"
^DIBT(678,2,1,"ASK")="1"
^DIBT(678,2,1,"F")="@z^A"
^DIBT(678,2,1,"GET")="S DISX(1)=$P($G(^ABS(503330,D0,2)),U,3)"
^DIBT(678,2,1,"IX")="^ABS(503330,""AE"",^ABS(503330,^2"
^DIBT(678,2,1,"QCON")="I DISX(1)'="""""
^DIBT(678,2,1,"SER")="0.0000^0.0000"
^DIBT(678,2,1,"T")="E^E"
^DIBT(678,2,1,"TXT")="FIRST CHARACTER OF LAST NAME not null"
^DIBT(678,2,2,0)="503330^.01^VOLUNTEER^^^^^^^4"
^DIBT(678,2,2,"GET")="S DISX(2)=$P($G(^ABS(503330,D0,0)),U)"
^DIBT(678,2,2,"IX")="^ABS(503330,""B"",^ABS(503330,^2"
^DIBT(678,2,2,"QCON")="I DISX(2)'="""""
^DIBT(678,2,2,"SER")="0^0"
^DIBT(678,2,2,"TXT")="VOLUNTEER not null"
^DIBT(678,2,"B",503330,1)=""
^DIBT(678,2,"B",503330,2)=""
^DIBT(678,"%D",0)="^^1^1^2990308^^^^"
^DIBT(678,"%D",1,0)="This sort template prints all sign in lists."
^DIBT(679,0)="IBJD DM REPT SORT^2990514.0924^^351.71^^^2990518"
^DIBT(679,2,0)="^.4014^2^2"
^DIBT(679,2,1,0)="351.71^.01^MONTH^^^^^^^1"
^DIBT(679,2,1,"ASK")="1"
^DIBT(679,2,1,"F")="2990399.99999^2990400^Apr 1999"
^DIBT(679,2,1,"GET")="S DISX(1)=$P($G(^IBE(351.71,D0,0)),U)"
^DIBT(679,2,1,"IX")="^IBE(351.71,""B"",^IBE(351.71,^2"
^DIBT(679,2,1,"QCON")="I DISX(1)=2990400"
^DIBT(679,2,1,"SER")="0.0000^0.0000"
^DIBT(679,2,1,"T")="2990400^2990400^Apr 1999"
^DIBT(679,2,1,"TXT")="MONTH equals Apr 1999"
^DIBT(679,2,2,0)="351.711^.02^STATUS^^^^^^^3"
^DIBT(679,2,2,1,0)="^.40141^1^1"
^DIBT(679,2,2,1,1,0)="351.71^1"
^DIBT(679,2,2,1,"B",351.71,1)=""
^DIBT(679,2,2,"ASK")="1"
^DIBT(679,2,2,"F")=".99999^1^1 (REPORT QUEUED)"
^DIBT(679,2,2,"GET")="S DISX(2)=$P($G(^IBE(351.71,D0,1,D1,0)),U,2)"
^DIBT(679,2,2,"IX")="^IBE(351.71,""AD"",^IBE(351.71,^2"
^DIBT(679,2,2,"QCON")="I (DISX(2)]].99999)&(DISX(2)']]2)"
^DIBT(679,2,2,"T")="2^2^2 (EXTRACT STARTED)"
^DIBT(679,2,2,"TXT")="STATUS from 1 (REPORT QUEUED) to 2 (EXTRACT STARTED)"
^DIBT(679,2,"B",351.71,1)=""
^DIBT(679,2,"B",351.711,2)=""
^DIBT(680,0)="RGEQ STAT^2960401.1255^@^995.2^^@^2990421"
^DIBT(680,2,0)="^.4014^1^1"
^DIBT(680,2,1,0)="995.2^.03^DATE^+^^^^^^1"
^DIBT(680,2,1,"ASK")="1"
^DIBT(680,2,1,"F")="2990400.99999^040199^Apr 1,1999"
^DIBT(680,2,1,"GET")="S DISX(1)=$P($G(^RGSTAT(995.2,D0,0)),U,3)"
^DIBT(680,2,1,"QCON")="I DISX(1)'="""""
^DIBT(680,2,1,"T")="z^"
^DIBT(680,2,1,"TXT")="DATE not null"
^DIBT(680,2,"B",995.2,1)=""
^DIBT(681,0)="MPIF REQUEST SORT^2971006.1138^@^984.9^^@^2990429"
^DIBT(681,2,0)="^.4014^5^5"
^DIBT(681,2,1,0)="984.9^^$E(#.07,1,15)_"" (""_(#.07:#99)_"")""^""^;""STATION: ""^^^^^4"
^DIBT(681,2,1,3,0)="^.401419^2^2"
^DIBT(681,2,1,3,1,0)="OVF0^9.2"
^DIBT(681,2,1,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)),Y(2)=X S X=1,Y(3)=X S X=15"
^DIBT(681,2,1,3,2,0)="OVF0^9.3"
^DIBT(681,2,1,3,2,"OVF0")="X DPP(1,""OVF0"",9.2) S X=$E(Y(2),Y(3),X)_"" ("",Y(4)=X,D0=$P(Y(1),U,7) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(101),U,1)"
^DIBT(681,2,1,3,"B","OVF0",1)=""
^DIBT(681,2,1,3,"B","OVF0",2)=""
^DIBT(681,2,1,"CM")="X DPP(1,""OVF0"",9.3) S Y=X,X=Y(4),X=X_Y_"")"" S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(681,2,1,"GET")="X DPP(1,""OVF0"",9.3) S Y=X,X=Y(4),X=X_Y_"")"" S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(681,2,1,"QCON")="I DISX(1)'="""""
^DIBT(681,2,1,"TXT")="$E(#.07,1,15)_"""" (""""_(#.07:#99)_"""")"""" not null"
^DIBT(681,2,2,0)="984.9^.03^DATE REQUESTED^^^^^^^1"
^DIBT(681,2,2,"GET")="S DISX(2)=$P($G(^MPIF(984.9,D0,0)),U,3)"
^DIBT(681,2,2,"QCON")="I DISX(2)'="""""
^DIBT(681,2,2,"SER")="0.0323^0.0323"
^DIBT(681,2,2,"TXT")="DATE REQUESTED not null"
^DIBT(681,2,3,0)="984.9^^INTERNAL(#.06)^@""^^^^^^4"
^DIBT(681,2,3,"ASK")="1"
^DIBT(681,2,3,"CM")="S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S DISX(3)=X"
^DIBT(681,2,3,"F")="1.99999^2"
^DIBT(681,2,3,"GET")="S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X I D0>0 S DISX(3)=X"
^DIBT(681,2,3,"QCON")="I DISX(3)=2"
^DIBT(681,2,3,"T")="2^2"
^DIBT(681,2,3,"TXT")="INTERNAL(#.06) equals 2"
^DIBT(681,2,4,0)="984.9^^INTERNAL(#.02)^@""^^^^^^4"
^DIBT(681,2,4,"ASK")="1"
^DIBT(681,2,4,"CM")="S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(4)=X"
^DIBT(681,2,4,"F")="12563.99999^12564"
^DIBT(681,2,4,"GET")="S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(4)=X"
^DIBT(681,2,4,"QCON")="I DISX(4)'="""""
^DIBT(681,2,4,"T")="12564^12564"
^DIBT(681,2,4,"TXT")="INTERNAL(#.02) not null"
^DIBT(681,2,5,0)="984.9^100^DAYS OLD^@^^^^^^2"
^DIBT(681,2,5,"ASK")="1"
^DIBT(681,2,5,"F")="1.99999^2"
^DIBT(681,2,5,"GET")="S X=0 I $P(^MPIF(984.9,D0,0),""^"",3)]"""" S X=$$FMDIFF^XLFDT($S($P($G(^MPIF(984.9,D0,2)),""^"",2)]"""":$P(^(2),""^"",2),1:DT),$P(^MPIF(984.9,D0,0),""^"",3)) S X=$J(X,0,0) S DISX(5)=X S:DISX(5)]"""" DISX(5)=+DISX(5)"
^DIBT(681,2,5,"QCON")="I DISX(5)]]1.99999"
^DIBT(681,2,5,"SER")="0.2258^0.2258"
^DIBT(681,2,5,"T")="z^"
^DIBT(681,2,5,"TXT")="DAYS OLD from 2"
^DIBT(681,2,"B",984.9,1)=""
^DIBT(681,2,"B",984.9,2)=""
^DIBT(681,2,"B",984.9,3)=""
^DIBT(681,2,"B",984.9,4)=""
^DIBT(681,2,"B",984.9,5)=""
^DIBT(682,0)="MPIF PENDING REQUESTS^2961101.1139^@^984.9^^@^2981214"
^DIBT(682,2,0)="^.4014^2^2"
^DIBT(682,2,1,0)="984.9^.06^STATUS^@^^^^^^3"
^DIBT(682,2,1,"F")="2.99999^3^3 (PENDING APPROVAL)"
^DIBT(682,2,1,"GET")="S DISX(1)=$P($G(^MPIF(984.9,D0,0)),U,6)"
^DIBT(682,2,1,"IX")="^MPIF(984.9,""AC"",^MPIF(984.9,^2"
^DIBT(682,2,1,"QCON")="I DISX(1)=3"
^DIBT(682,2,1,"SER")="8.6667^0.8966"
^DIBT(682,2,1,"T")="3^3^3 (PENDING APPROVAL)"
^DIBT(682,2,1,"TXT")="STATUS equals 3 (PENDING APPROVAL)"
^DIBT(682,2,2,0)="984.9^^SITE^"".07^;""Request From: ""^^^^^7"
^DIBT(682,2,2,"CM")="S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(682,2,2,"GET")="S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(682,2,2,"QCON")="I DISX(2)'="""""
^DIBT(682,2,2,"TXT")="SITE not null"
^DIBT(682,2,"B",984.9,1)=""
^DIBT(682,2,"B",984.9,2)=""
^DIBT(683,0)="RMPO-RPT-HOPATIENTLIST^2990113.1438^^665^^@^2990914"
^DIBT(683,2,0)="^.4014^2^2"
^DIBT(683,2,1,0)="665^19.2^HOME OXYGEN ACTIVATION DATE^]'^^^^^^1"
^DIBT(683,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665,D0,""RMPOA"")),U,2)"
^DIBT(683,2,1,"IX")="^RMPR(665,""AD"",^RMPR(665,^2"
^DIBT(683,2,1,"QCON")="I DISX(1)'="""""
^DIBT(683,2,1,"SER")="1.2353^0.5526"
^DIBT(683,2,1,"TXT")="HOME OXYGEN ACTIVATION DATE not null"
^DIBT(683,2,2,0)="665^^NAME^"".01^^^^^^4"
^DIBT(683,2,2,"CM")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(683,2,2,"GET")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(683,2,2,"IX")="^RMPR(665,""B"",^RMPR(665,^2"
^DIBT(683,2,2,"PTRIX")="^DPT(""B"","
^DIBT(683,2,2,"QCON")="I DISX(2)'="""""
^DIBT(683,2,2,"SER")="0.1316^0.1316"
^DIBT(683,2,2,"TXT")="NAME not null"
^DIBT(683,2,"B",665,1)=""
^DIBT(683,2,"B",665,2)=""
^DIBT(683,"%D",0)="^^1^1^2990113^"
^DIBT(683,"%D",1,0)="ALPHA PATIENT LIST"
^DIBT(684,0)="RMPO-RPT-HORXEXP^2990115.1241^@^665^^@^2990202"
^DIBT(684,2,0)="^.4014^3^3"
^DIBT(684,2,1,0)="665.193^.01^DATE^']'^^^^^^1"
^DIBT(684,2,1,1,0)="^.40141^1^1"
^DIBT(684,2,1,1,1,0)="665^RMPOB"
^DIBT(684,2,1,1,"B",665,1)=""
^DIBT(684,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665,D0,""RMPOB"",D1,0)),U)"
^DIBT(684,2,1,"QCON")="I DISX(1)'="""""
^DIBT(684,2,1,"TXT")="DATE not null"
^DIBT(684,2,2,0)="665.193^2^EXPIRATION DATE^@^^^^^^1"
^DIBT(684,2,2,1,0)="^.40141^1^1"
^DIBT(684,2,2,1,1,0)="665^RMPOB"
^DIBT(684,2,2,1,"B",665,1)=""
^DIBT(684,2,2,"GET")="S DISX(2)=$P($G(^RMPR(665,D0,""RMPOB"",D1,0)),U,3)"
^DIBT(684,2,2,"IX")="^RMPR(665,""AE"",^RMPR(665,^2"
^DIBT(684,2,2,"QCON")="I DISX(2)'="""""
^DIBT(684,2,2,"TXT")="EXPIRATION DATE not null"
^DIBT(684,2,3,0)="665^^NAME^@"".01^^^^^^4"
^DIBT(684,2,3,"CM")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(684,2,3,"GET")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(684,2,3,"IX")="^RMPR(665,""B"",^RMPR(665,^2"
^DIBT(684,2,3,"PTRIX")="^DPT(""B"","
^DIBT(684,2,3,"QCON")="I DISX(3)'="""""
^DIBT(684,2,3,"SER")="0.0000^0.0000"
^DIBT(684,2,3,"TXT")="NAME not null"
^DIBT(684,2,"B",665,3)=""
^DIBT(684,2,"B",665.193,1)=""
^DIBT(684,2,"B",665.193,2)=""
^DIBT(684,"%D",0)="^^1^1^2990115^^^^"
^DIBT(684,"%D",1,0)="RMPORPD"
^DIBT(685,0)="RMPO-RPT-HOPRIITM^2990114.1501^@^665^^@^2990114"
^DIBT(685,2,0)="^.4014^2^2"
^DIBT(685,2,1,0)="665.194^10^PRIMARY ITEM^@^^^^^^3"
^DIBT(685,2,1,1,0)="^.40141^1^1"
^DIBT(685,2,1,1,1,0)="665^RMPOC"
^DIBT(685,2,1,1,"B",665,1)=""
^DIBT(685,2,1,"F")="Xz^Y^Y (YES)"
^DIBT(685,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665,D0,""RMPOC"",D1,0)),U,11)"
^DIBT(685,2,1,"IX")="^RMPR(665,""AC"",^RMPR(665,^2"
^DIBT(685,2,1,"QCON")="I DISX(1)=""Y"""
^DIBT(685,2,1,"T")="Y^Y^Y (YES)"
^DIBT(685,2,1,"TXT")="PRIMARY ITEM equals Y (YES)"
^DIBT(685,2,2,0)="665.194^^ITEM^"".01^^^^^^2"
^DIBT(685,2,2,1,0)="^.40141^1^1"
^DIBT(685,2,2,1,1,0)="665^RMPOC"
^DIBT(685,2,2,1,"B",665,1)=""
^DIBT(685,2,2,"CM")="S Y(1)=$S($D(^RMPR(665,D0,""RMPOC"",D1,0)):^(0),1:""""),Y=$P(Y(1),U,1) X:$D(^DD(665.194,.01,2)) ^(2) S X=Y I D1>0 S DISX(2)=X"
^DIBT(685,2,2,"GET")="S Y(1)=$S($D(^RMPR(665,D0,""RMPOC"",D1,0)):^(0),1:""""),Y=$P(Y(1),U,1) X:$D(^DD(665.194,.01,2)) ^(2) S X=Y I D1>0 S DISX(2)=X"
^DIBT(685,2,2,"QCON")="I DISX(2)'="""""
^DIBT(685,2,2,"TXT")="ITEM not null"
^DIBT(685,2,"B",665.194,1)=""
^DIBT(685,2,"B",665.194,2)=""
^DIBT(685,"%D",0)="^^1^1^2990114^^^^"
^DIBT(685,"%D",1,0)="Primary Item Report sort template. Order by item then patient."
^DIBT(686,0)="RMPO-RPT-HOACTZIPLIST^2990202.1447^@^665^^@^2990914"
^DIBT(686,2,0)="^.4014^3^3"
^DIBT(686,2,1,0)="665^19.2^HOME OXYGEN ACTIVATION DATE^]'^^^^^^1"
^DIBT(686,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665,D0,""RMPOA"")),U,2)"
^DIBT(686,2,1,"IX")="^RMPR(665,""AD"",^RMPR(665,^2"
^DIBT(686,2,1,"QCON")="I DISX(1)'="""""
^DIBT(686,2,1,"SER")="1.2353^0.5526"
^DIBT(686,2,1,"TXT")="HOME OXYGEN ACTIVATION DATE not null"
^DIBT(686,2,2,0)="2^.1112^ZIP+4^@""@^^^^^^4"
^DIBT(686,2,2,2,0)="^.401418^1^1"
^DIBT(686,2,2,2,1,0)="665^100^2^DPT(^0"
^DIBT(686,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(686,2,2,2,"B",665,1)=""
^DIBT(686,2,2,"F")="?z^@"
^DIBT(686,2,2,"GET")="S DISX(2)=$P($G(^DPT(D0,.11)),U,12),Y=DISX(2) S Y(0)=Y D ZIPOUT^VAFADDR S DISX(2)=Y"
^DIBT(686,2,2,"QCON")="I 1"
^DIBT(686,2,2,"T")="z^"
^DIBT(686,2,2,"TXT")="All ZIP+4 (includes nulls)"
^DIBT(686,2,3,0)="665^^NAME^@"".01^^^^^^4"
^DIBT(686,2,3,"CM")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(686,2,3,"GET")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(686,2,3,"IX")="^RMPR(665,""B"",^RMPR(665,^2"
^DIBT(686,2,3,"PTRIX")="^DPT(""B"","
^DIBT(686,2,3,"QCON")="I DISX(3)'="""""
^DIBT(686,2,3,"SER")="0.1316^0.1316"
^DIBT(686,2,3,"TXT")="NAME not null"
^DIBT(686,2,"B",2,2)=""
^DIBT(686,2,"B",665,1)=""
^DIBT(686,2,"B",665,3)=""
^DIBT(686,"%D",0)="^^1^1^2990202^^^^"
^DIBT(686,"%D",1,0)="RMPORAP"
^DIBT(687,0)="RMPO PI^2990114.1526^@^665^^@^2990114"
^DIBT(687,"DC",1)="19.4,10^=""Y"""
^DIBT(687,"DIS",0)="S D1=+$O(^RMPR(665,D0,""RMPOC"",0)) X DIS(""0A"") I $T"
^DIBT(687,"DIS","0A")="F E=0:0 X DIS(""0AA"") X:D1'>0 ""IF 0"" Q:$T  S D1=$O(^RMPR(665,D0,""RMPOC"",D1)) Q:D1'>0"
^DIBT(687,"DIS","0AA")="I $S($D(^RMPR(665,D0,""RMPOC"",D1,0)):$P(^(0),U,11),1:"""")=""Y"""
^DIBT(687,"DL")="1"
^DIBT(687,"DL",0)="^1^"
^DIBT(687,"O",0)="^"
^DIBT(687,"O",1,0)="PROSTHETICS PATIENT PRIMARY ITEM EQUALS ""Y""^YES"
^DIBT(688,0)="RMPO-BILLING-PRESORT^2990203.0607^@^665^^@^2990914"
^DIBT(688,2,0)="^.4014^2^2"
^DIBT(688,2,1,0)="665^19.2^HOME OXYGEN ACTIVATION DATE^]@^^^^^^1"
^DIBT(688,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665,D0,""RMPOA"")),U,2)"
^DIBT(688,2,1,"IX")="^RMPR(665,""AD"",^RMPR(665,^2"
^DIBT(688,2,1,"QCON")="I DISX(1)'="""""
^DIBT(688,2,1,"SER")="1.2353^0.5526"
^DIBT(688,2,1,"TXT")="HOME OXYGEN ACTIVATION DATE not null"
^DIBT(688,2,2,0)="665^^NAME^"".01^^^^^^4"
^DIBT(688,2,2,"CM")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(688,2,2,"GET")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(688,2,2,"IX")="^RMPR(665,""B"",^RMPR(665,^2"
^DIBT(688,2,2,"PTRIX")="^DPT(""B"","
^DIBT(688,2,2,"QCON")="I DISX(2)'="""""
^DIBT(688,2,2,"SER")="0.1316^0.1316"
^DIBT(688,2,2,"TXT")="NAME not null"
^DIBT(688,2,"B",665,1)=""
^DIBT(688,2,"B",665,2)=""
^DIBT(689,0)="DG MISSING SSN SORT^2990218.0926^@^200^^@^2990218"
^DIBT(689,2,0)="^.4014^3^3"
^DIBT(689,2,1,0)="200^^SSN=""""^""@B^;L1^^^^^4"
^DIBT(689,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$P(Y(1),U,9)="""" I D0>0 S DISX(1)=X"
^DIBT(689,2,1,"F")="0"
^DIBT(689,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,1)):^(1),1:"""") S X=$P(Y(1),U,9)="""" I D0>0 S DISX(1)=X"
^DIBT(689,2,1,"QCON")="I DISX(1)"
^DIBT(689,2,1,"T")="1"
^DIBT(689,2,1,"TXT")="SSN="""""""""
^DIBT(689,2,2,0)="200^^PRIMARY MENU OPTION'=""""^@""@B^;L1^^^^^4"
^DIBT(689,2,2,"CM")="S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))'="""" I D0>0 S DISX(2)=X"
^DIBT(689,2,2,"F")="0"
^DIBT(689,2,2,"GET")="S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))'="""" I D0>0 S DISX(2)=X"
^DIBT(689,2,2,"QCON")="I DISX(2)"
^DIBT(689,2,2,"T")="1"
^DIBT(689,2,2,"TXT")="PRIMARY MENU OPTION'="""""""""
^DIBT(689,2,3,0)="200^^TERMINATION DATE=""""!(TERMINATION DATE>TODAY)^""@B^;L1^^^^^4"
^DIBT(689,2,3,"CM")="S Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11)="""",Y(2)=X S X=$P(Y(1),U,11),Y(3)=X,X=DT S Y=X,X=Y(3),X=X S X=X>Y,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(3)=X"
^DIBT(689,2,3,"F")="0"
^DIBT(689,2,3,"GET")="S Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11)="""",Y(2)=X S X=$P(Y(1),U,11),Y(3)=X,X=DT S Y=X,X=Y(3),X=X S X=X>Y,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(3)=X"
^DIBT(689,2,3,"QCON")="I DISX(3)"
^DIBT(689,2,3,"T")="1"
^DIBT(689,2,3,"TXT")="TERMINATION DATE=""""""""!(TERMINATION DATE>TODAY)"
^DIBT(689,2,"B",200,1)=""
^DIBT(689,2,"B",200,2)=""
^DIBT(689,2,"B",200,3)=""
^DIBT(690,0)="SCCV REQUEST LOG^2980108.1514^@^404.98^^@^2981029"
^DIBT(690,2,0)="^.4014^2^2"
^DIBT(690,2,1,0)="404.98^0^NUMBER^@^^^^^^2"
^DIBT(690,2,1,"ASK")="1"
^DIBT(690,2,1,"F")="27.99999^28"
^DIBT(690,2,1,"IX")="^SD(404.98,^SD(404.98,^1"
^DIBT(690,2,1,"QCON")="I D0=28"
^DIBT(690,2,1,"SER")="32.0000^0.9697"
^DIBT(690,2,1,"T")="28^28"
^DIBT(690,2,1,"TXT")="NUMBER equals 28"
^DIBT(690,2,2,0)="404.9825^.01^REQUEST DATE/TIME^@-@^^^^^^1"
^DIBT(690,2,2,1,0)="^.40141^1^1"
^DIBT(690,2,2,1,1,0)="404.98^R"
^DIBT(690,2,2,1,"B",404.98,1)=""
^DIBT(690,2,2,"GET")="S DISX(2)=$P($G(^SD(404.98,D0,""R"",D1,0)),U)"
^DIBT(690,2,2,"QCON")="I DISX(2)'="""""
^DIBT(690,2,2,"TXT")="REQUEST DATE/TIME not null"
^DIBT(690,2,"B",404.98,1)=""
^DIBT(690,2,"B",404.9825,2)=""
^DIBT(691,0)="SCCV EVENT LOG^2980108.1552^@^404.98^^@^2990120"
^DIBT(691,2,0)="^.4014^2^2"
^DIBT(691,2,1,0)="404.98^0^NUMBER^@^^^^^^2"
^DIBT(691,2,1,"ASK")="1"
^DIBT(691,2,1,"F")="37.99999^38"
^DIBT(691,2,1,"IX")="^SD(404.98,^SD(404.98,^1"
^DIBT(691,2,1,"QCON")="I D0=38"
^DIBT(691,2,1,"SER")="37.0000^0.9737"
^DIBT(691,2,1,"T")="38^38"
^DIBT(691,2,1,"TXT")="NUMBER equals 38"
^DIBT(691,2,2,0)="404.9875^.01^EVENT DATE/TIME^-@^^^^^^1"
^DIBT(691,2,2,1,0)="^.40141^1^1"
^DIBT(691,2,2,1,1,0)="404.98^E"
^DIBT(691,2,2,1,"B",404.98,1)=""
^DIBT(691,2,2,"GET")="S DISX(2)=$P($G(^SD(404.98,D0,""E"",D1,0)),U)"
^DIBT(691,2,2,"QCON")="I DISX(2)'="""""
^DIBT(691,2,2,"TXT")="EVENT DATE/TIME not null"
^DIBT(691,2,"B",404.98,1)=""
^DIBT(691,2,"B",404.9875,2)=""
^DIBT(692,0)="SCCV ERROR LOG^2980108.1606^@^404.98^^@^2990108"
^DIBT(692,2,0)="^.4014^1^1"
^DIBT(692,2,1,0)="404.98^0^NUMBER^@^^^^^^2"
^DIBT(692,2,1,"ASK")="1"
^DIBT(692,2,1,"F")="33.99999^34"
^DIBT(692,2,1,"IX")="^SD(404.98,^SD(404.98,^1"
^DIBT(692,2,1,"QCON")="I D0=34"
^DIBT(692,2,1,"T")="34^34"
^DIBT(692,2,1,"TXT")="NUMBER equals 34"
^DIBT(692,2,"B",404.98,1)=""
^DIBT(693,0)="PXRM HEPATITIS C SEARCH^3000208.1219^@^9999999.64^^@^3000208"
^DIBT(693,"%D",0)="^^16^16^3000208^^^^"
^DIBT(693,"%D",1,0)="The result of this search is a list of the Hepatitis C health factors that"
^DIBT(693,"%D",2,0)="are distributed with PX*1.0*85 for risk factor assessment. The search list"
^DIBT(693,"%D",3,0)="should include the following health factors:"
^DIBT(693,"%D",4,0)="FACTOR:     HEPATITIS C             ENTRY TYPE: CATEGORY"
^DIBT(693,"%D",5,0)=" "
^DIBT(693,"%D",6,0)="FACTOR:     RISK FACTOR FOR HEPATITIS C"
^DIBT(693,"%D",7,0)="  CATEGORY: HEPATITIS C             ENTRY TYPE: FACTOR"
^DIBT(693,"%D",8,0)=" "
^DIBT(693,"%D",9,0)="FACTOR:     NO RISK FACTORS FOR HEP C"
^DIBT(693,"%D",10,0)="  CATEGORY: HEPATITIS C             ENTRY TYPE: FACTOR"
^DIBT(693,"%D",11,0)=" "
^DIBT(693,"%D",12,0)="FACTOR:     DECLINED HEP C RISK ASSESSMENT"
^DIBT(693,"%D",13,0)="  CATEGORY: HEPATITIS C             ENTRY TYPE: FACTOR"
^DIBT(693,"%D",14,0)=" "
^DIBT(693,"%D",15,0)="FACTOR:     PREV POSITIVE TEST FOR HEP C"
^DIBT(693,"%D",16,0)="  CATEGORY: HEPATITIS C             ENTRY TYPE: FACTOR"
^DIBT(693,"DIS",1)="I $S($D(^AUTTHF(D0,0)):$P(^(0),U,1),1:"""")=""HEPATITIS C"""
^DIBT(693,"DIS",2)="I $S($D(^AUTTHF(D0,0)):$P(^(0),U,1),1:"""")=""RISK FACTOR FOR HEPATITIS C"""
^DIBT(693,"DIS",3)="I $S($D(^AUTTHF(D0,0)):$P(^(0),U,1),1:"""")=""NO RISK FACTORS FOR HEP C"""
^DIBT(693,"DIS",4)="I $S($D(^AUTTHF(D0,0)):$P(^(0),U,1),1:"""")=""DECLINED HEP C RISK ASSESSMENT"""
^DIBT(693,"DIS",5)="I $S($D(^AUTTHF(D0,0)):$P(^(0),U,1),1:"""")=""PREV POSITIVE TEST FOR HEP C"""
^DIBT(693,"DL")="^DIBT(+Y,"
^DIBT(693,"O",0)="^"
^DIBT(693,"O",1,0)="FACTOR EQUALS ""HEPATITIS C"""
^DIBT(693,"O",2,0)=" Or FACTOR EQUALS ""RISK FACTOR FOR HEPATITIS C"""
^DIBT(693,"O",3,0)=" Or FACTOR EQUALS ""NO RISK FACTORS FOR HEP C"""
^DIBT(693,"O",4,0)=" Or FACTOR EQUALS ""DECLINED HEP C RISK ASSESSMENT"""
^DIBT(693,"O",5,0)=" Or FACTOR EQUALS ""PREV POSITIVE TEST FOR HEP C"""
^DIBT(693,"QR")="3000208.121958^5"
^DIBT(694,0)="PRCH DEL. RECSORT^2990803.1657^^440.6^^^3000915"
^DIBT(694,2,0)="^.4014^4^4"
^DIBT(694,2,1,0)="440.6^^CARD HOLDER^@""16^^^^^^4"
^DIBT(694,2,1,"ASK")="1"
^DIBT(694,2,1,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(694,2,1,"F")="@z^A"
^DIBT(694,2,1,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(694,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""Z"")"
^DIBT(694,2,1,"T")="Z^Z"
^DIBT(694,2,1,"TXT")="CARD HOLDER from A to Z"
^DIBT(694,2,2,0)="440.6^6^TRANSACTION DATE^@^^^^^^1"
^DIBT(694,2,2,"ASK")="1"
^DIBT(694,2,2,"F")="2900100.999999^1.1.90^Jan 1,1990"
^DIBT(694,2,2,"GET")="S DISX(2)=$P($G(^PRCH(440.6,D0,0)),U,7)"
^DIBT(694,2,2,"QCON")="I (DISX(2)]]2900100.999999)&(DISX(2)']]3000915)"
^DIBT(694,2,2,"SER")="0.0000^0.0000"
^DIBT(694,2,2,"T")="3000915^T^Sep 15,2000"
^DIBT(694,2,2,"TXT")="TRANSACTION DATE from Jan 1,1990 to Sep 15,2000"
^DIBT(694,2,3,0)="440.6^^XUWORKDAY(#46,#47+1)>5^@""@B^;L1^^^^^4"
^DIBT(694,2,3,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),Y(2)=X S X=$P(Y(1),U,7),X1=X,X2=+1,X="""" D C^%DTC:X1 S X=X,X1=Y(2) D ^XUWORKDY S X=X>5 I D0>0 S DISX(3)=X"
^DIBT(694,2,3,"F")="0"
^DIBT(694,2,3,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),Y(2)=X S X=$P(Y(1),U,7),X1=X,X2=+1,X="""" D C^%DTC:X1 S X=X,X1=Y(2) D ^XUWORKDY S X=X>5 I D0>0 S DISX(3)=X"
^DIBT(694,2,3,"QCON")="I DISX(3)"
^DIBT(694,2,3,"T")="1"
^DIBT(694,2,3,"TXT")="XUWORKDAY(#46,#47+1)>5"
^DIBT(694,2,4,0)="440.6^7^STATION NUMBER^@^^^^^^4"
^DIBT(694,2,4,"ASK")="1"
^DIBT(694,2,4,"GET")="S DISX(4)=$P($G(^PRCH(440.6,D0,0)),U,8)"
^DIBT(694,2,4,"QCON")="I DISX(4)'="""""
^DIBT(694,2,4,"SER")="0.0000^0.0000"
^DIBT(694,2,4,"TXT")="STATION NUMBER not null"
^DIBT(694,2,"B",440.6,1)=""
^DIBT(694,2,"B",440.6,2)=""
^DIBT(694,2,"B",440.6,3)=""
^DIBT(694,2,"B",440.6,4)=""
^DIBT(695,0)="IBCE LOCAL DATA ELEMENTS^3000222.13^@^364.6^^@^3000222"
^DIBT(695,2,0)="^.4014^4^4"
^DIBT(695,2,1,0)="364.6^^BILL FORM^#"".01^;""LOCAL PRINT FORM NAME: "";C3;L30^^^^^4"
^DIBT(695,2,1,"CM")="S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$S('$D(^IBE(353,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(695,2,1,"GET")="S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$S('$D(^IBE(353,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(695,2,1,"IX")="^IBA(364.6,""B"",^IBA(364.6,^2"
^DIBT(695,2,1,"PTRIX")="^IBE(353,""B"","
^DIBT(695,2,1,"QCON")="I DISX(1)'="""""
^DIBT(695,2,1,"SER")="0.0000^0.0000"
^DIBT(695,2,1,"TXT")="BILL FORM not null"
^DIBT(695,2,2,0)="353^^INTERNAL(#2.02)'=""S""^""@""B^;L1^^^^^4"
^DIBT(695,2,2,2,0)="^.401418^1^1"
^DIBT(695,2,2,2,1,0)="364.6^100^353^IBE(353,^0"
^DIBT(695,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(695,2,2,2,"B",364.6,1)=""
^DIBT(695,2,2,"CM")="S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P(Y(101),U,2),X=X S X=X'=""S"" I D0>0 S DISX(2)=X"
^DIBT(695,2,2,"F")="0"
^DIBT(695,2,2,"GET")="S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P(Y(101),U,2),X=X S X=X'=""S"" I D0>0 S DISX(2)=X"
^DIBT(695,2,2,"QCON")="I (DISX(2)]]0)&(DISX(2)']]1)"
^DIBT(695,2,2,"T")="1"
^DIBT(695,2,2,"TXT")="INTERNAL(#2.02)'=""""S"""""
^DIBT(695,2,3,0)="364.6^^ASSOCIATED FORM DEFINITION^"".03^;""PARENT FORM: "";C13^^^^^4"
^DIBT(695,2,3,3,0)="^.401419^1^1"
^DIBT(695,2,3,3,1,0)="OVF0^9.2"
^DIBT(695,2,3,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^IBA(364.6,+D0,0)) D0=-1 S Y(101)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""")"
^DIBT(695,2,3,3,"B","OVF0",1)=""
^DIBT(695,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^IBE(353,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(695,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^IBE(353,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(695,2,3,"QCON")="I DISX(3)'="""""
^DIBT(695,2,3,"TXT")="ASSOCIATED FORM DEFINITION not null"
^DIBT(695,2,4,0)="364.6^^""""^""^;X;"" ""^^^^^4"
^DIBT(695,2,4,"CM")="S X="""" I D0>0 S DISX(4)=X"
^DIBT(695,2,4,"F")="?z^@"
^DIBT(695,2,4,"GET")="S X="""" I D0>0 S DISX(4)=X"
^DIBT(695,2,4,"QCON")="I DISX(4)="""""
^DIBT(695,2,4,"T")="@^@"
^DIBT(695,2,4,"TXT")=""""""""" is null"
^DIBT(695,2,"B",353,2)=""
^DIBT(695,2,"B",364.6,1)=""
^DIBT(695,2,"B",364.6,3)=""
^DIBT(695,2,"B",364.6,4)=""
^DIBT(695,"%D",0)="^^2^2^3000222^^^^"
^DIBT(695,"%D",1,0)="This sort template will allow for the printing of local form override"
^DIBT(695,"%D",2,0)="data."
^DIBT(696,0)="PXRM REMINDERS LIST^2960430.1318^^811.9^^^2991108"
^DIBT(696,2,0)="^.4014^1^1"
^DIBT(696,2,1,0)="811.9^.01^NAME^#^^^^^^4"
^DIBT(696,2,1,"F")="@z^A"
^DIBT(696,2,1,"GET")="S DISX(1)=$P($G(^PXD(811.9,D0,0)),U,1)"
^DIBT(696,2,1,"IX")="^PXD(811.9,""B"",^PXD(811.9,^2"
^DIBT(696,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""zzzzzzzz"")"
^DIBT(696,2,1,"T")="zzzzzzzz^zzzzzzzz"
^DIBT(696,2,1,"TXT")="NAME from A to zzzzzzzz"
^DIBT(696,2,"B",811.9,1)=""
^DIBT(696,"%D",0)="^^2^2^2960729^^^"
^DIBT(696,"%D",1,0)="This sorts the reminders by their Name and page breaks when the name"
^DIBT(696,"%D",2,0)="changes."
^DIBT(697,0)="PXRM NATIONAL TERMS^3000508.1254^@^811.5^^@^3000508"
^DIBT(697,"%D",0)="^^2^2^3000508^"
^DIBT(697,"%D",1,0)="This search template contains the names of the reminder terms distributed"
^DIBT(697,"%D",2,0)="with the Clinical Reminders 1.5 package."
^DIBT(697,"DC",1)=".02^=""N"""
^DIBT(697,"DIS",0)="I $P($G(^PXRMD(811.5,D0,0)),U,2)=""N"""
^DIBT(697,"DL")="1"
^DIBT(697,"DL",0)="^1^"
^DIBT(697,"O",0)="^"
^DIBT(697,"O",1,0)="TERM TYPE EQUALS ""N""^National"
^DIBT(697,"QR")="3000508.125511^7"
^DIBT(698,0)="PXRM NATIONAL TERM SPONSORS^3000508.1325^@^811.6^^@^3000508"
^DIBT(698,"%D",0)="^.4012^2^2^3000508^"
^DIBT(698,"%D",1,0)="This search template contains the term sponsors that are distributed"
^DIBT(698,"%D",2,0)="nationally."
^DIBT(698,"DC",1)=".02^=""N"""
^DIBT(698,"DIS",0)="I $P($G(^PXRMD(811.6,D0,0)),U,2)=""N"""
^DIBT(698,"DL")="1"
^DIBT(698,"DL",0)="^1^"
^DIBT(698,"O",0)="^"
^DIBT(698,"O",1,0)="SPONSOR TYPE EQUALS ""N""^National"
^DIBT(698,"QR")="3000508.132555^1"
^DIBT(699,0)="PXRM HEP C HEALTH FACTORS^3000510.1307^@^9999999.64^^@^3000510"
^DIBT(699,"%D",0)="^.4012^2^2^3000510^^"
^DIBT(699,"%D",1,0)="This sort template contains the list of 5 health factors that represent"
^DIBT(699,"%D",2,0)="Hepatitis C risk assessment."
^DIBT(699,"DA")="DIS(""A1"","
^DIBT(699,"DC",1)=".01^=""NO RISK FACTORS FOR HEP C"""
^DIBT(699,"DC",2)=".01^=""RISK FACTOR FOR HEPATITIS C"""
^DIBT(699,"DC",3)=".01^=""PREV POS TEST FOR HEP C"""
^DIBT(699,"DC",4)=".01^=""DECLINED HEP C RISK ASSESSMENT"""
^DIBT(699,"DC",5)=".01^=""HEPATITIS C"""
^DIBT(699,"DIS",1)="I $P($G(^AUTTHF(D0,0)),U,1)=""NO RISK FACTORS FOR HEP C"""
^DIBT(699,"DIS",2)="I $P($G(^AUTTHF(D0,0)),U,1)=""RISK FACTOR FOR HEPATITIS C"""
^DIBT(699,"DIS",3)="I $P($G(^AUTTHF(D0,0)),U,1)=""PREV POS TEST FOR HEP C"""
^DIBT(699,"DIS",4)="I $P($G(^AUTTHF(D0,0)),U,1)=""DECLINED HEP C RISK ASSESSMENT"""
^DIBT(699,"DIS",5)="I $P($G(^AUTTHF(D0,0)),U,1)=""HEPATITIS C"""
^DIBT(699,"DL")="5"
^DIBT(699,"DL",0)=""
^DIBT(699,"DL",1)="^1^"
^DIBT(699,"DL",2)="^2^"
^DIBT(699,"DL",3)="^3^"
^DIBT(699,"DL",4)="^4^"
^DIBT(699,"DL",5)="^5^"
^DIBT(699,"O",0)="^"
^DIBT(699,"O",1,0)="FACTOR EQUALS ""NO RISK FACTORS FOR HEP C"""
^DIBT(699,"O",2,0)=" Or FACTOR EQUALS ""RISK FACTOR FOR HEPATITIS C"""
^DIBT(699,"O",3,0)=" Or FACTOR EQUALS ""PREV POS TEST FOR HEP C"""
^DIBT(699,"O",4,0)=" Or FACTOR EQUALS ""DECLINED HEP C RISK ASSESSMENT"""
^DIBT(699,"O",5,0)=" Or FACTOR EQUALS ""HEPATITIS C"""
^DIBT(699,"QR")="3000510.130829^5"
^DIBT(700,0)="ABSV MINUTES^3000301.1128^^503334.1^^^3000620"
^DIBT(700,2,0)="^.4014^2^2"
^DIBT(700,2,1,0)="503334.1^.6^ORGANIZATION NAME^]^^^^^^4"
^DIBT(700,2,1,"F")="?z^@"
^DIBT(700,2,1,"GET")="X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80) S DISX(1)=X"
^DIBT(700,2,1,"QCON")="I 1"
^DIBT(700,2,1,"SER")="0.0000^0.0000"
^DIBT(700,2,1,"T")="z^"
^DIBT(700,2,1,"TXT")="All ORGANIZATION NAME (includes nulls)"
^DIBT(700,2,2,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(700,2,2,"GET")="S DISX(2)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(700,2,2,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(700,2,2,"QCON")="I DISX(2)'="""""
^DIBT(700,2,2,"SER")="0^0"
^DIBT(700,2,2,"TXT")="NAME not null"
^DIBT(700,2,"B",503334.1,1)=""
^DIBT(700,2,"B",503334.1,2)=""
^DIBT(700,"%D",0)="^^2^2^3000301^"
^DIBT(700,"%D",1,0)="This template is used to create the sort order for printing labels for the"
^DIBT(700,"%D",2,0)="distribution of minutes."
^DIBT(701,0)="ABSV CERTIFYING LABEL^3000306.0946^^503334.1^^^3000524"
^DIBT(701,2,0)="^.4014^3^3"
^DIBT(701,2,1,0)="503334.1^^INTERNAL(ORGANIZATION)^]""^^^^^^4"
^DIBT(701,2,1,"ASK")="1"
^DIBT(701,2,1,"CM")="S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X I D0>0 S DISX(1)=X"
^DIBT(701,2,1,"F")="-1.000001^-1"
^DIBT(701,2,1,"GET")="S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X I D0>0 S DISX(1)=X"
^DIBT(701,2,1,"QCON")="I DISX(1)=-1"
^DIBT(701,2,1,"T")="-1^-1"
^DIBT(701,2,1,"TXT")="INTERNAL(ORGANIZATION) equals -1"
^DIBT(701,2,2,0)="503334.1^9^NATIONAL CERTIFYING OFFICIAL?^^^^^^^3"
^DIBT(701,2,2,"F")=".99999^1^1 (Y)"
^DIBT(701,2,2,"GET")="S DISX(2)=$P($G(^ABS(503334.1,D0,0)),U,9)"
^DIBT(701,2,2,"IX")="^ABS(503334.1,""AC"",^ABS(503334.1,^2"
^DIBT(701,2,2,"QCON")="I DISX(2)=1"
^DIBT(701,2,2,"SER")="1.6296^0.6197"
^DIBT(701,2,2,"T")="1^1^1 (Y)"
^DIBT(701,2,2,"TXT")="NATIONAL CERTIFYING OFFICIAL? equals 1 (Y)"
^DIBT(701,2,3,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(701,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(701,2,3,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(701,2,3,"QCON")="I DISX(3)'="""""
^DIBT(701,2,3,"SER")="0^0"
^DIBT(701,2,3,"TXT")="NAME not null"
^DIBT(701,2,"B",503334.1,1)=""
^DIBT(701,2,"B",503334.1,2)=""
^DIBT(701,2,"B",503334.1,3)=""
^DIBT(701,"%D",0)="^.4012^1^1^3000306^^"
^DIBT(701,"%D",1,0)="This template is used to print certifying official labels."
^DIBT(702,0)="ABSV NATIONAL REP LABEL^3000306.0954^^503334.1^^^3000620"
^DIBT(702,2,0)="^.4014^3^3"
^DIBT(702,2,1,0)="503334.1^^INTERNAL(ORGANIZATION)^]""^^^^^^4"
^DIBT(702,2,1,"ASK")="1"
^DIBT(702,2,1,"CM")="S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X I D0>0 S DISX(1)=X"
^DIBT(702,2,1,"F")="21.999999^22"
^DIBT(702,2,1,"GET")="S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X I D0>0 S DISX(1)=X"
^DIBT(702,2,1,"QCON")="I DISX(1)=22"
^DIBT(702,2,1,"T")="22^22"
^DIBT(702,2,1,"TXT")="INTERNAL(ORGANIZATION) equals 22"
^DIBT(702,2,2,0)="503334.1^11^NATIONAL REPRESENTATIVE?^^^^^^^3"
^DIBT(702,2,2,"F")=".99999^1^1 (YES)"
^DIBT(702,2,2,"GET")="S DISX(2)=$P($G(^ABS(503334.1,D0,0)),U,12)"
^DIBT(702,2,2,"IX")="^ABS(503334.1,""AD"",^ABS(503334.1,^2"
^DIBT(702,2,2,"QCON")="I DISX(2)=1"
^DIBT(702,2,2,"SER")="2.4828^0.7129"
^DIBT(702,2,2,"T")="1^1^1 (YES)"
^DIBT(702,2,2,"TXT")="NATIONAL REPRESENTATIVE? equals 1 (YES)"
^DIBT(702,2,3,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(702,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(702,2,3,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(702,2,3,"QCON")="I DISX(3)'="""""
^DIBT(702,2,3,"SER")="0^0"
^DIBT(702,2,3,"TXT")="NAME not null"
^DIBT(702,2,"B",503334.1,1)=""
^DIBT(702,2,"B",503334.1,2)=""
^DIBT(702,2,"B",503334.1,3)=""
^DIBT(702,"%D",0)="^.4012^1^1^3000306^^"
^DIBT(702,"%D",1,0)="This template is used to print labels for national reps."
^DIBT(703,0)="ABSV AJR LABELS^3000306.1125^^503334.1^^^3000524"
^DIBT(703,2,0)="^.4014^3^3"
^DIBT(703,2,1,0)="503334.1^15^AJR REVIEW MONTH^]^^^^^^3"
^DIBT(703,2,1,"ASK")="1"
^DIBT(703,2,1,"F")=".999999^1^1 (JANUARY)"
^DIBT(703,2,1,"GET")="S DISX(1)=$P($G(^ABS(503334.1,D0,0)),U,15)"
^DIBT(703,2,1,"QCON")="I DISX(1)=1"
^DIBT(703,2,1,"SER")="0.9859^0.9859"
^DIBT(703,2,1,"T")="1^1^1 (JANUARY)"
^DIBT(703,2,1,"TXT")="AJR REVIEW MONTH equals 1 (JANUARY)"
^DIBT(703,2,2,0)="503334.1^.6^ORGANIZATION NAME^^^^^^^4"
^DIBT(703,2,2,"GET")="X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80) S DISX(2)=X"
^DIBT(703,2,2,"QCON")="I DISX(2)'="""""
^DIBT(703,2,2,"SER")="0.0000^0.0000"
^DIBT(703,2,2,"TXT")="ORGANIZATION NAME not null"
^DIBT(703,2,3,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(703,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(703,2,3,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(703,2,3,"QCON")="I DISX(3)'="""""
^DIBT(703,2,3,"SER")="0^0"
^DIBT(703,2,3,"TXT")="NAME not null"
^DIBT(703,2,"B",503334.1,1)=""
^DIBT(703,2,"B",503334.1,2)=""
^DIBT(703,2,"B",503334.1,3)=""
^DIBT(703,"%D",0)="^^1^1^3000306^"
^DIBT(703,"%D",1,0)="This template is used to generate AJR mailing labels."
^DIBT(704,0)="ABSV ALL REPRESENTATIVES^3000501.1035^^503334.1^^^3000620"
^DIBT(704,2,0)="^.4014^3^3"
^DIBT(704,2,1,0)="503334.1^11^NATIONAL REPRESENTATIVE?^]'^^^^^^3"
^DIBT(704,2,1,"ASK")="1"
^DIBT(704,2,1,"GET")="S DISX(1)=$P($G(^ABS(503334.1,D0,0)),U,12)"
^DIBT(704,2,1,"IX")="^ABS(503334.1,""AD"",^ABS(503334.1,^2"
^DIBT(704,2,1,"QCON")="I DISX(1)'="""""
^DIBT(704,2,1,"SER")="2.4828^0.7129"
^DIBT(704,2,1,"TXT")="NATIONAL REPRESENTATIVE? not null"
^DIBT(704,2,2,0)="503334.1^.6^ORGANIZATION NAME^^^^^^^4"
^DIBT(704,2,2,"GET")="X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80) S DISX(2)=X"
^DIBT(704,2,2,"QCON")="I DISX(2)'="""""
^DIBT(704,2,2,"SER")="0.0099^0.0099"
^DIBT(704,2,2,"TXT")="ORGANIZATION NAME not null"
^DIBT(704,2,3,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(704,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(704,2,3,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(704,2,3,"QCON")="I DISX(3)'="""""
^DIBT(704,2,3,"SER")="0^0"
^DIBT(704,2,3,"TXT")="NAME not null"
^DIBT(704,2,"B",503334.1,1)=""
^DIBT(704,2,"B",503334.1,2)=""
^DIBT(704,2,"B",503334.1,3)=""
^DIBT(704,"%D",0)="^.4012^1^1^3000501^^^"
^DIBT(704,"%D",1,0)="This template is used to print all representatives."
^DIBT(705,0)="ABSV AJR REPORT^3000419.0927^^503334.1^^^3000512"
^DIBT(705,2,0)="^.4014^3^3"
^DIBT(705,2,1,0)="503334.1^15^AJR REVIEW MONTH^+^;S^^^^^3"
^DIBT(705,2,1,"ASK")="1"
^DIBT(705,2,1,"GET")="S DISX(1)=$P($G(^ABS(503334.1,D0,0)),U,15)"
^DIBT(705,2,1,"QCON")="I DISX(1)'="""""
^DIBT(705,2,1,"SER")="0.6761^0.6761"
^DIBT(705,2,1,"TXT")="AJR REVIEW MONTH not null"
^DIBT(705,2,2,0)="503334.1^.6^ORGANIZATION NAME^^^^^^^4"
^DIBT(705,2,2,"GET")="X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80) S DISX(2)=X"
^DIBT(705,2,2,"QCON")="I DISX(2)'="""""
^DIBT(705,2,2,"SER")="0.0141^0.0141"
^DIBT(705,2,2,"TXT")="ORGANIZATION NAME not null"
^DIBT(705,2,3,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(705,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(705,2,3,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(705,2,3,"QCON")="I DISX(3)'="""""
^DIBT(705,2,3,"SER")="0^0"
^DIBT(705,2,3,"TXT")="NAME not null"
^DIBT(705,2,"B",503334.1,1)=""
^DIBT(705,2,"B",503334.1,2)=""
^DIBT(705,2,"B",503334.1,3)=""
^DIBT(705,"%D",0)="^.4012^2^2^3000419^^"
^DIBT(705,"%D",1,0)="This template is used to print a listing of National Officials by AJR"
^DIBT(705,"%D",2,0)="Month."
^DIBT(706,0)="ABSV CERTIFYING OFFICIAL^3000501.1456^^503334.1^^^3000524"
^DIBT(706,2,0)="^.4014^3^3"
^DIBT(706,2,1,0)="503334.1^.6^ORGANIZATION NAME^]^^^^^^4"
^DIBT(706,2,1,"GET")="X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80) S DISX(1)=X"
^DIBT(706,2,1,"QCON")="I DISX(1)'="""""
^DIBT(706,2,1,"SER")="0.0000^0.0000"
^DIBT(706,2,1,"TXT")="ORGANIZATION NAME not null"
^DIBT(706,2,2,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(706,2,2,"GET")="S DISX(2)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(706,2,2,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(706,2,2,"QCON")="I DISX(2)'="""""
^DIBT(706,2,2,"SER")="0^0"
^DIBT(706,2,2,"TXT")="NAME not null"
^DIBT(706,2,3,0)="503334.1^9^NATIONAL CERTIFYING OFFICIAL?^'^^^^^^3"
^DIBT(706,2,3,"F")=".999999^1^1 (Y)"
^DIBT(706,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U,9)"
^DIBT(706,2,3,"IX")="^ABS(503334.1,""AC"",^ABS(503334.1,^2"
^DIBT(706,2,3,"QCON")="I DISX(3)=1"
^DIBT(706,2,3,"SER")="1.6296^0.6197"
^DIBT(706,2,3,"T")="1^1^1 (Y)"
^DIBT(706,2,3,"TXT")="NATIONAL CERTIFYING OFFICIAL? equals 1 (Y)"
^DIBT(706,2,"B",503334.1,1)=""
^DIBT(706,2,"B",503334.1,2)=""
^DIBT(706,2,"B",503334.1,3)=""
^DIBT(706,"%D",0)="^.4012^1^1^3000501^^^^"
^DIBT(706,"%D",1,0)="This template is used to print the names of national certifying officials."
^DIBT(707,0)="ABSV NOM VIEW^3000424.0957^@^503334.1^^@^3000620"
^DIBT(707,2,0)="^.4014^1^1"
^DIBT(707,2,1,0)="503334.1^0^NUMBER^]^^^^^^2"
^DIBT(707,2,1,"ASK")="1"
^DIBT(707,2,1,"F")="168.999999^169"
^DIBT(707,2,1,"IX")="^ABS(503334.1,^ABS(503334.1,^1"
^DIBT(707,2,1,"QCON")="I D0=169"
^DIBT(707,2,1,"T")="169^169"
^DIBT(707,2,1,"TXT")="NUMBER equals 169"
^DIBT(707,2,"B",503334.1,1)=""
^DIBT(707,"%D",0)="^^1^1^3000424^"
^DIBT(707,"%D",1,0)="This template is used to view a single record."
^DIBT(708,0)="ABSV NOM BY ORGANIZATION^3000424.1021^^503334.1^^^3000516"
^DIBT(708,2,0)="^.4014^3^3"
^DIBT(708,2,1,0)="503334.1^.6^ORGANIZATION NAME^]+^;S^^^^^4"
^DIBT(708,2,1,"GET")="X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80) S DISX(1)=X"
^DIBT(708,2,1,"QCON")="I DISX(1)'="""""
^DIBT(708,2,1,"SER")="0.0141^0.0141"
^DIBT(708,2,1,"TXT")="ORGANIZATION NAME not null"
^DIBT(708,2,2,0)="503334.1^11^NATIONAL REPRESENTATIVE?^'^^^^^^3"
^DIBT(708,2,2,"F")=".99999^Y^1 (YES)"
^DIBT(708,2,2,"GET")="S DISX(2)=$P($G(^ABS(503334.1,D0,0)),U,12)"
^DIBT(708,2,2,"IX")="^ABS(503334.1,""AD"",^ABS(503334.1,^2"
^DIBT(708,2,2,"QCON")="I DISX(2)=1"
^DIBT(708,2,2,"SER")="2.0870^0.6761"
^DIBT(708,2,2,"T")="1^Y^1 (YES)"
^DIBT(708,2,2,"TXT")="NATIONAL REPRESENTATIVE? equals 1 (YES)"
^DIBT(708,2,3,0)="503334.1^.01^NAME^^^^^^^4"
^DIBT(708,2,3,"GET")="S DISX(3)=$P($G(^ABS(503334.1,D0,0)),U)"
^DIBT(708,2,3,"IX")="^ABS(503334.1,""B"",^ABS(503334.1,^2"
^DIBT(708,2,3,"QCON")="I DISX(3)'="""""
^DIBT(708,2,3,"SER")="0^0"
^DIBT(708,2,3,"TXT")="NAME not null"
^DIBT(708,2,"B",503334.1,1)=""
^DIBT(708,2,"B",503334.1,2)=""
^DIBT(708,2,"B",503334.1,3)=""
^DIBT(708,"%D",0)="^.4012^1^1^3000424^^"
^DIBT(708,"%D",1,0)="This template sorts the national officials by organization."
^DIBT(709,0)="RMPO-RPT-HOINACTIVE^3000517.1751^^665^^@^3000619"
^DIBT(709,2,0)="^.4014^3^3"
^DIBT(709,2,1,0)="665^19.2^HOME OXYGEN ACTIVATION DATE^'^^^^^^1"
^DIBT(709,2,1,"GET")="S DISX(1)=$P($G(^RMPR(665,D0,""RMPOA"")),U,2)"
^DIBT(709,2,1,"IX")="^RMPR(665,""AHO"",^RMPR(665,^2"
^DIBT(709,2,1,"QCON")="I DISX(1)'="""""
^DIBT(709,2,1,"SER")="2.5000^0.7143"
^DIBT(709,2,1,"TXT")="HOME OXYGEN ACTIVATION DATE not null"
^DIBT(709,2,2,0)="665^19.5^HOME OXYGEN INACTIVATION DATE^@^^^^^^1"
^DIBT(709,2,2,"ASK")="1"
^DIBT(709,2,2,"F")="2991221.999999^12/22/1999^Dec 22,1999"
^DIBT(709,2,2,"GET")="S DISX(2)=$P($G(^RMPR(665,D0,""RMPOA"")),U,3)"
^DIBT(709,2,2,"QCON")="I (DISX(2)]]2991221.999999)&(DISX(2)']]3000619)"
^DIBT(709,2,2,"SER")="0.9286^0.9286"
^DIBT(709,2,2,"T")="3000619^06/19/2000^Jun 19,2000"
^DIBT(709,2,2,"TXT")="HOME OXYGEN INACTIVATION DATE from Dec 22,1999 to Jun 19,2000"
^DIBT(709,2,3,0)="665^^NAME^"".01^^^^^^4"
^DIBT(709,2,3,"CM")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(709,2,3,"GET")="S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(709,2,3,"IX")="^RMPR(665,""B"",^RMPR(665,^2"
^DIBT(709,2,3,"PTRIX")="^DPT(""B"","
^DIBT(709,2,3,"QCON")="I DISX(3)'="""""
^DIBT(709,2,3,"SER")="0.0000^0.0000"
^DIBT(709,2,3,"TXT")="NAME not null"
^DIBT(709,2,"B",665,1)=""
^DIBT(709,2,"B",665,2)=""
^DIBT(709,2,"B",665,3)=""
^DIBT(709,"%D",0)="^.4012^1^1^3000517^^^^"
^DIBT(709,"%D",1,0)="INACTIVE PATIENT LIST (BY INACTIVATION DATE)"
^DIBT(710,0)="ESP CASE BY DIVISION^2990722.0856^@^912^^@^3000307"
^DIBT(710,2,0)="^.4014^2^2"
^DIBT(710,2,1,0)="912^^FACILITY^"".07^^^^^^4"
^DIBT(710,2,1,"ASK")="1"
^DIBT(710,2,1,"CM")="S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(710,2,1,"GET")="S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(710,2,1,"QCON")="I DISX(1)'="""""
^DIBT(710,2,1,"TXT")="FACILITY not null"
^DIBT(710,2,2,0)="912^.03^DATE/TIME OF OFFENSE^^^^^^^1"
^DIBT(710,2,2,"ASK")="1"
^DIBT(710,2,2,"GET")="S DISX(2)=$P($G(^ESP(912,D0,0)),U,3)"
^DIBT(710,2,2,"QCON")="I DISX(2)'="""""
^DIBT(710,2,2,"SER")="0.1818^0.1818"
^DIBT(710,2,2,"TXT")="DATE/TIME OF OFFENSE not null"
^DIBT(710,2,"B",912,1)=""
^DIBT(710,2,"B",912,2)=""
^DIBT(711,0)="ESP CASE ASSIGNMENT OPEN/FAC^2990722.1019^@^912^^@^3000307"
^DIBT(711,2,0)="^.4014^4^4"
^DIBT(711,2,1,0)="912^^FACILITY^"".07^^^^^^4"
^DIBT(711,2,1,"ASK")="1"
^DIBT(711,2,1,"CM")="S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(711,2,1,"GET")="S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(1),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(711,2,1,"QCON")="I DISX(1)'="""""
^DIBT(711,2,1,"TXT")="FACILITY not null"
^DIBT(711,2,2,0)="912^.1^UOR NUMBER^^^^^^^2"
^DIBT(711,2,2,"GET")="S DISX(2)=$P($G(^ESP(912,D0,0)),U,10) S:DISX(2)]"""" DISX(2)=+DISX(2)"
^DIBT(711,2,2,"QCON")="I DISX(2)'="""""
^DIBT(711,2,2,"SER")="0.0909^0.0909"
^DIBT(711,2,2,"TXT")="UOR NUMBER not null"
^DIBT(711,2,3,0)="912^^CASE STATUS=""OPEN""^""@B^;L1^^^^^4"
^DIBT(711,2,3,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,.08,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59),1)=""OPEN"" I D0>0 S DISX(3)=X"
^DIBT(711,2,3,"F")="0"
^DIBT(711,2,3,"GET")="S Y(2)=$C(59)_$S($D(^DD(912,.08,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59),1)=""OPEN"" I D0>0 S DISX(3)=X"
^DIBT(711,2,3,"QCON")="I DISX(3)"
^DIBT(711,2,3,"T")="1"
^DIBT(711,2,3,"TXT")="CASE STATUS=""""OPEN"""""
^DIBT(711,2,4,0)="912^^DELETED/REOPENED FLAG=""NONE OF THE ABOVE""^""@B^;L1^^^^^4"
^DIBT(711,2,4,"CM")="S Y(2)=$C(59)_$S($D(^DD(912,5.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""NONE OF THE ABOVE"" I D0>0 S DISX(4)=X"
^DIBT(711,2,4,"F")="0"
^DIBT(711,2,4,"GET")="S Y(2)=$C(59)_$S($D(^DD(912,5.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)=""NONE OF THE ABOVE"" I D0>0 S DISX(4)=X"
^DIBT(711,2,4,"QCON")="I DISX(4)"
^DIBT(711,2,4,"T")="1"
^DIBT(711,2,4,"TXT")="DELETED/REOPENED FLAG=""""NONE OF THE ABOVE"""""
^DIBT(711,2,"B",912,1)=""
^DIBT(711,2,"B",912,2)=""
^DIBT(711,2,"B",912,3)=""
^DIBT(711,2,"B",912,4)=""
^DIBT(712,0)="XUSEC REMOTE ACCESS^3000126.1116^@^3.081^^@^3000126"
^DIBT(712,2,0)="^.4014^2^2"
^DIBT(712,2,1,0)="3.081^0^DATE/TIME^^^^D^^^1"
^DIBT(712,2,1,"QCON")="I D0'="""""
^DIBT(712,2,1,"SER")="0^0"
^DIBT(712,2,1,"TXT")="DATE/TIME not null"
^DIBT(712,2,2,0)="3.081^14^REMOTE STATION ID^^^^^^^4"
^DIBT(712,2,2,"GET")="S DISX(2)=$P($G(^XUSEC(0,D0,0)),U,14)"
^DIBT(712,2,2,"QCON")="I DISX(2)'="""""
^DIBT(712,2,2,"SER")="1.0000^1.0000"
^DIBT(712,2,2,"TXT")="REMOTE STATION ID not null"
^DIBT(712,2,"B",3.081,1)=""
^DIBT(712,2,"B",3.081,2)=""
^DIBT(712,"%D",0)="^^2^2^3000126^"
^DIBT(712,"%D",1,0)="This SORT template is used to find the entries in the sign-on log created"
^DIBT(712,"%D",2,0)="by Remote User Access.  This could be from ESSO or Remote RPC's."
^DIBT(713,0)="XUS VISIT USERS^3000131.1421^^200^^@^3000131"
^DIBT(713,2,0)="^.4014^2^2"
^DIBT(713,2,1,0)="200^^COUNT(VISITED FROM)>0^""@B^;L1^^^^^4"
^DIBT(713,2,1,3,0)="^.401419^2^2"
^DIBT(713,2,1,3,1,0)="OVF0^9.2"
^DIBT(713,2,1,3,1,"OVF0")="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),Y(102)="""""
^DIBT(713,2,1,3,2,0)="OVF0^9.3"
^DIBT(713,2,1,3,2,"OVF0")="X DPP(1,""OVF0"",9.2) X ""F D1=0:0 S D1=$O(^VA(200,D0,8910,D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" Y(102)=Y(102)+1"" S D(1)=D1 S X=+Y(102)"
^DIBT(713,2,1,3,"B","OVF0",1)=""
^DIBT(713,2,1,3,"B","OVF0",2)=""
^DIBT(713,2,1,"CM")="X DPP(1,""OVF0"",9.3) S X=X>0 S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(1)=X"
^DIBT(713,2,1,"F")="0"
^DIBT(713,2,1,"GET")="X DPP(1,""OVF0"",9.3) S X=X>0 S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(1)=X"
^DIBT(713,2,1,"QCON")="I DISX(1)"
^DIBT(713,2,1,"T")="1"
^DIBT(713,2,1,"TXT")="COUNT(VISITED FROM)>0"
^DIBT(713,2,2,0)="200^.01^NAME^^^^^^^4"
^DIBT(713,2,2,"GET")="S DISX(2)=$P($G(^VA(200,D0,0)),U)"
^DIBT(713,2,2,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(713,2,2,"QCON")="I DISX(2)'="""""
^DIBT(713,2,2,"SER")="0^0"
^DIBT(713,2,2,"TXT")="NAME not null"
^DIBT(713,2,"B",200,1)=""
^DIBT(713,2,"B",200,2)=""
^DIBT(713,"%D",0)="^.4012^1^1^3000131^^"
^DIBT(713,"%D",1,0)="This Template finds NPF entries that have VISIT data from another site."
^DIBT(714,0)="PXRM EXTRACT EPI BY FIND_PT^3000815.0255^^810.3^^@^3030210"
^DIBT(714,2,0)="^.4014^3^3"
^DIBT(714,2,1,0)="810.3^.01^NAME^^^^^^^4"
^DIBT(714,2,1,"ASK")="1"
^DIBT(714,2,1,"F")="IHD QTz^IHD QU"
^DIBT(714,2,1,"GET")="S DISX(1)=$P($G(^PXRMXT(810.3,D0,0)),U)"
^DIBT(714,2,1,"IX")="^PXRMXT(810.3,""B"",^PXRMXT(810.3,^2"
^DIBT(714,2,1,"QCON")="I DISX(1)]]""IHD QTz"""
^DIBT(714,2,1,"SER")="0.0000^0.0000"
^DIBT(714,2,1,"T")="z^"
^DIBT(714,2,1,"TXT")="NAME from IHD QU"
^DIBT(714,2,2,0)="810.31^^FINDING ITEM^"".04^;S1^^^^^4"
^DIBT(714,2,2,1,0)="^.40141^1^1"
^DIBT(714,2,2,1,1,0)="810.3^1"
^DIBT(714,2,2,1,"B",810.3,1)=""
^DIBT(714,2,2,3,0)="^.401419^1^1"
^DIBT(714,2,2,3,1,0)="OVF1^9.2"
^DIBT(714,2,2,3,1,"OVF0")="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"
^DIBT(714,2,2,3,"B","OVF1",1)=""
^DIBT(714,2,2,"CM")="S Y(1)=$S($D(^PXRMXT(810.3,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4) X DPP(2,""OVF1"",9.2) I D1>0 S DISX(2)=X"
^DIBT(714,2,2,"GET")="S Y(1)=$S($D(^PXRMXT(810.3,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4) X DPP(2,""OVF1"",9.2) I D1>0 S DISX(2)=X"
^DIBT(714,2,2,"QCON")="I DISX(2)'="""""
^DIBT(714,2,2,"TXT")="FINDING ITEM not null"
^DIBT(714,2,3,0)="810.31^^PATIENT:SSN^""^^^^^^4"
^DIBT(714,2,3,1,0)="^.40141^1^1"
^DIBT(714,2,3,1,1,0)="810.3^1"
^DIBT(714,2,3,1,"B",810.3,1)=""
^DIBT(714,2,3,3,0)="^.401419^1^1"
^DIBT(714,2,3,3,1,0)="OVF1^9.2"
^DIBT(714,2,3,3,1,"OVF0")="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^PXRMXT(810.3,D0,1,D1,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DIBT(714,2,3,3,"B","OVF1",1)=""
^DIBT(714,2,3,"CM")="X DPP(3,""OVF1"",9.2) S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X"
^DIBT(714,2,3,"GET")="X DPP(3,""OVF1"",9.2) S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0) I D1>0 S DISX(3)=X"
^DIBT(714,2,3,"QCON")="I DISX(3)'="""""
^DIBT(714,2,3,"TXT")="PATIENT:SSN not null"
^DIBT(714,2,"B",810.3,1)=""
^DIBT(714,2,"B",810.31,2)=""
^DIBT(714,2,"B",810.31,3)=""
^DIBT(714,"%D",0)="^^6^6^3000825^"
^DIBT(714,"%D",1,0)="This sort template sorts the reminder extract findings for an extract"
^DIBT(714,"%D",2,0)="based on finding item and social security number.  The social security"
^DIBT(714,"%D",3,0)="number is what the Austin Automation Center (AAC) returns in error"
^DIBT(714,"%D",4,0)="messages if there are problems with the extract data. This report may be"
^DIBT(714,"%D",5,0)="useful to help you find problem data based on the social security"
^DIBT(714,"%D",6,0)="number in the AAC error messages."
^DIBT(715,0)="PXRM EPI LAB AND MED TERMS^3000815.0205^@^811.5^^@^3000815"
^DIBT(715,"%D",0)="^.4012^3^3^3000906^^"
^DIBT(715,"%D",1,0)="These are the reminder terms used for Hepatitis C extracts of lab and"
^DIBT(715,"%D",2,0)="medication terms.  They include an updated description for the PREVIOUSLY"
^DIBT(715,"%D",3,0)="ASSESSED HEP C RISK term (previously called PREV POSITIVE TEST FOR HEP C)."
^DIBT(715,"DA")="DIS(""C1"","
^DIBT(715,"DA",1)="S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIBT(715,"DA",2)="S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIBT(715,"DA",3)="S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIBT(715,"DC",1)="-1^=3"
^DIBT(715,"DC",2)="-2^>4"
^DIBT(715,"DC",3)="-3^<26"
^DIBT(715,"DIS",1)="S X=$S('$D(D0):"""",D0<0:"""",1:D0) I X=3"
^DIBT(715,"DIS",2)="S X=$S('$D(D0):"""",D0<0:"""",1:D0) I X>4 S X=$S('$D(D0):"""",D0<0:"""",1:D0) I X<26"
^DIBT(715,"DL")="2"
^DIBT(715,"DL",0)=""
^DIBT(715,"DL",1)="^1^"
^DIBT(715,"DL",2)="^2^3^"
^DIBT(715,"O",0)="^.4011^3^3^3000906^^^"
^DIBT(715,"O",1,0)="NUMBER EQUALS 3"
^DIBT(715,"O",2,0)=" Or NUMBER GREATER THAN 4"
^DIBT(715,"O",3,0)="   and NUMBER LESS THAN 26"
^DIBT(715,"QR")="3000815.020744^22"
^DIBT(716,0)="ONC DISEASE INDEX^3000630.1037^@^9000010.07^^@^3000802"
^DIBT(716,2,0)="^.4014^3^3"
^DIBT(716,2,1,0)="9000010.07^^VISIT^'"".03^^^D^^^1"
^DIBT(716,2,1,"ASK")="1"
^DIBT(716,2,1,"CM")="S Y(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$S('$D(^AUPNVSIT(+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(716,2,1,"GET")="S Y(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$S('$D(^AUPNVSIT(+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(716,2,1,"IX")="^AUPNVPOV(""AD"",^AUPNVPOV(^2"
^DIBT(716,2,1,"PTRIX")="^AUPNVSIT(""B"","
^DIBT(716,2,1,"QCON")="I DISX(1)'="""""
^DIBT(716,2,1,"SER")="0.0297^0.0297"
^DIBT(716,2,1,"TXT")="VISIT not null"
^DIBT(716,2,2,0)="9000010.07^^POV^'"".01^^^^^^4"
^DIBT(716,2,2,"ASK")="1"
^DIBT(716,2,2,"CM")="S Y(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$S('$D(^ICD9(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(716,2,2,"GET")="S Y(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"""") S X=$S('$D(^ICD9(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(716,2,2,"QCON")="I DISX(2)'="""""
^DIBT(716,2,2,"TXT")="POV not null"
^DIBT(716,2,3,0)="9000010.07^^PATIENT NAME^"".02^^^^^^4"
^DIBT(716,2,3,3,0)="^.401419^1^1"
^DIBT(716,2,3,3,1,0)="OVF0^9.2"
^DIBT(716,2,3,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'D0!'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"""")"
^DIBT(716,2,3,3,"B","OVF0",1)=""
^DIBT(716,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(716,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(716,2,3,"QCON")="I DISX(3)'="""""
^DIBT(716,2,3,"TXT")="PATIENT NAME not null"
^DIBT(716,2,"B",9000010.07,1)=""
^DIBT(716,2,"B",9000010.07,2)=""
^DIBT(716,2,"B",9000010.07,3)=""
^DIBT(717,0)="ABSV SINGLE LABEL^3000927.102^@^503330^^@^3000927"
^DIBT(717,"DC",1)=".01^[""BECKER"""
^DIBT(717,"DIS",0)="I $P($G(^ABS(503330,D0,0)),U,1)[""BECKER"""
^DIBT(717,"DL")="1"
^DIBT(717,"DL",0)="^1^"
^DIBT(717,"O",0)="^"
^DIBT(717,"O",1,0)="VOLUNTEER CONTAINS ""BECKER"""
^DIBT(717,"QR")="3000927.102045^3"
^DIBT(718,0)="PRCH PC AUDIT SORT^3010406.145^@^440.6^^@^3010411"
^DIBT(718,2,0)="^.4014^3^3"
^DIBT(718,2,1,0)="440.6^^CARD HOLDER^@""16^^^^^^4"
^DIBT(718,2,1,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(718,2,1,"F")="@z^A"
^DIBT(718,2,1,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(718,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""Z"")"
^DIBT(718,2,1,"T")="Z^Z"
^DIBT(718,2,1,"TXT")="CARD HOLDER from A to Z"
^DIBT(718,2,2,0)="440.6^7^STATION NUMBER^#^^^^^^4"
^DIBT(718,2,2,"ASK")="1"
^DIBT(718,2,2,"F")="661.999999^662"
^DIBT(718,2,2,"GET")="S DISX(2)=$P($G(^PRCH(440.6,D0,0)),U,8)"
^DIBT(718,2,2,"QCON")="I DISX(2)=662"
^DIBT(718,2,2,"SER")="0.9894^0.9894"
^DIBT(718,2,2,"T")="662^662"
^DIBT(718,2,2,"TXT")="STATION NUMBER equals 662"
^DIBT(718,2,3,0)="440.6^.01^ORACLE DOCUMENT ID^@^^^^^^4"
^DIBT(718,2,3,"ASK")="1"
^DIBT(718,2,3,"GET")="S DISX(3)=$P($G(^PRCH(440.6,D0,0)),U)"
^DIBT(718,2,3,"IX")="^PRCH(440.6,""B"",^PRCH(440.6,^2"
^DIBT(718,2,3,"QCON")="I DISX(3)'="""""
^DIBT(718,2,3,"SER")="0^0"
^DIBT(718,2,3,"TXT")="ORACLE DOCUMENT ID not null"
^DIBT(718,2,"B",440.6,1)=""
^DIBT(718,2,"B",440.6,2)=""
^DIBT(718,2,"B",440.6,3)=""
^DIBT(718,"%D",0)="^.4012^1^1^3010406^^"
^DIBT(718,"%D",1,0)="Sort for the option 'PRCH PC AUDIT'."
^DIBT(719,0)="PRCH P/C ORACLE UNREC SORT^3001218.0948^@^440.6^^@^3010409"
^DIBT(719,2,0)="^.4014^2^2"
^DIBT(719,2,1,0)="440.6^^CARD HOLDER^#+""16^^^^^^4"
^DIBT(719,2,1,"ASK")="1"
^DIBT(719,2,1,"CM")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(719,2,1,"F")="@z^A"
^DIBT(719,2,1,"GET")="S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(719,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""Z"")"
^DIBT(719,2,1,"T")="Z^Z"
^DIBT(719,2,1,"TXT")="CARD HOLDER from A to Z"
^DIBT(719,2,2,0)="440.6^7^STATION NUMBER^^^^^^^4"
^DIBT(719,2,2,"ASK")="1"
^DIBT(719,2,2,"F")="661.999999^662"
^DIBT(719,2,2,"GET")="S DISX(2)=$P($G(^PRCH(440.6,D0,0)),U,8)"
^DIBT(719,2,2,"QCON")="I (DISX(2)]]661.999999)&(DISX(2)']]688)"
^DIBT(719,2,2,"SER")="0.2979^0.2979"
^DIBT(719,2,2,"T")="688^688"
^DIBT(719,2,2,"TXT")="STATION NUMBER from 662 to 688"
^DIBT(719,2,"B",440.6,1)=""
^DIBT(719,2,"B",440.6,2)=""
^DIBT(719,"%D",0)="^.4012^2^2^3001218^^^"
^DIBT(719,"%D",1,0)="Sort for the option 'PRCH P/C ORACLE', used by the Purchase Card"
^DIBT(719,"%D",2,0)="Coordinator."
^DIBT(720,0)="PRCH CARD INFOSORT^3010409.0753^@^440.5^^@^3010411"
^DIBT(720,2,0)="^.4014^3^3"
^DIBT(720,2,1,0)="440.5^^CARD HOLDER^@#""7^^^^^^4"
^DIBT(720,2,1,"ASK")="1"
^DIBT(720,2,1,"CM")="S Y(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(720,2,1,"F")="@z^A"
^DIBT(720,2,1,"GET")="S Y(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(720,2,1,"IX")="^PRC(440.5,""H"",^PRC(440.5,^2"
^DIBT(720,2,1,"PTRIX")="^VA(200,""B"","
^DIBT(720,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""Z"")"
^DIBT(720,2,1,"SER")="0.3478^0.2581"
^DIBT(720,2,1,"T")="Z^Z"
^DIBT(720,2,1,"TXT")="CARD HOLDER from A to Z"
^DIBT(720,2,2,0)="440.5^10^PURCHASE CARD NAME^@^^^^^^4"
^DIBT(720,2,2,"F")="@z^A"
^DIBT(720,2,2,"GET")="S DISX(2)=$P($G(^PRC(440.5,D0,0)),U,11)"
^DIBT(720,2,2,"IX")="^PRC(440.5,""G"",^PRC(440.5,^2"
^DIBT(720,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(720,2,2,"SER")="0.4762^0.3226"
^DIBT(720,2,2,"T")="Z^Z"
^DIBT(720,2,2,"TXT")="PURCHASE CARD NAME from A to Z"
^DIBT(720,2,3,0)="440.5^^STATION NUMBER^""15^^^^^^4"
^DIBT(720,2,3,"ASK")="1"
^DIBT(720,2,3,"CM")="S Y(1)=$S($D(^PRC(440.5,D0,2)):^(2),1:"""") S X=$S('$D(^PRC(411,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(720,2,3,"F")="687.999999^688"
^DIBT(720,2,3,"GET")="S Y(1)=$S($D(^PRC(440.5,D0,2)):^(2),1:"""") S X=$S('$D(^PRC(411,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(720,2,3,"QCON")="I DISX(3)=688"
^DIBT(720,2,3,"T")="688^688"
^DIBT(720,2,3,"TXT")="STATION NUMBER equals 688"
^DIBT(720,2,"B",440.5,1)=""
^DIBT(720,2,"B",440.5,2)=""
^DIBT(720,2,"B",440.5,3)=""
^DIBT(720,"%D",0)="^^1^1^3010409^"
^DIBT(720,"%D",1,0)="Sort template for every card by user and station number."
^DIBT(721,0)="ABSV DON ORG VALUE SORT^3011217.0933^^503340^^^3020422"
^DIBT(721,2,0)="^.4014^4^4"
^DIBT(721,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(721,2,1,"ASK")="1"
^DIBT(721,2,1,"F")="502.999999^503"
^DIBT(721,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(721,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(721,2,1,"QCON")="I DISX(1)=503"
^DIBT(721,2,1,"SER")="0.0101^0.0100"
^DIBT(721,2,1,"T")="503^503"
^DIBT(721,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(721,2,2,0)="503340^1.5^ORGANIZATION NAME^+^^^^^^4"
^DIBT(721,2,2,"ASK")="1"
^DIBT(721,2,2,"F")="@z^A"
^DIBT(721,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,14)"
^DIBT(721,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(721,2,2,"SER")="0.0100^0.0100"
^DIBT(721,2,2,"T")="Z^Z"
^DIBT(721,2,2,"TXT")="ORGANIZATION NAME from A to Z"
^DIBT(721,2,3,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(721,2,3,"ASK")="1"
^DIBT(721,2,3,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(721,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(721,2,3,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(721,2,3,"QCON")="I (DISX(3)]]2861216.999999)&(DISX(3)']]3020419.24)"
^DIBT(721,2,3,"SER")="0.0000^0.0000"
^DIBT(721,2,3,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(721,2,3,"TXT")="DATE RECEIVED from Dec 17,1986 to Apr 19,2002@24:00"
^DIBT(721,2,4,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(721,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(721,2,4,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(721,2,4,"QCON")="I DISX(4)'="""""
^DIBT(721,2,4,"SER")="0^0"
^DIBT(721,2,4,"TXT")="TRACKING NUMBER not null"
^DIBT(721,2,"B",503340,1)=""
^DIBT(721,2,"B",503340,2)=""
^DIBT(721,2,"B",503340,3)=""
^DIBT(721,2,"B",503340,4)=""
^DIBT(721,"%D",0)="^.4012^1^1^3011217^^^^"
^DIBT(721,"%D",1,0)="This template is used to print a value report for all organizations."
^DIBT(722,0)="ABSV DON RECEIVED SORT^3011206.1603^^503340^^^3020312"
^DIBT(722,2,0)="^.4014^4^4"
^DIBT(722,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(722,2,1,"ASK")="1"
^DIBT(722,2,1,"F")="502.999999^503"
^DIBT(722,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(722,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(722,2,1,"QCON")="I DISX(1)=503"
^DIBT(722,2,1,"SER")="0.0101^0.0100"
^DIBT(722,2,1,"T")="503^503"
^DIBT(722,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(722,2,2,0)="503340^2^DATE RECEIVED^+^^^^^^1"
^DIBT(722,2,2,"ASK")="1"
^DIBT(722,2,2,"F")="3000600.999999^3000601^Jun 1,2000"
^DIBT(722,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(722,2,2,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(722,2,2,"QCON")="I (DISX(2)]]3000600.999999)&(DISX(2)']]3010930.24)"
^DIBT(722,2,2,"SER")="9.0000^0.9000"
^DIBT(722,2,2,"T")="3010930.24^3010930@2400^Sep 30,2001@24:00"
^DIBT(722,2,2,"TXT")="DATE RECEIVED from Jun 1,2000 to Sep 30,2001@24:00"
^DIBT(722,2,3,0)="503340^1.5^ORGANIZATION NAME^^^^^^^4"
^DIBT(722,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,14)"
^DIBT(722,2,3,"QCON")="I DISX(3)'="""""
^DIBT(722,2,3,"SER")="0.0100^0.0100"
^DIBT(722,2,3,"TXT")="ORGANIZATION NAME not null"
^DIBT(722,2,4,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(722,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(722,2,4,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(722,2,4,"QCON")="I DISX(4)'="""""
^DIBT(722,2,4,"SER")="0^0"
^DIBT(722,2,4,"TXT")="TRACKING NUMBER not null"
^DIBT(722,2,"B",503340,1)=""
^DIBT(722,2,"B",503340,2)=""
^DIBT(722,2,"B",503340,3)=""
^DIBT(722,2,"B",503340,4)=""
^DIBT(723,0)="ABSV DON INDIVIDUAL^3011205.1117^^503340^^^3011205"
^DIBT(723,2,0)="^.4014^4^4"
^DIBT(723,2,1,0)="503340^^INTERNAL(INDIVIDUAL DONOR)^'""^^^^^^4"
^DIBT(723,2,1,"ASK")="1"
^DIBT(723,2,1,"CM")="S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X I D0>0 S DISX(1)=X"
^DIBT(723,2,1,"F")="55.999999^56"
^DIBT(723,2,1,"GET")="S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X I D0>0 S DISX(1)=X"
^DIBT(723,2,1,"QCON")="I DISX(1)=56"
^DIBT(723,2,1,"T")="56^56"
^DIBT(723,2,1,"TXT")="INTERNAL(INDIVIDUAL DONOR) equals 56"
^DIBT(723,2,2,0)="503340^.6^STATION NUMBER^+^^^^^^4"
^DIBT(723,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(723,2,2,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(723,2,2,"QCON")="I DISX(2)'="""""
^DIBT(723,2,2,"SER")="0.0101^0.0100"
^DIBT(723,2,2,"TXT")="STATION NUMBER not null"
^DIBT(723,2,3,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(723,2,3,"ASK")="1"
^DIBT(723,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(723,2,3,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(723,2,3,"QCON")="I DISX(3)'="""""
^DIBT(723,2,3,"SER")="0.0000^0.0000"
^DIBT(723,2,3,"TXT")="DATE RECEIVED not null"
^DIBT(723,2,4,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(723,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(723,2,4,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(723,2,4,"QCON")="I DISX(4)'="""""
^DIBT(723,2,4,"SER")="0^0"
^DIBT(723,2,4,"TXT")="TRACKING NUMBER not null"
^DIBT(723,2,"B",503340,1)=""
^DIBT(723,2,"B",503340,2)=""
^DIBT(723,2,"B",503340,3)=""
^DIBT(723,2,"B",503340,4)=""
^DIBT(723,"%D",0)="^.4012^1^1^3011205^^^^"
^DIBT(723,"%D",1,0)="This template is used to print a value report by individual donor."
^DIBT(724,0)="ABSV DON ACK VALUE SORT^3011217.0959^^503340^^^3020422"
^DIBT(724,2,0)="^.4014^4^4"
^DIBT(724,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(724,2,1,"ASK")="1"
^DIBT(724,2,1,"F")="502.999999^503"
^DIBT(724,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(724,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(724,2,1,"QCON")="I DISX(1)=503"
^DIBT(724,2,1,"SER")="0.0101^0.0100"
^DIBT(724,2,1,"T")="503^503"
^DIBT(724,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(724,2,2,0)="503340^3^DATE ACKNOWLEDGED^+^^^^^^1"
^DIBT(724,2,2,"ASK")="1"
^DIBT(724,2,2,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(724,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,4)"
^DIBT(724,2,2,"QCON")="I (DISX(2)]]2861216.999999)&(DISX(2)']]3020419.24)"
^DIBT(724,2,2,"SER")="0.0100^0.0100"
^DIBT(724,2,2,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(724,2,2,"TXT")="DATE ACKNOWLEDGED from Dec 17,1986 to Apr 19,2002@24:00"
^DIBT(724,2,3,0)="503340^1.5^ORGANIZATION NAME^^^^^^^4"
^DIBT(724,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,14)"
^DIBT(724,2,3,"QCON")="I DISX(3)'="""""
^DIBT(724,2,3,"SER")="0.0100^0.0100"
^DIBT(724,2,3,"TXT")="ORGANIZATION NAME not null"
^DIBT(724,2,4,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(724,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(724,2,4,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(724,2,4,"QCON")="I DISX(4)'="""""
^DIBT(724,2,4,"SER")="0^0"
^DIBT(724,2,4,"TXT")="TRACKING NUMBER not null"
^DIBT(724,2,"B",503340,1)=""
^DIBT(724,2,"B",503340,2)=""
^DIBT(724,2,"B",503340,3)=""
^DIBT(724,2,"B",503340,4)=""
^DIBT(724,"%D",0)="^.4012^1^1^3011217^^"
^DIBT(724,"%D",1,0)="This template is used to print a value report by date acknowledged."
^DIBT(725,0)="ABSV DON TYPE VALUE SORT^3011217.0948^^503340^^^3020415"
^DIBT(725,2,0)="^.4014^4^4"
^DIBT(725,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(725,2,1,"ASK")="1"
^DIBT(725,2,1,"F")="502.999999^503"
^DIBT(725,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(725,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(725,2,1,"QCON")="I DISX(1)=503"
^DIBT(725,2,1,"SER")="0.0101^0.0100"
^DIBT(725,2,1,"T")="503^503"
^DIBT(725,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(725,2,2,0)="503340^5^TYPE OF DONATION^+^^^^^^3"
^DIBT(725,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,6)"
^DIBT(725,2,2,"QCON")="I DISX(2)'="""""
^DIBT(725,2,2,"SER")="0.0100^0.0100"
^DIBT(725,2,2,"TXT")="TYPE OF DONATION not null"
^DIBT(725,2,3,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(725,2,3,"ASK")="1"
^DIBT(725,2,3,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(725,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(725,2,3,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(725,2,3,"QCON")="I (DISX(3)]]2861216.999999)&(DISX(3)']]3011222.24)"
^DIBT(725,2,3,"SER")="0.0000^0.0000"
^DIBT(725,2,3,"T")="3011222.24^3011222@2400^Dec 22,2001@24:00"
^DIBT(725,2,3,"TXT")="DATE RECEIVED from Dec 17,1986 to Dec 22,2001@24:00"
^DIBT(725,2,4,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(725,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(725,2,4,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(725,2,4,"QCON")="I DISX(4)'="""""
^DIBT(725,2,4,"SER")="0^0"
^DIBT(725,2,4,"TXT")="TRACKING NUMBER not null"
^DIBT(725,2,"B",503340,1)=""
^DIBT(725,2,"B",503340,2)=""
^DIBT(725,2,"B",503340,3)=""
^DIBT(725,2,"B",503340,4)=""
^DIBT(726,0)="ABSV DON FISCAL SORT^3011217.0954^^503340^^^3020419"
^DIBT(726,2,0)="^.4014^4^4"
^DIBT(726,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(726,2,1,"ASK")="1"
^DIBT(726,2,1,"F")="502.999999^503"
^DIBT(726,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(726,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(726,2,1,"QCON")="I DISX(1)=503"
^DIBT(726,2,1,"SER")="0.0101^0.0100"
^DIBT(726,2,1,"T")="503^503"
^DIBT(726,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(726,2,2,0)="503340^5^TYPE OF DONATION^+^;S1^^^^^3"
^DIBT(726,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,6)"
^DIBT(726,2,2,"QCON")="I DISX(2)'="""""
^DIBT(726,2,2,"SER")="0.0100^0.0100"
^DIBT(726,2,2,"TXT")="TYPE OF DONATION not null"
^DIBT(726,2,3,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(726,2,3,"ASK")="1"
^DIBT(726,2,3,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(726,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(726,2,3,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(726,2,3,"QCON")="I (DISX(3)]]2861216.999999)&(DISX(3)']]3020419.24)"
^DIBT(726,2,3,"SER")="0.0000^0.0000"
^DIBT(726,2,3,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(726,2,3,"TXT")="DATE RECEIVED from Dec 17,1986 to Apr 19,2002@24:00"
^DIBT(726,2,4,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(726,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(726,2,4,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(726,2,4,"QCON")="I DISX(4)'="""""
^DIBT(726,2,4,"SER")="0^0"
^DIBT(726,2,4,"TXT")="TRACKING NUMBER not null"
^DIBT(726,2,"B",503340,1)=""
^DIBT(726,2,"B",503340,2)=""
^DIBT(726,2,"B",503340,3)=""
^DIBT(726,2,"B",503340,4)=""
^DIBT(726,"%D",0)="^.4012^1^1^3011217^^"
^DIBT(726,"%D",1,0)="This template is used to sort the data for a monthly report to fiscal."
^DIBT(727,0)="ABSV DON IND ORG^3020515.161^^503340^^^3020515"
^DIBT(727,2,0)="^.4014^6^6"
^DIBT(727,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(727,2,1,"ASK")="1"
^DIBT(727,2,1,"F")="502.999999^503"
^DIBT(727,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(727,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(727,2,1,"QCON")="I DISX(1)=503"
^DIBT(727,2,1,"SER")="0.0101^0.0100"
^DIBT(727,2,1,"T")="503^503"
^DIBT(727,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(727,2,2,0)="503340^^INTERNAL(ORGANIZATION)^'""^^^^^^4"
^DIBT(727,2,2,"ASK")="1"
^DIBT(727,2,2,"CM")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(2)=X"
^DIBT(727,2,2,"F")="43.999999^44"
^DIBT(727,2,2,"GET")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(2)=X"
^DIBT(727,2,2,"QCON")="I DISX(2)=44"
^DIBT(727,2,2,"T")="44^44"
^DIBT(727,2,2,"TXT")="INTERNAL(ORGANIZATION) equals 44"
^DIBT(727,2,3,0)="503340^^ORGANIZATION:ORGANIZATION^""^;""ORGANIZATION: ""^^^^^4"
^DIBT(727,2,3,3,0)="^.401419^1^1"
^DIBT(727,2,3,3,1,0)="OVF0^9.2"
^DIBT(727,2,3,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DIBT(727,2,3,3,"B","OVF0",1)=""
^DIBT(727,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(727,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(727,2,3,"QCON")="I DISX(3)'="""""
^DIBT(727,2,3,"TXT")="ORGANIZATION:ORGANIZATION not null"
^DIBT(727,2,4,0)="503340^5^TYPE OF DONATION^+^^^^^^3"
^DIBT(727,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U,6)"
^DIBT(727,2,4,"QCON")="I DISX(4)'="""""
^DIBT(727,2,4,"SER")="0.0100^0.0100"
^DIBT(727,2,4,"TXT")="TYPE OF DONATION not null"
^DIBT(727,2,5,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(727,2,5,"ASK")="1"
^DIBT(727,2,5,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(727,2,5,"GET")="S DISX(5)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(727,2,5,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(727,2,5,"QCON")="I (DISX(5)]]2861216.999999)&(DISX(5)']]3020419.24)"
^DIBT(727,2,5,"SER")="0.0000^0.0000"
^DIBT(727,2,5,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(727,2,5,"TXT")="DATE RECEIVED from Dec 17,1986 to Apr 19,2002@24:00"
^DIBT(727,2,6,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(727,2,6,"GET")="S DISX(6)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(727,2,6,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(727,2,6,"QCON")="I DISX(6)'="""""
^DIBT(727,2,6,"SER")="0^0"
^DIBT(727,2,6,"TXT")="TRACKING NUMBER not null"
^DIBT(727,2,"B",503340,1)=""
^DIBT(727,2,"B",503340,2)=""
^DIBT(727,2,"B",503340,3)=""
^DIBT(727,2,"B",503340,4)=""
^DIBT(727,2,"B",503340,5)=""
^DIBT(727,2,"B",503340,6)=""
^DIBT(727,"%D",0)="^^1^1^3020515^"
^DIBT(727,"%D",1,0)="This sort template is used to print the single organization value print."
^DIBT(728,0)="ABSV DON POST^3011217.104^^503340^^^3020429"
^DIBT(728,2,0)="^.4014^6^6"
^DIBT(728,2,1,0)="503340^.6^STATION NUMBER^^^^^^^4"
^DIBT(728,2,1,"ASK")="1"
^DIBT(728,2,1,"F")="502.999999^503"
^DIBT(728,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(728,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(728,2,1,"QCON")="I DISX(1)=503"
^DIBT(728,2,1,"SER")="0.0101^0.0100"
^DIBT(728,2,1,"T")="503^503"
^DIBT(728,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(728,2,2,0)="503340^^ORGANIZATION^""1^^^^^^4"
^DIBT(728,2,2,"ASK")="1"
^DIBT(728,2,2,"CM")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503334,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(728,2,2,"F")="001z^002"
^DIBT(728,2,2,"GET")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503334,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(728,2,2,"IX")="^ABS(503340,""C"",^ABS(503340,^2"
^DIBT(728,2,2,"PTRIX")="^ABS(503334,""B"","
^DIBT(728,2,2,"QCON")="I DISX(2)=""002"""
^DIBT(728,2,2,"SER")="0.0101^0.0100"
^DIBT(728,2,2,"T")="002^002"
^DIBT(728,2,2,"TXT")="ORGANIZATION equals 002"
^DIBT(728,2,3,0)="503340^4^POST^^^^^^^4"
^DIBT(728,2,3,"ASK")="1"
^DIBT(728,2,3,"F")="5.999999^6"
^DIBT(728,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,5)"
^DIBT(728,2,3,"QCON")="I DISX(3)=6"
^DIBT(728,2,3,"SER")="0.6500^0.6500"
^DIBT(728,2,3,"T")="6^6"
^DIBT(728,2,3,"TXT")="POST equals 6"
^DIBT(728,2,4,0)="503340^5^TYPE OF DONATION^+^^^^^^3"
^DIBT(728,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U,6)"
^DIBT(728,2,4,"QCON")="I DISX(4)'="""""
^DIBT(728,2,4,"SER")="0.0100^0.0100"
^DIBT(728,2,4,"TXT")="TYPE OF DONATION not null"
^DIBT(728,2,5,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(728,2,5,"ASK")="1"
^DIBT(728,2,5,"F")="2950100.999999^2950101^Jan 1,1995"
^DIBT(728,2,5,"GET")="S DISX(5)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(728,2,5,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(728,2,5,"QCON")="I (DISX(5)]]2950100.999999)&(DISX(5)']]3020419.24)"
^DIBT(728,2,5,"SER")="0.0000^0.0000"
^DIBT(728,2,5,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(728,2,5,"TXT")="DATE RECEIVED from Jan 1,1995 to Apr 19,2002@24:00"
^DIBT(728,2,6,0)="503340^.01^TRACKING NUMBER^^^^^^^4"
^DIBT(728,2,6,"GET")="S DISX(6)=$P($G(^ABS(503340,D0,0)),U)"
^DIBT(728,2,6,"IX")="^ABS(503340,""B"",^ABS(503340,^2"
^DIBT(728,2,6,"QCON")="I DISX(6)'="""""
^DIBT(728,2,6,"SER")="0^0"
^DIBT(728,2,6,"TXT")="TRACKING NUMBER not null"
^DIBT(728,2,"B",503340,1)=""
^DIBT(728,2,"B",503340,2)=""
^DIBT(728,2,"B",503340,3)=""
^DIBT(728,2,"B",503340,4)=""
^DIBT(728,2,"B",503340,5)=""
^DIBT(728,2,"B",503340,6)=""
^DIBT(728,"%D",0)="^.4012^2^2^3011217^^^"
^DIBT(728,"%D",1,0)="This template is used to print a value report by the post/unit/chapter of"
^DIBT(728,"%D",2,0)="an organization."
^DIBT(729,0)="ABSV DON DONOR STATISTICS^3011205.1127^^503340^^^3011205"
^DIBT(729,2,0)="^.4014^3^3"
^DIBT(729,2,1,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(729,2,1,"ASK")="1"
^DIBT(729,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(729,2,1,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(729,2,1,"QCON")="I DISX(1)'="""""
^DIBT(729,2,1,"SER")="0.0000^0.0000"
^DIBT(729,2,1,"TXT")="DATE RECEIVED not null"
^DIBT(729,2,2,0)="503340^^INTERNAL(INDIVIDUAL DONOR)^'""^^^^^^4"
^DIBT(729,2,2,"ASK")="1"
^DIBT(729,2,2,"CM")="S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X I D0>0 S DISX(2)=X"
^DIBT(729,2,2,"F")="55.999999^56"
^DIBT(729,2,2,"GET")="S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X I D0>0 S DISX(2)=X"
^DIBT(729,2,2,"QCON")="I DISX(2)=56"
^DIBT(729,2,2,"T")="56^56"
^DIBT(729,2,2,"TXT")="INTERNAL(INDIVIDUAL DONOR) equals 56"
^DIBT(729,2,3,0)="503340^.6^STATION NUMBER^'^^^^^^4"
^DIBT(729,2,3,"ASK")="1"
^DIBT(729,2,3,"F")="502.999999^503"
^DIBT(729,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(729,2,3,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(729,2,3,"QCON")="I DISX(3)=503"
^DIBT(729,2,3,"SER")="0.0101^0.0100"
^DIBT(729,2,3,"T")="503^503"
^DIBT(729,2,3,"TXT")="STATION NUMBER equals 503"
^DIBT(729,2,"B",503340,1)=""
^DIBT(729,2,"B",503340,2)=""
^DIBT(729,2,"B",503340,3)=""
^DIBT(729,"%D",0)="^.4012^2^2^3011205^^^^"
^DIBT(729,"%D",1,0)="This template is used to sort the statistical data report by individual"
^DIBT(729,"%D",2,0)="donor."
^DIBT(730,0)="ABSV DON ORG STATS^3020515.1618^^503340^^^3020515"
^DIBT(730,2,0)="^.4014^5^5"
^DIBT(730,2,1,0)="503340^.6^STATION NUMBER^'^^^^^^4"
^DIBT(730,2,1,"ASK")="1"
^DIBT(730,2,1,"F")="502.999999^503"
^DIBT(730,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(730,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(730,2,1,"QCON")="I DISX(1)=503"
^DIBT(730,2,1,"SER")="0.0101^0.0100"
^DIBT(730,2,1,"T")="503^503"
^DIBT(730,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(730,2,2,0)="503340^^INTERNAL(ORGANIZATION)^'""^^^^^^4"
^DIBT(730,2,2,"ASK")="1"
^DIBT(730,2,2,"CM")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(2)=X"
^DIBT(730,2,2,"F")="43.999999^44"
^DIBT(730,2,2,"GET")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(2)=X"
^DIBT(730,2,2,"QCON")="I DISX(2)=44"
^DIBT(730,2,2,"T")="44^44"
^DIBT(730,2,2,"TXT")="INTERNAL(ORGANIZATION) equals 44"
^DIBT(730,2,3,0)="503340^^ORGANIZATION:ORGANIZATION^""^;""ORGANIZATION: ""^^^^^4"
^DIBT(730,2,3,3,0)="^.401419^1^1"
^DIBT(730,2,3,3,1,0)="OVF0^9.2"
^DIBT(730,2,3,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DIBT(730,2,3,3,"B","OVF0",1)=""
^DIBT(730,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(730,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P(Y(101),U,2) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(730,2,3,"QCON")="I DISX(3)'="""""
^DIBT(730,2,3,"TXT")="ORGANIZATION:ORGANIZATION not null"
^DIBT(730,2,4,0)="503340^4^POST^+^;S2^^^^^4"
^DIBT(730,2,4,"GET")="S DISX(4)=$P($G(^ABS(503340,D0,0)),U,5)"
^DIBT(730,2,4,"QCON")="I DISX(4)'="""""
^DIBT(730,2,4,"SER")="0.6500^0.6500"
^DIBT(730,2,4,"TXT")="POST not null"
^DIBT(730,2,5,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(730,2,5,"ASK")="1"
^DIBT(730,2,5,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(730,2,5,"GET")="S DISX(5)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(730,2,5,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(730,2,5,"QCON")="I (DISX(5)]]2861216.999999)&(DISX(5)']]3020419.24)"
^DIBT(730,2,5,"SER")="0.0000^0.0000"
^DIBT(730,2,5,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(730,2,5,"TXT")="DATE RECEIVED from Dec 17,1986 to Apr 19,2002@24:00"
^DIBT(730,2,"B",503340,1)=""
^DIBT(730,2,"B",503340,2)=""
^DIBT(730,2,"B",503340,3)=""
^DIBT(730,2,"B",503340,4)=""
^DIBT(730,2,"B",503340,5)=""
^DIBT(730,"%D",0)="^.4012^2^2^3020515^^^^"
^DIBT(730,"%D",1,0)="This template is used to print the Individual Organization Statistical"
^DIBT(730,"%D",2,0)="Report."
^DIBT(731,0)="ABSV DON DATE STATS^3011205.1056^^503340^^^3020419"
^DIBT(731,2,0)="^.4014^2^2"
^DIBT(731,2,1,0)="503340^.6^STATION NUMBER^]'^^^^^^4"
^DIBT(731,2,1,"ASK")="1"
^DIBT(731,2,1,"F")="502.999999^503"
^DIBT(731,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(731,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(731,2,1,"QCON")="I DISX(1)=503"
^DIBT(731,2,1,"SER")="0.0101^0.0100"
^DIBT(731,2,1,"T")="503^503"
^DIBT(731,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(731,2,2,0)="503340^2^DATE RECEIVED^'^^^^^^1"
^DIBT(731,2,2,"ASK")="1"
^DIBT(731,2,2,"F")="2861216.999999^2861217^Dec 17,1986"
^DIBT(731,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(731,2,2,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(731,2,2,"QCON")="I (DISX(2)]]2861216.999999)&(DISX(2)']]3020419.24)"
^DIBT(731,2,2,"SER")="0.0000^0.0000"
^DIBT(731,2,2,"T")="3020419.24^3020419@2400^Apr 19,2002@24:00"
^DIBT(731,2,2,"TXT")="DATE RECEIVED from Dec 17,1986 to Apr 19,2002@24:00"
^DIBT(731,2,"B",503340,1)=""
^DIBT(731,2,"B",503340,2)=""
^DIBT(731,"%D",0)="^.4012^1^1^3011205^^^"
^DIBT(731,"%D",1,0)="This templates sorts data for the Statistics Report by Date."
^DIBT(732,0)="ABSV DON FUND STATS^3011205.113^^503340^^^3020312"
^DIBT(732,2,0)="^.4014^3^3"
^DIBT(732,2,1,0)="503340^.6^STATION NUMBER^'^^^^^^4"
^DIBT(732,2,1,"ASK")="1"
^DIBT(732,2,1,"F")="502.999999^503"
^DIBT(732,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(732,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(732,2,1,"QCON")="I DISX(1)=503"
^DIBT(732,2,1,"SER")="0.0101^0.0100"
^DIBT(732,2,1,"T")="503^503"
^DIBT(732,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(732,2,2,0)="503340^2^DATE RECEIVED^'^^^^^^1"
^DIBT(732,2,2,"ASK")="1"
^DIBT(732,2,2,"F")="3000600.999999^3000601^Jun 1,2000"
^DIBT(732,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(732,2,2,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(732,2,2,"QCON")="I (DISX(2)]]3000600.999999)&(DISX(2)']]3010930.24)"
^DIBT(732,2,2,"SER")="9.0000^0.9000"
^DIBT(732,2,2,"T")="3010930.24^3010930@2400^Sep 30,2001@24:00"
^DIBT(732,2,2,"TXT")="DATE RECEIVED from Jun 1,2000 to Sep 30,2001@24:00"
^DIBT(732,2,3,0)="503340^^FUND^+""7^;S^^^^^4"
^DIBT(732,2,3,"CM")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503342,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(732,2,3,"GET")="S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$S('$D(^ABS(503342,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(732,2,3,"QCON")="I DISX(3)'="""""
^DIBT(732,2,3,"TXT")="FUND not null"
^DIBT(732,2,"B",503340,1)=""
^DIBT(732,2,"B",503340,2)=""
^DIBT(732,2,"B",503340,3)=""
^DIBT(732,"%D",0)="^.4012^1^1^3011205^^^"
^DIBT(732,"%D",1,0)="This template is used to print value statistics by FUND."
^DIBT(733,0)="ABSV DON TYPE STATS^3011205.1047^^503340^^^3020415"
^DIBT(733,2,0)="^.4014^3^3"
^DIBT(733,2,1,0)="503340^.6^STATION NUMBER^'^^^^^^4"
^DIBT(733,2,1,"ASK")="1"
^DIBT(733,2,1,"F")="503@z^503A"
^DIBT(733,2,1,"GET")="S DISX(1)=$P($G(^ABS(503340,D0,0)),U,19)"
^DIBT(733,2,1,"IX")="^ABS(503340,""AE"",^ABS(503340,^2"
^DIBT(733,2,1,"QCON")="I DISX(1)=""503A"""
^DIBT(733,2,1,"T")="503A^503A"
^DIBT(733,2,1,"TXT")="STATION NUMBER equals 503A"
^DIBT(733,2,2,0)="503340^2^DATE RECEIVED^'^^^^^^1"
^DIBT(733,2,2,"ASK")="1"
^DIBT(733,2,2,"F")="2000100.999999^01/01/1900^Jan 1,1900"
^DIBT(733,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(733,2,2,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(733,2,2,"QCON")="I DISX(2)]]2000100.999999"
^DIBT(733,2,2,"T")="z^"
^DIBT(733,2,2,"TXT")="DATE RECEIVED from Jan 1,1900"
^DIBT(733,2,3,0)="503340^5^TYPE OF DONATION^+^;S^^^^^3"
^DIBT(733,2,3,"GET")="S DISX(3)=$P($G(^ABS(503340,D0,0)),U,6)"
^DIBT(733,2,3,"QCON")="I DISX(3)'="""""
^DIBT(733,2,3,"TXT")="TYPE OF DONATION not null"
^DIBT(733,2,"B",503340,1)=""
^DIBT(733,2,"B",503340,2)=""
^DIBT(733,2,"B",503340,3)=""
^DIBT(734,0)="ABSV DON EXPORT^3010823.173^^503340^^^3010925"
^DIBT(734,2,0)="^.4014^2^2"
^DIBT(734,2,1,0)="503340^.7^STATION NUMBER^'^^^^^^4"
^DIBT(734,2,1,"ASK")="1"
^DIBT(734,2,1,"F")="502.999999^503"
^DIBT(734,2,1,"GET")="X ^DD(503340,.7,9.2) S Y(503340,.7,101)=$S($D(^ABS(503338,D0,0)):^(0),1:"""") S X=$P(Y(503340,.7,101),U,9) S D0=Y(503340,.7,80) S DISX(1)=X"
^DIBT(734,2,1,"QCON")="I DISX(1)=503"
^DIBT(734,2,1,"SER")="0.0000^0.0000"
^DIBT(734,2,1,"T")="503^503"
^DIBT(734,2,1,"TXT")="STATION NUMBER equals 503"
^DIBT(734,2,2,0)="503340^2^DATE RECEIVED^^^^^^^1"
^DIBT(734,2,2,"ASK")="1"
^DIBT(734,2,2,"F")="3000100.999999^3000101^Jan 1,2000"
^DIBT(734,2,2,"GET")="S DISX(2)=$P($G(^ABS(503340,D0,0)),U,3)"
^DIBT(734,2,2,"IX")="^ABS(503340,""D"",^ABS(503340,^2"
^DIBT(734,2,2,"QCON")="I (DISX(2)]]3000100.999999)&(DISX(2)']]3000601.24)"
^DIBT(734,2,2,"SER")="49.0000^0.9800"
^DIBT(734,2,2,"T")="3000601.24^3000601@2400^Jun 1,2000@24:00"
^DIBT(734,2,2,"TXT")="DATE RECEIVED from Jan 1,2000 to Jun 1,2000@24:00"
^DIBT(734,2,"B",503340,1)=""
^DIBT(734,2,"B",503340,2)=""
^DIBT(734,"%D",0)="^.4012^1^1^3010824^^^^"
^DIBT(734,"%D",1,0)="This template is used to sort the data for the donations export."
^DIBT(735,0)="ROR LOG^3011102.1204^^798.7^^@^3060202"
^DIBT(735,2,0)="^.4014^3^3"
^DIBT(735,2,1,0)="798.7^0^NUMBER^@^^^^^^2"
^DIBT(735,2,1,"IX")="^RORDATA(798.7,^RORDATA(798.7,^1"
^DIBT(735,2,1,"QCON")="I D0'="""""
^DIBT(735,2,1,"SER")="0^0"
^DIBT(735,2,1,"TXT")="NUMBER not null"
^DIBT(735,2,2,0)="798.7^.01^START DATE/TIME^^;S1;""LOG DATE/TIME: ""^^^^^1"
^DIBT(735,2,2,"ASK")="1"
^DIBT(735,2,2,"F")="3050718.999999^Jul 19,2005^Jul 19,2005"
^DIBT(735,2,2,"GET")="S DISX(2)=$P($G(^RORDATA(798.7,D0,0)),U)"
^DIBT(735,2,2,"IX")="^RORDATA(798.7,""B"",^RORDATA(798.7,^2"
^DIBT(735,2,2,"QCON")="I DISX(2)]]3050718.999999"
^DIBT(735,2,2,"SER")="1.7333^0.6341"
^DIBT(735,2,2,"T")="z^"
^DIBT(735,2,2,"TXT")="START DATE/TIME from Jul 19,2005"
^DIBT(735,2,3,0)="798.74^.01^DATE/TIME^^^^^^^1"
^DIBT(735,2,3,1,0)="^.40141^1^1"
^DIBT(735,2,3,1,1,0)="798.7^2"
^DIBT(735,2,3,1,"B",798.7,1)=""
^DIBT(735,2,3,"GET")="S DISX(3)=$P($G(^RORDATA(798.7,D0,2,D1,0)),U)"
^DIBT(735,2,3,"QCON")="I DISX(3)'="""""
^DIBT(735,2,3,"TXT")="DATE/TIME not null"
^DIBT(735,2,"B",798.7,1)=""
^DIBT(735,2,"B",798.7,2)=""
^DIBT(735,2,"B",798.74,3)=""
^DIBT(735,"%D",0)="^.4012^2^2^3020403^^"
^DIBT(735,"%D",1,0)="This template is used by the [RORMNT PRINT LOGS] option to print "
^DIBT(735,"%D",2,0)="messages from the log files."
^DIBT(735,"DIPT")="ROR LOG"
^DIBT(736,0)="ROR DATA ELEMENTS^3020404.1303^^799.2^^@^3050512"
^DIBT(736,2,0)="^.4014^1^1"
^DIBT(736,2,1,0)="799.22^.02^CODE^^^^^^^2"
^DIBT(736,2,1,1,0)="^.40141^1^1"
^DIBT(736,2,1,1,1,0)="799.2^2"
^DIBT(736,2,1,1,"B",799.2,1)=""
^DIBT(736,2,1,"GET")="S DISX(1)=$P($G(^ROR(799.2,D0,2,D1,0)),U,2) S:DISX(1)]"""" DISX(1)=+DISX(1)"
^DIBT(736,2,1,"IX")="^ROR(799.2,""DEC"",^ROR(799.2,^2"
^DIBT(736,2,1,"QCON")="I DISX(1)'="""""
^DIBT(736,2,1,"TXT")="CODE not null"
^DIBT(736,2,"B",799.22,1)=""
^DIBT(736,"DIPT")="ROR DATA ELEMENTS"
^DIBT(737,0)="PRPF UNASSIGNED STATION LIST^3020515.1744^@^470^^@^3020802"
^DIBT(737,2,0)="^.4014^2^2"
^DIBT(737,2,1,0)="470^^STATION NAME^@""73^^^^^^4"
^DIBT(737,2,1,"CM")="S Y(1)=$S($D(^PRPF(470,D0,12)):^(12),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(737,2,1,"F")="?z^@"
^DIBT(737,2,1,"GET")="S Y(1)=$S($D(^PRPF(470,D0,12)):^(12),1:"""") S X=$S('$D(^DIC(4,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(737,2,1,"QCON")="I DISX(1)="""""
^DIBT(737,2,1,"T")="@^@"
^DIBT(737,2,1,"TXT")="STATION NAME is null"
^DIBT(737,2,2,0)="470^^NAME^"".01^^^^^^4"
^DIBT(737,2,2,"CM")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(737,2,2,"GET")="S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(737,2,2,"IX")="^PRPF(470,""B"",^PRPF(470,^2"
^DIBT(737,2,2,"PTRIX")="^DPT(""B"","
^DIBT(737,2,2,"QCON")="I DISX(2)'="""""
^DIBT(737,2,2,"SER")="0.0000^0.0000"
^DIBT(737,2,2,"TXT")="NAME not null"
^DIBT(737,2,"B",470,1)=""
^DIBT(737,2,"B",470,2)=""
^DIBT(737,"%D",0)="^.4012^1^1^3020515^^^^"
^DIBT(737,"%D",1,0)="THIS TEMPLATE WILL SEARCH FOR PATIENTS WITH OUT A STATION ASSIGNED TO THEM"
^DIBT(738,0)="ROR PENDING ERRORS^3020717.1339^^798.3^^@^3060202"
^DIBT(738,2,0)="^.4014^4^4"
^DIBT(738,2,1,0)="798.31^2^COUNTER^-^;S^^^^^2"
^DIBT(738,2,1,1,0)="^.40141^1^1"
^DIBT(738,2,1,1,1,0)="798.3^1"
^DIBT(738,2,1,1,"B",798.3,1)=""
^DIBT(738,2,1,"GET")="S DISX(1)=$P($G(^RORDATA(798.3,D0,1,D1,0)),U,3) S:DISX(1)]"""" DISX(1)=+DISX(1)"
^DIBT(738,2,1,"QCON")="I DISX(1)'="""""
^DIBT(738,2,1,"TXT")="COUNTER not null"
^DIBT(738,2,2,0)="798.3^^""""^""^;S^^^^^4"
^DIBT(738,2,2,"CM")="S X="""" I D0>0 S DISX(2)=X"
^DIBT(738,2,2,"F")="?z^@"
^DIBT(738,2,2,"GET")="S X="""" I D0>0 S DISX(2)=X"
^DIBT(738,2,2,"QCON")="I DISX(2)="""""
^DIBT(738,2,2,"T")="@^@"
^DIBT(738,2,2,"TXT")=""""""""" is null"
^DIBT(738,2,3,0)="798.3^^PATIENT NAME^"".01^^^^^^4"
^DIBT(738,2,3,"CM")="S Y(1)=$S($D(^RORDATA(798.3,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(738,2,3,"GET")="S Y(1)=$S($D(^RORDATA(798.3,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(738,2,3,"IX")="^RORDATA(798.3,""B"",^RORDATA(798.3,^2"
^DIBT(738,2,3,"PTRIX")="^DPT(""B"","
^DIBT(738,2,3,"QCON")="I DISX(3)'="""""
^DIBT(738,2,3,"SER")="0.0000^0.0000"
^DIBT(738,2,3,"TXT")="PATIENT NAME not null"
^DIBT(738,2,4,0)="798.3^0^NUMBER^^^^^^^2"
^DIBT(738,2,4,"IX")="^RORDATA(798.3,^RORDATA(798.3,^1"
^DIBT(738,2,4,"QCON")="I D0'="""""
^DIBT(738,2,4,"SER")="0^0"
^DIBT(738,2,4,"TXT")="NUMBER not null"
^DIBT(738,2,"B",798.3,2)=""
^DIBT(738,2,"B",798.3,3)=""
^DIBT(738,2,"B",798.3,4)=""
^DIBT(738,2,"B",798.31,1)=""
^DIBT(738,"%D",0)="^^5^5^3020801^"
^DIBT(738,"%D",1,0)="This template is used by the [RORMNT PENDING "
^DIBT(738,"%D",2,0)="ERRORS LIST] menu option to sort and group a list"
^DIBT(738,"%D",3,0)="of patients with erroneous data by error counter "
^DIBT(738,"%D",4,0)="(value of the COUNTER field). Patients with higher"
^DIBT(738,"%D",5,0)="counters are printed first."
^DIBT(739,0)="SCMC DIRECT PC FTEE^3030421.091^@^404.52^^@^3050825"
^DIBT(739,2,0)="^.4014^4^4"
^DIBT(739,2,1,0)="404.51^^($P(INSTITUTION,"","")_"" ""_$P(INSTITUTION,"","",2,9))^""""+#""^;""INSTITUTION: ""^^^^^4"
^DIBT(739,2,1,2,0)="^.401418^2^2"
^DIBT(739,2,1,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(739,2,1,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(739,2,1,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(739,2,1,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(739,2,1,2,"B",404.52,1)=""
^DIBT(739,2,1,2,"B",404.57,2)=""
^DIBT(739,2,1,3,0)="^.401419^2^2"
^DIBT(739,2,1,3,1,0)="OVF200^9.2"
^DIBT(739,2,1,3,1,"OVF0")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(201),U,7),0)):"""",1:$P(^(0),U,1)),Y(202)=X S X="","",X=$P(Y(202),X)_"" "",Y(203)=X"
^DIBT(739,2,1,3,2,0)="OVF200^9.3"
^DIBT(739,2,1,3,2,"OVF0")="X DPP(1,""OVF200"",9.2) S X=$S('$D(^DIC(4,+$P(Y(201),U,7),0)):"""",1:$P(^(0),U,1)),Y(204)=X S X="","",Y(205)=X S X=2,Y(206)=X S X=9"
^DIBT(739,2,1,3,"B","OVF200",1)=""
^DIBT(739,2,1,3,"B","OVF200",2)=""
^DIBT(739,2,1,"ASK")="1"
^DIBT(739,2,1,"CM")="X DPP(1,""OVF200"",9.3) S X=$P(Y(204),Y(205),Y(206),X) S Y=X,X=Y(203),X=X_Y I D0>0 S DISX(1)=X"
^DIBT(739,2,1,"GET")="X DPP(1,""OVF200"",9.3) S X=$P(Y(204),Y(205),Y(206),X) S Y=X,X=Y(203),X=X_Y I D0>0 S DISX(1)=X"
^DIBT(739,2,1,"QCON")="I DISX(1)'="""""
^DIBT(739,2,1,"TXT")="($P(INSTITUTION,"""","""")_"""" """"_$P(INSTITUTION,"""","""",2,9)) not null"
^DIBT(739,2,2,0)="404.52^^PRACTITIONER^+"".03^^^^^^4"
^DIBT(739,2,2,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(739,2,2,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(739,2,2,"IX")="^SCTM(404.52,""C"",^SCTM(404.52,^2"
^DIBT(739,2,2,"PTRIX")="^VA(200,""B"","
^DIBT(739,2,2,"QCON")="I DISX(2)'="""""
^DIBT(739,2,2,"TXT")="PRACTITIONER not null"
^DIBT(739,2,3,0)="404.57^.01^POSITION^""^^^^^^4"
^DIBT(739,2,3,2,0)="^.401418^1^1"
^DIBT(739,2,3,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(739,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(739,2,3,2,"B",404.52,1)=""
^DIBT(739,2,3,"GET")="S DISX(3)=$P($G(^SCTM(404.57,D0,0)),U)"
^DIBT(739,2,3,"QCON")="I DISX(3)'="""""
^DIBT(739,2,3,"TXT")="POSITION not null"
^DIBT(739,2,4,0)="404.52^^D @(""SCREEN""_U_""SCMCTSK"")^@""^^^^^^4"
^DIBT(739,2,4,"CM")="D @(""SCREEN""_U_""SCMCTSK"") I D0>0 S DISX(4)=X"
^DIBT(739,2,4,"F")=".999999^1"
^DIBT(739,2,4,"GET")="D @(""SCREEN""_U_""SCMCTSK"") I D0>0 S DISX(4)=X"
^DIBT(739,2,4,"QCON")="I DISX(4)=1"
^DIBT(739,2,4,"T")="1^1"
^DIBT(739,2,4,"TXT")="D @(""""SCREEN""""_U_""""SCMCTSK"""") equals 1"
^DIBT(739,2,"B",404.51,1)=""
^DIBT(739,2,"B",404.52,2)=""
^DIBT(739,2,"B",404.52,4)=""
^DIBT(739,2,"B",404.57,3)=""
^DIBT(739,"%D",0)="^.4012^1^1^3030421^^^^"
^DIBT(739,"%D",1,0)="Direct Patient FTEE for Active assignments"
^DIBT(740,0)="ABSVM SERVICES TOSEND^3020731.1724^@^503332^^@^3030221"
^DIBT(740,"BY0")="XTMP(""ABSVMSERV"",""IEN"",^1"
^DIBT(741,0)="ABSVM ORGANIZATIONS TOSEND^3020803.1646^@^503334^^@^3030221"
^DIBT(741,"BY0")="XTMP(""ABSVMORG"",""IEN"",^1"
^DIBT(742,0)="ABSVM OCCASIONAL HOURS TOSEND^3020803.1649^@^503336^^@^3030221"
^DIBT(742,"BY0")="XTMP(""ABSVMOHRS"",""IEN"",^1"
^DIBT(743,0)="ABSVM REG HOURS 97Q1 TOSEND^3021219.1357^@^503331^^@^3030216"
^DIBT(743,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""97Q1"",^1"
^DIBT(744,0)="ABSVM REG HOURS 98Q1 TOSEND^3021219.1358^@^503331^^@^3030216"
^DIBT(744,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""98Q1"",^1"
^DIBT(745,0)="ABSVM REG HOURS 99Q1 TOSEND^3021219.1359^@^503331^^@^3030216"
^DIBT(745,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""99Q1"",^1"
^DIBT(746,0)="ABSVM REG HOURS 00Q1 TOSEND^3021219.1353^@^503331^^@^3030216"
^DIBT(746,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""00Q1"",^1"
^DIBT(747,0)="ABSVM REG HOURS 01Q1 TOSEND^3021219.1354^@^503331^^@^3030216"
^DIBT(747,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""01Q1"",^1"
^DIBT(748,0)="ABSVM REG HOURS 02Q1 TOSEND^3021219.1355^@^503331^^@^3030216"
^DIBT(748,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""02Q1"",^1"
^DIBT(749,0)="ABSVM REG HOURS 03Q1 TOSEND^3021219.1356^@^503331^^@^3030216"
^DIBT(749,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""03Q1"",^1"
^DIBT(750,0)="ABSVM VOLUNTEER TOSEND^3020803.1702^@^503330^^@^3030221"
^DIBT(750,"BY0")="XTMP(""ABSVMVOL"",""IEN"",^1"
^DIBT(751,0)="ABSVM REG HOURS 97Q2 TOSEND^3021217.1228^@^503331^^@^3030216"
^DIBT(751,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""97Q2"",^1"
^DIBT(752,0)="ABSVM REG HOURS 97Q3 TOSEND^3021217.1229^@^503331^^@^3030216"
^DIBT(752,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""97Q3"",^1"
^DIBT(753,0)="ABSVM REG HOURS 97Q4 TOSEND^3021217.123^@^503331^^@^3030216"
^DIBT(753,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""97Q4"",^1"
^DIBT(754,0)="ABSVM REG HOURS 98Q2 TOSEND^3021217.1231^@^503331^^@^3030216"
^DIBT(754,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""98Q2"",^1"
^DIBT(755,0)="ABSVM REG HOURS 98Q3 TOSEND^3021217.1231^@^503331^^@^3030216"
^DIBT(755,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""98Q3"",^1"
^DIBT(756,0)="ABSVM REG HOURS 98Q4 TOSEND^3021217.1232^@^503331^^@^3030216"
^DIBT(756,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""98Q4"",^1"
^DIBT(757,0)="ABSVM REG HOURS 99Q3 TOSEND^3021217.1233^@^503331^^@^3030216"
^DIBT(757,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""99Q3"",^1"
^DIBT(758,0)="ABSVM REG HOURS 99Q2 TOSEND^3021217.1234^@^503331^^@^3030216"
^DIBT(758,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""99Q2"",^1"
^DIBT(759,0)="ABSVM REG HOURS 99Q4 TOSEND^3021217.1235^@^503331^^@^3030216"
^DIBT(759,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""99Q4"",^1"
^DIBT(760,0)="ABSVM REG HOURS 00Q2 TOSEND^3021217.1241^@^503331^^@^3030216"
^DIBT(760,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""00Q2"",^1"
^DIBT(761,0)="ABSVM REG HOURS 00Q3 TOSEND^3021217.1242^@^503331^^@^3030216"
^DIBT(761,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""00Q3"",^1"
^DIBT(762,0)="ABSVM REG HOURS 00Q4 TOSEND^3021217.1243^@^503331^^@^3030216"
^DIBT(762,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""00Q4"",^1"
^DIBT(763,0)="ABSVM REG HOURS 01Q2 TOSEND^3021217.1244^@^503331^^@^3030216"
^DIBT(763,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""01Q2"",^1"
^DIBT(764,0)="ABSVM REG HOURS 01Q3 TOSEND^3021217.1245^@^503331^^@^3030216"
^DIBT(764,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""01Q3"",^1"
^DIBT(765,0)="ABSVM REG HOURS 01Q4 TOSEND^3021217.1245^@^503331^^@^3030216"
^DIBT(765,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""01Q4"",^1"
^DIBT(766,0)="ABSVM REG HOURS 02Q2 TOSEND^3021217.1246^@^503331^^@^3030216"
^DIBT(766,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""02Q2"",^1"
^DIBT(767,0)="ABSVM REG HOURS 02Q3 TOSEND^3021217.1247^@^503331^^@^3030216"
^DIBT(767,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""02Q3"",^1"
^DIBT(768,0)="ABSVM REG HOURS 02Q4 TOSEND^3021217.1248^@^503331^^@^3030216"
^DIBT(768,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""02Q4"",^1"
^DIBT(769,0)="ABSVM REG HOURS 03Q2 TOSEND^3021217.1248^@^503331^^@^3030216"
^DIBT(769,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""03Q2"",^1"
^DIBT(770,0)="ABSVM REG HOURS 03Q3 TOSEND^3021217.1249^@^503331^^@^3030216"
^DIBT(770,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""03Q3"",^1"
^DIBT(771,0)="ABSVM REG HOURS 03Q4 TOSEND^3021217.125^@^503331^^@^3030216"
^DIBT(771,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""03Q4"",^1"
^DIBT(772,0)="ABSVM REG HOURS 04Q1 TOSEND^3021219.1357^@^503331^^@^3030216"
^DIBT(772,"BY0")="XTMP(""ABSVMRHRS"",""IEN"",""04Q1"",^1"
^DIBT(773,0)="RMIMXMIT^3030401.1445^^783^^^3030401"
^DIBT(773,2,0)="^.4014^1^1"
^DIBT(773,2,1,0)="783^^PATIENT^@"".03^^^^^^4"
^DIBT(773,2,1,"CM")="S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(773,2,1,"GET")="S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(773,2,1,"IX")="^RMIM(783,""DFN"",^RMIM(783,^2"
^DIBT(773,2,1,"PTRIX")="^DPT(""B"","
^DIBT(773,2,1,"QCON")="I DISX(1)'="""""
^DIBT(773,2,1,"TXT")="PATIENT not null"
^DIBT(773,2,"B",783,1)=""
^DIBT(773,"%D",0)="^.4012^2^2^3030401^^^"
^DIBT(773,"%D",1,0)="Sort template used for option RMIMXMIT to view cases that went to FSOD"
^DIBT(773,"%D",2,0)="Austin."
^DIBT(774,0)="RMIMXMIT DATE^3030401.1449^^783^^^3030401"
^DIBT(774,2,0)="^.4014^2^2"
^DIBT(774,2,1,0)="783^.13^XMIT DATE^'@^^^^^^1"
^DIBT(774,2,1,"GET")="S DISX(1)=$P($G(^RMIM(783,D0,0)),U,13)"
^DIBT(774,2,1,"QCON")="I DISX(1)'="""""
^DIBT(774,2,1,"SER")="0.1429^0.1429"
^DIBT(774,2,1,"TXT")="XMIT DATE not null"
^DIBT(774,2,2,0)="783^^PATIENT^@"".03^^^^^^4"
^DIBT(774,2,2,"CM")="S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(2)=X"
^DIBT(774,2,2,"GET")="S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(2)=X"
^DIBT(774,2,2,"IX")="^RMIM(783,""DFN"",^RMIM(783,^2"
^DIBT(774,2,2,"PTRIX")="^DPT(""B"","
^DIBT(774,2,2,"QCON")="I DISX(2)'="""""
^DIBT(774,2,2,"SER")="0.0000^0.0000"
^DIBT(774,2,2,"TXT")="PATIENT not null"
^DIBT(774,2,"B",783,1)=""
^DIBT(774,2,"B",783,2)=""
^DIBT(774,"%D",0)="^.4012^1^1^3030401^^^^"
^DIBT(774,"%D",1,0)="SORT BY TRANSMISSION DATE"
^DIBT(775,0)="RMIM MAIL SERVER^3030207.1127^^783^^^3030305"
^DIBT(775,2,0)="^.4014^3^3"
^DIBT(775,2,1,0)="783^.13^XMIT DATE^'@^^^^^^1"
^DIBT(775,2,1,"GET")="S DISX(1)=$P($G(^RMIM(783,D0,0)),U,13)"
^DIBT(775,2,1,"QCON")="I DISX(1)'="""""
^DIBT(775,2,1,"SER")="0.0769^0.0769"
^DIBT(775,2,1,"TXT")="XMIT DATE not null"
^DIBT(775,2,2,0)="783^.2^AUSTIN STATUS^@^^^^^^3"
^DIBT(775,2,2,"F")=".999999^ERR^1 (ERR)"
^DIBT(775,2,2,"GET")="S DISX(2)=$P($G(^RMIM(783,D0,9)),U)"
^DIBT(775,2,2,"QCON")="I DISX(2)=1"
^DIBT(775,2,2,"SER")="0.9808^0.9808"
^DIBT(775,2,2,"T")="1^ERR^1 (ERR)"
^DIBT(775,2,2,"TXT")="AUSTIN STATUS equals 1 (ERR)"
^DIBT(775,2,3,0)="783^^PT POINTER^@"".03^^^^^^4"
^DIBT(775,2,3,"CM")="S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(775,2,3,"GET")="S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(775,2,3,"IX")="^RMIM(783,""DFN"",^RMIM(783,^2"
^DIBT(775,2,3,"PTRIX")="^DPT(""B"","
^DIBT(775,2,3,"QCON")="I DISX(3)'="""""
^DIBT(775,2,3,"SER")="0.0000^0.0000"
^DIBT(775,2,3,"TXT")="PT POINTER not null"
^DIBT(775,2,"B",783,1)=""
^DIBT(775,2,"B",783,2)=""
^DIBT(775,2,"B",783,3)=""
^DIBT(776,0)="LBRY SUBSCRIPTION/VENDOR 2^3020321.1111^^681^^^3021114"
^DIBT(776,2,0)="^.4014^2^2"
^DIBT(776,2,1,0)="681^^COREFLS VENDOR^#""3.01^;C5^^^^^4"
^DIBT(776,2,1,"ASK")="1"
^DIBT(776,2,1,"CM")="S Y(1)=$S($D(^LBRY(681,D0,3)):^(3),1:""""),Y=$P(Y(1),U,1) X:$D(^DD(681,3.01,2)) ^(2) S X=Y I D0>0 S DISX(1)=X"
^DIBT(776,2,1,"GET")="S Y(1)=$S($D(^LBRY(681,D0,3)):^(3),1:""""),Y=$P(Y(1),U,1) X:$D(^DD(681,3.01,2)) ^(2) S X=Y I D0>0 S DISX(1)=X"
^DIBT(776,2,1,"QCON")="I DISX(1)'="""""
^DIBT(776,2,1,"TXT")="COREFLS VENDOR not null"
^DIBT(776,2,2,0)="681^^LOCAL SERIALS TITLE^@"".02^^^^^^4"
^DIBT(776,2,2,3,0)="^.401419^1^1"
^DIBT(776,2,2,3,1,0)="OVF0^9.2"
^DIBT(776,2,2,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^LBRY(681,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'D0!'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(776,2,2,3,"B","OVF0",1)=""
^DIBT(776,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(776,2,2,"F")="@z^A"
^DIBT(776,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S('$D(^LBRY(680.5,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(2)=X"
^DIBT(776,2,2,"QCON")="I DISX(2)]]""@z"""
^DIBT(776,2,2,"T")="z^"
^DIBT(776,2,2,"TXT")="LOCAL SERIALS TITLE from A"
^DIBT(776,2,"B",681,1)=""
^DIBT(776,2,"B",681,2)=""
^DIBT(776,"%D",0)="^.4012^1^1^3020421^^^^"
^DIBT(776,"%D",1,0)="Sort by coreFLS vendor."
^DIBT(777,0)="LBRY MICROFILM VENDOR 2^3020510.1346^^680^^^3020510"
^DIBT(777,2,0)="^.4014^3^3"
^DIBT(777,2,1,0)="680^2.1^MICROFILM HOLDINGS^@'^^^^^^4"
^DIBT(777,2,1,"GET")="S DISX(1)=$P($G(^LBRY(680,D0,2)),U,2)"
^DIBT(777,2,1,"QCON")="I DISX(1)'="""""
^DIBT(777,2,1,"TXT")="MICROFILM HOLDINGS not null"
^DIBT(777,2,2,0)="680^^MICROFILM COREFLS VENDOR^#""2.6^;C5;""COREFLS VENDOR: ""^^^^^4"
^DIBT(777,2,2,"ASK")="1"
^DIBT(777,2,2,"CM")="S Y(1)=$S($D(^LBRY(680,D0,2)):^(2),1:""""),Y=$P(Y(1),U,6) X:$D(^DD(680,2.6,2)) ^(2) S X=Y I D0>0 S DISX(2)=X"
^DIBT(777,2,2,"F")="Cz^D"
^DIBT(777,2,2,"GET")="S Y(1)=$S($D(^LBRY(680,D0,2)):^(2),1:""""),Y=$P(Y(1),U,6) X:$D(^DD(680,2.6,2)) ^(2) S X=Y I D0>0 S DISX(2)=X"
^DIBT(777,2,2,"QCON")="I (DISX(2)]]""Cz"")&(DISX(2)']]""DZ"")"
^DIBT(777,2,2,"T")="DZ^DZ"
^DIBT(777,2,2,"TXT")="MICROFILM COREFLS VENDOR from D to DZ"
^DIBT(777,2,3,0)="680^^TITLE^"".01^^^^^^4"
^DIBT(777,2,3,"ASK")="1"
^DIBT(777,2,3,"CM")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(777,2,3,"F")="@z^A"
^DIBT(777,2,3,"GET")="S Y(1)=$S($D(^LBRY(680,D0,0)):^(0),1:"""") S X=$S('$D(^LBRY(680.5,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(777,2,3,"IX")="^LBRY(680,""B"",^LBRY(680,^2"
^DIBT(777,2,3,"PTRIX")="^LBRY(680.5,""B"","
^DIBT(777,2,3,"QCON")="I DISX(3)]]""@z"""
^DIBT(777,2,3,"T")="z^"
^DIBT(777,2,3,"TXT")="TITLE from A"
^DIBT(777,2,"B",680,1)=""
^DIBT(777,2,"B",680,2)=""
^DIBT(777,2,"B",680,3)=""
^DIBT(777,"%D",0)="^.4012^1^1^3020510^^^^"
^DIBT(777,"%D",1,0)="Sort by Microfilm coreFLS vendor"
^DIBT(778,0)="LBRY MISSING ISSUES LIST 2^3030925.0906^^682^^^3030925"
^DIBT(778,2,0)="^.4014^4^4"
^DIBT(778,2,1,0)="682.04^1^ISSUE STATUS^^^^^^^3"
^DIBT(778,2,1,1,0)="^.40141^1^1"
^DIBT(778,2,1,1,1,0)="682^4"
^DIBT(778,2,1,1,"B",682,1)=""
^DIBT(778,2,1,"F")="3.999999^4^4 (NOT RECEIVED)"
^DIBT(778,2,1,"GET")="S DISX(1)=$P($G(^LBRY(682,D0,4,D1,0)),U,2)"
^DIBT(778,2,1,"QCON")="I DISX(1)=4"
^DIBT(778,2,1,"T")="4^4^4 (NOT RECEIVED)"
^DIBT(778,2,1,"TXT")="ISSUE STATUS equals 4 (NOT RECEIVED)"
^DIBT(778,2,2,0)="681^^COREFLS VENDOR^""""3.01^^^^^^4"
^DIBT(778,2,2,1,0)="^.40141^1^1"
^DIBT(778,2,2,1,1,0)="682^4"
^DIBT(778,2,2,1,"B",682,1)=""
^DIBT(778,2,2,2,0)="^.401418^1^1"
^DIBT(778,2,2,2,1,0)="682.04^100^681^LBRY(681,^0"
^DIBT(778,2,2,2,1,"RCOD")="S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S D(0)=+X"
^DIBT(778,2,2,2,"B",682.04,1)=""
^DIBT(778,2,2,"ASK")="1"
^DIBT(778,2,2,"CM")="S Y(101)=$S($D(^LBRY(681,D0,3)):^(3),1:"""") S X=$$EXTERNAL^DIDU(681,3.01,"""",$P(Y(101),U,1)) I D0>0 S DISX(2)=X"
^DIBT(778,2,2,"GET")="S Y(101)=$S($D(^LBRY(681,D0,3)):^(3),1:"""") S X=$$EXTERNAL^DIDU(681,3.01,"""",$P(Y(101),U,1)) I D0>0 S DISX(2)=X"
^DIBT(778,2,2,"QCON")="I DISX(2)'="""""
^DIBT(778,2,2,"TXT")="COREFLS VENDOR not null"
^DIBT(778,2,3,0)="682^^LOCAL SERIALS TITLE^"".02^^^^^^4"
^DIBT(778,2,3,3,0)="^.401419^1^1"
^DIBT(778,2,3,3,1,0)="OVF0^9.2"
^DIBT(778,2,3,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^LBRY(682,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'D0!'$D(^LBRY(680,+D0,0)) D0=-1 S Y(101)=$S($D(^LBRY(680,D0,0)):^(0),1:"""")"
^DIBT(778,2,3,3,"B","OVF0",1)=""
^DIBT(778,2,3,"ASK")="1"
^DIBT(778,2,3,"CM")="X DPP(3,""OVF0"",9.2) S X=$P($G(^LBRY(680.5,+$P(Y(101),U,1),0)),U) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(778,2,3,"GET")="X DPP(3,""OVF0"",9.2) S X=$P($G(^LBRY(680.5,+$P(Y(101),U,1),0)),U) S D0=I(0,0) I D0>0 S DISX(3)=X"
^DIBT(778,2,3,"QCON")="I DISX(3)'="""""
^DIBT(778,2,3,"TXT")="LOCAL SERIALS TITLE not null"
^DIBT(778,2,4,0)="682^1^JOURNAL DATE^^^^^^^1"
^DIBT(778,2,4,"ASK")="1"
^DIBT(778,2,4,"F")="2980799.999999^Aug 1998^Aug 1998"
^DIBT(778,2,4,"GET")="S DISX(4)=$P($G(^LBRY(682,D0,1)),U)"
^DIBT(778,2,4,"IX")="^LBRY(682,""D"",^LBRY(682,^2"
^DIBT(778,2,4,"QCON")="I (DISX(4)]]2980799.999999)&(DISX(4)']]3030910.24)"
^DIBT(778,2,4,"SER")="2.2581^0.6931"
^DIBT(778,2,4,"T")="3030910.24^Sep 10,2003@2400^Sep 10,2003@24:00"
^DIBT(778,2,4,"TXT")="JOURNAL DATE from Aug 1998 to Sep 10,2003@24:00"
^DIBT(778,2,"B",681,2)=""
^DIBT(778,2,"B",682,3)=""
^DIBT(778,2,"B",682,4)=""
^DIBT(778,2,"B",682.04,1)=""
^DIBT(779,0)="HL PROTOCOL MESSAGING FIELDS^3030123.0539^@^101^^@^3030328"
^DIBT(779,2,0)="^.4014^6^6"
^DIBT(779,2,1,0)="101^^SENDING APPLICATION^@""770.1^^^^^^4"
^DIBT(779,2,1,"ASK")="1"
^DIBT(779,2,1,"CM")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(771,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(779,2,1,"GET")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(771,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(779,2,1,"QCON")="I DISX(1)'="""""
^DIBT(779,2,1,"TXT")="SENDING APPLICATION not null"
^DIBT(779,2,2,0)="101^^TRANSACTION MESSAGE TYPE^@""770.3^^^^^^4"
^DIBT(779,2,2,"ASK")="1"
^DIBT(779,2,2,"CM")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(771.2,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(779,2,2,"GET")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(771.2,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(779,2,2,"QCON")="I DISX(2)'="""""
^DIBT(779,2,2,"TXT")="TRANSACTION MESSAGE TYPE not null"
^DIBT(779,2,3,0)="101^^EVENT TYPE^@""770.4^^^^^^4"
^DIBT(779,2,3,"CM")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(779.001,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(779,2,3,"F")="?z^@"
^DIBT(779,2,3,"GET")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(779.001,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X"
^DIBT(779,2,3,"QCON")="I 1"
^DIBT(779,2,3,"T")="z^"
^DIBT(779,2,3,"TXT")="All EVENT TYPE (includes nulls)"
^DIBT(779,2,4,0)="101^^VERSION ID^@""770.95^^^^^^4"
^DIBT(779,2,4,"CM")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(771.5,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(779,2,4,"F")="?z^@"
^DIBT(779,2,4,"GET")="S Y(1)=$S($D(^ORD(101,D0,770)):^(770),1:"""") S X=$S('$D(^HL(771.5,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(4)=X"
^DIBT(779,2,4,"QCON")="I 1"
^DIBT(779,2,4,"T")="z^"
^DIBT(779,2,4,"TXT")="All VERSION ID (includes nulls)"
^DIBT(779,2,5,0)="101^^INTERNAL(TYPE)=""E""^""@B^;L1^^^^^4"
^DIBT(779,2,5,"CM")="S Y(1)=$S($D(^ORD(101,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X=""E"" I D0>0 S DISX(5)=X"
^DIBT(779,2,5,"F")="0"
^DIBT(779,2,5,"GET")="S Y(1)=$S($D(^ORD(101,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S X=X=""E"" I D0>0 S DISX(5)=X"
^DIBT(779,2,5,"QCON")="I DISX(5)"
^DIBT(779,2,5,"T")="1"
^DIBT(779,2,5,"TXT")="INTERNAL(TYPE)=""""E"""""
^DIBT(779,2,6,0)="101^^COUNT(SUBSCRIBER)>0^""@B^;L1^^^^^4"
^DIBT(779,2,6,3,0)="^.401419^1^1"
^DIBT(779,2,6,3,1,0)="OVF0^9.2"
^DIBT(779,2,6,3,1,"OVF0")="S I(0,0)=$G(D0),I(1,0)=$G(D1),Y(102)="""" X ""F D1=0:0 S D1=$O(^ORD(101,D0,775,D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" Y(102)=Y(102)+1"" S D(1)=D1"
^DIBT(779,2,6,3,"B","OVF0",1)=""
^DIBT(779,2,6,"CM")="X DPP(6,""OVF0"",9.2) S X=+Y(102)>0 S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(6)=X"
^DIBT(779,2,6,"F")="0"
^DIBT(779,2,6,"GET")="X DPP(6,""OVF0"",9.2) S X=+Y(102)>0 S D0=I(0,0) S D1=I(1,0) I D0>0 S DISX(6)=X"
^DIBT(779,2,6,"QCON")="I DISX(6)"
^DIBT(779,2,6,"T")="1"
^DIBT(779,2,6,"TXT")="COUNT(SUBSCRIBER)>0"
^DIBT(779,2,"B",101,1)=""
^DIBT(779,2,"B",101,2)=""
^DIBT(779,2,"B",101,3)=""
^DIBT(779,2,"B",101,4)=""
^DIBT(779,2,"B",101,5)=""
^DIBT(779,2,"B",101,6)=""
^DIBT(779,"DIPT")="HL PROTOCOL MESSAGING FIELDS"
^DIBT(780,0)="XU-CLINICAL TRAINEE DB COUNT^3030820.1313^@^200^^@^3050801"
^DIBT(780,2,0)="^.4014^1^1"
^DIBT(780,2,1,0)="200^^(#12.2)'=""""^@""B^;L1^^^^^4"
^DIBT(780,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(780,2,1,"F")="0"
^DIBT(780,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(780,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(780,2,1,"T")="1"
^DIBT(780,2,1,"TXT")="(#12.2)'="""""""""
^DIBT(780,2,"B",200,1)=""
^DIBT(780,"%D",0)="^^2^2^3030820^"
^DIBT(780,"%D",1,0)="This is the sort that counts the number of entries where field PROGRAM OF "
^DIBT(780,"%D",2,0)="STUDY(12.2) is not null."
^DIBT(781,0)="PENDING APPT EXCLUDING FUTURE^3030929.1003^@^409.6^^@^3031002"
^DIBT(781,2,0)="^.4014^4^4"
^DIBT(781,2,1,0)="409.69^4^RETENTION FLAG^^^^^^^3"
^DIBT(781,2,1,1,0)="^.40141^1^1"
^DIBT(781,2,1,1,1,0)="409.6^1"
^DIBT(781,2,1,1,"B",409.6,1)=""
^DIBT(781,2,1,"F")="Xz^Y^Y (YES - to be sent when 'Final')"
^DIBT(781,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,5)"
^DIBT(781,2,1,"IX")="^SDWL(409.6,""AE"",^SDWL(409.6,^2"
^DIBT(781,2,1,"QCON")="I DISX(1)=""Y"""
^DIBT(781,2,1,"T")="Y^Y^Y (YES - to be sent when 'Final')"
^DIBT(781,2,1,"TXT")="RETENTION FLAG equals Y (YES - to be sent when 'Final')"
^DIBT(781,2,2,0)="409.69^1^APPT DATE^^^^^^^1"
^DIBT(781,2,2,1,0)="^.40141^1^1"
^DIBT(781,2,2,1,1,0)="409.6^1"
^DIBT(781,2,2,1,"B",409.6,1)=""
^DIBT(781,2,2,"ASK")="1"
^DIBT(781,2,2,"F")="3020900.999999^Sep 1,2002^Sep 1,2002"
^DIBT(781,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,2)"
^DIBT(781,2,2,"QCON")="I (DISX(2)]]3020900.999999)&(DISX(2)']]3030929.24)"
^DIBT(781,2,2,"T")="3030929.24^Sep 29,2003@2400^Sep 29,2003@24:00"
^DIBT(781,2,2,"TXT")="APPT DATE from Sep 1,2002 to Sep 29,2003@24:00"
^DIBT(781,2,3,0)="409.69^8^APPOINTMENT TYPE^^^^^^^3"
^DIBT(781,2,3,1,0)="^.40141^1^1"
^DIBT(781,2,3,1,1,0)="409.6^1"
^DIBT(781,2,3,1,"B",409.6,1)=""
^DIBT(781,2,3,"F")="?z^@"
^DIBT(781,2,3,"GET")="S DISX(3)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,9)"
^DIBT(781,2,3,"QCON")="I 1"
^DIBT(781,2,3,"T")="z^"
^DIBT(781,2,3,"TXT")="All APPOINTMENT TYPE (includes nulls)"
^DIBT(781,2,4,0)="409.69^5^EVENT REASON^^^^^^^3"
^DIBT(781,2,4,1,0)="^.40141^1^1"
^DIBT(781,2,4,1,1,0)="409.6^1"
^DIBT(781,2,4,1,"B",409.6,1)=""
^DIBT(781,2,4,"F")="?z^@"
^DIBT(781,2,4,"GET")="S DISX(4)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,6)"
^DIBT(781,2,4,"QCON")="I 1"
^DIBT(781,2,4,"T")="z^"
^DIBT(781,2,4,"TXT")="All EVENT REASON (includes nulls)"
^DIBT(781,2,"B",409.69,1)=""
^DIBT(781,2,"B",409.69,2)=""
^DIBT(781,2,"B",409.69,3)=""
^DIBT(781,2,"B",409.69,4)=""
^DIBT(781,"%D",0)="^^2^2^3030929^"
^DIBT(781,"%D",1,0)="This template allows to print a list of pending appointments in the APPT "
^DIBT(781,"%D",2,0)="DATE order, to be evaluated for possible finalizing."
^DIBT(782,0)="REJECTED APPT^3030929.1459^@^409.6^^@^3031002"
^DIBT(782,2,0)="^.4014^4^4"
^DIBT(782,2,1,0)="409.69^7^ERROR MESSAGE^^^^^^^3"
^DIBT(782,2,1,1,0)="^.40141^1^1"
^DIBT(782,2,1,1,1,0)="409.6^1"
^DIBT(782,2,1,1,"B",409.6,1)=""
^DIBT(782,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,8)"
^DIBT(782,2,1,"QCON")="I DISX(1)'="""""
^DIBT(782,2,1,"TXT")="ERROR MESSAGE not null"
^DIBT(782,2,2,0)="409.69^4^RETENTION FLAG^^^^^^^3"
^DIBT(782,2,2,1,0)="^.40141^1^1"
^DIBT(782,2,2,1,1,0)="409.6^1"
^DIBT(782,2,2,1,"B",409.6,1)=""
^DIBT(782,2,2,"F")="Xz^Y^Y (YES - to be sent when 'Final')"
^DIBT(782,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,5)"
^DIBT(782,2,2,"IX")="^SDWL(409.6,""AE"",^SDWL(409.6,^2"
^DIBT(782,2,2,"QCON")="I DISX(2)=""Y"""
^DIBT(782,2,2,"T")="Y^Y^Y (YES - to be sent when 'Final')"
^DIBT(782,2,2,"TXT")="RETENTION FLAG equals Y (YES - to be sent when 'Final')"
^DIBT(782,2,3,0)="409.69^^PATIENT^"".01^^^^^^4"
^DIBT(782,2,3,1,0)="^.40141^1^1"
^DIBT(782,2,3,1,1,0)="409.6^1"
^DIBT(782,2,3,1,"B",409.6,1)=""
^DIBT(782,2,3,"CM")="S Y(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(3)=X"
^DIBT(782,2,3,"GET")="S Y(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(3)=X"
^DIBT(782,2,3,"QCON")="I DISX(3)'="""""
^DIBT(782,2,3,"TXT")="PATIENT not null"
^DIBT(782,2,4,0)="409.69^1^APPT DATE^^^^^^^1"
^DIBT(782,2,4,1,0)="^.40141^1^1"
^DIBT(782,2,4,1,1,0)="409.6^1"
^DIBT(782,2,4,1,"B",409.6,1)=""
^DIBT(782,2,4,"GET")="S DISX(4)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,2)"
^DIBT(782,2,4,"QCON")="I DISX(4)'="""""
^DIBT(782,2,4,"TXT")="APPT DATE not null"
^DIBT(782,2,"B",409.69,1)=""
^DIBT(782,2,"B",409.69,2)=""
^DIBT(782,2,"B",409.69,3)=""
^DIBT(782,2,"B",409.69,4)=""
^DIBT(782,"%D",0)="^^2^2^3031103^"
^DIBT(782,"%D",1,0)="This template will generate rejected appointments that are still in "
^DIBT(782,"%D",2,0)="pending status, ready to be transmitted."
^DIBT(783,0)="HLEV MONITOR EXPORT LIST^3030529.0413^@^776.1^^@^3030529"
^DIBT(783,"DC",1)=".01^[""M"""
^DIBT(783,"DIS",0)="I $P($G(^HLEV(776.1,D0,0)),U,1)[""M"""
^DIBT(783,"DL")="1"
^DIBT(783,"DL",0)="^1^"
^DIBT(783,"O",0)="^"
^DIBT(783,"O",1,0)="NAME CONTAINS ""M"""
^DIBT(783,"QR")="3030529.041303^1"
^DIBT(784,0)="HLEV REPORT MONITOR^3030620.1157^@^776.1^^@^3030624"
^DIBT(784,2,0)="^.4014^1^1"
^DIBT(784,2,1,0)="776.1^.01^NAME^@^^^^^^4"
^DIBT(784,2,1,"ASK")="1"
^DIBT(784,2,1,"F")="@z^A"
^DIBT(784,2,1,"GET")="S DISX(1)=$P($G(^HLEV(776.1,D0,0)),U)"
^DIBT(784,2,1,"IX")="^HLEV(776.1,""B"",^HLEV(776.1,^2"
^DIBT(784,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""ZZZ"")"
^DIBT(784,2,1,"T")="ZZZ^ZZZ"
^DIBT(784,2,1,"TXT")="NAME from A to ZZZ"
^DIBT(784,2,"B",776.1,1)=""
^DIBT(785,0)="HLEV REPORT MONITOR - FF^3030620.1219^@^776.1^^@^3030620"
^DIBT(785,2,0)="^.4014^1^1"
^DIBT(785,2,1,0)="776.1^.01^NAME^@^;""================================================================================""^^^^^4"
^DIBT(785,2,1,"ASK")="1"
^DIBT(785,2,1,"F")="AA@z^AAA"
^DIBT(785,2,1,"GET")="S DISX(1)=$P($G(^HLEV(776.1,D0,0)),U)"
^DIBT(785,2,1,"IX")="^HLEV(776.1,""B"",^HLEV(776.1,^2"
^DIBT(785,2,1,"QCON")="I (DISX(1)]]""AA@z"")&(DISX(1)']]""ZZZZZ"")"
^DIBT(785,2,1,"T")="ZZZZZ^ZZZZZ"
^DIBT(785,2,1,"TXT")="NAME from AAA to ZZZZZ"
^DIBT(785,2,"B",776.1,1)=""
^DIBT(786,0)="SD-PAIT PEND EXCL FUTURE^3040406.151^@^409.6^^@^3040407"
^DIBT(786,2,0)="^.4014^5^5"
^DIBT(786,2,1,0)="409.69^4^RETENTION FLAG^^^^^^^3"
^DIBT(786,2,1,1,0)="^.40141^1^1"
^DIBT(786,2,1,1,1,0)="409.6^1"
^DIBT(786,2,1,1,"B",409.6,1)=""
^DIBT(786,2,1,"F")="Xz^Y^Y (YES - to be sent when 'Final')"
^DIBT(786,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,5)"
^DIBT(786,2,1,"IX")="^SDWL(409.6,""AE"",^SDWL(409.6,^2"
^DIBT(786,2,1,"QCON")="I DISX(1)=""Y"""
^DIBT(786,2,1,"T")="Y^Y^Y (YES - to be sent when 'Final')"
^DIBT(786,2,1,"TXT")="RETENTION FLAG equals Y (YES - to be sent when 'Final')"
^DIBT(786,2,2,0)="409.69^1^APPT DATE^^^^^^^1"
^DIBT(786,2,2,1,0)="^.40141^1^1"
^DIBT(786,2,2,1,1,0)="409.6^1"
^DIBT(786,2,2,1,"B",409.6,1)=""
^DIBT(786,2,2,"ASK")="1"
^DIBT(786,2,2,"F")="3020726.999999^Jul 27,2002^Jul 27,2002"
^DIBT(786,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,2)"
^DIBT(786,2,2,"QCON")="I (DISX(2)]]3020726.999999)&(DISX(2)']]3040407.24)"
^DIBT(786,2,2,"T")="3040407.24^Apr 7,2004@2400^Apr 7,2004@24:00"
^DIBT(786,2,2,"TXT")="APPT DATE from Jul 27,2002 to Apr 7,2004@24:00"
^DIBT(786,2,3,0)="409.69^6^DATE APPT MADE^^^^^^^1"
^DIBT(786,2,3,1,0)="^.40141^1^1"
^DIBT(786,2,3,1,1,0)="409.6^1"
^DIBT(786,2,3,1,"B",409.6,1)=""
^DIBT(786,2,3,"F")="3020900.999999^9 1 2002^Sep 1,2002"
^DIBT(786,2,3,"GET")="S DISX(3)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,7)"
^DIBT(786,2,3,"QCON")="I DISX(3)]]3020900.999999"
^DIBT(786,2,3,"T")="z^"
^DIBT(786,2,3,"TXT")="DATE APPT MADE from Sep 1,2002"
^DIBT(786,2,4,0)="409.69^8^APPOINTMENT TYPE^^^^^^^3"
^DIBT(786,2,4,1,0)="^.40141^1^1"
^DIBT(786,2,4,1,1,0)="409.6^1"
^DIBT(786,2,4,1,"B",409.6,1)=""
^DIBT(786,2,4,"GET")="S DISX(4)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,9)"
^DIBT(786,2,4,"QCON")="I DISX(4)'="""""
^DIBT(786,2,4,"TXT")="APPOINTMENT TYPE not null"
^DIBT(786,2,5,0)="409.69^5^EVENT REASON^^^^^^^3"
^DIBT(786,2,5,1,0)="^.40141^1^1"
^DIBT(786,2,5,1,1,0)="409.6^1"
^DIBT(786,2,5,1,"B",409.6,1)=""
^DIBT(786,2,5,"GET")="S DISX(5)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,6)"
^DIBT(786,2,5,"QCON")="I DISX(5)'="""""
^DIBT(786,2,5,"TXT")="EVENT REASON not null"
^DIBT(786,2,"B",409.69,1)=""
^DIBT(786,2,"B",409.69,2)=""
^DIBT(786,2,"B",409.69,3)=""
^DIBT(786,2,"B",409.69,4)=""
^DIBT(786,2,"B",409.69,5)=""
^DIBT(786,"%D",0)="^.4012^2^2^3040406^^^^"
^DIBT(786,"%D",1,0)="This template allows to print a list of pending appointments in the APPT "
^DIBT(786,"%D",2,0)="DATE order, to be evaluated for possible finalizing."
^DIBT(786,"DIPT")=""
^DIBT(787,0)="SD-PAIT REJECTED APPT^3040129.0955^@^409.6^^@^3040223"
^DIBT(787,2,0)="^.4014^3^3"
^DIBT(787,2,1,0)="409.69^^ERROR MESSAGE^""7^^^^^^4"
^DIBT(787,2,1,1,0)="^.40141^1^1"
^DIBT(787,2,1,1,1,0)="409.6^1"
^DIBT(787,2,1,1,"B",409.6,1)=""
^DIBT(787,2,1,"CM")="S Y(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P($G(^SCPT(404.472,+$P(Y(1),U,8),0)),U) I D1>0 S DISX(1)=X"
^DIBT(787,2,1,"GET")="S Y(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P($G(^SCPT(404.472,+$P(Y(1),U,8),0)),U) I D1>0 S DISX(1)=X"
^DIBT(787,2,1,"QCON")="I DISX(1)'="""""
^DIBT(787,2,1,"TXT")="ERROR MESSAGE not null"
^DIBT(787,2,2,0)="409.69^^PATIENT^"".01^^^^^^4"
^DIBT(787,2,2,1,0)="^.40141^1^1"
^DIBT(787,2,2,1,1,0)="409.6^1"
^DIBT(787,2,2,1,"B",409.6,1)=""
^DIBT(787,2,2,"CM")="S Y(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(2)=X"
^DIBT(787,2,2,"GET")="S Y(1)=$S($D(^SDWL(409.6,D0,1,D1,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(2)=X"
^DIBT(787,2,2,"QCON")="I DISX(2)'="""""
^DIBT(787,2,2,"TXT")="PATIENT not null"
^DIBT(787,2,3,0)="409.69^1^APPT DATE^^^^^^^1"
^DIBT(787,2,3,1,0)="^.40141^1^1"
^DIBT(787,2,3,1,1,0)="409.6^1"
^DIBT(787,2,3,1,"B",409.6,1)=""
^DIBT(787,2,3,"GET")="S DISX(3)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,2)"
^DIBT(787,2,3,"QCON")="I DISX(3)'="""""
^DIBT(787,2,3,"TXT")="APPT DATE not null"
^DIBT(787,2,"B",409.69,1)=""
^DIBT(787,2,"B",409.69,2)=""
^DIBT(787,2,"B",409.69,3)=""
^DIBT(787,"%D",0)="^.4012^2^2^3040129^^^^"
^DIBT(787,"%D",1,0)="This template will generate rejected appointments that are still in "
^DIBT(787,"%D",2,0)="pending status, ready to be transmitted."
^DIBT(788,0)="SD-PAIT PAIT ACK SORT^3040127.1408^@^409.6^^@^3040226"
^DIBT(788,2,0)="^.4014^3^3"
^DIBT(788,2,1,0)="409.6^1.5^TRANSMISSION FINISHED^^^^^^^1"
^DIBT(788,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.6,D0,0)),U,7)"
^DIBT(788,2,1,"QCON")="I DISX(1)'="""""
^DIBT(788,2,1,"SER")="0.0000^0.0000"
^DIBT(788,2,1,"TXT")="TRANSMISSION FINISHED not null"
^DIBT(788,2,2,0)="409.7^.01^BATCH CONTROL ID^^^^^^^4"
^DIBT(788,2,2,1,0)="^.40141^1^1"
^DIBT(788,2,2,1,1,0)="409.6^2"
^DIBT(788,2,2,1,"B",409.6,1)=""
^DIBT(788,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.6,D0,2,D1,0)),U)"
^DIBT(788,2,2,"QCON")="I DISX(2)'="""""
^DIBT(788,2,2,"TXT")="BATCH CONTROL ID not null"
^DIBT(788,2,3,0)="409.7^.03^MESSAGE CONTROL ID^^^^^^^4"
^DIBT(788,2,3,1,0)="^.40141^1^1"
^DIBT(788,2,3,1,1,0)="409.6^2"
^DIBT(788,2,3,1,"B",409.6,1)=""
^DIBT(788,2,3,"GET")="S DISX(3)=$P($G(^SDWL(409.6,D0,2,D1,0)),U,3)"
^DIBT(788,2,3,"QCON")="I DISX(3)'="""""
^DIBT(788,2,3,"TXT")="MESSAGE CONTROL ID not null"
^DIBT(788,2,"B",409.6,1)=""
^DIBT(788,2,"B",409.7,2)=""
^DIBT(788,2,"B",409.7,3)=""
^DIBT(789,0)="SD-PAIT TRANS SUMMARY^3040127.1342^@^409.6^^@^3040301"
^DIBT(789,2,0)="^.4014^1^1"
^DIBT(789,2,1,0)="409.6^.01^RUN DATE^^^^^^^1"
^DIBT(789,2,1,"ASK")="1"
^DIBT(789,2,1,"F")="3040219.999999^Feb 20,2004^Feb 20,2004"
^DIBT(789,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.6,D0,0)),U)"
^DIBT(789,2,1,"IX")="^SDWL(409.6,""B"",^SDWL(409.6,^2"
^DIBT(789,2,1,"QCON")="I DISX(1)]]3040219.999999"
^DIBT(789,2,1,"T")="z^"
^DIBT(789,2,1,"TXT")="RUN DATE from Feb 20,2004"
^DIBT(789,2,"B",409.6,1)=""
^DIBT(790,0)="XUSEC TERMINATION REPORT^3040422.0808^@^1.1^^@^3040427"
^DIBT(790,2,0)="^.4014^3^3"
^DIBT(790,2,1,0)="1.1^1^ENTRY NAME^@^^^^^^4"
^DIBT(790,2,1,"GET")="S %=^DIC(DIA,0,""GL""),X=^DIA(DIA,D0,0),X=$S($D(@(%_+X_"",0)"")):$P(^(0),U,1),1:""""),C=$S($D(^DD(DIA,.01,0)):$P(^(0),U,2),1:""""),Y=X D:Y]"""" Y^DIQ:C]"""" S X=Y,C="","" S DISX(1)=X"
^DIBT(790,2,1,"QCON")="I DISX(1)'="""""
^DIBT(790,2,1,"TXT")="ENTRY NAME not null"
^DIBT(790,2,2,0)="1.1^.03^FIELD NUMBER^@^^^^^^4"
^DIBT(790,2,2,"F")="9.199999^9.2"
^DIBT(790,2,2,"GET")="S DISX(2)=$P($G(^DIA(DIA,D0,0)),U,3)"
^DIBT(790,2,2,"QCON")="I DISX(2)=9.2"
^DIBT(790,2,2,"T")="9.2^9.2"
^DIBT(790,2,2,"TXT")="FIELD NUMBER equals 9.2"
^DIBT(790,2,3,0)="1.1^.02^DATE/TIME RECORDED^@^^^^^^1"
^DIBT(790,2,3,"ASK")="1"
^DIBT(790,2,3,"F")="3040100.999999^3040101^Jan 1,2004"
^DIBT(790,2,3,"GET")="S DISX(3)=$P($G(^DIA(DIA,D0,0)),U,2)"
^DIBT(790,2,3,"IX")="^DIA(200,""C"",^DIA(200,^2"
^DIBT(790,2,3,"QCON")="I (DISX(3)]]3040100.999999)&(DISX(3)']]3040427.24)"
^DIBT(790,2,3,"T")="3040427.24^3040427@2400^Apr 27,2004@24:00"
^DIBT(790,2,3,"TXT")="DATE/TIME RECORDED from Jan 1,2004 to Apr 27,2004@24:00"
^DIBT(790,2,"B",1.1,1)=""
^DIBT(790,2,"B",1.1,2)=""
^DIBT(790,2,"B",1.1,3)=""
^DIBT(791,0)="RCXV ACTIVE SORT^3040218.1156^@^430^^@^3040220"
^DIBT(791,2,0)="^.4014^2^2"
^DIBT(791,2,1,0)="430^^(CURRENT STATUS=""ACTIVE"")!(CURRENT STATUS=""SUSPENDED"")^""@B^;L1^^^^^4"
^DIBT(791,2,1,3,0)="^.401419^1^1"
^DIBT(791,2,1,3,1,0)="OVF0^9.2"
^DIBT(791,2,1,3,1,"OVF0")="S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P($G(^PRCA(430.3,+$P(Y(1),U,8),0)),U)=""ACTIVE"",Y(2)=$G(X) S X=$P($G(^PRCA(430.3,+$P(Y(1),U,8),0)),U)=""SUSPENDED"""
^DIBT(791,2,1,3,"B","OVF0",1)=""
^DIBT(791,2,1,"CM")="X DPP(1,""OVF0"",9.2) S Y=X,X=Y(2),X=X!Y I D0>0 S DISX(1)=X"
^DIBT(791,2,1,"F")="0"
^DIBT(791,2,1,"GET")="X DPP(1,""OVF0"",9.2) S Y=X,X=Y(2),X=X!Y I D0>0 S DISX(1)=X"
^DIBT(791,2,1,"QCON")="I DISX(1)"
^DIBT(791,2,1,"T")="1"
^DIBT(791,2,1,"TXT")="(CURRENT STATUS=""""ACTIVE"""")!(CURRENT STATUS=""""SUSPENDED"""")"
^DIBT(791,2,2,0)="430^^CATEGORY^+""2^^^^^^4"
^DIBT(791,2,2,"CM")="S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P($G(^PRCA(430.2,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(2)=X"
^DIBT(791,2,2,"GET")="S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P($G(^PRCA(430.2,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(2)=X"
^DIBT(791,2,2,"QCON")="I DISX(2)'="""""
^DIBT(791,2,2,"TXT")="CATEGORY not null"
^DIBT(791,2,"B",430,1)=""
^DIBT(791,2,"B",430,2)=""
^DIBT(791,"%D",0)="^^1^1^3040218^"
^DIBT(791,"%D",1,0)="Active Sort Template for the CBO AR Data Extract project."
^DIBT(792,0)="XUSEC TERMINATION REPORT Q^3040809.1325^@^1.1^^@^3040809"
^DIBT(792,2,0)="^.4014^3^3"
^DIBT(792,2,1,0)="1.1^1^ENTRY NAME^@^^^^^^4"
^DIBT(792,2,1,"GET")="S %=^DIC(DIA,0,""GL""),X=^DIA(DIA,D0,0),X=$S($D(@(%_+X_"",0)"")):$P(^(0),U,1),1:""""),C=$S($D(^DD(DIA,.01,0)):$P(^(0),U,2),1:""""),Y=X D:Y]"""" Y^DIQ:C]"""" S X=Y,C="","" S DISX(1)=X"
^DIBT(792,2,1,"QCON")="I DISX(1)'="""""
^DIBT(792,2,1,"TXT")="ENTRY NAME not null"
^DIBT(792,2,2,0)="1.1^.03^FIELD NUMBER^@^^^^^^4"
^DIBT(792,2,2,"F")="9.199999^9.2"
^DIBT(792,2,2,"GET")="S DISX(2)=$P($G(^DIA(DIA,D0,0)),U,3)"
^DIBT(792,2,2,"QCON")="I DISX(2)=9.2"
^DIBT(792,2,2,"T")="9.2^9.2"
^DIBT(792,2,2,"TXT")="FIELD NUMBER equals 9.2"
^DIBT(792,2,3,0)="1.1^^((DATE(#.02)>(TODAY-9))&(DATE(#.02)<TODAY))^""@B^;L1^^^^^4"
^DIBT(792,2,3,3,0)="^.401419^2^2"
^DIBT(792,2,3,3,1,0)="OVF0^9.2"
^DIBT(792,2,3,3,1,"OVF0")="S Y(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=$P(X,""."",1) S X=X,Y(2)=$G(X),Y(3)=$G(X),X=DT S X=X,X1=X,X2=-9,X="""" D C^%DTC:X1 S X=X"
^DIBT(792,2,3,3,2,0)="OVF0^9.3"
^DIBT(792,2,3,3,2,"OVF0")="X DPP(3,""OVF0"",9.2) S Y=X,X=Y(2),X=X>Y,Y(4)=$G(X),Y(5)=$G(X) S X=$P(Y(1),U,2),X=$P(X,""."",1) S X=X,Y(6)=$G(X),X=DT S Y=X,X=Y(6),X=X S X=X<Y,Y=X,X=Y(4),X=X"
^DIBT(792,2,3,3,"B","OVF0",1)=""
^DIBT(792,2,3,3,"B","OVF0",2)=""
^DIBT(792,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=X&Y I D0>0 S DISX(3)=X"
^DIBT(792,2,3,"F")="0"
^DIBT(792,2,3,"GET")="X DPP(3,""OVF0"",9.3) S X=X&Y I D0>0 S DISX(3)=X"
^DIBT(792,2,3,"QCON")="I DISX(3)"
^DIBT(792,2,3,"T")="1"
^DIBT(792,2,3,"TXT")="((DATE(#.02)>(TODAY-9))&(DATE(#.02)<TODAY))"
^DIBT(792,2,"B",1.1,1)=""
^DIBT(792,2,"B",1.1,2)=""
^DIBT(792,2,"B",1.1,3)=""
^DIBT(792,"%D",0)="^.4012^2^2^3040809^^^^"
^DIBT(792,"%D",1,0)="This template is used for the queued termation option:"
^DIBT(792,"%D",2,0)=" XUSEC ISO Q TERMINATION REPORT"
^DIBT(807,0)="BPS SETUP PHARMACIES^3010102.0843^@^9002313.56^^@^3060306"
^DIBT(807,2,0)="^.4014^1^1"
^DIBT(807,2,1,0)="9002313.56^0^NUMBER^^^^^^^2"
^DIBT(807,2,1,"IX")="^BPS(9002313.56,^BPS(9002313.56,^1"
^DIBT(807,2,1,"QCON")="I D0'="""""
^DIBT(807,2,1,"TXT")="NUMBER not null"
^DIBT(807,2,"B",9002313.56,1)=""
^DIBT(818,0)="BPS TECH - FILES^3010409.1142^@^1^^@^3050413"
^DIBT(818,2,0)="^.4014^1^1"
^DIBT(818,2,1,0)="1^0^NUMBER^^^^^^^2"
^DIBT(818,2,1,"F")="9002312.99999^9002313"
^DIBT(818,2,1,"IX")="^DIC(^DIC(^1"
^DIBT(818,2,1,"QCON")="I (D0]]9002312.99999)&(D0']]9002313.999999)"
^DIBT(818,2,1,"T")="9002313.999999^9002313.999999"
^DIBT(818,2,1,"TXT")="NUMBER from 9002313 to 9002313.999999"
^DIBT(818,2,"B",1,1)=""
^DIBT(818,"%D",0)="^^1^1^3010409^^^"
^DIBT(818,"%D",1,0)="Technical Manual - Files section"
^DIBT(819,0)="BPS TECH - OPTIONS^3010205.0832^@^19^^@^3050413"
^DIBT(819,2,0)="^.4014^2^2"
^DIBT(819,2,1,0)="19^.01^NAME^^^^^^^4"
^DIBT(819,2,1,"F")="ABSOz^BPS"
^DIBT(819,2,1,"GET")="S DISX(1)=$P($G(^DIC(19,D0,0)),U)"
^DIBT(819,2,1,"IX")="^DIC(19,""B"",^DIC(19,^2"
^DIBT(819,2,1,"QCON")="I (DISX(1)]]""ABSOz"")&(DISX(1)']]""BPSZZZZZZZZZZZZZ"")"
^DIBT(819,2,1,"SER")="49.5000^0.9802"
^DIBT(819,2,1,"T")="BPSZZZZZZZZZZZZZ^BPSZZZZZZZZZZZZZ"
^DIBT(819,2,1,"TXT")="NAME from BPS to BPSZZZZZZZZZZZZZ"
^DIBT(819,2,2,0)="19^^PACKAGE^@""12^^^^^^4"
^DIBT(819,2,2,"CM")="S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(9.4,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(819,2,2,"F")="?z^@"
^DIBT(819,2,2,"GET")="S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(9.4,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(819,2,2,"QCON")="I 1"
^DIBT(819,2,2,"T")="z^"
^DIBT(819,2,2,"TXT")="All PACKAGE (includes nulls)"
^DIBT(819,2,"B",19,1)=""
^DIBT(819,2,"B",19,2)=""
^DIBT(819,"%D",0)="^^1^1^3010205^^^^"
^DIBT(819,"%D",1,0)="List options and descriptions - for Technical Manual."
^DIBT(836,0)="XIP ZIP CODE LIST^3040430.0703^@^5.12^^@^3040503"
^DIBT(836,2,0)="^.4014^2^2"
^DIBT(836,2,1,0)="5.12^.01^MAIL CODE^@^;S1^^^^^4"
^DIBT(836,2,1,"ASK")="1"
^DIBT(836,2,1,"F")="26451.999999^26452"
^DIBT(836,2,1,"GET")="S DISX(1)=$P($G(^XIP(5.12,D0,0)),U)"
^DIBT(836,2,1,"IX")="^XIP(5.12,""B"",^XIP(5.12,^2"
^DIBT(836,2,1,"QCON")="I DISX(1)=26452"
^DIBT(836,2,1,"SER")="100.0000^1.0000"
^DIBT(836,2,1,"T")="26452^26452"
^DIBT(836,2,1,"TXT")="MAIL CODE equals 26452"
^DIBT(836,2,2,0)="5.12^^$S((#5)=(#6):0,1:1)^@""^^^^^^4"
^DIBT(836,2,2,3,0)="^.401419^1^1"
^DIBT(836,2,2,3,1,0)="OVF0^9.2"
^DIBT(836,2,2,3,1,"OVF0")="S Y(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),Y(2)=$G(X) S X=$P(Y(1),U,7),Y=X,X=Y(2),X=X=Y,Y(3)=$G(X) S X=0,Y(4)=$G(X) S X=1,Y(5)=$G(X) S X=1"
^DIBT(836,2,2,3,"B","OVF0",1)=""
^DIBT(836,2,2,"CM")="X DPP(2,""OVF0"",9.2) S X=$S(Y(3):Y(4),Y(5):X) I D0>0 S DISX(2)=X"
^DIBT(836,2,2,"GET")="X DPP(2,""OVF0"",9.2) S X=$S(Y(3):Y(4),Y(5):X) I D0>0 S DISX(2)=X"
^DIBT(836,2,2,"QCON")="I DISX(2)'="""""
^DIBT(836,2,2,"TXT")="$S((#5)=(#6):0,1:1) not null"
^DIBT(836,2,"B",5.12,1)=""
^DIBT(836,2,"B",5.12,2)=""
^DIBT(837,0)="SD-PAIT PATIENT HL7 LOCATION^3041005.0959^@^409.6^^@^3041005"
^DIBT(837,2,0)="^.4014^1^1"
^DIBT(837,2,1,0)="409.69^1^APPT DATE^@^^^^^^1"
^DIBT(837,2,1,1,0)="^.40141^1^1"
^DIBT(837,2,1,1,1,0)="409.6^1"
^DIBT(837,2,1,1,"B",409.6,1)=""
^DIBT(837,2,1,"ASK")="1"
^DIBT(837,2,1,"F")="3040904.999999^Sep 5,2004^Sep 5,2004"
^DIBT(837,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,2)"
^DIBT(837,2,1,"QCON")="I (DISX(1)]]3040904.999999)&(DISX(1)']]3041005.24)"
^DIBT(837,2,1,"T")="3041005.24^Oct 5,2004@2400^Oct 5,2004@24:00"
^DIBT(837,2,1,"TXT")="APPT DATE from Sep 5,2004 to Oct 5,2004@24:00"
^DIBT(837,2,"B",409.69,1)=""
^DIBT(838,0)="PXRM HEP C EXTRACT TERMS^3000815.0055^@^811.5^^@"
^DIBT(838,"DA")="DIS(""B1"","
^DIBT(838,"DA",1)="S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIBT(838,"DA",2)="S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DIBT(838,"DC",1)="-1^>0"
^DIBT(838,"DC",2)="-2^<26"
^DIBT(838,"DIS",0)="S X=$S('$D(D0):"""",D0<0:"""",1:D0) I X>0 S X=$S('$D(D0):"""",D0<0:"""",1:D0) I X<26"
^DIBT(838,"DL")="1"
^DIBT(838,"DL",0)="^1^2^"
^DIBT(838,"O",0)="^"
^DIBT(838,"O",1,0)="NUMBER GREATER THAN 0"
^DIBT(838,"O",2,0)="   and NUMBER LESS THAN 26"
^DIBT(839,0)="DG BAI^3041229.1011^^2^^^3050215"
^DIBT(839,2,0)="^.4014^3^3"
^DIBT(839,2,1,0)="2^.01^NAME^^^^^^^4"
^DIBT(839,2,1,"GET")="S DISX(1)=$P($G(^DPT(D0,0)),U)"
^DIBT(839,2,1,"IX")="^DPT(""B"",^DPT(^2"
^DIBT(839,2,1,"QCON")="I DISX(1)'="""""
^DIBT(839,2,1,"SER")="0^0"
^DIBT(839,2,1,"TXT")="NAME not null"
^DIBT(839,2,2,0)="2^^(#.121)'=""""^@""B^;L1^^^^^4"
^DIBT(839,2,2,"CM")="S Y(2)=$C(59)_$P($G(^DD(2,.121,0)),U,3),Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59))'="""" I D0>0 S DISX(2)=X"
^DIBT(839,2,2,"F")="0"
^DIBT(839,2,2,"GET")="S Y(2)=$C(59)_$P($G(^DD(2,.121,0)),U,3),Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59))'="""" I D0>0 S DISX(2)=X"
^DIBT(839,2,2,"QCON")="I (DISX(2)]]0)&(DISX(2)']]1)"
^DIBT(839,2,2,"T")="1"
^DIBT(839,2,2,"TXT")="(#.121)'="""""""""
^DIBT(839,2,3,0)="2^^(#.351)=""""^@""B^;L1^^^^^4"
^DIBT(839,2,3,"CM")="S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(Y(1),U,1)="""" I D0>0 S DISX(3)=X"
^DIBT(839,2,3,"F")="0"
^DIBT(839,2,3,"GET")="S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(Y(1),U,1)="""" I D0>0 S DISX(3)=X"
^DIBT(839,2,3,"QCON")="I (DISX(3)]]0)&(DISX(3)']]1)"
^DIBT(839,2,3,"T")="1"
^DIBT(839,2,3,"TXT")="(#.351)="""""""""
^DIBT(839,2,"B",2,1)=""
^DIBT(839,2,"B",2,2)=""
^DIBT(839,2,"B",2,3)=""
^DIBT(839,"%D",0)="^.4012^1^1^3050103^^^^"
^DIBT(839,"%D",1,0)="This template used to list patients with a Bad Address Indicator."
^DIBT(840,0)="DGPT FEE BASIS^3050324.1655^^45.85^^^3050407"
^DIBT(840,2,0)="^.4014^4^4"
^DIBT(840,2,1,0)="45.85^^CENSUS DATE:NUMBER^@""^^^^^^4"
^DIBT(840,2,1,"ASK")="1"
^DIBT(840,2,1,"CM")="S I(0,0)=$G(D0),Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""""),D0=$P(Y(1),U,4) S:'D0!'$D(^DG(45.86,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(840,2,1,"F")="43.999999^44"
^DIBT(840,2,1,"GET")="S I(0,0)=$G(D0),Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:""""),D0=$P(Y(1),U,4) S:'D0!'$D(^DG(45.86,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) I D0>0 S DISX(1)=X"
^DIBT(840,2,1,"QCON")="I DISX(1)=44"
^DIBT(840,2,1,"T")="44^44"
^DIBT(840,2,1,"TXT")="CENSUS DATE:NUMBER equals 44"
^DIBT(840,2,2,0)="45^4^FEE BASIS^""@^^^^^^3"
^DIBT(840,2,2,2,0)="^.401418^1^1"
^DIBT(840,2,2,2,1,0)="45.85^100^45^DGPT(^0"
^DIBT(840,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S D(0)=+X"
^DIBT(840,2,2,2,"B",45.85,1)=""
^DIBT(840,2,2,"F")=".999999^1^1 (FEE BASIS)"
^DIBT(840,2,2,"GET")="S DISX(2)=$P($G(^DGPT(D0,0)),U,4)"
^DIBT(840,2,2,"QCON")="I DISX(2)=1"
^DIBT(840,2,2,"T")="1^1^1 (FEE BASIS)"
^DIBT(840,2,2,"TXT")="FEE BASIS equals 1 (FEE BASIS)"
^DIBT(840,2,3,0)="45.85^101^CENSUS STATUS^@^^^^^^4"
^DIBT(840,2,3,"ASK")="1"
^DIBT(840,2,3,"F")="Transmittecz^Transmitted"
^DIBT(840,2,3,"GET")="D STATUS^DGPTCO1 S DISX(3)=X"
^DIBT(840,2,3,"QCON")="I DISX(3)=""Transmitted"""
^DIBT(840,2,3,"SER")="1.0000^1.0000"
^DIBT(840,2,3,"T")="Transmitted^Transmitted"
^DIBT(840,2,3,"TXT")="CENSUS STATUS equals Transmitted"
^DIBT(840,2,4,0)="45.85^^NAME^"".01^^^^^^4"
^DIBT(840,2,4,"CM")="S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(840,2,4,"GET")="S Y(1)=$S($D(^DG(45.85,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(840,2,4,"IX")="^DG(45.85,""B"",^DG(45.85,^2"
^DIBT(840,2,4,"PTRIX")="^DPT(""B"","
^DIBT(840,2,4,"QCON")="I DISX(4)'="""""
^DIBT(840,2,4,"SER")="0.0000^0.0000"
^DIBT(840,2,4,"TXT")="NAME not null"
^DIBT(840,2,"B",45,2)=""
^DIBT(840,2,"B",45.85,1)=""
^DIBT(840,2,"B",45.85,3)=""
^DIBT(840,2,"B",45.85,4)=""
^DIBT(841,0)="PRCV DYNAMED RIL'S NEED ACTION^3050513.1051^^414.02^^@^3050609"
^DIBT(841,2,0)="^.4014^2^2"
^DIBT(841,2,1,0)="414.02^6^DATE/TIME CREATED IN DYNAMED^^^^^^^1"
^DIBT(841,2,1,"GET")="S DISX(1)=$P($G(^PRCV(414.02,D0,0)),U,7)"
^DIBT(841,2,1,"QCON")="I DISX(1)'="""""
^DIBT(841,2,1,"SER")="0.0000^0.0000"
^DIBT(841,2,1,"TXT")="DATE/TIME CREATED IN DYNAMED not null"
^DIBT(841,2,2,0)="414.02^4^RIL#^^^^^^^4"
^DIBT(841,2,2,"GET")="S DISX(2)=$P($G(^PRCV(414.02,D0,0)),U,5)"
^DIBT(841,2,2,"IX")="^PRCV(414.02,""C"",^PRCV(414.02,^2"
^DIBT(841,2,2,"QCON")="I DISX(2)'="""""
^DIBT(841,2,2,"SER")="0.0000^0.0000"
^DIBT(841,2,2,"TXT")="RIL# not null"
^DIBT(841,2,"B",414.02,1)=""
^DIBT(841,2,"B",414.02,2)=""
^DIBT(842,0)="DG ISO SENSITIVE RCDS SORT^3040810.1248^^38.1^^^3050722"
^DIBT(842,2,0)="^.4014^2^2"
^DIBT(842,2,1,0)="38.11^.01^DATE/TIME RECORD ACCESSED^]@@^^^^^^1"
^DIBT(842,2,1,1,0)="^.40141^1^1"
^DIBT(842,2,1,1,1,0)="38.1^D"
^DIBT(842,2,1,1,"B",38.1,1)=""
^DIBT(842,2,1,"ASK")="1"
^DIBT(842,2,1,"F")="3050516.999999^May 17,2005^May 17,2005"
^DIBT(842,2,1,"GET")="S DISX(1)=$P($G(^DGSL(38.1,D0,""D"",D1,0)),U)"
^DIBT(842,2,1,"QCON")="I (DISX(1)]]3050516.999999)&(DISX(1)']]3050517.24)"
^DIBT(842,2,1,"T")="3050517.24^May 17,2005@2400^May 17,2005@24:00"
^DIBT(842,2,1,"TXT")="DATE/TIME RECORD ACCESSED from May 17,2005 to May 17,2005@24:00"
^DIBT(842,2,2,0)="38.1^^PATIENT NAME^@"".01^^^^^^4"
^DIBT(842,2,2,"CM")="S Y(1)=$S($D(^DGSL(38.1,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X"
^DIBT(842,2,2,"GET")="S Y(1)=$S($D(^DGSL(38.1,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X"
^DIBT(842,2,2,"IX")="^DGSL(38.1,""B"",^DGSL(38.1,^2"
^DIBT(842,2,2,"PTRIX")="^DPT(""B"","
^DIBT(842,2,2,"QCON")="I DISX(2)'="""""
^DIBT(842,2,2,"SER")="0.0198^0.0198"
^DIBT(842,2,2,"TXT")="PATIENT NAME not null"
^DIBT(842,2,"B",38.1,2)=""
^DIBT(842,2,"B",38.11,1)=""
^DIBT(842,"%D",0)="^^1^1^3040810^"
^DIBT(842,"%D",1,0)="Used with the option AXVISO Sensitive Rcds Rpt-Man"
^DIBT(843,0)="SDWLRO^3050323.1327^@^409.3^^@^3050714"
^DIBT(843,2,0)="^.4014^2^2"
^DIBT(843,2,1,0)="409.3^23^CURRENT STATUS^@^^^^^^3"
^DIBT(843,2,1,"F")="Nz^O^O (OPEN)"
^DIBT(843,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.3,D0,0)),U,17)"
^DIBT(843,2,1,"QCON")="I DISX(1)=""O"""
^DIBT(843,2,1,"SER")="0.7260^0.7260"
^DIBT(843,2,1,"T")="O^O^O (OPEN)"
^DIBT(843,2,1,"TXT")="CURRENT STATUS equals O (OPEN)"
^DIBT(843,2,2,0)="409.3^29^REOPEN REASON^'@^^^^^^3"
^DIBT(843,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.3,D0,1)),U)"
^DIBT(843,2,2,"QCON")="I DISX(2)'="""""
^DIBT(843,2,2,"SER")="0.9863^0.9863"
^DIBT(843,2,2,"TXT")="REOPEN REASON not null"
^DIBT(843,2,"B",409.3,1)=""
^DIBT(843,2,"B",409.3,2)=""
^DIBT(843,"%D",0)="^.4012^1^1^3050323^^^^"
^DIBT(843,"%D",1,0)="Sort template to display field 29 REOPEN REASON."
^DIBT(844,0)="XU-CLINICAL TRAINEE TRANSA^3040901.0613^@^200^^@^3050801"
^DIBT(844,2,0)="^.4014^3^3"
^DIBT(844,2,1,0)="200^12.5^DATE TRANSMITTED TO OAA^+^;S1^^^^^1"
^DIBT(844,2,1,"ASK")="1"
^DIBT(844,2,1,"F")="3040805.999999^T-360^Aug 6,2004"
^DIBT(844,2,1,"GET")="S DISX(1)=$P($G(^VA(200,D0,12)),U,5)"
^DIBT(844,2,1,"IX")="^VA(200,""AOAA"",^VA(200,^2"
^DIBT(844,2,1,"QCON")="I (DISX(1)]]3040805.999999)&(DISX(1)']]3050801.24)"
^DIBT(844,2,1,"SER")="24.2500^0.9604"
^DIBT(844,2,1,"T")="3050801.24^Aug 1,2005@2400^Aug 1,2005@24:00"
^DIBT(844,2,1,"TXT")="DATE TRANSMITTED TO OAA from Aug 6,2004 to Aug 1,2005@24:00"
^DIBT(844,2,2,0)="200^^VHA TRAINING FACILITY^+""12.4^;S1^^^^^4"
^DIBT(844,2,2,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X"
^DIBT(844,2,2,"F")="?z^@"
^DIBT(844,2,2,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X"
^DIBT(844,2,2,"QCON")="I 1"
^DIBT(844,2,2,"T")="z^"
^DIBT(844,2,2,"TXT")="All VHA TRAINING FACILITY (includes nulls)"
^DIBT(844,2,3,0)="200^.01^NAME^^^^^^^4"
^DIBT(844,2,3,"GET")="S DISX(3)=$P($G(^VA(200,D0,0)),U)"
^DIBT(844,2,3,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(844,2,3,"QCON")="I DISX(3)'="""""
^DIBT(844,2,3,"SER")="0^0"
^DIBT(844,2,3,"TXT")="NAME not null"
^DIBT(844,2,"B",200,1)=""
^DIBT(844,2,"B",200,2)=""
^DIBT(844,2,"B",200,3)=""
^DIBT(845,0)="XU-CLINICAL TRAINEE TRANSB^3040901.0615^@^200^^@^3050801"
^DIBT(845,2,0)="^.4014^3^3"
^DIBT(845,2,1,0)="200^12.5^DATE TRANSMITTED TO OAA^+^;S1^^^^^1"
^DIBT(845,2,1,"ASK")="1"
^DIBT(845,2,1,"F")="3040805.999999^T-360^Aug 6,2004"
^DIBT(845,2,1,"GET")="S DISX(1)=$P($G(^VA(200,D0,12)),U,5)"
^DIBT(845,2,1,"IX")="^VA(200,""AOAA"",^VA(200,^2"
^DIBT(845,2,1,"QCON")="I (DISX(1)]]3040805.999999)&(DISX(1)']]3050707.24)"
^DIBT(845,2,1,"SER")="24.2500^0.9604"
^DIBT(845,2,1,"T")="3050707.24^Jul 7,2005@2400^Jul 7,2005@24:00"
^DIBT(845,2,1,"TXT")="DATE TRANSMITTED TO OAA from Aug 6,2004 to Jul 7,2005@24:00"
^DIBT(845,2,2,0)="200^^VHA TRAINING FACILITY^+""12.4^;S1^^^^^4"
^DIBT(845,2,2,"ASK")="1"
^DIBT(845,2,2,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X"
^DIBT(845,2,2,"F")="SAN FRANCISCNz^SAN FRANCISCO"
^DIBT(845,2,2,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X"
^DIBT(845,2,2,"QCON")="I DISX(2)=""SAN FRANCISCO"""
^DIBT(845,2,2,"T")="SAN FRANCISCO^SAN FRANCISCO"
^DIBT(845,2,2,"TXT")="VHA TRAINING FACILITY equals SAN FRANCISCO"
^DIBT(845,2,3,0)="200^.01^NAME^^^^^^^4"
^DIBT(845,2,3,"GET")="S DISX(3)=$P($G(^VA(200,D0,0)),U)"
^DIBT(845,2,3,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(845,2,3,"QCON")="I DISX(3)'="""""
^DIBT(845,2,3,"SER")="0^0"
^DIBT(845,2,3,"TXT")="NAME not null"
^DIBT(845,2,"B",200,1)=""
^DIBT(845,2,"B",200,2)=""
^DIBT(845,2,"B",200,3)=""
^DIBT(846,0)="XU-CLINICAL TRAINEE TRANSC^3040901.0615^@^200^^@^3050801"
^DIBT(846,2,0)="^.4014^3^3"
^DIBT(846,2,1,0)="200^12.5^DATE TRANSMITTED TO OAA^+^^^^^^1"
^DIBT(846,2,1,"ASK")="1"
^DIBT(846,2,1,"F")="3040805.999999^T-360^Aug 6,2004"
^DIBT(846,2,1,"GET")="S DISX(1)=$P($G(^VA(200,D0,12)),U,5)"
^DIBT(846,2,1,"IX")="^VA(200,""AOAA"",^VA(200,^2"
^DIBT(846,2,1,"QCON")="I (DISX(1)]]3040805.999999)&(DISX(1)']]3050707.24)"
^DIBT(846,2,1,"SER")="24.2500^0.9604"
^DIBT(846,2,1,"T")="3050707.24^Jul 7,2005@2400^Jul 7,2005@24:00"
^DIBT(846,2,1,"TXT")="DATE TRANSMITTED TO OAA from Aug 6,2004 to Jul 7,2005@24:00"
^DIBT(846,2,2,0)="200^^VHA TRAINING FACILITY^+""12.4^;S1^^^^^4"
^DIBT(846,2,2,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X"
^DIBT(846,2,2,"F")="?z^@"
^DIBT(846,2,2,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(2)=X"
^DIBT(846,2,2,"QCON")="I 1"
^DIBT(846,2,2,"T")="z^"
^DIBT(846,2,2,"TXT")="All VHA TRAINING FACILITY (includes nulls)"
^DIBT(846,2,3,0)="200^.01^NAME^^^^^^^4"
^DIBT(846,2,3,"GET")="S DISX(3)=$P($G(^VA(200,D0,0)),U)"
^DIBT(846,2,3,"IX")="^VA(200,""B"",^VA(200,^2"
^DIBT(846,2,3,"QCON")="I DISX(3)'="""""
^DIBT(846,2,3,"SER")="0^0"
^DIBT(846,2,3,"TXT")="NAME not null"
^DIBT(846,2,"B",200,1)=""
^DIBT(846,2,"B",200,2)=""
^DIBT(846,2,"B",200,3)=""
^DIBT(847,0)="XU-CLINICAL TRAINEE LIST^3050321.0816^@^200^^@^3050801"
^DIBT(847,2,0)="^.4014^3^3"
^DIBT(847,2,1,0)="200^^(#12.2)'=""""^@""B^;L1^^^^^4"
^DIBT(847,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(847,2,1,"F")="0"
^DIBT(847,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(847,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(847,2,1,"T")="1"
^DIBT(847,2,1,"TXT")="(#12.2)'="""""""""
^DIBT(847,2,2,0)="200^^$S((#12.6)=""YES"":""YES"",(#12.6)=""NO"":""NO"",1:""YES"")^""^;""TRAINEE?: "";S1^^^^^4"
^DIBT(847,2,2,3,0)="^.401419^2^2"
^DIBT(847,2,2,3,1,0)="OVF0^9.2"
^DIBT(847,2,2,3,1,"OVF0")="S Y(2)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),Y(6)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""")"
^DIBT(847,2,2,3,2,0)="OVF0^9.3"
^DIBT(847,2,2,3,2,"OVF0")="X DPP(2,""OVF0"",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))=""YES"",Y(3)=$G(X) S X=""YES"",Y(4)=$G(X),Y(5)=$G(X) S X=$P($P(Y(6),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))"
^DIBT(847,2,2,3,"B","OVF0",1)=""
^DIBT(847,2,2,3,"B","OVF0",2)=""
^DIBT(847,2,2,"CM")="X DPP(2,""OVF0"",9.3) S X=X=""NO"",Y(7)=$G(X) S X=""NO"",Y(8)=$G(X) S X=1,Y(9)=$G(X) S X=""YES"",X=$S(Y(3):Y(4),Y(7):Y(8),Y(9):X) I D0>0 S DISX(2)=X"
^DIBT(847,2,2,"GET")="X DPP(2,""OVF0"",9.3) S X=X=""NO"",Y(7)=$G(X) S X=""NO"",Y(8)=$G(X) S X=1,Y(9)=$G(X) S X=""YES"",X=$S(Y(3):Y(4),Y(7):Y(8),Y(9):X) I D0>0 S DISX(2)=X"
^DIBT(847,2,2,"QCON")="I DISX(2)'="""""
^DIBT(847,2,2,"TXT")="$S((#12.6)=""""YES"""":""""YES"""",(#12.6)=""""NO"""":""""NO"""",1:""""YES"""") not null"
^DIBT(847,2,3,0)="200^^VHA TRAINING FACILITY^""12.4^;""TRAINING FACILITY: ""^^^^^4"
^DIBT(847,2,3,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X"
^DIBT(847,2,3,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X"
^DIBT(847,2,3,"QCON")="I DISX(3)'="""""
^DIBT(847,2,3,"TXT")="VHA TRAINING FACILITY not null"
^DIBT(847,2,"B",200,1)=""
^DIBT(847,2,"B",200,2)=""
^DIBT(847,2,"B",200,3)=""
^DIBT(848,0)="XU-CLINICAL INACTIVE TRAINEE^3050321.0808^@^200^^@^3050801"
^DIBT(848,2,0)="^.4014^3^3"
^DIBT(848,2,1,0)="200^^(#12.2)'=""""^@""B^;L1^^^^^4"
^DIBT(848,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(848,2,1,"F")="0"
^DIBT(848,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(848,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(848,2,1,"T")="1"
^DIBT(848,2,1,"TXT")="(#12.2)'="""""""""
^DIBT(848,2,2,0)="200^12.6^CLINICAL CORE TRAINEE^^;""ACTIVE TRAINEE?: ""^^^^^3"
^DIBT(848,2,2,"F")="Mz^NO^N (NO)"
^DIBT(848,2,2,"GET")="S DISX(2)=$P($G(^VA(200,D0,12)),U,6)"
^DIBT(848,2,2,"QCON")="I DISX(2)=""N"""
^DIBT(848,2,2,"SER")="0.9703^0.9703"
^DIBT(848,2,2,"T")="N^NO^N (NO)"
^DIBT(848,2,2,"TXT")="CLINICAL CORE TRAINEE equals N (NO)"
^DIBT(848,2,3,0)="200^^VHA TRAINING FACILITY^""12.4^;""TRAINING FACILITY: ""^^^^^4"
^DIBT(848,2,3,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X"
^DIBT(848,2,3,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X"
^DIBT(848,2,3,"QCON")="I DISX(3)'="""""
^DIBT(848,2,3,"TXT")="VHA TRAINING FACILITY not null"
^DIBT(848,2,"B",200,1)=""
^DIBT(848,2,"B",200,2)=""
^DIBT(848,2,"B",200,3)=""
^DIBT(849,0)="XU-CLINICAL ACTIVE TRAINEE^3041220.1245^@^200^^@^3050801"
^DIBT(849,2,0)="^.4014^3^3"
^DIBT(849,2,1,0)="200^^(#12.2)'=""""^@""B^;L1^^^^^4"
^DIBT(849,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(849,2,1,"F")="0"
^DIBT(849,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="""" I D0>0 S DISX(1)=X"
^DIBT(849,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(849,2,1,"T")="1"
^DIBT(849,2,1,"TXT")="(#12.2)'="""""""""
^DIBT(849,2,2,0)="200^^$S((#12.6)=""YES"":""YES"",(#12.6)="""":""YES"",1:"""")^""^;""ACTIVE TRAINEE?: ""^^^^^4"
^DIBT(849,2,2,3,0)="^.401419^2^2"
^DIBT(849,2,2,3,1,0)="OVF0^9.2"
^DIBT(849,2,2,3,1,"OVF0")="S Y(2)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),Y(6)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""")"
^DIBT(849,2,2,3,2,0)="OVF0^9.3"
^DIBT(849,2,2,3,2,"OVF0")="X DPP(2,""OVF0"",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))=""YES"",Y(3)=$G(X) S X=""YES"",Y(4)=$G(X),Y(5)=$G(X) S X=$P($P(Y(6),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))"
^DIBT(849,2,2,3,"B","OVF0",1)=""
^DIBT(849,2,2,3,"B","OVF0",2)=""
^DIBT(849,2,2,"CM")="X DPP(2,""OVF0"",9.3) S X=X="""",Y(7)=$G(X) S X=""YES"",Y(8)=$G(X) S X=1,Y(9)=$G(X) S X="""",X=$S(Y(3):Y(4),Y(7):Y(8),Y(9):X) I D0>0 S DISX(2)=X"
^DIBT(849,2,2,"GET")="X DPP(2,""OVF0"",9.3) S X=X="""",Y(7)=$G(X) S X=""YES"",Y(8)=$G(X) S X=1,Y(9)=$G(X) S X="""",X=$S(Y(3):Y(4),Y(7):Y(8),Y(9):X) I D0>0 S DISX(2)=X"
^DIBT(849,2,2,"QCON")="I DISX(2)'="""""
^DIBT(849,2,2,"TXT")="$S((#12.6)=""""YES"""":""""YES"""",(#12.6)="""""""":""""YES"""",1:"""""""") not null"
^DIBT(849,2,3,0)="200^^VHA TRAINING FACILITY^""12.4^;""TRAINING FACILITY: ""^^^^^4"
^DIBT(849,2,3,"CM")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X"
^DIBT(849,2,3,"GET")="S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X"
^DIBT(849,2,3,"QCON")="I DISX(3)'="""""
^DIBT(849,2,3,"TXT")="VHA TRAINING FACILITY not null"
^DIBT(849,2,"B",200,1)=""
^DIBT(849,2,"B",200,2)=""
^DIBT(849,2,"B",200,3)=""
^DIBT(850,0)="XTPM COMPLETE PATCH HISTORY^3050721.0802^@^9.9^^@^3061127"
^DIBT(850,2,0)="^.4014^2^2"
^DIBT(850,2,1,0)="9.9^8^COMPLIANCE DATE^@^;S1^^^^^1"
^DIBT(850,2,1,"GET")="S DISX(1)=$P($G(^XPD(9.9,D0,0)),U,9)"
^DIBT(850,2,1,"IX")="^XPD(9.9,""D"",^XPD(9.9,^2"
^DIBT(850,2,1,"QCON")="I DISX(1)'="""""
^DIBT(850,2,1,"SER")="0.0000^0.0000"
^DIBT(850,2,1,"TXT")="COMPLIANCE DATE not null"
^DIBT(850,2,2,0)="9.9^.01^PATCH NAME^^^^^^^4"
^DIBT(850,2,2,"GET")="S DISX(2)=$P($G(^XPD(9.9,D0,0)),U)"
^DIBT(850,2,2,"IX")="^XPD(9.9,""B"",^XPD(9.9,^2"
^DIBT(850,2,2,"QCON")="I DISX(2)'="""""
^DIBT(850,2,2,"SER")="0^0"
^DIBT(850,2,2,"TXT")="PATCH NAME not null"
^DIBT(850,2,"B",9.9,1)=""
^DIBT(850,2,"B",9.9,2)=""
^DIBT(850,"%D",0)="^^1^1^3050721^"
^DIBT(850,"%D",1,0)="Prints a complete patch installation history."
^DIBT(851,0)="XTPM UNINSTALLED BY COMPLIANCE^3050721.0927^@^9.9^^@^3050823"
^DIBT(851,2,0)="^.4014^3^3"
^DIBT(851,2,1,0)="9.9^8^COMPLIANCE DATE^@^;S^^^^^1"
^DIBT(851,2,1,"F")="2010100.999999^Jan 1,1901^Jan 1,1901"
^DIBT(851,2,1,"GET")="S DISX(1)=$P($G(^XPD(9.9,D0,0)),U,9)"
^DIBT(851,2,1,"IX")="^XPD(9.9,""D"",^XPD(9.9,^2"
^DIBT(851,2,1,"QCON")="I (DISX(1)]]2010100.999999)&(DISX(1)']]7991231.24)"
^DIBT(851,2,1,"T")="7991231.24^Dec 31,2499@2400^Dec 31,2499@24:00"
^DIBT(851,2,1,"TXT")="COMPLIANCE DATE from Jan 1,1901 to Dec 31,2499@24:00"
^DIBT(851,2,2,0)="9.9^.01^PATCH NAME^^^^^^^4"
^DIBT(851,2,2,"GET")="S DISX(2)=$P($G(^XPD(9.9,D0,0)),U)"
^DIBT(851,2,2,"IX")="^XPD(9.9,""B"",^XPD(9.9,^2"
^DIBT(851,2,2,"QCON")="I DISX(2)'="""""
^DIBT(851,2,2,"TXT")="PATCH NAME not null"
^DIBT(851,2,3,0)="9.9^^$S(NON-KIDS PATCH?=""YES"":NON-KIDS INSTALL DATE,1:DATE INSTALLED)=""""^""@B^;L1^^^^^4"
^DIBT(851,2,3,3,0)="^.401419^2^2"
^DIBT(851,2,3,3,1,0)="OVF0^9.2"
^DIBT(851,2,3,3,1,"OVF0")="X ""N I,Y ""_$P(^DD(9.9,9,0),U,5,99) S Y(6)=X S Y(2)=$C(59)_$P($G(^DD(9.9,11,0)),U,3),Y(1)=$S($D(^XPD(9.9,D0,0)):^(0),1:"""")"
^DIBT(851,2,3,3,2,0)="OVF0^9.3"
^DIBT(851,2,3,3,2,"OVF0")="X DPP(3,""OVF0"",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59))=""YES"",Y(3)=$G(X) S X=$P(Y(1),U,11),Y(4)=$G(X) S X=1,Y(5)=$G(X) S X=Y(6)"
^DIBT(851,2,3,3,"B","OVF0",1)=""
^DIBT(851,2,3,3,"B","OVF0",2)=""
^DIBT(851,2,3,"CM")="X DPP(3,""OVF0"",9.3) S X=$S(Y(3):Y(4),Y(5):X)="""" I D0>0 S DISX(3)=X"
^DIBT(851,2,3,"F")="0"
^DIBT(851,2,3,"GET")="X DPP(3,""OVF0"",9.3) S X=$S(Y(3):Y(4),Y(5):X)="""" I D0>0 S DISX(3)=X"
^DIBT(851,2,3,"QCON")="I DISX(3)"
^DIBT(851,2,3,"T")="1"
^DIBT(851,2,3,"TXT")="$S(NON-KIDS PATCH?=""""YES"""":NON-KIDS INSTALL DATE,1:DATE INSTALLED)="""""""""
^DIBT(851,2,"B",9.9,1)=""
^DIBT(851,2,"B",9.9,2)=""
^DIBT(851,2,"B",9.9,3)=""
^DIBT(851,"%D",0)="^^1^1^3050721^"
^DIBT(851,"%D",1,0)="Uninstalled patches by compliance date."
^DIBT(852,0)="IBT QUICK REV CODING STAT^3050717.0308^@^356^^@^3050727"
^DIBT(852,2,0)="^.4014^1^1"
^DIBT(852,2,1,0)="356^^OUTPATIENT ENCOUNTER^"".04^^^D^^^1"
^DIBT(852,2,1,"ASK")="1"
^DIBT(852,2,1,"CM")="S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P($G(^SCE(+$P(Y(1),U,4),0)),U) I D0>0 S DISX(1)=X"
^DIBT(852,2,1,"F")="2900100.999999^Jan 1,1990^Jan 1,1990"
^DIBT(852,2,1,"GET")="S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P($G(^SCE(+$P(Y(1),U,4),0)),U) I D0>0 S DISX(1)=X"
^DIBT(852,2,1,"IX")="^IBT(356,""ASCE"",^IBT(356,^2"
^DIBT(852,2,1,"PTRIX")="^SCE(""B"","
^DIBT(852,2,1,"QCON")="I (DISX(1)]]2900100.999999)&(DISX(1)']]3050727.24)"
^DIBT(852,2,1,"SER")="0.4851^0.4851"
^DIBT(852,2,1,"T")="3050727.24^Jul 27,2005@2400^Jul 27,2005@24:00"
^DIBT(852,2,1,"TXT")="OUTPATIENT ENCOUNTER from Jan 1,1990 to Jul 27,2005@24:00"
^DIBT(852,2,"B",356,1)=""
^DIBT(852,"BY0")="IBT(356,""C"",DFN,^1"
^DIBT(853,0)="801FIND^3050328.1501^@^45^^@^3050408"
^DIBT(853,"%D",0)="^.4012^1^1^3050818^^^^"
^DIBT(853,"%D",1,0)="Pro Fee Coding Not Sent to PCE"
^DIBT(853,"BY0")="DGPT(""AB"",^2"
^DIBT(853,"BY0D",0)="^.4011624^1^1"
^DIBT(853,"BY0D",1,0)="1^3000101^3041228"
^DIBT(853,"BY0D",1,1)="^;""CPT RECORD DATE/TIME: "";S2;C1"
^DIBT(853,"BY0D",1,2)="X ^DD(""DD"")"
^DIBT(854,0)="XQEDIT-DIC^3020625.1005^@^19.8^^@^3020625"
^DIBT(854,"%D",0)="^^1^1^3020625^"
^DIBT(854,"%D",1,0)="Used to define data to be transported with XU*8.0*242 KIDS build."
^DIBT(854,"DC",1)=".01^=""EDIT-DIC"""
^DIBT(854,"DIS",0)="I $P($G(^DIC(19.8,D0,0)),U,1)=""EDIT-DIC"""
^DIBT(854,"DL")="1"
^DIBT(854,"DL",0)="^1^"
^DIBT(854,"O",0)="^"
^DIBT(854,"O",1,0)="NAME EQUALS ""EDIT-DIC"""
^DIBT(854,"QR")="3020625.100645^1"
^DIBT(855,0)="ECX LAB TEST SORT BY NUMBER^3050609.1946^@^727.2^^@^3050727"
^DIBT(855,2,0)="^.4014^2^2"
^DIBT(855,2,1,0)="727.2^.01^NAME^@^^^^^^4"
^DIBT(855,2,1,"GET")="S DISX(1)=$P($G(^ECX(727.2,D0,0)),U)"
^DIBT(855,2,1,"IX")="^ECX(727.2,""B"",^ECX(727.2,^2"
^DIBT(855,2,1,"QCON")="I DISX(1)'="""""
^DIBT(855,2,1,"SER")="0^0"
^DIBT(855,2,1,"TXT")="NAME not null"
^DIBT(855,2,2,0)="727.21^0^NUMBER^@^^^^^^2"
^DIBT(855,2,2,1,0)="^.40141^1^1"
^DIBT(855,2,2,1,1,0)="727.2^1"
^DIBT(855,2,2,1,"B",727.2,1)=""
^DIBT(855,2,2,"QCON")="I D1'="""""
^DIBT(855,2,2,"TXT")="NUMBER not null"
^DIBT(855,2,"B",727.2,1)=""
^DIBT(855,2,"B",727.21,2)=""
^DIBT(855,"%D",0)="^.4012^1^1^3050609^^^"
^DIBT(855,"%D",1,0)="DSS LAB TEST DATASHEET report sorted by DSS LAB TEST NUMBER."
^DIBT(856,0)="ECX LAB TEST SORT BY DSS NAME^3050510.1138^@^727.2^^@^3050829"
^DIBT(856,2,0)="^.4014^1^1"
^DIBT(856,2,1,0)="727.21^.01^DSS LAB TEST^@^^^^^^4"
^DIBT(856,2,1,1,0)="^.40141^1^1"
^DIBT(856,2,1,1,1,0)="727.2^1"
^DIBT(856,2,1,1,"B",727.2,1)=""
^DIBT(856,2,1,"GET")="S DISX(1)=$P($G(^ECX(727.2,D0,1,D1,0)),U)"
^DIBT(856,2,1,"QCON")="I DISX(1)'="""""
^DIBT(856,2,1,"TXT")="DSS LAB TEST not null"
^DIBT(856,2,"B",727.21,1)=""
^DIBT(856,"%D",0)="^.4012^1^1^3050510^^"
^DIBT(856,"%D",1,0)="DSS LAB TEST DATASHEET report sorted by DSS LAB TEST NAME."
^DIBT(857,0)="ECX LAB TEST SORT BY LOCAL^3050510.1051^@^727.2^^@^3050727"
^DIBT(857,2,0)="^.4014^1^1"
^DIBT(857,2,1,0)="727.211^^LOCAL LAB TEST NAME^@"".01^^^^^^4"
^DIBT(857,2,1,1,0)="^.40141^2^2"
^DIBT(857,2,1,1,1,0)="727.2^1"
^DIBT(857,2,1,1,2,0)="727.21^LOC"
^DIBT(857,2,1,1,"B",727.2,1)=""
^DIBT(857,2,1,1,"B",727.21,2)=""
^DIBT(857,2,1,"CM")="S Y(1)=$S($D(^ECX(727.2,D0,1,D1,""LOC"",D2,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(727.211,.01,"""",$P(Y(1),U,1)) I D2>0 S DISX(1)=X"
^DIBT(857,2,1,"GET")="S Y(1)=$S($D(^ECX(727.2,D0,1,D1,""LOC"",D2,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(727.211,.01,"""",$P(Y(1),U,1)) I D2>0 S DISX(1)=X"
^DIBT(857,2,1,"QCON")="I DISX(1)'="""""
^DIBT(857,2,1,"TXT")="LOCAL LAB TEST NAME not null"
^DIBT(857,2,"B",727.211,1)=""
^DIBT(857,"%D",0)="^^1^1^3050510^"
^DIBT(857,"%D",1,0)="DSS LAB TEST DATASHEET REPORT sort by local lab name."
^DIBT(858,0)="SDP394^3041005.1308^@^409.1^^@^3041005"
^DIBT(858,"%D",0)="^.4012^1^1^3041005^^"
^DIBT(858,"%D",1,0)="Input of new entry for patch SD*5.3*394."
^DIBT(858,"DC",1)=".01^=""SERVICE CONNECTED"""
^DIBT(858,"DIS",0)="I $$UP^DILIBF($P($G(^SD(409.1,D0,0)),U,1))=""SERVICE CONNECTED"""
^DIBT(858,"DIS","XFORM",1)="$$UP^DILIBF(;)"
^DIBT(858,"DL")="1"
^DIBT(858,"DL",0)="^1^"
^DIBT(858,"O",0)="^.4011^1^1^3041005^"
^DIBT(858,"O",1,0)="NAME EQUALS (case-insensitive) ""SERVICE CONNECTED"""
^DIBT(858,"QR")="3041005.130952^1"
^DIBT(859,0)="XUSAP PROXY LIST^3050308.1611^@^200^^@^3050908"
^DIBT(859,2,0)="^.4014^1^1"
^DIBT(859,2,1,0)="200.07^^User Class^"".01^^^^^^4"
^DIBT(859,2,1,1,0)="^.40141^1^1"
^DIBT(859,2,1,1,1,0)="200^USC3"
^DIBT(859,2,1,1,"B",200,1)=""
^DIBT(859,2,1,"CM")="S Y(1)=$S($D(^VA(200,D0,""USC3"",D1,0)):^(0),1:"""") S X=$P($G(^VA(201,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(1)=X"
^DIBT(859,2,1,"F")="APPLICATION PROXXz^APPLICATION PROXY"
^DIBT(859,2,1,"GET")="S Y(1)=$S($D(^VA(200,D0,""USC3"",D1,0)):^(0),1:"""") S X=$P($G(^VA(201,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(1)=X"
^DIBT(859,2,1,"QCON")="I (DISX(1)]]""APPLICATION PROXXz"")&(DISX(1)']]""CONNECTOR PROXY"")"
^DIBT(859,2,1,"T")="CONNECTOR PROXY^CONNECTOR PROXY"
^DIBT(859,2,1,"TXT")="User Class from APPLICATION PROXY to CONNECTOR PROXY"
^DIBT(859,2,"B",200.07,1)=""
^DIBT(859,"%D",0)="^^1^1^3050308^"
^DIBT(859,"%D",1,0)="Sort the NPF by entries that are APP PROXY or CONNECTOR PROXY."
^DIBT(860,0)="PRCH OBLIGATED 1358 LIST^3051111.0931^@^442^^@^3060117"
^DIBT(860,2,0)="^.4014^3^3"
^DIBT(860,2,1,0)="442^.1^P.O. DATE^@^^^^^^1"
^DIBT(860,2,1,"ASK")="1"
^DIBT(860,2,1,"F")="2870100.999999^Jan 1,1987^Jan 1,1987"
^DIBT(860,2,1,"GET")="S DISX(1)=$P($G(^PRC(442,D0,1)),U,15)"
^DIBT(860,2,1,"IX")="^PRC(442,""AB"",^PRC(442,^2"
^DIBT(860,2,1,"QCON")="I (DISX(1)]]2870100.999999)&(DISX(1)']]2981231.24)"
^DIBT(860,2,1,"SER")="100.0000^1.0000"
^DIBT(860,2,1,"T")="2981231.24^Dec 31,1998@2400^Dec 31,1998@24:00"
^DIBT(860,2,1,"TXT")="P.O. DATE from Jan 1,1987 to Dec 31,1998@24:00"
^DIBT(860,2,2,0)="442^.01^PURCHASE ORDER NUMBER^@^^^^^^4"
^DIBT(860,2,2,"GET")="S DISX(2)=$P($G(^PRC(442,D0,0)),U)"
^DIBT(860,2,2,"IX")="^PRC(442,""B"",^PRC(442,^2"
^DIBT(860,2,2,"QCON")="I DISX(2)'="""""
^DIBT(860,2,2,"SER")="0^0"
^DIBT(860,2,2,"TXT")="PURCHASE ORDER NUMBER not null"
^DIBT(860,2,3,0)="442^^METHOD OF PROCESSING^@"".02^^^^^^4"
^DIBT(860,2,3,"CM")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P($G(^PRCD(442.5,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(860,2,3,"F")="MISC. OBLIGATION (1358(z^MISC. OBLIGATION (1358)"
^DIBT(860,2,3,"GET")="S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P($G(^PRCD(442.5,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(860,2,3,"IX")="^PRC(442,""F"",^PRC(442,^2"
^DIBT(860,2,3,"PTRIX")="^PRCD(442.5,""B"","
^DIBT(860,2,3,"QCON")="I DISX(3)=""MISC. OBLIGATION (1358)"""
^DIBT(860,2,3,"SER")="49.5000^0.9802"
^DIBT(860,2,3,"T")="MISC. OBLIGATION (1358)^MISC. OBLIGATION (1358)"
^DIBT(860,2,3,"TXT")="METHOD OF PROCESSING equals MISC. OBLIGATION (1358)"
^DIBT(860,2,"B",442,1)=""
^DIBT(860,2,"B",442,2)=""
^DIBT(860,2,"B",442,3)=""
^DIBT(860,"%D",0)="^.4012^9^9^3060112^^^^"
^DIBT(860,"%D",1,0)="This is a new option to support a new FPDS report for the Austin "
^DIBT(860,"%D",2,0)="Automation Center (AAC)."
^DIBT(860,"%D",3,0)=" "
^DIBT(860,"%D",4,0)="This sort template is used to find purchase orders generated from 1358 "
^DIBT(860,"%D",5,0)="obligations with a dollar value of $0 and higher. The resulting list "
^DIBT(860,"%D",6,0)="can include vendors and contract information if they were entered when "
^DIBT(860,"%D",7,0)="the 1358's were created. Users are required to enter a date range for "
^DIBT(860,"%D",8,0)="this option. It is recommended that the printout be done in landscape "
^DIBT(860,"%D",9,0)="mode with a right margin of 132 characters."
^DIBT(861,0)="XIP STATE/COUNTY EXPORT^3050830.0902^@^5^^@^3051101"
^DIBT(861,2,0)="^.4014^4^4"
^DIBT(861,2,1,0)="5^^INTERNAL(#2.1)=1^@""B^;L1^^^^^4"
^DIBT(861,2,1,"CM")="S Y(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S X=X=1 I D0>0 S DISX(1)=X"
^DIBT(861,2,1,"F")="0"
^DIBT(861,2,1,"GET")="S Y(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S X=X=1 I D0>0 S DISX(1)=X"
^DIBT(861,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(861,2,1,"T")="1"
^DIBT(861,2,1,"TXT")="INTERNAL(#2.1)=1"
^DIBT(861,2,2,0)="5^.01^NAME^@^^^^^^4"
^DIBT(861,2,2,"ASK")="1"
^DIBT(861,2,2,"F")="@z^A"
^DIBT(861,2,2,"GET")="S DISX(2)=$P($G(^DIC(5,D0,0)),U)"
^DIBT(861,2,2,"IX")="^DIC(5,""B"",^DIC(5,^2"
^DIBT(861,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(861,2,2,"SER")="0.0000^0.0000"
^DIBT(861,2,2,"T")="Z^Z"
^DIBT(861,2,2,"TXT")="NAME from A to Z"
^DIBT(861,2,3,0)="5.01^5^INACTIVE DATE^@^^^^^^1"
^DIBT(861,2,3,1,0)="^.40141^1^1"
^DIBT(861,2,3,1,1,0)="5^1"
^DIBT(861,2,3,1,"B",5,1)=""
^DIBT(861,2,3,"F")="?z^@"
^DIBT(861,2,3,"GET")="S DISX(3)=$P($G(^DIC(5,D0,1,D1,0)),U,5)"
^DIBT(861,2,3,"QCON")="I DISX(3)="""""
^DIBT(861,2,3,"T")="@^@"
^DIBT(861,2,3,"TXT")="INACTIVE DATE is null"
^DIBT(861,2,4,0)="5.01^.01^COUNTY^^^^^^^4"
^DIBT(861,2,4,1,0)="^.40141^1^1"
^DIBT(861,2,4,1,1,0)="5^1"
^DIBT(861,2,4,1,"B",5,1)=""
^DIBT(861,2,4,"GET")="S DISX(4)=$P($G(^DIC(5,D0,1,D1,0)),U)"
^DIBT(861,2,4,"QCON")="I DISX(4)'="""""
^DIBT(861,2,4,"TXT")="COUNTY not null"
^DIBT(861,2,"B",5,1)=""
^DIBT(861,2,"B",5,2)=""
^DIBT(861,2,"B",5.01,3)=""
^DIBT(861,2,"B",5.01,4)=""
^DIBT(862,0)="XIP STATE EXPORT^3050830.0903^@^5^^@^3060303"
^DIBT(862,2,0)="^.4014^2^2"
^DIBT(862,2,1,0)="5^^INTERNAL(#2.1)=1^@""B^;L1^^^^^4"
^DIBT(862,2,1,"CM")="S Y(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S X=X=1 I D0>0 S DISX(1)=X"
^DIBT(862,2,1,"F")="0"
^DIBT(862,2,1,"GET")="S Y(1)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S X=X=1 I D0>0 S DISX(1)=X"
^DIBT(862,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(862,2,1,"T")="1"
^DIBT(862,2,1,"TXT")="INTERNAL(#2.1)=1"
^DIBT(862,2,2,0)="5^.01^NAME^^^^^^^4"
^DIBT(862,2,2,"ASK")="1"
^DIBT(862,2,2,"F")="@z^A"
^DIBT(862,2,2,"GET")="S DISX(2)=$P($G(^DIC(5,D0,0)),U)"
^DIBT(862,2,2,"IX")="^DIC(5,""B"",^DIC(5,^2"
^DIBT(862,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""Z"")"
^DIBT(862,2,2,"SER")="0.0000^0.0000"
^DIBT(862,2,2,"T")="Z^Z"
^DIBT(862,2,2,"TXT")="NAME from A to Z"
^DIBT(862,2,"B",5,1)=""
^DIBT(862,2,"B",5,2)=""
^DIBT(863,0)="XUSEC ISO ACTIVE USER SORT^3060617.1011^@^200^^@^3060619"
^DIBT(863,2,0)="^.4014^3^3"
^DIBT(863,2,1,0)="200^0^NUMBER^@^^^^^^2"
^DIBT(863,2,1,"IX")="^VA(200,^VA(200,^1"
^DIBT(863,2,1,"QCON")="I D0'="""""
^DIBT(863,2,1,"SER")="0^0"
^DIBT(863,2,1,"TXT")="NUMBER not null"
^DIBT(863,2,2,0)="200^^XUSEC ISO VISITED=1^@""B^;L1^^^^^4"
^DIBT(863,2,2,"CM")="S X=+$$ACTIVE^XUSER(D0) S X=X=1 I D0>0 S DISX(2)=X"
^DIBT(863,2,2,"F")="0"
^DIBT(863,2,2,"GET")="S X=+$$ACTIVE^XUSER(D0) S X=X=1 I D0>0 S DISX(2)=X"
^DIBT(863,2,2,"QCON")="I (DISX(2)]]0)&(DISX(2)']]1)"
^DIBT(863,2,2,"T")="1"
^DIBT(863,2,2,"TXT")="XUSEC ISO VISITED=1"
^DIBT(863,2,3,0)="200^^PRIMARY MENU OPTION]""""^@""B^;L1^^^^^4"
^DIBT(863,2,3,"CM")="S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=$P($G(^DIC(19,+$P(Y(1),U,1),0)),U)]"""" I D0>0 S DISX(3)=X"
^DIBT(863,2,3,"F")="0"
^DIBT(863,2,3,"GET")="S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"""") S X=$P($G(^DIC(19,+$P(Y(1),U,1),0)),U)]"""" I D0>0 S DISX(3)=X"
^DIBT(863,2,3,"QCON")="I (DISX(3)]]0)&(DISX(3)']]1)"
^DIBT(863,2,3,"T")="1"
^DIBT(863,2,3,"TXT")="PRIMARY MENU OPTION]"""""""""
^DIBT(863,2,"B",200,1)=""
^DIBT(863,2,"B",200,2)=""
^DIBT(863,2,"B",200,3)=""
^DIBT(864,0)="MD CONVERSION SUMMARY^3030923.1446^^703.9^^^3050228"
^DIBT(864,2,0)="^.4014^2^2"
^DIBT(864,2,1,0)="703.9^.01^NAME^@^^^^^^4"
^DIBT(864,2,1,"GET")="S DISX(1)=$P($G(^MDD(703.9,D0,0)),U)"
^DIBT(864,2,1,"IX")="^MDD(703.9,""B"",^MDD(703.9,^2"
^DIBT(864,2,1,"QCON")="I DISX(1)'="""""
^DIBT(864,2,1,"SER")="0^0"
^DIBT(864,2,1,"TXT")="NAME not null"
^DIBT(864,2,2,0)="703.92^.02^STATUS^@^;S1^^^^^3"
^DIBT(864,2,2,1,0)="^.40141^1^1"
^DIBT(864,2,2,1,1,0)="703.9^2"
^DIBT(864,2,2,1,"B",703.9,1)=""
^DIBT(864,2,2,"GET")="S DISX(2)=$P($G(^MDD(703.9,D0,2,D1,0)),U,2)"
^DIBT(864,2,2,"QCON")="I DISX(2)'="""""
^DIBT(864,2,2,"TXT")="STATUS not null"
^DIBT(864,2,"B",703.9,1)=""
^DIBT(864,2,"B",703.92,2)=""
^DIBT(865,0)="MD CONVERSION ERRORS^3030919.1321^@^703.9^^@^3050228"
^DIBT(865,2,0)="^.4014^2^2"
^DIBT(865,2,1,0)="703.9^.01^NAME^@^^^^^^4"
^DIBT(865,2,1,"GET")="S DISX(1)=$P($G(^MDD(703.9,D0,0)),U)"
^DIBT(865,2,1,"IX")="^MDD(703.9,""B"",^MDD(703.9,^2"
^DIBT(865,2,1,"QCON")="I DISX(1)'="""""
^DIBT(865,2,1,"SER")="0^0"
^DIBT(865,2,1,"TXT")="NAME not null"
^DIBT(865,2,2,0)="703.92^.02^STATUS^^^^^^^3"
^DIBT(865,2,2,1,0)="^.40141^1^1"
^DIBT(865,2,2,1,1,0)="703.9^2"
^DIBT(865,2,2,1,"B",703.9,1)=""
^DIBT(865,2,2,"F")="Dz^E^E (Error)"
^DIBT(865,2,2,"GET")="S DISX(2)=$P($G(^MDD(703.9,D0,2,D1,0)),U,2)"
^DIBT(865,2,2,"QCON")="I DISX(2)=""E"""
^DIBT(865,2,2,"T")="E^E^E (Error)"
^DIBT(865,2,2,"TXT")="STATUS equals E (Error)"
^DIBT(865,2,"B",703.9,1)=""
^DIBT(865,2,"B",703.92,2)=""
^DIBT(865,"%D",0)="^^1^1^3030919^"
^DIBT(865,"%D",1,0)="Displays a listing of reports in error status"
^DIBT(866,0)="MD CONVERSION TOTALS^3030923.1356^@^703.9^^@^3030923"
^DIBT(866,2,0)="^.4014^2^2"
^DIBT(866,2,1,0)="703.9^.01^NAME^@^^^^^^4"
^DIBT(866,2,1,"GET")="S DISX(1)=$P($G(^MDD(703.9,D0,0)),U)"
^DIBT(866,2,1,"IX")="^MDD(703.9,""B"",^MDD(703.9,^2"
^DIBT(866,2,1,"QCON")="I DISX(1)'="""""
^DIBT(866,2,1,"SER")="0^0"
^DIBT(866,2,1,"TXT")="NAME not null"
^DIBT(866,2,2,0)="703.92^.02^STATUS^+^^^^^^3"
^DIBT(866,2,2,1,0)="^.40141^1^1"
^DIBT(866,2,2,1,1,0)="703.9^2"
^DIBT(866,2,2,1,"B",703.9,1)=""
^DIBT(866,2,2,"F")="CQz^CR^CR (Converted Real Mode)"
^DIBT(866,2,2,"GET")="S DISX(2)=$P($G(^MDD(703.9,D0,2,D1,0)),U,2)"
^DIBT(866,2,2,"QCON")="I (DISX(2)]]""CQz"")&(DISX(2)']]""CT"")"
^DIBT(866,2,2,"T")="CT^CT^CT (Converted Test Mode)"
^DIBT(866,2,2,"TXT")="STATUS from CR (Converted Real Mode) to CT (Converted Test Mode)"
^DIBT(866,2,"B",703.9,1)=""
^DIBT(866,2,"B",703.92,2)=""
^DIBT(867,0)="SDWL30DAY^3061019.1607^@^409.3^^@^3061019"
^DIBT(867,2,0)="^.4014^3^3"
^DIBT(867,2,1,0)="409.3^^INSTITUTION^""2^^^^^^4"
^DIBT(867,2,1,"CM")="S Y(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(867,2,1,"GET")="S Y(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(867,2,1,"IX")="^SDWL(409.3,""C"",^SDWL(409.3,^2"
^DIBT(867,2,1,"PTRIX")="^DIC(4,""B"","
^DIBT(867,2,1,"QCON")="I DISX(1)'="""""
^DIBT(867,2,1,"TXT")="INSTITUTION not null"
^DIBT(867,2,2,0)="409.3^22^DESIRED DATE OF APPOINTMENT^@^^^^^^1"
^DIBT(867,2,2,"ASK")="1"
^DIBT(867,2,2,"F")="3041019.999999^Oct 20,2004^Oct 20,2004"
^DIBT(867,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.3,D0,0)),U,16)"
^DIBT(867,2,2,"QCON")="I (DISX(2)]]3041019.999999)&(DISX(2)']]3080929.24)"
^DIBT(867,2,2,"T")="3080929.24^Sep 29,2008@2400^Sep 29,2008@24:00"
^DIBT(867,2,2,"TXT")="DESIRED DATE OF APPOINTMENT from Oct 20,2004 to Sep 29,2008@24:00"
^DIBT(867,2,3,0)="409.3^23^CURRENT STATUS^@^^^^^^3"
^DIBT(867,2,3,"ASK")="1"
^DIBT(867,2,3,"F")="Nz^O^O (OPEN)"
^DIBT(867,2,3,"GET")="S DISX(3)=$P($G(^SDWL(409.3,D0,0)),U,17)"
^DIBT(867,2,3,"QCON")="I DISX(3)=""O"""
^DIBT(867,2,3,"T")="O^OPEN^O (OPEN)"
^DIBT(867,2,3,"TXT")="CURRENT STATUS equals O (OPEN)"
^DIBT(867,2,"B",409.3,1)=""
^DIBT(867,2,"B",409.3,2)=""
^DIBT(867,2,"B",409.3,3)=""
^DIBT(867,"%D",0)="^.4012^1^1^3061019^^^^"
^DIBT(867,"%D",1,0)="Sort template for 30 day report."
^DIBT(868,0)="SDWLDNR^3060824.1019^@^409.3^^@^3061003"
^DIBT(868,2,0)="^.4014^3^3"
^DIBT(868,2,1,0)="409.3^23^CURRENT STATUS^+@^^^^^^3"
^DIBT(868,2,1,"F")="Bz^C^C (CLOSED)"
^DIBT(868,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.3,D0,0)),U,17)"
^DIBT(868,2,1,"QCON")="I (DISX(1)]]""Bz"")&(DISX(1)']]""O"")"
^DIBT(868,2,1,"SER")="0.2308^0.2308"
^DIBT(868,2,1,"T")="O^O^O (OPEN)"
^DIBT(868,2,1,"TXT")="CURRENT STATUS from C (CLOSED) to O (OPEN)"
^DIBT(868,2,2,0)="409.3^^PATIENT^"".01^^^^^^4"
^DIBT(868,2,2,"ASK")="1"
^DIBT(868,2,2,"CM")="S Y(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X"
^DIBT(868,2,2,"F")="@z^A"
^DIBT(868,2,2,"GET")="S Y(1)=$S($D(^SDWL(409.3,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X"
^DIBT(868,2,2,"IX")="^SDWL(409.3,""B"",^SDWL(409.3,^2"
^DIBT(868,2,2,"PTRIX")="^DPT(""B"","
^DIBT(868,2,2,"QCON")="I (DISX(2)]]""@z"")&(DISX(2)']]""CZ"")"
^DIBT(868,2,2,"SER")="100.0000^1.0000"
^DIBT(868,2,2,"T")="CZ^CZ"
^DIBT(868,2,2,"TXT")="PATIENT from A to CZ"
^DIBT(868,2,3,0)="409.3^1^ORIGINATING DATE^^^^^^^1"
^DIBT(868,2,3,"ASK")="1"
^DIBT(868,2,3,"F")="3031100.999999^Nov 1,2003^Nov 1,2003"
^DIBT(868,2,3,"GET")="S DISX(3)=$P($G(^SDWL(409.3,D0,0)),U,2)"
^DIBT(868,2,3,"QCON")="I (DISX(3)]]3031100.999999)&(DISX(3)']]3060728.24)"
^DIBT(868,2,3,"SER")="0.2308^0.2308"
^DIBT(868,2,3,"T")="3060728.24^Jul 28,2006@2400^Jul 28,2006@24:00"
^DIBT(868,2,3,"TXT")="ORIGINATING DATE from Nov 1,2003 to Jul 28,2006@24:00"
^DIBT(868,2,"B",409.3,1)=""
^DIBT(868,2,"B",409.3,2)=""
^DIBT(868,2,"B",409.3,3)=""
^DIBT(868,"%D",0)="^.4012^1^1^3060824^^^^"
^DIBT(868,"%D",1,0)="Sort template for EWL DO NOT REMOVE report."
^DIBT(869,0)="SDWLWTR^3061020.1418^@^409.3^^@^3061020"
^DIBT(869,2,0)="^.4014^2^2"
^DIBT(869,2,1,0)="409.3^1^ORIGINATING DATE^@^^^^^^1"
^DIBT(869,2,1,"ASK")="1"
^DIBT(869,2,1,"GET")="S DISX(1)=$P($G(^SDWL(409.3,D0,0)),U,2)"
^DIBT(869,2,1,"QCON")="I DISX(1)'="""""
^DIBT(869,2,1,"TXT")="ORIGINATING DATE not null"
^DIBT(869,2,2,0)="409.3^13^SCHEDULED DATE OF APPT^'@^^^^^^1"
^DIBT(869,2,2,"GET")="S DISX(2)=$P($G(^SDWL(409.3,D0,0)),U,23)"
^DIBT(869,2,2,"QCON")="I DISX(2)'="""""
^DIBT(869,2,2,"TXT")="SCHEDULED DATE OF APPT not null"
^DIBT(869,2,"B",409.3,1)=""
^DIBT(869,2,"B",409.3,2)=""
^DIBT(870,0)="SCMC PENDING UNASSIGN^3030717.1001^@^404.43^^@^3040316"
^DIBT(870,2,0)="^.4014^2^2"
^DIBT(870,2,1,0)="404.51^^INSTITUTION^""""#"".07^^^^^^4"
^DIBT(870,2,1,2,0)="^.401418^2^2"
^DIBT(870,2,1,2,1,0)="404.42^200^404.51^SCTM(404.51,^0"
^DIBT(870,2,1,2,1,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S D(0)=+X"
^DIBT(870,2,1,2,2,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(870,2,1,2,2,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(870,2,1,2,"B",404.42,1)=""
^DIBT(870,2,1,2,"B",404.43,2)=""
^DIBT(870,2,1,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(201),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(870,2,1,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(201),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(870,2,1,"QCON")="I DISX(1)'="""""
^DIBT(870,2,1,"TXT")="INSTITUTION not null"
^DIBT(870,2,2,0)="404.42^^PATIENT^@"""".01^^^^^^4"
^DIBT(870,2,2,2,0)="^.401418^1^1"
^DIBT(870,2,2,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(870,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(870,2,2,2,"B",404.43,1)=""
^DIBT(870,2,2,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(870,2,2,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(870,2,2,"QCON")="I DISX(2)'="""""
^DIBT(870,2,2,"TXT")="PATIENT not null"
^DIBT(870,2,"B",404.42,2)=""
^DIBT(870,2,"B",404.51,1)=""
^DIBT(870,"BY0")="UTILITY(""SCMCTSK"",$J,^1"
^DIBT(871,0)="SCMC INCONSISTENT^3030718.0923^@^404.57^^@^3060126"
^DIBT(871,2,0)="^.4014^3^3"
^DIBT(871,2,1,0)="404.51^^INSTITUTION^""#"".07^^^^^^4"
^DIBT(871,2,1,2,0)="^.401418^1^1"
^DIBT(871,2,1,2,1,0)="404.57^100^404.51^SCTM(404.51,^0"
^DIBT(871,2,1,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(871,2,1,2,"B",404.57,1)=""
^DIBT(871,2,1,"CM")="S Y(101)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(101),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(871,2,1,"GET")="S Y(101)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(4,+$P(Y(101),U,7),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X"
^DIBT(871,2,1,"QCON")="I DISX(1)'="""""
^DIBT(871,2,1,"TXT")="INSTITUTION not null"
^DIBT(871,2,2,0)="404.57^^TEAM^"".02^^^^^^4"
^DIBT(871,2,2,"CM")="S Y(1)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$S('$D(^SCTM(404.51,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(871,2,2,"GET")="S Y(1)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$S('$D(^SCTM(404.51,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X"
^DIBT(871,2,2,"IX")="^SCTM(404.57,""C"",^SCTM(404.57,^2"
^DIBT(871,2,2,"PTRIX")="^SCTM(404.51,""B"","
^DIBT(871,2,2,"QCON")="I DISX(2)'="""""
^DIBT(871,2,2,"SER")="0.0104^0.0103"
^DIBT(871,2,2,"TXT")="TEAM not null"
^DIBT(871,2,3,0)="404.57^.01^POSITION^^^^^^^4"
^DIBT(871,2,3,"GET")="S DISX(3)=$P($G(^SCTM(404.57,D0,0)),U)"
^DIBT(871,2,3,"IX")="^SCTM(404.57,""B"",^SCTM(404.57,^2"
^DIBT(871,2,3,"QCON")="I DISX(3)'="""""
^DIBT(871,2,3,"SER")="0^0"
^DIBT(871,2,3,"TXT")="POSITION not null"
^DIBT(871,2,"B",404.51,1)=""
^DIBT(871,2,"B",404.57,2)=""
^DIBT(871,2,"B",404.57,3)=""
^DIBT(871,"BY0")="UTILITY(""SCMCTSK"",$J,^1"
^DIBT(872,0)="SCMC INACTIVATION SORT^3040305.0933^@^404.43^^@^3040504"
^DIBT(872,2,0)="^.4014^2^2"
^DIBT(872,2,1,0)="404.43^.04^POSITION UNASSIGNED DATE^'@^^^^^^1"
^DIBT(872,2,1,"ASK")="1"
^DIBT(872,2,1,"F")="3040402.999999^T-31^Apr 3,2004"
^DIBT(872,2,1,"GET")="S DISX(1)=$P($G(^SCPT(404.43,D0,0)),U,4)"
^DIBT(872,2,1,"QCON")="I (DISX(1)]]3040402.999999)&(DISX(1)']]3040504.24)"
^DIBT(872,2,1,"SER")="0.9794^0.9794"
^DIBT(872,2,1,"T")="3040504.24^T@2400^May 4,2004@24:00"
^DIBT(872,2,1,"TXT")="POSITION UNASSIGNED DATE from Apr 3,2004 to May 4,2004@24:00"
^DIBT(872,2,2,0)="404.43^.12^STATUS^@^^^^^^3"
^DIBT(872,2,2,"GET")="S DISX(2)=$P($G(^SCPT(404.43,D0,0)),U,12)"
^DIBT(872,2,2,"IX")="^SCPT(404.43,""ASTATB"",^SCPT(404.43,^2"
^DIBT(872,2,2,"QCON")="I DISX(2)'="""""
^DIBT(872,2,2,"SER")="0.3857^0.2784"
^DIBT(872,2,2,"TXT")="STATUS not null"
^DIBT(872,2,"B",404.43,1)=""
^DIBT(872,2,"B",404.43,2)=""
^DIBT(873,0)="SCMC EXTENDED^3040315.1711^@^404.43^^@^3040315"
^DIBT(873,2,0)="^.4014^4^4"
^DIBT(873,2,1,0)="404.43^^INTERNAL(EXTEND AUTOMATIC)>0^@""B^;L1^^^^^4"
^DIBT(873,2,1,"CM")="S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S X=X>0 I D0>0 S DISX(1)=X"
^DIBT(873,2,1,"F")="0"
^DIBT(873,2,1,"GET")="S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S X=X>0 I D0>0 S DISX(1)=X"
^DIBT(873,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(873,2,1,"T")="1"
^DIBT(873,2,1,"TXT")="INTERNAL(EXTEND AUTOMATIC)>0"
^DIBT(873,2,2,0)="404.43^.159^SCHEDULED INACTIVATION DATE^@^^^^^^1"
^DIBT(873,2,2,"ASK")="1"
^DIBT(873,2,2,"F")="3030916.999999^Sep 17,2003^Sep 17,2003"
^DIBT(873,2,2,"GET")="D INACTDT^SCMCTSK1(D0) S DISX(2)=X"
^DIBT(873,2,2,"QCON")="I (DISX(2)]]3030916.999999)&(DISX(2)']]3040315.24)"
^DIBT(873,2,2,"T")="3040315.24^Mar 15,2004@2400^Mar 15,2004@24:00"
^DIBT(873,2,2,"TXT")="SCHEDULED INACTIVATION DATE from Sep 17,2003 to Mar 15,2004@24:00"
^DIBT(873,2,3,0)="404.51^^INSTITUTION^""""@"".07^^^^^^4"
^DIBT(873,2,3,2,0)="^.401418^2^2"
^DIBT(873,2,3,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(873,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(873,2,3,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(873,2,3,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(873,2,3,2,"B",404.43,1)=""
^DIBT(873,2,3,2,"B",404.57,2)=""
^DIBT(873,2,3,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(3)=X"
^DIBT(873,2,3,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(3)=X"
^DIBT(873,2,3,"QCON")="I DISX(3)'="""""
^DIBT(873,2,3,"TXT")="INSTITUTION not null"
^DIBT(873,2,4,0)="404.51^.01^NAME^""""@^^^^^^4"
^DIBT(873,2,4,2,0)="^.401418^2^2"
^DIBT(873,2,4,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(873,2,4,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(873,2,4,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(873,2,4,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(873,2,4,2,"B",404.43,1)=""
^DIBT(873,2,4,2,"B",404.57,2)=""
^DIBT(873,2,4,"GET")="S DISX(4)=$P($G(^SCTM(404.51,D0,0)),U)"
^DIBT(873,2,4,"QCON")="I DISX(4)'="""""
^DIBT(873,2,4,"TXT")="NAME not null"
^DIBT(873,2,"B",404.43,1)=""
^DIBT(873,2,"B",404.43,2)=""
^DIBT(873,2,"B",404.51,3)=""
^DIBT(873,2,"B",404.51,4)=""
^DIBT(874,0)="SCMC FLAGGED^3040312.1305^@^404.43^^@^3040416"
^DIBT(874,2,0)="^.4014^4^4"
^DIBT(874,2,1,0)="404.43^.15^DATE FLAGGED FOR INACTIVATION^@'^^^^^^1"
^DIBT(874,2,1,"GET")="S DISX(1)=$P($G(^SCPT(404.43,D0,0)),U,15)"
^DIBT(874,2,1,"IX")="^SCPT(404.43,""AFLG"",^SCPT(404.43,^2"
^DIBT(874,2,1,"QCON")="I DISX(1)'="""""
^DIBT(874,2,1,"SER")="0.3714^0.2708"
^DIBT(874,2,1,"TXT")="DATE FLAGGED FOR INACTIVATION not null"
^DIBT(874,2,2,0)="404.51^^INSTITUTION^""""@"".07^^^^^^4"
^DIBT(874,2,2,2,0)="^.401418^2^2"
^DIBT(874,2,2,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(874,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(874,2,2,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(874,2,2,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(874,2,2,2,"B",404.43,1)=""
^DIBT(874,2,2,2,"B",404.57,2)=""
^DIBT(874,2,2,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(874,2,2,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(874,2,2,"QCON")="I DISX(2)'="""""
^DIBT(874,2,2,"TXT")="INSTITUTION not null"
^DIBT(874,2,3,0)="404.42^^TEAM ASSIGNMENT^""@"".03^^^^^^4"
^DIBT(874,2,3,2,0)="^.401418^1^1"
^DIBT(874,2,3,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(874,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(874,2,3,2,"B",404.43,1)=""
^DIBT(874,2,3,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(874,2,3,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(874,2,3,"QCON")="I DISX(3)'="""""
^DIBT(874,2,3,"TXT")="TEAM ASSIGNMENT not null"
^DIBT(874,2,4,0)="404.42^^PATIENT^""@"".01^^^^^^4"
^DIBT(874,2,4,2,0)="^.401418^1^1"
^DIBT(874,2,4,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(874,2,4,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(874,2,4,2,"B",404.43,1)=""
^DIBT(874,2,4,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(874,2,4,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(874,2,4,"QCON")="I DISX(4)'="""""
^DIBT(874,2,4,"TXT")="PATIENT not null"
^DIBT(874,2,"B",404.42,3)=""
^DIBT(874,2,"B",404.42,4)=""
^DIBT(874,2,"B",404.43,1)=""
^DIBT(874,2,"B",404.51,2)=""
^DIBT(875,0)="SCMC INACTIVATED^3060926.1025^@^404.43^^@^3060926"
^DIBT(875,2,0)="^.4014^6^6"
^DIBT(875,2,1,0)="404.43^.12^STATUS^'^^^^^^3"
^DIBT(875,2,1,"F")="DTz^D^DU (DEATH INACTIVATION)"
^DIBT(875,2,1,"GET")="S DISX(1)=$P($G(^SCPT(404.43,D0,0)),U,12)"
^DIBT(875,2,1,"IX")="^SCPT(404.43,""ASTATB"",^SCPT(404.43,^2"
^DIBT(875,2,1,"QCON")="I (DISX(1)]]""DTz"")&(DISX(1)']]""NA"")"
^DIBT(875,2,1,"T")="NA^N^NA (NO APPT INACTIVATION)"
^DIBT(875,2,1,"TXT")="STATUS from DU (DEATH INACTIVATION) to NA (NO APPT INACTIVATION)"
^DIBT(875,2,2,0)="404.43^.04^POSITION UNASSIGNED DATE^@'^^^^^^1"
^DIBT(875,2,2,"ASK")="1"
^DIBT(875,2,2,"F")="3060618.999999^Jun 19,2006^Jun 19,2006"
^DIBT(875,2,2,"GET")="S DISX(2)=$P($G(^SCPT(404.43,D0,0)),U,4)"
^DIBT(875,2,2,"QCON")="I (DISX(2)]]3060618.999999)&(DISX(2)']]3060719.24)"
^DIBT(875,2,2,"T")="3060719.24^Jul 19,2006@2400^Jul 19,2006@24:00"
^DIBT(875,2,2,"TXT")="POSITION UNASSIGNED DATE from Jun 19,2006 to Jul 19,2006@24:00"
^DIBT(875,2,3,0)="404.57^^TEAM:INSTITUTION^""""^;""Institution: ""^^^^^4"
^DIBT(875,2,3,2,0)="^.401418^1^1"
^DIBT(875,2,3,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(875,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(875,2,3,2,"B",404.43,1)=""
^DIBT(875,2,3,3,0)="^.401419^1^1"
^DIBT(875,2,3,3,1,0)="OVF100^9.2"
^DIBT(875,2,3,3,1,"OVF0")="S I(100,0)=$G(D0),Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:""""),D0=$P(Y(101),U,2) S:'D0!'$D(^SCTM(404.51,+D0,0)) D0=-1 S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""")"
^DIBT(875,2,3,3,"B","OVF100",1)=""
^DIBT(875,2,3,"CM")="X DPP(3,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(3)=X"
^DIBT(875,2,3,"GET")="X DPP(3,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(3)=X"
^DIBT(875,2,3,"QCON")="I DISX(3)'="""""
^DIBT(875,2,3,"TXT")="TEAM:INSTITUTION not null"
^DIBT(875,2,4,0)="404.42^^TEAM ASSIGNMENT^"""".03^^^^^^4"
^DIBT(875,2,4,2,0)="^.401418^1^1"
^DIBT(875,2,4,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(875,2,4,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(875,2,4,2,"B",404.43,1)=""
^DIBT(875,2,4,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(875,2,4,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(875,2,4,"QCON")="I DISX(4)'="""""
^DIBT(875,2,4,"TXT")="TEAM ASSIGNMENT not null"
^DIBT(875,2,5,0)="404.57^304^CURRENT PRACTITIONER^""^^^^^^4"
^DIBT(875,2,5,2,0)="^.401418^1^1"
^DIBT(875,2,5,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(875,2,5,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(875,2,5,2,"B",404.43,1)=""
^DIBT(875,2,5,"F")="?z^@"
^DIBT(875,2,5,"GET")="S X=$P($$GETPRTP^SCAPMCU2(D0,DT),U,2) S DISX(5)=X"
^DIBT(875,2,5,"QCON")="I 1"
^DIBT(875,2,5,"T")="z^"
^DIBT(875,2,5,"TXT")="All CURRENT PRACTITIONER (includes nulls)"
^DIBT(875,2,6,0)="404.42^^PATIENT^"""".01^^^^^^4"
^DIBT(875,2,6,2,0)="^.401418^1^1"
^DIBT(875,2,6,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(875,2,6,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(875,2,6,2,"B",404.43,1)=""
^DIBT(875,2,6,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(6)=X"
^DIBT(875,2,6,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(6)=X"
^DIBT(875,2,6,"QCON")="I DISX(6)'="""""
^DIBT(875,2,6,"TXT")="PATIENT not null"
^DIBT(875,2,"B",404.42,4)=""
^DIBT(875,2,"B",404.42,6)=""
^DIBT(875,2,"B",404.43,1)=""
^DIBT(875,2,"B",404.43,2)=""
^DIBT(875,2,"B",404.57,3)=""
^DIBT(875,2,"B",404.57,5)=""
^DIBT(875,"%D",0)="^.4012^1^1^3060926^^^^"
^DIBT(875,"%D",1,0)="Patient inactivated automatically."
^DIBT(876,0)="SC PROVIDER FLAGGED^3040408.115^@^404.52^^@^3050824"
^DIBT(876,2,0)="^.4014^4^4"
^DIBT(876,2,1,0)="404.52^.091^DATE FLAGGED FOR INACTIVATION^'@^^^^^^1"
^DIBT(876,2,1,"GET")="S DISX(1)=$P($G(^SCTM(404.52,D0,0)),U,10)"
^DIBT(876,2,1,"IX")="^SCTM(404.52,""AFLAG"",^SCTM(404.52,^2"
^DIBT(876,2,1,"QCON")="I DISX(1)'="""""
^DIBT(876,2,1,"SER")="100.0000^1.0000"
^DIBT(876,2,1,"TXT")="DATE FLAGGED FOR INACTIVATION not null"
^DIBT(876,2,2,0)="404.51^^INSTITUTION^"""""".07^^^^^^4"
^DIBT(876,2,2,2,0)="^.401418^2^2"
^DIBT(876,2,2,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(876,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(876,2,2,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(876,2,2,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(876,2,2,2,"B",404.52,1)=""
^DIBT(876,2,2,2,"B",404.57,2)=""
^DIBT(876,2,2,"ASK")="1"
^DIBT(876,2,2,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(876,2,2,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(876,2,2,"QCON")="I DISX(2)'="""""
^DIBT(876,2,2,"TXT")="INSTITUTION not null"
^DIBT(876,2,3,0)="404.57^^TEAM^"""".02^^^^^^4"
^DIBT(876,2,3,2,0)="^.401418^1^1"
^DIBT(876,2,3,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(876,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(876,2,3,2,"B",404.52,1)=""
^DIBT(876,2,3,"CM")="S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(876,2,3,"GET")="S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(876,2,3,"QCON")="I DISX(3)'="""""
^DIBT(876,2,3,"TXT")="TEAM not null"
^DIBT(876,2,4,0)="404.52^^PRACTITIONER^"".03^^^^^^4"
^DIBT(876,2,4,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(876,2,4,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(876,2,4,"IX")="^SCTM(404.52,""C"",^SCTM(404.52,^2"
^DIBT(876,2,4,"PTRIX")="^VA(200,""B"","
^DIBT(876,2,4,"QCON")="I DISX(4)'="""""
^DIBT(876,2,4,"SER")="0.0000^0.0000"
^DIBT(876,2,4,"TXT")="PRACTITIONER not null"
^DIBT(876,2,"B",404.51,2)=""
^DIBT(876,2,"B",404.52,1)=""
^DIBT(876,2,"B",404.52,4)=""
^DIBT(876,2,"B",404.57,3)=""
^DIBT(877,0)="SCMC EXTENDED BY TEAM^3040120.0745^@^404.43^^@^3040121"
^DIBT(877,2,0)="^.4014^3^1"
^DIBT(877,2,3,0)="404.42^^PATIENT^""@"".01^^^^^^4"
^DIBT(877,2,3,2,0)="^.401418^1^1"
^DIBT(877,2,3,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(877,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(877,2,3,2,"B",404.43,1)=""
^DIBT(877,2,3,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(877,2,3,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(877,2,3,"QCON")="I DISX(3)'="""""
^DIBT(877,2,3,"TXT")="PATIENT not null"
^DIBT(877,2,"B",404.42,3)=""
^DIBT(877,"BY0")="TMP(""SCSORT"",$J,^3"
^DIBT(877,"BY0D",0)="^.4011624^2^2"
^DIBT(877,"BY0D",1,0)="1"
^DIBT(877,"BY0D",1,1)="#^;""Institution: """
^DIBT(877,"BY0D",2,0)="2"
^DIBT(877,"BY0D",2,1)="^;""Team: """
^DIBT(878,0)="SCMC EXTENDED BY CLINIC^3040120.0622^@^404.43^^@^3040121"
^DIBT(878,2,0)="^.4014^3^1"
^DIBT(878,2,3,0)="404.42^^PATIENT^""@"".01^^^^^^4"
^DIBT(878,2,3,2,0)="^.401418^1^1"
^DIBT(878,2,3,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(878,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(878,2,3,2,"B",404.43,1)=""
^DIBT(878,2,3,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(878,2,3,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(878,2,3,"QCON")="I DISX(3)'="""""
^DIBT(878,2,3,"TXT")="PATIENT not null"
^DIBT(878,2,"B",404.42,3)=""
^DIBT(878,"BY0")="TMP(""SCSORT"",$J,^3"
^DIBT(878,"BY0D",0)="^.4011624^2^2"
^DIBT(878,"BY0D",1,0)="1"
^DIBT(878,"BY0D",1,1)="#^;""Institution: """
^DIBT(878,"BY0D",2,0)="2"
^DIBT(878,"BY0D",2,1)="^;""Clinic: """
^DIBT(879,0)="SCMC INACTIVATION BY TEAM^3040121.0939^@^404.43^^@^3040121"
^DIBT(879,2,0)="^.4014^3^1"
^DIBT(879,2,3,0)="404.42^^PATIENT^""@"".01^^^^^^4"
^DIBT(879,2,3,2,0)="^.401418^1^1"
^DIBT(879,2,3,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(879,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(879,2,3,2,"B",404.43,1)=""
^DIBT(879,2,3,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(879,2,3,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(879,2,3,"QCON")="I DISX(3)'="""""
^DIBT(879,2,3,"TXT")="PATIENT not null"
^DIBT(879,2,"B",404.42,3)=""
^DIBT(879,"BY0")="TMP(""SCSORT"",$J,^3"
^DIBT(879,"BY0D",0)="^.4011624^2^2"
^DIBT(879,"BY0D",1,0)="1"
^DIBT(879,"BY0D",1,1)="#^;""Institution: """
^DIBT(879,"BY0D",2,0)="2"
^DIBT(879,"BY0D",2,1)="^;""Team: """
^DIBT(880,0)="SCMC INACTIVATION BY CLINIC^3040121.0939^@^404.43^^@^3040121"
^DIBT(880,2,0)="^.4014^3^1"
^DIBT(880,2,3,0)="404.42^^PATIENT^""@"".01^^^^^^4"
^DIBT(880,2,3,2,0)="^.401418^1^1"
^DIBT(880,2,3,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(880,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(880,2,3,2,"B",404.43,1)=""
^DIBT(880,2,3,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(880,2,3,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(880,2,3,"QCON")="I DISX(3)'="""""
^DIBT(880,2,3,"TXT")="PATIENT not null"
^DIBT(880,2,"B",404.42,3)=""
^DIBT(880,"BY0")="TMP(""SCSORT"",$J,^3"
^DIBT(880,"BY0D",0)="^.4011624^2^2"
^DIBT(880,"BY0D",1,0)="1"
^DIBT(880,"BY0D",1,1)="#^;""Institution: """
^DIBT(880,"BY0D",2,0)="2"
^DIBT(880,"BY0D",2,1)="^;""Clinic: """
^DIBT(881,0)="SCMC FLAGGED BY TEAM^3040121.1454^@^404.43^^@^3040121"
^DIBT(881,2,0)="^.4014^4^2"
^DIBT(881,2,3,0)="404.43^.159^SCHEDULED INACTIVATION DATE^@^^^^^^1"
^DIBT(881,2,3,"GET")="D INACTDT^SCMCTSK1(D0) S DISX(3)=X"
^DIBT(881,2,3,"QCON")="I DISX(3)'="""""
^DIBT(881,2,3,"SER")="0.6667^0.6667"
^DIBT(881,2,3,"TXT")="SCHEDULED INACTIVATION DATE not null"
^DIBT(881,2,4,0)="404.43^^PATIENT TEAM ASSIGNMENT^@"".01^^^^^^4"
^DIBT(881,2,4,3,0)="^.401419^1^1"
^DIBT(881,2,4,3,1,0)="OVF0^9.2"
^DIBT(881,2,4,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^SCPT(404.42,+D0,0)) D0=-1 S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""")"
^DIBT(881,2,4,3,"B","OVF0",1)=""
^DIBT(881,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(881,2,4,"GET")="X DPP(4,""OVF0"",9.2) S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(881,2,4,"QCON")="I DISX(4)'="""""
^DIBT(881,2,4,"TXT")="PATIENT TEAM ASSIGNMENT not null"
^DIBT(881,2,"B",404.43,3)=""
^DIBT(881,2,"B",404.43,4)=""
^DIBT(881,"BY0")="TMP(""SCSORT"",$J,^3"
^DIBT(881,"BY0D",0)="^.4011624^2^2"
^DIBT(881,"BY0D",1,0)="1"
^DIBT(881,"BY0D",1,1)="#^;""Institution: """
^DIBT(881,"BY0D",2,0)="2"
^DIBT(881,"BY0D",2,1)="^;""Team: """
^DIBT(882,0)="SCMC FLAGGED BY CLINIC^3040121.1541^@^404.43^^@^3040204"
^DIBT(882,2,0)="^.4014^4^2"
^DIBT(882,2,3,0)="404.43^.159^SCHEDULED INACTIVATION DATE^@^^^^^^1"
^DIBT(882,2,3,"GET")="D INACTDT^SCMCTSK1(D0) S DISX(3)=X"
^DIBT(882,2,3,"QCON")="I DISX(3)'="""""
^DIBT(882,2,3,"SER")="0.6739^0.6739"
^DIBT(882,2,3,"TXT")="SCHEDULED INACTIVATION DATE not null"
^DIBT(882,2,4,0)="404.43^^PATIENT TEAM ASSIGNMENT^@"".01^^^^^^4"
^DIBT(882,2,4,3,0)="^.401419^1^1"
^DIBT(882,2,4,3,1,0)="OVF0^9.2"
^DIBT(882,2,4,3,1,"OVF0")="S I(0,0)=$G(D0),Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^SCPT(404.42,+D0,0)) D0=-1 S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""")"
^DIBT(882,2,4,3,"B","OVF0",1)=""
^DIBT(882,2,4,"CM")="X DPP(4,""OVF0"",9.2) S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(882,2,4,"GET")="X DPP(4,""OVF0"",9.2) S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) S D0=I(0,0) I D0>0 S DISX(4)=X"
^DIBT(882,2,4,"QCON")="I DISX(4)'="""""
^DIBT(882,2,4,"TXT")="PATIENT TEAM ASSIGNMENT not null"
^DIBT(882,2,"B",404.43,3)=""
^DIBT(882,2,"B",404.43,4)=""
^DIBT(882,"BY0")="TMP(""SCSORT"",$J,^3"
^DIBT(882,"BY0D",0)="^.4011624^2^2"
^DIBT(882,"BY0D",1,0)="1"
^DIBT(882,"BY0D",1,1)="#^;""Institution: """
^DIBT(882,"BY0D",2,0)="2"
^DIBT(882,"BY0D",2,1)="^;""Clinic: """
^DIBT(883,0)="SCMC PROVIDER INACTIVATED^3040316.1042^@^404.52^^@^3050615"
^DIBT(883,2,0)="^.4014^4^4"
^DIBT(883,2,1,0)="404.52^.11^INACTIVATED AUTOMATICALLY^^^^^^^3"
^DIBT(883,2,1,"GET")="S DISX(1)=$P($G(^SCTM(404.52,D0,0)),U,11)"
^DIBT(883,2,1,"QCON")="I DISX(1)'="""""
^DIBT(883,2,1,"SER")="0.8300^0.8300"
^DIBT(883,2,1,"TXT")="INACTIVATED AUTOMATICALLY not null"
^DIBT(883,2,2,0)="404.57^^TEAM:INST^""""^^^^^^4"
^DIBT(883,2,2,2,0)="^.401418^1^1"
^DIBT(883,2,2,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(883,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(883,2,2,2,"B",404.52,1)=""
^DIBT(883,2,2,3,0)="^.401419^1^1"
^DIBT(883,2,2,3,1,0)="OVF100^9.2"
^DIBT(883,2,2,3,1,"OVF0")="S I(100,0)=$G(D0),Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:""""),D0=$P(Y(101),U,2) S:'D0!'$D(^SCTM(404.51,+D0,0)) D0=-1 S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""")"
^DIBT(883,2,2,3,"B","OVF100",1)=""
^DIBT(883,2,2,"CM")="X DPP(2,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(2)=X"
^DIBT(883,2,2,"GET")="X DPP(2,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(2)=X"
^DIBT(883,2,2,"QCON")="I DISX(2)'="""""
^DIBT(883,2,2,"TXT")="TEAM:INST not null"
^DIBT(883,2,3,0)="404.52^^PRACTITIONER^"".03^^^^^^4"
^DIBT(883,2,3,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(883,2,3,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(883,2,3,"IX")="^SCTM(404.52,""C"",^SCTM(404.52,^2"
^DIBT(883,2,3,"PTRIX")="^VA(200,""B"","
^DIBT(883,2,3,"QCON")="I DISX(3)'="""""
^DIBT(883,2,3,"SER")="0.0000^0.0000"
^DIBT(883,2,3,"TXT")="PRACTITIONER not null"
^DIBT(883,2,4,0)="404.52^^TEAM POSITION^"".01^^^^^^4"
^DIBT(883,2,4,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(883,2,4,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(883,2,4,"IX")="^SCTM(404.52,""B"",^SCTM(404.52,^2"
^DIBT(883,2,4,"PTRIX")="^SCTM(404.57,""B"","
^DIBT(883,2,4,"QCON")="I DISX(4)'="""""
^DIBT(883,2,4,"SER")="0.0300^0.0300"
^DIBT(883,2,4,"TXT")="TEAM POSITION not null"
^DIBT(883,2,"B",404.52,1)=""
^DIBT(883,2,"B",404.52,3)=""
^DIBT(883,2,"B",404.52,4)=""
^DIBT(883,2,"B",404.57,2)=""
^DIBT(884,0)="SCMC EXTENDED BULLETIN^3040305.0808^@^404.43^^@^3050615"
^DIBT(884,2,0)="^.4014^6^6"
^DIBT(884,2,1,0)="404.43^^INTERNAL(EXTEND AUTOMATIC)>0^@""B^;L1^^^^^4"
^DIBT(884,2,1,"CM")="S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S X=X>0 I D0>0 S DISX(1)=X"
^DIBT(884,2,1,"F")="0"
^DIBT(884,2,1,"GET")="S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S X=X>0 I D0>0 S DISX(1)=X"
^DIBT(884,2,1,"QCON")="I (DISX(1)]]0)&(DISX(1)']]1)"
^DIBT(884,2,1,"T")="1"
^DIBT(884,2,1,"TXT")="INTERNAL(EXTEND AUTOMATIC)>0"
^DIBT(884,2,2,0)="404.43^.15^DATE FLAGGED FOR INACIVATION^'@^^^^^^1"
^DIBT(884,2,2,"GET")="S DISX(2)=$P($G(^SCPT(404.43,D0,0)),U,15)"
^DIBT(884,2,2,"IX")="^SCPT(404.43,""AFLG"",^SCPT(404.43,^2"
^DIBT(884,2,2,"QCON")="I DISX(2)'="""""
^DIBT(884,2,2,"SER")="100.0000^1.0000"
^DIBT(884,2,2,"TXT")="DATE FLAGGED FOR INACIVATION not null"
^DIBT(884,2,3,0)="404.57^^TEAM:INSTITUTION^""#""^;""Institution: ""^^^^^4"
^DIBT(884,2,3,2,0)="^.401418^1^1"
^DIBT(884,2,3,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(884,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(884,2,3,2,"B",404.43,1)=""
^DIBT(884,2,3,3,0)="^.401419^1^1"
^DIBT(884,2,3,3,1,0)="OVF100^9.2"
^DIBT(884,2,3,3,1,"OVF0")="S I(100,0)=$G(D0),Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:""""),D0=$P(Y(101),U,2) S:'D0!'$D(^SCTM(404.51,+D0,0)) D0=-1 S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""")"
^DIBT(884,2,3,3,"B","OVF100",1)=""
^DIBT(884,2,3,"CM")="X DPP(3,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(3)=X"
^DIBT(884,2,3,"GET")="X DPP(3,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(3)=X"
^DIBT(884,2,3,"QCON")="I DISX(3)'="""""
^DIBT(884,2,3,"TXT")="TEAM:INSTITUTION not null"
^DIBT(884,2,4,0)="404.57^^TEAM^"""".02^^^^^^4"
^DIBT(884,2,4,2,0)="^.401418^1^1"
^DIBT(884,2,4,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(884,2,4,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(884,2,4,2,"B",404.43,1)=""
^DIBT(884,2,4,"CM")="S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(4)=X"
^DIBT(884,2,4,"GET")="S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(4)=X"
^DIBT(884,2,4,"QCON")="I DISX(4)'="""""
^DIBT(884,2,4,"TXT")="TEAM not null"
^DIBT(884,2,5,0)="404.57^304^CURRENT PRACTITIONER^""^^^^^^4"
^DIBT(884,2,5,2,0)="^.401418^1^1"
^DIBT(884,2,5,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(884,2,5,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(884,2,5,2,"B",404.43,1)=""
^DIBT(884,2,5,"F")="?z^@"
^DIBT(884,2,5,"GET")="S X=$P($$GETPRTP^SCAPMCU2(D0,DT),U,2) S DISX(5)=X"
^DIBT(884,2,5,"QCON")="I 1"
^DIBT(884,2,5,"T")="z^"
^DIBT(884,2,5,"TXT")="All CURRENT PRACTITIONER (includes nulls)"
^DIBT(884,2,6,0)="404.42^^PATIENT^"""".01^^^^^^4"
^DIBT(884,2,6,2,0)="^.401418^1^1"
^DIBT(884,2,6,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(884,2,6,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(884,2,6,2,"B",404.43,1)=""
^DIBT(884,2,6,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(6)=X"
^DIBT(884,2,6,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(6)=X"
^DIBT(884,2,6,"QCON")="I DISX(6)'="""""
^DIBT(884,2,6,"TXT")="PATIENT not null"
^DIBT(884,2,"B",404.42,6)=""
^DIBT(884,2,"B",404.43,1)=""
^DIBT(884,2,"B",404.43,2)=""
^DIBT(884,2,"B",404.57,3)=""
^DIBT(884,2,"B",404.57,4)=""
^DIBT(884,2,"B",404.57,5)=""
^DIBT(884,"%D",0)="^.4012^1^1^3040305^^^^"
^DIBT(884,"%D",1,0)="Patients with extended inactivations"
^DIBT(885,0)="SCMC FLAGGED BULLETIN^3040330.0931^@^404.43^^@^3060502"
^DIBT(885,2,0)="^.4014^4^4"
^DIBT(885,2,1,0)="404.43^.15^DATE FLAGGED FOR INACTIVATION^@'^^^^^^1"
^DIBT(885,2,1,"GET")="S DISX(1)=$P($G(^SCPT(404.43,D0,0)),U,15)"
^DIBT(885,2,1,"IX")="^SCPT(404.43,""AFLG"",^SCPT(404.43,^2"
^DIBT(885,2,1,"QCON")="I DISX(1)'="""""
^DIBT(885,2,1,"SER")="100.0000^1.0000"
^DIBT(885,2,1,"TXT")="DATE FLAGGED FOR INACTIVATION not null"
^DIBT(885,2,2,0)="404.51^^INSTITUTION^""""@"".07^^^^^^4"
^DIBT(885,2,2,2,0)="^.401418^2^2"
^DIBT(885,2,2,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(885,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(885,2,2,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(885,2,2,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(885,2,2,2,"B",404.43,1)=""
^DIBT(885,2,2,2,"B",404.57,2)=""
^DIBT(885,2,2,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(885,2,2,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(885,2,2,"QCON")="I DISX(2)'="""""
^DIBT(885,2,2,"TXT")="INSTITUTION not null"
^DIBT(885,2,3,0)="404.42^^TEAM ASSIGNMENT^""@"".03^^^^^^4"
^DIBT(885,2,3,2,0)="^.401418^1^1"
^DIBT(885,2,3,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(885,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(885,2,3,2,"B",404.43,1)=""
^DIBT(885,2,3,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(885,2,3,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(885,2,3,"QCON")="I DISX(3)'="""""
^DIBT(885,2,3,"TXT")="TEAM ASSIGNMENT not null"
^DIBT(885,2,4,0)="404.42^^PATIENT^""@"".01^^^^^^4"
^DIBT(885,2,4,2,0)="^.401418^1^1"
^DIBT(885,2,4,2,1,0)="404.43^100^404.42^SCPT(404.42,^0"
^DIBT(885,2,4,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(885,2,4,2,"B",404.43,1)=""
^DIBT(885,2,4,"CM")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(885,2,4,"GET")="S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"""") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(885,2,4,"QCON")="I DISX(4)'="""""
^DIBT(885,2,4,"TXT")="PATIENT not null"
^DIBT(885,2,"B",404.42,3)=""
^DIBT(885,2,"B",404.42,4)=""
^DIBT(885,2,"B",404.43,1)=""
^DIBT(885,2,"B",404.51,2)=""
^DIBT(886,0)="SC PROVIDER FLAGGED BULLE^3040330.1048^@^404.52^^@^3050615"
^DIBT(886,2,0)="^.4014^4^4"
^DIBT(886,2,1,0)="404.52^.091^DATE FLAGGED FOR INACTIVATION^@^^^^^^1"
^DIBT(886,2,1,"GET")="S DISX(1)=$P($G(^SCTM(404.52,D0,0)),U,10)"
^DIBT(886,2,1,"IX")="^SCTM(404.52,""AFLAG"",^SCTM(404.52,^2"
^DIBT(886,2,1,"QCON")="I DISX(1)'="""""
^DIBT(886,2,1,"SER")="100.0000^1.0000"
^DIBT(886,2,1,"TXT")="DATE FLAGGED FOR INACTIVATION not null"
^DIBT(886,2,2,0)="404.51^^INSTITUTION^""""@"".07^^^^^^4"
^DIBT(886,2,2,2,0)="^.401418^2^2"
^DIBT(886,2,2,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(886,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(886,2,2,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(886,2,2,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(886,2,2,2,"B",404.52,1)=""
^DIBT(886,2,2,2,"B",404.57,2)=""
^DIBT(886,2,2,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(886,2,2,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(886,2,2,"QCON")="I DISX(2)'="""""
^DIBT(886,2,2,"TXT")="INSTITUTION not null"
^DIBT(886,2,3,0)="404.52^^TEAM POSITION^@"".01^^^^^^4"
^DIBT(886,2,3,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(886,2,3,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(886,2,3,"IX")="^SCTM(404.52,""B"",^SCTM(404.52,^2"
^DIBT(886,2,3,"PTRIX")="^SCTM(404.57,""B"","
^DIBT(886,2,3,"QCON")="I DISX(3)'="""""
^DIBT(886,2,3,"SER")="0.0300^0.0300"
^DIBT(886,2,3,"TXT")="TEAM POSITION not null"
^DIBT(886,2,4,0)="404.52^^PRACTITIONER^@"".03^^^^^^4"
^DIBT(886,2,4,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(886,2,4,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(886,2,4,"IX")="^SCTM(404.52,""C"",^SCTM(404.52,^2"
^DIBT(886,2,4,"PTRIX")="^VA(200,""B"","
^DIBT(886,2,4,"QCON")="I DISX(4)'="""""
^DIBT(886,2,4,"SER")="0.0000^0.0000"
^DIBT(886,2,4,"TXT")="PRACTITIONER not null"
^DIBT(886,2,"B",404.51,2)=""
^DIBT(886,2,"B",404.52,1)=""
^DIBT(886,2,"B",404.52,3)=""
^DIBT(886,2,"B",404.52,4)=""
^DIBT(887,0)="SC INACTIVATED^3040520.0745^@^404.52^^@^3050922"
^DIBT(887,2,0)="^.4014^4^4"
^DIBT(887,2,1,0)="404.52^.11^INACTIVATED AUTOMATICALLY^@^^^^^^3"
^DIBT(887,2,1,"GET")="S DISX(1)=$P($G(^SCTM(404.52,D0,0)),U,11)"
^DIBT(887,2,1,"QCON")="I DISX(1)'="""""
^DIBT(887,2,1,"SER")="0.8300^0.8300"
^DIBT(887,2,1,"TXT")="INACTIVATED AUTOMATICALLY not null"
^DIBT(887,2,2,0)="404.57^^TEAM:INST^""+#""^;""INSTITUTION: ""^^^^^4"
^DIBT(887,2,2,2,0)="^.401418^1^1"
^DIBT(887,2,2,2,1,0)="404.52^100^404.57^SCTM(404.57,^0"
^DIBT(887,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X"
^DIBT(887,2,2,2,"B",404.52,1)=""
^DIBT(887,2,2,3,0)="^.401419^1^1"
^DIBT(887,2,2,3,1,0)="OVF100^9.2"
^DIBT(887,2,2,3,1,"OVF0")="S I(100,0)=$G(D0),Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:""""),D0=$P(Y(101),U,2) S:'D0!'$D(^SCTM(404.51,+D0,0)) D0=-1 S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""")"
^DIBT(887,2,2,3,"B","OVF100",1)=""
^DIBT(887,2,2,"ASK")="1"
^DIBT(887,2,2,"CM")="X DPP(2,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(2)=X"
^DIBT(887,2,2,"GET")="X DPP(2,""OVF100"",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(2)=X"
^DIBT(887,2,2,"QCON")="I DISX(2)'="""""
^DIBT(887,2,2,"TXT")="TEAM:INST not null"
^DIBT(887,2,3,0)="404.52^^PRACTITIONER^"".03^^^^^^4"
^DIBT(887,2,3,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(887,2,3,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(3)=X"
^DIBT(887,2,3,"IX")="^SCTM(404.52,""C"",^SCTM(404.52,^2"
^DIBT(887,2,3,"PTRIX")="^VA(200,""B"","
^DIBT(887,2,3,"QCON")="I DISX(3)'="""""
^DIBT(887,2,3,"SER")="0.0000^0.0000"
^DIBT(887,2,3,"TXT")="PRACTITIONER not null"
^DIBT(887,2,4,0)="404.52^^TEAM POSITION^"".01^^^^^^4"
^DIBT(887,2,4,"CM")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(887,2,4,"GET")="S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X"
^DIBT(887,2,4,"IX")="^SCTM(404.52,""B"",^SCTM(404.52,^2"
^DIBT(887,2,4,"PTRIX")="^SCTM(404.57,""B"","
^DIBT(887,2,4,"QCON")="I DISX(4)'="""""
^DIBT(887,2,4,"SER")="0.0300^0.0300"
^DIBT(887,2,4,"TXT")="TEAM POSITION not null"
^DIBT(887,2,"B",404.52,1)=""
^DIBT(887,2,"B",404.52,3)=""
^DIBT(887,2,"B",404.52,4)=""
^DIBT(887,2,"B",404.57,2)=""
^DIBT(888,0)="SCMC TOBE INACTIVATED^3051219.1035^@^404.43^^@^3051219"
^DIBT(888,2,0)="^.4014^3^3"
^DIBT(888,2,1,0)="404.43^.159^SCHEDULED INACTIVATION DATE^@^^^^^^1"
^DIBT(888,2,1,"F")="3051218.999999^TODAY^Dec 19,2005"
^DIBT(888,2,1,"GET")="D INACTDT^SCMCTSK1(D0) S DISX(1)=X"
^DIBT(888,2,1,"QCON")="I (DISX(1)]]3051218.999999)&(DISX(1)']]3060217.24)"
^DIBT(888,2,1,"SER")="1.0000^1.0000"
^DIBT(888,2,1,"T")="3060217.24^TODAY+60@2400^Feb 17,2006@24:00"
^DIBT(888,2,1,"TXT")="SCHEDULED INACTIVATION DATE from Dec 19,2005 to Feb 17,2006@24:00"
^DIBT(888,2,2,0)="404.51^^INSTITUTION^""""@"".07^^^^^^4"
^DIBT(888,2,2,2,0)="^.401418^2^2"
^DIBT(888,2,2,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(888,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(888,2,2,2,2,0)="404.57^200^404.51^SCTM(404.51,^0"
^DIBT(888,2,2,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S D(0)=+X"
^DIBT(888,2,2,2,"B",404.43,1)=""
^DIBT(888,2,2,2,"B",404.57,2)=""
^DIBT(888,2,2,"CM")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(888,2,2,"GET")="S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"""") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X"
^DIBT(888,2,2,"QCON")="I DISX(2)'="""""
^DIBT(888,2,2,"TXT")="INSTITUTION not null"
^DIBT(888,2,3,0)="404.57^^TEAM^""@"".02^^^^^^4"
^DIBT(888,2,3,2,0)="^.401418^1^1"
^DIBT(888,2,3,2,1,0)="404.43^100^404.57^SCTM(404.57,^0"
^DIBT(888,2,3,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(888,2,3,2,"B",404.43,1)=""
^DIBT(888,2,3,"CM")="S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(888,2,3,"GET")="S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(888,2,3,"QCON")="I DISX(3)'="""""
^DIBT(888,2,3,"TXT")="TEAM not null"
^DIBT(888,2,"B",404.43,1)=""
^DIBT(888,2,"B",404.51,2)=""
^DIBT(888,2,"B",404.57,3)=""
^DIBT(888,"%D",0)="^.4012^1^1^3051219^^^^"
^DIBT(888,"%D",1,0)="Sort by date flagged by inactivation (t to t+60), institution, and team."
^DIBT(889,0)="ROGER^3070124.0912^@^4^1^@^3070124"
^DIBT(889,1,2276)=""
^DIBT(889,1,2277)=""
^DIBT(889,1,2278)=""
^DIBT(889,1,2279)=""
^DIBT(889,1,2280)=""
^DIBT(889,1,2281)=""
^DIBT(889,1,2282)=""
^DIBT(889,1,2283)=""
^DIBT(889,1,2284)=""
^DIBT(889,1,2285)=""
^DIBT(889,1,2286)=""
^DIBT(889,1,2287)=""
^DIBT(889,1,2288)=""
^DIBT(889,1,2289)=""
^DIBT(889,1,2290)=""
^DIBT(889,1,2291)=""
^DIBT(889,1,2292)=""
^DIBT(889,1,2293)=""
^DIBT(889,1,2294)=""
^DIBT(889,1,2295)=""
^DIBT(889,1,2296)=""
^DIBT(889,1,2297)=""
^DIBT(889,1,2298)=""
^DIBT(889,1,2299)=""
^DIBT(889,1,2300)=""
^DIBT(889,1,2301)=""
^DIBT(889,1,2302)=""
^DIBT(889,1,2303)=""
^DIBT(889,1,2304)=""
^DIBT(889,1,2305)=""
^DIBT(889,1,2306)=""
^DIBT(889,1,2307)=""
^DIBT(889,1,2308)=""
^DIBT(889,1,2309)=""
^DIBT(889,1,2310)=""
^DIBT(889,1,2311)=""
^DIBT(889,1,2312)=""
^DIBT(889,1,2313)=""
^DIBT(889,1,2314)=""
^DIBT(889,1,2315)=""
^DIBT(889,1,2316)=""
^DIBT(889,1,2317)=""
^DIBT(889,1,2318)=""
^DIBT(889,1,2319)=""
^DIBT(889,1,2320)=""
^DIBT(889,1,2321)=""
^DIBT(889,1,2322)=""
^DIBT(889,1,2323)=""
^DIBT(889,1,2324)=""
^DIBT(889,1,2325)=""
^DIBT(889,1,2326)=""
^DIBT(889,1,2327)=""
^DIBT(889,1,2328)=""
^DIBT(889,1,2329)=""
^DIBT(889,1,2330)=""
^DIBT(889,1,2331)=""
^DIBT(889,1,2332)=""
^DIBT(889,1,2333)=""
^DIBT(889,1,2334)=""
^DIBT(889,1,2335)=""
^DIBT(889,1,2336)=""
^DIBT(889,1,2337)=""
^DIBT(889,1,2338)=""
^DIBT(889,1,2339)=""
^DIBT(889,1,2340)=""
^DIBT(889,1,2341)=""
^DIBT(889,1,2342)=""
^DIBT(889,1,2343)=""
^DIBT(889,1,2344)=""
^DIBT(889,1,2345)=""
^DIBT(889,1,2346)=""
^DIBT(889,1,2347)=""
^DIBT(889,1,2348)=""
^DIBT(889,1,2349)=""
^DIBT(889,1,2350)=""
^DIBT(889,1,2351)=""
^DIBT(889,1,2352)=""
^DIBT(889,1,2353)=""
^DIBT(889,1,2354)=""
^DIBT(889,1,2355)=""
^DIBT(889,1,2356)=""
^DIBT(889,1,2357)=""
^DIBT(889,1,2358)=""
^DIBT(889,1,2359)=""
^DIBT(889,1,2360)=""
^DIBT(889,1,2361)=""
^DIBT(889,1,2362)=""
^DIBT(889,1,2363)=""
^DIBT(889,1,2364)=""
^DIBT(889,1,2365)=""
^DIBT(889,1,2366)=""
^DIBT(889,1,2367)=""
^DIBT(889,1,2368)=""
^DIBT(889,1,2369)=""
^DIBT(889,1,2370)=""
^DIBT(889,1,2371)=""
^DIBT(889,1,2372)=""
^DIBT(889,1,2373)=""
^DIBT(889,1,2374)=""
^DIBT(889,1,2375)=""
^DIBT(889,1,2376)=""
^DIBT(889,1,2377)=""
^DIBT(889,1,2378)=""
^DIBT(889,1,2379)=""
^DIBT(889,1,2380)=""
^DIBT(889,1,2381)=""
^DIBT(889,1,2382)=""
^DIBT(889,1,2383)=""
^DIBT(889,1,2384)=""
^DIBT(889,1,2385)=""
^DIBT(889,1,2386)=""
^DIBT(889,1,2387)=""
^DIBT(889,1,2388)=""
^DIBT(889,1,2389)=""
^DIBT(889,1,2390)=""
^DIBT(889,1,2391)=""
^DIBT(889,1,2392)=""
^DIBT(889,1,2393)=""
^DIBT(889,1,2394)=""
^DIBT(889,1,2395)=""
^DIBT(889,1,2396)=""
^DIBT(889,1,2397)=""
^DIBT(889,1,2398)=""
^DIBT(889,1,2399)=""
^DIBT(889,1,2400)=""
^DIBT(889,1,2401)=""
^DIBT(889,1,2402)=""
^DIBT(889,1,2403)=""
^DIBT(889,1,2404)=""
^DIBT(889,1,2405)=""
^DIBT(889,1,2406)=""
^DIBT(889,1,2407)=""
^DIBT(889,1,2408)=""
^DIBT(889,1,2409)=""
^DIBT(889,1,2410)=""
^DIBT(889,1,2411)=""
^DIBT(889,1,2412)=""
^DIBT(889,1,2413)=""
^DIBT(889,1,2414)=""
^DIBT(889,1,2415)=""
^DIBT(889,1,2416)=""
^DIBT(889,1,2417)=""
^DIBT(889,1,2418)=""
^DIBT(889,1,2419)=""
^DIBT(889,1,2420)=""
^DIBT(889,1,2421)=""
^DIBT(889,1,2422)=""
^DIBT(889,1,2423)=""
^DIBT(889,1,2424)=""
^DIBT(889,1,2425)=""
^DIBT(889,1,2426)=""
^DIBT(889,1,2427)=""
^DIBT(889,1,2428)=""
^DIBT(889,1,2429)=""
^DIBT(889,1,2430)=""
^DIBT(889,1,2431)=""
^DIBT(889,1,2432)=""
^DIBT(889,1,2433)=""
^DIBT(889,1,2434)=""
^DIBT(889,1,2435)=""
^DIBT(889,1,2436)=""
^DIBT(889,1,2437)=""
^DIBT(889,1,2438)=""
^DIBT(889,1,2439)=""
^DIBT(889,1,2440)=""
^DIBT(889,1,2441)=""
^DIBT(889,1,2442)=""
^DIBT(889,1,2443)=""
^DIBT(889,1,2444)=""
^DIBT(889,1,2445)=""
^DIBT(889,1,2446)=""
^DIBT(889,1,2447)=""
^DIBT(889,1,2448)=""
^DIBT(889,1,2449)=""
^DIBT(889,1,2450)=""
^DIBT(889,1,2451)=""
^DIBT(889,1,2452)=""
^DIBT(889,1,2453)=""
^DIBT(889,1,2454)=""
^DIBT(889,1,2455)=""
^DIBT(889,1,2456)=""
^DIBT(889,1,2457)=""
^DIBT(889,1,2458)=""
^DIBT(889,1,2459)=""
^DIBT(889,1,2460)=""
^DIBT(889,1,2461)=""
^DIBT(889,1,2462)=""
^DIBT(889,1,2463)=""
^DIBT(889,1,2464)=""
^DIBT(889,1,2465)=""
^DIBT(889,1,2466)=""
^DIBT(889,1,2467)=""
^DIBT(889,1,2468)=""
^DIBT(889,1,2469)=""
^DIBT(889,1,2470)=""
^DIBT(889,1,2471)=""
^DIBT(889,1,2472)=""
^DIBT(889,1,2473)=""
^DIBT(889,1,2474)=""
^DIBT(889,1,2475)=""
^DIBT(889,1,2476)=""
^DIBT(889,1,2477)=""
^DIBT(889,1,2478)=""
^DIBT(889,1,2479)=""
^DIBT(889,1,2480)=""
^DIBT(889,1,2532)=""
^DIBT(889,1,2533)=""
^DIBT(889,1,2534)=""
^DIBT(889,1,2535)=""
^DIBT(889,1,2536)=""
^DIBT(889,1,2537)=""
^DIBT(889,1,2538)=""
^DIBT(889,1,2539)=""
^DIBT(889,1,2540)=""
^DIBT(889,1,2541)=""
^DIBT(889,1,2542)=""
^DIBT(889,1,2543)=""
^DIBT(889,1,2544)=""
^DIBT(889,1,2545)=""
^DIBT(889,1,2546)=""
^DIBT(889,1,2547)=""
^DIBT(889,1,2548)=""
^DIBT(889,1,2549)=""
^DIBT(889,1,2550)=""
^DIBT(889,1,2551)=""
^DIBT(889,1,2552)=""
^DIBT(889,1,2553)=""
^DIBT(889,1,2554)=""
^DIBT(889,1,2555)=""
^DIBT(889,1,2556)=""
^DIBT(889,1,2557)=""
^DIBT(889,1,2558)=""
^DIBT(889,1,2559)=""
^DIBT(889,1,2560)=""
^DIBT(889,1,2561)=""
^DIBT(889,1,2562)=""
^DIBT(889,1,2563)=""
^DIBT(889,1,2564)=""
^DIBT(889,1,2565)=""
^DIBT(889,1,2566)=""
^DIBT(889,1,2567)=""
^DIBT(889,1,2568)=""
^DIBT(889,1,2569)=""
^DIBT(889,1,2570)=""
^DIBT(889,1,2571)=""
^DIBT(889,1,2572)=""
^DIBT(889,1,2573)=""
^DIBT(889,1,2574)=""
^DIBT(889,1,2575)=""
^DIBT(889,1,2576)=""
^DIBT(889,1,2577)=""
^DIBT(889,1,2578)=""
^DIBT(889,1,2579)=""
^DIBT(889,1,2580)=""
^DIBT(889,1,2581)=""
^DIBT(889,1,2582)=""
^DIBT(889,1,2583)=""
^DIBT(889,1,2584)=""
^DIBT(889,1,2585)=""
^DIBT(889,1,2586)=""
^DIBT(889,1,2587)=""
^DIBT(889,1,2588)=""
^DIBT(889,1,2589)=""
^DIBT(889,1,2590)=""
^DIBT(889,1,2591)=""
^DIBT(889,1,2592)=""
^DIBT(889,1,2593)=""
^DIBT(889,1,2594)=""
^DIBT(889,1,2595)=""
^DIBT(889,1,2596)=""
^DIBT(889,1,2597)=""
^DIBT(889,1,2598)=""
^DIBT(889,1,2599)=""
^DIBT(889,1,2600)=""
^DIBT(889,1,2601)=""
^DIBT(889,1,2602)=""
^DIBT(889,1,2603)=""
^DIBT(889,1,2604)=""
^DIBT(889,1,2605)=""
^DIBT(889,1,2606)=""
^DIBT(889,1,2607)=""
^DIBT(889,1,2608)=""
^DIBT(889,1,2609)=""
^DIBT(889,1,2610)=""
^DIBT(889,1,2611)=""
^DIBT(889,1,2612)=""
^DIBT(889,1,2613)=""
^DIBT(889,1,2614)=""
^DIBT(889,1,2615)=""
^DIBT(889,1,2616)=""
^DIBT(889,1,2617)=""
^DIBT(889,1,2618)=""
^DIBT(889,1,2619)=""
^DIBT(889,1,2620)=""
^DIBT(889,1,2621)=""
^DIBT(889,1,2622)=""
^DIBT(889,1,2623)=""
^DIBT(889,1,2624)=""
^DIBT(889,1,2625)=""
^DIBT(889,1,2626)=""
^DIBT(889,1,2627)=""
^DIBT(889,1,2628)=""
^DIBT(889,1,2629)=""
^DIBT(889,1,2630)=""
^DIBT(889,1,2631)=""
^DIBT(889,1,2632)=""
^DIBT(889,1,2633)=""
^DIBT(889,1,2634)=""
^DIBT(889,1,2635)=""
^DIBT(889,1,2636)=""
^DIBT(889,1,2637)=""
^DIBT(889,1,2638)=""
^DIBT(889,1,2639)=""
^DIBT(889,1,2640)=""
^DIBT(889,1,2641)=""
^DIBT(889,1,2642)=""
^DIBT(889,1,2643)=""
^DIBT(889,1,2644)=""
^DIBT(889,1,2645)=""
^DIBT(889,1,2646)=""
^DIBT(889,1,2647)=""
^DIBT(889,1,2648)=""
^DIBT(889,1,2649)=""
^DIBT(889,1,2650)=""
^DIBT(889,1,2651)=""
^DIBT(889,1,2652)=""
^DIBT(889,1,2653)=""
^DIBT(889,1,2654)=""
^DIBT(889,1,2655)=""
^DIBT(889,1,2656)=""
^DIBT(889,1,2657)=""
^DIBT(889,1,2658)=""
^DIBT(889,1,2659)=""
^DIBT(889,1,2660)=""
^DIBT(889,1,2661)=""
^DIBT(889,1,2662)=""
^DIBT(889,1,2663)=""
^DIBT(889,1,2664)=""
^DIBT(889,1,2665)=""
^DIBT(889,1,2666)=""
^DIBT(889,1,2667)=""
^DIBT(889,1,2668)=""
^DIBT(889,1,2669)=""
^DIBT(889,1,2670)=""
^DIBT(889,1,2671)=""
^DIBT(889,1,2672)=""
^DIBT(889,1,2673)=""
^DIBT(889,1,2674)=""
^DIBT(889,1,2675)=""
^DIBT(889,1,2676)=""
^DIBT(889,1,2677)=""
^DIBT(889,1,2678)=""
^DIBT(889,1,2679)=""
^DIBT(889,1,2680)=""
^DIBT(889,1,2681)=""
^DIBT(889,1,2682)=""
^DIBT(889,1,2683)=""
^DIBT(889,1,2684)=""
^DIBT(889,1,2685)=""
^DIBT(889,1,2686)=""
^DIBT(889,1,2687)=""
^DIBT(889,1,2688)=""
^DIBT(889,1,2689)=""
^DIBT(889,1,2690)=""
^DIBT(889,1,2691)=""
^DIBT(889,1,2692)=""
^DIBT(889,1,2693)=""
^DIBT(889,1,2694)=""
^DIBT(889,1,2695)=""
^DIBT(889,1,2696)=""
^DIBT(889,1,2697)=""
^DIBT(889,1,2698)=""
^DIBT(889,1,2699)=""
^DIBT(889,1,2700)=""
^DIBT(889,1,2701)=""
^DIBT(889,1,2702)=""
^DIBT(889,1,2703)=""
^DIBT(889,1,2704)=""
^DIBT(889,1,2705)=""
^DIBT(889,1,2706)=""
^DIBT(889,1,2707)=""
^DIBT(889,1,2708)=""
^DIBT(889,1,2709)=""
^DIBT(889,1,2710)=""
^DIBT(889,1,2711)=""
^DIBT(889,1,2712)=""
^DIBT(889,1,2713)=""
^DIBT(889,1,2714)=""
^DIBT(889,1,2715)=""
^DIBT(889,1,2716)=""
^DIBT(889,1,2717)=""
^DIBT(889,1,2718)=""
^DIBT(889,1,2719)=""
^DIBT(889,1,2720)=""
^DIBT(889,1,2721)=""
^DIBT(889,1,2722)=""
^DIBT(889,1,2723)=""
^DIBT(889,1,2724)=""
^DIBT(889,1,2725)=""
^DIBT(889,1,2726)=""
^DIBT(889,1,2727)=""
^DIBT(889,1,2728)=""
^DIBT(889,1,2729)=""
^DIBT(889,1,2730)=""
^DIBT(889,1,2731)=""
^DIBT(889,1,2732)=""
^DIBT(889,1,2733)=""
^DIBT(889,1,2734)=""
^DIBT(889,1,2735)=""
^DIBT(889,1,2736)=""
^DIBT(889,1,2737)=""
^DIBT(889,1,2738)=""
^DIBT(889,1,2739)=""
^DIBT(889,1,2740)=""
^DIBT(889,1,2741)=""
^DIBT(889,1,2742)=""
^DIBT(889,1,2743)=""
^DIBT(889,1,2744)=""
^DIBT(889,1,2745)=""
^DIBT(889,1,2746)=""
^DIBT(889,1,2747)=""
^DIBT(889,"DA")="DIS(""B1"","
^DIBT(889,"DA",2)="S Y(1)=$S($D(^DIC(4,D0,3)):^(3),1:"""") S X=$P($G(^DIC(4.1,+$P(Y(1),U,1),0)),U)"
^DIBT(889,"DC",1)=".01^["" PHARM"""
^DIBT(889,"DC",2)="13^=75"
^DIBT(889,"DC",3)="99^?."" """
^DIBT(889,"DIS",0)="I $$UP^DILIBF($P($G(^DIC(4,D0,0)),U,1))["" PHARM"" I $P($G(^DIC(4,D0,3)),U,1)=75 I $P($G(^DIC(4,D0,99)),U,1)?."" """
^DIBT(889,"DIS","XFORM",1)="$$UP^DILIBF(;)"
^DIBT(889,"DL")="1"
^DIBT(889,"DL",0)="^1^2^3^"
^DIBT(889,"O",0)="^"
^DIBT(889,"O",1,0)="NAME CONTAINS (case-insensitive) "" PHARM"""
^DIBT(889,"O",2,0)="   and FACILITY TYPE EQUALS 75^PHARM"
^DIBT(889,"O",3,0)="   and STATION NUMBER NULL"
^DIBT(889,"QR")="3070124.091201^421"
^DIBT(890,0)="JSH DDS^3070410.1248^@^0^1^@^3070410"
^DIBT(890,2,0)="^.4014^3^3"
^DIBT(890,2,1,0)="0^.25^TYPE^@^^^^^^4"
^DIBT(890,2,1,"GET")="S X=$P(@(DCC_""D0,0)""),U,2),X=$S(X[""C"":6,X[""N"":2,X[""P"":7,X[""S"":3,X[""D"":1,X[""V"":8,X[""K"":9,X[""W""!$S('X:0,'$D(^DD(+X,.01,0)):0,1:$P(^(0),U,2)[""W""):5,1:0),X=$S($D(^DOPT(""DICATT"",X,0)):$P(^(0),"" ""),1:""FREE TEXT"") S DISX(1)=X"
^DIBT(890,2,1,"QCON")="I DISX(1)'="""""
^DIBT(890,2,1,"TXT")="TYPE not null"
^DIBT(890,2,2,0)=".12^^VARIABLE-POINTER^"".01^^^^^^4"
^DIBT(890,2,2,1,0)="^.40141^1^1"
^DIBT(890,2,2,1,1,0)="0^V"
^DIBT(890,2,2,1,"B",0,1)=""
^DIBT(890,2,2,"ASK")="1"
^DIBT(890,2,2,"CM")="S Y(1)=$S($D(^DD(DFF,D0,""V"",D1,0)):^(0),1:"""") S X=$P($G(^DIC(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(2)=X"
^DIBT(890,2,2,"F")="?z^@"
^DIBT(890,2,2,"GET")="S Y(1)=$S($D(^DD(DFF,D0,""V"",D1,0)):^(0),1:"""") S X=$P($G(^DIC(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(2)=X"
^DIBT(890,2,2,"QCON")="I 1"
^DIBT(890,2,2,"T")="z^"
^DIBT(890,2,2,"TXT")="All VARIABLE-POINTER (includes nulls)"
^DIBT(890,2,3,0)="0^.01^LABEL^^^^^^^4"
^DIBT(890,2,3,"GET")="S DISX(3)=$P($G(^DD(DFF,D0,0)),U)"
^DIBT(890,2,3,"IX")="^DD(DFF,""B"",^DD(DFF,^2"
^DIBT(890,2,3,"QCON")="I DISX(3)'="""""
^DIBT(890,2,3,"TXT")="LABEL not null"
^DIBT(890,2,"B",0,1)=""
^DIBT(890,2,"B",0,3)=""
^DIBT(890,2,"B",.12,2)=""
^DIBT(891,0)="SUSPENSE OIF/OEF VETS^3070328.1709^@^668^^@^3070703"
^DIBT(891,2,0)="^.4014^2^2"
^DIBT(891,2,1,0)="668^^STATUS'=""CLOSED""^""@B^;L1^^^^^4"
^DIBT(891,2,1,"CM")="S Y(2)=$C(59)_$P($G(^DD(668,14,0)),U,3),Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59))'=""CLOSED"" I D0>0 S DISX(1)=X"
^DIBT(891,2,1,"F")="0"
^DIBT(891,2,1,"GET")="S Y(2)=$C(59)_$P($G(^DD(668,14,0)),U,3),Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59))'=""CLOSED"" I D0>0 S DISX(1)=X"
^DIBT(891,2,1,"QCON")="I DISX(1)"
^DIBT(891,2,1,"T")="1"
^DIBT(891,2,1,"TXT")="STATUS'=""""CLOSED"""""
^DIBT(891,2,2,0)="2.3215^^.01'=""""^""""@B^;L1^^^^^4"
^DIBT(891,2,2,1,0)="^.40141^1^1"
^DIBT(891,2,2,1,1,0)="2^.3215"
^DIBT(891,2,2,1,"B",2,1)=""
^DIBT(891,2,2,2,0)="^.401418^1^1"
^DIBT(891,2,2,2,1,0)="668^100^2^DPT(^0"
^DIBT(891,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(891,2,2,2,"B",668,1)=""
^DIBT(891,2,2,"CM")="S X=.01'="""" I D1>0 S DISX(2)=X"
^DIBT(891,2,2,"F")="0"
^DIBT(891,2,2,"GET")="S X=.01'="""" I D1>0 S DISX(2)=X"
^DIBT(891,2,2,"QCON")="I DISX(2)"
^DIBT(891,2,2,"T")="1"
^DIBT(891,2,2,"TXT")=".01'="""""""""
^DIBT(891,2,"B",2.3215,2)=""
^DIBT(891,2,"B",668,1)=""
^DIBT(892,0)="RMPR OIF/OEF PSAS VETS^3070426.104^@^660^^@^3070426"
^DIBT(892,2,0)="^.4014^2^2"
^DIBT(892,2,1,0)="660^.01^ENTRY DATE^^^^^^^1"
^DIBT(892,2,1,"ASK")="1"
^DIBT(892,2,1,"F")="?z^@"
^DIBT(892,2,1,"GET")="S DISX(1)=$P($G(^RMPR(660,D0,0)),U)"
^DIBT(892,2,1,"QCON")="I DISX(1)="""""
^DIBT(892,2,1,"T")="@^@"
^DIBT(892,2,1,"TXT")="ENTRY DATE is null"
^DIBT(892,2,2,0)="2.3215^^.01'=""""^""""""@B^;L1^^^^^4"
^DIBT(892,2,2,1,0)="^.40141^1^1"
^DIBT(892,2,2,1,1,0)="2^.3215"
^DIBT(892,2,2,1,"B",2,1)=""
^DIBT(892,2,2,2,0)="^.401418^2^2"
^DIBT(892,2,2,2,1,0)="660^100^665^RMPR(665,^0"
^DIBT(892,2,2,2,1,"RCOD")="S I(0,0)=D0 S Y(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X"
^DIBT(892,2,2,2,2,0)="665^200^2^DPT(^0"
^DIBT(892,2,2,2,2,"RCOD")="S I(100,0)=D0 S Y(101)=$S($D(^RMPR(665,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1),X=X S D(0)=+X"
^DIBT(892,2,2,2,"B",660,1)=""
^DIBT(892,2,2,2,"B",665,2)=""
^DIBT(892,2,2,"CM")="S X=.01'="""" I D1>0 S DISX(2)=X"
^DIBT(892,2,2,"F")="0"
^DIBT(892,2,2,"GET")="S X=.01'="""" I D1>0 S DISX(2)=X"
^DIBT(892,2,2,"QCON")="I DISX(2)"
^DIBT(892,2,2,"T")="1"
^DIBT(892,2,2,"TXT")=".01'="""""""""
^DIBT(892,2,"B",2.3215,2)=""
^DIBT(892,2,"B",660,1)=""
^DIBT(893,0)="PATCH 486 SORT TEMPLATE^3070810.1102^@^409.39^^@^3070816"
^DIBT(893,2,0)="^.4014^1^1"
^DIBT(893,2,1,0)="409.39^0^NUMBER^]^^^^^^2"
^DIBT(893,2,1,"IX")="^SDWL(409.39,^SDWL(409.39,^1"
^DIBT(893,2,1,"QCON")="I D0'="""""
^DIBT(893,2,1,"TXT")="NUMBER not null"
^DIBT(893,2,"B",409.39,1)=""
^DIBT(893,"%D",0)="^.4012^1^1^3070810^^^^"
^DIBT(893,"%D",1,0)="Sort template for the EWL Enrollee Clean-up report."
^DIBT(894,0)="PATCH 525 SORT TEMPLATE^3070810.1102^@^409.39^^@^3070816"
^DIBT(894,2,0)="^.4014^1^1"
^DIBT(894,2,1,0)="409.39^0^NUMBER^]^^^^^^2"
^DIBT(894,2,1,"IX")="^SDWL(409.39,^SDWL(409.39,^1"
^DIBT(894,2,1,"QCON")="I D0'="""""
^DIBT(894,2,1,"TXT")="NUMBER not null"
^DIBT(894,2,"B",409.39,1)=""
^DIBT(894,"%D",0)="^^1^1^3070912^"
^DIBT(894,"%D",1,0)="Sort template for the EWL Enrollee Status Clean-up report."
^DIBT(895,0)="MAG REPORT 1^3060713.0827^@^2005^^@^3061013"
^DIBT(895,2,0)="^.4014^4^4"
^DIBT(895,2,1,0)="2005^^ACQUISITION SITE^+#"".05^^^^^^4"
^DIBT(895,2,1,"ASK")="1"
^DIBT(895,2,1,"CM")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(895,2,1,"F")="@z^A"
^DIBT(895,2,1,"GET")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(895,2,1,"IX")="^MAG(2005,""D"",^MAG(2005,^2"
^DIBT(895,2,1,"PTRIX")="^DIC(4,""B"","
^DIBT(895,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""ZZZ"")"
^DIBT(895,2,1,"T")="ZZZ^ZZZ"
^DIBT(895,2,1,"TXT")="ACQUISITION SITE from A to ZZZ"
^DIBT(895,2,2,0)="2005^7^DATE/TIME IMAGE SAVED^'@^^^^^^1"
^DIBT(895,2,2,"ASK")="1"
^DIBT(895,2,2,"F")="3000100.999999^Jan 1,2000^Jan 1,2000"
^DIBT(895,2,2,"GET")="S DISX(2)=$P($G(^MAG(2005,D0,2)),U)"
^DIBT(895,2,2,"QCON")="I (DISX(2)]]3000100.999999)&(DISX(2)']]3060411.24)"
^DIBT(895,2,2,"T")="3060411.24^Apr 11,2006@2400^Apr 11,2006@24:00"
^DIBT(895,2,2,"TXT")="DATE/TIME IMAGE SAVED from Jan 1,2000 to Apr 11,2006@24:00"
^DIBT(895,2,3,0)="2005^^IMAGE SAVE BY^+""8^;S3;""""^^^^^4"
^DIBT(895,2,3,"ASK")="1"
^DIBT(895,2,3,"CM")="S Y(1)=$S($D(^MAG(2005,D0,2)):^(2),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(895,2,3,"F")="@z^A"
^DIBT(895,2,3,"GET")="S Y(1)=$S($D(^MAG(2005,D0,2)):^(2),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(895,2,3,"QCON")="I (DISX(3)]]""@z"")&(DISX(3)']]""ZZZZ"")"
^DIBT(895,2,3,"T")="ZZZZ^ZZZZ"
^DIBT(895,2,3,"TXT")="IMAGE SAVE BY from A to ZZZZ"
^DIBT(895,2,4,0)="2005^^OBJECT TYPE^+""3^;S;"""";C1^^^^^4"
^DIBT(895,2,4,"ASK")="1"
^DIBT(895,2,4,"CM")="S Y(1)=$S($D(^MAG(2005,D0,0)):^(0),1:"""") S X=$P($G(^MAG(2005.02,+$P(Y(1),U,6),0)),U) I D0>0 S DISX(4)=X"
^DIBT(895,2,4,"F")="@z^A"
^DIBT(895,2,4,"GET")="S Y(1)=$S($D(^MAG(2005,D0,0)):^(0),1:"""") S X=$P($G(^MAG(2005.02,+$P(Y(1),U,6),0)),U) I D0>0 S DISX(4)=X"
^DIBT(895,2,4,"QCON")="I (DISX(4)]]""@z"")&(DISX(4)']]""ZZZZ"")"
^DIBT(895,2,4,"T")="ZZZZ^ZZZZ"
^DIBT(895,2,4,"TXT")="OBJECT TYPE from A to ZZZZ"
^DIBT(895,2,"B",2005,1)=""
^DIBT(895,2,"B",2005,2)=""
^DIBT(895,2,"B",2005,3)=""
^DIBT(895,2,"B",2005,4)=""
^DIBT(895,"DIPT")=""
^DIBT(896,0)="MAG REPORT 2^3060713.0752^@^2005^^@^3060713"
^DIBT(896,2,0)="^.4014^3^3"
^DIBT(896,2,1,0)="2005^^ACQUISITION SITE^+#"".05^^^^^^4"
^DIBT(896,2,1,"ASK")="1"
^DIBT(896,2,1,"CM")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(896,2,1,"F")="@z^A"
^DIBT(896,2,1,"GET")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(896,2,1,"IX")="^MAG(2005,""D"",^MAG(2005,^2"
^DIBT(896,2,1,"PTRIX")="^DIC(4,""B"","
^DIBT(896,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""ZZZ"")"
^DIBT(896,2,1,"SER")="0.0204^0.0200"
^DIBT(896,2,1,"T")="ZZZ^ZZZ"
^DIBT(896,2,1,"TXT")="ACQUISITION SITE from A to ZZZ"
^DIBT(896,2,2,0)="2005^7^DATE/TIME IMAGE SAVED^@^^^^^^1"
^DIBT(896,2,2,"ASK")="1"
^DIBT(896,2,2,"F")="3000100.999999^Jan 1,2000^Jan 1,2000"
^DIBT(896,2,2,"GET")="S DISX(2)=$P($G(^MAG(2005,D0,2)),U)"
^DIBT(896,2,2,"QCON")="I (DISX(2)]]3000100.999999)&(DISX(2)']]3060411.24)"
^DIBT(896,2,2,"SER")="0.0900^0.0900"
^DIBT(896,2,2,"T")="3060411.24^Apr 11,2006@2400^Apr 11,2006@24:00"
^DIBT(896,2,2,"TXT")="DATE/TIME IMAGE SAVED from Jan 1,2000 to Apr 11,2006@24:00"
^DIBT(896,2,3,0)="2005^^OBJECT TYPE^""3^^^^^^4"
^DIBT(896,2,3,"CM")="S Y(1)=$S($D(^MAG(2005,D0,0)):^(0),1:"""") S X=$P($G(^MAG(2005.02,+$P(Y(1),U,6),0)),U) I D0>0 S DISX(3)=X"
^DIBT(896,2,3,"F")="DOCUMENSz^DOCUMENT"
^DIBT(896,2,3,"GET")="S Y(1)=$S($D(^MAG(2005,D0,0)):^(0),1:"""") S X=$P($G(^MAG(2005.02,+$P(Y(1),U,6),0)),U) I D0>0 S DISX(3)=X"
^DIBT(896,2,3,"QCON")="I DISX(3)=""DOCUMENT"""
^DIBT(896,2,3,"T")="DOCUMENT^DOCUMENT"
^DIBT(896,2,3,"TXT")="OBJECT TYPE equals DOCUMENT"
^DIBT(896,2,"B",2005,1)=""
^DIBT(896,2,"B",2005,2)=""
^DIBT(896,2,"B",2005,3)=""
^DIBT(897,0)="MAG REPORT 3^3060713.08^@^2005^^@^3061128"
^DIBT(897,2,0)="^.4014^5^5"
^DIBT(897,2,1,0)="2005^^ACQUISITION SITE^+#"".05^^^^^^4"
^DIBT(897,2,1,"ASK")="1"
^DIBT(897,2,1,"CM")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(897,2,1,"F")="@z^A"
^DIBT(897,2,1,"GET")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(897,2,1,"IX")="^MAG(2005,""D"",^MAG(2005,^2"
^DIBT(897,2,1,"PTRIX")="^DIC(4,""B"","
^DIBT(897,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""ZZZ"")"
^DIBT(897,2,1,"SER")="0.0000^0.0000"
^DIBT(897,2,1,"T")="ZZZ^ZZZ"
^DIBT(897,2,1,"TXT")="ACQUISITION SITE from A to ZZZ"
^DIBT(897,2,2,0)="2005^7^DATE/TIME IMAGE SAVED^@^^^^^^1"
^DIBT(897,2,2,"ASK")="1"
^DIBT(897,2,2,"F")="2600100.999999^Jan 1,1960^Jan 1,1960"
^DIBT(897,2,2,"GET")="S DISX(2)=$P($G(^MAG(2005,D0,2)),U)"
^DIBT(897,2,2,"QCON")="I (DISX(2)]]2600100.999999)&(DISX(2)']]3060606.24)"
^DIBT(897,2,2,"SER")="0.0000^0.0000"
^DIBT(897,2,2,"T")="3060606.24^Jun 6,2006@2400^Jun 6,2006@24:00"
^DIBT(897,2,2,"TXT")="DATE/TIME IMAGE SAVED from Jan 1,1960 to Jun 6,2006@24:00"
^DIBT(897,2,3,0)="2005^^IMAGE SAVE BY^@""8^^^^^^4"
^DIBT(897,2,3,"CM")="S Y(1)=$S($D(^MAG(2005,D0,2)):^(2),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(897,2,3,"F")="@z^A"
^DIBT(897,2,3,"GET")="S Y(1)=$S($D(^MAG(2005,D0,2)):^(2),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U) I D0>0 S DISX(3)=X"
^DIBT(897,2,3,"QCON")="I (DISX(3)]]""@z"")&(DISX(3)']]""ZZZZ"")"
^DIBT(897,2,3,"T")="ZZZZ^ZZZZ"
^DIBT(897,2,3,"TXT")="IMAGE SAVE BY from A to ZZZZ"
^DIBT(897,2,4,0)="2005^10^SHORT DESCRIPTION^'+^^^^^^4"
^DIBT(897,2,4,"F")="@z^A"
^DIBT(897,2,4,"GET")="S DISX(4)=$P($G(^MAG(2005,D0,2)),U,4)"
^DIBT(897,2,4,"QCON")="I (DISX(4)]]""@z"")&(DISX(4)']]""ZZZZ"")"
^DIBT(897,2,4,"SER")="0.4300^0.4300"
^DIBT(897,2,4,"T")="ZZZZ^ZZZZ"
^DIBT(897,2,4,"TXT")="SHORT DESCRIPTION from A to ZZZZ"
^DIBT(897,2,5,0)="2005^^PACKAGE INDEX[""NOTE""^]""@B^;L1^^^^^4"
^DIBT(897,2,5,"CM")="S Y(2)=$C(59)_$P($G(^DD(2005,40,0)),U,3),Y(1)=$S($D(^MAG(2005,D0,40)):^(40),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))[""NOTE"" I D0>0 S DISX(5)=X"
^DIBT(897,2,5,"F")="0"
^DIBT(897,2,5,"GET")="S Y(2)=$C(59)_$P($G(^DD(2005,40,0)),U,3),Y(1)=$S($D(^MAG(2005,D0,40)):^(40),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))[""NOTE"" I D0>0 S DISX(5)=X"
^DIBT(897,2,5,"QCON")="I DISX(5)"
^DIBT(897,2,5,"T")="1"
^DIBT(897,2,5,"TXT")="PACKAGE INDEX[""""NOTE"""""
^DIBT(897,2,"B",2005,1)=""
^DIBT(897,2,"B",2005,2)=""
^DIBT(897,2,"B",2005,3)=""
^DIBT(897,2,"B",2005,4)=""
^DIBT(897,2,"B",2005,5)=""
^DIBT(898,0)="MAG REPORT 4^3061121.0812^@^2005^^@^3061128"
^DIBT(898,2,0)="^.4014^4^4"
^DIBT(898,2,1,0)="2005^^ACQUISITION SITE^+#"".05^^^^^^4"
^DIBT(898,2,1,"ASK")="1"
^DIBT(898,2,1,"CM")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(898,2,1,"F")="@z^A"
^DIBT(898,2,1,"GET")="S Y(1)=$S($D(^MAG(2005,D0,100)):^(100),1:"""") S X=$P($G(^DIC(4,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(1)=X"
^DIBT(898,2,1,"IX")="^MAG(2005,""D"",^MAG(2005,^2"
^DIBT(898,2,1,"PTRIX")="^DIC(4,""B"","
^DIBT(898,2,1,"QCON")="I (DISX(1)]]""@z"")&(DISX(1)']]""ZZZ"")"
^DIBT(898,2,1,"SER")="0.0000^0.0000"
^DIBT(898,2,1,"T")="ZZZ^ZZZ"
^DIBT(898,2,1,"TXT")="ACQUISITION SITE from A to ZZZ"
^DIBT(898,2,2,0)="2005^7^DATE/TIME IMAGE SAVED^'^^^^^^1"
^DIBT(898,2,2,"ASK")="1"
^DIBT(898,2,2,"F")="2600100.999999^Jan 1,1960^Jan 1,1960"
^DIBT(898,2,2,"GET")="S DISX(2)=$P($G(^MAG(2005,D0,2)),U)"
^DIBT(898,2,2,"QCON")="I (DISX(2)]]2600100.999999)&(DISX(2)']]3060606.24)"
^DIBT(898,2,2,"SER")="0.0000^0.0000"
^DIBT(898,2,2,"T")="3060606.24^Jun 6,2006@2400^Jun 6,2006@24:00"
^DIBT(898,2,2,"TXT")="DATE/TIME IMAGE SAVED from Jan 1,1960 to Jun 6,2006@24:00"
^DIBT(898,2,3,0)="2005.01^^EXPORT LOCATION^"".01^^^^^^4"
^DIBT(898,2,3,1,0)="^.40141^1^1"
^DIBT(898,2,3,1,1,0)="2005^5"
^DIBT(898,2,3,1,"B",2005,1)=""
^DIBT(898,2,3,"CM")="S Y(1)=$S($D(^MAG(2005,D0,5,D1,0)):^(0),1:"""") S X=$P($G(^MAG(2005.2,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(3)=X"
^DIBT(898,2,3,"F")="?z^@"
^DIBT(898,2,3,"GET")="S Y(1)=$S($D(^MAG(2005,D0,5,D1,0)):^(0),1:"""") S X=$P($G(^MAG(2005.2,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(3)=X"
^DIBT(898,2,3,"QCON")="I DISX(3)']]""ZZZ"""
^DIBT(898,2,3,"T")="ZZZ^ZZZ"
^DIBT(898,2,3,"TXT")="EXPORT LOCATION to ZZZ (includes nulls)"
^DIBT(898,2,4,0)="2005^^TYPE INDEX^+""42^^^^^^4"
^DIBT(898,2,4,"CM")="S Y(1)=$S($D(^MAG(2005,D0,40)):^(40),1:"""") S X=$P($G(^MAG(2005.83,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(898,2,4,"F")="MEANRz^MEANS"
^DIBT(898,2,4,"GET")="S Y(1)=$S($D(^MAG(2005,D0,40)):^(40),1:"""") S X=$P($G(^MAG(2005.83,+$P(Y(1),U,3),0)),U) I D0>0 S DISX(4)=X"
^DIBT(898,2,4,"QCON")="I (DISX(4)]]""MEANRz"")&(DISX(4)']]""MEANSZ"")"
^DIBT(898,2,4,"T")="MEANSZ^MEANSZ"
^DIBT(898,2,4,"TXT")="TYPE INDEX from MEANS to MEANSZ"
^DIBT(898,2,"B",2005,1)=""
^DIBT(898,2,"B",2005,2)=""
^DIBT(898,2,"B",2005,4)=""
^DIBT(898,2,"B",2005.01,3)=""
^DIBT(899,0)="MAGREADER^3060921.1057^@^2006.5849^^@^3060921"
^DIBT(899,2,0)="^.4014^3^3"
^DIBT(899,2,1,0)="2006.5849^11^FULL NAME OF READER^+^^^^^^4"
^DIBT(899,2,1,"ASK")="1"
^DIBT(899,2,1,"F")="AAA,AAA@z^AAA,AAAA"
^DIBT(899,2,1,"GET")="S DISX(1)=$P($G(^MAG(2006.5849,D0,0)),U,12)"
^DIBT(899,2,1,"QCON")="I (DISX(1)]]""AAA,AAA@z"")&(DISX(1)']]""ZZZZ,ZZZ"")"
^DIBT(899,2,1,"SER")="0.2456^0.2456"
^DIBT(899,2,1,"T")="ZZZZ,ZZZ^ZZZZ,ZZZ"
^DIBT(899,2,1,"TXT")="FULL NAME OF READER from AAA,AAAA to ZZZZ,ZZZ"
^DIBT(899,2,2,0)="2006.5849^10^STATUS^@^^^^^^3"
^DIBT(899,2,2,"ASK")="1"
^DIBT(899,2,2,"F")="Bz^C^C (Cancelled)"
^DIBT(899,2,2,"GET")="S DISX(2)=$P($G(^MAG(2006.5849,D0,0)),U,11)"
^DIBT(899,2,2,"QCON")="I (DISX(2)]]""Bz"")&(DISX(2)']]""W"")"
^DIBT(899,2,2,"SER")="0.0000^0.0000"
^DIBT(899,2,2,"T")="W^W^W (Waiting)"
^DIBT(899,2,2,"TXT")="STATUS from C (Cancelled) to W (Waiting)"
^DIBT(899,2,3,0)="2006.5849^^CONSULT REQUEST^@"".01^^^D^^^1"
^DIBT(899,2,3,"ASK")="1"
^DIBT(899,2,3,"CM")="S Y(1)=$S($D(^MAG(2006.5849,D0,0)):^(0),1:"""") S X=$P($G(^GMR(123,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(899,2,3,"F")="2800100.999999^Jan 1,1980^Jan 1,1980"
^DIBT(899,2,3,"GET")="S Y(1)=$S($D(^MAG(2006.5849,D0,0)):^(0),1:"""") S X=$P($G(^GMR(123,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(3)=X"
^DIBT(899,2,3,"IX")="^MAG(2006.5849,""B"",^MAG(2006.5849,^2"
^DIBT(899,2,3,"PTRIX")="^GMR(123,""B"","
^DIBT(899,2,3,"QCON")="I (DISX(3)]]2800100.999999)&(DISX(3)']]3060921.24)"
^DIBT(899,2,3,"SER")="0.0000^0.0000"
^DIBT(899,2,3,"T")="3060921.24^Sep 21,2006@2400^Sep 21,2006@24:00"
^DIBT(899,2,3,"TXT")="CONSULT REQUEST from Jan 1,1980 to Sep 21,2006@24:00"
^DIBT(899,2,"B",2006.5849,1)=""
^DIBT(899,2,"B",2006.5849,2)=""
^DIBT(899,2,"B",2006.5849,3)=""
^DIBT(900,0)="MAGREPAIR^3060922.1044^@^2006.5849^^@^3060922"
^DIBT(900,2,0)="^.4014^1^1"
^DIBT(900,2,1,0)="2006.5849^18^REPAIR DATE/TIME^+^^^^^^1"
^DIBT(900,2,1,"ASK")="1"
^DIBT(900,2,1,"F")="2900100.999999^Jan 1,1990^Jan 1,1990"
^DIBT(900,2,1,"GET")="S DISX(1)=$P($G(^MAG(2006.5849,D0,0)),U,19)"
^DIBT(900,2,1,"QCON")="I (DISX(1)]]2900100.999999)&(DISX(1)']]3060922.24)"
^DIBT(900,2,1,"T")="3060922.24^Sep 22,2006@2400^Sep 22,2006@24:00"
^DIBT(900,2,1,"TXT")="REPAIR DATE/TIME from Jan 1,1990 to Sep 22,2006@24:00"
^DIBT(900,2,"B",2006.5849,1)=""
^DIBT(901,0)="MAGSTATUS^3060921.1103^@^2006.5849^^@^3060921"
^DIBT(901,2,0)="^.4014^2^2"
^DIBT(901,2,1,0)="2006.5849^10^STATUS^+^^^^^^3"
^DIBT(901,2,1,"ASK")="1"
^DIBT(901,2,1,"F")="Kz^L^L (Locked)"
^DIBT(901,2,1,"GET")="S DISX(1)=$P($G(^MAG(2006.5849,D0,0)),U,11)"
^DIBT(901,2,1,"QCON")="I (DISX(1)]]""Kz"")&(DISX(1)']]""U"")"
^DIBT(901,2,1,"SER")="0.0526^0.0526"
^DIBT(901,2,1,"T")="U^U^U (Unread)"
^DIBT(901,2,1,"TXT")="STATUS from L (Locked) to U (Unread)"
^DIBT(901,2,2,0)="2006.5849^^CONSULT REQUEST^@"".01^^^D^^^1"
^DIBT(901,2,2,"ASK")="1"
^DIBT(901,2,2,"CM")="S Y(1)=$S($D(^MAG(2006.5849,D0,0)):^(0),1:"""") S X=$P($G(^GMR(123,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X"
^DIBT(901,2,2,"F")="2800100.999999^Jan 1,1980^Jan 1,1980"
^DIBT(901,2,2,"GET")="S Y(1)=$S($D(^MAG(2006.5849,D0,0)):^(0),1:"""") S X=$P($G(^GMR(123,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X"
^DIBT(901,2,2,"IX")="^MAG(2006.5849,""B"",^MAG(2006.5849,^2"
^DIBT(901,2,2,"PTRIX")="^GMR(123,""B"","
^DIBT(901,2,2,"QCON")="I (DISX(2)]]2800100.999999)&(DISX(2)']]3060921.24)"
^DIBT(901,2,2,"SER")="0.0000^0.0000"
^DIBT(901,2,2,"T")="3060921.24^Sep 21,2006@2400^Sep 21,2006@24:00"
^DIBT(901,2,2,"TXT")="CONSULT REQUEST from Jan 1,1980 to Sep 21,2006@24:00"
^DIBT(901,2,"B",2006.5849,1)=""
^DIBT(901,2,"B",2006.5849,2)=""
^DIBT("B","801FIND",853)=""
^DIBT("B","ABSV ACTIVE VOLUNTEERS",574)=""
^DIBT("B","ABSV AGE",568)=""
^DIBT("B","ABSV AJR LABELS",703)=""
^DIBT("B","ABSV AJR REPORT",705)=""
^DIBT("B","ABSV ALL REPRESENTATIVES",704)=""
^DIBT("B","ABSV ALPHA LIST",640)=""
^DIBT("B","ABSV ALPHA SORT",566)=""
^DIBT("B","ABSV BATCH LIST",548)=""
^DIBT("B","ABSV BIRTH MONTH",567)=""
^DIBT("B","ABSV BY MONTH/ORG/NAME",555)=""
^DIBT("B","ABSV CERTIFYING LABEL",701)=""
^DIBT("B","ABSV CERTIFYING OFFICIAL",706)=""
^DIBT("B","ABSV DIRECTORY SORT",645)=""
^DIBT("B","ABSV DON ACK VALUE SORT",724)=""
^DIBT("B","ABSV DON DATE STATS",731)=""
^DIBT("B","ABSV DON DONOR STATISTICS",729)=""
^DIBT("B","ABSV DON EXPORT",734)=""
^DIBT("B","ABSV DON FISCAL SORT",726)=""
^DIBT("B","ABSV DON FUND STATS",732)=""
^DIBT("B","ABSV DON IND ORG",727)=""
^DIBT("B","ABSV DON INDIVIDUAL",723)=""
^DIBT("B","ABSV DON ORG STATS",730)=""
^DIBT("B","ABSV DON ORG VALUE SORT",721)=""
^DIBT("B","ABSV DON POST",728)=""
^DIBT("B","ABSV DON RECEIVED SORT",722)=""
^DIBT("B","ABSV DON TYPE STATS",733)=""
^DIBT("B","ABSV DON TYPE VALUE SORT",725)=""
^DIBT("B","ABSV ERROR LIST",550)=""
^DIBT("B","ABSV GAMES ASSIGNMENT SCHEDULE",675)=""
^DIBT("B","ABSV GAMES MASTER REGISTRATION",677)=""
^DIBT("B","ABSV GAMES SHIRT LIST",676)=""
^DIBT("B","ABSV GAMES SIGN-IN LIST",678)=""
^DIBT("B","ABSV GAMES WORK SCHEDULE",674)=""
^DIBT("B","ABSV MEAL PRINT",564)=""
^DIBT("B","ABSV MINUTES",700)=""
^DIBT("B","ABSV MONTHLY SUMMARY",556)=""
^DIBT("B","ABSV NATIONAL REP LABEL",702)=""
^DIBT("B","ABSV NOM BY ORGANIZATION",708)=""
^DIBT("B","ABSV NOM VIEW",707)=""
^DIBT("B","ABSV OCC BATCH LIST",559)=""
^DIBT("B","ABSV OCC ERROR LIST",558)=""
^DIBT("B","ABSV OCC HRS ORG SUMMARY",642)=""
^DIBT("B","ABSV OCC HRS SERV SUMMARY",643)=""
^DIBT("B","ABSV OCC HRS SUMMARY",644)=""
^DIBT("B","ABSV OCC TRANSMIT",557)=""
^DIBT("B","ABSV ORG LABEL",569)=""
^DIBT("B","ABSV ORGANIZATION CONDENSED",664)=""
^DIBT("B","ABSV ORGANIZATION DETAIL LIST",546)=""
^DIBT("B","ABSV ORGANIZATION SUMMARY",552)=""
^DIBT("B","ABSV POST ERROR",561)=""
^DIBT("B","ABSV POST SORT",560)=""
^DIBT("B","ABSV POTENTIAL AWARD LIST",646)=""
^DIBT("B","ABSV REVIEW DAILY ENTRIES",551)=""
^DIBT("B","ABSV SELECTED ORGS",554)=""
^DIBT("B","ABSV SELECTED SERVICES",573)=""
^DIBT("B","ABSV SELECTED STATION INFO",641)=""
^DIBT("B","ABSV SERVICE LABEL",570)=""
^DIBT("B","ABSV SERVICE LIST",547)=""
^DIBT("B","ABSV SERVICE SUMMARY",553)=""
^DIBT("B","ABSV SINGLE LABEL",717)=""
^DIBT("B","ABSV STATION LIST",571)=""
^DIBT("B","ABSV TC SORT",562)=""
^DIBT("B","ABSV TRANSMIT",549)=""
^DIBT("B","ABSV TT88 VIEW SORT",572)=""
^DIBT("B","ABSV VIEW DAILY ENTRIES",565)=""
^DIBT("B","ABSV WEEKLY WORK SUMMARY",563)=""
^DIBT("B","ABSVM OCCASIONAL HOURS TOSEND",742)=""
^DIBT("B","ABSVM ORGANIZATIONS TOSEND",741)=""
^DIBT("B","ABSVM REG HOURS 00Q1 TOSEND",746)=""
^DIBT("B","ABSVM REG HOURS 00Q2 TOSEND",760)=""
^DIBT("B","ABSVM REG HOURS 00Q3 TOSEND",761)=""
^DIBT("B","ABSVM REG HOURS 00Q4 TOSEND",762)=""
^DIBT("B","ABSVM REG HOURS 01Q1 TOSEND",747)=""
^DIBT("B","ABSVM REG HOURS 01Q2 TOSEND",763)=""
^DIBT("B","ABSVM REG HOURS 01Q3 TOSEND",764)=""
^DIBT("B","ABSVM REG HOURS 01Q4 TOSEND",765)=""
^DIBT("B","ABSVM REG HOURS 02Q1 TOSEND",748)=""
^DIBT("B","ABSVM REG HOURS 02Q2 TOSEND",766)=""
^DIBT("B","ABSVM REG HOURS 02Q3 TOSEND",767)=""
^DIBT("B","ABSVM REG HOURS 02Q4 TOSEND",768)=""
^DIBT("B","ABSVM REG HOURS 03Q1 TOSEND",749)=""
^DIBT("B","ABSVM REG HOURS 03Q2 TOSEND",769)=""
^DIBT("B","ABSVM REG HOURS 03Q3 TOSEND",770)=""
^DIBT("B","ABSVM REG HOURS 03Q4 TOSEND",771)=""
^DIBT("B","ABSVM REG HOURS 04Q1 TOSEND",772)=""
^DIBT("B","ABSVM REG HOURS 97Q1 TOSEND",743)=""
^DIBT("B","ABSVM REG HOURS 97Q2 TOSEND",751)=""
^DIBT("B","ABSVM REG HOURS 97Q3 TOSEND",752)=""
^DIBT("B","ABSVM REG HOURS 97Q4 TOSEND",753)=""
^DIBT("B","ABSVM REG HOURS 98Q1 TOSEND",744)=""
^DIBT("B","ABSVM REG HOURS 98Q2 TOSEND",754)=""
^DIBT("B","ABSVM REG HOURS 98Q3 TOSEND",755)=""
^DIBT("B","ABSVM REG HOURS 98Q4 TOSEND",756)=""
^DIBT("B","ABSVM REG HOURS 99Q1 TOSEND",745)=""
^DIBT("B","ABSVM REG HOURS 99Q2 TOSEND",758)=""
^DIBT("B","ABSVM REG HOURS 99Q3 TOSEND",757)=""
^DIBT("B","ABSVM REG HOURS 99Q4 TOSEND",759)=""
^DIBT("B","ABSVM SERVICES TOSEND",740)=""
^DIBT("B","ABSVM VOLUNTEER TOSEND",750)=""
^DIBT("B","ANRV AGE LIST",656)=""
^DIBT("B","ANRV BIRTH LIST",657)=""
^DIBT("B","ANRV DECEASED LIST",655)=""
^DIBT("B","ANRV ELIG AMIS LIST",662)=""
^DIBT("B","ANRV EYE DIAG NAR",659)=""
^DIBT("B","ANRV EYE DIAG PRINT",658)=""
^DIBT("B","ANRV FEE PT",661)=""
^DIBT("B","ANRV INC AMIS",654)=""
^DIBT("B","ANRV REFERRAL LIST",660)=""
^DIBT("B","ANRVAD",649)=""
^DIBT("B","ANRVED",651)=""
^DIBT("B","ANRVFVD",652)=""
^DIBT("B","ANRVID",650)=""
^DIBT("B","ANRVREV1",653)=""
^DIBT("B","ANRVRRL",663)=""
^DIBT("B","ARCHIVE BLOOD INVENTORY",84)=""
^DIBT("B","ARCHIVE SORT",82)=""
^DIBT("B","BPS SETUP PHARMACIES",807)=""
^DIBT("B","BPS TECH - FILES",818)=""
^DIBT("B","BPS TECH - OPTIONS",819)=""
^DIBT("B","DG ACTIVE PRIORITY GROUPS",113)=""
^DIBT("B","DG BAI",839)=""
^DIBT("B","DG FEMALE INPATIENTS",102)=""
^DIBT("B","DG ISO SENSITIVE RCDS SORT",842)=""
^DIBT("B","DG MISSING SSN SORT",689)=""
^DIBT("B","DG NPTF TOTALS",667)=""
^DIBT("B","DG PTF NO ADMISSION",114)=""
^DIBT("B","DGBT REMARKS",118)=""
^DIBT("B","DGDRGENTER",108)=""
^DIBT("B","DGOD COMPLETE INP",110)=""
^DIBT("B","DGOD COMPLETE OPC",109)=""
^DIBT("B","DGOPENPTF",107)=""
^DIBT("B","DGPM INP HISTORICAL 1 DIVISION",116)=""
^DIBT("B","DGPM INP HISTORICAL DIVISION",115)=""
^DIBT("B","DGPT CENSUS UNRELEASED",112)=""
^DIBT("B","DGPT EXPANDED CODE SORT",117)=""
^DIBT("B","DGPT FEE BASIS",840)=""
^DIBT("B","DGPT WORKFILE",111)=""
^DIBT("B","DGPTAP80010185010102",119)=""
^DIBT("B","DGPTAP80010185010103",120)=""
^DIBT("B","DGPTF",105)=""
^DIBT("B","DGUNRELEASED",106)=""
^DIBT("B","DGWAIT LIST",104)=""
^DIBT("B","DPTNS 02/03/88@08:57",103)=""
^DIBT("B","DVBA 21 DAY CERT",277)=""
^DIBT("B","DVBA ADMISSION REVIEW",271)=""
^DIBT("B","DVBA C EXAM CHECKLIST",272)=""
^DIBT("B","DVBA C EXAM LAYOUT",273)=""
^DIBT("B","DVBA C REQUESTS BY DATE RANGE",274)=""
^DIBT("B","DVBA C REQUESTS BY PHYSICIAN",275)=""
^DIBT("B","DVBA FINALIZED REPORT",269)=""
^DIBT("B","DVBA INCOMP REQ REPORT",268)=""
^DIBT("B","DVBA NOT/DIS-21 DAY CERT CHECK",270)=""
^DIBT("B","DVBA NOTICE OF DISCHARGE",276)=""
^DIBT("B","DVBHINQ AUDIT/DT",265)=""
^DIBT("B","DVBHINQ AUDIT/PAT",267)=""
^DIBT("B","DVBHINQ AUDIT/USER",266)=""
^DIBT("B","DVBHINQPURGE",264)=""
^DIBT("B","ECCAT",575)=""
^DIBT("B","ECX CLINIC CODE",629)=""
^DIBT("B","ECX LAB TEST SORT BY DSS NAME",856)=""
^DIBT("B","ECX LAB TEST SORT BY LOCAL",857)=""
^DIBT("B","ECX LAB TEST SORT BY NUMBER",855)=""
^DIBT("B","ECX LOG",628)=""
^DIBT("B","EN LOCATION",88)=""
^DIBT("B","EN PM HOURS",89)=""
^DIBT("B","ENCMR",87)=""
^DIBT("B","ENLEASE",90)=""
^DIBT("B","ENXKBLANK",92)=""
^DIBT("B","ENXKNX",91)=""
^DIBT("B","ESP ALL EVIDENCE RECORDS",513)=""
^DIBT("B","ESP CAR POOL ASSIGNMENTS",524)=""
^DIBT("B","ESP CAR POOL AVAILABILITY LIST",523)=""
^DIBT("B","ESP CASE ASSIGNMENT ALL",520)=""
^DIBT("B","ESP CASE ASSIGNMENT OPEN",517)=""
^DIBT("B","ESP CASE ASSIGNMENT OPEN/FAC",711)=""
^DIBT("B","ESP CASE BY DIVISION",710)=""
^DIBT("B","ESP DAILY SHIFT JOURNAL",527)=""
^DIBT("B","ESP LOCATE VIOLATION",518)=""
^DIBT("B","ESP MISSING PATIENT REPORT-ALL",525)=""
^DIBT("B","ESP MISSING PATIENT REPORT-OPN",526)=""
^DIBT("B","ESP OFFENSE LOOKUP",505)=""
^DIBT("B","ESP OFFENSE MATCH",519)=""
^DIBT("B","ESP OPEN EVIDENCE RECORDS",512)=""
^DIBT("B","ESP PERSONAL DESCRIPTOR LOOKUP",522)=""
^DIBT("B","ESP STATUTE PRINT",509)=""
^DIBT("B","ESP TRAINING",506)=""
^DIBT("B","ESP TRAINING1",507)=""
^DIBT("B","ESP TRAINING2",508)=""
^DIBT("B","ESP TRAINING3",510)=""
^DIBT("B","ESP TRAINING4",511)=""
^DIBT("B","ESP VEHICLE IDENTIFY",516)=""
^DIBT("B","ESP VEHICLE REGISTRATION LOG",502)=""
^DIBT("B","ESP VIOLATIONS BY OFFICER",521)=""
^DIBT("B","ESP VIOLATIONS ISSUED",504)=""
^DIBT("B","ESP VIOLATIONS/WARNINGS ISSUED",503)=""
^DIBT("B","ESP WANTS & WARRANTS ALL",515)=""
^DIBT("B","ESP WANTS & WARRANTS OPEN",514)=""
^DIBT("B","FB BATCH LIST",299)=""
^DIBT("B","FBAA RX PENDING",300)=""
^DIBT("B","FBCH 7078 CANCEL",302)=""
^DIBT("B","FBCH PENDING REQUEST",301)=""
^DIBT("B","FBUC STATUS BY PATIENT",303)=""
^DIBT("B","FBUC STATUS BY VENDOR",304)=""
^DIBT("B","GECS BATCH STATUS",96)=""
^DIBT("B","GECS BATCHES WAITING",95)=""
^DIBT("B","GECS READY FOR BATCHING",93)=""
^DIBT("B","GECS READY FOR TRANSMISSION",94)=""
^DIBT("B","GECS TRANSMISSION",97)=""
^DIBT("B","GMRA SORT AUTOVERIFIED",98)=""
^DIBT("B","GMRC CONSULTS LIST",101)=""
^DIBT("B","GMRC PROTOCOLS",100)=""
^DIBT("B","GMTS TASK LOCATIONS SORT",99)=""
^DIBT("B","GRS_971006",621)=""
^DIBT("B","HL PROTOCOL MESSAGING FIELDS",779)=""
^DIBT("B","HLEV MONITOR EXPORT LIST",783)=""
^DIBT("B","HLEV REPORT MONITOR",784)=""
^DIBT("B","HLEV REPORT MONITOR - FF",785)=""
^DIBT("B","IB AB COMMENTS",131)=""
^DIBT("B","IB BILLING PAT W/INCOME",128)=""
^DIBT("B","IB BILLING PATIENT BY REASON",127)=""
^DIBT("B","IB BILLING PATIENT BY STATUS",126)=""
^DIBT("B","IB BILLING RATES",122)=""
^DIBT("B","IB CLK PROD",124)=""
^DIBT("B","IB EXEMPT PATIENTS",129)=""
^DIBT("B","IB EXEMPTION LETTER",130)=""
^DIBT("B","IB INACTIVE INS CO",132)=""
^DIBT("B","IB INCOMPLETE",123)=""
^DIBT("B","IB PRINT THRESHOLD",125)=""
^DIBT("B","IBCE LOCAL DATA ELEMENTS",695)=""
^DIBT("B","IBD LIST ERRORS",609)=""
^DIBT("B","IBD NO APPOINTMENT LIST",630)=""
^DIBT("B","IBD PRIM CARE SEARCH",607)=""
^DIBT("B","IBD RPC LIST",608)=""
^DIBT("B","IBJD DM REPT SORT",679)=""
^DIBT("B","IBNOTVER",133)=""
^DIBT("B","IBNOTVER1",134)=""
^DIBT("B","IBT LIST VISITS",135)=""
^DIBT("B","IBT QUICK REV CODING STAT",852)=""
^DIBT("B","ICPT MODIFIERS FOR RANGE",611)=""
^DIBT("B","ICPT NEW/INACTIVE CODES",610)=""
^DIBT("B","JSH DDS",890)=""
^DIBT("B","LA ASHANT",587)=""
^DIBT("B","LA ASHORG",586)=""
^DIBT("B","LA7S EXEP SORT",637)=""
^DIBT("B","LA7S SORT",636)=""
^DIBT("B","LBRY ADMIN RECIPIENTS",367)=""
^DIBT("B","LBRY ADMIN TITLES",361)=""
^DIBT("B","LBRY DONOR TITLES",362)=""
^DIBT("B","LBRY FYI LIST",366)=""
^DIBT("B","LBRY GAPS LIST",351)=""
^DIBT("B","LBRY LOCAL HOLDINGS SORT",340)=""
^DIBT("B","LBRY MEDICAL BY SUBJECT",358)=""
^DIBT("B","LBRY MEDICAL HOLDINGS",357)=""
^DIBT("B","LBRY MEDICAL SUBSCRIPTIONS",359)=""
^DIBT("B","LBRY MICROFILM HOLDINGS",352)=""
^DIBT("B","LBRY MICROFILM VENDOR",356)=""
^DIBT("B","LBRY MICROFILM VENDOR 2",777)=""
^DIBT("B","LBRY MISSING ISSUES LIST",369)=""
^DIBT("B","LBRY MISSING ISSUES LIST 2",778)=""
^DIBT("B","LBRY NEW LOCAL TITLES",319)=""
^DIBT("B","LBRY PATIENT HOLDINGS",360)=""
^DIBT("B","LBRY PATIENT TITLES",363)=""
^DIBT("B","LBRY PATIENT TITLES BRIEF",364)=""
^DIBT("B","LBRY RECIPIENTS BY TITLE",354)=""
^DIBT("B","LBRY RECIPIENTS WITH TITLES",355)=""
^DIBT("B","LBRY ROUTE-TO-RETURN",365)=""
^DIBT("B","LBRY SUBSCRIPTION/VENDOR",353)=""
^DIBT("B","LBRY SUBSCRIPTION/VENDOR 2",776)=""
^DIBT("B","LBRY TAF SORT",339)=""
^DIBT("B","LBRY TITLE ALPHABETICAL",370)=""
^DIBT("B","LBRY TITLE LOCATION",350)=""
^DIBT("B","LBRY TITLES DUE RENEWAL",638)=""
^DIBT("B","LBRY UNION LIST CODE",368)=""
^DIBT("B","LR ANTIBODY LISTING",48)=""
^DIBT("B","LR ANTIGEN LISTING",47)=""
^DIBT("B","LR ARCHIVE 65",85)=""
^DIBT("B","LR CAP ELROY",648)=""
^DIBT("B","LR LAB SECTION LIST BY ABBREV",38)=""
^DIBT("B","LR LAB SECTION LIST BY NAME",37)=""
^DIBT("B","LR LAB SUBSECTION BY SECTION",39)=""
^DIBT("B","LR LAB SUBSECTION LIST",40)=""
^DIBT("B","LR MANUFACTURE/INSTRUMENT",71)=""
^DIBT("B","LR TEST DICTIONARY",41)=""
^DIBT("B","LR WKLD CODE BY SECTION",76)=""
^DIBT("B","LR WKLD CODE LIST BY NAME",73)=""
^DIBT("B","LR WKLD CODE LIST BY WKLD CODE",72)=""
^DIBT("B","LR WKLD SUFFIX BY LAB SECTION",75)=""
^DIBT("B","LRBL ANTIBODY LISTING",68)=""
^DIBT("B","LRBL APHERESIS DONORS",54)=""
^DIBT("B","LRBL ARCHIVE",83)=""
^DIBT("B","LRBL COLLECTION DISP RPT",60)=""
^DIBT("B","LRBL DEFERRAL REPORT",53)=""
^DIBT("B","LRBL DESCRIPTIONS",49)=""
^DIBT("B","LRBL DISCARDED UNITS",78)=""
^DIBT("B","LRBL DISPOSITION TOTALS",56)=""
^DIBT("B","LRBL DONOR TESTING REPORT",59)=""
^DIBT("B","LRBL EMERGENCY DONORS",52)=""
^DIBT("B","LRBL FIRST TIME DONORS",62)=""
^DIBT("B","LRBL GROUP AFFILIATION REPORT",64)=""
^DIBT("B","LRBL GROUP DONATION REPORT",63)=""
^DIBT("B","LRBL ISSUES TO SURGERY",55)=""
^DIBT("B","LRBL MOBILE REPORT",66)=""
^DIBT("B","LRBL MONTHLY RECALL LIST",65)=""
^DIBT("B","LRBL PATIENT CREDIT",51)=""
^DIBT("B","LRBL PRODUCT REJECTION REPORT",61)=""
^DIBT("B","LRBL SHORT DRAW REPORT",67)=""
^DIBT("B","LRBL TRANSFUSION REACTIONS",79)=""
^DIBT("B","LRBL WASTAGE",57)=""
^DIBT("B","LRBL WASTAGE-2",58)=""
^DIBT("B","LRBLAG WKLD CODES",74)=""
^DIBT("B","LRBLD GALLON",46)=""
^DIBT("B","LRBLD SCHEDULING",45)=""
^DIBT("B","LRBLDPA",70)=""
^DIBT("B","LRBLDPD",44)=""
^DIBT("B","LRBLINV",50)=""
^DIBT("B","LRBLITR",43)=""
^DIBT("B","LRBLTX",36)=""
^DIBT("B","LRBLVAL",80)=""
^DIBT("B","LRD-65-EXCEPTIONS",81)=""
^DIBT("B","LRDFN-TESTS",77)=""
^DIBT("B","LRINTEG VERSION COMPARE",69)=""
^DIBT("B","LRUCNG",42)=""
^DIBT("B","MAG REPORT 1",895)=""
^DIBT("B","MAG REPORT 2",896)=""
^DIBT("B","MAG REPORT 3",897)=""
^DIBT("B","MAG REPORT 4",898)=""
^DIBT("B","MAGREADER",899)=""
^DIBT("B","MAGREPAIR",900)=""
^DIBT("B","MAGSTATUS",901)=""
^DIBT("B","MCARGEN",618)=""
^DIBT("B","MCARGENS",619)=""
^DIBT("B","MCARGENV",620)=""
^DIBT("B","MCARGIRCLI",577)=""
^DIBT("B","MCESSORT",578)=""
^DIBT("B","MD CONVERSION ERRORS",865)=""
^DIBT("B","MD CONVERSION SUMMARY",864)=""
^DIBT("B","MD CONVERSION TOTALS",866)=""
^DIBT("B","MPIF PENDING REQUESTS",682)=""
^DIBT("B","MPIF REQUEST SORT",681)=""
^DIBT("B","NURA-S-EXCEPTION",290)=""
^DIBT("B","NURS-NAME-SORT",293)=""
^DIBT("B","NURS-S-MANHOURS",291)=""
^DIBT("B","NURS-SORT BY TYPE/OLD NAME",292)=""
^DIBT("B","ONC DISEASE INDEX",716)=""
^DIBT("B","ONCO ABSTINCOM-TERMDIG",489)=""
^DIBT("B","ONCO ABSTRACT DATE/COMPLETE",490)=""
^DIBT("B","ONCO ABSTRACT NOT-COMPLETE",417)=""
^DIBT("B","ONCO ABSTRACT RECORD",446)=""
^DIBT("B","ONCO ACCREG-ACOS80",413)=""
^DIBT("B","ONCO ACCREG-EOVA132",415)=""
^DIBT("B","ONCO ACCREG-SITE/GP80",414)=""
^DIBT("B","ONCO ACOS DOCUMENTATION",381)=""
^DIBT("B","ONCO ANN/ANAL/STA/SITE/DX AGE",465)=""
^DIBT("B","ONCO ANNUAL ACCREG80",419)=""
^DIBT("B","ONCO ANNUAL ACOSACCREG80",442)=""
^DIBT("B","ONCO ANNUAL ANALYTIC",441)=""
^DIBT("B","ONCO ANNUAL CLASS/PATIENT",418)=""
^DIBT("B","ONCO ANNUAL CLASS/SITE",445)=""
^DIBT("B","ONCO ANNUAL HIST/SITE/ICDO",450)=""
^DIBT("B","ONCO ANNUAL ICDO/STAGE/TX",449)=""
^DIBT("B","ONCO ANNUAL PATIENT INDX",420)=""
^DIBT("B","ONCO ANNUAL SITE/GP",438)=""
^DIBT("B","ONCO ANNUAL SITE/ICDT/ICDM",423)=""
^DIBT("B","ONCO ANNUAL SITE/STAGE/TX",447)=""
^DIBT("B","ONCO CASEFINDING REPORT",402)=""
^DIBT("B","ONCO CONTACT LIST-A",411)=""
^DIBT("B","ONCO CONTACT LIST-T",412)=""
^DIBT("B","ONCO DELINQUENT(LTF) LIST",389)=""
^DIBT("B","ONCO DUE FOLLOWUP",388)=""
^DIBT("B","ONCO DUE FOLLOWUP-ADM/DIS",392)=""
^DIBT("B","ONCO DUE FOLLOWUP/TERMDIG",394)=""
^DIBT("B","ONCO FOLLOWUP HISTORY",391)=""
^DIBT("B","ONCO FOLLOWUP PATIENT RPT",395)=""
^DIBT("B","ONCO FOLLOWUP STATUS RPT",390)=""
^DIBT("B","ONCO ICDO-SITE",444)=""
^DIBT("B","ONCO ICDO-SITE132",440)=""
^DIBT("B","ONCO ICDO-SITE80",439)=""
^DIBT("B","ONCO LAB-CASEFINDING REPORT",396)=""
^DIBT("B","ONCO LOSTTOFOLLOWUP",397)=""
^DIBT("B","ONCO NEG-REPORT",382)=""
^DIBT("B","ONCO PATIENT ONLY",387)=""
^DIBT("B","ONCO PCE ANNUAL REPORT",493)=""
^DIBT("B","ONCO PTF-CASEFINDING RPT",398)=""
^DIBT("B","ONCO RAD-CASEFINDING RPT",399)=""
^DIBT("B","ONCO SITE/GP80",416)=""
^DIBT("B","ONCO STAGE/SITE",443)=""
^DIBT("B","ONCO TOPOG BY SITEGRP",497)=""
^DIBT("B","ONCO TOPOG SITES",496)=""
^DIBT("B","ONCO TOPOGRAPHY BY CODE",495)=""
^DIBT("B","ONCOLOGY INPUT TEMPLATE LIST",376)=""
^DIBT("B","ONCOLOGY OPTION LIST",374)=""
^DIBT("B","ONCOLOGY PRINT TEMPLATE LIST",378)=""
^DIBT("B","ONCOLOGY ROUTINE LIST",375)=""
^DIBT("B","ONCOLOGY SITE/GROUP-TOPOGRAPHY",379)=""
^DIBT("B","ONCOLOGY SORT TEMPLATE LIST",377)=""
^DIBT("B","ONCOS ANAL/STAGE 0",448)=""
^DIBT("B","ONCOS ANAL/STAGE I",451)=""
^DIBT("B","ONCOS ANAL/STAGE II",452)=""
^DIBT("B","ONCOS ANAL/STAGE III",453)=""
^DIBT("B","ONCOS ANAL/STAGE IV",454)=""
^DIBT("B","ONCOS ANAL/STAGE NA",499)=""
^DIBT("B","ONCOS ANAL/STAGE U",455)=""
^DIBT("B","ONCOS ANALYTIC",457)=""
^DIBT("B","ONCOS ANALYTIC-140",427)=""
^DIBT("B","ONCOS ANALYTIC-153",425)=""
^DIBT("B","ONCOS ANALYTIC-154",426)=""
^DIBT("B","ONCOS ANALYTIC-160",421)=""
^DIBT("B","ONCOS ANALYTIC-161",424)=""
^DIBT("B","ONCOS ANALYTIC-162",422)=""
^DIBT("B","ONCOS ANALYTIC-193",428)=""
^DIBT("B","ONCOS ANALYTIC-196",429)=""
^DIBT("B","ONCOS ANALYTIC_NON",459)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE 0",436)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE I",432)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE II",433)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE III",434)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE IV",435)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE NA",500)=""
^DIBT("B","ONCOS ANNUAL ANAL/STAGE U",437)=""
^DIBT("B","ONCOS ANNUAL-ALLCASES",462)=""
^DIBT("B","ONCOS ANNUAL-ANALYTIC",456)=""
^DIBT("B","ONCOS ANNUAL-NON ANAL",458)=""
^DIBT("B","ONCOS ANNUAL/ANAL-90",487)=""
^DIBT("B","ONCOS BLACK-FEMALES",410)=""
^DIBT("B","ONCOS BLACK-MALES",408)=""
^DIBT("B","ONCOS KAPOSI",479)=""
^DIBT("B","ONCOS LARYNX/AN/90",480)=""
^DIBT("B","ONCOS LUNG/NON-SMALL CELL",494)=""
^DIBT("B","ONCOS MEMPHIS LUNG",491)=""
^DIBT("B","ONCOS NON-ANALYTIC",430)=""
^DIBT("B","ONCOS RACE=BLACK",406)=""
^DIBT("B","ONCOS RACE=WHITE",404)=""
^DIBT("B","ONCOS RANGE-ALLCASES",460)=""
^DIBT("B","ONCOS RANGE-ANALYTIC",431)=""
^DIBT("B","ONCOS RANGE-NON ANAL",461)=""
^DIBT("B","ONCOS SEX=FEMALE",405)=""
^DIBT("B","ONCOS SEX=MALE",403)=""
^DIBT("B","ONCOS SITE=BLADDER",482)=""
^DIBT("B","ONCOS SITE=BRAIN",470)=""
^DIBT("B","ONCOS SITE=BREAST",492)=""
^DIBT("B","ONCOS SITE=COLON",468)=""
^DIBT("B","ONCOS SITE=ESOHAGUS",483)=""
^DIBT("B","ONCOS SITE=HODGKIN'S",485)=""
^DIBT("B","ONCOS SITE=HODGKINS",471)=""
^DIBT("B","ONCOS SITE=LARYNX",473)=""
^DIBT("B","ONCOS SITE=LIP",469)=""
^DIBT("B","ONCOS SITE=LIVER",488)=""
^DIBT("B","ONCOS SITE=LUNG",467)=""
^DIBT("B","ONCOS SITE=LYMPH NODES",474)=""
^DIBT("B","ONCOS SITE=NON-HODGKINS",472)=""
^DIBT("B","ONCOS SITE=NON-HODGKINS'S",486)=""
^DIBT("B","ONCOS SITE=PHARYNX",484)=""
^DIBT("B","ONCOS SITE=PROSTATE",466)=""
^DIBT("B","ONCOS SITE=TESTIS",481)=""
^DIBT("B","ONCOS TOTAL-ANAL",463)=""
^DIBT("B","ONCOS TOTAL-NON",464)=""
^DIBT("B","ONCOS TX-CHEMO",476)=""
^DIBT("B","ONCOS TX-HORMONE",478)=""
^DIBT("B","ONCOS TX-RADIATION",477)=""
^DIBT("B","ONCOS TX-SURGERY",475)=""
^DIBT("B","ONCOS WHITE-FEMALES",409)=""
^DIBT("B","ONCOS WHITE-MALES",407)=""
^DIBT("B","ONCOZ LUNG SURVIVAL",498)=""
^DIBT("B","PATCH 486 SORT TEMPLATE",893)=""
^DIBT("B","PATCH 525 SORT TEMPLATE",894)=""
^DIBT("B","PENDING APPT EXCLUDING FUTURE",781)=""
^DIBT("B","PPP LOGS",262)=""
^DIBT("B","PRCA FOLLOW-UP",207)=""
^DIBT("B","PRCA LAST ACTIVITY",208)=""
^DIBT("B","PRCARFD",211)=""
^DIBT("B","PRCAS AMIS SORT",202)=""
^DIBT("B","PRCAS ESTABLISH AMIS",204)=""
^DIBT("B","PRCAS OUTSTAND AMIS",203)=""
^DIBT("B","PRCAT NEW TRANS",201)=""
^DIBT("B","PRCB BY APP/FCP",172)=""
^DIBT("B","PRCB BY APPROP/TDA",170)=""
^DIBT("B","PRCB BY REL LIST/FCP/TRANS",191)=""
^DIBT("B","PRCB BY SEARCH/FCP/TRANS",171)=""
^DIBT("B","PRCB BY TRANS/TDA",169)=""
^DIBT("B","PRCB BY TRANSACTION NUMBER",168)=""
^DIBT("B","PRCB FCP LIST OF MGR/USER",163)=""
^DIBT("B","PRCB FCP PO STATUS",164)=""
^DIBT("B","PRCB FCP SUB-ACCOUNT LIST",165)=""
^DIBT("B","PRCB SORT BY 285/TRANS/TDA",192)=""
^DIBT("B","PRCB SORT BY SIFY/TDA",174)=""
^DIBT("B","PRCD BY FUND,DOC TYPE,DATA ELE",194)=""
^DIBT("B","PRCEC OPN1358",183)=""
^DIBT("B","PRCF CI DISCOUNT DUE SORT",178)=""
^DIBT("B","PRCF CI NET DUE DATE SORT",179)=""
^DIBT("B","PRCF CI OUT SORT",177)=""
^DIBT("B","PRCF FMS ADJUSTMENTS",195)=""
^DIBT("B","PRCF FMS ADJUSTMENTS",196)=""
^DIBT("B","PRCFA 1358 EOM REPORT",188)=""
^DIBT("B","PRCFA BATCH PRINT SORT",149)=""
^DIBT("B","PRCFA BATCH REPRINT SORT",151)=""
^DIBT("B","PRCFA BATCH TRANSMIT SORT",150)=""
^DIBT("B","PRCFA ERROR LIST",162)=""
^DIBT("B","PRCFA REC RPT TRANS LIST",176)=""
^DIBT("B","PRCFA RECEIVING REPORT LIST",175)=""
^DIBT("B","PRCFA REPRINT ERROR LIST",185)=""
^DIBT("B","PRCFA RR INQUIRY LISTING",158)=""
^DIBT("B","PRCFA STATUS OF PAT",167)=""
^DIBT("B","PRCFA UNDEL ORD",148)=""
^DIBT("B","PRCFOOR4",187)=""
^DIBT("B","PRCFUO",159)=""
^DIBT("B","PRCFUO MAN",186)=""
^DIBT("B","PRCFUOMS",161)=""
^DIBT("B","PRCH AO AUDIT REPORT",633)=""
^DIBT("B","PRCH BOC SORT",673)=""
^DIBT("B","PRCH CARD INFOSORT",720)=""
^DIBT("B","PRCH CO AO AUDIT",634)=""
^DIBT("B","PRCH CREDIT SORT",218)=""
^DIBT("B","PRCH DEL. REC",624)=""
^DIBT("B","PRCH DEL. RECSORT",694)=""
^DIBT("B","PRCH FINAL CHARGE1",626)=""
^DIBT("B","PRCH FISCAL PRNT TIME",142)=""
^DIBT("B","PRCH FPDS <25K",154)=""
^DIBT("B","PRCH FPDS CONTRACT #",155)=""
^DIBT("B","PRCH FPDS LI",156)=""
^DIBT("B","PRCH FPDS PO REG",180)=""
^DIBT("B","PRCH IMP POREG",181)=""
^DIBT("B","PRCH IMPAC SORT",617)=""
^DIBT("B","PRCH INCOMPLETE PO BY PA",146)=""
^DIBT("B","PRCH ITEM TXHIST",669)=""
^DIBT("B","PRCH OBLIGATED 1358 LIST",860)=""
^DIBT("B","PRCH OUTSTANDING REQUEST/PA",140)=""
^DIBT("B","PRCH OVERAGE",219)=""
^DIBT("B","PRCH P/C ORACLE SORT",580)=""
^DIBT("B","PRCH P/C ORACLE UNREC SORT",719)=""
^DIBT("B","PRCH PC AUDIT SORT",718)=""
^DIBT("B","PRCH PO REGISTER",143)=""
^DIBT("B","PRCH POREG",144)=""
^DIBT("B","PRCH REQ POREG",182)=""
^DIBT("B","PRCH REQUESTING SVC",153)=""
^DIBT("B","PRCH UNPOSTED DIETETIC SORT",184)=""
^DIBT("B","PRCH W/O FPDS",160)=""
^DIBT("B","PRCH WORKLOAD1",625)=""
^DIBT("B","PRCHITFCP",141)=""
^DIBT("B","PRCHOUT PA STATS",152)=""
^DIBT("B","PRCHOUT PA STATS DAILY",623)=""
^DIBT("B","PRCHOUT RR NOT PROC.BY FISCAL",166)=""
^DIBT("B","PRCHOUT WHSE STATS",147)=""
^DIBT("B","PRCHQ RFQ MESSAGE SORT",581)=""
^DIBT("B","PRCNSRPR",579)=""
^DIBT("B","PRCP POSTED DIETETIC SORT",139)=""
^DIBT("B","PRCP SORT:GROUP",138)=""
^DIBT("B","PRCP SORT:NSN",137)=""
^DIBT("B","PRCS CP ITEMHIST",668)=""
^DIBT("B","PRCS1358 BALANCES",189)=""
^DIBT("B","PRCS1358 OPEN DAILY RECORDS",190)=""
^DIBT("B","PRCSASRT",193)=""
^DIBT("B","PRCSFACPT",157)=""
^DIBT("B","PRCT DATA UPLOAD STATUS",136)=""
^DIBT("B","PRCV DYNAMED RIL'S NEED ACTION",841)=""
^DIBT("B","PRCXA",197)=""
^DIBT("B","PRPF BALANCE IN ACCOUNTS",606)=""
^DIBT("B","PRPF BY PATIENT",594)=""
^DIBT("B","PRPF CURRENT BAL",613)=""
^DIBT("B","PRPF DAILY ACTIVITY",589)=""
^DIBT("B","PRPF DAILY TRANSACTION SUMMARY",590)=""
^DIBT("B","PRPF DAYS BETWEEN DATES",614)=""
^DIBT("B","PRPF DORMANT ACCOUNT LIST",615)=""
^DIBT("B","PRPF FISCAL ACTIVITY REPORT",604)=""
^DIBT("B","PRPF FISCAL TRANS SUMMARY",605)=""
^DIBT("B","PRPF INACTIVE ACCOUNTS",591)=""
^DIBT("B","PRPF INDIGENT LIST",592)=""
^DIBT("B","PRPF LIST",603)=""
^DIBT("B","PRPF PATIENT SUMMARY",593)=""
^DIBT("B","PRPF RANGE OF CARDS",612)=""
^DIBT("B","PRPF SUSPENSE DISPLAY",616)=""
^DIBT("B","PRPF SUSPENSE LIST",601)=""
^DIBT("B","PRPF UNASSIGNED STATION LIST",737)=""
^DIBT("B","PSGW INV TYPE",247)=""
^DIBT("B","PSGW ITEM LOC",246)=""
^DIBT("B","PSGW PERCENTAGE",249)=""
^DIBT("B","PSGW SHOW AREA OF USE",248)=""
^DIBT("B","PSNFRMSRT",213)=""
^DIBT("B","PSO BBWAIT SORT",672)=""
^DIBT("B","PSO COST STAT",670)=""
^DIBT("B","PSO DRUG LIST",214)=""
^DIBT("B","PSO HOLD LIST",216)=""
^DIBT("B","PSO INTERVENTIONS",217)=""
^DIBT("B","PSO NARC LIST",215)=""
^DIBT("B","PSOUPAT",671)=""
^DIBT("B","PX CODE MAPPING",296)=""
^DIBT("B","PX PARAMETERS PRINT",297)=""
^DIBT("B","PXRM EPI LAB AND MED TERMS",715)=""
^DIBT("B","PXRM EXTRACT EPI BY FIND_PT",714)=""
^DIBT("B","PXRM HEP C EXTRACT TERMS",838)=""
^DIBT("B","PXRM HEP C HEALTH FACTORS",699)=""
^DIBT("B","PXRM HEPATITIS C SEARCH",693)=""
^DIBT("B","PXRM NATIONAL TERM SPONSORS",698)=""
^DIBT("B","PXRM NATIONAL TERMS",697)=""
^DIBT("B","PXRM REMINDERS LIST",696)=""
^DIBT("B","PXTT ACTIVE EDUCATION TOPICS",298)=""
^DIBT("B","PXTT ALL TOPICS",294)=""
^DIBT("B","PXTT HEALTH FACTOR BY CATEGORY",295)=""
^DIBT("B","QAC SERV RPT",531)=""
^DIBT("B","QAC SERV/DISC",635)=""
^DIBT("B","QAO QAI POSSIBLE INCIDENTS",545)=""
^DIBT("B","QAQ AUDIT LIST",278)=""
^DIBT("B","RA ALL UNPRINTED",317)=""
^DIBT("B","RA ALPHA LIST OF ACTIVES",307)=""
^DIBT("B","RA CLINIC BY PRINT DATE",315)=""
^DIBT("B","RA DAILY LOG",312)=""
^DIBT("B","RA EXAM ROOM LIST",313)=""
^DIBT("B","RA FLASH PRINT",314)=""
^DIBT("B","RA IMAGE LOC LIST",310)=""
^DIBT("B","RA OUTSIDE LIST",311)=""
^DIBT("B","RA PERSONNEL LIST",309)=""
^DIBT("B","RA PROCEDURES BY AMIS",308)=""
^DIBT("B","RA SERIES ONLY",305)=""
^DIBT("B","RA WARD BY PRINT DATE",316)=""
^DIBT("B","RCAM ADDRESS UNKNOWN",585)=""
^DIBT("B","RCAM COMMENT",210)=""
^DIBT("B","RCCPC INQUIRE STATEMENT",584)=""
^DIBT("B","RCXV ACTIVE SORT",791)=""
^DIBT("B","REJECTED APPT",782)=""
^DIBT("B","RGEQ STAT",680)=""
^DIBT("B","RMIM MAIL SERVER",775)=""
^DIBT("B","RMIMXMIT",773)=""
^DIBT("B","RMIMXMIT DATE",774)=""
^DIBT("B","RMPO PI",687)=""
^DIBT("B","RMPO-BILLING-PRESORT",688)=""
^DIBT("B","RMPO-RPT-HOACTZIPLIST",686)=""
^DIBT("B","RMPO-RPT-HOINACTIVE",709)=""
^DIBT("B","RMPO-RPT-HOPATIENTLIST",683)=""
^DIBT("B","RMPO-RPT-HOPRIITM",685)=""
^DIBT("B","RMPO-RPT-HORXEXP",684)=""
^DIBT("B","RMPR CLOSED VISITS",539)=""
^DIBT("B","RMPR FL 10-90 ADP",541)=""
^DIBT("B","RMPR LIST",665)=""
^DIBT("B","RMPR NEED APP BY FORM TYPE",542)=""
^DIBT("B","RMPR OIF/OEF PSAS VETS",892)=""
^DIBT("B","RMPR OPEN TRANS",544)=""
^DIBT("B","RMPR OPEN VISITS",540)=""
^DIBT("B","RMPR PRINT ITEM",537)=""
^DIBT("B","RMPR SUSPENSE CLOSE",538)=""
^DIBT("B","RMPR TECH PAT",543)=""
^DIBT("B","ROGER",889)=""
^DIBT("B","ROR DATA ELEMENTS",736)=""
^DIBT("B","ROR LOG",735)=""
^DIBT("B","ROR PENDING ERRORS",738)=""
^DIBT("B","RT ALL INPATIENTS",224)=""
^DIBT("B","RT CHARGED BY HOME BY BOR",227)=""
^DIBT("B","RT CHARGED BY HOME BY NAME",228)=""
^DIBT("B","RT CHARGED BY HOME BY TD",241)=""
^DIBT("B","RT DAILY LOG",225)=""
^DIBT("B","RT FILE ROOM/REMOTE",245)=""
^DIBT("B","RT FORMATS",231)=""
^DIBT("B","RT HOME LIST BY BOR",235)=""
^DIBT("B","RT HOME LIST BY NAME",236)=""
^DIBT("B","RT HOME LIST BY TD",240)=""
^DIBT("B","RT INPUT TEMPLATES",221)=""
^DIBT("B","RT LOOSE FILING",243)=""
^DIBT("B","RT MISSING",234)=""
^DIBT("B","RT OVER BY DIV BY BOR",232)=""
^DIBT("B","RT OVER BY DIV BY NAME",233)=""
^DIBT("B","RT OVER BY DIV BY TD",238)=""
^DIBT("B","RT OVER BY HOME BY BOR",229)=""
^DIBT("B","RT OVER BY HOME BY NAME",230)=""
^DIBT("B","RT OVER BY HOME BY TD",239)=""
^DIBT("B","RT PENDING REQUESTS",226)=""
^DIBT("B","RT PRINT TEMPLATES",220)=""
^DIBT("B","RT PURGE PROFILE",242)=""
^DIBT("B","RT RETIREMENT PROFILE",244)=""
^DIBT("B","RT SORT TEMPLATES",222)=""
^DIBT("B","RT TIME STUDY",237)=""
^DIBT("B","RT WARD LIST",223)=""
^DIBT("B","SC INACTIVATED",887)=""
^DIBT("B","SC PROVIDER FLAGGED",876)=""
^DIBT("B","SC PROVIDER FLAGGED BULLE",886)=""
^DIBT("B","SCCV ERROR LOG",692)=""
^DIBT("B","SCCV EVENT LOG",691)=""
^DIBT("B","SCCV REQUEST LOG",690)=""
^DIBT("B","SCENI ERROR SORT",632)=""
^DIBT("B","SCENI PT ALPHA SORT",631)=""
^DIBT("B","SCMC DIRECT PC FTEE",739)=""
^DIBT("B","SCMC EXTENDED",873)=""
^DIBT("B","SCMC EXTENDED BULLETIN",884)=""
^DIBT("B","SCMC EXTENDED BY CLINIC",878)=""
^DIBT("B","SCMC EXTENDED BY TEAM",877)=""
^DIBT("B","SCMC FLAGGED",874)=""
^DIBT("B","SCMC FLAGGED BULLETIN",885)=""
^DIBT("B","SCMC FLAGGED BY CLINIC",882)=""
^DIBT("B","SCMC FLAGGED BY TEAM",881)=""
^DIBT("B","SCMC INACTIVATED",875)=""
^DIBT("B","SCMC INACTIVATION BY CLINIC",880)=""
^DIBT("B","SCMC INACTIVATION BY TEAM",879)=""
^DIBT("B","SCMC INACTIVATION SORT",872)=""
^DIBT("B","SCMC INCONSISTENT",871)=""
^DIBT("B","SCMC PENDING UNASSIGN",870)=""
^DIBT("B","SCMC PROVIDER INACTIVATED",883)=""
^DIBT("B","SCMC TOBE INACTIVATED",888)=""
^DIBT("B","SD-PAIT PAIT ACK SORT",788)=""
^DIBT("B","SD-PAIT PATIENT HL7 LOCATION",837)=""
^DIBT("B","SD-PAIT PEND EXCL FUTURE",786)=""
^DIBT("B","SD-PAIT REJECTED APPT",787)=""
^DIBT("B","SD-PAIT TRANS SUMMARY",789)=""
^DIBT("B","SDASUSP",121)=""
^DIBT("B","SDP394",858)=""
^DIBT("B","SDWL30DAY",867)=""
^DIBT("B","SDWLDNR",868)=""
^DIBT("B","SDWLRO",843)=""
^DIBT("B","SDWLWTR",869)=""
^DIBT("B","SOWK CITY/HOMELESS",536)=""
^DIBT("B","SOWKCLC",534)=""
^DIBT("B","SOWKHIFS",535)=""
^DIBT("B","SOWKOPC",533)=""
^DIBT("B","SR BLOOD PRODUCT VERIFICATION",647)=""
^DIBT("B","SUSPENSE OIF/OEF VETS",891)=""
^DIBT("B","VAQ REQUIRES PROCESSING",261)=""
^DIBT("B","VAQ TRANSACTIONS BY AUTHORIZER",256)=""
^DIBT("B","VAQ TRANSACTIONS BY DATE SENT",259)=""
^DIBT("B","VAQ TRANSACTIONS BY FACILITY",255)=""
^DIBT("B","VAQ TRANSACTIONS BY PATIENT",254)=""
^DIBT("B","VAQ TRANSACTIONS BY RECEIPT",258)=""
^DIBT("B","VAQ TRANSACTIONS BY REQUESTOR",257)=""
^DIBT("B","VAQ TRANSACTIONS BY STATUS",260)=""
^DIBT("B","VAQ WORK-LOAD BY DATE",253)=""
^DIBT("B","VAQ WORK-LOAD BY FACILITY",250)=""
^DIBT("B","VAQ WORK-LOAD BY PATIENT",251)=""
^DIBT("B","VAQ WORK-LOAD BY WORK",252)=""
^DIBT("B","XDR MERGED LIST",666)=""
^DIBT("B","XDR NOT READY TO MERGE LIST",34)=""
^DIBT("B","XDR POTENTIAL DUPLICATE LIST",33)=""
^DIBT("B","XDR READY TO MERGE LIST",35)=""
^DIBT("B","XIP STATE EXPORT",862)=""
^DIBT("B","XIP STATE/COUNTY EXPORT",861)=""
^DIBT("B","XIP ZIP CODE LIST",836)=""
^DIBT("B","XMMGR-BKFILER-DAY@23:30",26)=""
^DIBT("B","XMMGR-BKFILER-TIME_PER_DATE",27)=""
^DIBT("B","XPD DISPLAY ENTRY",1)=""
^DIBT("B","XQ-BACKGROUND RECOMMENDED",23)=""
^DIBT("B","XQ-BACKGROUND SCHEDULE",24)=""
^DIBT("B","XQAB +DAT/ROU/SITE",20)=""
^DIBT("B","XQEDIT-DIC",854)=""
^DIBT("B","XQHNEW/REVISED FRAMES",2)=""
^DIBT("B","XQSMD BY OPTION",17)=""
^DIBT("B","XQSMD BY USER",16)=""
^DIBT("B","XQTYPEERRORS",22)=""
^DIBT("B","XTLK KEYWORD ALPHA",31)=""
^DIBT("B","XTLK KEYWORD CODES",32)=""
^DIBT("B","XTLK SHORT ALPHA",28)=""
^DIBT("B","XTLK SHORT CODE",29)=""
^DIBT("B","XTLK SYNONYM ALPHA",30)=""
^DIBT("B","XTPM COMPLETE PATCH HISTORY",850)=""
^DIBT("B","XTPM UNINSTALLED BY COMPLIANCE",851)=""
^DIBT("B","XU-CLINICAL ACTIVE TRAINEE",849)=""
^DIBT("B","XU-CLINICAL INACTIVE TRAINEE",848)=""
^DIBT("B","XU-CLINICAL TRAINEE DB COUNT",780)=""
^DIBT("B","XU-CLINICAL TRAINEE LIST",847)=""
^DIBT("B","XU-CLINICAL TRAINEE TRANSA",844)=""
^DIBT("B","XU-CLINICAL TRAINEE TRANSB",845)=""
^DIBT("B","XU-CLINICAL TRAINEE TRANSC",846)=""
^DIBT("B","XU-FAILED LOGONS: CPU,UCI,DATE",4)=""
^DIBT("B","XU-SIGNON-USER",12)=""
^DIBT("B","XU-ZISPL-USER",11)=""
^DIBT("B","XUDEV LINEPORTADDR",25)=""
^DIBT("B","XUDFDISPS",7)=""
^DIBT("B","XUDOC SUPPORTED EP",15)=""
^DIBT("B","XUDOC SYSTEM ROUTINES",14)=""
^DIBT("B","XUFDISPS",6)=""
^DIBT("B","XUFILE BY FILE NUMBER",18)=""
^DIBT("B","XUOPTDISPS",9)=""
^DIBT("B","XUOPTLOGS",8)=""
^DIBT("B","XUPMDISPS",3)=""
^DIBT("B","XUPRG-ROUTINE EDIT",13)=""
^DIBT("B","XUS VISIT USERS",713)=""
^DIBT("B","XUSAP PROXY LIST",859)=""
^DIBT("B","XUSEC ISO ACTIVE USER SORT",863)=""
^DIBT("B","XUSEC REMOTE ACCESS",712)=""
^DIBT("B","XUSEC TERMINATION REPORT",790)=""
^DIBT("B","XUSEC TERMINATION REPORT Q",792)=""
^DIBT("B","XUSER PC BUILD",373)=""
^DIBT("B","XUSERVER SORT",19)=""
^DIBT("B","XUUFAA",5)=""
^DIBT("B","XUUSEROPTS",10)=""
^DIBT("B","XUZ DOC",21)=""
^DIBT("B","YSSR 10-2683 SORT",285)=""
^DIBT("B","YSSR DATE OF REVIEW",288)=""
^DIBT("B","YSSR DATE SORT",289)=""
^DIBT("B","YSSR NURSE MGT SORT",287)=""
^DIBT("B","YSSR WARD MGT SORT",286)=""
^DIBT("F.4","ONCOLOGY PRINT TEMPLATE LIST",378)="1"
^DIBT("F.4","RT PRINT TEMPLATES",220)="1"
^DIBT("F.401","ONCOLOGY SORT TEMPLATE LIST",377)="1"
^DIBT("F.401","RT SORT TEMPLATES",222)="1"
^DIBT("F.402","ONCOLOGY INPUT TEMPLATE LIST",376)="1"
^DIBT("F.402","RT INPUT TEMPLATES",221)="1"
^DIBT("F0","JSH DDS",890)="1"
^DIBT("F1","BPS TECH - FILES",818)="1"
^DIBT("F1.1","XUSEC TERMINATION REPORT",790)="1"
^DIBT("F1.1","XUSEC TERMINATION REPORT Q",792)="1"
^DIBT("F101","GMRC PROTOCOLS",100)="1"
^DIBT("F101","HL PROTOCOL MESSAGING FIELDS",779)="1"
^DIBT("F1020.4","PPP LOGS",262)="1"
^DIBT("F120.8","GMRA SORT AUTOVERIFIED",98)="1"
^DIBT("F123","GMRC CONSULTS LIST",101)="1"
^DIBT("F142","GMTS TASK LOCATIONS SORT",99)="1"
^DIBT("F15","XDR MERGED LIST",666)="1"
^DIBT("F15","XDR NOT READY TO MERGE LIST",34)="1"
^DIBT("F15","XDR POTENTIAL DUPLICATE LIST",33)="1"
^DIBT("F15","XDR READY TO MERGE LIST",35)="1"
^DIBT("F160","ONCO CASEFINDING REPORT",402)="1"
^DIBT("F160","ONCO DELINQUENT(LTF) LIST",389)="1"
^DIBT("F160","ONCO DUE FOLLOWUP",388)="1"
^DIBT("F160","ONCO DUE FOLLOWUP-ADM/DIS",392)="1"
^DIBT("F160","ONCO DUE FOLLOWUP/TERMDIG",394)="1"
^DIBT("F160","ONCO FOLLOWUP HISTORY",391)="1"
^DIBT("F160","ONCO FOLLOWUP PATIENT RPT",395)="1"
^DIBT("F160","ONCO FOLLOWUP STATUS RPT",390)="1"
^DIBT("F160","ONCO LAB-CASEFINDING REPORT",396)="1"
^DIBT("F160","ONCO LOSTTOFOLLOWUP",397)="1"
^DIBT("F160","ONCO PATIENT ONLY",387)="1"
^DIBT("F160","ONCO PTF-CASEFINDING RPT",398)="1"
^DIBT("F160","ONCO RAD-CASEFINDING RPT",399)="1"
^DIBT("F160","ONCOS BLACK-FEMALES",410)="1"
^DIBT("F160","ONCOS BLACK-MALES",408)="1"
^DIBT("F160","ONCOS RACE=BLACK",406)="1"
^DIBT("F160","ONCOS RACE=WHITE",404)="1"
^DIBT("F160","ONCOS SEX=FEMALE",405)="1"
^DIBT("F160","ONCOS SEX=MALE",403)="1"
^DIBT("F160","ONCOS WHITE-FEMALES",409)="1"
^DIBT("F160","ONCOS WHITE-MALES",407)="1"
^DIBT("F160.1","ONCO NEG-REPORT",382)="1"
^DIBT("F160.2","ONCO ACOS DOCUMENTATION",381)="1"
^DIBT("F161.7","FB BATCH LIST",299)="1"
^DIBT("F162.1","FBAA RX PENDING",300)="1"
^DIBT("F162.2","FBCH PENDING REQUEST",301)="1"
^DIBT("F162.4","FBCH 7078 CANCEL",302)="1"
^DIBT("F162.7","FBUC STATUS BY PATIENT",303)="1"
^DIBT("F162.7","FBUC STATUS BY VENDOR",304)="1"
^DIBT("F164","ONCO TOPOG BY SITEGRP",497)="1"
^DIBT("F164","ONCO TOPOGRAPHY BY CODE",495)="1"
^DIBT("F164.2","ONCO TOPOG SITES",496)="1"
^DIBT("F164.2","ONCOLOGY SITE/GROUP-TOPOGRAPHY",379)="1"
^DIBT("F165","ONCO CONTACT LIST-A",411)="1"
^DIBT("F165","ONCO CONTACT LIST-T",412)="1"
^DIBT("F165.5","ONCO ABSTINCOM-TERMDIG",489)="1"
^DIBT("F165.5","ONCO ABSTRACT DATE/COMPLETE",490)="1"
^DIBT("F165.5","ONCO ABSTRACT NOT-COMPLETE",417)="1"
^DIBT("F165.5","ONCO ABSTRACT RECORD",446)="1"
^DIBT("F165.5","ONCO ACCREG-ACOS80",413)="1"
^DIBT("F165.5","ONCO ACCREG-EOVA132",415)="1"
^DIBT("F165.5","ONCO ACCREG-SITE/GP80",414)="1"
^DIBT("F165.5","ONCO ANN/ANAL/STA/SITE/DX AGE",465)="1"
^DIBT("F165.5","ONCO ANNUAL ACCREG80",419)="1"
^DIBT("F165.5","ONCO ANNUAL ACOSACCREG80",442)="1"
^DIBT("F165.5","ONCO ANNUAL ANALYTIC",441)="1"
^DIBT("F165.5","ONCO ANNUAL CLASS/PATIENT",418)="1"
^DIBT("F165.5","ONCO ANNUAL CLASS/SITE",445)="1"
^DIBT("F165.5","ONCO ANNUAL HIST/SITE/ICDO",450)="1"
^DIBT("F165.5","ONCO ANNUAL ICDO/STAGE/TX",449)="1"
^DIBT("F165.5","ONCO ANNUAL PATIENT INDX",420)="1"
^DIBT("F165.5","ONCO ANNUAL SITE/GP",438)="1"
^DIBT("F165.5","ONCO ANNUAL SITE/ICDT/ICDM",423)="1"
^DIBT("F165.5","ONCO ANNUAL SITE/STAGE/TX",447)="1"
^DIBT("F165.5","ONCO ICDO-SITE",444)="1"
^DIBT("F165.5","ONCO ICDO-SITE132",440)="1"
^DIBT("F165.5","ONCO ICDO-SITE80",439)="1"
^DIBT("F165.5","ONCO PCE ANNUAL REPORT",493)="1"
^DIBT("F165.5","ONCO SITE/GP80",416)="1"
^DIBT("F165.5","ONCO STAGE/SITE",443)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE 0",448)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE I",451)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE II",452)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE III",453)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE IV",454)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE NA",499)="1"
^DIBT("F165.5","ONCOS ANAL/STAGE U",455)="1"
^DIBT("F165.5","ONCOS ANALYTIC",457)="1"
^DIBT("F165.5","ONCOS ANALYTIC-140",427)="1"
^DIBT("F165.5","ONCOS ANALYTIC-153",425)="1"
^DIBT("F165.5","ONCOS ANALYTIC-154",426)="1"
^DIBT("F165.5","ONCOS ANALYTIC-160",421)="1"
^DIBT("F165.5","ONCOS ANALYTIC-161",424)="1"
^DIBT("F165.5","ONCOS ANALYTIC-162",422)="1"
^DIBT("F165.5","ONCOS ANALYTIC-193",428)="1"
^DIBT("F165.5","ONCOS ANALYTIC-196",429)="1"
^DIBT("F165.5","ONCOS ANALYTIC_NON",459)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE 0",436)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE I",432)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE II",433)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE III",434)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE IV",435)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE NA",500)="1"
^DIBT("F165.5","ONCOS ANNUAL ANAL/STAGE U",437)="1"
^DIBT("F165.5","ONCOS ANNUAL-ALLCASES",462)="1"
^DIBT("F165.5","ONCOS ANNUAL-ANALYTIC",456)="1"
^DIBT("F165.5","ONCOS ANNUAL-NON ANAL",458)="1"
^DIBT("F165.5","ONCOS ANNUAL/ANAL-90",487)="1"
^DIBT("F165.5","ONCOS KAPOSI",479)="1"
^DIBT("F165.5","ONCOS LARYNX/AN/90",480)="1"
^DIBT("F165.5","ONCOS LUNG/NON-SMALL CELL",494)="1"
^DIBT("F165.5","ONCOS MEMPHIS LUNG",491)="1"
^DIBT("F165.5","ONCOS NON-ANALYTIC",430)="1"
^DIBT("F165.5","ONCOS RANGE-ALLCASES",460)="1"
^DIBT("F165.5","ONCOS RANGE-ANALYTIC",431)="1"
^DIBT("F165.5","ONCOS RANGE-NON ANAL",461)="1"
^DIBT("F165.5","ONCOS SITE=BLADDER",482)="1"
^DIBT("F165.5","ONCOS SITE=BRAIN",470)="1"
^DIBT("F165.5","ONCOS SITE=BREAST",492)="1"
^DIBT("F165.5","ONCOS SITE=COLON",468)="1"
^DIBT("F165.5","ONCOS SITE=ESOHAGUS",483)="1"
^DIBT("F165.5","ONCOS SITE=HODGKIN'S",485)="1"
^DIBT("F165.5","ONCOS SITE=HODGKINS",471)="1"
^DIBT("F165.5","ONCOS SITE=LARYNX",473)="1"
^DIBT("F165.5","ONCOS SITE=LIP",469)="1"
^DIBT("F165.5","ONCOS SITE=LIVER",488)="1"
^DIBT("F165.5","ONCOS SITE=LUNG",467)="1"
^DIBT("F165.5","ONCOS SITE=LYMPH NODES",474)="1"
^DIBT("F165.5","ONCOS SITE=NON-HODGKINS",472)="1"
^DIBT("F165.5","ONCOS SITE=NON-HODGKINS'S",486)="1"
^DIBT("F165.5","ONCOS SITE=PHARYNX",484)="1"
^DIBT("F165.5","ONCOS SITE=PROSTATE",466)="1"
^DIBT("F165.5","ONCOS SITE=TESTIS",481)="1"
^DIBT("F165.5","ONCOS TOTAL-ANAL",463)="1"
^DIBT("F165.5","ONCOS TOTAL-NON",464)="1"
^DIBT("F165.5","ONCOS TX-CHEMO",476)="1"
^DIBT("F165.5","ONCOS TX-HORMONE",478)="1"
^DIBT("F165.5","ONCOS TX-RADIATION",477)="1"
^DIBT("F165.5","ONCOS TX-SURGERY",475)="1"
^DIBT("F165.5","ONCOZ LUNG SURVIVAL",498)="1"
^DIBT("F19","BPS TECH - OPTIONS",819)="1"
^DIBT("F19","ONCOLOGY OPTION LIST",374)="1"
^DIBT("F19","XQ-BACKGROUND RECOMMENDED",23)="1"
^DIBT("F19","XQTYPEERRORS",22)="1"
^DIBT("F19.081","SR BLOOD PRODUCT VERIFICATION",647)="1"
^DIBT("F19.081","XUOPTDISPS",9)="1"
^DIBT("F19.081","XUOPTLOGS",8)="1"
^DIBT("F19.081","XUSERVER SORT",19)="1"
^DIBT("F19.081","XUUSEROPTS",10)="1"
^DIBT("F19.2","XQ-BACKGROUND SCHEDULE",24)="1"
^DIBT("F19.8","XQEDIT-DIC",854)="1"
^DIBT("F190","RT CHARGED BY HOME BY BOR",227)="1"
^DIBT("F190","RT CHARGED BY HOME BY NAME",228)="1"
^DIBT("F190","RT CHARGED BY HOME BY TD",241)="1"
^DIBT("F190","RT HOME LIST BY BOR",235)="1"
^DIBT("F190","RT HOME LIST BY NAME",236)="1"
^DIBT("F190","RT HOME LIST BY TD",240)="1"
^DIBT("F190","RT LOOSE FILING",243)="1"
^DIBT("F190","RT OVER BY DIV BY BOR",232)="1"
^DIBT("F190","RT OVER BY DIV BY NAME",233)="1"
^DIBT("F190","RT OVER BY DIV BY TD",238)="1"
^DIBT("F190","RT OVER BY HOME BY BOR",229)="1"
^DIBT("F190","RT OVER BY HOME BY NAME",230)="1"
^DIBT("F190","RT OVER BY HOME BY TD",239)="1"
^DIBT("F190.1","RT PENDING REQUESTS",226)="1"
^DIBT("F190.1","RT TIME STUDY",237)="1"
^DIBT("F190.2","RT MISSING",234)="1"
^DIBT("F190.3","RT DAILY LOG",225)="1"
^DIBT("F194.4","RT FORMATS",231)="1"
^DIBT("F195.2","RT PURGE PROFILE",242)="1"
^DIBT("F195.2","RT RETIREMENT PROFILE",244)="1"
^DIBT("F195.9","RT FILE ROOM/REMOTE",245)="1"
^DIBT("F2","DG BAI",839)="1"
^DIBT("F2","DG FEMALE INPATIENTS",102)="1"
^DIBT("F2","DPTNS 02/03/88@08:57",103)="1"
^DIBT("F2","IBNOTVER",133)="1"
^DIBT("F2","IBNOTVER1",134)="1"
^DIBT("F2","RT ALL INPATIENTS",224)="1"
^DIBT("F2","RT WARD LIST",223)="1"
^DIBT("F200","DG MISSING SSN SORT",689)="1"
^DIBT("F200","RA PERSONNEL LIST",309)="1"
^DIBT("F200","XQSMD BY OPTION",17)="1"
^DIBT("F200","XQSMD BY USER",16)="1"
^DIBT("F200","XU-CLINICAL ACTIVE TRAINEE",849)="1"
^DIBT("F200","XU-CLINICAL INACTIVE TRAINEE",848)="1"
^DIBT("F200","XU-CLINICAL TRAINEE DB COUNT",780)="1"
^DIBT("F200","XU-CLINICAL TRAINEE LIST",847)="1"
^DIBT("F200","XU-CLINICAL TRAINEE TRANSA",844)="1"
^DIBT("F200","XU-CLINICAL TRAINEE TRANSB",845)="1"
^DIBT("F200","XU-CLINICAL TRAINEE TRANSC",846)="1"
^DIBT("F200","XUFILE BY FILE NUMBER",18)="1"
^DIBT("F200","XUS VISIT USERS",713)="1"
^DIBT("F200","XUSAP PROXY LIST",859)="1"
^DIBT("F200","XUSEC ISO ACTIVE USER SORT",863)="1"
^DIBT("F200","XUSER PC BUILD",373)="1"
^DIBT("F2005","MAG REPORT 1",895)="1"
^DIBT("F2005","MAG REPORT 2",896)="1"
^DIBT("F2005","MAG REPORT 3",897)="1"
^DIBT("F2005","MAG REPORT 4",898)="1"
^DIBT("F2006.5849","MAGREADER",899)="1"
^DIBT("F2006.5849","MAGREPAIR",900)="1"
^DIBT("F2006.5849","MAGSTATUS",901)="1"
^DIBT("F2040","ANRV AGE LIST",656)="1"
^DIBT("F2040","ANRV BIRTH LIST",657)="1"
^DIBT("F2040","ANRV DECEASED LIST",655)="1"
^DIBT("F2040","ANRV ELIG AMIS LIST",662)="1"
^DIBT("F2040","ANRV EYE DIAG NAR",659)="1"
^DIBT("F2040","ANRV EYE DIAG PRINT",658)="1"
^DIBT("F2040","ANRV FEE PT",661)="1"
^DIBT("F2040","ANRV INC AMIS",654)="1"
^DIBT("F2040","ANRV REFERRAL LIST",660)="1"
^DIBT("F2040","ANRVAD",649)="1"
^DIBT("F2040","ANRVED",651)="1"
^DIBT("F2040","ANRVFVD",652)="1"
^DIBT("F2040","ANRVID",650)="1"
^DIBT("F2040","ANRVREV1",653)="1"
^DIBT("F2042.5","ANRVRRL",663)="1"
^DIBT("F210","NURS-NAME-SORT",293)="1"
^DIBT("F2100","GECS READY FOR BATCHING",93)="1"
^DIBT("F2100","GECS READY FOR TRANSMISSION",94)="1"
^DIBT("F2100","GECS TRANSMISSION",97)="1"
^DIBT("F2101.3","GECS BATCH STATUS",96)="1"
^DIBT("F2101.3","GECS BATCHES WAITING",95)="1"
^DIBT("F213.5","NURA-S-EXCEPTION",290)="1"
^DIBT("F213.9","NURS-S-MANHOURS",291)="1"
^DIBT("F219.7","NURS-SORT BY TYPE/OLD NAME",292)="1"
^DIBT("F3.05","XU-FAILED LOGONS: CPU,UCI,DATE",4)="1"
^DIBT("F3.05","XUDFDISPS",7)="1"
^DIBT("F3.05","XUFDISPS",6)="1"
^DIBT("F3.05","XUUFAA",5)="1"
^DIBT("F3.07","XUPMDISPS",3)="1"
^DIBT("F3.081","XU-SIGNON-USER",12)="1"
^DIBT("F3.081","XUSEC REMOTE ACCESS",712)="1"
^DIBT("F3.5","XUDEV LINEPORTADDR",25)="1"
^DIBT("F3.51","XU-ZISPL-USER",11)="1"
^DIBT("F340","RCAM ADDRESS UNKNOWN",585)="1"
^DIBT("F341","RCAM COMMENT",210)="1"
^DIBT("F349.2","RCCPC INQUIRE STATEMENT",584)="1"
^DIBT("F350","IB INCOMPLETE",123)="1"
^DIBT("F351.71","IBJD DM REPT SORT",679)="1"
^DIBT("F354","IB BILLING PAT W/INCOME",128)="1"
^DIBT("F354","IB BILLING PATIENT BY REASON",127)="1"
^DIBT("F354","IB BILLING PATIENT BY STATUS",126)="1"
^DIBT("F354","IB EXEMPT PATIENTS",129)="1"
^DIBT("F354","IB EXEMPTION LETTER",130)="1"
^DIBT("F354.3","IB PRINT THRESHOLD",125)="1"
^DIBT("F356","IBT LIST VISITS",135)="1"
^DIBT("F356","IBT QUICK REV CODING STAT",852)="1"
^DIBT("F357.6","IBD PRIM CARE SEARCH",607)="1"
^DIBT("F357.96","IBD NO APPOINTMENT LIST",630)="1"
^DIBT("F359.3","IBD LIST ERRORS",609)="1"
^DIBT("F36","IB INACTIVE INS CO",132)="1"
^DIBT("F362.1","IB AB COMMENTS",131)="1"
^DIBT("F364.6","IBCE LOCAL DATA ELEMENTS",695)="1"
^DIBT("F38.1","DG ISO SENSITIVE RCDS SORT",842)="1"
^DIBT("F392.1","DGBT REMARKS",118)="1"
^DIBT("F394.61","VAQ REQUIRES PROCESSING",261)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY AUTHORIZER",256)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY DATE SENT",259)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY FACILITY",255)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY PATIENT",254)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY RECEIPT",258)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY REQUESTOR",257)="1"
^DIBT("F394.61","VAQ TRANSACTIONS BY STATUS",260)="1"
^DIBT("F394.87","VAQ WORK-LOAD BY DATE",253)="1"
^DIBT("F394.87","VAQ WORK-LOAD BY FACILITY",250)="1"
^DIBT("F394.87","VAQ WORK-LOAD BY PATIENT",251)="1"
^DIBT("F394.87","VAQ WORK-LOAD BY WORK",252)="1"
^DIBT("F395.5","DVBHINQPURGE",264)="1"
^DIBT("F395.7","DVBHINQ AUDIT/DT",265)="1"
^DIBT("F395.7","DVBHINQ AUDIT/PAT",267)="1"
^DIBT("F395.7","DVBHINQ AUDIT/USER",266)="1"
^DIBT("F396","DVBA 21 DAY CERT",277)="1"
^DIBT("F396","DVBA FINALIZED REPORT",269)="1"
^DIBT("F396","DVBA INCOMP REQ REPORT",268)="1"
^DIBT("F396","DVBA NOT/DIS-21 DAY CERT CHECK",270)="1"
^DIBT("F396","DVBA NOTICE OF DISCHARGE",276)="1"
^DIBT("F396.3","DVBA C REQUESTS BY DATE RANGE",274)="1"
^DIBT("F396.4","DVBA C REQUESTS BY PHYSICIAN",275)="1"
^DIBT("F396.6","DVBA C EXAM CHECKLIST",272)="1"
^DIBT("F396.6","DVBA C EXAM LAYOUT",273)="1"
^DIBT("F399","IB CLK PROD",124)="1"
^DIBT("F399.5","IB BILLING RATES",122)="1"
^DIBT("F4","ROGER",889)="1"
^DIBT("F4.2998","XMMGR-BKFILER-DAY@23:30",26)="1"
^DIBT("F4.2998","XMMGR-BKFILER-TIME_PER_DATE",27)="1"
^DIBT("F40.1","SDASUSP",121)="1"
^DIBT("F404.43","SCMC EXTENDED",873)="1"
^DIBT("F404.43","SCMC EXTENDED BULLETIN",884)="1"
^DIBT("F404.43","SCMC EXTENDED BY CLINIC",878)="1"
^DIBT("F404.43","SCMC EXTENDED BY TEAM",877)="1"
^DIBT("F404.43","SCMC FLAGGED",874)="1"
^DIBT("F404.43","SCMC FLAGGED BULLETIN",885)="1"
^DIBT("F404.43","SCMC FLAGGED BY CLINIC",882)="1"
^DIBT("F404.43","SCMC FLAGGED BY TEAM",881)="1"
^DIBT("F404.43","SCMC INACTIVATED",875)="1"
^DIBT("F404.43","SCMC INACTIVATION BY CLINIC",880)="1"
^DIBT("F404.43","SCMC INACTIVATION BY TEAM",879)="1"
^DIBT("F404.43","SCMC INACTIVATION SORT",872)="1"
^DIBT("F404.43","SCMC PENDING UNASSIGN",870)="1"
^DIBT("F404.43","SCMC TOBE INACTIVATED",888)="1"
^DIBT("F404.52","SC INACTIVATED",887)="1"
^DIBT("F404.52","SC PROVIDER FLAGGED",876)="1"
^DIBT("F404.52","SC PROVIDER FLAGGED BULLE",886)="1"
^DIBT("F404.52","SCMC DIRECT PC FTEE",739)="1"
^DIBT("F404.52","SCMC PROVIDER INACTIVATED",883)="1"
^DIBT("F404.57","SCMC INCONSISTENT",871)="1"
^DIBT("F404.98","SCCV ERROR LOG",692)="1"
^DIBT("F404.98","SCCV EVENT LOG",691)="1"
^DIBT("F404.98","SCCV REQUEST LOG",690)="1"
^DIBT("F405","DG PTF NO ADMISSION",114)="1"
^DIBT("F405","DGPM INP HISTORICAL 1 DIVISION",116)="1"
^DIBT("F405","DGPM INP HISTORICAL DIVISION",115)="1"
^DIBT("F405","DVBA ADMISSION REVIEW",271)="1"
^DIBT("F408","DGOD COMPLETE INP",110)="1"
^DIBT("F408","DGOD COMPLETE OPC",109)="1"
^DIBT("F409.1","SDP394",858)="1"
^DIBT("F409.3","SDWL30DAY",867)="1"
^DIBT("F409.3","SDWLDNR",868)="1"
^DIBT("F409.3","SDWLRO",843)="1"
^DIBT("F409.3","SDWLWTR",869)="1"
^DIBT("F409.39","PATCH 486 SORT TEMPLATE",893)="1"
^DIBT("F409.39","PATCH 525 SORT TEMPLATE",894)="1"
^DIBT("F409.6","PENDING APPT EXCLUDING FUTURE",781)="1"
^DIBT("F409.6","REJECTED APPT",782)="1"
^DIBT("F409.6","SD-PAIT PAIT ACK SORT",788)="1"
^DIBT("F409.6","SD-PAIT PATIENT HL7 LOCATION",837)="1"
^DIBT("F409.6","SD-PAIT PEND EXCL FUTURE",786)="1"
^DIBT("F409.6","SD-PAIT REJECTED APPT",787)="1"
^DIBT("F409.6","SD-PAIT TRANS SUMMARY",789)="1"
^DIBT("F409.75","SCENI ERROR SORT",632)="1"
^DIBT("F409.75","SCENI PT ALPHA SORT",631)="1"
^DIBT("F410","PRCH REQUESTING SVC",153)="1"
^DIBT("F410","PRCS CP ITEMHIST",668)="1"
^DIBT("F410","PRCSASRT",193)="1"
^DIBT("F410","PRCSFACPT",157)="1"
^DIBT("F413","PRCNSRPR",579)="1"
^DIBT("F414.02","PRCV DYNAMED RIL'S NEED ACTION",841)="1"
^DIBT("F42.5","DGWAIT LIST",104)="1"
^DIBT("F42.55","DG ACTIVE PRIORITY GROUPS",113)="1"
^DIBT("F420","PRCB FCP LIST OF MGR/USER",163)="1"
^DIBT("F420","PRCB FCP SUB-ACCOUNT LIST",165)="1"
^DIBT("F420","PRCXA",197)="1"
^DIBT("F420.18","PRCD BY FUND,DOC TYPE,DATA ELE",194)="1"
^DIBT("F420.96","PRCFOOR4",187)="1"
^DIBT("F420.98","PRCF FMS ADJUSTMENTS",196)="1"
^DIBT("F420.99","PRCF FMS ADJUSTMENTS",195)="1"
^DIBT("F421","PRCB BY APP/FCP",172)="1"
^DIBT("F421","PRCB BY APPROP/TDA",170)="1"
^DIBT("F421","PRCB BY REL LIST/FCP/TRANS",191)="1"
^DIBT("F421","PRCB BY SEARCH/FCP/TRANS",171)="1"
^DIBT("F421","PRCB BY TRANS/TDA",169)="1"
^DIBT("F421","PRCB BY TRANSACTION NUMBER",168)="1"
^DIBT("F421","PRCB SORT BY 285/TRANS/TDA",192)="1"
^DIBT("F421","PRCB SORT BY SIFY/TDA",174)="1"
^DIBT("F421.2","PRCFA RR INQUIRY LISTING",158)="1"
^DIBT("F421.5","PRCF CI DISCOUNT DUE SORT",178)="1"
^DIBT("F421.5","PRCF CI NET DUE DATE SORT",179)="1"
^DIBT("F421.5","PRCF CI OUT SORT",177)="1"
^DIBT("F423","PRCFA BATCH PRINT SORT",149)="1"
^DIBT("F423","PRCFA BATCH REPRINT SORT",151)="1"
^DIBT("F423","PRCFA BATCH TRANSMIT SORT",150)="1"
^DIBT("F423","PRCFA ERROR LIST",162)="1"
^DIBT("F423","PRCFA REPRINT ERROR LIST",185)="1"
^DIBT("F424","PRCEC OPN1358",183)="1"
^DIBT("F424","PRCS1358 BALANCES",189)="1"
^DIBT("F424","PRCS1358 OPEN DAILY RECORDS",190)="1"
^DIBT("F430","PRCA LAST ACTIVITY",208)="1"
^DIBT("F430","PRCARFD",211)="1"
^DIBT("F430","PRCAS ESTABLISH AMIS",204)="1"
^DIBT("F430","PRCAS OUTSTAND AMIS",203)="1"
^DIBT("F430","RCXV ACTIVE SORT",791)="1"
^DIBT("F433","PRCA FOLLOW-UP",207)="1"
^DIBT("F433","PRCAS AMIS SORT",202)="1"
^DIBT("F433","PRCAT NEW TRANS",201)="1"
^DIBT("F440.5","PRCH CARD INFOSORT",720)="1"
^DIBT("F440.5","PRCH IMPAC SORT",617)="1"
^DIBT("F440.6","PRCH AO AUDIT REPORT",633)="1"
^DIBT("F440.6","PRCH BOC SORT",673)="1"
^DIBT("F440.6","PRCH CO AO AUDIT",634)="1"
^DIBT("F440.6","PRCH DEL. REC",624)="1"
^DIBT("F440.6","PRCH DEL. RECSORT",694)="1"
^DIBT("F440.6","PRCH FINAL CHARGE1",626)="1"
^DIBT("F440.6","PRCH P/C ORACLE SORT",580)="1"
^DIBT("F440.6","PRCH P/C ORACLE UNREC SORT",719)="1"
^DIBT("F440.6","PRCH PC AUDIT SORT",718)="1"
^DIBT("F441","PRCHITFCP",141)="1"
^DIBT("F442","PRCB FCP PO STATUS",164)="1"
^DIBT("F442","PRCFA 1358 EOM REPORT",188)="1"
^DIBT("F442","PRCFA STATUS OF PAT",167)="1"
^DIBT("F442","PRCFA UNDEL ORD",148)="1"
^DIBT("F442","PRCFUO",159)="1"
^DIBT("F442","PRCFUO MAN",186)="1"
^DIBT("F442","PRCFUOMS",161)="1"
^DIBT("F442","PRCH CREDIT SORT",218)="1"
^DIBT("F442","PRCH FISCAL PRNT TIME",142)="1"
^DIBT("F442","PRCH FPDS <25K",154)="1"
^DIBT("F442","PRCH FPDS CONTRACT #",155)="1"
^DIBT("F442","PRCH FPDS LI",156)="1"
^DIBT("F442","PRCH FPDS PO REG",180)="1"
^DIBT("F442","PRCH IMP POREG",181)="1"
^DIBT("F442","PRCH INCOMPLETE PO BY PA",146)="1"
^DIBT("F442","PRCH ITEM TXHIST",669)="1"
^DIBT("F442","PRCH OBLIGATED 1358 LIST",860)="1"
^DIBT("F442","PRCH OVERAGE",219)="1"
^DIBT("F442","PRCH PO REGISTER",143)="1"
^DIBT("F442","PRCH POREG",144)="1"
^DIBT("F442","PRCH REQ POREG",182)="1"
^DIBT("F442","PRCH UNPOSTED DIETETIC SORT",184)="1"
^DIBT("F442","PRCH W/O FPDS",160)="1"
^DIBT("F442","PRCH WORKLOAD1",625)="1"
^DIBT("F442","PRCHOUT PA STATS",152)="1"
^DIBT("F442","PRCHOUT PA STATS DAILY",623)="1"
^DIBT("F442","PRCHOUT RR NOT PROC.BY FISCAL",166)="1"
^DIBT("F442","PRCHOUT WHSE STATS",147)="1"
^DIBT("F442.9","PRCFA REC RPT TRANS LIST",176)="1"
^DIBT("F442.9","PRCFA RECEIVING REPORT LIST",175)="1"
^DIBT("F443","PRCH OUTSTANDING REQUEST/PA",140)="1"
^DIBT("F444","PRCHQ RFQ MESSAGE SORT",581)="1"
^DIBT("F445","PRCP SORT:GROUP",138)="1"
^DIBT("F445","PRCP SORT:NSN",137)="1"
^DIBT("F445.2","PRCP POSTED DIETETIC SORT",139)="1"
^DIBT("F446.4","PRCT DATA UPLOAD STATUS",136)="1"
^DIBT("F45","801FIND",853)="1"
^DIBT("F45","DGDRGENTER",108)="1"
^DIBT("F45","DGOPENPTF",107)="1"
^DIBT("F45","DGPTAP80010185010102",119)="1"
^DIBT("F45","DGPTAP80010185010103",120)="1"
^DIBT("F45","DGPTF",105)="1"
^DIBT("F45.84","DGPT CENSUS UNRELEASED",112)="1"
^DIBT("F45.84","DGUNRELEASED",106)="1"
^DIBT("F45.85","DGPT FEE BASIS",840)="1"
^DIBT("F45.85","DGPT WORKFILE",111)="1"
^DIBT("F45.89","DGPT EXPANDED CODE SORT",117)="1"
^DIBT("F470","PRPF BALANCE IN ACCOUNTS",606)="1"
^DIBT("F470","PRPF BY PATIENT",594)="1"
^DIBT("F470","PRPF CURRENT BAL",613)="1"
^DIBT("F470","PRPF DORMANT ACCOUNT LIST",615)="1"
^DIBT("F470","PRPF INACTIVE ACCOUNTS",591)="1"
^DIBT("F470","PRPF INDIGENT LIST",592)="1"
^DIBT("F470","PRPF LIST",603)="1"
^DIBT("F470","PRPF PATIENT SUMMARY",593)="1"
^DIBT("F470","PRPF RANGE OF CARDS",612)="1"
^DIBT("F470","PRPF SUSPENSE DISPLAY",616)="1"
^DIBT("F470","PRPF SUSPENSE LIST",601)="1"
^DIBT("F470","PRPF UNASSIGNED STATION LIST",737)="1"
^DIBT("F470.1","PRPF DAILY ACTIVITY",589)="1"
^DIBT("F470.1","PRPF DAILY TRANSACTION SUMMARY",590)="1"
^DIBT("F470.1","PRPF DAYS BETWEEN DATES",614)="1"
^DIBT("F470.1","PRPF FISCAL ACTIVITY REPORT",604)="1"
^DIBT("F470.1","PRPF FISCAL TRANS SUMMARY",605)="1"
^DIBT("F5","XIP STATE EXPORT",862)="1"
^DIBT("F5","XIP STATE/COUNTY EXPORT",861)="1"
^DIBT("F5.12","XIP ZIP CODE LIST",836)="1"
^DIBT("F50","PSNFRMSRT",213)="1"
^DIBT("F50","PSO DRUG LIST",214)="1"
^DIBT("F50.9","PSO COST STAT",670)="1"
^DIBT("F503330","ABSV ACTIVE VOLUNTEERS",574)="1"
^DIBT("F503330","ABSV AGE",568)="1"
^DIBT("F503330","ABSV ALPHA LIST",640)="1"
^DIBT("F503330","ABSV ALPHA SORT",566)="1"
^DIBT("F503330","ABSV BIRTH MONTH",567)="1"
^DIBT("F503330","ABSV GAMES ASSIGNMENT SCHEDULE",675)="1"
^DIBT("F503330","ABSV GAMES MASTER REGISTRATION",677)="1"
^DIBT("F503330","ABSV GAMES SHIRT LIST",676)="1"
^DIBT("F503330","ABSV GAMES SIGN-IN LIST",678)="1"
^DIBT("F503330","ABSV GAMES WORK SCHEDULE",674)="1"
^DIBT("F503330","ABSV ORG LABEL",569)="1"
^DIBT("F503330","ABSV POTENTIAL AWARD LIST",646)="1"
^DIBT("F503330","ABSV SERVICE LABEL",570)="1"
^DIBT("F503330","ABSV SINGLE LABEL",717)="1"
^DIBT("F503330","ABSV TT88 VIEW SORT",572)="1"
^DIBT("F503330","ABSV VIEW DAILY ENTRIES",565)="1"
^DIBT("F503330","ABSVM VOLUNTEER TOSEND",750)="1"
^DIBT("F503330.1","ABSV POST ERROR",561)="1"
^DIBT("F503330.1","ABSV POST SORT",560)="1"
^DIBT("F503330.1","ABSV STATION LIST",571)="1"
^DIBT("F503330.2","ABSV MEAL PRINT",564)="1"
^DIBT("F503331","ABSV BY MONTH/ORG/NAME",555)="1"
^DIBT("F503331","ABSV MONTHLY SUMMARY",556)="1"
^DIBT("F503331","ABSV REVIEW DAILY ENTRIES",551)="1"
^DIBT("F503331","ABSV WEEKLY WORK SUMMARY",563)="1"
^DIBT("F503331","ABSVM REG HOURS 00Q1 TOSEND",746)="1"
^DIBT("F503331","ABSVM REG HOURS 00Q2 TOSEND",760)="1"
^DIBT("F503331","ABSVM REG HOURS 00Q3 TOSEND",761)="1"
^DIBT("F503331","ABSVM REG HOURS 00Q4 TOSEND",762)="1"
^DIBT("F503331","ABSVM REG HOURS 01Q1 TOSEND",747)="1"
^DIBT("F503331","ABSVM REG HOURS 01Q2 TOSEND",763)="1"
^DIBT("F503331","ABSVM REG HOURS 01Q3 TOSEND",764)="1"
^DIBT("F503331","ABSVM REG HOURS 01Q4 TOSEND",765)="1"
^DIBT("F503331","ABSVM REG HOURS 02Q1 TOSEND",748)="1"
^DIBT("F503331","ABSVM REG HOURS 02Q2 TOSEND",766)="1"
^DIBT("F503331","ABSVM REG HOURS 02Q3 TOSEND",767)="1"
^DIBT("F503331","ABSVM REG HOURS 02Q4 TOSEND",768)="1"
^DIBT("F503331","ABSVM REG HOURS 03Q1 TOSEND",749)="1"
^DIBT("F503331","ABSVM REG HOURS 03Q2 TOSEND",769)="1"
^DIBT("F503331","ABSVM REG HOURS 03Q3 TOSEND",770)="1"
^DIBT("F503331","ABSVM REG HOURS 03Q4 TOSEND",771)="1"
^DIBT("F503331","ABSVM REG HOURS 04Q1 TOSEND",772)="1"
^DIBT("F503331","ABSVM REG HOURS 97Q1 TOSEND",743)="1"
^DIBT("F503331","ABSVM REG HOURS 97Q2 TOSEND",751)="1"
^DIBT("F503331","ABSVM REG HOURS 97Q3 TOSEND",752)="1"
^DIBT("F503331","ABSVM REG HOURS 97Q4 TOSEND",753)="1"
^DIBT("F503331","ABSVM REG HOURS 98Q1 TOSEND",744)="1"
^DIBT("F503331","ABSVM REG HOURS 98Q2 TOSEND",754)="1"
^DIBT("F503331","ABSVM REG HOURS 98Q3 TOSEND",755)="1"
^DIBT("F503331","ABSVM REG HOURS 98Q4 TOSEND",756)="1"
^DIBT("F503331","ABSVM REG HOURS 99Q1 TOSEND",745)="1"
^DIBT("F503331","ABSVM REG HOURS 99Q2 TOSEND",758)="1"
^DIBT("F503331","ABSVM REG HOURS 99Q3 TOSEND",757)="1"
^DIBT("F503331","ABSVM REG HOURS 99Q4 TOSEND",759)="1"
^DIBT("F503332","ABSVM SERVICES TOSEND",740)="1"
^DIBT("F503334","ABSVM ORGANIZATIONS TOSEND",741)="1"
^DIBT("F503334.1","ABSV AJR LABELS",703)="1"
^DIBT("F503334.1","ABSV AJR REPORT",705)="1"
^DIBT("F503334.1","ABSV ALL REPRESENTATIVES",704)="1"
^DIBT("F503334.1","ABSV CERTIFYING LABEL",701)="1"
^DIBT("F503334.1","ABSV CERTIFYING OFFICIAL",706)="1"
^DIBT("F503334.1","ABSV MINUTES",700)="1"
^DIBT("F503334.1","ABSV NATIONAL REP LABEL",702)="1"
^DIBT("F503334.1","ABSV NOM BY ORGANIZATION",708)="1"
^DIBT("F503334.1","ABSV NOM VIEW",707)="1"
^DIBT("F503335","ABSV BATCH LIST",548)="1"
^DIBT("F503335","ABSV ERROR LIST",550)="1"
^DIBT("F503335","ABSV ORGANIZATION CONDENSED",664)="1"
^DIBT("F503335","ABSV ORGANIZATION DETAIL LIST",546)="1"
^DIBT("F503335","ABSV ORGANIZATION SUMMARY",552)="1"
^DIBT("F503335","ABSV SELECTED ORGS",554)="1"
^DIBT("F503335","ABSV SELECTED SERVICES",573)="1"
^DIBT("F503335","ABSV SERVICE LIST",547)="1"
^DIBT("F503335","ABSV SERVICE SUMMARY",553)="1"
^DIBT("F503335","ABSV TC SORT",562)="1"
^DIBT("F503335","ABSV TRANSMIT",549)="1"
^DIBT("F503336","ABSV OCC BATCH LIST",559)="1"
^DIBT("F503336","ABSV OCC ERROR LIST",558)="1"
^DIBT("F503336","ABSV OCC HRS ORG SUMMARY",642)="1"
^DIBT("F503336","ABSV OCC HRS SERV SUMMARY",643)="1"
^DIBT("F503336","ABSV OCC HRS SUMMARY",644)="1"
^DIBT("F503336","ABSV OCC TRANSMIT",557)="1"
^DIBT("F503336","ABSVM OCCASIONAL HOURS TOSEND",742)="1"
^DIBT("F503339.2","ABSV DIRECTORY SORT",645)="1"
^DIBT("F503339.2","ABSV SELECTED STATION INFO",641)="1"
^DIBT("F503340","ABSV DON ACK VALUE SORT",724)="1"
^DIBT("F503340","ABSV DON DATE STATS",731)="1"
^DIBT("F503340","ABSV DON DONOR STATISTICS",729)="1"
^DIBT("F503340","ABSV DON EXPORT",734)="1"
^DIBT("F503340","ABSV DON FISCAL SORT",726)="1"
^DIBT("F503340","ABSV DON FUND STATS",732)="1"
^DIBT("F503340","ABSV DON IND ORG",727)="1"
^DIBT("F503340","ABSV DON INDIVIDUAL",723)="1"
^DIBT("F503340","ABSV DON ORG STATS",730)="1"
^DIBT("F503340","ABSV DON ORG VALUE SORT",721)="1"
^DIBT("F503340","ABSV DON POST",728)="1"
^DIBT("F503340","ABSV DON RECEIVED SORT",722)="1"
^DIBT("F503340","ABSV DON TYPE STATS",733)="1"
^DIBT("F503340","ABSV DON TYPE VALUE SORT",725)="1"
^DIBT("F52","PSO HOLD LIST",216)="1"
^DIBT("F52","PSO NARC LIST",215)="1"
^DIBT("F52","PSOUPAT",671)="1"
^DIBT("F52.11","PSO BBWAIT SORT",672)="1"
^DIBT("F58.1","PSGW PERCENTAGE",249)="1"
^DIBT("F58.1","PSGW SHOW AREA OF USE",248)="1"
^DIBT("F58.16","PSGW INV TYPE",247)="1"
^DIBT("F58.17","PSGW ITEM LOC",246)="1"
^DIBT("F60","LA7S SORT",636)="1"
^DIBT("F60","LR TEST DICTIONARY",41)="1"
^DIBT("F61.3","LR ANTIBODY LISTING",48)="1"
^DIBT("F61.3","LR ANTIGEN LISTING",47)="1"
^DIBT("F61.3","LRBL ANTIBODY LISTING",68)="1"
^DIBT("F61.3","LRBLAG WKLD CODES",74)="1"
^DIBT("F61.39","LA ASHANT",587)="1"
^DIBT("F61.39","LA ASHORG",586)="1"
^DIBT("F615.2","YSSR 10-2683 SORT",285)="1"
^DIBT("F615.2","YSSR DATE OF REVIEW",288)="1"
^DIBT("F615.2","YSSR DATE SORT",289)="1"
^DIBT("F615.2","YSSR NURSE MGT SORT",287)="1"
^DIBT("F615.2","YSSR WARD MGT SORT",286)="1"
^DIBT("F62.2","LR LAB SECTION LIST BY ABBREV",38)="1"
^DIBT("F62.2","LR LAB SECTION LIST BY NAME",37)="1"
^DIBT("F62.2","LR LAB SUBSECTION BY SECTION",39)="1"
^DIBT("F62.2","LR LAB SUBSECTION LIST",40)="1"
^DIBT("F62.5","LRBL DESCRIPTIONS",49)="1"
^DIBT("F64","LR WKLD CODE BY SECTION",76)="1"
^DIBT("F64","LR WKLD CODE LIST BY NAME",73)="1"
^DIBT("F64","LR WKLD CODE LIST BY WKLD CODE",72)="1"
^DIBT("F64.2","LR MANUFACTURE/INSTRUMENT",71)="1"
^DIBT("F64.2","LR WKLD SUFFIX BY LAB SECTION",75)="1"
^DIBT("F65","ARCHIVE BLOOD INVENTORY",84)="1"
^DIBT("F65","ARCHIVE SORT",82)="1"
^DIBT("F65","LR ARCHIVE 65",85)="1"
^DIBT("F65","LRBL ARCHIVE",83)="1"
^DIBT("F65","LRBL DISCARDED UNITS",78)="1"
^DIBT("F65","LRBL DISPOSITION TOTALS",56)="1"
^DIBT("F65","LRBL ISSUES TO SURGERY",55)="1"
^DIBT("F65","LRBL TRANSFUSION REACTIONS",79)="1"
^DIBT("F65","LRBL WASTAGE",57)="1"
^DIBT("F65","LRBL WASTAGE-2",58)="1"
^DIBT("F65","LRBLINV",50)="1"
^DIBT("F65","LRBLITR",43)="1"
^DIBT("F65","LRBLTX",36)="1"
^DIBT("F65","LRD-65-EXCEPTIONS",81)="1"
^DIBT("F65.5","LRBL APHERESIS DONORS",54)="1"
^DIBT("F65.5","LRBL COLLECTION DISP RPT",60)="1"
^DIBT("F65.5","LRBL DEFERRAL REPORT",53)="1"
^DIBT("F65.5","LRBL DONOR TESTING REPORT",59)="1"
^DIBT("F65.5","LRBL EMERGENCY DONORS",52)="1"
^DIBT("F65.5","LRBL FIRST TIME DONORS",62)="1"
^DIBT("F65.5","LRBL GROUP AFFILIATION REPORT",64)="1"
^DIBT("F65.5","LRBL GROUP DONATION REPORT",63)="1"
^DIBT("F65.5","LRBL MOBILE REPORT",66)="1"
^DIBT("F65.5","LRBL MONTHLY RECALL LIST",65)="1"
^DIBT("F65.5","LRBL PATIENT CREDIT",51)="1"
^DIBT("F65.5","LRBL PRODUCT REJECTION REPORT",61)="1"
^DIBT("F65.5","LRBL SHORT DRAW REPORT",67)="1"
^DIBT("F65.5","LRBLD GALLON",46)="1"
^DIBT("F65.5","LRBLD SCHEDULING",45)="1"
^DIBT("F65.5","LRBLDPA",70)="1"
^DIBT("F65.5","LRBLDPD",44)="1"
^DIBT("F650","SOWKCLC",534)="1"
^DIBT("F650","SOWKOPC",533)="1"
^DIBT("F655","SOWKHIFS",535)="1"
^DIBT("F656","SOWK CITY/HOMELESS",536)="1"
^DIBT("F66.2","LRBLVAL",80)="1"
^DIBT("F660","RMPR OIF/OEF PSAS VETS",892)="1"
^DIBT("F661","RMPR PRINT ITEM",537)="1"
^DIBT("F661.1","RMPR LIST",665)="1"
^DIBT("F664","RMPR NEED APP BY FORM TYPE",542)="1"
^DIBT("F664","RMPR OPEN TRANS",544)="1"
^DIBT("F664.1","RMPR TECH PAT",543)="1"
^DIBT("F665","RMPO PI",687)="1"
^DIBT("F665","RMPO-BILLING-PRESORT",688)="1"
^DIBT("F665","RMPO-RPT-HOACTZIPLIST",686)="1"
^DIBT("F665","RMPO-RPT-HOINACTIVE",709)="1"
^DIBT("F665","RMPO-RPT-HOPATIENTLIST",683)="1"
^DIBT("F665","RMPO-RPT-HOPRIITM",685)="1"
^DIBT("F665","RMPO-RPT-HORXEXP",684)="1"
^DIBT("F665.1","RMPR CLOSED VISITS",539)="1"
^DIBT("F665.1","RMPR OPEN VISITS",540)="1"
^DIBT("F665.4","RMPR FL 10-90 ADP",541)="1"
^DIBT("F668","RMPR SUSPENSE CLOSE",538)="1"
^DIBT("F668","SUSPENSE OIF/OEF VETS",891)="1"
^DIBT("F67.9","LR CAP ELROY",648)="1"
^DIBT("F68","LRDFN-TESTS",77)="1"
^DIBT("F680","LBRY ADMIN TITLES",361)="1"
^DIBT("F680","LBRY FYI LIST",366)="1"
^DIBT("F680","LBRY GAPS LIST",351)="1"
^DIBT("F680","LBRY MEDICAL BY SUBJECT",358)="1"
^DIBT("F680","LBRY MEDICAL HOLDINGS",357)="1"
^DIBT("F680","LBRY MEDICAL SUBSCRIPTIONS",359)="1"
^DIBT("F680","LBRY MICROFILM HOLDINGS",352)="1"
^DIBT("F680","LBRY MICROFILM VENDOR",356)="1"
^DIBT("F680","LBRY MICROFILM VENDOR 2",777)="1"
^DIBT("F680","LBRY PATIENT HOLDINGS",360)="1"
^DIBT("F680","LBRY PATIENT TITLES",363)="1"
^DIBT("F680","LBRY PATIENT TITLES BRIEF",364)="1"
^DIBT("F680","LBRY TITLE ALPHABETICAL",370)="1"
^DIBT("F680","LBRY TITLE LOCATION",350)="1"
^DIBT("F680","LBRY UNION LIST CODE",368)="1"
^DIBT("F680.5","LBRY LOCAL HOLDINGS SORT",340)="1"
^DIBT("F680.5","LBRY NEW LOCAL TITLES",319)="1"
^DIBT("F680.5","LBRY TAF SORT",339)="1"
^DIBT("F681","LBRY ADMIN RECIPIENTS",367)="1"
^DIBT("F681","LBRY DONOR TITLES",362)="1"
^DIBT("F681","LBRY RECIPIENTS BY TITLE",354)="1"
^DIBT("F681","LBRY RECIPIENTS WITH TITLES",355)="1"
^DIBT("F681","LBRY SUBSCRIPTION/VENDOR",353)="1"
^DIBT("F681","LBRY SUBSCRIPTION/VENDOR 2",776)="1"
^DIBT("F681","LBRY TITLES DUE RENEWAL",638)="1"
^DIBT("F682","LBRY MISSING ISSUES LIST",369)="1"
^DIBT("F682","LBRY MISSING ISSUES LIST 2",778)="1"
^DIBT("F682","LBRY ROUTE-TO-RETURN",365)="1"
^DIBT("F69.2","LRUCNG",42)="1"
^DIBT("F69.6","LA7S EXEP SORT",637)="1"
^DIBT("F69.91","LRINTEG VERSION COMPARE",69)="1"
^DIBT("F690.2","MCARGENV",620)="1"
^DIBT("F6914","EN LOCATION",88)="1"
^DIBT("F6914","ENCMR",87)="1"
^DIBT("F6914","ENXKBLANK",92)="1"
^DIBT("F6914","ENXKNX",91)="1"
^DIBT("F6922","EN PM HOURS",89)="1"
^DIBT("F6928","ENLEASE",90)="1"
^DIBT("F697.2","MCARGEN",618)="1"
^DIBT("F697.3","MCARGENS",619)="1"
^DIBT("F699","MCARGIRCLI",577)="1"
^DIBT("F699","MCESSORT",578)="1"
^DIBT("F70","RA DAILY LOG",312)="1"
^DIBT("F70","RA OUTSIDE LIST",311)="1"
^DIBT("F703.9","MD CONVERSION ERRORS",865)="1"
^DIBT("F703.9","MD CONVERSION SUMMARY",864)="1"
^DIBT("F703.9","MD CONVERSION TOTALS",866)="1"
^DIBT("F71","RA ALPHA LIST OF ACTIVES",307)="1"
^DIBT("F71","RA PROCEDURES BY AMIS",308)="1"
^DIBT("F71","RA SERIES ONLY",305)="1"
^DIBT("F720","ECCAT",575)="1"
^DIBT("F727","ECX LOG",628)="1"
^DIBT("F727.2","ECX LAB TEST SORT BY DSS NAME",856)="1"
^DIBT("F727.2","ECX LAB TEST SORT BY LOCAL",857)="1"
^DIBT("F727.2","ECX LAB TEST SORT BY NUMBER",855)="1"
^DIBT("F728.441","ECX CLINIC CODE",629)="1"
^DIBT("F74.4","RA ALL UNPRINTED",317)="1"
^DIBT("F74.4","RA CLINIC BY PRINT DATE",315)="1"
^DIBT("F74.4","RA WARD BY PRINT DATE",316)="1"
^DIBT("F740.5","QAQ AUDIT LIST",278)="1"
^DIBT("F741","QAO QAI POSSIBLE INCIDENTS",545)="1"
^DIBT("F745.1","QAC SERV RPT",531)="1"
^DIBT("F745.1","QAC SERV/DISC",635)="1"
^DIBT("F745.2","GRS_971006",621)="1"
^DIBT("F772","DG NPTF TOTALS",667)="1"
^DIBT("F776.1","HLEV MONITOR EXPORT LIST",783)="1"
^DIBT("F776.1","HLEV REPORT MONITOR",784)="1"
^DIBT("F776.1","HLEV REPORT MONITOR - FF",785)="1"
^DIBT("F78.2","RA FLASH PRINT",314)="1"
^DIBT("F783","RMIM MAIL SERVER",775)="1"
^DIBT("F783","RMIMXMIT",773)="1"
^DIBT("F783","RMIMXMIT DATE",774)="1"
^DIBT("F79.1","RA EXAM ROOM LIST",313)="1"
^DIBT("F79.1","RA IMAGE LOC LIST",310)="1"
^DIBT("F798.3","ROR PENDING ERRORS",738)="1"
^DIBT("F798.7","ROR LOG",735)="1"
^DIBT("F799.2","ROR DATA ELEMENTS",736)="1"
^DIBT("F81","ICPT NEW/INACTIVE CODES",610)="1"
^DIBT("F81.3","ICPT MODIFIERS FOR RANGE",611)="1"
^DIBT("F810.3","PXRM EXTRACT EPI BY FIND_PT",714)="1"
^DIBT("F811.1","PX CODE MAPPING",296)="1"
^DIBT("F811.5","PXRM EPI LAB AND MED TERMS",715)="1"
^DIBT("F811.5","PXRM HEP C EXTRACT TERMS",838)="1"
^DIBT("F811.5","PXRM NATIONAL TERMS",697)="1"
^DIBT("F811.6","PXRM NATIONAL TERM SPONSORS",698)="1"
^DIBT("F811.9","PXRM REMINDERS LIST",696)="1"
^DIBT("F815","PX PARAMETERS PRINT",297)="1"
^DIBT("F8984.1","XTLK KEYWORD ALPHA",31)="1"
^DIBT("F8984.1","XTLK KEYWORD CODES",32)="1"
^DIBT("F8984.2","XTLK SHORT ALPHA",28)="1"
^DIBT("F8984.2","XTLK SHORT CODE",29)="1"
^DIBT("F8984.3","XTLK SYNONYM ALPHA",30)="1"
^DIBT("F8991.5","XQAB +DAT/ROU/SITE",20)="1"
^DIBT("F8994","IBD RPC LIST",608)="1"
^DIBT("F9.2","XQHNEW/REVISED FRAMES",2)="1"
^DIBT("F9.2","XUZ DOC",21)="1"
^DIBT("F9.6","XPD DISPLAY ENTRY",1)="1"
^DIBT("F9.8","ONCOLOGY ROUTINE LIST",375)="1"
^DIBT("F9.8","XUDOC SUPPORTED EP",15)="1"
^DIBT("F9.8","XUDOC SYSTEM ROUTINES",14)="1"
^DIBT("F9.8","XUPRG-ROUTINE EDIT",13)="1"
^DIBT("F9.9","XTPM COMPLETE PATCH HISTORY",850)="1"
^DIBT("F9.9","XTPM UNINSTALLED BY COMPLIANCE",851)="1"
^DIBT("F9000010.07","ONC DISEASE INDEX",716)="1"
^DIBT("F9002313.56","BPS SETUP PHARMACIES",807)="1"
^DIBT("F9009032.4","PSO INTERVENTIONS",217)="1"
^DIBT("F910","ESP PERSONAL DESCRIPTOR LOOKUP",522)="1"
^DIBT("F910.2","ESP CAR POOL ASSIGNMENTS",524)="1"
^DIBT("F910.2","ESP CAR POOL AVAILABILITY LIST",523)="1"
^DIBT("F910.2","ESP VEHICLE IDENTIFY",516)="1"
^DIBT("F910.2","ESP VEHICLE REGISTRATION LOG",502)="1"
^DIBT("F910.8","ESP ALL EVIDENCE RECORDS",513)="1"
^DIBT("F910.8","ESP OPEN EVIDENCE RECORDS",512)="1"
^DIBT("F912","ESP CASE ASSIGNMENT ALL",520)="1"
^DIBT("F912","ESP CASE ASSIGNMENT OPEN",517)="1"
^DIBT("F912","ESP CASE ASSIGNMENT OPEN/FAC",711)="1"
^DIBT("F912","ESP CASE BY DIVISION",710)="1"
^DIBT("F912","ESP MISSING PATIENT REPORT-ALL",525)="1"
^DIBT("F912","ESP MISSING PATIENT REPORT-OPN",526)="1"
^DIBT("F912","ESP OFFENSE MATCH",519)="1"
^DIBT("F912.5","ESP TRAINING",506)="1"
^DIBT("F912.5","ESP TRAINING1",507)="1"
^DIBT("F912.5","ESP TRAINING2",508)="1"
^DIBT("F912.5","ESP TRAINING3",510)="1"
^DIBT("F912.5","ESP TRAINING4",511)="1"
^DIBT("F913","ESP WANTS & WARRANTS ALL",515)="1"
^DIBT("F913","ESP WANTS & WARRANTS OPEN",514)="1"
^DIBT("F914","ESP LOCATE VIOLATION",518)="1"
^DIBT("F914","ESP VIOLATIONS BY OFFICER",521)="1"
^DIBT("F914","ESP VIOLATIONS ISSUED",504)="1"
^DIBT("F914","ESP VIOLATIONS/WARNINGS ISSUED",503)="1"
^DIBT("F915","ESP OFFENSE LOOKUP",505)="1"
^DIBT("F915","ESP STATUTE PRINT",509)="1"
^DIBT("F916","ESP DAILY SHIFT JOURNAL",527)="1"
^DIBT("F984.9","MPIF PENDING REQUESTS",682)="1"
^DIBT("F984.9","MPIF REQUEST SORT",681)="1"
^DIBT("F995.2","RGEQ STAT",680)="1"
^DIBT("F9999999.09","PXTT ACTIVE EDUCATION TOPICS",298)="1"
^DIBT("F9999999.09","PXTT ALL TOPICS",294)="1"
^DIBT("F9999999.64","PXRM HEP C HEALTH FACTORS",699)="1"
^DIBT("F9999999.64","PXRM HEPATITIS C SEARCH",693)="1"
^DIBT("F9999999.64","PXTT HEALTH FACTOR BY CATEGORY",295)="1"