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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSVLB

Package: Contract Health Management Information System

Routine: ACHSVLB


Information

ACHSVLB ; IHS/ITSC/PMF - PRINT VENDOR LABELS FOR DOCUMENTS ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSVLB.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA Fileman 2 ^DIC  ^DIE  
Contract Health Management Information System 1 (LINES,SLV)^ACHSFU  
IHS VA Utilities 1 $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSLBL  

Entry Points

Name Comments DBIA/ICR reference
DISP ; Display Batches for Printing of Labels.
CVT ;
DEV ;
A2A ; Print Test Label.
A2C ;
PRINT ; For Multiple Labels Across.
A1 ;
A3 ;
A2 ;
MODE ;
H ;EP - From DIR.
SEL ; If user did not select a batch, ask if want to select Vendor(s).
CEND ;
END ;
DOCS ;
START ;
PR1 ;
DIS1 ;
DIS2 ;
CPY ;
CVT1 ;
D2 ;

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+2
LINES^ACHSFU A2+7
SLV^ACHSFU DEV+3
^DIC SEL+5
^DIE A2+4
$$DIR^XBDIR MODE+2, CPY+1, DOCS+1, A3+1, DIS2+7, CEND+2, SEL+1
$$FMTE^XLFDT DIS2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Print number of copies by [S]election",!?5,"or by number of [D]ocuments to be printed?"
  • Line Location: MODE+1
Function Call: WRITE
  • Prompt: !,$E(ACHS("*"),1,24)
  • Line Location: A2C+1
Function Call: WRITE
  • Prompt: ?(B+1),$E(ACHS("*"),1,24)
  • Line Location: A2C+1
Function Call: WRITE
  • Prompt: ?(B+1),$E(ACHS("*"),1,24)
  • Line Location: A2C+1
Function Call: WRITE
  • Prompt: ?(B+1),$E(ACHS("*"),1,24)
  • Line Location: A2C+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A2C+2
Function Call: WRITE
  • Prompt: !,A(1)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,B(1)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,C(1)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: $G(D(1))
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?(B+1),$G(D(2))
  • Condition for execution: ACHSTOTL>1
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?(2*B+1),$G(D(3))
  • Condition for execution: ACHSTOTL>2
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?(3*B+1),$G(D(4))
  • Condition for execution: ACHSTOTL>3
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !!?10,"---------------------------------------------------------",!?10,"ITM #",?19,"D A T E",?30,"FIRST DOC #",?45,"LAST DOC #",?60,"# DOC'S",!?10,"---------------------------------------------------------",!!
  • Line Location: DIS2+6
Function Call: WRITE
  • Prompt: ?10,$J(ACHS,3),?17,$$FMTE^XLFDT($P(^ACHS(7,ACHSRR,0),U,2)),?30,$P(ACHSWORK(ACHS),U,2),?45,$P(ACHSWORK(ACHS),U,3),?61,$J($P(ACHSWORK(ACHS),U,4),3),!
  • Line Location: DIS2+9
Function Call: WRITE
  • Prompt: !!,"No 'Batches' on File for Printing Labels.",!
  • Line Location: CEND+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIE
  • Line Location:
    • A2+4
Routine Call
  • DIC
  • Line Location:
    • SEL+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACHSF - [#9002080] Classic Fileman Calls
^AUTTVNDR - [#9999999.11] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(7 - [#9002067] DIS1+1, DIS2+1, DIS2+2, DIS2+4, DIS2+8, DIS2+9, D2+1
^ACHSF - [#9002080] A2+6, D2+1
^AUTTVNDR - [#9999999.11] PRINT+2, PR1+1, D2+1, SEL+5
^DIC(5 - [#5] PR1+2
^TMP("ACHSVLB" A1+1!, A1+3, CVT1+1, CVT1+3, CVT1+4*, CVT1+5*, END+1!, PRINT+2, D2+1*, SEL+5*

Label References

Name Line Occurrences
A1 CPY+2, DOCS+2, A3+1
A2 A2C+3
A2A A3+1
A2C A2C+5
CEND DIS1+2, DIS2+7
CPY MODE+3
CVT CPY+3
CVT1 CVT1+4, CVT1+6
DEV CVT1+2
DIS1 DIS2+2
DIS2 DIS2+2, DIS2+10
DISP A1+2
DOCS MODE+3
END A1+3, MODE+3, CPY+2, DOCS+2, DEV+4, A2+5, A3+1
PR1 PRINT+2
PRINT START+2, PRINT+23
SEL CEND+1, CEND+4

Naked Globals

Name Field # of Occurrence
^( CVT1+5, PRINT+2, DIS2+4, D2+1
^(0 PR1+2
^(1 A2+6
^(13 PRINT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+20*
>> %ZIS DEV+2*
A END+1!, A2A+4*, A2C+1, PRINT+2*, PR1+1, PR1+2, PR1+4, PR1+6, DIS2+3*, DIS2+4*
, DIS2+8
A( PR1+1*, PR1+3*, PR1+4*
A(1 PRINT+7
A(2 PRINT+8
A(3 PRINT+9
A(4 PRINT+10
ACHS CVT+1*, CVT1+4*, CVT1+5*, END+1!, A2C+1*, A2C+2*, PRINT+21*, DISP+1*, DIS2+5*, DIS2+6
, DIS2+7, DIS2+8, DIS2+9, CEND+1, CEND+2
ACHS("*" A2C+1
ACHS("CPY" CPY+1*, CVT1+4
ACHS("DOC" DOCS+1*, CVT1+5
ACHS("I" PRINT+2*
ACHS("TEST" A2A+3!, A2C+3, A2C+4*
ACHSHS A2+6*, END+1!, A2A+4, PRINT+6
>> ACHSI DIS2+4*
ACHSNOLA A2+6*, END+1!, A2A+4, PRINT+2
ACHSPPC A1+3, A2+2, END+1!
ACHSPPO END+1!, A2A+2, PRINT+5
ACHSRR END+1!, DISP+1*, DIS2+1*, DIS2+2, DIS2+4, DIS2+8, DIS2+9, CEND+5*, D2+1
ACHSTOTL END+1!, PRINT+1*, PRINT+2*, PRINT+3, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14
, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PR1+1, PR1+2, PR1+3, PR1+4, PR1+5, PR1+6
ACHSVNDR CVT+1*, CVT1+1*, CVT1+2, CVT1+3, CVT1+5, END+1!
ACHSVS A2+6*, END+1!, A2C+2, PRINT+21
ACHSWORK END+1!, DISP+2!
ACHSWORK( DIS2+8*, DIS2+9, CEND+5
ACHSX CVT1+4*, CVT1+5*, START+1*, END+1!, PRINT+2*
B END+1!, A2A+4*, A2C+1, PRINT+6*, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14
, PRINT+16, PRINT+17, PRINT+18, PRINT+20
B( PR1+1*, PR1+6*
B(1 PRINT+11
B(2 PRINT+12
B(3 PRINT+13
B(4 PRINT+14
C END+1!
C( PR1+1*, PR1+2*, PR1+4*, PR1+6*
C(1 PRINT+15
C(2 PRINT+16
C(3 PRINT+17
C(4 PRINT+18
D END+1!
D( PRINT+20, PR1+5*, PR1+6*
D(1 PRINT+20
D(2 PRINT+20
D(3 PRINT+20
D(4 PRINT+20
DA CVT1+3*, CVT1+4, CVT1+5, A2+3*, END+1!, PRINT+2*, PRINT+22, PR1+1, D2+1*
DIC END+1!, SEL+3~, SEL+4*
DIC(0 SEL+4*
DIE A2+3*, END+1!
DR A2+3*, END+1!
>> DTOUT MODE+3, CPY+2, DOCS+2, A3+1, CEND+3, SEL+2
>> DUOUT MODE+3, CPY+2, DOCS+2, A3+1, DIS2+7, CEND+3, SEL+2
DUZ(2 A2+3, A2+6
IO A2A+1, PRINT+4
IO("S" A1+3, DEV+3, A2+2, A2A+2, PRINT+5
IO(0 A1+3, A2+1
IOP DEV+1!
J END+1!
P END+1!
>> POP DEV+4
R END+1!, DISP+1*, DIS1+1*, DIS1+2, DIS2+1, D2+1*
U A2+6, PR1+1, PR1+2, PR1+4, PR1+6, DIS2+8, DIS2+9, CEND+5, D2+1, SEL+5
>> Y MODE+2*, MODE+3, A2+5, CEND+2*, CEND+4, CEND+5, SEL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All