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

Package: Inpatient Medications

Routine: PSGMAR3


Information

PSGMAR3 ;BIR/CML3-24 HOUR MAR(HEADER,BOT) ;14 Oct 98 / 4:28 PM

Source Information

Source file <PSGMAR3.m>

Entry Points

Name Comments DBIA/ICR reference
HEADER ; pat info
ATS(PSGX) ;*** Print allergies and reactions.
TMSTR ;*** Set up the Admin times to print across on the 24 hour MAR.
ADD ;
TS(X) ;
BOT ; bottom of MAR
ENB ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(PSGPG)&($Y)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$S(PST["C":"CONTINUOUS",1:"ONE-TIME/PRN")_" SHEET",?60,"24 HOUR MAR",?86,PSGMARSP_" through "_PSGMARFP
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?5,$P($$SITE^PSGMMAR2(80),U,2),?101,"Printed on "_$$ENDTC2^PSGMI(PSGXDT)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"Allergies: See attached list of Allergies/Adverse Reactions"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,?49,"Admin"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !?1,"Order",?8,"Start",?20,"Stop",?49,"Times"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?59
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?59
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,"Allergies: ",PSGVALG(1)," ",PSGALG(1)," ADR: ",PSGVADR(1)," ",PSGADR(1)
  • Line Location: ATS+8
Function Call: WRITE
  • Prompt: !!,"Verified Allergies:",!
  • Line Location: ATS+10
Function Call: WRITE
  • Prompt: ?12,PSGVALG(X),!
  • Line Location: ATS+11
Function Call: WRITE
  • Prompt: !!,"Non-Verified Allergies:",!
  • Line Location: ATS+12
Function Call: WRITE
  • Prompt: ?12,PSGALG(X),!
  • Line Location: ATS+13
Function Call: WRITE
  • Prompt: !!,"Verified Adverse Reactions:",!
  • Line Location: ATS+14
Function Call: WRITE
  • Prompt: ?12,PSGVADR(X),!
  • Line Location: ATS+15
Function Call: WRITE
  • Prompt: !!,"Non-Verified Adverse Reactions:",!
  • Line Location: ATS+16
Function Call: WRITE
  • Prompt: ?12,PSGADR(X),!
  • Line Location: ATS+17
Function Call: WRITE
  • Prompt: ?59
  • Line Location: TMSTR+3
Function Call: WRITE
  • Prompt: !?7,LN2
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: ENB+2
Function Call: WRITE
  • Prompt: !,"|",?12,"SIGNATURE/TITLE",?39,"| INIT | ALLERGIES | INJECTION SITES |",?87,"MED/DOSE OMITTED",?107,"| REASON | INIT |"
  • Line Location: ENB+3
Function Call: WRITE
  • Prompt: !,"|"_$E(LN1,1,38)_"|------|--------------|"_BLN(Q),?82,"|"_$E(LN1,1,24)_"|"_$E(LN1,1,16)_"|------|"
  • Line Location: ENB+4
Info |  Source |  Entry Points |  Interaction Calls