- 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 Jan 18, 2025@03:03:30 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