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) ;09 Feb 99 / 12:50 PM

Source Information

Source file <PSGMMAR2.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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
S1 ;
P ; Print on Patient order
W ; Print Ward/Ward group
HEADER ; pat info
PRT ; order info
PRT2 ;
CHKLAB ; Check to see if next label is needed.
INIT ; Print the initials on the label.
CELL(X,X1) ; Print the **** on the not to be given cells.
ASTERS ; Print the **** on the first label.
BOT ; bottom of MAR
ENB ;
SITE(LEN) ;* Get the Institution name
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+8
TS^PSGMAR3 PRT+5
$$ENDTC2^PSGMI HEADER+3
BLANK^PSGMMAR3 S1+7
PRT^PSGMMIVC PRT+2, PRT+3
MARLB^PSGMUTL PRT+6
$$NAME^VASITE SITE+4
$$SITE^VASITE SITE+5

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: !?5,$P($$SITE(80),U,2),?102,"Printed on "_$$ENDTC2^PSGMI(PSGXDT)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Allergies: See attached list of Allergies/Adverse Reactions"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,?49,"Admin"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?55,LN14
  • Condition for execution: PSGMARDF=14
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !?1,"Order",?9,"Start",?21,"Stop",?49,"Times"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?55,LN3," notes",!,LN1
  • Line Location: HEADER+11
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+4
^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+3
@( 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, HEADER+8, 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+6
>> ASTERS CELL+5, ASTERS+2
>> BD HEADER+5
>> 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+6
>> EXPIRE CELL+5, ASTERS+2
HSPACE ASTERS+1~*, ASTERS+4
>> HT HEADER+5
IOF HEADER+2
>> L CHKLAB+1*, CHKLAB+3*, INIT+1
LEN SITE~, SITE+7
>> LN1 HEADER+11, ENB+2, ENB+4, ENB+5
>> LN14 HEADER+11
>> LN2 PRT2+4, CHKLAB+1, BOT+2
>> LN3 HEADER+11
>> 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+2*, PRT2+2*, CHKLAB+2*, BOT+1, BOT+2
>> MSG2 HEADER+2*, 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+5
>> 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+4, ENB+5
>> PRB HEADER+5, ENB+5
PRTLN PRT+9~*, PRT2+4
>> PSEX HEADER+6
>> PSGALG HEADER+7
>> 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+2, HEADER+11, CELL+1
>> PSGMARFP HEADER+2
PSGMARGD PRT+4*, CELL+2~*, CELL+5, ASTERS+2
>> PSGMAROC HEADER+2*, PRT+3, PRT+7, PRT+8*, PRT2+1, PRT2+4*, CHKLAB+1*, CHKLAB+2, BOT+2*
>> PSGMARS S1+7
>> PSGMARSP HEADER+2
>> PSGMARTS P+5*, W+3*, W+8*, PRT+4*, PRT+5, CELL+3
>> PSGMPG S1+11*, ENB+1*, ENB+5
>> PSGMPGN S1+11*, P+8*, W+5*, W+9*, ENB+1*, ENB+5
>> PSGMSORT PRT+2, PRT+4
PSGON ONHOLD+2~, ONHOLD+3*, ONHOLD+5, ONHOLD+7
>> PSGORD PRT+4*
>> PSGPG HEADER+2*
>> 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+8~*
>> PSGXDT HEADER+1*, HEADER+3
>> PSJDIET HEADER+10
PSJPSTO PRT+4*, PRT+10!
>> PSSN HEADER+5, ENB+5
>> 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+4, HEADER+5, HEADER+6, ENB+5
>> 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+6
>> 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+3, PRT+1, PRT+2, PRT+4, SITE+5, SITE+7
>> WDN S1+2, S1+3, S1+5, W+3, W+5, W+8, W+9
>> WT HEADER+4
X S1+1*, S1+2, S1+3, S1+5, CELL~, CELL+2, CELL+3, CELL+4, CELL+5, SITE+3~
, SITE+4*, SITE+5*, SITE+6, SITE+7
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