PSGOEI ;BIR/CML3-MARK (OR UNMARK) NON-VERIFIED ORDERS AS INCOMPLETE ;23 SEP 97 / 9:13 AM
;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
;
I PSJORD'["P"!(($P($G(^PS(53.1,+PSJORD,0)),"^",9)'="N")&($P($G(^PS(53.1,+PSJORD,0)),"^",9)'="I")) W !,"Order must be Non-Verified to change status to incomplete." H 2 G DONE
S STAT=$S($D(^PS(53.1,"AS","I",PSGP,+PSJORD)):"N",1:"I")
F W !!,$S(STAT="I":"Mark this order as INCOMPLETE",1:"This order is marked INCOMPLETE. Unmark it") S %=1 D YN^DICN Q:% D H
G:%'=1 DONE
;
D FULL^VALM1
I S DIE="^PS(53.1,",DA=+PSJORD,DR="28////"_STAT_";40;" W ! D ^DIE
;I STAT="N",PSGACT'["V",PSJSYSU,'$P(PSJSYSW0,"^",PSJSYSU+14) S PSGACT=PSGACT_"V"
;I STAT="I",PSGACT["V" S PSGACT=$P(PSGACT,"V")_$P(PSGACT,"V",2)
D GETUD^PSJLMGUD(DFN,PSJORD),INIT^PSJLMUDE(DFN,PSJORD)
;
DONE ;
K DA,DIE,DR,STAT Q
;
H ;
W !!?2,"Enter a 'Y' (or press the RETURN key) to ",$E("un",1,STAT="N"*2),"mark this order. Enter an 'N'",!,"(or '^') to quit now. (An order marked as incomplete cannot be verified",!,"until unmarked.)" Q
;
ENOR ;
S STAT=$S($D(^PS(53.1,"AS","I",PSGP,+PSJORD)):"N",1:"I") G I
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGOEI 1132 printed Dec 13, 2024@02:02:15 Page 2
PSGOEI ;BIR/CML3-MARK (OR UNMARK) NON-VERIFIED ORDERS AS INCOMPLETE ;23 SEP 97 / 9:13 AM
+1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
+2 ;
+3 IF PSJORD'["P"!(($PIECE($GET(^PS(53.1,+PSJORD,0)),"^",9)'="N")&($PIECE($GET(^PS(53.1,+PSJORD,0)),"^",9)'="I"))
WRITE !,"Order must be Non-Verified to change status to incomplete."
HANG 2
GOTO DONE
+4 SET STAT=$SELECT($DATA(^PS(53.1,"AS","I",PSGP,+PSJORD)):"N",1:"I")
+5 FOR
WRITE !!,$SELECT(STAT="I":"Mark this order as INCOMPLETE",1:"This order is marked INCOMPLETE. Unmark it")
SET %=1
DO YN^DICN
if %
QUIT
DO H
+6 if %'=1
GOTO DONE
+7 ;
+8 DO FULL^VALM1
I SET DIE="^PS(53.1,"
SET DA=+PSJORD
SET DR="28////"_STAT_";40;"
WRITE !
DO ^DIE
+1 ;I STAT="N",PSGACT'["V",PSJSYSU,'$P(PSJSYSW0,"^",PSJSYSU+14) S PSGACT=PSGACT_"V"
+2 ;I STAT="I",PSGACT["V" S PSGACT=$P(PSGACT,"V")_$P(PSGACT,"V",2)
+3 DO GETUD^PSJLMGUD(DFN,PSJORD)
DO INIT^PSJLMUDE(DFN,PSJORD)
+4 ;
DONE ;
+1 KILL DA,DIE,DR,STAT
QUIT
+2 ;
H ;
+1 WRITE !!?2,"Enter a 'Y' (or press the RETURN key) to ",$EXTRACT("un",1,STAT="N"*2),"mark this order. Enter an 'N'",!,"(or '^') to quit now. (An order marked as incomplete cannot be verified",!,"until unmarked.)"
QUIT
+2 ;
ENOR ;
+1 SET STAT=$SELECT($DATA(^PS(53.1,"AS","I",PSGP,+PSJORD)):"N",1:"I")
GOTO I
