DGPREP5 ;ALB/SCK - PreRegistration Audit field totals ; 10/10/03 3:16pm
Source file <DGPREP5.m>
Package | Total | Caller Graph |
---|---|---|
Registration | 1 | DGPRE PRE-REGISTER AUDIT RPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
AGN | ||
EN | ; Entry point for audit totals by user
|
|
RPT | ; Call procedures to build the data arrays, and then call the print procedure
|
|
PRNT(DGPDD) | ; Print the report
|
|
TOT | ; Display totals by user
|
|
HDR(DGPDD) | ; Page header
|
|
EXIT | ; Clean up and exit
|
|
BLD2 | ; Build array of audit data for the PATIENT File, #2
|
|
BLD3 | ; Build array of audit data for file 2.312
|
|
NEWPGE() | ; Check for device and execute header if user does not quit
|
|
HDR1(DGPDD,DFLD) | ; Field header
|
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | PRNT+16, HDR1+2 |
^DD(2 | BLD2+4, BLD2+5 |
^DD(2.312 | BLD3+4, BLD3+5 |
^DIA(2 | BLD2+9, BLD2+10, BLD2+11, BLD3+9, BLD3+10, BLD3+11 |
^TMP("DGPAUD" | RPT+5!, EXIT+2!, BLD2+16*, BLD3+16*, PRNT+5, PRNT+9, PRNT+11, PRNT+13, PRNT+14 |
^TMP("DGPTOT" | RPT+6!, BLD2+17*, BLD3+17*, TOT+6, TOT+8, TOT+9 |
^VA(200 - [#200] | PRNT+13, TOT+8 |
^XUSEC("DGPRE EDIT" | BLD2+15, BLD3+15 |
^XUSEC("DGPRE SUPV" | BLD2+15, BLD3+15 |
Name | Line Occurrences |
---|---|
$$NEWPGE | PRNT+3, PRNT+12, TOT+1, TOT+7, HDR1+1 |
AGN | AGN+3 |
BLD2 | RPT+8 |
BLD3 | RPT+9 |
EXIT | EN+11, AGN+1, AGN+8, AGN+9, RPT+12, RPT+14, TOT+6, HDR1+1 |
HDR | PRNT+4, PRNT+12, TOT+2, TOT+7, HDR1+1 |
HDR1 | PRNT+10 |
PRNT | RPT+11, RPT+13 |
TOT | RPT+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | AGN+8* |
DFLD | HDR1~, HDR1+2 |
DGOK | NEWPGE+1~, NEWPGE+4*, NEWPGE+5 |
DGPABRT | EN+1~, RPT+12, RPT+14, PRNT+3, PRNT+9, PRNT+11, PRNT+12, PRNT+15, TOT+1, TOT+6 , TOT+7, HDR1+1, NEWPGE+3*, NEWPGE+4 |
DGPBEG | EN+1~, EN+12*, AGN+3, BLD2+7, BLD3+7, HDR+3 |
DGPDATA | BLD2+1~, BLD2+11*, BLD2+12, BLD2+13, BLD2+14, BLD2+16, BLD3+1~, BLD3+11*, BLD3+12, BLD3+13 , BLD3+14, BLD3+16 |
DGPDD | PRNT~, PRNT+4, PRNT+5, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13, PRNT+14, PRNT+16 , HDR~, HDR+5, HDR1~, HDR1+1, HDR1+2 |
DGPDSH | EN+1~, RPT+2*, TOT+4, HDR+4 |
DGPDUZ | BLD2+1~, BLD2+14*, BLD2+15, BLD2+16, BLD2+17, BLD3+1~, BLD3+14*, BLD3+15, BLD3+16, BLD3+17 |
DGPE | BLD2+8*, BLD2+9, BLD3+1~, BLD3+8*, BLD3+9 |
DGPEND | EN+1~, AGN+2*, AGN+3, BLD2+8, BLD3+8, HDR+3 |
DGPFLD | BLD2+1~ |
DGPFLD( | BLD2+5*, BLD2+13, BLD3+13 |
DGPFLD(".3121," | BLD3+5* |
DGPFLD1 | EN+1~ |
DGPFLDX | PRNT+1~, PRNT+8*, PRNT+9*, PRNT+10, PRNT+11, PRNT+13, PRNT+14, PRNT+16 |
DGPIENX | PRNT+1~, PRNT+11*, PRNT+13, PRNT+14, TOT+5*, TOT+6*, TOT+8, TOT+9 |
DGPLN | EN+1~, RPT+3*, PRNT+18 |
DGPN1 | BLD2+1~, BLD2+3*, BLD2+4*, BLD2+5, BLD2+7*, BLD2+9*, BLD2+10, BLD3+1~, BLD3+3*, BLD3+4* , BLD3+5, BLD3+7*, BLD3+9*, BLD3+10 |
DGPN2 | BLD2+1~, BLD2+10*, BLD2+11, BLD3+1~, BLD3+10*, BLD3+11 |
DGPTOT | PRNT+1~, PRNT+14*, PRNT+16, PRNT+17*, TOT+5*, TOT+9*, TOT+11 |
DIR | EN+2!, AGN+6!, NEWPGE+1~ |
DIR("?" | EN+6*, EN+7* |
DIR("A" | EN+9*, EN+13* |
DIR("B" | EN+8* |
DIR(0 | EN+4*, NEWPGE+3* |
DIRUT | EN+2!, EN+11, AGN+1 |
IO | RPT+1 |
IO("Q" | AGN+9, AGN+15! |
IOF | HDR+1 |
IOSL | PRNT+12, TOT+7, HDR1+1 |
IOST | NEWPGE+2 |
POP | AGN+8, EXIT+2! |
U | BLD2+12, BLD2+13, BLD2+14, BLD2+16, BLD3+12, BLD3+13, BLD3+14, BLD3+16, PRNT+13, PRNT+16 , TOT+8, HDR1+2 |
VAUTD | EN+1~ |
>> X | PRNT+3*, TOT+1* |
>> X1 | EN+5*, EN+8 |
>> Y | EN+12, AGN+2, NEWPGE+3 |
ZTDESC | AGN+10*, AGN+15! |
ZTQUEUED | EXIT+1, EXIT+2! |
ZTRTN | AGN+10*, AGN+15! |
ZTSAVE | AGN+15! |
ZTSAVE("DGPBEG" | AGN+11* |
ZTSAVE("DGPEND" | AGN+11* |
ZTSAVE("VAUTD" | AGN+12* |
ZTSAVE("VAUTD(" | AGN+12* |
ZTSK | AGN+13, AGN+15! |