Routine: AGACALV

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Patient	1	($$DEC,$$ENC)^AUPNPAT
IHS Patient Registration	1	^AGACALV
Kernel	1	($$FMTE,$$FMTH,$$HTE)^XLFDT
Toolkit	1	(CNV,DEC)^XTBASE

Package	Total	Caller Graph
IHS Patient Registration	2	AGACAL AGACALV

Entry Points

Name	Comments	DBIA/ICR reference
P3(AGREC,AGPID)	;EP - CHECK PATIENT
EN	;EP
PROMPT	;ENTER TO CONTINUE
UIDD(AGUID)	;EP - DECODE ENCRYPTED USER/DT CODE
ENC(AGUSER,AGDT,AGDFN,AGREC)	;EP - CREATE UID
UIDE(AGUSER,AGDT)	;EP - CREATE ENCRYPTED USER/DT CODE
DEC(AGSTR)	;EP - DECODE UID
P2(AGREC,AGUID)	;EP - CHECK USER/DT
P1(AGREC)	;EP - CHECK RECORD NUMBER
MAIN	;MAIN PROCESSING
HDR	;HEADER TEXT

External References

Name	Field # of Occurrence
^AGACALV	EN+2
$$DEC^AUPNPAT	DEC+7
$$ENC^AUPNPAT	ENC+2
$$GET1^DIQ	P2+5, P3+5, P3+6
^DIR	MAIN+7, PROMPT+1
$$FMTE^XLFDT	P2+5, P3+6
$$FMTH^XLFDT	UIDE+17
$$HTE^XLFDT	UIDD+25
CNV^XTBASE	UIDE+18
DEC^XTBASE	UIDD+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGTEXT Line Location: EN+3
Function Call: WRITE	Prompt: !!,?16,"LETTER",?35,"RPMS",?60,"RESULTS" Line Location: MAIN+11
Function Call: WRITE	Prompt: !,?16,"------------",?35,"------------",?60,"------------" Line Location: MAIN+12
Function Call: WRITE	Prompt: !,"RECORD NUMBER: ",?16,AGREC,?30,"...",?35,+AGRES,?60,$P(AGRES,U,2) Line Location: P1+5
Function Call: WRITE	Prompt: !,"USER: ",?16,AGUSRL,?30,"...",?35,$E(AGUSRR,1,23),?60,$P(AGUSR,U,2) Line Location: P2+10
Function Call: WRITE	Prompt: !,"DATE/TIME: ",?16,AGDTL,?30,"...",?35,$E(AGDTR,1,23),?60,$P(AGDT,U,2) Line Location: P2+11
Function Call: WRITE	Prompt: !,"PT NAME: ",?16,AGNAML,?30,"...",?35,$E(AGNAMR,1,23),?60,$P(AGNAM,U,2) Line Location: P3+11
Function Call: WRITE	Prompt: !,"PT DOB: ",?16,AGDOBL,?30,"...",?35,$E(AGDOBR,1,23),?60,$P(AGDOB,U,2) Line Location: P3+12
Function Call: WRITE	Prompt: !,"PT SSN: ",?16,AGSSNL,?30,"...",?35,$E(AGSSNR,1,23),?60,$P(AGSSN,U,2) Line Location: P3+13
Routine Call	DIR Line Location: MAIN+7 PROMPT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGACAL - [#9009063.5]	P1+3
^VA(200 - [#200]	UIDE+4, UIDE+10

Label References

Name	Line Occurrences
$$DEC	MAIN+10
$$P1	MAIN+13
$$P2	MAIN+14
$$P3	MAIN+15
$$UIDD	DEC+7
$$UIDE	ENC+2
MAIN	EN+4
PROMPT	MAIN+13, MAIN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGCNT	EN+1~, EN+2, ENC+1~, ENC+5, DEC+1~, DEC+4*
AGCODE	MAIN+4~, MAIN+9*, MAIN+10
AGDFN	P3+1~, P3+5*, P3+6, ENC~, ENC+2
AGDOB	P3+1~, P3+9*, P3+12, P3+15
AGDOBL	P3+1~, P3+3*, P3+9, P3+12
AGDOBR	P3+1~, P3+6*, P3+9, P3+12
AGDT	P2+1~, P2+8*, P2+11, P2+13, ENC~, ENC+2, UIDE~, UIDE+16
AGDTL	P2+1~, P2+3*, P2+8, P2+11
AGDTR	P2+1~, P2+5*, P2+8, P2+11
AGNAM	P3+1~, P3+8*, P3+11, P3+15
AGNAML	P3+1~, P3+3*, P3+8, P3+11
AGNAMR	P3+1~, P3+6*, P3+8, P3+11
AGPID	P3~, P3+3, DEC+1~
AGQUIT	MAIN+1~, MAIN+2, MAIN+3, MAIN+8
AGREC	P1~, P1+3, P1+5, P2~, P2+5, P3~, P3+5, ENC~, ENC+3, ENC+4 , ENC+5, DEC+1~, DEC+2, DEC+4, DEC+5, DEC+6, DEC+7
AGRECE	ENC+1~, ENC+2, ENC+4, ENC+6, DEC+2, DEC+3, DEC+5
AGRES	MAIN+4~, MAIN+10, MAIN+13, MAIN+14, MAIN+15, P1+1~, P1+3, P1+5, P1+7, ENC+1~ , ENC+2, ENC+5, ENC+6, ENC+7, DEC+1~, DEC+2, DEC+3, DEC+4, DEC+7
AGSSN	P3+1~, P3+9*, P3+13, P3+15
AGSSNL	P3+1~, P3+3*, P3+9, P3+13
AGSSNR	P3+1~, P3+6*, P3+9, P3+13
AGSTR	DEC~, DEC+2
AGTEXT	EN+1~, EN+2*, EN+3
AGUID	P2~, P2+3, DEC+1~, UIDD~, UIDD+5, UIDD+6, UIDD+9*, UIDD+13, UIDD+17, UIDD+22
AGUSER	ENC~, ENC+2, UIDE~, UIDE+4, UIDE+10
AGUSR	P2+1~, P2+7*, P2+10, P2+13
AGUSRL	P2+1~, P2+3*, P2+7, P2+10
AGUSRR	P2+1~, P2+5*, P2+7, P2+10
AUPNV	UIDE+1~, UIDE+7, UIDE+13, UIDE+20, UIDE+23, UIDE+26, UIDE+27, UIDE+29, UIDD+1~, UIDD+2* , UIDD+18, UIDD+26, UIDD+28*, UIDD+29
AUPNX	UIDE+1~, UIDE+4, UIDE+5, UIDE+6, UIDE+7, UIDE+10, UIDE+13, UIDE+16, UIDE+17, UIDE+18 , UIDD+1~, UIDD+12, UIDD+13, UIDD+14, UIDD+16, UIDD+17, UIDD+18, UIDD+21, UIDD+23, UIDD+24* , UIDD+25*, UIDD+26
AUPNY	UIDD+1~, UIDD+15, UIDD+16, UIDD+17
DIR	MAIN+4~, PROMPT+1!
DIR("A"	MAIN+6, PROMPT+1
DIR(0	MAIN+5, PROMPT+1
DIROUT	MAIN+4~, MAIN+8
DIRUT	MAIN+4~, MAIN+8
DTOUT	MAIN+4~, MAIN+8
DUOUT	MAIN+4~, MAIN+8
I	UIDE+1~, UIDE+6, UIDE+19, UIDD+1~, UIDD+13, UIDD+16, UIDD+23*
U	MAIN+14, MAIN+15, P1+3, P1+5, P2+10, P2+11, P3+11, P3+12, P3+13, UIDE+4 , UIDE+10
X	UIDE+1~, UIDE+18, UIDD+1~, UIDD+22, UIDD+23, UIDD+24*
X1	UIDE+1~, UIDE+18, UIDD+1~, UIDD+24
Y	MAIN+4~, MAIN+9, UIDE+1~, UIDE+18, UIDE+19, UIDE+20, UIDD+1~, UIDD+24

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AGACALV

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items