Routine: AGELPHCK

Information

AGELPHCK ; IHS/ASDS/EFG - Check if Registered Policy Holder ;

Source file <AGELPHCK.m>

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR

Package	Total	Caller Graph
IHS Patient Registration	1	AGEL0

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Presently the POLICY HOLDER is NOT known as a REGISTERED PATIENT." Line Location: AGELPHCK+4
Function Call: WRITE	Prompt: ! Line Location: AGELPHCK+5
Function Call: WRITE	Prompt: !!?5,"The Policy Holder is presently linked to " Line Location: REG+1
Function Call: WRITE	Prompt: $P(^DPT(AGELP("PHPAT"),0),U),$S($D(^AUPNPAT(AGELP("PHPAT"),41,DUZ(2),0)):" ["_$P(^(0),U,2)_"]",1:"") Line Location: REG+2
Function Call: WRITE	Prompt: !?5,"in your Patient Registration data base." Line Location: REG+3
Function Call: WRITE	Prompt: ! Line Location: REG+5
Function Call: WRITE	Prompt: ! Line Location: PLK+5
Function Call: WRITE	Prompt: ! Line Location: NAME+0
Routine Call	DIE Line Location: REG+15 PLK+15 NAME+3 NAME+5
Routine Call	DIC Line Location: PLK+2
Routine Call	DIR Line Location: AGELPHCK+9 REG+8 PLK+9

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	REG+2
^DPT - [#2]	AGELPHCK+3, REG+2

Name	Field # of Occurrence
^(0	REG+2

Name	Field # of Occurrence
>> AGEL("YCK"	PLK+4*, PLK+14
>> AGELP("MODE"	REG
>> AGELP("PH"	REG+13, PLK+13, NAME+1
>> AGELP("PHPAT"	AGELPHCK+3, REG+2, REG+16!
>> DA	REG+13, PLK+13, NAME+1*
DIC	PLK!, PLK+1*
DIC(0	PLK+1*
>> DIE	REG+12, PLK+13, NAME+1*
DIR	AGELPHCK+6!, AGELPHCK+10!, REG+4!, REG+9!, PLK+6!, PLK+10!, XIT!
DIR("A"	AGELPHCK+8, REG+6, PLK+8*
DIR("B"	AGELPHCK+7, REG+7, PLK+7*
DIR(0	AGELPHCK+7, REG+7, PLK+7*
DIROUT	XIT!
DIRUT	XIT!
>> DR	REG+14, PLK+14, NAME+2, NAME+4
DTOUT	AGELPHCK+11, REG+10, PLK+11, XIT!
DUOUT	XIT!
DUZ(2	REG+2
U	REG+2
>> Y	AGELPHCK+11, AGELPHCK+12, REG+10, REG+11, PLK+3, PLK+4, PLK+11, PLK+12
>> Y(0	PLK+8