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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGMMAR2

Package: Inpatient Medications

Routine: PSGMMAR2


Information

PSGMMAR2 ;BIR/CML3-MD MARS - PRINT C ORDERS(UD) ;29-May-2012 14:29;PLS

Source Information

Source file <PSGMMAR2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 6 ^PSGLOI  (ATS,TS)^PSGMAR3  $$ENDTC2^PSGMI  BLANK^PSGMMAR3  PRT^PSGMMIVC  MARLB^PSGMUTL  
Registration 1 ($$NAME,$$SITE)^VASITE  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Inpatient Medications 11 PSGAPP  PSGCAPP  PSGDSP0  PSGMAR2  PSGMAR3  PSGMIV  PSGMMAR1  PSGMMAR4  
PSGMMIVC  PSGMUTL  PSJHEAD  

Entry Points

Name Comments DBIA/ICR reference
PRT2 ;
SITE(LEN) ;* Get the Institution name
HEADER ; pat info
PRT ; order info
CELL(X,X1) ; Print the **** on the not to be given cells.
S1 ;
BOT ; bottom of MAR
ENB ;
ASTERS ; Print the **** on the first label.
P ; Print on Patient order
INIT ; Print the initials on the label.
CHKLAB ; Check to see if next label is needed.
W ; Print Ward/Ward group
ONHOLD ;Check order to see if it's ON hold, set Flag True if it is

External References

Name Field # of Occurrence
NOW^%DTC S1+9
^PSGLOI PRT+4
ATS^PSGMAR3 HEADER+11
TS^PSGMAR3 PRT+5
$$ENDTC2^PSGMI HEADER+4
BLANK^PSGMMAR3 S1+7
PRT^PSGMMIVC PRT+2, PRT+3
MARLB^PSGMUTL PRT+6
$$NAME^VASITE SITE+4
$$SITE^VASITE SITE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(PSGPG)&($Y)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?1,"CONTINUOUS SHEET",?61,PSGMARDF," DAY MAR",?100,PSGMARSP," through ",PSGMARFP
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(PSGPG)&($Y)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?1,"CONTINUOUS SHEET",?31,PSGMARDF," DAY MAR",?60,PSGMARSP," through ",PSGMARFP,?110,"Page ___ of ___"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?5,$P($$SITE(80),U,2),?102,"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+12
Function Call: WRITE
  • Prompt: ?55,LN14
  • Condition for execution: PSGMARDF=14
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !?1,"Order",?9,"Start",?21,"Stop",?49,"Times"
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: ?55,LN3," notes",!,LN1
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: ?48,"| ",$G(TS(L))
  • Line Location: CHKLAB+1
Function Call: WRITE
  • Prompt: !?1,"See next label for continuation",?48,"| ",$G(TS(L+1))
  • Line Location: CHKLAB+1
Function Call: WRITE
  • Prompt: !?7,LN2,!?1
  • Condition for execution: PSGMAROC<6
  • Line Location: CHKLAB+1
Function Call: WRITE
  • Prompt: ?48,"| ",$G(TS(L))
  • Line Location: CHKLAB+3
Function Call: WRITE
  • Prompt: !?1
  • Line Location: CHKLAB+3
Function Call: WRITE
  • Prompt: !?1,$E("WS",1,PSGLWS*2),?4,$S(PSGLSM:$E("HSM",PSGLSM,3),1:""),?8,$E("NF",1,PSGLNF*2),?30,"RPH: ",PSGLRPH,?39," RN: ",PSGLRN,?48,"| ",?50,$G(TS(L))
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: ?55
  • Line Location: CELL+2
Function Call: WRITE
  • Prompt: ?55
  • Line Location: CELL+3
Function Call: WRITE
  • Prompt: ?55,$S(X1:LN7,1:LN4)
  • Line Location: CELL+4
Function Call: WRITE
  • Prompt: "|"
  • Line Location: CELL+6
Function Call: WRITE
  • Prompt: "|"_$S(Q<$P(PSGLSSD,"."):ASTERS,Q=PSGLFFD:EXPIRE,Q>PSGLFFD:ASTERS,(PSGMARGD=""&($G(P(9))="")):SPACES,PSGMARGD[$P(PSGD(Q),"^"):SPACES,1:ASTERS)
  • Line Location: ASTERS+2
Function Call: WRITE
  • Prompt: "|"
  • Line Location: ASTERS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: ?6,"|",?19,"|"
  • Condition for execution: QQ=1
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: ?12,$S(QQ=3:MSG1,1:MSG2)
  • Condition for execution: 34[QQ
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: ?55,$S(QQ<6:LN4,1:LN7)
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: ?6,"|",?19,"|"
  • Condition for execution: QQ=1
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: ?12,$S(QQ=3:MSG1,1:MSG2)
  • Condition for execution: 34[QQ
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: ?55,$S(QQ<6:LN4,1:LN7)
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: ?55,$S(QQ<6:LN4,1:LN7)
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: ENB+2
Function Call: WRITE
  • Prompt: !,"|",?11,"SIGNATURE/TITLE",?38,"| INIT | INJECTION SITES |",?87,"MED/DOSE OMITTED",?107,"| REASON | INIT |"
  • Line Location: ENB+3
Function Call: WRITE
  • Prompt: !,"|"_$E(LN1,1,37)_"|------|"_BLN(Q),?82,"|"_$E(LN1,1,24)_"|"_$E(LN1,1,16)_"|------|"
  • Line Location: ENB+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] PRT+2
^PS(55 - [#55] ONHOLD+5, ONHOLD+7
^SC - [#44] HEADER+5
^TMP($J S1+2, S1+3, S1+5, P+3, P+5, P+8, W+8, W+9
^XTMP( S1+3, W+3, W+5

Label References

Name Line Occurrences
$$SITE HEADER+4
@( S1+12
ASTERS CELL+2, CELL+3
BOT S1+7, S1+13, PRT+7, PRT2+3, CHKLAB+2
CELL PRT+9, CHKLAB+1, CHKLAB+3, INIT+1
ENB PRT+3
HEADER S1+7, S1+9, P+2, PRT+3, PRT+7, PRT2+3, CHKLAB+2
ONHOLD PRT+1
PRT P+5, W+3, W+8
PRT2 PRT+9

Naked Globals

Name Field # of Occurrence
^( W+3, W+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S1+9
>> AD HEADER+7
>> ASTERS CELL+5, ASTERS+2
>> BD HEADER+6
>> BLN( ENB+4
CELL CELL+1~*, CELL+5
>> DAO S1+9*, P+4*, P+5*, W+3*, W+8*, PRT+1, PRT+4
>> DX HEADER+7
>> EXPIRE CELL+5, ASTERS+2
HSPACE ASTERS+1~*, ASTERS+4
>> HT HEADER+6
IOF HEADER+3
>> L CHKLAB+1*, CHKLAB+3*, INIT+1
LEN SITE~, SITE+9
>> LN1 HEADER+14, ENB+2, ENB+4, ENB+7
>> LN14 HEADER+14
>> LN2 PRT2+4, CHKLAB+1, BOT+2
>> LN3 HEADER+14
>> LN4 CELL+4, BOT+1, BOT+2
>> LN7 CELL+4, BOT+1, BOT+2
>> MARLB PRT+7, PRT+9, PRT2+4
>> MARLB( PRT+9
>> MSG1 HEADER+3*, PRT2+2*, CHKLAB+2*, BOT+1, BOT+2
>> MSG2 HEADER+3*, BOT+1, BOT+2
>> NO S1+2*, S1+3*, S1+5*, S1+7, S1+9
>> ON PRT+1*, PRT+2, ONHOLD+3, ONHOLD+5, ONHOLD+7
>> ONHOLD CELL+5, ASTERS+1, ASTERS+4, ONHOLD+1*, ONHOLD+5*, ONHOLD+7*
>> P(9 CELL+2*, CELL+3*!, ASTERS+2
>> PAGE HEADER+6
>> PN S1+1, S1+2, S1+3, S1+5, P+3, P+5, P+8, W+3, W+5, W+8
, W+9, ONHOLD+5, ONHOLD+7
>> PPN HEADER+5, ENB+7
>> PRB HEADER+6, ENB+7
PRTLN PRT+9~*, PRT2+4
>> PSEX HEADER+7
>> PSGALG HEADER+8
>> PSGD( CELL+5, ASTERS+2
>> PSGDT S1+9*, HEADER+1
PSGLFFD CELL+2~*, CELL+5, ASTERS+2*
>> PSGLNF INIT+1
>> PSGLRN INIT+1
>> PSGLRPH INIT+1
>> PSGLSM INIT+1
>> PSGLSSD CELL+5, ASTERS+2
>> PSGLWS INIT+1
>> PSGMARB S1+1, S1+7
>> PSGMARDF HEADER+3, HEADER+14, CELL+1
>> PSGMARFP HEADER+3
PSGMARGD PRT+4*, CELL+2~*, CELL+5, ASTERS+2
>> PSGMAROC HEADER+3*, PRT+3, PRT+7, PRT+8*, PRT2+1, PRT2+4*, CHKLAB+1*, CHKLAB+2, BOT+2*
>> PSGMARS S1+7
>> PSGMARSP HEADER+3
>> PSGMARTS P+5*, W+3*, W+8*, PRT+4*, PRT+5, CELL+3
>> PSGMPG S1+11*, ENB+1*, ENB+7
>> PSGMPGN S1+11*, P+8*, W+5*, W+9*, ENB+1*, ENB+7
>> PSGMSORT PRT+2, PRT+4
PSGON ONHOLD+2~, ONHOLD+3*, ONHOLD+5, ONHOLD+7
>> PSGORD PRT+4*
>> PSGPG HEADER+3*
>> PSGRBPPN S1+1, S1+2, S1+3, W+2, W+7
>> PSGREP S1+3, W+3, W+5
>> PSGSS S1+2, S1+3, S1+5, S1+9, S1+12
PSGX HEADER+11~*
>> PSGXDT HEADER+1*, HEADER+4
>> PSJDIET HEADER+13
PSJPSTO PRT+4*, PRT+10!
>> PSSN HEADER+6, ENB+7
>> PST S1+9*, P+3*, P+5, W+3*, W+8*, PRT+3, PRT+4*, PRT+10*, CELL+2
>> PWDN S1+2, S1+3, S1+5, P+3, P+5, P+8, HEADER+5, HEADER+6, HEADER+7, ENB+7
>> Q W+3*, W+8*, CELL+5*, ASTERS+2*, BOT+2*, ENB+4*
>> QQ BOT+1*, BOT+2*
QTS CELL+1~, CELL+5*
>> RB S1+1, W+3, W+5, W+8, W+9
>> SPACES ASTERS+1*, ASTERS+2, ASTERS+4*
>> TD HEADER+7
>> TM S1+2, S1+3, S1+5, W+3, W+5, W+8, W+9
>> TS PRT+7, PRT2+1, CHKLAB+2, CELL+3
>> TS( PRT+9, CHKLAB+1, CHKLAB+3, INIT+1, CELL+4, CELL+5
U HEADER+4, PRT+1, PRT+2, PRT+4, SITE+7, SITE+9
>> WDN S1+2, S1+3, S1+5, W+3, W+5, W+8, W+9
>> WT HEADER+5
X S1+1*, S1+2, S1+3, S1+5, CELL~, CELL+2, CELL+3, CELL+4, CELL+5, SITE+3~
, SITE+4*, SITE+7*, SITE+8, SITE+9
X1 CELL~, CELL+1, CELL+4
>> Y S1+1*, S1+2, S1+3, S1+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All