Routine: PSJOEEW

Information

PSJOEEW ;BIR/CML3-SHOW INPATIENT FIELDS FOR EDIT ;17 SEP 97 / 1:41 PM

Source file <PSJOEEW.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",PSJPWTD,!,"Room-Bed: ",PSJPRB Line Location: ENW+3
Function Call: WRITE	Prompt: !?5,"Entered: ",PSGLID," By: ",PSGEBN,!,"Order Status: ",PSGSTAT,!,"--------------------------------------------------------------------------------" Line Location: ENW+4
Function Call: WRITE	Prompt: !?1,$S(Q:" ",$D(PSGEFN(1)):$E(" *",PSGEFN(1)+1)_"(1)",1:" "),?19,"Drug: ",PSGPDN Line Location: ENW+5
Function Call: WRITE	Prompt: !?1,$S(Q:" ",$D(PSGEFN(2)):$E(" *",PSGEFN(2)+1)_"(2)",1:" "),?9,"Dosage Ordered: ",PSGDO Line Location: ENW+6
Function Call: WRITE	Prompt: !?1,$S(Q:" ",$D(PSGEFN(3)):$E(" *",PSGEFN(3)+1)_"(3)",1:" "),?14,"Med Route: ",PSGMRN Line Location: ENW+7
Function Call: WRITE	Prompt: !?1,$S(Q:" ",$D(PSGEFN(4)):$E(" *",PSGEFN(4)+1)_"(4)",1:" "),?15,"Schedule: ",PSGSCH Line Location: ENW+8
Function Call: WRITE	Prompt: !?1,$S(Q:"(1)",$D(PSGEFN(5)):$E(" *",PSGEFN(5)+1)_"(5)",1:" "),?15,"Provider: ",PSGPRN Line Location: ENW+9
Function Call: WRITE	Prompt: !?7 Condition for execution: $L(Y2)+$X>79 Line Location: ENW+10
Function Call: WRITE	Prompt: " ",Y2 Line Location: ENW+10