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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGTXTAPE

Package: IHS Patient Registration

Routine: AGTXTAPE


Information

AGTXTAPE ; IHS/ASDS/EFG - REG EXPORT TAPE ;

Source Information

Source file <AGTXTAPE.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 $$JDT^XBFUNC  ^XBGSAVE  
VA Fileman 2 (,DD)^%DT  ^%DTC  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGTXALL  

Entry Points

Name Comments DBIA/ICR reference
DATE
CLEAR ;EP - Clear past errors that were corrected
KILL ;
ABEND ;
CART

External References

Name Field # of Occurrence
^%DT AGTXTAPE+5, DATE
DD^%DT DATE+3
^%DTC CART
^%ZIS AGTXTAPE+4
$$JDT^XBFUNC DATE+4
^XBGSAVE DATE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?24,"TRANSACTION FILE DOES NOT EXIST"
  • Line Location: AGTXTAPE+3
Function Call: WRITE
  • Prompt: !?24,"MUST RUN TRANSACTION GENERATE."
  • Line Location: AGTXTAPE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: CART+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: CART+0
Function Call: WRITE
  • Prompt: *7,!!,"INVALID DATE."
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!?28,"*** 0th Node Info ***",!!,"Number : ",$P(^AGTXDATA(0),U),!," Name : ",$P(^AGTXDATA(0),U,2),!?9,$P(^AGTXDATA(0),U,7)," records"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !?9,Y
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: " to ",Y,!
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: *7,!!?22,"ABNORMAL END OF REGISTRATION EXPORT."
  • Line Location: ABEND+1
Function Call: WRITE
  • Prompt: !!,XBFLG(1),!!
  • Line Location: ABEND+1
Function Call: WRITE
  • Prompt: !?27,"ENTER <RETURN> TO CONTINUE"
  • Line Location: ABEND+2
Routine Call
  • %ZIS
  • Line Location:
    • AGTXTAPE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" AGTXTAPE+6
^AGPATCH("DEL" CLEAR+6
^AGPATCH("ER" CLEAR+1, CLEAR+2, CLEAR+3
^AGTXDATA(0 AGTXTAPE+3, DATE+1*, DATE+2, DATE+3
^AGTXST - [#9009063] DATE+5*
^AUTTLOC - [#9999999.06] DATE+4
^AUTTSITE(1 DATE+4, DATE+5

Label References

Name Line Occurrences
ABEND AGTXTAPE+3, DATE, DATE+4
CART CART
CLEAR DATE+6
DATE DATE
KILL DATE+7

Naked Globals

Name Field # of Occurrence
^( CLEAR+3!, CLEAR+6!
^(0 DATE+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT AGTXTAPE+5*, DATE*
>> %DT("A" DATE*
AG DATE+5*, KILL+1!
AGCARTNO CART*, DATE+1, DATE+5, KILL+1!
AGDFN CLEAR+3*, CLEAR+4!
AGDTS CLEAR+1*, CLEAR+2, CLEAR+3, CLEAR+4!
AGNODE CLEAR+6*, CLEAR+7!
>> AGOPT(17 CART, DATE, DATE+1
>> AGTXALL DATE+6, KILL+2
>> AGTXSITE DATE+5*
AGZSITE CLEAR+2*, CLEAR+3, CLEAR+4!
DT AGTXTAPE+5*, CART, DATE, DATE+1, DATE+4
DTIME CART, ABEND+2
IO(0 CART
ION AGTXTAPE+4
>> IOP AGTXTAPE+4*
U DATE+1, DATE+2, DATE+3, DATE+4, DATE+5
>> X AGTXTAPE+5*, CART, ABEND+2*
X1 CART*, KILL+1!
X2 CART*, KILL+1!
XBFLG DATE+4, KILL+2!
XBFLG(1 ABEND+1
>> XBFN DATE+4*
XBGL DATE+4*, KILL+1!
>> XBMED DATE+4*
XBNAR KILL+1!
>> XBTLE DATE+4*
>> Y AGTXTAPE+5, CART*, DATE, DATE+1*, DATE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All