Routine: AGTXST

Information

AGTXST ; IHS/ASDS/EFG - UTILITY HANDLER FOR UPDATING TRANSMISSIONS FILE ;

Source file <AGTXST.m>

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIK
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
IHS Patient Registration	3	AGHL7 AGTX0 AGTX4

Name	Comments	DBIA/ICR reference
SET	;EP - set transmission data/status into file
END	;EP -
AGR1	;EP - find date to begin agpatch scan
INIT	;EP -
COM	;EP - set tape OK and othr completion data into transmission file
LOOP

Name	Line Occurrences (* Changed, ! Killed)
^AGTXST - [#9009063]	LOOP, LOOP+1, END+1, INIT+4
^DD(9009063	INIT+4

Name	Field # of Occurrence
>> %	SET+4*
>> AG("T"	SET+5
>> AG("TOT"	SET+3, SET+4
>> AGFDATE	SET+3
AGIEN	LOOP*, END+2!
>> AGIN01	SET+5
>> AGIN06	SET+5
>> AGLDATE	SET+3
>> AGLIEN	LOOP*, LOOP+1, LOOP+2, END+1
>> AGTXSITE	LOOP, LOOP+1, LOOP+2, END+1, SET+2, SET+3, COM+2, COM+3, INIT+1*, INIT+2 , INIT+4
DA	LOOP+2, SET+2!, SET+3, COM+2!, COM+3*
DA(1	LOOP+2, SET+2, SET+3, COM+2, COM+3*
DIC	SET+2!, SET+3, COM+2!, COM+3, INIT+2*
DIC(0	SET+2, COM+2, INIT+2*
>> DIE	SET+3, COM+3
>> DIK	LOOP+2*
DR	SET+2!, SET+3!, SET+4, SET+5, COM+2!, COM+3!
DT	SET+2, COM+2
DUZ(2	INIT+1
U	LOOP+1, END+1
>> X	SET+2, COM+2, INIT+2*
>> Y	SET+3, COM+3, INIT+3