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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGACXREF

Package: IHS Patient Registration

Routine: AGACXREF


Information

AGACXREF ; IHS/ASDS/EFG - DELETE AND REBUILD THE AC (CURRENT COMMUNITY) X-REF, STUFF CUR COMM FIELD ;

Source Information

Source file <AGACXREF.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 2 WAIT^DICD  ^DIR  
IHS Patient Registration 1 $$S^AGVDF  

Entry Points

Name Comments DBIA/ICR reference
AE
DEV ;
QUE ;
ENTRY ;EP - TaskMan.
C1 ;
END

External References

Name Field # of Occurrence
^%ZIS ENTRY+1
^%ZISC DEV+7
^%ZTLOAD DEV+7
KILL^%ZTLOAD END+1
$$S^AGVDF AGACXREF+3
WAIT^DICD ENTRY+1
^DIR AGACXREF+20, QUE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!
  • Line Location: AGACXREF+3
Function Call: WRITE
  • Prompt: ?30,"*** AGACXREF ***",!
  • Line Location: AGACXREF+4
Function Call: WRITE
  • Prompt: ?5,"=== CURRENT COMMUNITY (AC) and TRIBE OF MEMBERSHIP indices ==="
  • Line Location: AGACXREF+5
Function Call: WRITE
  • Prompt: *7,!!,"Because of a bug in IHS REGISTRATION v 4.22, the 'AC' cross-reference",!
  • Line Location: AGACXREF+6
Function Call: WRITE
  • Prompt: "of the Patient file was set only when a patient was edited, not when the",!
  • Line Location: AGACXREF+7
Function Call: WRITE
  • Prompt: "patient was first entered."
  • Line Location: AGACXREF+8
Function Call: WRITE
  • Prompt: !!,"This routine will kill and rebuild the 'AC' (Current Community) and 'AE'",!
  • Line Location: AGACXREF+9
Function Call: WRITE
  • Prompt: "(Tribe of Membership) cross-references on the PATIENT File (^AUPNPAT).",!!
  • Line Location: AGACXREF+10
Function Call: WRITE
  • Prompt: "It will also reset the Current Community field from LAST(PREVIOUS COMMUNITY)."
  • Line Location: AGACXREF+11
Function Call: WRITE
  • Prompt: !!,"It should take approximately ",$J(1244/36277*+$P(^AUPNPAT(0),U,4)/60,3,1)," minutes to complete",!
  • Line Location: AGACXREF+12
Function Call: WRITE
  • Prompt: "on your ",+$P(^AUPNPAT(0),U,4)," patients.",!!
  • Line Location: AGACXREF+13
Function Call: WRITE
  • Prompt: "Q'ing to TaskMan is possible."
  • Line Location: AGACXREF+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: AGACXREF+19
Function Call: WRITE
  • Prompt: *7,!!,"Please 'D ^AGACXREF' at your convenience."
  • Line Location: AGACXREF+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !!,"Task Number = ",ZTSK,!!,"Press RETURN..."
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRY+1
Function Call: WRITE
  • Prompt: !,+$P(^AUPNPAT(0),U,4)," patients.",!
  • Line Location: ENTRY+1
Routine Call
  • DIR
  • Line Location:
    • AGACXREF+20
    • QUE+6
Routine Call
  • %ZIS
  • Line Location:
    • ENTRY+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+1
^AUPNPAT - [#9000001] ENTRY+2, C1+1, C1+2, C1+3, C1+6*, AE
^AUPNPAT("AC" ENTRY+2!, C1+6*
^AUPNPAT("AE" AE*
^AUPNPAT(0 AGACXREF+12, AGACXREF+13, ENTRY+1
^AUTTCOM - [#9999999.05] C1+4, C1+5
^AUTTLOC - [#9999999.06] DEV+5

Label References

Name Line Occurrences
AE ENTRY+2
C1 ENTRY+2
END QUE+7
ENTRY QUE+8
QUE DEV+7

Naked Globals

Name Field # of Occurrence
^("AE" ENTRY+2!
^(11 AE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG DEV+7!
AGCC END!, C1+1*, C1+3
AGCCNAME END!, C1+5*, C1+6
AGCCPTR END!, C1+3*, C1+4, C1+5
AGCCSV END!, C1+1*, C1+2
AGIO DEV+7!
AGQIO DEV+7!
DFN ENTRY+2*, END!, C1+1, C1+2, C1+3, C1+6, AE
DFOUT AGACXREF+16!, QUE+1!
DIR AGACXREF+16!, QUE+1!
DIR("A" AGACXREF+18*, QUE+4*
DIR("B" QUE+5*
DIR(0 AGACXREF+17*, QUE+2*
DIROUT AGACXREF+16!, QUE+1!
DIRUT AGACXREF+16!, QUE+1!
DLOUT AGACXREF+16!, QUE+1!
DQOUT AGACXREF+16!, QUE+1!
DTIME DEV+7
DTOUT AGACXREF+16!, QUE+1!, QUE+7
DUOUT AGACXREF+16!, QUE+1!
DUZ(2 DEV+5
DX ENTRY+1*, END!
DY ENTRY+1*, END!
G DEV+7!
ION ENTRY+1
>> IOP ENTRY+1*
U AGACXREF+12, AGACXREF+13, DEV+5, ENTRY+1, C1+3, C1+5, C1+6, AE
X END!
XY END!
Y AGACXREF+21, QUE+7, QUE+8, DEV+3, DEV+7*, END!
ZTDESC DEV+5*, DEV+7!
ZTIO DEV+4*, DEV+7!
>> ZTQUEUED ENTRY+1, END+1
ZTRTN DEV+2*, DEV+7!
ZTSAVE DEV+6*, DEV+7!
ZTSK DEV+7!
ZTUCI DEV+3*, DEV+7!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All