PSIVHLD.m

PSIVHLD ;BIR/PR-ORDERS ON/OFF HOLD, ON/OFF CALL ;16 DEC 97 / 1:39 PM 

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 ;Needs DFN,PSIVNST (O or H)

 ;

STOP ;Put all orders on hold or on call

 N DA,DIE,DR,PSIVACT

 F ON1=0:0 S ON1=$O(^PS(55,DFN,"IV",ON1)) Q:'ON1  I "AR"[$P($G(^(ON1,0)),U,17) D

 .K DA,DIE,DR S PSIVACT=1,DA=ON1,DA(1)=DFN,DIE="^PS(55,"_DFN_",""IV"",",DR="100///"_PSIVNST,PSIVREA=PSIVNST D ^DIE,LOG

 Q

 ;

START ;Set all orders put on hold or oncall back to active if not expired.

 N DA,DIE,DR,ON1,PSIVACT,PSIVALT,PSIVHNW,PSIVREA

 D NOW^%DTC S PSIVHNW=%

 F ON1=0:0 S ON1=$O(^PS(55,DFN,"IV",ON1)) Q:'ON1  I $D(^(ON1,0)) S Y=^(0) I PSIVNST[$P(Y,U,17) D

 .K DA,DR,DIE S PSIVACT=1,DA=ON1,DA(1)=DFN,DIE="^PS(55,"_DFN_",""IV"",",P(17)=$S($P(Y,U,3)<PSIVHNW:"E",1:"A"),DR="100///"_P(17) D ^DIE

 .I P(17)'="E" S PSIVREA=$S(PSIVNST="H":"U",1:"C") D LOG

 Q

LOG ;Auto entry to log

 K PSIVALT S PSIVAL=$P($G(^PS(53.3,+PSGALO,0)),U),(ON,ON55)=ON1_"V"

 D LOG^PSIVORAL D:PSIVNST="H" HOLD^PSIVOE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSIVHLD   1008     printed  Apr 09, 2024@21:04:02                                                                                                                                                                                                     Page 2

PSIVHLD   ;BIR/PR-ORDERS ON/OFF HOLD, ON/OFF CALL ;16 DEC 97 / 1:39 PM 

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 +2       ;Needs DFN,PSIVNST (O or H)

 +3       ;

STOP      ;Put all orders on hold or on call

 +1        NEW DA,DIE,DR,PSIVACT

 +2        FOR ON1=0:0

               SET ON1=$ORDER(^PS(55,DFN,"IV",ON1))

               if 'ON1

                   QUIT 

               IF "AR"[$PIECE($GET(^(ON1,0)),U,17)

                   Begin DoDot:1

 +3                    KILL DA,DIE,DR

                       SET PSIVACT=1

                       SET DA=ON1

                       SET DA(1)=DFN

                       SET DIE="^PS(55,"_DFN_",""IV"","

                       SET DR="100///"_PSIVNST

                       SET PSIVREA=PSIVNST

                       DO ^DIE

                       DO LOG

                   End DoDot:1

 +4        QUIT 

 +5       ;

START     ;Set all orders put on hold or oncall back to active if not expired.

 +1        NEW DA,DIE,DR,ON1,PSIVACT,PSIVALT,PSIVHNW,PSIVREA

 +2        DO NOW^%DTC

           SET PSIVHNW=%

 +3        FOR ON1=0:0

               SET ON1=$ORDER(^PS(55,DFN,"IV",ON1))

               if 'ON1

                   QUIT 

               IF $DATA(^(ON1,0))

                   SET Y=^(0)

                   IF PSIVNST[$PIECE(Y,U,17)

                       Begin DoDot:1

 +4                        KILL DA,DR,DIE

                           SET PSIVACT=1

                           SET DA=ON1

                           SET DA(1)=DFN

                           SET DIE="^PS(55,"_DFN_",""IV"","

                           SET P(17)=$SELECT($PIECE(Y,U,3)<PSIVHNW:"E",1:"A")

                           SET DR="100///"_P(17)

                           DO ^DIE

 +5                        IF P(17)'="E"

                               SET PSIVREA=$SELECT(PSIVNST="H":"U",1:"C")

                               DO LOG

                       End DoDot:1

 +6        QUIT 

LOG       ;Auto entry to log

 +1        KILL PSIVALT

           SET PSIVAL=$PIECE($GET(^PS(53.3,+PSGALO,0)),U)

           SET (ON,ON55)=ON1_"V"

 +2        DO LOG^PSIVORAL

           if PSIVNST="H"

               DO HOLD^PSIVOE

 +3        QUIT