Routine: AG7P2A

Information

AG7P2A ;IHS/SD/EFG - Patient Registration 7.0 Patch 2 CONT. ; [ 06/17/2003 10:49 AM ]

Source file <AG7P2A.m>

Package	Total	Call Graph
IHS Patient Registration	3	$$INSTALLD^AG7P2 ^AGMCDCNT ^AGSETPRT
Kernel	3	$$HTE^XLFDT $$ADD^XPDMENU (BMES,MES)^XPDUTL
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
PRVT	; FIND ANY PRIVATE ELIG MISSING INSURER POINTER
SINGLE(K)	;EP - Get holders of a single key K.
MCD	; FIND MCD MISSING .01 FIELD
TS
MAIL	; Send install mail message.
POST	;EP - From KIDS.
AGFAC	; FEED NEW REGISTRATION PARAMETERS IF BLANK
OPTRES(AGM)	;

Name	Field # of Occurrence
$$INSTALLD^AG7P2	POST+14, POST+19
^AGMCDCNT	POST+10
^AGSETPRT	POST+4
$$HTE^XLFDT	TS
^XMD	MAIL+8
$$ADD^XPDMENU	OPTRES+5, OPTRES+7
BMES^XPDUTL	POST+2, POST+15, POST+17, POST+23, POST+27, OPTRES+1, OPTRES+3, OPTRES+5, OPTRES+6, OPTRES+7 , OPTRES+8
MES^XPDUTL	TS

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	AGFAC+5, AGFAC+6, AGFAC+7*
^AGFAC("B"	AGFAC+2, AGFAC+4
^AUPNMCD - [#9000004]	MCD+2, MCD+3, MCD+4!
^AUPNPRVT - [#9000006]	PRVT+2, PRVT+4, PRVT+5, PRVT+6!
^TMP("AG7P2MS"	MAIL+2!, MAIL+3, MAIL+5, MAIL+9!
^XTMP("AG7P2"	OPTRES+3, OPTRES+5
^XTMP("XPDI"	MAIL+5
^XUSEC(	SINGLE+3, SINGLE+4

Name	Field # of Occurrence
^(	MAIL+5, OPTRES+5

Name	Field # of Occurrence
>> %	MAIL+4, MAIL+5, MAIL+7*
AG	OPTRES+2~, OPTRES+4, OPTRES+5
AGFAC	AGFAC+1, AGFAC+2, AGFAC+4, AGFAC+8!
AGFACPTR	AGFAC+3, AGFAC+4, AGFAC+5, AGFAC+6, AGFAC+7, AGFAC+8!
AGI	OPTRES+2~, OPTRES+5*
AGM	OPTRES~, OPTRES+1, OPTRES+3, OPTRES+5
>> D1	PRVT+3, PRVT+4, PRVT+5, PRVT+6
DIFROM	MAIL+1~
DUZ	MAIL+6
K	SINGLE~, SINGLE+3, SINGLE+4
>> MCDREC	MCD+3*, MCD+4
>> RECNO	PRVT+1, PRVT+2, PRVT+4, PRVT+5, PRVT+6, MCD+1, MCD+2, MCD+3, MCD+4
U	OPTRES+5, AGFAC+5, AGFAC+6, AGFAC+7, PRVT+5, MCD+4
XMDUZ	MAIL+1~, MAIL+6*
XMSUB	MAIL+1~, MAIL+6*
XMTEXT	MAIL+1~, MAIL+6*
XMY	MAIL+1~
XMY(	MAIL+6, SINGLE+4
XMY(1	MAIL+6*
>> XPDA	MAIL+5
>> XPDBLD	MAIL+5
Y	SINGLE+1~, SINGLE+2, SINGLE+4

Name	Field # of Occurrence
$T(	MAIL+6