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 ---[H[J[2J[HPSIVHLD 1008 printed Nov 22, 2024@17:14:14 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
