APSBSNOD.m

APSBSNOD ;IHS/ITSC/ENM - INPATIENT MEDS PARAM SETUP [ 08/14/2002  2:21 PM ]

 ;;1.0;IHS INPATIENT MODIFICATIONS;;08/13/02

 ;SETUP INPATIENT AND WARD STOCK/AR NODES IN ^PS(59.7 FOR

 ;OUTPATIENT SITES LOADING THE INPATIENT SUITE OF SOFTWARE

 ;

 W !,"Now Setting up the Inpatient and Ward Stock Nodes in the Pharmacy",!,"System File!!",!!

 I '$D(DUZ) W !,?20,"Your DUZ variable is not defined!!",!,"At the programmer prompt, enter the following",!,"D ^XUP  ,enter your Access Code, press return to the prompt",!,"and then D ^APSBSNOD to run this option again!!",! Q

 S ^PS(59.7,1,20)="3.2^3020315.113218^238^^2920123^^^^^^^3020114.095216^3011004.131045",$P(^PS(59.7,1,20),"^",3)=DUZ

 S ^PS(59.7,1,59.99)="2.04^3020315^^^^3020315"

 W !,"Done!!"

 Q

APSBSNOD  ;IHS/ITSC/ENM - INPATIENT MEDS PARAM SETUP [ 08/14/2002  2:21 PM ]

 +1       ;;1.0;IHS INPATIENT MODIFICATIONS;;08/13/02

 +2       ;SETUP INPATIENT AND WARD STOCK/AR NODES IN ^PS(59.7 FOR

 +3       ;OUTPATIENT SITES LOADING THE INPATIENT SUITE OF SOFTWARE

 +4       ;

 +5        WRITE !,"Now Setting up the Inpatient and Ward Stock Nodes in the Pharmacy",!,"System File!!",!!

 +6        IF '$DATA(DUZ)

               WRITE !,?20,"Your DUZ variable is not defined!!",!,"At the programmer prompt, enter the following",!,"D ^XUP  ,enter your Access Code, press return to the prompt",!,"and then D ^APSBSNOD to run this option again!!",!

               QUIT 

 +7        SET ^PS(59.7,1,20)="3.2^3020315.113218^238^^2920123^^^^^^^3020114.095216^3011004.131045"

           SET $PIECE(^PS(59.7,1,20),"^",3)=DUZ

 +8        SET ^PS(59.7,1,59.99)="2.04^3020315^^^^3020315"

 +9        WRITE !,"Done!!"

 +10       QUIT