PSN3182P ;BIR/DMA - installer for patch PSN*3.18*2 ; 03 Jun 98 / 6:59 AM
;;3.18; NATIONAL DRUG FILE ;**2**;12 Jan 98
;
;load entries into PSNDF
;
S ^PSNDF(1970,2,6,3,1,4,1,5,1,6,3,7,0)="^50.67A^2^2"
S ^PSNDF(1970,2,6,3,1,4,1,5,1,6,3,7,2,0)="057599740004^2286^PRECISION Q-I-D TEST STRIP^44^BLOOD TEST"
S ^PSNDF(1970,2,6,3,1,4,1,5,2,6,"B",573,2)=""
S ^PSNDF(1970,2,6,3,1,4,1,5,2,6,0)="^50.66A^2^2"
S ^PSNDF(1970,2,6,3,1,4,1,5,2,6,2,0)="573"
S ^PSNDF(1970,2,6,3,1,4,1,5,2,6,2,7,0)="^50.67A^1^1"
S ^PSNDF(1970,2,6,3,1,4,1,5,2,6,2,7,1,0)="057599739903^2286^PRECISION Q-I-D TEST STRIP^44^BLOOD TEST"
S ^PSNDF(1970,2,6,3,1,4,1,5,3,6,"B",573,2)=""
S ^PSNDF(1970,2,6,3,1,4,1,5,3,6,0)="^50.66A^2^2"
S ^PSNDF(1970,2,6,3,1,4,1,5,3,6,2,0)="573"
S ^PSNDF(1970,2,6,3,1,4,1,5,3,6,2,7,0)="^50.67A^1^1"
S ^PSNDF(1970,2,6,3,1,4,1,5,3,6,2,7,1,0)="057599740105^2286^PRECISION Q-I-D TEST STRIP^44^BLOOD TEST"
S ^PSNDF(1970,5,"B","PRECISION Q-I-D (GLUCOSE) TEST STRIP",44)=""
S ^PSNDF(1970,5,0)="^50.68DA^44^44"
S ^PSNDF(1970,5,44,0)="PRECISION Q-I-D (GLUCOSE) TEST STRIP^6^1^1"
S ^PSNDF(1970,5,44,1)="1/NO DATA/"
S ^PSNDF(1970,5,44,2)="PRECISION Q-I-D GLUCOSE TEST STRIP^XX467^1^EA"
S ^PSNDF(3260,2,"B",94,28)=""
S ^PSNDF(3260,2,"C",112,28)=""
S ^PSNDF(3260,2,0)="^50.62A^28^28"
S ^PSNDF(3260,2,28,0)="94^^112"
S ^PSNDF(3260,2,28,3,"B","NO DATA",1)=""
S ^PSNDF(3260,2,28,3,0)="^50.63A^1^1"
S ^PSNDF(3260,2,28,3,1,0)="NO DATA"
S ^PSNDF(3260,2,28,3,1,4,"B",730,1)=""
S ^PSNDF(3260,2,28,3,1,4,0)="^50.64A^1^1"
S ^PSNDF(3260,2,28,3,1,4,1,0)="730"
S ^PSNDF(3260,2,28,3,1,4,1,5,"B",49,1)=""
S ^PSNDF(3260,2,28,3,1,4,1,5,0)="^50.65A^1^1"
S ^PSNDF(3260,2,28,3,1,4,1,5,1,0)="49"
S ^PSNDF(3260,2,28,3,1,4,1,5,1,6,"B",573,1)=""
S ^PSNDF(3260,2,28,3,1,4,1,5,1,6,0)="^50.66A^1^1"
S ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,0)="573"
S ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,7,0)="^50.67A^2^2"
S ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,7,1,0)="057599744301^2286^PRECISION LINK^73^MISC"
S ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,7,2,0)="057599740201^2286^PRECISION Q-I-D SENSOR,HAND HELD^74^MISC"
S ^PSNDF(3260,5,"B","PRECISION LINK",73)=""
S ^PSNDF(3260,5,"B","PRECISION Q-I-D SENSOR,HAND HELD",74)=""
S ^PSNDF(3260,5,0)="^50.68DA^74^73"
S ^PSNDF(3260,5,73,0)="PRECISION LINK^28^1^1"
S ^PSNDF(3260,5,73,1)="1/NO DATA/"
S ^PSNDF(3260,5,73,2)="PRECISION LINK^XX468^1^EA"
S ^PSNDF(3260,5,74,0)="PRECISION Q-I-D SENSOR,HAND HELD^28^1^1"
S ^PSNDF(3260,5,74,1)="1/NO DATA/"
S ^PSNDF(3260,5,74,2)="PRECISION Q-I-D SENSOR,HAND HELD^XX469^1^EA"
;
;now cross references
;
S ^PSNDF("NDC","057599740004",1970,6,1,1,1,3,2)=""
S ^PSNDF("NDC","057599739903",1970,6,1,1,2,2,1)=""
S ^PSNDF("NDC","057599740105",1970,6,1,1,3,2,1)=""
S ^PSNDF("NDC","057599744301",3260,28,1,1,1,1,1)=""
S ^PSNDF("NDC","057599740201",3260,28,1,1,1,1,2)=""
S ^PSNDF("T","PRECISION Q-I-D TEST STRIP",1970,6,1,1,1,3,2)=""
S ^PSNDF("T","PRECISION Q-I-D TEST STRIP",1970,6,1,1,2,2,1)=""
S ^PSNDF("T","PRECISION Q-I-D TEST STRIP",1970,6,1,1,3,2,1)=""
S ^PSNDF("T","PRECISION LINK",3260,28,1,1,1,1,1)=""
S ^PSNDF("T","PRECISION Q-I-D SENSOR,HAND HELD",3260,28,1,1,1,1,2)=""
;
;now load the ingredients
;
S ^PS(50.416,1922,1,127,0)="1970A44"
S ^PS(50.416,1922,1,"B","1970A44",127)=""
S ^PS(50.416,3506,1,3877,0)="3260A74"
S ^PS(50.416,3506,1,"B","3260A74",3877)=""
S ^PS(50.416,3506,1,3878,0)="3260A73"
S ^PS(50.416,3506,1,"B","3260A73",3878)=""
;
;Now house keeping
S $P(^PS(50.416,1922,1,0),"^",3,4)="127^127"
S $P(^PS(50.416,3506,1,0),"^",3,4)="3878^3878"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN3182P 3604 printed Dec 13, 2024@02:19:33 Page 2
PSN3182P ;BIR/DMA - installer for patch PSN*3.18*2 ; 03 Jun 98 / 6:59 AM
+1 ;;3.18; NATIONAL DRUG FILE ;**2**;12 Jan 98
+2 ;
+3 ;load entries into PSNDF
+4 ;
+5 SET ^PSNDF(1970,2,6,3,1,4,1,5,1,6,3,7,0)="^50.67A^2^2"
+6 SET ^PSNDF(1970,2,6,3,1,4,1,5,1,6,3,7,2,0)="057599740004^2286^PRECISION Q-I-D TEST STRIP^44^BLOOD TEST"
+7 SET ^PSNDF(1970,2,6,3,1,4,1,5,2,6,"B",573,2)=""
+8 SET ^PSNDF(1970,2,6,3,1,4,1,5,2,6,0)="^50.66A^2^2"
+9 SET ^PSNDF(1970,2,6,3,1,4,1,5,2,6,2,0)="573"
+10 SET ^PSNDF(1970,2,6,3,1,4,1,5,2,6,2,7,0)="^50.67A^1^1"
+11 SET ^PSNDF(1970,2,6,3,1,4,1,5,2,6,2,7,1,0)="057599739903^2286^PRECISION Q-I-D TEST STRIP^44^BLOOD TEST"
+12 SET ^PSNDF(1970,2,6,3,1,4,1,5,3,6,"B",573,2)=""
+13 SET ^PSNDF(1970,2,6,3,1,4,1,5,3,6,0)="^50.66A^2^2"
+14 SET ^PSNDF(1970,2,6,3,1,4,1,5,3,6,2,0)="573"
+15 SET ^PSNDF(1970,2,6,3,1,4,1,5,3,6,2,7,0)="^50.67A^1^1"
+16 SET ^PSNDF(1970,2,6,3,1,4,1,5,3,6,2,7,1,0)="057599740105^2286^PRECISION Q-I-D TEST STRIP^44^BLOOD TEST"
+17 SET ^PSNDF(1970,5,"B","PRECISION Q-I-D (GLUCOSE) TEST STRIP",44)=""
+18 SET ^PSNDF(1970,5,0)="^50.68DA^44^44"
+19 SET ^PSNDF(1970,5,44,0)="PRECISION Q-I-D (GLUCOSE) TEST STRIP^6^1^1"
+20 SET ^PSNDF(1970,5,44,1)="1/NO DATA/"
+21 SET ^PSNDF(1970,5,44,2)="PRECISION Q-I-D GLUCOSE TEST STRIP^XX467^1^EA"
+22 SET ^PSNDF(3260,2,"B",94,28)=""
+23 SET ^PSNDF(3260,2,"C",112,28)=""
+24 SET ^PSNDF(3260,2,0)="^50.62A^28^28"
+25 SET ^PSNDF(3260,2,28,0)="94^^112"
+26 SET ^PSNDF(3260,2,28,3,"B","NO DATA",1)=""
+27 SET ^PSNDF(3260,2,28,3,0)="^50.63A^1^1"
+28 SET ^PSNDF(3260,2,28,3,1,0)="NO DATA"
+29 SET ^PSNDF(3260,2,28,3,1,4,"B",730,1)=""
+30 SET ^PSNDF(3260,2,28,3,1,4,0)="^50.64A^1^1"
+31 SET ^PSNDF(3260,2,28,3,1,4,1,0)="730"
+32 SET ^PSNDF(3260,2,28,3,1,4,1,5,"B",49,1)=""
+33 SET ^PSNDF(3260,2,28,3,1,4,1,5,0)="^50.65A^1^1"
+34 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,0)="49"
+35 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,6,"B",573,1)=""
+36 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,6,0)="^50.66A^1^1"
+37 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,0)="573"
+38 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,7,0)="^50.67A^2^2"
+39 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,7,1,0)="057599744301^2286^PRECISION LINK^73^MISC"
+40 SET ^PSNDF(3260,2,28,3,1,4,1,5,1,6,1,7,2,0)="057599740201^2286^PRECISION Q-I-D SENSOR,HAND HELD^74^MISC"
+41 SET ^PSNDF(3260,5,"B","PRECISION LINK",73)=""
+42 SET ^PSNDF(3260,5,"B","PRECISION Q-I-D SENSOR,HAND HELD",74)=""
+43 SET ^PSNDF(3260,5,0)="^50.68DA^74^73"
+44 SET ^PSNDF(3260,5,73,0)="PRECISION LINK^28^1^1"
+45 SET ^PSNDF(3260,5,73,1)="1/NO DATA/"
+46 SET ^PSNDF(3260,5,73,2)="PRECISION LINK^XX468^1^EA"
+47 SET ^PSNDF(3260,5,74,0)="PRECISION Q-I-D SENSOR,HAND HELD^28^1^1"
+48 SET ^PSNDF(3260,5,74,1)="1/NO DATA/"
+49 SET ^PSNDF(3260,5,74,2)="PRECISION Q-I-D SENSOR,HAND HELD^XX469^1^EA"
+50 ;
+51 ;now cross references
+52 ;
+53 SET ^PSNDF("NDC","057599740004",1970,6,1,1,1,3,2)=""
+54 SET ^PSNDF("NDC","057599739903",1970,6,1,1,2,2,1)=""
+55 SET ^PSNDF("NDC","057599740105",1970,6,1,1,3,2,1)=""
+56 SET ^PSNDF("NDC","057599744301",3260,28,1,1,1,1,1)=""
+57 SET ^PSNDF("NDC","057599740201",3260,28,1,1,1,1,2)=""
+58 SET ^PSNDF("T","PRECISION Q-I-D TEST STRIP",1970,6,1,1,1,3,2)=""
+59 SET ^PSNDF("T","PRECISION Q-I-D TEST STRIP",1970,6,1,1,2,2,1)=""
+60 SET ^PSNDF("T","PRECISION Q-I-D TEST STRIP",1970,6,1,1,3,2,1)=""
+61 SET ^PSNDF("T","PRECISION LINK",3260,28,1,1,1,1,1)=""
+62 SET ^PSNDF("T","PRECISION Q-I-D SENSOR,HAND HELD",3260,28,1,1,1,1,2)=""
+63 ;
+64 ;now load the ingredients
+65 ;
+66 SET ^PS(50.416,1922,1,127,0)="1970A44"
+67 SET ^PS(50.416,1922,1,"B","1970A44",127)=""
+68 SET ^PS(50.416,3506,1,3877,0)="3260A74"
+69 SET ^PS(50.416,3506,1,"B","3260A74",3877)=""
+70 SET ^PS(50.416,3506,1,3878,0)="3260A73"
+71 SET ^PS(50.416,3506,1,"B","3260A73",3878)=""
+72 ;
+73 ;Now house keeping
+74 SET $PIECE(^PS(50.416,1922,1,0),"^",3,4)="127^127"
+75 SET $PIECE(^PS(50.416,3506,1,0),"^",3,4)="3878^3878"
+76 QUIT
