Routine: AGED

Information

AGED ; IHS/ASDS/EFG - EDITOR MAIN ROUTINE ; MAR 19, 2010

Source file <AGED.m>

Package	Total	Call Graph
IHS Patient Registration	4	(CHKNPP,CHKRHI)^AG UPDATE1^AGED ($$DTEST,PROGVIEW)^AGUTILS $$S^AGVDF
VA Fileman	3	DD^%DT NOW^%DTC ^DIE
IHS VA Utilities	1	^XBNEW
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
IHS Patient Registration	49	AGADDREG AGAPIPAT AGBICEDZ AGED AGED1 AGED10 AGED10A AGED11 AGED11A AGED12 AGED13 AGED2 AGED3 AGED4 AGED42 AGED4A1 AGED4B AGED4PD AGED5 AGED6 AGED62 AGED6PD AGED7A AGED7B AGED8 AGED9 AGEDBEA AGEDBEB AGEDBEC AGEDBED AGEDBEE AGEDBEF AGEDBEG AGEDBEH AGEDBEI AGEDGUAR AGEDMCD AGEDPRV AGEDPRVB AGEDPRVP AGEDTPL AGEDWC AGEL3 AGEL5 AGELUP2 AGELUP3 AGELUP7 AGPHADDR AGSEE7
PCC New Encounter Form	1	VENPCCD
Patient Care Component	1	APCDEA3

Name	Comments	DBIA/ICR reference
ZMFI	;
10	;;30;Other Patient Data
UPDATE1(AGSITE,AGZDFN,AGPTPG,AGGDA)
SCRN	;;Label DY^Label DX^File Number^Field;;Data Format for drawing EDIT screens.
11	;;0;
UPDATE	;PEP - CALLED FROM PCC TO UPDATE AGPATCH FILE
1	;;0;
3	;;24;Emergency Contact/Next of Kin
2	;;21;Religion/Tribal Data/Employment
5	;;0;
XBDIE	;NESTED DIE
7	;;26;Death Info/Other Names
6	;;28;Veteran's Information
9	;;23;CHS Eligibility & Document Summary
END	;
8	;;0;
BICFLDS	;;35;BIC Fields
4	;;30;Medical Sequencing

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: AGED+4
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: AGED+6
Function Call: WRITE	Prompt: " (page ",+AG("PG"),")" Line Location: AGED+8
Function Call: WRITE	Prompt: ?78-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: AGED+9
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: AGED+12
Function Call: WRITE	Prompt: !,AGPAT Line Location: AGED+15
Function Call: WRITE	Prompt: !,AGPAT Line Location: AGED+17
Function Call: WRITE	Prompt: !,$$S^AGVDF("RVN"),AGPAT,$$S^AGVDF("BLN")," (RHI)",$$S^AGVDF("BLF"),$$S^AGVDF("RVF") Line Location: AGED+19
Function Call: WRITE	Prompt: ?27,$$DTEST^AGUTILS(DFN) Line Location: AGED+21
Function Call: WRITE	Prompt: ?55,"HRN:",AGCHRT Line Location: AGED+22
Function Call: WRITE	Prompt: ?66,$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PEND. VERIF",1:"NONE") Line Location: AGED+26
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: AGED+27
Function Call: WRITE	Prompt: !?$P($T(@AG("PG")),";",3),$P($T(@AG("PG")),";",4) Line Location: AGED+30
Function Call: WRITE	Prompt: !?30,"SUMMARY COVERAGE" Line Location: AGED+33
Function Call: WRITE	Prompt: !?78-$L(CATHD)/2,CATHD Line Location: AGED+35
Routine Call	%ZIS Line Location: AGED+3
Routine Call	DIE Line Location: ZMFI+9 ZMFI+13

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	XBDIE+1, ZMFI+3
^AUPNPAT - [#9000001]	AGED+25, ZMFI+7*
^AUTTSITE(1	ZMFI+2
^DIC(4 - [#4]	AGED+9
^DPT - [#2]	AGED+13
^XTMP("AGHL7"	ZMFI+18*
^XTMP("AGHL7AG"	ZMFI+19*

Name	Field # of Occurrence
>> %	UPDATE1+4
>> AG("ED"	END+1!
>> AG("NOUPDATE"	UPDATE+1
>> AG("PG"	AGED+8, AGED+23, AGED+28, AGED+29, AGED+31, AGED+34
>> AGCHRT	AGED+22
AGDTS	END+1!, UPDATE1+4*, XBDIE+1, ZMFI+3
>> AGELSTS	AGED+25*, AGED+26
AGGDA	UPDATE1~, ZMFI+3
>> AGLINE("-"	AGED+10*
>> AGLINE("EQ"	AGED+11*, AGED+12, AGED+27
>> AGPAT	AGED+13*, AGED+15, AGED+17, AGED+19
AGPTPG	UPDATE1~, UPDATE1+2!, ZMFI+2, ZMFI+3, ZMFI+4!, ZMFI+20!
>> AGSEENLY	AGED+6
AGSITE	UPDATE1~, XBDIE+1, ZMFI+3
>> AGUPDT	ZMFI+16*
AGZDFN	UPDATE1~, UPDATE1+2!, XBDIE+1, ZMFI+3, ZMFI+7, ZMFI+8, ZMFI+12, ZMFI+20!
>> APMFVAR	UPDATE1+1
>> CATHD	AGED+31, AGED+34, AGED+35
>> DA	ZMFI+8, ZMFI+12, ZMFI+18, ZMFI+19
>> DFN	AGED+13, AGED+21, AGED+25, UPDATE+2
DIE	END+1!, ZMFI+5, ZMFI+10
>> DIU(0	UPDATE1+1
DR	END+1!, ZMFI+6, ZMFI+11
DT	ZMFI+14
DUZ	AGED+5, UPDATE1+1, ZMFI+7
DUZ(2	AGED+9, UPDATE+2, ZMFI+18, ZMFI+19
IOF	AGED+3
>> RHIFLAG	AGED+15, AGED+16, AGED+17, AGED+18, AGED+19
>> SEQHD	AGED+8
U	AGED+9, AGED+13, AGED+25, ZMFI+2, ZMFI+7
>> Y	ZMFI+14*, ZMFI+16