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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ADEPLBL

Package: IHS Dental System

Routine: ADEPLBL


Information

ADEPLBL ; IHS/HQT/MJL - PRINT MAILING LABELS FROM SORT TEMPLATE ;07:21 PM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEPLBL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
IHS Dental System 2 ^ADEDCLK  ^ADEPLBL1  

Entry Points

Name Comments DBIA/ICR reference
ZTM ;EP
P2
TL1
END
TEMP ;EP
POINT
TL3
DEV
TEMPL
START ;------->GET POINTER FILE INFO
QUE
TLAB
FILE ;EP
PRINT
TL2
SCRN ;EP
SIZE

External References

Name Field # of Occurrence
^%ZIS DEV+6, TL2+1
^%ZISC END+3, DEV+8, TL2+5
^%ZTLOAD QUE+2
^ADEDCLK P2+7, P2+8, P2+9, P2+10, P2+11
^ADEPLBL1 FILE+2
^DIC TEMPL+2
YN^DICN TL1, TL3+1
^DIR SIZE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Ready to print mailing labels for patient names stored in the "
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$P(^DIBT(ADETEM,0),U)," Search Template"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: " of the ",$O(^DD(ADEFN,0,"NM",0))," File.",!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: "Make sure labels are lined up on printer.",!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,?5,"--Try Later"
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: ADENAM,!,ADEAD1,!,ADEAD2,!
  • Line Location: P2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+13
Function Call: WRITE
  • Prompt: !!,"Do you want to print a test label"
  • Line Location: TLAB+1
Function Call: WRITE
  • Prompt: !?5,"Answer Yes or No"
  • Line Location: TL1+2
Function Call: WRITE
  • Prompt: !,"Line up labels on printer and select Device",!
  • Line Location: TL2+0
Function Call: WRITE
  • Prompt: "LINE 1: NAME",!,"LINE 2: STREET ADDRESS",!,"LINE 3: CITY, STATE ZIP",!
  • Line Location: TL2+3
Function Call: WRITE
  • Prompt: "LINE ",ADEJ,":",!
  • Line Location: TL2+4
Function Call: WRITE
  • Prompt: !!,"Print another test label"
  • Line Location: TL3+0
Function Call: WRITE
  • Prompt: !?5,"Answer Yes or NO"
  • Line Location: TL3+3
Routine Call
  • DIC
  • Line Location:
    • TEMPL+2
Routine Call
  • DIR
  • Line Location:
    • SIZE+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
    • TL2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" QUE
^ADEUTL("ADEPLBL" END!, SIZE, SIZE+9*, PRINT+1!, P2+3, P2+4*
^DD( POINT+2, DEV+3
^DD(9000001 POINT+1, SCRN+8
^DIBT( DEV+2, PRINT+3, SCRN+2, SCRN+4, SCRN+6
^DIC - [#1] POINT+3
^DIC(5 - [#5] P2+10
^DPT - [#2] P2+2

Label References

Name Line Occurrences
DEV START+10, DEV+8
END TEMP+2, FILE+2, START+4, START+7, START+8, START+11, START+12, START+13
P2 PRINT+3
POINT START+1
PRINT ZTM+2
QUE DEV+9
SIZE START+3, TL3+2
START TEMP+2
TEMPL TEMP+2
TL2 TL1+1, TL3+2
TL3 TL3+3
TLAB START+6, TL1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TL1*, TL1+1, TL3+1*, TL3+2
>> %Y TL1+2, TL1+3, TL3+3, TL3+4
>> %ZIS DEV+6*, TL2+1*
ADEAD1 END!, P2+5*, P2+8*, P2+12
ADEAD2 END!, P2+5*, P2+9*, P2+10*, P2+11*, P2+12
ADECNT END!
ADEDFN END!, P2*, P2+1*, P2+2, P2+3, P2+4, P2+6
ADEDIC END!
ADEFLD END!, POINT*, POINT+1*, POINT+2
ADEFN END!, TEMPL+4*, POINT, POINT+1, POINT+2, POINT+3, DEV+3, SCRN+2*, SCRN+8
ADEGL END!, POINT*, POINT+3*, P2
ADEIOP END!
ADEJ END!, P2+13*, TL2+4*
ADELKDAT END+2!, P2+10!
ADELKERR END+2!
ADELKPRN END+2!, P2+7!, P2+8!, P2+9!, P2+11!
ADENAM END!, P2+5*, P2+7*, P2+12
ADEPN END!, POINT*, POINT+2*, P2, P2+1
ADESIZ END!, SIZE*, SIZE+1*, SIZE+4, SIZE+8*, SIZE+9, P2+13, TL2+4
ADETEM END!, TEMPL+4*, DEV+2, PRINT+3
ADEX END!, QUE+1*, PRINT+2*, PRINT+3*, P2
ADEY END!, PRINT+3*
>> DA P2+6*
DIC END+2!, TEMPL!*, P2+6*
DIC("S" TEMPL+1*
DIC(0 TEMPL*
DIR END+2!
DIR("?" SIZE+5*
DIR("A" SIZE+3*
DIR("B" SIZE+4*
DIR(0 SIZE+2*
DR END+2!, P2+7*, P2+8*, P2+9*, P2+10*, P2+11*
DTOUT TEMP+2!, FILE+2, START+4, START+8, START+13, END+2!, SIZE+7, DEV+7, TLAB!, TL2+1
, TL3+2
DUOUT TEMP+2!, FILE+2, START+4, START+8, START+13, END+2!, SIZE+7, DEV+7, TLAB!, TL1+3*
, TL2+1, TL3+2, TL3+4*
DUZ SCRN+4
IO PRINT, TL2+2
IO("Q" START+12!, DEV+8!, DEV+9
IO("S" DEV+8
IOST DEV+8
POP TEMP+2!, START+7, START+11, DEV!, TL2+1!
U TEMPL+4, POINT+2, DEV+2, P2+1, P2+10, SCRN+2, SCRN+4, TL1+3, TL3+4
>> X SIZE+8
Y TEMP+2, END+2!, TEMPL!, TEMPL+3, TEMPL+4, QUE, SCRN+2, SCRN+4, SCRN+6
Y(0 TEMPL+4
ZTDESC QUE*, QUE+3!
>> ZTQUEUED END+4
>> ZTREQ END+4*
ZTRTN QUE*, QUE+3!
ZTSAVE QUE+3!
ZTSAVE( QUE+1*
ZTSK QUE+3!
ZTUCI QUE*, QUE+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All