Routine: ACHSSIGB

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

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

Entry Points

Name	Comments	DBIA/ICR reference
DATAFLD	;--GET THE DATA FIELDS FOR THE REPORT --
END	;
HDR	;
TITLE	;;PENDING E-SIG
K	;
DEV	;
BDT	;--ASK THE DATE RANGE--
KILL	;
PRINT	;
LOOP2	;--LOOP TO GET DOC NUMBER--
LOOP1	;--LOOP THRU THE ^ACHS("EQ",DUZ(2),ACHSTYP) CROSS REFERENCE--

Name	Line Occurrences
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(ACHSIDT,4,7),$E(ACHSIDT,2,3),?60,ACHS("$"),?70,ACHSVTYP,! Line Location: DATAFLD+8
Function Call: WRITE	Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANNAGEMENT SYSTEM *",80),!!,ACHSLOC,!?22,"PENDING 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",?45,"Issue Date",?58,"Obligation Amt.",?74,"Type",!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+4
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

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	LOOP2+3, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4
^ACHSF("EQ"	LOOP2+2
^AUTTVNDR - [#9999999.11]	DATAFLD+6

Name	Field # of Occurrence
^(0	DATAFLD+1, DATAFLD+6

Name	Field # of Occurrence
>> %	DEV+1*, DEV+2, DEV+3
>> %ZIS	DEV+4*
ACHS	DEV+13*, K+1!
ACHS("$"	DATAFLD+4*, DATAFLD+8
ACHSBDT	DEV+12, K+1!
ACHSCNT	TITLE+2, DATAFLD+9, END+2, KILL+3!
ACHSDOC	DATAFLD+7*, DATAFLD+8, KILL+3!
ACHSDOC1	DATAFLD+1*, DATAFLD+7, KILL+3!
ACHSDOC2	DATAFLD+1*, DATAFLD+7, KILL+3!
>> ACHSERR	PRINT+2
ACHSFC	DATAFLD+7, KILL+1!
ACHSIDT	DATAFLD+3*, DATAFLD+8, KILL+3!
ACHSIO	TITLE+1*, K+1!
>> ACHSLOC	HDR+2
>> 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
>> ACHSTEST	LOOP2+3*, LOOP2+4
>> ACHSTIME	HDR+4
>> ACHSTYP	LOOP1+1*, LOOP2+2, DATAFLD+5
>> ACHSUSR	HDR+2
ACHSVNDR	DATAFLD+6*, DATAFLD+8, KILL+3!
>> ACHSVPTR	DATAFLD+2*, DATAFLD+6
>> ACHSVTYP	DATAFLD+5*, DATAFLD+8
DA	LOOP2+1, LOOP2+2, LOOP2+3, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, KILL+4!
DFN	KILL+4!
DT	PRINT+5
>> DTOUT	DEV+2
>> DUOUT	DEV+2
DUZ(2	LOOP2+2, LOOP2+3, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4
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, LOOP2+3, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+6
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

Name	Field # of Occurrence
$T(TITLE	DEV+12