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

Package: Inpatient Medications

Routine: PSGPER0


Information

PSGPER0 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;24 JAN 94 / 11:14 AM

Source Information

Source file <PSGPER0.m>

Entry Points

Name Comments DBIA/ICR reference
ENQ ;
ENPAT ;
ENP ;
PAT ;
DONE ;
NP ;
HEADER ;
GWR ;
ONI ;
DDS ;
PPI ;
OP ;
PRT ; find order info and print same

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: !
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?20,"<<HAZ Handle>> "
  • Condition for execution: $P(PSHAZ,U)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?20,"<<HAZ Dispose>>"
  • Condition for execution: $P(PSHAZ,U,2)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: PRT+13
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+13
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+14
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# (NO SPECIAL INSTRUCTIONS)"
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#",!?6,"# "
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: ?73,"#",!?6,"# "
  • Condition for execution: $X+$L(X)>72
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: PRT+16
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+17
Function Call: WRITE
  • Prompt: !?6,"#",?73,"#"
  • Line Location: PRT+18
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+19
Info |  Source |  Entry Points |  Interaction Calls