Routine: AUFLST

Entry Points

Name	Comments	DBIA/ICR reference
QNTVAR
INITKILL
AUFLST	;TEST PROGRAM TO FIND LAST ENTRY IN GLOBAL
IADDMSG
INIT
STEP1
STEP1A

Name	Line Occurrences
Function Call: WRITE	Prompt: "*" Line Location: INIT+4
Function Call: WRITE	Prompt: !,?22,"PROGRAM TO PORT REGISTRATION DATA",! Line Location: QNTVAR+2
Function Call: WRITE	Prompt: ?24,"OCAO RPMS DEVELOPMENT SITE",! Line Location: QNTVAR+3
Function Call: WRITE	Prompt: "*" Line Location: QNTVAR+4
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS RECORDS ON FILE =",TRECDS,!! Line Location: IADDMSG+8
Function Call: WRITE	Prompt: !,"DO YOU WANT TO ADD TO THESE RECORDS (Y/N) " Line Location: IADDMSG+9
Function Call: WRITE	Prompt: !!,"ARE YOU SURE (YES/NO) " Line Location: INITKILL+2
Function Call: WRITE	Prompt: !!,"DO YOU WANT TO REWIND TAPE (Y/N) " Line Location: STEP1+2
Function Call: WRITE	Prompt: *5 Line Location: STEP1+5
Function Call: WRITE	Prompt: !,"LAST # USED = ",DFN Line Location: AUFLST+3

Name	Line Occurrences (* Changed, ! Killed)
^AMCD	INITKILL+5!
^AMCD(0	IADDMSG+3, IADDMSG+6
^AMCR	INITKILL+5!
^AMCR(0	IADDMSG+2, IADDMSG+5
^APAT	INITKILL+5!, AUFLST+2
^APAT(0	QNTVAR+6, IADDMSG, STEP1*
^APRVT	INITKILL+5!
^AQUAN(1	QNTVAR
^ARRE	INITKILL+5!
^ARRE(0	IADDMSG+4, IADDMSG+7
^COMERROR	INIT+2!
^DPT - [#2]	INITKILL+5!
^DPT(0	STEP1*
^FACERROR	INIT+2!
^REGCVTER	INIT+2!

Name	Field # of Occurrence
>> BDC	INIT+1*
>> DFN	AUFLST+2*, AUFLST+3
DT	INIT+3*
DUZ(0	INIT+1*
>> EFLG	INIT+1*
>> I	INIT+4, QNTVAR+1, QNTVAR+4*
>> MCDDFN	IADDMSG+3, INITKILL+6
>> MCDRCT	IADDMSG+6, INITKILL+6
>> MCRDFN	IADDMSG+2, INITKILL+6
>> MCRRCT	IADDMSG+5, INITKILL+6
>> PATSAVE	INIT+1*
>> PATSKFLG	INIT+1*
>> QT(	QNTVAR+1*
>> QT(0	QNTVAR+1*
>> QT(1	QNTVAR*
>> QT(2	QNTVAR*
>> QT(3	QNTVAR*
>> QT(4	QNTVAR*
>> QT(5	QNTVAR*
>> QT(6	QNTVAR*
>> QT(7	QNTVAR*
>> QT(8	QNTVAR+1*
>> QT(9	QNTVAR+1*
>> R15FLG	INIT+1*
>> RCT	IADDMSG+11, INITKILL+6
>> RREDFN	IADDMSG+4, INITKILL+6
>> RRERCT	IADDMSG+7, INITKILL+6
>> RUNADD	INIT+1*
>> RWFLG	INIT+2*
>> TODAY	QNTVAR+5*
>> TRECDS	IADDMSG*, IADDMSG+1, IADDMSG+8, IADDMSG+11
>> UDEV	INIT+1*, STEP1+1, STEP1+5
>> X	INIT+3, IADDMSG+10, IADDMSG+11, INITKILL, INITKILL+1, INITKILL+3, INITKILL+4, STEP1+3, STEP1+4, AUFLST+2
>> Y	INIT+3, QNTVAR+5