Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGFULAUD

Package: IHS Patient Registration

Routine: AGFULAUD


Information

AGFULAUD ;IHS/ASDS/TPF - FULL PATIENT FILE AUDIT USING EDIT CHECK ERRORS/WARNINGS CALLS 6/8/2004 9:49:39 AM

Source Information

Source file <AGFULAUD.m>

Call Graph

Call Graph Total: 11

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All