PSAUNL.m

PSAUNL ;BIR/LTL-Connect Unlinked DRUG/ITEM MASTER file Entries ;7/23/97

 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**21**; 10/24/97

 ;

 ;References to ^PS(59.7 are covered by IA #3034

 ;References to ^PSDRUG( are covered by IA #2095

 D DT^DICRW

STOR ;to store and retrieve a restart drug

 N D0,D1,DA,DIC,DIE,DIR,DIRUT,DLAYGO,DR,DTOUT,DUOUT,PSASTOP,PSAIT,PSAS,X,Y S PSAS=+$O(^PS(59.7,0)) G:'$D(^PS(59.7,PSAS,70)) START

CHEC W !!,$S($P($G(^VA(200,+$P(^PS(59.7,PSAS,70),U,2),0)),U)]"":$P(^(0),U),1:"Someone")_" was last scanning on "

 S Y=$S($P(^PS(59.7,PSAS,70),U,3):$P(^(70),U,3),1:"sometime") X ^DD("DD") W Y_".",!!,"He/she stopped at "_$S($P($G(^PSDRUG(+$P(^PS(59.7,PSAS,70),U),0)),U)]"":$P(^(0),U),1:"... gee, I'm not sure")_".",! D  G:$D(DIRUT) QUIT

 .S DIR(0)="Y",DIR("A")="Would you like to start from there" D ^DIR K DIR S:Y=1&($P(^PS(59.7,+PSAS,70),U)) PSAIT=+$P(^PS(59.7,PSAS,70),U)-1

START ;compiles edit loop

 S:'$D(PSAIT) PSAIT=0

 ;DAVE B (PSA*3*23) PSAIT is killed in PSATI if no drug is

 ;selected at the Select Drug prompt. This causes an undefined

 ;and killed the loop process.

LOOP F  S PSAIT=$O(^PSDRUG(PSAIT)) Q:'PSAIT  S PSASTOP=PSAIT I '$O(^PSDRUG(PSAIT,441,0)),'$D(^PSDRUG(PSAIT,"I")) D START^PSATI Q:$D(DIRUT)  I $G(PSAIT)="",$G(PSASTOP)'="" S PSAIT=PSASTOP

 W:$G(PSAIT) !,"OK, done with "_$P(^PSDRUG(PSAIT,0),U),!

STOP I $G(PSAIT),$D(PSAS),$D(PSASTOP) S DIE="^PS(59.7,",DA=PSAS,DR="70///^S X=PSASTOP;70.1///^S X=""`""_DUZ;70.2///^S X=DT" D ^DIE K DIE W !!,"I'll store this last drug in case you want to resume at this point next time.",!!

 W:'$G(PSAIT) !,"**Congratulations, you've reached the end of your DRUG file.**",!

QUIT Q

PSAUNL    ;BIR/LTL-Connect Unlinked DRUG/ITEM MASTER file Entries ;7/23/97

 +1       ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**21**; 10/24/97

 +2       ;

 +3       ;References to ^PS(59.7 are covered by IA #3034

 +4       ;References to ^PSDRUG( are covered by IA #2095

 +5        DO DT^DICRW

STOR      ;to store and retrieve a restart drug

 +1        NEW D0,D1,DA,DIC,DIE,DIR,DIRUT,DLAYGO,DR,DTOUT,DUOUT,PSASTOP,PSAIT,PSAS,X,Y

           SET PSAS=+$ORDER(^PS(59.7,0))

           IF '$DATA(^PS(59.7,PSAS,70))

               GOTO START

CHEC       WRITE !!,$SELECT($PIECE($GET(^VA(200,+$PIECE(^PS(59.7,PSAS,70),U,2),0)),U)]"":$PIECE(^(0),U),1:"Someone")_" was last scanning on "

 +1        SET Y=$SELECT($PIECE(^PS(59.7,PSAS,70),U,3):$PIECE(^(70),U,3),1:"sometime")

           XECUTE ^DD("DD")

           WRITE Y_".",!!,"He/she stopped at "_$SELECT($PIECE($GET(^PSDRUG(+$PIECE(^PS(59.7,PSAS,70),U),0)),U)]"":$PIECE(^(0),U),1:"... gee, I'm not sure")_".",!

           Begin DoDot:1

 +2            SET DIR(0)="Y"

               SET DIR("A")="Would you like to start from there"

               DO ^DIR

               KILL DIR

               IF Y=1&($PIECE(^PS(59.7,+PSAS,70),U))

                   SET PSAIT=+$PIECE(^PS(59.7,PSAS,70),U)-1

           End DoDot:1

           IF $DATA(DIRUT)

               GOTO QUIT

START     ;compiles edit loop

 +1        IF '$DATA(PSAIT)

               SET PSAIT=0

 +2       ;DAVE B (PSA*3*23) PSAIT is killed in PSATI if no drug is

 +3       ;selected at the Select Drug prompt. This causes an undefined

 +4       ;and killed the loop process.

LOOP       FOR 

               SET PSAIT=$ORDER(^PSDRUG(PSAIT))

               IF 'PSAIT

                   QUIT 

               SET PSASTOP=PSAIT

               IF '$ORDER(^PSDRUG(PSAIT,441,0))

                   IF '$DATA(^PSDRUG(PSAIT,"I"))

                       DO START^PSATI

                       IF $DATA(DIRUT)

                           QUIT 

                       IF $GET(PSAIT)=""

                           IF $GET(PSASTOP)'=""

                               SET PSAIT=PSASTOP

 +1        IF $GET(PSAIT)

               WRITE !,"OK, done with "_$PIECE(^PSDRUG(PSAIT,0),U),!

STOP       IF $GET(PSAIT)

               IF $DATA(PSAS)

                   IF $DATA(PSASTOP)

                       SET DIE="^PS(59.7,"

                       SET DA=PSAS

                       SET DR="70///^S X=PSASTOP;70.1///^S X=""`""_DUZ;70.2///^S X=DT"

                       DO ^DIE

                       KILL DIE

                       WRITE !!,"I'll store this last drug in case you want to resume at this point next time.",!!

 +1        IF '$GET(PSAIT)

               WRITE !,"**Congratulations, you've reached the end of your DRUG file.**",!

QUIT       QUIT