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

Package: Barcode Medication Administration

Routine: ALPBPCLN


Information

ALPBPCLN ;OIFO-DALLAS MW,SED,KC-PRINT 3-7 DAY MAR BCMA BCBU REPORT FOR CLINICS ;3/9/13 9:13am

Source Information

Source file <ALPBPCLN.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Barcode Medication Administration 5 F132^ALPBFRM1  (FOOT,HDR)^ALPBFRMU  ($$DEFDAYS,$$DEFPRT,CLINLIST,CLINSEL,ORDS)^ALPBUTL  $$STAT2^ALPBUTL1  $$DEFML^ALPBUTL3  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Barcode Medication Administration 2 PSB BCBU PRINT MAR ALL CLINICS  PSB BCBU PRINT MAR CLINIC  

Entry Points

Name Comments DBIA/ICR reference
ALL ;All Clinic report
EN(RPT) ;Entry point to print either All clinics or a selected clinics
DQ(RPT) ; output entry point...
; set report date... SED 11/4/03
GETORDS ;Get orders per clinic
CLN ;Selected Clinic report
PRT ;
DONE ;
PAGE ; print page header for patient...

External References

Name Field # of Occurrence
^%ZIS EN+84
HOME^%ZIS EN+108
^%ZISC EN+94
^%ZTLOAD EN+107
F132^ALPBFRM1 PRT+21
FOOT^ALPBFRMU PRT+32
HDR^ALPBFRMU PAGE+3
$$DEFDAYS^ALPBUTL EN+63
$$DEFPRT^ALPBUTL EN+82
CLINLIST^ALPBUTL EN+17
CLINSEL^ALPBUTL EN+13
ORDS^ALPBUTL GETORDS+7
$$STAT2^ALPBUTL1 GETORDS+23
$$DEFML^ALPBUTL3 EN+71
^DIR EN+11, EN+29, EN+43, EN+56, EN+65, EN+77
$$NOW^XLFDT DQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX)
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: "ALL CLINICS REPORT"
  • Condition for execution: RPT="ALL"
  • Line Location: EN+91
Function Call: WRITE
  • Prompt: "SELECTED CLINIC REPORT FOR "_$G(ALPBCL)
  • Condition for execution: RPT="CLN"
  • Line Location: EN+91
Function Call: WRITE
  • Prompt: " IS RUNNING...",!
  • Line Location: EN+91
Function Call: WRITE
  • Prompt: !,ALPBFORM(ALPBX)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !,ALPBHDR(ALPBX)
  • Line Location: PAGE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+108
Routine Call
  • DIR
  • Line Location:
    • EN+11
    • EN+29
    • EN+43
    • EN+56
    • EN+65
    • EN+77
Routine Call
  • %ZIS
  • Line Location:
    • EN+84

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ALPB(53.7 - [#53.7] ALL+5, ALL+7, ALL+8, CLN+5, CLN+6, GETORDS+8, GETORDS+11, GETORDS+12, GETORDS+14, GETORDS+15
, GETORDS+17, PRT+5, PRT+6, PRT+20
^TMP("PSBCL" DQ+3!, ALL+9*, ALL+11, CLN+7*, GETORDS+4, GETORDS+6, DONE+1!
^TMP($J DQ+3!, GETORDS+24*, GETORDS+25*, PRT+3, PRT+4, PRT+9, PRT+11, PRT+13, PRT+15, PRT+17
, PRT+18, DONE+1!

Label References

Name Line Occurrences
@( DQ+4
DONE DQ+5
DQ EN+93
GETORDS ALL+12, CLN+8
PAGE PRT+7, PRT+22, PRT+26
PRT ALL+14, CLN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+81*, EN+84!
%ZIS("B" EN+82*, EN+83!
ALPBCL EN+1~, EN+20*, EN+21, EN+31*, EN+32, EN+35, EN+44!, EN+78!, EN+87!, EN+91
, EN+99, EN+111!, ALL+4*, ALL+5*, ALL+7, ALL+9, ALL+10*, ALL+11*, CLN+5, CLN+7
, GETORDS+4, GETORDS+6, GETORDS+7, DONE+1!
ALPBCLIN GETORDS+1~, GETORDS+13*, GETORDS+25, PRT+1~, PRT+8*, PRT+9*, PRT+11, PRT+13, PRT+15, PRT+17
, PRT+18
ALPBD DONE+1!
ALPBDAT PRT+34!
ALPBDAT0 GETORDS+2~, GETORDS+12*, GETORDS+13
ALPBDATA GETORDS+2~, GETORDS+11*, GETORDS+21!, PRT+20*, PRT+21, PRT+24!
ALPBDAYS EN+67*, EN+111!, PRT+21, DONE+1!
ALPBDRGNAME GETORDS+1~, GETORDS+17*, GETORDS+18*, GETORDS+25, PRT+1~, PRT+12*, PRT+13*, PRT+15, PRT+17, PRT+18
ALPBFORM PRT+21, PRT+24!
ALPBFORM( PRT+23
ALPBFORM(0 PRT+22, PRT+23
ALPBHDR PAGE+3, PAGE+5!
ALPBHDR( PAGE+4
ALPBHDR(0 PAGE+4
ALPBIEN ALL+1~, ALL+6*, ALL+7*, ALL+8, ALL+9, CLN+1~, CLN+4*, CLN+5*, CLN+6, CLN+7
, GETORDS+1~, GETORDS+5*, GETORDS+6*, GETORDS+7, GETORDS+8, GETORDS+11, GETORDS+12, GETORDS+14, GETORDS+15, GETORDS+17
, GETORDS+24, PRT+4*, PRT+5, PRT+6, PRT+20, PRT+21
ALPBINCLI EN+48*, EN+58*, EN+87!, EN+111!, GETORDS+7
ALPBMLOG EN+79*, EN+87!, EN+111!, PRT+21, DONE+1!
ALPBOCT GETORDS+1~, GETORDS+14*, GETORDS+15*, GETORDS+25, PRT+1~, PRT+10*, PRT+11*, PRT+13, PRT+15, PRT+17
, PRT+18
ALPBOIEN GETORDS+1~, GETORDS+9*, GETORDS+10*, GETORDS+11, GETORDS+12, GETORDS+14, GETORDS+15, GETORDS+17, GETORDS+22, GETORDS+23
, GETORDS+25, PRT+18*, PRT+20, PRT+24!
>> ALPBORDN GETORDS+22*, GETORDS+25, PRT+16*, PRT+17*, PRT+18
ALPBORDS GETORDS+2~, GETORDS+5!, GETORDS+7
ALPBORDS( GETORDS+10, GETORDS+22, GETORDS+23
ALPBOST GETORDS+1~, GETORDS+23*, GETORDS+25, PRT+1~, PRT+14*, PRT+15*, PRT+17, PRT+18
ALPBOTYP EN+45*, EN+57!, EN+66!, EN+78!, EN+87!, EN+111!, DQ+2, GETORDS+21, DONE+1!
>> ALPBPDAT PAGE+3
>> ALPBPDAT(0 GETORDS+8*, PRT+5*
>> ALPBPDAT(1 PRT+6!*
ALPBPG ALL+1~, ALL+13*, CLN+1~, CLN+9*, PRT+7, PRT+33*, PAGE+2*, PAGE+3
ALPBPTN GETORDS+1~, GETORDS+3*, GETORDS+4*, GETORDS+6, GETORDS+24, GETORDS+25, PRT+1~, PRT+2*, PRT+3*, PRT+4
, PRT+9, PRT+11, PRT+13, PRT+15, PRT+17, PRT+18
ALPBRDAT DQ+2~*, GETORDS+7, GETORDS+21
ALPBSEL EN+13, EN+18!, EN+22!, EN+30!, EN+33!
ALPBSEL( EN+25, EN+31
ALPBSEL(0 EN+14, EN+19, EN+23, EN+27, EN+28
ALPBSEL(1 EN+20
ALPBX EN+24*, EN+25*, EN+26!, PRT+23*, PRT+24!, PAGE+4*, PAGE+5!
ALPRM DONE+1!
ALPRM1 DONE+1!
DIR EN+11!, EN+29!, EN+43!, EN+56!, EN+65!, EN+77!
DIR("?" EN+10*, EN+42*, EN+52*, EN+53*, EN+54*, EN+55*, EN+64*, EN+74*, EN+75*, EN+76*
DIR("A" EN+9*, EN+28*, EN+40*, EN+50*, EN+62*, EN+72*, EN+73*
DIR("B" EN+41*, EN+51*, EN+63*, EN+71*
DIR(0 EN+8*, EN+27*, EN+39*, EN+49*, EN+61*, EN+70*
DIRUT EN+5, EN+12, EN+23!, EN+30, EN+34, EN+44!, EN+57!, EN+66!, EN+78!, EN+112*
, EN+113!
DTOUT EN+23!, EN+44!, EN+57!, EN+66!, EN+78!, EN+113!
DUOUT EN+34, EN+57!
IO EN+92, EN+94
IO("Q" EN+90, EN+97, EN+110!
IO(0 EN+94
IOF PAGE+1
ION EN+106
IOSL PRT+22, PRT+26, PRT+30
IOST PRT+30
PATNAM ALL+1~, ALL+8*, ALL+9, CLN+1~, CLN+6*, CLN+7
POP EN+85, EN+87!
RPT EN~, EN+2*, EN+6, EN+35, EN+44, EN+91, EN+93, EN+112, DQ~, DQ+4
U ALL+8, CLN+6, GETORDS+13, GETORDS+14, GETORDS+15, GETORDS+17, GETORDS+21
X EN+23!, EN+44!, EN+57!, EN+66!, EN+78!, EN+113!
Y EN+13, EN+23!, EN+31, EN+44!, EN+45, EN+57!, EN+58, EN+66!, EN+67, EN+78!
, EN+79, EN+113!
>> ZTDESC EN+99*
>> ZTIO EN+106*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN EN+98*
>> ZTSAVE("ALPBCL" EN+101*
>> ZTSAVE("ALPBDAYS" EN+100*
>> ZTSAVE("ALPBINCLI" EN+104*
>> ZTSAVE("ALPBMLOG" EN+102*
>> ZTSAVE("ALPBOTYP" EN+103*
>> ZTSAVE("RPT" EN+105*
ZTSK EN+109, EN+110!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All