Routine: AG

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS Patient Registration	6	(,CHKRHI)^AG ^AGBADATA ^AGDATCK $$CHKDEATH^AGEDERR ^AGVAR $$S^AGVDF
Kernel	4	^%ZIS $$FMTE^XLFDT $$CJ^XLFSTR $$LAST^XPDUTL
VA Fileman	4	DD^%DT NOW^%DTC ^DIC ^DIR
IHS VA Utilities	1	SET^XBSITE

Package	Total	Caller Graph
IHS Patient Registration	90	AG AG0 AG1 AG2B AG4 AG5 AG6 AG7 AG8B AGACAL AGACT AGADDINF AGADDR AGADDR1 AGAGEB AGAGERP AGAGERP2 AGAGERP3 AGALPHA AGALPHA1 AGBADATA AGBIC1B AGBIC2 AGBIC2B AGBIC2P AGBICEDZ AGBLDS AGCARD AGCHART AGCHLB AGCHTMP AGCMATCH AGCO AGDELPAT AGDOB AGED AGED11A AGED12 AGED5 AGED9 AGEDIT AGEMARP AGFACE AGHOME AGKPAT AGLKIN AGLSSN AGLSSN2 AGMAN AGMANERS AGMBIR1 AGMBIR2 AGMCDP AGMCDPC AGMCDPCM AGMCDPN AGMCRP AGMCRP2 AGMCRP3 AGMCRP4 AGMCRP5 AGMCRP6 AGMSPFRM AGMSPINT AGNAMOPT AGNDX1 AGNDX2 AGNDX3 AGNDX4 AGNDXP AGOV64 AGPHROPT AGPREI AGPREI2 AGREPRT AGREPRT1 AGREPRT2 AGRPTPRV AGRPTVET AGSEENLY AGSSKILL AGSSPLIT AGTEMPP AGTRBL AGTX AGTXERP AGTXTOT AGUND18 AGVALID AGVAR
Patient Registration GUI	5	AGGCMTCH AGGRFCE AGGRPRT AGGRPRT1 AGGRPRT2
IHS Emergency Dept Dashboard	3	BEDDEHRS BEDDMREC BEDDUTIL
Patient Registration MPI	2	AGMPHLU AGMPHLU1
Emergency Room	1	AMERAGED
IHS Changes To Scheduling	1	ASDREG
IHS View Patient Record	1	BVPAG
Local Area Programs	1	AZHZCLN
Third Party Billing	1	ABMDTEL
iCare	1	BQIRFCE

Package

Total

Caller Graph

IHS Patient Registration

AG  AG0  AG1  AG2B  AG4  AG5  AG6  AG7
AG8B  AGACAL  AGACT  AGADDINF  AGADDR  AGADDR1  AGAGEB  AGAGERP
AGAGERP2  AGAGERP3  AGALPHA  AGALPHA1  AGBADATA  AGBIC1B  AGBIC2  AGBIC2B
AGBIC2P  AGBICEDZ  AGBLDS  AGCARD  AGCHART  AGCHLB  AGCHTMP  AGCMATCH
AGCO  AGDELPAT  AGDOB  AGED  AGED11A  AGED12  AGED5  AGED9
AGEDIT  AGEMARP  AGFACE  AGHOME  AGKPAT  AGLKIN  AGLSSN  AGLSSN2
AGMAN  AGMANERS  AGMBIR1  AGMBIR2  AGMCDP  AGMCDPC  AGMCDPCM  AGMCDPN
AGMCRP  AGMCRP2  AGMCRP3  AGMCRP4  AGMCRP5  AGMCRP6  AGMSPFRM  AGMSPINT
AGNAMOPT  AGNDX1  AGNDX2  AGNDX3  AGNDX4  AGNDXP  AGOV64  AGPHROPT
AGPREI  AGPREI2  AGREPRT  AGREPRT1  AGREPRT2  AGRPTPRV  AGRPTVET  AGSEENLY
AGSSKILL  AGSSPLIT  AGTEMPP  AGTRBL  AGTX  AGTXERP  AGTXTOT  AGUND18
AGVALID  AGVAR

Patient Registration GUI

AGGCMTCH AGGRFCE AGGRPRT AGGRPRT1 AGGRPRT2

IHS Emergency Dept Dashboard

BEDDEHRS BEDDMREC BEDDUTIL

Patient Registration MPI

AGMPHLU AGMPHLU1

Emergency Room

AMERAGED

IHS Changes To Scheduling

ASDREG

IHS View Patient Record

BVPAG

Local Area Programs

AZHZCLN

Third Party Billing

ABMDTEL

iCare

BQIRFCE

Entry Points

Name	Comments	DBIA/ICR reference
CPI	;EP
HDR	;EP - Print menu header.
CTR	;EP - Center X.
YN	;EP
READ	;EP - Standard READ sub-routine for Registration.
LINES	;EP "Standard" lines of characters.
PHDR	;EP - Print parent menu header.
SHDR	;EP - Screen header.
KILL	;PEP - USED BY TPB TO CLEAN UP VARIABLES
LINE	;EP - Standard writeline sub-routine.
PTLK	;EP - Standard pt lookup using DIC.
CURPATCH()	;EP - GET CURRENT PATCH LEVEL FOR HEADER
VIDEO	;EP
PTLKNKIL	;
DFNTR	;EP - External Packages
SITE	;EP - From options.
CHKRHI	;EP - CHECK PATIENT FOR RESTRICTED HEALTH INFORMATION
L4	;
T	;EP - DISPLAY TIME IN HH:MM (AM/PM) FORMAT
RTRN	;EP
CHKNPP	;EP - CHECK PATIENT FOR NOTICE OF PRIVACY PRACTICES ENTRY
NOW	;EP - Set AGTIME to time now.

External References

Name	Field # of Occurrence
DD^%DT	AG+14, NOW+3
NOW^%DTC	NOW+1, T+1
^%ZIS	AG+18, SHDR+3
^AG	PHDR+6
CHKRHI^AG	PTLKNKIL+5
^AGBADATA	DFNTR+3
^AGDATCK	DFNTR+2
$$CHKDEATH^AGEDERR	PTLKNKIL+10
^AGVAR	HDR+2
$$S^AGVDF	AG+19, PTLKNKIL+7, SHDR+5
^DIC	PTLKNKIL+3
^DIR	RTRN+4
SET^XBSITE	SITE+1
$$FMTE^XLFDT	AG+32, AG+33
$$CJ^XLFSTR	SITE+3, SITE+4, SITE+5, SHDR+10, SHDR+11, SHDR+12
$$LAST^XPDUTL	AG+32, AG+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!?22 Line Location: AG+19
Function Call: WRITE	Prompt: "*" Line Location: AG+20
Function Call: WRITE	Prompt: !?22,"",?56,"" Line Location: AG+21
Function Call: WRITE	Prompt: !?22,"* INDIAN HEALTH SERVICE *" Line Location: AG+22
Function Call: WRITE	Prompt: !?22,"* PATIENT REGISTRATION SYSTEM *" Line Location: AG+23
Function Call: WRITE	Prompt: !?22,"* VERSION ",AG("VERSION") Line Location: AG+27
Function Call: WRITE	Prompt: ".",$$CURPATCH Line Location: AG+27
Function Call: WRITE	Prompt: ", ",AG("VERDT"),?56,"*" Line Location: AG+28
Function Call: WRITE	Prompt: !?22,"* AG V7.1 P",+AGTMP,", ",$$FMTE^XLFDT($P(AGTMP,"^",2),"5D"),?56,"*" Line Location: AG+32
Function Call: WRITE	Prompt: !?22,"* AGMPI V7.2 P",+AGTMP,", ",$$FMTE^XLFDT($P(AGTMP,"^",2),"5D"),?56,"*" Line Location: AG+33
Function Call: WRITE	Prompt: !?22,"",?56,"",!?22 Line Location: AG+35
Function Call: WRITE	Prompt: "*" Line Location: AG+36
Function Call: WRITE	Prompt: !!?80-$L($P(^DIC(4,DUZ(2),0),U))\2,$P(^(0),U) Line Location: SITE+2
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("* NOTE: IF YOU EDIT A PATIENT AND SEE THEIR NAME IN REVERSE VIDEO *",IOM) Line Location: SITE+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* WITH '(RHI)' BLINKING NEXT TO IT, IT MEANS THEY HAVE RESTRICTED *",IOM) Line Location: SITE+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* HEALTH INFORMATION *",IOM) Line Location: SITE+5
Function Call: WRITE	Prompt: ! Line Location: L4+1
Function Call: READ	Timeout: DTIME Variable: Y Line Location: READ+2
Function Call: READ	Timeout: 5 Variable: Y Line Location: READ+2
Function Call: WRITE	Prompt: ! Line Location: LINE+1
Function Call: WRITE	Prompt: AG("LINE") Line Location: LINE+2
Function Call: WRITE	Prompt: ! Line Location: LINE+3
Function Call: WRITE	Prompt: !!,"Enter a ""Y"" for YES or an ""N"" for NO." Line Location: YN+1
Function Call: WRITE	Prompt: !,$$S^AGVDF("RVN"),$$S^AGVDF("BLN"),"This patient has Restricted Health Information",$$S^AGVDF("BLF"),$$S^AGVDF("RVF") Line Location: PTLKNKIL+7
Function Call: WRITE	Prompt: !!?5,"**** ALERT: DATE OF DEATH ON FILE FOR THIS PATIENT!!" Line Location: PTLKNKIL+10
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: SHDR+5
Function Call: WRITE	Prompt: !!?30,$S($E(Y,1,2)="AG":"PATIENT REGISTRATION",1:"") Line Location: SHDR+6
Function Call: WRITE	Prompt: !!?40-($L($P(^DIC(4,DUZ(2),0),U))\2),$P(^(0),U) Line Location: SHDR+7
Function Call: WRITE	Prompt: !!,X,! Line Location: SHDR+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("* NOTE: IF YOU EDIT A PATIENT AND SEE THEIR NAME IN REVERSE VIDEO *",IOM) Line Location: SHDR+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* WITH '(RHI)' BLINKING NEXT TO IT, IT MEANS THEY HAVE RESTRICTED *",IOM) Line Location: SHDR+11
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* HEALTH INFORMATION *",IOM) Line Location: SHDR+12
Function Call: WRITE	Prompt: !?21,"* CONFIDENTIAL PATIENT INFORMATION *" Line Location: CPI+1
Function Call: WRITE	Prompt: $J(+AG("HOUR"),2),":",AG("MINUTE")," ",AG("AMPM") Line Location: T+9
Routine Call	DIC Line Location: PTLKNKIL+3
Routine Call	DIR Line Location: RTRN+4
Routine Call	%ZIS Line Location: AG+18 SHDR+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	VIDEO+1
^AUPNNPP("B"	CHKNPP+2
^AUPNRHI - [#9000039]	CHKRHI+4
^AUPNRHI("B"	CHKRHI+3
^DIC(19 - [#19]	HDR+3, PHDR+4, PHDR+5
^DIC(4 - [#4]	SITE+2, SHDR+7
^DIC(9.4 - [#9.4]	AG+9, AG+10, AG+11, AG+13, CURPATCH+2, CURPATCH+3, CURPATCH+4, CURPATCH+5
^UTILITY("DIQ1"	KILL+1!
^XUTL("XQ"	PHDR+2, PHDR+3, PHDR+4, PHDR+5

Name	Line Occurrences
CTR	SHDR+4
KILL	PHDR+1
L4	SITE+1
READ	READ+2
SHDR	HDR+5

Name	Field # of Occurrence
^(0	SITE+2, SHDR+7
^(5	VIDEO+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CURPATCH+1~, NOW+2, T+2
%DT	KILL+2!
A	KILL+2!
AG	L4+2!, KILL+2!, DFNTR+4!
AG("*"	LINES+5, LINES+6
AG("-"	LINES+1, LINES+2
AG("="	LINES+3, LINES+4
AG("AMPM"	T+5, T+7, T+9
AG("DENT"	KILL+3!
AG("HOUR"	T+3, T+6, T+8, T+9
AG("LI"	LINE+2*
AG("LINE"	LINE+2
AG("MINUTE"	T+4*, T+9
AG("RPT"	SHDR+9
AG("TIME"	T+2*, T+3, T+4
AG("TRBCODE"	KILL+4!
AG("VERDT"	AG+6, AG+15, L4+2!
AG("VERSION"	AG+7, AG+10, AG+11, L4+2!, CURPATCH+3
AGAIN	KILL+5!
AGCHRT	KILL+2!
AGI	KILL+2!
>> AGIEN	AG+9*, AG+13
AGL	KILL+3!
AGLINE	KILL+2!
AGNEW	KILL+4!
AGNEWINS	HDR+1!
AGOPT	KILL+2!, HDR+2, PHDR+1, DFNTR+4!
AGPAT	KILL+2!
>> AGPATDFN	PTLKNKIL+5*
AGPCC	KILL+4!
AGQI	DFNTR+4!
AGQT	DFNTR+4!
AGSCRN	KILL+4!
AGSELECT	KILL+6!
AGSITE	KILL+2!
AGTEMP	KILL+4!
>> AGTIME	NOW+4*
AGTMP	AG+31~, AG+32, AG+33
AGTP	DFNTR+4!
AGUPDT	KILL+2!
C	KILL+3!
DFN	KILL+3!, PTLK+1!, PTLKNKIL+5*, PTLKNKIL+10, CHKNPP+2, CHKRHI+1, CHKRHI+3
DFOUT	READ+2!, READ+3*, KILL+3!
DIC	KILL+3!, PTLK+2!, PTLKNKIL+1*
DIC(0	PTLKNKIL+2*
DIE	KILL+3!
DIR	RTRN+5!, HDR+1!
DIR(0	RTRN+3*
DIRUT	READ+1!
DLOUT	READ+2!, READ+4*, KILL+3!
DQOUT	READ+2!, READ+6*, KILL+3!
DTIME	READ+2
DTOUT	READ+2!*, KILL+3!
DUOUT	READ+2!, READ+5*, KILL+3!
DUZ(2	SITE+1, SITE+2, SHDR+7
G	KILL+3!
I	AG+20, AG+36, L4+2!, CURPATCH+1~, CURPATCH+2*, CURPATCH+3, CURPATCH+4, CURPATCH+5, KILL+3!
IOF	AG+16, SHDR+1
IOM	SITE+3, SITE+4, SITE+5, SHDR+10, SHDR+11, SHDR+12
ION	AG+17
>> IOP	AG+17, SHDR+2
IOST	RTRN+2
IOST(0	VIDEO+1
J	CURPATCH+1~
L	KILL+3!
NPPFLAG	CHKNPP+1!, CHKNPP+4*
>> PENTRY	CURPATCH+3*, CURPATCH+4, CURPATCH+5
>> PVER	CURPATCH+4, CURPATCH+5, CURPATCH+6
REC	CHKNPP+1!, CHKNPP+2, CHKNPP+3, CHKRHI+2, CHKRHI+3*, CHKRHI+4
RHIFLAG	PTLK+1!, PTLKNKIL+6, PTLKNKIL+7, CHKRHI+2, CHKRHI+4
U	AG+13, SITE+2, CURPATCH+5, READ+6, HDR+3, PHDR+4, PHDR+5, SHDR+7, CHKRHI+4
X	CTR+1, KILL+4!, HDR+3, PHDR+4*, SHDR+4, SHDR+8
XY	KILL+4!, VIDEO+1*
XYER	KILL+4!, VIDEO+1, VIDEO+2
Y	AG+8, AG+9, AG+10, AG+11, AG+12, AG+13, AG+15, READ+2, READ+3, READ+4 , READ+5, READ+6, RTRN+1, NOW+2, NOW+4, KILL+4!, PTLKNKIL+5, HDR+4, PHDR+5, PHDR+6 , SHDR+6

Customize PDF page

Package: IHS Patient Registration

Routine: AG

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 106

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: