Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSGMAR3

Package: Inpatient Medications

Routine: PSGMAR3


Information

PSGMAR3 ;BIR/CML3-24 HOUR MAR(HEADER,BOT) ;25-May-2012 11:00;PLS

Source Information

Source file <PSGMAR3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 2 $$ENDTC2^PSGMI  $$SITE^PSGMMAR2  
VA Fileman 1 C^%DTC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSGMAR2  PSGMIV  PSGMMAR2  PSGMMAR4  PSGMMIVC  PSJORMA2  PSJORMAR  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC ADD+1
$$ENDTC2^PSGMI HEADER+5
$$SITE^PSGMMAR2 HEADER+5

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: @IOF
  • Condition for execution: $G(PSGPG)&($Y)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$S(PST["C":"CONTINUOUS",1:"ONE-TIME/PRN")_" SHEET",?30,"24 HOUR MAR",?60,PSGMARSP_" through "_PSGMARFP,?110,"Page ___ of ___"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?5,$P($$SITE^PSGMMAR2(80),U,2),?101,"Printed on "_$$ENDTC2^PSGMI(PSGXDT)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"Allergies: See attached list of Allergies/Adverse Reactions"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,?49,"Admin"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !?1,"Order",?8,"Start",?20,"Stop",?49,"Times"
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: ?59
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: ?59
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !,"Allergies: ",PSGVALG(1)," ",PSGALG(1)," ADR: ",PSGVADR(1)," ",PSGADR(1)
  • Line Location: ATS+9
Function Call: WRITE
  • Prompt: !!,"Verified Allergies:",!
  • Line Location: ATS+13
Function Call: WRITE
  • Prompt: ?2,PSGVALG(X),!
  • Line Location: ATS+14
Function Call: WRITE
  • Prompt: "Non-Verified Allergies:",!
  • Line Location: ATS+15
Function Call: WRITE
  • Prompt: ?2,PSGALG(X),!
  • Line Location: ATS+16
Function Call: WRITE
  • Prompt: "Verified Adverse Reactions:",!
  • Line Location: ATS+17
Function Call: WRITE
  • Prompt: ?2,PSGVADR(X),!
  • Line Location: ATS+18
Function Call: WRITE
  • Prompt: "Non-Verified Adverse Reactions:",!
  • Line Location: ATS+19
Function Call: WRITE
  • Prompt: ?2,PSGADR(X),!
  • Line Location: ATS+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ATS+27
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] HEADER+6

Label References

Name Line Occurrences
ADD TMSTR+4
ATS HEADER+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AD HEADER+8
ADMINHR TMSTR+2~, TMSTR+3*
>> APSPATS ATS+26*
>> BD HEADER+7
>> BLN( ENB+4
>> DX HEADER+8
HRS TMSTR+3*, TMSTR+4, TMSTR+5!
>> HT HEADER+7
I ATS+1~
IOF HEADER+4
>> LN1 HEADER+16, ENB+2, ENB+4, ENB+5
>> LN2 BOT+2
>> LN4 BOT+1, BOT+2
>> LN5 BOT+1, BOT+2
>> LN7 BOT+1, BOT+2
MPH TMSTR+3*, TMSTR+4, TMSTR+5!, ADD+1*
>> MSG1 HEADER+4*, BOT+1, BOT+2
>> MSG2 HEADER+4*, BOT+1, BOT+2
>> ONHOLD TMSTR+4
>> OPST BOT+1, BOT+2
>> PAGE HEADER+7
>> PPN HEADER+6, ENB+5
>> PRB HEADER+7, ENB+5
>> PSEX HEADER+8
>> PSGADR ATS+2, ATS+3, ATS+7
>> PSGADR( ATS+20
>> PSGADR(1 ATS+7*, ATS+9
>> PSGALG HEADER+9, ATS+2, ATS+3, ATS+5
>> PSGALG( ATS+16
>> PSGALG(1 ATS+4*, ATS+5*, ATS+6*, ATS+9
>> PSGDT HEADER+1
>> PSGFORM HEADER+2*, ENB+5
>> PSGL HEADER+4*
>> PSGLFFD TMSTR+4
>> PSGMARFD HEADER+15, TMSTR+4
>> PSGMARFP HEADER+4
>> PSGMAROC HEADER+4*, ATS+10*, ATS+25*, BOT+2*
>> PSGMARSD HEADER+15, TMSTR+4
>> PSGMARSP HEADER+4
>> PSGMPG ENB+1*, ENB+5
>> PSGMPGN ENB+1*, ENB+5
>> PSGPG HEADER+4*
>> PSGPLS TMSTR+3
>> PSGVADR ATS+2, ATS+3
>> PSGVADR( ATS+18
>> PSGVADR(1 ATS+9
>> PSGVALG ATS+2, ATS+3
>> PSGVALG( ATS+14
>> PSGVALG(1 ATS+4, ATS+6, ATS+8*, ATS+9
PSGX HEADER+12~*, ATS~, ATS+11*
>> PSGXDT HEADER+1*, HEADER+5
>> PSJDIET HEADER+14
>> PSSN HEADER+7, ENB+5
>> PST HEADER+4, TS+1
>> PWDN HEADER+6, HEADER+7, HEADER+8, ENB+5
>> Q TMSTR+4*, TS+1*, TS+5*, BOT+2*, ENB+4*
>> QQ TMSTR+4*, BOT+1*, BOT+2*
SAVE ATS+1~, ATS+12*, ATS+23*, ATS+24
SAVE1 ATS+1~, ATS+24*, ATS+25
>> TD HEADER+8
TIM TMSTR+3*, TMSTR+4*, TMSTR+5!
>> TMSTR TMSTR+3
TS TS+1!*, TS+2, TS+3, TS+4, TS+5
TS( TS+1*, TS+5*
TS(1 TS+3*, TS+4*
TS(3 TS+2*, TS+4*
TS(5 TS+3*, TS+4*
U HEADER+5
>> WT HEADER+6
X HEADER+15*, ATS+14*, ATS+16*, ATS+18*, ATS+20*, ADD+1, TS~, TS+1, TS+2, TS+3
, TS+4, TS+5
>> X1 ADD+1*
>> X2 ADD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All