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

Package: Inpatient Medications

Routine: PSGMMAR4


Information

PSGMMAR4 ;BIR/CML3-MD MARS - PRINT O/P ORDERS ;05 Oct 98 / 10:25 AM

Source Information

Source file <PSGMMAR4.m>

Entry Points

Name Comments DBIA/ICR reference
PSGMARB ;***Print blank MAR for PRN orders.
EN ;***Start print prn orders.
HEADER ;*** Patient info
BOT ; rest of PRN sheet
ENB ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: PSGMARB+4
Function Call: WRITE
  • Prompt: !,P1,?55,"|",?75,"| ",P2
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,P1,?55,"|",?75,"| ",P2
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(PSGPG)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?1,"ONE-TIME/PRN SHEET",?61,PSGMARDF_" DAY MAR",?100,PSGMARSP_" through "_PSGMARFP
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?5,$P($$SITE^PSGMMAR2(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: !?57,"Diet: ",PSJDIET
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!?1,"Order",?9,"Start",?21,"Stop",?77,"Order",?85,"Start",?97,"Stop",!,LN1
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !?1,"Order",?9,"Start",?21,"Stop",?77,"Order",?85,"Start",?97,"Stop",!,LN1
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"| DATE | TIME | MEDICATION/DOSE/ROUTE | INIT | REASON | RESULTS | TIME | INIT |"
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !,LN31
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !,LN1
  • Line Location: ENB+2
Function Call: WRITE
  • Prompt: !,"|",?13,"SIGNATURE/TITLE",?40,"| INIT | INJECTION SITES |",?97,"SIGNATURE/TITLE",?124,"| INIT |"
  • Line Location: ENB+3
Function Call: WRITE
  • Prompt: !,"|"_$E(LN1,1,39)_"|------|"_BLN(Q),?84,"|"_$E(LN1,1,39)_"|------|"
  • Line Location: ENB+4
Info |  Source |  Entry Points |  Interaction Calls