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

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

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
Info |  Source |  Entry Points |  Interaction Calls