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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGTX

Package: IHS Patient Registration

Routine: AGTX


Information

AGTX ; IHS/ASDS/EFG - EXPORT REG DATA ;

Source Information

Source file <AGTX.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Patient Registration 6 (READ,VIDEO,YN)^AG  ^AGTX0  S2A^AGTX1  (ENTRETRN,JOBEND)^AGTX4  ^AGVAR  $$S^AGVDF  
VA Fileman 4 ^%DT  ^DIC  DQ^DICQ  ^DIR  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGTX4  AGTXERP  

Entry Points

Name Comments DBIA/ICR reference
RESET ;EP -
START
S2
L11A
HEADER ;EP -
REGEN ;EP - (from option) - Regenerate old tape.
TEST ;EP - Test a transmission with a small date range

External References

Name Field # of Occurrence
^%DT TEST+1, TEST+2
^%ZIS START+2
READ^AG L11A
VIDEO^AG START+2
YN^AG L11A
^AGTX0 L11A+1
S2A^AGTX1 S2+1
ENTRETRN^AGTX4 REGEN+2
JOBEND^AGTX4 S2
^AGVAR HEADER+1
$$S^AGVDF HEADER+2
^DIC REGEN+3
DQ^DICQ REGEN+3
^DIR TEST+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"*",?27,"EXPORT REGISTRATION DATA",?78,"*",!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?10,"SITE NAME IS: ",$P(^DIC(4,AGTXSITE,0),U)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"The following are ""Parent Facilites for Registration""."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"ONLY their Demographic and HRN Changes, Deletes, and Merges",!,"will be sent to NPIRS :",!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,?10,$P(^DIC(4,AGPSITE,0),"^")
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!,"DO YOU WANT TO DISPLAY OUTPUT RECORDS ON SCREEN (Y/N) Y// "
  • Line Location: L11A+0
Function Call: WRITE
  • Prompt: !,*7,"GOT TO RESET^AGTX IN ERROR",!
  • Line Location: RESET+2
Function Call: WRITE
  • Prompt: !,*7,"No export records for this facility.",!
  • Line Location: REGEN+2
Function Call: WRITE
  • Prompt: !,AGLO," = ",@AGLO
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !,"EXITING WILL KILL AG(""REGEN"")",!
  • Line Location: TEST+8
Routine Call
  • DIC
  • Line Location:
    • REGEN+3
Routine Call
  • DIR
  • Line Location:
    • TEST+9
Routine Call
  • %ZIS
  • Line Location:
    • START+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AGTXST - [#9009063] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGFAC("AC" START+7
^AGTXST - [#9009063] RESET+4, RESET+5!, RESET+6*, REGEN+2
^AUTTSITE(1 START+1, REGEN+1
^DIC(4 - [#4] START+4, START+7

Label References

Name Line Occurrences
AGTX REGEN+5, TEST+10
HEADER START+2
L11A L11A
START AGTX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+3*
>> %DT TEST+1*, TEST+2*
>> %DT("A" TEST+1*, TEST+2*
>> %DT(0 TEST+2*, TEST+3!
>> AG("REGEN" REGEN+4*, TEST+4*, TEST+9!
>> AG("TOT" START+2*, START+3*
>> AG("X" RESET+4*, RESET+5, RESET+6*, RESET+7!
>> AGBAD16 START+2*
>> AGBAD26 START+2*
>> AGBAD51 START+2*
AGBDT TEST+1*, TEST+4, TEST+5*, TEST+6, TEST+7!
>> AGDT TEST+6*
AGEDT TEST+2*, TEST+4, TEST+5*, TEST+6, TEST+7!
>> AGLDATE S2*
>> AGLO TEST+6*
>> AGOPT HEADER+1
>> AGOUTFLG L11A*
>> AGPSITE START+7*
>> AGRCT S2*
>> AGROUT START+2*
>> AGRR1 S2
>> AGTXSITE START+1*, START+4, RESET+4, RESET+5, RESET+6, REGEN+1*, REGEN+2
D REGEN+3*!
>> DFOUT L11A
DIC REGEN+3*!
DIC(0 REGEN+3*
>> DIR(0 TEST+9*
DTIME AGTX+2*
>> DTOUT L11A
>> DUOUT L11A
DUZ START*
DZ REGEN+3*!
>> I HEADER+2*, HEADER+3*
IO(0 HEADER+2
ION START+2
>> IOP START+2*
U START+4, RESET+4, RESET+6
>> X TEST+9
>> XY S2
>> XYER S2
>> Y L11A*, REGEN+3, TEST+1, TEST+2
>> Y(0 REGEN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All