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: PSGORVW

Package: Inpatient Medications

Routine: PSGORVW


Information

PSGORVW ;BIR/CML3-UNIT DOSE EXPANDED VIEW FOR OE/RR ;04 APR 94 / 11:06 AM

Source Information

Source file <PSGORVW.m>

Entry Points

Name Comments DBIA/ICR reference
EN(PSGP,PSGORD) ;
WRT ;
DONE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Schedule Type:",?22,$$ENSTN^PSGMI(ST)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: !,"Admin Times:",?22,$S(AT:AT,1:"NOT FOUND")
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !,"Self Med:",?22,$P("NO^YES","^",SM+1)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: " (HOSPITAL SUPPLIED)"
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,"Special Instructions:",?22
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !?22
  • Condition for execution: $L(X)+$X>78
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !?48,"Units",?56,"Units",?64,"Inactive",!," Dispensed Drugs",?43,"U/D",?48,"Disp'd",?56,"Ret'd",?64,"Date",!,FL
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?2
  • Condition for execution: $L(Y2)+$X>79
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: " ",Y2
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: !?2,^(Q,0)
  • Line Location: WRT+12
Info |  Source |  Entry Points |  Interaction Calls