; DISCONTINUE ANY ORDERS FOR A PARTICULAR LIST OF ACTIVE INTERVENTIONS
; UPDATES STATUS (#1) SUBFIELD OF THE ORDER INFO (#4) FIELD OF THE
; NURS CARE PLAN (#216.8) FILE
EN2
; IF SELECT ORDERABLE, PUT INFO IN ORDER INFO FIELD (#4) OF THE NURS
; CARE PLAN (#216.8) FILE
Prompt: !!,"Do you wish to discontinue any order(s)"
Line Location: YNDC+0
Function Call: WRITE
Prompt: !?5,$C(7),"Answer Yes if want to discontinue some of the above orders",!?5,"else answer No."
Line Location: YNDC+1
Function Call: READ
Timeout: DTIME
Variable: NURSDISC
Line Location: CHOOSE+0
Function Call: WRITE
Prompt: !?5,$C(7),"Please enter numeric selection or up-arrow to quit. ",!,?5,"Format: { 1 } or { 1,2,3,...} or { 2-7 } or { 2,3,7-9 } or { ^ } to quit"