BARBL ; IHS/SD/LSL - AGE DAY LETTER AND LIST ; 07/30/2008
Source file <BARBL.m>
Package | Total | Call Graph |
---|---|---|
IHS Accounts Receivable | 3 | ($$MDT2,$$SDT)^BARDUTL EOP^BARUTL $$EN^BARVDF |
Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
VA Fileman | 3 | ^DIC $$GET1^DIQ ^DIR |
IHS VA Utilities | 1 | ($$DIC,ENP)^XBDIQ1 |
Package | Total | Caller Graph |
---|---|---|
IHS Accounts Receivable | 1 | BAR AGE DAY LETTER & LIST |
Name | Comments | DBIA/ICR reference |
---|---|---|
CNT | ||
BARPG | ;EP PAGE CONTROLLER
; this utility uses variables BARPG("HDR"),BARPG("DT"),BARPG("LINE"),BARPG("PG") ; kill variables by D EBARPG |
|
BARHDR | ;EP
; write page header |
|
BARHD | ;EP
; Write column header / message |
|
ONEAC | ;ONE A/R ACCOUNT
|
|
AGE | ; *
; * dequeing compute point |
|
LIST | ;** list bills
|
|
SELACC | ;
; ** select accounts to print |
|
SUMMARY | ;
|
|
EBARPG | ;
|
|
EOP | ;end of page
|
|
QUE | ;QUE
|
|
PG | ;
|
|
LETTER | ;
; ** print letter |
|
;
|
||
EXIT | ;clean up and quit
|
|
FMDT(X) | ;
; cvt fmdt to mm/dd/yyyy |
Name | Field # of Occurrence |
---|---|
^%ZIS | BARBL+34, BARBL+39 |
HOME^%ZIS | BARBL+36 |
^%ZISC | AGE+11 |
^%ZTLOAD | QUE+6 |
$$MDT2^BARDUTL | LETTER+8 |
$$SDT^BARDUTL | FMDT+2, BARHDR+9 |
EOP^BARUTL | EOP+3 |
$$EN^BARVDF | LETTER+2, BARHDR+2, EXIT+3 |
^DIC | SELACC+7 |
$$GET1^DIQ | AGE+3, LETTER+16, LIST+10, SUMMARY+5 |
^DIR | BARBL+12, BARBL+21, BARBL+29, SELACC+17 |
$$DIC^XBDIQ1 | SELACC+4 |
ENP^XBDIQ1 | ONEAC+5, PRINT+8, LETTER+3, LETTER+19, LIST+8 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^ABMDPARM(1 - [#9002274.5] | GET1^DIQ |
^BARAC(2906 - [#90050.02] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BARBL( | AGE+6, ONEAC+2, ONEAC+3, ONEAC+8, ONEAC+10, ONEAC+11, LIST+9 |
^DPT - [#2] | LIST+11 |
^TMP("BAR" | AGE+2!, ONEAC+14*, ONEAC+15*, PRINT+6, LIST+5, LIST+6, SUMMARY+4 |
Name | Line Occurrences |
---|---|
$$FMDT | LIST+16 |
BARHDR | LIST+4, SUMMARY+2 |
CNT | LETTER+17 |
EOP | CNT+6, LIST+29, LIST+32, SUMMARY+7, SUMMARY+12 |
EXIT | BARBL+36, AGE+12 |
LETTER | PRINT+9 |
LIST | PRINT+11 |
ONEAC | AGE+6, AGE+9 |
PG | LIST+30, SUMMARY+8 |
AGE+10 | |
QUE | BARBL+36 |
SELACC | BARBL+16, SELACC+20 |
SUMMARY | PRINT+2 |
Name | Field # of Occurrence |
---|---|
^( | PRINT+6, SUMMARY+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | BARBL+32* |
>> %ZIS("A" | BARBL+33* |
BARA | PRINT+7!, EXIT+1! |
BARA( | LETTER+10, LETTER+13, LETTER+14, LIST+3 |
BARAC | SUMMARY+3*, SUMMARY+4*, SUMMARY+5, EXIT+1! |
BARACDA | AGE+5*, AGE+6*, AGE+8*, AGE+9*, ONEAC+2, ONEAC+14, ONEAC+15, PRINT+5*, PRINT+6*, PRINT+8 , LIST+5, LIST+6, EXIT+1! |
BARAGE | BARBL+15*, ONEAC+6, CNT+2, LIST+3, SUMMARY+1, EXIT+1! |
BARB | LIST+7!, EXIT+1! |
BARB( | LIST+14 |
BARB(101 | LIST+19 |
BARB(102 | LIST+16 |
BARB(13 | LIST+17 |
BARB(15 | LIST+18 |
BARB(701 | LIST+12 |
BARB(702 | LIST+13 |
>> BARBLDA | LIST+2*, LIST+6*, LIST+8, LIST+9 |
BARBLDS | EXIT+1! |
BARCNT | SUMMARY+3*, EXIT+2! |
>> BARDASH | BARHDR+6*, BARHD+6 |
>> BARDOB | LIST+10*, LIST+21 |
BARF | LETTER+18!, LETTER+25! |
BARF( | LETTER+21, LETTER+22, LETTER+23, LETTER+24 |
BARFDA | LETTER+16*, LETTER+17, LETTER+19, EXIT+2! |
BARJOB | EXIT+2! |
BARL | LETTER+4*, LETTER+6*, CNT*, CNT+4*, CNT+5*, EXIT+2! |
BARLT | EXIT+2! |
BARLT(100 | LETTER+6, CNT, CNT+4, CNT+5 |
BARPG | EXIT+1! |
BARPG("DT" | EBARPG+1! |
BARPG("HDR" | LIST+3*, SUMMARY+1*, BARHDR+4, BARHDR+8, BARHD+3, EBARPG+1! |
BARPG("LINE" | BARHDR+5*, BARHDR+11, EBARPG+1! |
BARPG("PG" | BARPG+4*, BARHDR+7*, BARHDR+10, EBARPG+1! |
>> BARPIEN | LIST+9*, LIST+10, LIST+11 |
BARQUIT | BARBL+17, PRINT+3, PRINT+6, PRINT+10, LIST+6, SUMMARY+4, SUMMARY+9, EXIT+2!, EOP+4* |
BARSAC | AGE+4, AGE+7, SELACC+2!, SELACC+8, SELACC+19!, EXIT+1! |
BARSAC( | AGE+9, SELACC+7*, SELACC+11 |
BARSBY | BARBL+24*, BARBL+31*, ONEAC+12, EXIT+1! |
BARSSN | LIST+1~, LIST+11*, LIST+22 |
>> BARSUM | BARBL+23*, BARBL+25, PRINT+4 |
BARSVAL | ONEAC+8*, ONEAC+9, ONEAC+10*, ONEAC+11*, ONEAC+12*, ONEAC+13*, ONEAC+14, LIST+2*, LIST+5*, LIST+6 , EXIT+2! |
BARSVC | AGE+3*, ONEAC+7, EXIT+2! |
BART | ONEAC+4!, EXIT+2! |
BART( | ONEAC+6 |
BART(10 | ONEAC+7 |
BART(15 | ONEAC+14, ONEAC+15 |
BARTMP1 | LIST+1~, LIST+14*, LIST+15 |
BARTMP2 | LIST+1~, LIST+14*, LIST+20 |
BARTOT | PRINT+6*, CNT+2, LIST+31, SUMMARY+3*, SUMMARY+4*, SUMMARY+10, EXIT+2! |
>> BARUSR(29 | LETTER+20 |
>> DA | ONEAC+1*, ONEAC+2*, ONEAC+3, ONEAC+5, ONEAC+8, ONEAC+10, ONEAC+11, ONEAC+14, SELACC+9*, SELACC+11* |
DIC | SELACC+4*, EXIT+1! |
DIC("S" | SELACC+6* |
DIC(0 | SELACC+5* |
DIR | BARBL+10!, BARBL+13!, BARBL+22!, BARBL+30!, SELACC+13! |
DIR("A" | BARBL+18*, BARBL+27*, SELACC+16* |
DIR("B" | BARBL+19*, BARBL+28*, SELACC+15* |
DIR(0 | BARBL+11*, BARBL+20*, BARBL+26*, SELACC+14* |
>> DIROUT | LIST+6 |
>> DR | LETTER+11*, LETTER+14* |
>> DROUT | LIST+6 |
DT | LETTER+8, BARHDR+9 |
>> DTOUT | LIST+6 |
>> DUOUT | LIST+6 |
DUZ | AGE+3 |
DUZ(2 | AGE+6, ONEAC+2, ONEAC+3, ONEAC+8, ONEAC+10, ONEAC+11, LIST+9 |
I | QUE+1~, QUE+2* |
IO | BARBL+36, EOP+1 |
IO("S" | BARBL+37, AGE+11, EOP+1 |
IO(0 | BARBL+36, EOP+1 |
IOM | LIST+25, BARHDR+5, BARHDR+6, BARHDR+8, BARHDR+9, BARHDR+10 |
ION | BARBL+38 |
>> IOP | BARBL+38* |
IOSL | LIST+28, SUMMARY+6, EOP+2 |
>> POP | BARBL+35 |
U | LIST+9, LIST+11 |
X | SUMMARY+4*, SUMMARY+5, FMDT~, FMDT+2*, FMDT+3 |
>> Y | BARBL+14, BARBL+15, BARBL+23, BARBL+31, SELACC+7, SELACC+18, EOP+4 |
>> Y(0 | SELACC+7 |
>> ZTDESC | QUE+4* |
>> ZTQUEUED | EOP+1 |
>> ZTRTN | QUE+3* |
>> ZTSAVE( | QUE+2* |
ZTSK | QUE+5!, QUE+7 |