VAFCAUD ;BIR/CML-MPI/PD AUDIT FILE PRINT FOR A SPECIFIED PATIENT ;2/25/09
Source file <VAFCAUD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
QUIT | ;
|
|
BEGIN | ;
|
|
ASK1 | ;Ask for PATIENT
|
|
HDR | ;HEADER
|
|
ASK2 | ;Ask for Date Range
|
|
DEV | ||
PRT | ;Print report
|
|
START(VAFCDFN,VAFCBDT,VAFCEDT,RPCFLG) | ;
|
|
LOOP | ;Loop on "B" xref of the AUDIT file
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^VA(200 - [#200] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(2 | PRT+10 |
^DIA(2 | ASK1+3, LOOP+2, LOOP+3, LOOP+7, LOOP+8, PRT+9, PRT+16, PRT+17, PRT+18, PRT+19 , PRT+21 |
^DPT - [#2] | HDR+6 |
^TMP("VAFCAUD" | START+2!, LOOP+4*, LOOP+8*, PRT+5, PRT+6, PRT+7, QUIT+4! |
Name | Line Occurrences |
---|---|
ASK1 | BEGIN+7, ASK1+3 |
ASK2 | BEGIN+8 |
DEV | BEGIN+9 |
HDR | PRT+4, PRT+24 |
QUIT | BEGIN+10, DEV+4 |
Name | Field # of Occurrence |
---|---|
^(0 | LOOP+3, LOOP+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | PRT+3, QUIT+5! |
%I | QUIT+5! |
C | QUIT+5! |
DA | PRT+20*!, PRT+22*!, PRT+23*! |
DIC | ASK1+2*!, PRT+15*, PRT+20*!, PRT+22*!, PRT+23*! |
DIC("A" | ASK1+2* |
DIC(0 | ASK1+2*, PRT+15* |
DIQ | PRT+20*!, PRT+22*!, PRT+23*! |
DIQ(0 | PRT+20*, PRT+22*, PRT+23* |
DIR | ASK2+3!, ASK2+4!, ASK2+5!, QUIT+1!, HDR+2! |
DIR("A" | ASK2+4*, ASK2+5* |
DIR(0 | ASK2+4*, ASK2+5*, QUIT+1*, HDR+2* |
DIRUT | ASK2+3!, ASK2+4, ASK2+5 |
DR | PRT+20*!, PRT+22*!, PRT+23*! |
DTOUT | ASK2+3! |
DUOUT | ASK2+3! |
EDITDT | LOOP+3*, LOOP+4, LOOP+8*, PRT+6*, PRT+7, PRT+8, QUIT+5! |
FIELD | PRT+10*, PRT+11, QUIT+7! |
FILE | PRT+10*, PRT+11, QUIT+7! |
FLD | PRT+12*, PRT+25, QUIT+5! |
HDT | PRT+3*, QUIT+5!, HDR+5 |
IEN | START+1~, LOOP+2*, LOOP+3, LOOP+4, LOOP+7*, LOOP+8, PRT+7*, PRT+9, PRT+16, PRT+17 , PRT+18, PRT+19, PRT+21, QUIT+5! |
IEN0 | PRT+9*, PRT+10, PRT+13, QUIT+5! |
IOF | HDR+4 |
IOSL | PRT+24 |
IOST | QUIT+1, HDR+1, HDR+2, HDR+4 |
JJ | QUIT+2*, QUIT+5!, HDR+1* |
LN | PRT+1*, QUIT+5!, HDR+9 |
NEW | PRT+17*, PRT+25, QUIT+5! |
OLD | PRT+16*, PRT+25, QUIT+5! |
OPTDA1 | PRT+18!, PRT+19*, PRT+20, QUIT+5! |
OPTDA2 | PRT+18!, PRT+21*, PRT+22, PRT+23, QUIT+5! |
OPTNM | PRT+18!, PRT+22*, PRT+23*, PRT+27, QUIT+5! |
PG | PRT+1*, QUIT+5!, HDR+2, HDR+3*, HDR+5 |
POP | DEV+2, QUIT+5! |
PRTDT | PRT+8*, PRT+25, QUIT+5! |
PVAFCBDT | PRT+2*, QUIT+5!, HDR+7 |
PVAFCEDT | PRT+2*, QUIT+5!, HDR+7 |
QFLG | VAFCAUD+5*, PRT+1*, PRT+6, PRT+7, PRT+24, QUIT+1, QUIT+6!, HDR+2* |
LOOP+7*, QUIT+7! | |
RPCFLG | VAFCAUD+6*, START~, PRT+24, QUIT+1, QUIT+3, QUIT+6!, HDR+1, HDR+2, HDR+4 |
SITE | PRT+1*, QUIT+6!, HDR+5 |
SS | QUIT+2*, QUIT+6!, HDR+1* |
STOP | LOOP+1*, LOOP+3, LOOP+8, QUIT+6! |
SUB | LOOP+7*, QUIT+7! |
U | LOOP+3, LOOP+8, PRT+1*, PRT+13, HDR+6 |
USER | PRT+13*, PRT+14*, PRT+15*, PRT+25, QUIT+6! |
VAFCARR1 | PRT+11!, QUIT+6! |
VAFCARR1("LABEL" | PRT+12 |
VAFCBDT | BEGIN+9, ASK2+4*, ASK2+5, START~, LOOP+3, LOOP+8, PRT+2, QUIT+6! |
VAFCDFN | BEGIN+8, ASK1+2*, ASK1+3, START~, LOOP+2, LOOP+7, QUIT+5!, HDR+6 |
VAFCEDT | BEGIN+9, ASK2+5*, START~, LOOP+1, PRT+2, QUIT+6! |
VAFCOPTN | PRT+18!, PRT+20*, PRT+26, PRT+27, QUIT+5! |
VAFCOPTN(101 | PRT+22 |
VAFCOPTN(19 | PRT+20, PRT+23 |
X | PRT+15*, QUIT+6! |
Y | ASK1+2, ASK2+4, ASK2+5, PRT+15, QUIT+6!, HDR+2 |
>> ZTQUEUED | QUIT+3 |
>> ZTREQ | QUIT+3* |
>> ZTSAVE | DEV+2 |
>> ZTSAVE("VAFCBDT" | DEV+1* |
>> ZTSAVE("VAFCDFN" | DEV+1* |
>> ZTSAVE("VAFCEDT" | DEV+1* |
ZTSK | QUIT+6! |