Routine: AGFULAUD

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC ^DIE ^DIK ^DIR
IHS Patient Registration	3	(EDITCHEK,FETCHERR)^AGEDERR CAPTURE^AGERRAUD ^AGVAR
Kernel	3	HOME^%ZIS (,$$S)^%ZTLOAD $$VERSION^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
CLEAR	;EP - CLEAR THE AUDIT FILE
START	;EP - ENTER BELOW FROM TASKMAN OPTION
NEWDT(DT)	;EP
EXIT	;EP - CLEAN UP VARIABLES
SHODAT(DATE)	;EP
ENTER	;
EXITCAP	;EP

External References

Name	Field # of Occurrence
NOW^%DTC	START+46, NEWDT+3
HOME^%ZIS	ENTER+38
^%ZTLOAD	ENTER+34
$$S^%ZTLOAD	START+25
EDITCHEK^AGEDERR	START+33
FETCHERR^AGEDERR	START+18
CAPTURE^AGERRAUD	START+34
^AGVAR	START+4
^DIC	START+40, NEWDT+10
^DIE	START+16, START+45, START+50, START+53, START+56, NEWDT+16
^DIK	CLEAR+6
^DIR	ENTER+13, ENTER+24, ENTER+28
$$VERSION^XPDUTL	ENTER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PATIENT REGISTRATION VERSION CANNOT BE DETERMINED PLEASE CALL THE HELP DESK!!" Line Location: ENTER+2
Function Call: WRITE	Prompt: !!,"WARNING THIS TASK COULD TAKE UP TO 10 HOURS TO COMPLETE!!!" Line Location: ENTER+3
Function Call: WRITE	Prompt: !,"THIS TASK SHOULD BE QUEUED VIA TASKMAN TO RUN AFTER HOURS" Line Location: ENTER+4
Function Call: WRITE	Prompt: !,"PREFERABLY ON THE WEEKEND!! MAKE SURE BACKUPS DO NOT SHUTDOWN" Line Location: ENTER+5
Function Call: WRITE	Prompt: !,"THIS TASK BEFORE IT'S FINISHED." Line Location: ENTER+6
Function Call: WRITE	Prompt: !!,"THE AUDIT REPORT IS CURRENTLY COMPILING! TRY AGAIN LATER" Line Location: ENTER+17
Function Call: WRITE	Prompt: !,"STARTING FULL PATIENT FILE AUDIT....." Line Location: ENTER+30
Function Call: WRITE	Prompt: !,"Full patient audit canceled!" Line Location: ENTER+35
Function Call: WRITE	Prompt: !!?5,"Full patient audit queued as Task # ",ZTSK,"!" Line Location: ENTER+36
Function Call: WRITE	Prompt: !!,"THERE IS ALREADY AN AUDIT REPORT FROM ",Y,". IT WILL BE DELETED!" Line Location: SHODAT+2
Function Call: WRITE	Prompt: !,"100% COMPLETED" Line Location: START+35
Routine Call	%ZIS Line Location: ENTER+38
Routine Call	DIE Line Location: START+16 START+45 START+50 START+53 START+56 NEWDT+16
Routine Call	DIC Line Location: START+40 NEWDT+10
Routine Call	DIR Line Location: ENTER+13 ENTER+24 ENTER+28

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AGERRAUD - [#9009061.6]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGERRAUD - [#9009061.6]	ENTER+19
^AGERRAUD("B"	ENTER+16, ENTER+18, START+8, START+10, CLEAR+4, CLEAR+5
^AGERRAUD("D"	CLEAR+7!
^AGERRAUD("E"	CLEAR+8!
^AGERRAUD(1	ENTER+20
^AUPNPAT - [#9000001]	START+22
^AUPNPAT(0	START+21
^DD("DD"	SHODAT+1

Label References

Name	Line Occurrences
$$NEWDT	START+8
CLEAR	START+6
EXIT	ENTER+14, ENTER+15, ENTER+17, ENTER+20, ENTER+29, ENTER+39
EXITCAP	START+9
SHODAT	ENTER+20
START	ENTER+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+47, NEWDT+4
>> AGOPT("VERSION"	ENTER+1*, ENTER+2, ENTER+7, ENTER+8, EXIT+1!, EXITCAP+1!
>> AGSELECT	START+19
DA	START+13, START+43, CLEAR+5, NEWDT+6!, NEWDT+14
DATE	SHODAT~, SHODAT+1
DIC	START+36!, START+38, NEWDT+6!, NEWDT+7
DIC(0	START+37, NEWDT+8
DIE	START+14, START+36!, START+42, START+48, START+51, START+54, NEWDT+6!, NEWDT+13
>> DIK	CLEAR+2*
DIR	ENTER+10!, ENTER+21!, ENTER+25!, EXIT+1!
DIR("A"	ENTER+12, ENTER+23, ENTER+27*
DIR(0	ENTER+11, ENTER+22, ENTER+26*
DIROUT	ENTER+10!, ENTER+14, ENTER+20, ENTER+21!, ENTER+25!, ENTER+29, EXIT+1!
DIRUT	ENTER+10!, ENTER+21!, ENTER+25!, EXIT+1!
DR	START+15, START+44, START+49, START+52, START+55, NEWDT+6!, NEWDT+15
DT	START+8, START+10, START+39, NEWDT~, NEWDT+9
DTOUT	ENTER+10!, ENTER+14, ENTER+20, ENTER+21!, ENTER+25!, ENTER+29, EXIT+1!
DTREC	ENTER+18, ENTER+19, START+8, START+9, START+10, START+11, START+13, EXIT+1!, EXITCAP+1!, NEWDT+12 , NEWDT+17
DUOUT	ENTER+10!, ENTER+14, ENTER+20, ENTER+21!, ENTER+25!, ENTER+29, EXIT+1!
DUZ(2	START+19
>> ENDTIME	START+47*
ERRCODE	EXITCAP+1!
ERRDT	ENTER+16, ENTER+17, ENTER+18, EXIT+1!, CLEAR+3, CLEAR+4*, CLEAR+5
ERRREC	EXITCAP+1!
LASTFIN	ENTER+17, ENTER+19*, EXIT+1!
MYERRS	START+17!, START+18, START+33, START+34
MYVARS	START+17!, START+33
MYVARS("AGPATDFN"	START+32*
MYVARS("DFN"	START+32*
MYVARS("FINDCALL"	START+19*
MYVARS("SELECTION"	START+19*
MYVARS("SITE"	START+19*
PDFN	START+20, START+22, START+23, START+24, START+32, START+34, EXITCAP+1!
PTREC	EXITCAP+1!
>> PTTOTAL	START+20, START+31
>> SKIP	START+20*
STARTIME	NEWDT+2~, NEWDT+4*
>> STOPFLAG	START+3, START+22, START+25, START+57
>> TOTALDFN	START+21*, START+24
U	ENTER+19, ENTER+20, START+21
>> X	START+39, NEWDT+9
Y	ENTER+15, ENTER+20, ENTER+30, SHODAT+1*, SHODAT+2, START+41, START+43, EXIT+1!, NEWDT+11, NEWDT+12 , NEWDT+14
>> ZTDESC	ENTER+31*
ZTIO	ENTER+32*, EXIT+1!
>> ZTQUEUED	START+9, START+11, START+23, START+24, START+35, CLEAR+1
>> ZTRTN	ENTER+31*
ZTSAVE	EXIT+1!
ZTSAVE("AG*"	ENTER+33*
>> ZTSK	ENTER+35, ENTER+36
>> ZTSTOP	START+57*

Customize PDF page

Package: IHS Patient Registration

Routine: AGFULAUD

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: