Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSGOEPO

Package: Inpatient Medications

Routine: PSGOEPO


Information

PSGOEPO ;BIR/CML3-PRINT ORDERS ENTERED BY PROVIDER ;12 Mar 98 / 3:23 PM

Source Information

Source file <PSGOEPO.m>

Entry Points

Name Comments DBIA/ICR reference
ENQOP ;
PO ;
LAST ;
DONE ;
HEADER ;
OPRT ;
BTM ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !!?2,"NURSE: Remove one copy and send to Pharmacy.",!!!!!,LN1,!?1,"VA FORM 10-1158",?21,"PROVIDER'S MEDICATION ORDERS",?53,"Printed: ",PSGOEPOD,!,LN1
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?3,"|Date/|",?33,"ORDERS",?58,"| | Nurse's",!,"No.|Time |Action",?19,"Check here if NO SUBSTITUTE allowed. ->",?58,"| | Signature",!,LN1
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$J(OCNT,3),"|",$E(OD,1,5),"|",$S(PSGOEPOA="C":"DC ",PSGOEPOA="R":"RNW",PSGOEPOA="W":"NEW",1:"???"),"|",ND1,?58-$L(ST),ST,?58,"| |"
  • Line Location: OPRT+5
Function Call: WRITE
  • Prompt: !?3,"| | |",?58-$L(AD),AD,"| |"
  • Line Location: OPRT+7
Function Call: WRITE
  • Prompt: !?3,"| | |"
  • Line Location: OPRT+8
Function Call: WRITE
  • Prompt: ?58,"| |",!?3,"| | |"
  • Condition for execution: $X+$L(QQ)>57
  • Line Location: OPRT+8
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: OPRT+8
Function Call: WRITE
  • Prompt: ?58,"| |"
  • Condition for execution: ND6]""
  • Line Location: OPRT+9
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: OPRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: BTM+1
Function Call: WRITE
  • Prompt: !?25,"_______________",?45,"______________________________",!?25,"Date AND Time",?45,TITLE,!!
  • Line Location: BTM+2
Function Call: WRITE
  • Prompt: ?36,"THIS PATIENT'S ORDERS CONTINUE ON NEXT PAGE"
  • Line Location: BTM+2
Function Call: WRITE
  • Prompt: !,LN1,!?1,PSGLPN,?36,"Ward: ",PSGLWDN,!?7,"PID: ",PSGLSSN,?32,"Room-Bed: ",PSGLRB,?59,"Admitted: ",PSGLAD,!?7,"DOB: ",PSGLDOB," (",PSGLAGE,")",?37,"Sex: ",PSGLSEX
  • Line Location: BTM+3
Function Call: WRITE
  • Prompt: ?56,"Last Transfer: ",PSGLTD
  • Line Location: BTM+3
Info |  Source |  Entry Points |  Interaction Calls