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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGTXPERK

Package: IHS Patient Registration

Routine: AGTXPERK


Information

AGTXPERK ; IHS/ASDS/EFG - SCAN AND KILL PAST TX ERRORS ;

Source Information

Source file <AGTXPERK.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Patient Registration 3 VAR^AGBADATA  ^AGDATCK  $$S^AGVDF  
VA Fileman 2 (,DD)^%DT  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

Name Comments DBIA/ICR reference
SCAN ;scan all past errors
S ;SELECT DATES
EXIT ;CLEAN UP
DDISP ;display selection
PRINT ;Print Completion
DT2
DT1
ERDISP ;display errors selected

External References

Name Field # of Occurrence
^%DT DT1, DT2
DD^%DT DDISP+1, DDISP+2
VAR^AGBADATA DT2+5, ERDISP+1
^AGDATCK SCAN+4
$$S^AGVDF PRINT+5
^DIR DT2+10, DT2+15, PRINT+4
^XBDBQUE DT2+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You will be able to select",!?5,"a range of dates",!?5,"a range of errors",!,"to be deleted.",!!
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !,"Select Records-Errors to be deleted.",!,"Records with the errors selected will be removed from transmissions.",!!
  • Line Location: DT2+6
Function Call: WRITE
  • Prompt: !,AGI,?5,AG(AGI)
  • Line Location: DT2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DT2+9
Function Call: WRITE
  • Prompt: !,"NO ERRORS SELECTED - quiting",!
  • Line Location: DT2+11
Function Call: WRITE
  • Prompt: !!,"Start Date :",?15
  • Line Location: DDISP+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: DDISP+1
Function Call: WRITE
  • Prompt: !,"End Date :",?15
  • Line Location: DDISP+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: DDISP+2
Function Call: WRITE
  • Prompt: !?5,AGE,?10,AG(AGE)
  • Line Location: ERDISP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ERDISP+3
Function Call: WRITE
  • Prompt: !,"PAST ERRORS REMOVED REPORT",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,AGCNT,?10,"Transmission sends deleted",!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: PRINT+5
Routine Call
  • DIR
  • Line Location:
    • DT2+10
    • DT2+15
    • PRINT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGPATCH("ER" SCAN+2, SCAN+3!, SCAN+7!
^DPT - [#2] SCAN+3

Label References

Name Line Occurrences
DDISP DT2+4, DT2+13, PRINT+2
DT1 DT2+1
ERDISP DT2+14, PRINT+2
EXIT DT1+1, DT2+11
S DT2+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DT1*, DT2*
>> %DT("A" DT1*, DT2*
>> %DT(0 DT1*, DT2*, DT2+3!
AG DT2+5!, ERDISP+1!, SCAN+4!, EXIT+1*, EXIT+2!
AG( DT2+7, ERDISP+2
AG("ER" SCAN+5
>> AGCNT SCAN+1*, SCAN+6*, PRINT+3
>> AGDFN SCAN+2*, SCAN+3, SCAN+4, SCAN+7
>> AGDTS SCAN+1*, SCAN+2*, SCAN+3, SCAN+7
>> AGE ERDISP+2*
>> AGEDT DT2+2*, DDISP+2, SCAN+1*, SCAN+2
>> AGER DT2+11*, DT2+12, ERDISP+2
>> AGER( DT2+12*, SCAN+5
>> AGERSUB DT2+12*
>> AGI DT2+7*, DT2+8*, DT2+10, DT2+12*, ERDISP+2*, SCAN+5*
>> AGK SCAN+5*
>> AGSDT DT1+2*, DT2, DDISP+1, SCAN+1
>> AGSITE SCAN+2*, SCAN+3, SCAN+7
>> DFN SCAN+4*
DIR DT2+10!, DT2+15!, PRINT+4!
DIR("A" DT2+10*, DT2+15*
DIR("B" DT2+15*
DIR(0 DT2+10*, DT2+15*, PRINT+4*
IO PRINT+4
IO(0 PRINT+4
>> XBNS DT2+17*
>> XBRC DT2+17*
>> XBRP DT2+17*
>> XBRX DT2+17*
>> Y DT1+1, DT1+2, DT2+1, DT2+2, DT2+11, DT2+16, DDISP+1*, DDISP+2*
>> ZTQUEUED PRINT+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All