Routine: AUMXPORT

Information

AUMXPORT ;IHS/OIT/NKD - MARK PT'S FOR REG EXPORT 05/23/2012 ;

Source Information

Source file <AUMXPORT.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC WAIT^DICD ^DIE $$GET1^DIQ
IHS Patient	1	$$COMMRES^AUPNPAT

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Table Maintenance	7	AUM41011 AUM41031 AUM61021 AUM91151 AUM95032 AUMUPD3 AUMUPDT
Phoenix Devel Center	1	AZXAPTRG

Entry Points

Name	Comments	DBIA/ICR reference
TRIBMOD(AUMRTN)
COUNT	; Return the number of patients marked for export because of change. ; All EPs come here. ; T is what gets returned, regardless of entry point.
CNTYMOD(AUMRTN)
COM(DFN,AUMCC)	; Is Current Res for DFN the same as the Community changed?
LOCMOD(FROM,TO)	;EP - SET ^AGPATCH for Location Code Changes. ; See Community Code documentation.
SETUP	;
ALL()	; W $$ALL^AUMXPORT() to mark all active Pts for export.
INAC(DFN,D)	; Pt is inactive if inactive date, or status is Deleted or Inactive.
COMMMOD(FROM,TO)	;EP - SET ^AGPATCH for Community Code Changes.
RESMOD(AUMRTN)
CLINMOD(AUMRTN)
COMNAM(AUMCNAME,AUMSCC)	;Community NAME changed. Update CURRENT COMMUNITY.
ACT(DFN)	; Pt is Active if at least one ORF HRN is not Inactive AND not Deleted.

External References

Name	Field # of Occurrence
NOW^%DTC	SETUP+8
$$COMMRES^AUPNPAT	COM+4
WAIT^DICD	SETUP+5
^DIE	COMNAM+15
$$GET1^DIQ	COMNAM+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Checking Patients for Export..." Line Location: SETUP+4
Function Call: WRITE	Prompt: !,"Checking Patients for Export...",!,"NOTE: Inactive Patients are no longer exported." Line Location: SETUP+11
Function Call: WRITE	Prompt: S Line Location: COUNT+7
Function Call: WRITE	Prompt: $$ALL^AUMXPORT() Line Location: ALL+0
Function Call: WRITE	Prompt: "On IEN ",DFN," of ",L," in ^AUPNPAT(..." Line Location: ALL+10
Routine Call	DIE Line Location: COMNAM+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC("AC"	ACT+6
^AGPATCH(	COMMMOD+35, COMMMOD+45, LOCMOD+17, COUNT+4, COUNT+7, ALL+9
^AUPNPAT - [#9000001]	ALL+6, ALL+9, INAC+2, INAC+3, INAC+4, ACT+5, ACT+7, ACT+8
^AUPNPAT("AC"	COMMMOD+30, COMMMOD+40, COMNAM+11
^AUPNPAT(0	ALL+3
^AUTTLOC("C"	LOCMOD+11
^DPT - [#2]	ALL+7
^TMP("AUMXPORT"	LOCMOD+7!, LOCMOD+12*, LOCMOD+17, LOCMOD+19!

Label References

Name	Line Occurrences
$$ACT	COMMMOD+35, COMMMOD+45
$$COM	COMMMOD+35, COMMMOD+45, COMNAM+13
$$INAC	LOCMOD+17, ALL+9
COMNAM	COMMMOD+28, COMMMOD+47
COUNT	COMMMOD+48, LOCMOD+21, CLINMOD, CNTYMOD, RESMOD, TRIBMOD, ALL+15
SETUP	COMMMOD+24, LOCMOD+5, CLINMOD, CNTYMOD, RESMOD, TRIBMOD, ALL+2

Naked Globals

Name	Field # of Occurrence
^(0	ACT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SETUP+9, LOCMOD+14, LOCMOD+15, LOCMOD+16, LOCMOD+17
A	ACT+2~, ACT+4, ACT+5, ACT+9, ACT+11
AUMCC	COM~, COM+4
AUMCNAME	COMNAM~, COMNAM+11
AUMRTN	CLINMOD~, CNTYMOD~, RESMOD~, TRIBMOD~
AUMSCC	COMNAM~, COMNAM+13
D	COMMMOD+14~, LOCMOD+3~, LOCMOD+11, LOCMOD+12, COUNT+3, COUNT+4, COUNT+7, ALL+1~, ALL+8, ALL+9* , INAC~, INAC+2, INAC+3, INAC+4, COM+2~, ACT+2~, ACT+4, ACT+5, ACT+6, ACT+7 , ACT+8, ACT+9, COMNAM+8~
DA	COMNAM+8~, COMNAM+10, COMNAM+11, COMNAM+13, COMNAM+14
DFN	COMMMOD+14~, COMMMOD+29, COMMMOD+30, COMMMOD+35, COMMMOD+39, COMMMOD+40, COMMMOD+45, LOCMOD+3~, COUNT+6, COUNT+7 , ALL+1~, ALL+3, ALL+6, ALL+7, ALL+9, ALL+10, INAC~, INAC+2, INAC+3, INAC+4 , COM~, COM+4, ACT~, ACT+5, ACT+7, ACT+8
DIE	COMNAM+8~, COMNAM+10*
DR	COMNAM+8~, COMNAM+14*
>> DX	ALL+5, ALL+14
>> DY	ALL+5, ALL+14
FROM	COMMMOD~, COMMMOD+28, COMMMOD+39, COMMMOD+47, LOCMOD~, LOCMOD+10, COM+2~, COMNAM+8~
>> IOXY	ALL+10
L	COMMMOD+14~, COMMMOD+29, COMMMOD+30, COMMMOD+39, COMMMOD+40, LOCMOD+3~, LOCMOD+11, ALL+1~, ALL+3, ALL+10 , COM+2~, COMNAM+8~
N	SETUP+9*, COMMMOD+14~, COMMMOD+35, COMMMOD+45, LOCMOD+3~, LOCMOD+17, COUNT+4, COUNT+7, ALL+1~, ALL+9 , ALL+13, COM+2~, COMNAM+8~
T	COMMMOD+14~, LOCMOD+3~, COUNT+3, COUNT+7, COUNT+8, ALL+1~, COM+2~, COMNAM+8~
TO	COMMMOD~, COMMMOD+28, COMMMOD+29, COMMMOD+35, COMMMOD+39, COMMMOD+45, COMMMOD+47, LOCMOD~, LOCMOD+10, LOCMOD+11 , COM+2~, COMNAM+8~
U	COMMMOD+28, COMMMOD+29, COMMMOD+35, COMMMOD+39, COMMMOD+45, COMMMOD+47, LOCMOD+10, LOCMOD+11, ALL+3, INAC+2 , INAC+3, INAC+4, ACT+7, ACT+8, ACT+9
W	SETUP+10, COMMMOD+14~, COMMMOD+26, COMMMOD+31, COMMMOD+41, LOCMOD+3~, LOCMOD+9, LOCMOD+16, COUNT+5, COUNT+7 , ALL+1~, ALL+14, COM+2~, COMNAM+8~
>> ZTQUEUED	SETUP+2, ALL+4, ALL+10, ALL+13, ALL+14, COMNAM+12

Customize PDF page

Package: Table Maintenance

Routine: AUMXPORT

Call Graph Total: 5

Caller Graph Total: 8