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

Package: Inpatient Medications

Routine: PSGPER2


Information

PSGPER2 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;18 MAR 03 / 5:14 PM

Source Information

Source file <PSGPER2.m>

Entry Points

Name Comments DBIA/ICR reference
ENQ ; Tasked entry point
ENP ;
DONE ;
NP ;
HEADER ;
GWR ;
ONI ;
DDS ;
PPI ;
OP ;
PRT ; find order info and print same
NSYNC(PSGPRSUB,WD,PSGCURCL) ; Don't print ward orders and clinic orders together

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),#
  • Condition for execution: Y
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?20,"PRE-EXCHANGE UNITS REPORT - ",%
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !!,$S(($G(PSGCURCL)]""):"Clinic",1:"Ward"),?32,"Room-bed",!,"Patient",!?5,"Order",!?20,"Dispense Drug",?64,"U/D",?72,"Needs",!,L
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?5,PDN," ",DO," ",MR,$S(MR]"":" ",1:""),SCH
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !!?6,BORD_" PRE-EXCHANGE MED "_BORD,!?6,"#",?73,"#",!?6,"# ",PN,?50,$S(($G(PSGCURCL)]""):"Clinic: ",1:"Ward: "),WD,?73,"#",!?6,"# ("_SN_")",?52,"RB: "_RB,?73,"#",!?6,"#",?73,"#"
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?6,"# "_DRG,?46,"START: "_STRT,?73,"#",!?6,"# "_$S(DRGS]"":"("_DRGS_")",1:""),?47,"STOP: "_STOP,?73,"#",!?6,"# GIVE: "_$S(DO]"":" "_DO,1:"")_$S(MR]"":" "_MR,1:"")_$S(SCH]"":" "_SCH,1:""),?73,"#"
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# (NO SPECIAL INSTRUCTIONS)"
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# "
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: ?73,"#",!?6,"# "
  • Condition for execution: $X+$L(X)>72
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: ?73,"#",!?6,"#",?73,"#",!,?6,"#",?43,"VERIFIED: "_VD,?73,"#",!?6,"#",?49,"BY: "_VU,?73,"#",!?6,"#",?38,"SEND TO FLOOR: "_PX,?73,"#"
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#"
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"#",?36,"_______________ _______________ #",!?6,"#",?36,"FILLED BY",?56,"CHECKED BY",?73,"#",!?6,BORD_BORD_$E(BORD,1,20)
  • Line Location: PRT+15
Info |  Source |  Entry Points |  Interaction Calls