PSN3182P.m

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

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