Routine: ACHSSIGA

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	3	($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS BRPT^ACHSFU FC^ACHSUF
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

Contract Health Management Information System

($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS BRPT^ACHSFU FC^ACHSUF

IHS VA Utilities

$$C^XBFUNC VIEWR^XBLM EN^XBVK

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS E-SIG APPROVED REPORT

Package

Total

Caller Graph

Contract Health Management Information System

ACHS E-SIG APPROVED REPORT

Name	Comments	DBIA/ICR reference
DATAFLD	;--GET THE DATA FIELDS FOR THE REPORT --
END	;
HDR	;
TITLE	;;E-Signature Approved
K	;
DEV	;
BDT	;--ASK THE DATE RANGE--
KILL	;
EDT	;
PRINT	;
LOOP2	;
LOOP1	;--LOOP THRU THE "ESIG" CROSS REFERENCE--

External References

Name	Field # of Occurrence
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	DEV+9, K+2
^%ZTLOAD	DEV+14
$$DATE^ACHS	BDT+2, EDT+1
$$EBB^ACHS	EDT+3
$$PB^ACHS	DEV+1
ERPT^ACHS	KILL+2
RTRN^ACHS	END+3
BRPT^ACHSFU	PRINT+3
FC^ACHSUF	PRINT+1
$$C^XBFUNC	PRINT+4, PRINT+5, HDR+2
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3
$$FMTE^XLFDT	DEV+12, PRINT+5
$$REPEAT^XLFSTR	HDR+5, END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report captures documents signed over a specific dates range.",! Line Location: BDT+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Function Call: WRITE	Prompt: !,ACHSDOC,?20,$E(ACHSVNDR,1,26),?48,$E(ACHSBDT,4,7),$E(ACHSBDT,2,3),?58,ACHSESIG,! Line Location: DATAFLD+17
Function Call: WRITE	Prompt: ACHSPAT,?20,$FN(ACHS("$"),",",2),?48,$E(ACHSODT,4,7),$E(ACHSODT,2,3),?58,ACHSASIG,! Line Location: DATAFLD+19
Function Call: WRITE	Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANNAGEMENT SYSTEM *",80),!!,ACHSLOC,!?29,"ELECTRONIC SIGNATURE REPORT" Line Location: HDR+2
Function Call: WRITE	Prompt: ?77-$L(ZTSK),"(",ZTSK,")" Line Location: HDR+3
Function Call: WRITE	Prompt: !,ACHSTIME,!,ACHST1,!,ACHST2,!!,"Document Number",?20,"Provider of Service",?48,"Sig Date",?58,"Ordering Official",! Line Location: HDR+4
Function Call: WRITE	Prompt: "Patient",?20,"Oligation Amt.",?48,"Order Dt.",?58,"Authorizing Official",!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: END+1
Function Call: WRITE	Prompt: "Total Documents: ",ACHSCNT,! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+4
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSESIG - [#9002080.1]	DATAFLD+13
^ACHSF - [#9002080]	LOOP1+1, LOOP2+1, LOOP2+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+10
^AUTTVNDR - [#9999999.11]	DATAFLD+15
^DPT - [#2]	DATAFLD+5
^VA(200 - [#200]	DATAFLD+7, DATAFLD+11

Name	Line Occurrences
BDT	EDT+2
DEV	DEV+9, DEV+15
EDT	EDT+3
END	LOOP1+2
HDR	PRINT+6
K	BDT+3, EDT+2, DEV+2, DEV+3, DEV+6
KILL	PRINT+2
LOOP1	LOOP2+2, DATAFLD+15
LOOP2	DATAFLD+21
PRINT	DEV+7
TITLE	BDT+2, EDT+1, DEV+12

Name	Field # of Occurrence
^(0	DATAFLD+1, DATAFLD+4, DATAFLD+5, DATAFLD+10, DATAFLD+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1*, DEV+2, DEV+3
>> %ZIS	DEV+4*
ACHS	DEV+13*, K+1!
ACHS("$"	DATAFLD+4*, DATAFLD+19
>> ACHSADT	DATAFLD+10*
>> ACHSASIG	DATAFLD+10, DATAFLD+11, DATAFLD+13*, DATAFLD+19
ACHSBDT	BDT+2, BDT+3, EDT+3, DEV+12, K+1!, PRINT+5, PRINT+7, LOOP1+1*, LOOP1+2, LOOP2+1 , DATAFLD+17
ACHSCNT	TITLE+2, DATAFLD+20, END+2, KILL+3!
ACHSDOC	DATAFLD+16*, DATAFLD+17, KILL+3!
ACHSDOC1	DATAFLD+1*, DATAFLD+16, KILL+3!
ACHSDOC2	DATAFLD+1*, DATAFLD+16, KILL+3!
ACHSEDT	EDT+1*, EDT+2, EDT+3, DEV+12, K+1!, PRINT+5, LOOP1+2
>> ACHSERR	PRINT+2
ACHSESIG	DATAFLD+4, DATAFLD+7, DATAFLD+8*, DATAFLD+17, KILL+3!
ACHSFC	DATAFLD+16, KILL+1!
ACHSIO	TITLE+1*, K+1!
>> ACHSLOC	HDR+2
>> ACHSODT	DATAFLD+3*, DATAFLD+19
>> ACHSPAT	DATAFLD+5, DATAFLD+6, DATAFLD+19
>> ACHSPG	HDR+1*, HDR+2
ACHSQIO	DEV+12*, K+1!
ACHSRPT	DEV+12, K+1!
>> ACHST1	PRINT+4*, HDR+4
>> ACHST2	PRINT+5*, HDR+4
>> ACHSTIME	HDR+4
>> ACHSUSR	HDR+2
ACHSVNDR	DATAFLD+15*, DATAFLD+17, KILL+3!
>> ACHSVPTR	DATAFLD+2*, DATAFLD+15
DA	LOOP1+3, LOOP2+1, LOOP2+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+10 , KILL+4!
DFN	KILL+4!
>> DTOUT	BDT+3, EDT+2, DEV+2
>> DUOUT	BDT+3, EDT+2, DEV+2
DUZ(2	LOOP1+1, LOOP2+1, LOOP2+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+10 , DATAFLD+13
IO	TITLE+1
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	HDR+2, END+4
IOM	DEV+12
ION	DEV+12
IOSL	DEV+12
IOST	DEV+9, DEV+12
>> POP	DEV+6
U	DEV+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+7, DATAFLD+10, DATAFLD+11 , DATAFLD+13, DATAFLD+15
X2	TITLE+3!, KILL+4!
X3	TITLE+3!, PRINT+7*, KILL+4!
>> ZTDESC	DEV+12*
ZTIO	DEV+12*, K+1!
>> ZTQUEUED	HDR+3, KILL+1
>> ZTRTN	DEV+12*
>> ZTSAVE(	DEV+13*
ZTSK	DEV+15, K+1!, PRINT+2!, HDR+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSSIGA

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items