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

Package: Inpatient Medications

Routine: PSGPLR0


Information

PSGPLR0 ;BIR/CML3-PRINTS PICK LIST REPORT (CONT.) ;16 Jul 98 / 12:46 PM

Source Information

Source file <PSGPLR0.m>

Entry Points

Name Comments DBIA/ICR reference
B0 ;
B1 ;
GTORDER ; Get order number of order in 55.
GTDOSES ; Set # dispense drugs and times to be admined.
P1 ;
PLN1
P2 ;
PLN3 ;
FCL ;
HEADER ;
EXH ;
HEADSP ;Screen stops

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?27,"No orders found for this patient."
  • Line Location: B1+4
Function Call: WRITE
  • Prompt: !!,WL," WARD: ",PW," ",WL,!?1,$S(PRM'["zz":PRM,1:"* N/F *"),?11," ",$S(PPN'=PSGP:PPN,1:"NOT FOUND ("_PSGP_")"),$S(PSSN:" ("_PSSN_")",1:""),":"
  • Line Location: PLN1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !?6,OLINE
  • Condition for execution: OCNT>1
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PLN3+1
Function Call: WRITE
  • Prompt: !?6,OLINE
  • Condition for execution: OCNT>1
  • Line Location: PLN3+1
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: "_FACL
  • Line Location: FCL+1
Function Call: WRITE
  • Prompt: !?6,OLINE
  • Line Location: EXH+1
Function Call: WRITE
  • Prompt: !,?18,"*** DC'D OR EXPIRED FROM "_WARD_" "_$G(VAIN(5))_" ***"
  • Line Location: EXH+2
Function Call: WRITE
  • Prompt: !,?18,"*** DC'D OR EXPIRED WITHIN LAST 24 HOURS ***"
  • Line Location: EXH+3
Info |  Source |  Entry Points |  Interaction Calls