Routine: AGNDXP

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	DD^%DT $$GET1^DIQ
IHS Patient Registration	1	(READ,YN)^AG

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC

VA Fileman

DD^%DT $$GET1^DIQ

IHS Patient Registration

(READ,YN)^AG

Package	Total	Caller Graph
IHS Patient Registration	4	AGNDX1 AGNDX2 AGNDX3 AGNDX4

Package

Total

Caller Graph

IHS Patient Registration

AGNDX1 AGNDX2 AGNDX3 AGNDX4

Name	Field # of Occurrence
DD^%DT	NMCH+2, NMCH+14, NMCH+15
^%ZIS	TEST+2
^%ZISC	TEST+3
READ^AG	ALIAS+1, TEST
YN^AG	ALIAS+2, TEST+1
$$GET1^DIQ	NMCH+5, NMCH+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AGNDXP+6
Function Call: WRITE	Prompt: $P(^DPT(DFN,.01,AG("ALNO"),0),U),"ALIAS",! Line Location: ALIASLP+1
Function Call: WRITE	Prompt: ! Line Location: ALIASLP+2
Function Call: WRITE	Prompt: $P(AGDPT,U),?45-$L($P(AG41,U,2)),$P(AG41,U,2) Line Location: NMCH+1
Function Call: WRITE	Prompt: AGDOB,?45-$L(AGSEX)\2,AGSEX,?45-$L(AGSSN),AGSSN Line Location: NMCH+8
Function Call: WRITE	Prompt: AGSTREET Line Location: NMCH+10
Function Call: WRITE	Prompt: ?45-$L(X),X Line Location: NMCH+10
Function Call: WRITE	Prompt: !,AGADDR Line Location: NMCH+11
Function Call: WRITE	Prompt: ?45-$L(X),X Line Location: NMCH+11
Function Call: WRITE	Prompt: " FATHER: ",$P(^(.24),U),!,"MOTHER (MDN): ",$P(^(.24),U,3) Line Location: NMCH+13
Function Call: WRITE	Prompt: "CARD PRINTED: ",Y Line Location: NMCH+14
Function Call: WRITE	Prompt: !,"CHART ",$S($P(^(0),U)["ARCH":"ARCHIVED: ",1:"INACTIVATED: ") Line Location: NMCH+15
Function Call: WRITE	Prompt: Y Line Location: NMCH+15
Function Call: WRITE	Prompt: ! Line Location: LINE+0
Function Call: WRITE	Prompt: "-" Line Location: LINE+0
Function Call: WRITE	Prompt: ! Line Location: LINE+1
Function Call: WRITE	Prompt: !!!,"Do you want to print index cards for ALIASES also? (Y/N) Y// " Line Location: ALIAS+1
Function Call: WRITE	Prompt: !!,"An index card will be printed for the patients NAME and each ALIAS",!,"if you answer ""Y"" " Line Location: ALIAS+1
Function Call: WRITE	Prompt: !!!,"DO YOU WANT TO PRINT A TEST LABEL? (Y/N) N// " Line Location: TEST+0
Function Call: WRITE	Prompt: !!,"A sample label will be printed so that you",!,"may allign your labels on the printer." Line Location: TEST+0
Function Call: WRITE	Prompt: "TESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTXX",! Line Location: TEST+2
Function Call: WRITE	Prompt: !!!!!!!!!!!!!!! Line Location: TEST+3
Routine Call	%ZIS Line Location: TEST+2

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	AGNDXP+5, NMCH
^AUTTDIS - [#9999999.02]	NMCH+15
^DIC(5 - [#5]	NMCH+9
^DPT - [#2]	AGNDXP+5, ALIASLP, ALIASLP+1, NMCH, NMCH+9, NMCH+10, NMCH+11, NMCH+13

Name	Line Occurrences
ALIAS	ALIAS+1, ALIAS+2
ALIASLP	ALIASLP, ALIASLP+4
END	AGNDXP+5, AGNDXP+7, ALIASLP
LINE	NMCH+1, NMCH+8, NMCH+12, NMCH+13
NMCH	AGNDXP+6, ALIASLP+2
NMCHEND	NMCH+14
TEST	TEST, TEST+1, TEST+4

Name	Field # of Occurrence
^(	NMCH+9, NMCH+10, NMCH+11, NMCH+13
^(0	NMCH+9, NMCH+15

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	NMCH+9*, END!
>> AG("ALNO"	AGNDXP+8, ALIASLP, ALIASLP+1
>> AG("I"	AGNDXP+6, ALIASLP+2, LINE*
AG41	NMCH*, NMCH+1, NMCH+14, NMCH+15, END!
AGADDR	NMCH+9*, NMCH+11, END!
AGALIAS	AGNDXP+7, ALIAS+3!*
AGDOB	NMCH+2*, NMCH+8, END!
AGDPT	NMCH*, NMCH+1, NMCH+2, END!
AGLN	AGNDXP+4, AGNDXP+6, AGNDXP+8, ALIASLP+1, ALIASLP+2, ALIASLP+3, NMCH+13, NMCH+15, END!, LINE+2*
AGSEX	NMCH+5*, NMCH+8, END!
AGSSN	NMCH+7*, NMCH+8, END!
AGSTREET	NMCH+9*, NMCH+10, END!
>> DFN	AGNDXP+5, ALIASLP, ALIASLP+1, NMCH, NMCH+5, NMCH+7, NMCH+9, NMCH+10, NMCH+11, NMCH+13
>> DFOUT	ALIAS+2, TEST+1
>> DQOUT	ALIAS+1, TEST
DT	NMCH+14
>> DTOUT	ALIAS+2, TEST+1
>> DUOUT	ALIAS+2, TEST+1
DUZ(2	AGNDXP+5, NMCH
>> I	TEST+2*
IO	TEST+2
>> POP	TEST+2
U	ALIASLP, ALIASLP+1, NMCH+1, NMCH+2, NMCH+9, NMCH+10, NMCH+11, NMCH+13, NMCH+14, NMCH+15
X	NMCH+10, NMCH+11, END!
>> Y	NMCH+2, NMCH+14, NMCH+15, ALIAS+1, ALIAS+2, ALIAS+3, TEST*, TEST+1

Customize PDF page

Package: IHS Patient Registration

Routine: AGNDXP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: