| [613] | 1 | PSGOEI ;BIR/CML3-MARK (OR UNMARK) NON-VERIFIED ORDERS AS INCOMPLETE ;23 SEP 97 / 9:13 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | 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
|
|---|
| 5 | S STAT=$S($D(^PS(53.1,"AS","I",PSGP,+PSJORD)):"N",1:"I")
|
|---|
| 6 | 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
|
|---|
| 7 | G:%'=1 DONE
|
|---|
| 8 | ;
|
|---|
| 9 | D FULL^VALM1
|
|---|
| 10 | I S DIE="^PS(53.1,",DA=+PSJORD,DR="28////"_STAT_";40;" W ! D ^DIE
|
|---|
| 11 | ;I STAT="N",PSGACT'["V",PSJSYSU,'$P(PSJSYSW0,"^",PSJSYSU+14) S PSGACT=PSGACT_"V"
|
|---|
| 12 | ;I STAT="I",PSGACT["V" S PSGACT=$P(PSGACT,"V")_$P(PSGACT,"V",2)
|
|---|
| 13 | D GETUD^PSJLMGUD(DFN,PSJORD),INIT^PSJLMUDE(DFN,PSJORD)
|
|---|
| 14 | ;
|
|---|
| 15 | DONE ;
|
|---|
| 16 | K DA,DIE,DR,STAT Q
|
|---|
| 17 | ;
|
|---|
| 18 | H ;
|
|---|
| 19 | 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
|
|---|
| 20 | ;
|
|---|
| 21 | ENOR ;
|
|---|
| 22 | S STAT=$S($D(^PS(53.1,"AS","I",PSGP,+PSJORD)):"N",1:"I") G I
|
|---|
