Routine: AGFACE

Package	Total	Call Graph
IHS Patient Registration	8	(CHKRHI,CPI,LINES,NOW,PTLK,RTRN)^AG ^AGBADATA ^AGDATCK ^AGDICLK $$CLANG^AGED10B $$RACE^AGUTL ^AGVAR $$S^AGVDF
Kernel	3	(,HOME)^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	3	$$GET1^DID $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	3	AGFACE7 AGNAMOPT AGVQQFS
Registration	3	DPTDZFCH DPTDZPO1 DPTDZPRE
IHS Accounts Receivable	1	BARDSP
Local Area Programs	1	AZHZCLN
Patient Registration GUI	1	AGGRFCE
Women's Health	1	BWFACE
iCare	1	BQIRFCE

Name	Comments	DBIA/ICR reference
END1
END2	;
END	;
HDR	;EP - FACE SHEET HEADER
ALIAS	;OTHER NAMES
PRINTVS	;PRINT VALIDATION STATEMENT
DEV	;
START	;PEP - From TaskMan.
DFN	;PEP - Pre-Defined Patient Number.
QUE	;QUE TO TASKMAN
L1
NODFN	;EP - No Pre-Defined Patient Number.

Name	Field # of Occurrence
^%ZIS	DEV+4
HOME^%ZIS	DEV+6, DEV+10
^%ZISC	DEV+9, END1
^%ZTLOAD	QUE+4
KILL^%ZTLOAD	END2+2
CHKRHI^AG	DFN+2
CPI^AG	END+2, HDR+5
LINES^AG	START+4
NOW^AG	START+4
PTLK^AG	NODFN+1
RTRN^AG	END+2, HDR+3
^AGBADATA	L1
^AGDATCK	L1
^AGDICLK	START+6, START+7, ALIAS+6, ALIAS+12, ALIAS+13, ALIAS+14, ALIAS+15, ALIAS+16, ALIAS+17, ALIAS+19 , ALIAS+20, ALIAS+22, ALIAS+23, ALIAS+26, ALIAS+58, ALIAS+59, HDR+7, HDR+9, HDR+10
$$CLANG^AGED10B	ALIAS+41
$$RACE^AGUTL	ALIAS+31
^AGVAR	START+4
$$S^AGVDF	DFN+3, END+2, HDR+4, HDR+9
$$GET1^DID	ALIAS+45, ALIAS+46
$$GET1^DIQ	ALIAS+9, ALIAS+26, ALIAS+28, ALIAS+34, ALIAS+36, ALIAS+41, ALIAS+43, ALIAS+45, ALIAS+46, ALIAS+50 , ALIAS+51, ALIAS+53, ALIAS+54, ALIAS+56, ALIAS+57
^DIR	PRINTVS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$S^AGVDF("RVN"),$$S^AGVDF("BLN"),"This patient has Restricted Health Information",$$S^AGVDF("BLF"),$$S^AGVDF("RVF") Line Location: DFN+3
Function Call: WRITE	Prompt: "COMPUTER FILE EST: " Line Location: START+6
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: START+6
Function Call: WRITE	Prompt: "(",$P(^(0),U,2),")" Line Location: START+6
Function Call: WRITE	Prompt: ?78-$L(AGLAST),AGLAST,!,AG("-") Line Location: START+9
Function Call: WRITE	Prompt: ! Line Location: ALIAS+5
Function Call: WRITE	Prompt: "SSN: ",AG("LKPRINT") Line Location: ALIAS+7
Function Call: WRITE	Prompt: "SSN: ",$$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: ALIAS+8
Function Call: WRITE	Prompt: "SSN: ",$$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: ALIAS+9
Function Call: WRITE	Prompt: ?40,"SSN STATUS: ",$P(^AUTTSSN($P(^(0),U,23),0),U,2) Line Location: ALIAS+10
Function Call: WRITE	Prompt: ?40,"SSN STATUS UNKNOWN" Line Location: ALIAS+11
Function Call: WRITE	Prompt: !,"CLASS: " Line Location: ALIAS+12
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+12
Function Call: WRITE	Prompt: ?62,"SEX: " Line Location: ALIAS+13
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+13
Function Call: WRITE	Prompt: !,"COMMUNITY: " Line Location: ALIAS+14
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+14
Function Call: WRITE	Prompt: " (",$S($P(^(11),U,21)="Y":"Verified",1:"Unverified"),")" Line Location: ALIAS+14
Function Call: WRITE	Prompt: ?57,"BIRTHDAY: " Line Location: ALIAS+15
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+15
Function Call: WRITE	Prompt: $P(^(0),U) Line Location: ALIAS+16
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: ALIAS+17
Function Call: WRITE	Prompt: !?5,AG("LKPRINT") Line Location: ALIAS+18
Function Call: WRITE	Prompt: !,"CURRENT ADDRESS:" Line Location: ALIAS+19
Function Call: WRITE	Prompt: !?5,AG("LKPRINT") Line Location: ALIAS+19
Function Call: WRITE	Prompt: !?5,AG("LKPRINT") Line Location: ALIAS+20
Function Call: WRITE	Prompt: !,"PHONE NUMBERS ---" Line Location: ALIAS+25
Function Call: WRITE	Prompt: !,"HOME: " Line Location: ALIAS+26
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+26
Function Call: WRITE	Prompt: ?27,"WORK: " Line Location: ALIAS+26
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+26
Function Call: WRITE	Prompt: ?27,"WORK: " Line Location: ALIAS+26
Function Call: WRITE	Prompt: ?27,"WORK: " Line Location: ALIAS+26
Function Call: WRITE	Prompt: ! Line Location: ALIAS+27
Function Call: WRITE	Prompt: !,"PREFERRED LANGUAGE: ",$E($P($P($$CLANG^AGED10B(DFN),U,4),":",2),1,25),?47,"PREFERRED METHOD: ",$$GET1^DIQ(9000001,DFN,4002) Line Location: ALIAS+41
Function Call: WRITE	Prompt: !,$$GET1^DID(9000001,.35,"","LABEL"),": ",$$GET1^DIQ(9000001,DFN,.35) Line Location: ALIAS+45
Function Call: WRITE	Prompt: ?30,$$GET1^DID(9000001,.36,"","LABEL"),": ",$$GET1^DIQ(9000001,DFN,.36)," / ",$$GET1^DIQ(9000001,DFN_",",8701,"E") Line Location: ALIAS+46
Function Call: WRITE	Prompt: !,AG("-"),!,"* NO NOTICE OF PRIVACY PRACTICES DATA ON THIS PATIENT *" Line Location: ALIAS+47
Function Call: WRITE	Prompt: ?47,$$GET1^DIQ(9000038,DFN,.02) Line Location: ALIAS+50
Function Call: WRITE	Prompt: ! Line Location: ALIAS+57
Function Call: WRITE	Prompt: ?11,$E($$GET1^DIQ(9000038,DFN,.05),61,80) Line Location: ALIAS+57
Function Call: WRITE	Prompt: !,AG("-"),!,"TRIBE: " Line Location: ALIAS+58
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: ALIAS+58
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: ALIAS+58
Function Call: WRITE	Prompt: ?50,"INDIAN QUANTUM: " Line Location: ALIAS+59
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: ALIAS+59
Function Call: WRITE	Prompt: ^(I,0),! Line Location: END+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+2
Function Call: WRITE	Prompt: !?40-($L(AG("LOC"))\2),AG("LOC"),!?26,"AMBULATORY CARE RECORD BRIEF",!?25,"------------------------------",!,AGTIME,?70,"Page: ",AG("PAGE"),!,AG("="),! Line Location: HDR+6
Function Call: WRITE	Prompt: "PATIENT: " Line Location: HDR+7
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: HDR+7
Function Call: WRITE	Prompt: " (VETERAN)" Line Location: HDR+7
Function Call: WRITE	Prompt: "PATIENT: " Line Location: HDR+9
Function Call: WRITE	Prompt: $$S^AGVDF("RVN"),AG("LKPRINT"),$$S^AGVDF("BLN")," (RHI)",$$S^AGVDF("BLF"),$$S^AGVDF("RVF") Condition for execution: $D(AG("LKPRINT")) Line Location: HDR+9
Function Call: WRITE	Prompt: "PATIENT: " Line Location: HDR+10
Function Call: WRITE	Prompt: AG("LKPRINT") Condition for execution: $D(AG("LKPRINT")) Line Location: HDR+10
Function Call: WRITE	Prompt: " (VETERAN)" Line Location: HDR+10
Function Call: WRITE	Prompt: ?59,"CHART #: " Line Location: HDR+11
Function Call: WRITE	Prompt: $P(^(0),U,2) Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0)) Line Location: HDR+11
Function Call: WRITE	Prompt: !,AG("="),! Line Location: HDR+11
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: QUE+5
Function Call: WRITE	Prompt: !!?5,"Task # ",ZTSK," queued.",! Line Location: QUE+6
Routine Call	%ZIS Line Location: DEV+6 DEV+10
Routine Call	DIR Line Location: PRINTVS+5
Routine Call	%ZIS Line Location: DEV+4

FileNo	Call Tags
^DIC(10.2 - [#10.2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DID, GET1^DIQ
^AUPNNPP - [#9000038]	GET1^DIQ
^AGFAC - [#9009061]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	END+1
^AUPNNPP("B"	ALIAS+47, ALIAS+48
^AUPNPAT - [#9000001]	START+6, START+8, ALIAS+10, ALIAS+14, ALIAS+58, HDR+11
^AUTTCOM - [#9999999.05]	ALIAS+16
^AUTTCTY - [#9999999.23]	ALIAS+16
^AUTTSSN - [#9999999.78]	ALIAS+10
^DIC(4 - [#4]	START+4
^DPT - [#2]	ALIAS+1, ALIAS+3, ALIAS+4, ALIAS+35, HDR+7, HDR+10, QUE+2
^VA(200 - [#200]	START+6, START+8

Name	Line Occurrences
@(	ALIAS+65
END1	HDR+3
END2	END+2
HDR	START+5, ALIAS+63
L1	NODFN+3
NODFN	DEV+5
PRINTVS	L1+1
QUE	DEV+6
START	DEV+8

Name	Field # of Occurrence
^(	END+1
^("VET"	HDR+7, HDR+10
^(0	START+6, START+8, ALIAS+10, ALIAS+16, HDR+11
^(11	ALIAS+14, ALIAS+58

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+3*
AG	L1!, START+6, START+8, ALIAS+16, ALIAS+22, ALIAS+23*, ALIAS+24, END2+1!
AG("-"	START+9, ALIAS+47, ALIAS+49, ALIAS+58, END+1
AG("="	HDR+6, HDR+11
AG("DRENT"	ALIAS+16*
AG("DTOT"	L1
AG("LKDATA"	ALIAS+16, END2+1!
AG("LKERR"	ALIAS+16, ALIAS+17, END2+1!
AG("LKPRINT"	START+6, START+8, ALIAS+12, ALIAS+13, ALIAS+14, ALIAS+15, ALIAS+17, ALIAS+19, ALIAS+20, ALIAS+22 , ALIAS+23, ALIAS+26, ALIAS+58, ALIAS+59, END2+1!, HDR+7, HDR+9, HDR+10
AG("LOC"	START+4*, HDR+6
AG("PAGE"	START+5, HDR+2, HDR+3, HDR+4, HDR+6
AG("VS"	END+1, PRINTVS+1!, PRINTVS+5*
AGIO	END2+1!
AGL	END2+1!
AGLAST	START+7, START+8, START+9, END2+1!
>> AGOPT(14	ALIAS+14, ALIAS+58
>> AGOPT(23	ALIAS+45, ALIAS+46
>> AGOPT(24	L1+1
AGPCC	END2+1!
AGQUIT	ALIAS+60!, ALIAS+61, ALIAS+62, ALIAS+64, ALIAS+66!, HDR+3*
AGRACE	ALIAS+31~*, ALIAS+32
AGTIME	END2+1!, HDR+6
>> AGVQQFS	END+2, HDR+3
>> DA	ALIAS+10, HDR+7, HDR+9, HDR+10*
>> DFN	NODFN+2, DFN+1, L1, START+1, START+6, START+8, ALIAS+1, ALIAS+3, ALIAS+4, ALIAS+9 , ALIAS+14, ALIAS+26, ALIAS+31, ALIAS+35, ALIAS+41, ALIAS+43, ALIAS+45, ALIAS+46, ALIAS+47, ALIAS+48 , ALIAS+50, ALIAS+51, ALIAS+53, ALIAS+54, ALIAS+56, ALIAS+57, ALIAS+58, HDR+7, HDR+9, HDR+10 , HDR+11, QUE+2
>> DIC	START+6, ALIAS+6, ALIAS+12, ALIAS+13, ALIAS+14, ALIAS+15, ALIAS+16, ALIAS+17, ALIAS+19, ALIAS+20 , ALIAS+58, HDR+7, HDR+9, HDR+10
DIR	PRINTVS+1!, PRINTVS+6!
DIR("A"	PRINTVS+3*
DIR("B"	PRINTVS+4*
DIR(0	PRINTVS+2*
>> DR	START+6, START+7, ALIAS+6, ALIAS+12, ALIAS+13, ALIAS+14, ALIAS+15, ALIAS+16, ALIAS+17, ALIAS+19 , ALIAS+20, ALIAS+22, ALIAS+23, ALIAS+26, ALIAS+58, ALIAS+59, HDR+7, HDR+9, HDR+10*
DUZ(2	START+3, START+4, ALIAS+28, ALIAS+34, END+1, HDR+11
>> ETHNIC	ALIAS+35, ALIAS+36, ALIAS+37
G	END2+1!
I	ALIAS+3~, ALIAS+4, ALIAS+61~, ALIAS+65, END+1*
IO	DEV+7
IO("Q"	DEV+6, QUE+1!
IOSL	ALIAS+63
>> POP	DEV+5
>> RHIFLAG	DFN+3, HDR+7, HDR+8, HDR+9
U	START+4, START+6, START+8, ALIAS+10, ALIAS+14, ALIAS+16, ALIAS+41, ALIAS+58, HDR+11, QUE+2
X	END2+1!
Y	END2+1!, HDR+3, PRINTVS+5
Z	END2+1!
>> ZTDESC	QUE+2*
>> ZTQUEUED	END2+2
>> ZTRTN	QUE+2*
>> ZTSAVE("DFN"	QUE+3*
ZTSK	QUE+4!, QUE+5, QUE+6

Customize PDF page

Package: IHS Patient Registration

Routine: AGFACE

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: