Routine: ACHSSIG2

Information

ACHSSIG2 ;IHS/ITSC/JVK-STAMP ELECTRONIC SIGNATURE OF AUTHORIZING OFC. ON PO [ 01/11/2005 7:33 AM ]

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS VA Utilities	4	$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK
Contract Health Management Information System	3	($$DIE,$$FC,BM,RTRN)^ACHS BRPT^ACHSFU FC^ACHSUF
Kernel	3	^%ZISC $$REPEAT^XLFSTR SIG^XUSESIG
VA Fileman	1	EN^DIQ1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS E-SIG AUTHORIZING OFC.

Entry Points

Name	Comments	DBIA/ICR reference
A	;--SET UP LIST MANAGER--
END	;
LOOK	;EP
STAMP	;--ASK IF YOU WANT ALL OR REMOVE ITEMS FROM LIST OF SET--
LIST	;--LIST ONLY THOSE PO W/OUT SIG IN FILE--
ASK	;
START	;
LOOP3	;--STUFF THE USER AND DATE OF ALL AUTHORIZED--
PRINT	;
LOOP2	;--SECOND LEVEL OF QUEUE ARRAY SET UP ACHSTMP ARRAY--
LOOP1	;--LOOP THRU QUEUE ARRAY FOR DOCUMENTS WAITING --
CHECK	;--IS THE USER AUTHORIZED IN THE CHS E-SIG FILE--
RMITMS	;--REMOVE THE ITEM FROM THE SET--
HDR	;

External References

Name	Field # of Occurrence
^%ZISC	END+3
$$DIE^ACHS	LOOP3+9, LOOP3+10
$$FC^ACHS	START+2
BM^ACHS	START+1
RTRN^ACHS	LOOK+4
BRPT^ACHSFU	PRINT+2
FC^ACHSUF	PRINT+1
EN^DIQ1	CHECK+6
$$DIR^XBDIR	STAMP+1, RMITMS+1, ASK+8
$$C^XBFUNC	PRINT+3, HDR+2
VIEWR^XBLM	A+1, ASK+10, ASK+11
EN^XBVK	END+1
$$REPEAT^XLFSTR	HDR+4
SIG^XUSESIG	CHECK+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no documents in the Queue!" Line Location: LOOK+3
Function Call: WRITE	Prompt: !!!,?5,"YOUR SITE PARAMETERS INDICATE THIS IS NOT A MULTIPLE SIGNATURE SITE.",!,?5,"THIS OPTION IS NOT AVAILABLE FOR USE." Line Location: START+6
Function Call: WRITE	Prompt: !,?5,"No Documents Pending for your Signature.",! Line Location: LOOP1+8
Function Call: WRITE	Prompt: !,?5,"No Documents Pending for your Signature.",! Line Location: LOOP1+9
Function Call: WRITE	Prompt: !,"You are not authorized in the CHS E-SIG file.",! Line Location: CHECK+15
Function Call: WRITE	Prompt: !,"You are not an authorized Authorizing Official.",! Line Location: CHECK+16
Function Call: WRITE	Prompt: !,COUNT,?9,$P(ACHSDOC,U,14)_"-"_ACHSFC_"-"_$P(ACHSDOC,U,1) Line Location: LIST+1
Function Call: WRITE	Prompt: ?25,$P(^AUTTVNDR($P(ACHSDOC,U,8),0),U) Line Location: LIST+2
Function Call: WRITE	Prompt: ?55,$FN($P(ACHSDOC,U,9),",",2) Line Location: LIST+3
Function Call: WRITE	Prompt: !,?9,"CAN-OCC-SCC: ",$P(^ACHS(2,$P(ACHSDOC,U,6),0),U),"-",$P(^ACHSOCC($P(ACHSDOC,U,10),0),U),"-",$P(^ACHS(3,DUZ(2),1,$P(ACHSDOC,U,7),0),U),?50,ACHSLST Line Location: LIST+5
Function Call: WRITE	Prompt: !,?9,$P(^DPT($P(ACHSDOC,U,22),0),U),! Line Location: LIST+8
Function Call: WRITE	Prompt: !,?9,"--Blanket Order/Special Local--",! Line Location: LIST+9
Function Call: WRITE	Prompt: !,?5,$P(ACHSDOC,U,14)_"-"_ACHSFC_"-"_$P(ACHSDOC,U,1)," Sorry this document exceeds your delegation of authority",! Line Location: LOOP3+8
Function Call: WRITE	Prompt: !,?5,ACHSSUM," DOCUMENTS APPROVED",! Line Location: LOOP3+16
Function Call: WRITE	Prompt: !!,?10,"Answering YES will remove the items you do not want approved" Line Location: ASK+2
Function Call: WRITE	Prompt: !?10,"from the viewing list and approve all others.",! Line Location: ASK+3
Function Call: WRITE	Prompt: !?10,"Answering NO will remove the items you already selected" Line Location: ASK+4
Function Call: WRITE	Prompt: !?10,"from the viewing list and allow you to remove additional items.",! Line Location: ASK+5
Function Call: WRITE	Prompt: !?10,"If you do not want to approve anything select all the items or" Line Location: ASK+6
Function Call: WRITE	Prompt: !?10,"enter ^. This approves nothing.",!! Line Location: ASK+7
Function Call: WRITE	Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANAGEMENT SYSTEM *",80),!!,ACHSLOC,! Line Location: HDR+2
Function Call: WRITE	Prompt: ACHSTIME,!,ACHST1 Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"ITEM NO.",?9,"PO No.",?25,"Vendor",?50,"Obligation Amt",!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+4

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(2 - [#9002062]	LIST+5
^ACHS(3 - [#9002063]	LIST+5
^ACHSESIG - [#9002080.1]	START+5, CHECK+2
^ACHSF - [#9002080]	LOOP2+5, PRINT+8, LOOP3+4, LOOP3+14
^ACHSF("EAQ"	LOOK+2, LOOP2+1, LOOP2+4, LOOP3+14!
^ACHSOCC - [#9002078.5]	LIST+5
^AUTTVNDR - [#9999999.11]	LIST+2
^DPT - [#2]	LIST+8

Name	Line Occurrences
A	LOOP1+5
ASK	STAMP+4, RMITMS+3, ASK+10
CHECK	START+7
END	START+6, START+8, LOOP1+9, LOOP1+11, STAMP+2, STAMP+3, RMITMS+2, LOOP3+17, ASK+9
HDR	PRINT+4
LIST	PRINT+11
LOOP2	LOOP1+3
LOOP3	STAMP+3
RMITMS	STAMP+4, ASK+10
STAMP	A+2

Name	Field # of Occurrence
^(0	LOOP3+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHSADT	CHECK+8*, END+2!
>> ACHSAMT	LOOP2+10, LOOP2+11, LOOP2+12, LOOP3+6, LOOP3+8, LOOP3+9, LOOP3+10
ACHSANS	LOOK+1, STAMP+1, STAMP+3, STAMP+4, END+2!
ACHSAU	CHECK+1, CHECK+2, CHECK+3, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11, CHECK+15 , END+2!
>> ACHSDAMT	LOOP2+11, CHECK+7*, LOOP3+8, LOOP3+9, LOOP3+10
ACHSDIEN	LOOP2+2, LOOP2+4, LOOP2+5, LOOP2+12, LOOP3+5*, LOOP3+14, END+2!
ACHSDOC	LOOP2+5, LOOP2+6, LOOP2+7, LOOP2+10, PRINT+8, PRINT+9, LIST+1, LIST+2, LIST+3, LIST+5 , LIST+8, LIST+9, LOOP3+4*, LOOP3+7, LOOP3+8, END+2!
>> ACHSDONE	ASK+1, ASK+8, ASK+10, ASK+11
>> ACHSFC	START+2*, LIST+1, LOOP3+8
>> ACHSFLG	LOOP2+3, LOOP2+12
>> ACHSGO	LOOP1+2, LOOP1+5, LOOP1+9, LOOP2+13
>> ACHSI	RMITMS+7*, RMITMS+8
>> ACHSIADT	CHECK+9*, LOOP3+9, LOOP3+10
>> ACHSIGA	CHECK+11*, CHECK+16
>> ACHSIGO	CHECK+10*
>> ACHSIO	LOOK+5*
>> ACHSITM	RMITMS+6, RMITMS+7, RMITMS+8, RMITMS+9, RMITMS+10, RMITMS+11, RMITMS+12
>> ACHSLOC	HDR+2
ACHSLST	PRINT+10*, LIST+5, END+2!
>> ACHSMULT	START+5*, START+6
>> ACHSPG	HDR+1*, HDR+2
>> ACHSQUE	RMITMS+1*, RMITMS+2, ASK+11
>> ACHSQUIT	START+4, START+8, LOOP1+3, CHECK+15, CHECK+16*
ACHSSIG	LOOP1+5, CHECK+14*, STAMP+1, END+2!
>> ACHSSUM	LOOP3+2, LOOP3+11, LOOP3+16
>> ACHST1	PRINT+3*, HDR+3
>> ACHSTIME	HDR+3
>> ACHSTMP(	LOOP2+12*, PRINT+7, PRINT+8, RMITMS+11, RMITMS+12!, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, END+2!
ACHSTST	END+2!
>> ACHSTST1	LOOP2+6*, LOOP2+9
>> ACHSTST2	LOOP2+7*, LOOP2+12
ACHSTYP	PRINT+9*, PRINT+10, END+2!
ACHSTYPV	LOOP1+3, LOOP2+1, LOOP2+4, LOOP3+7, LOOP3+14, END+2!
>> ACHSUSR	HDR+2
ACHSVAL	END+2!
ACHSVAL(	CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11
COUNT	START+3, LOOP2+12, LOOP2+13, PRINT+6, PRINT+7, PRINT+8, LIST+1, LOOP3+1, LOOP3+3, LOOP3+4 , LOOP3+5, LOOP3+6, END+2!
>> DA	CHECK+5*
>> DA(	CHECK+6*
DIC	CHECK+4!, CHECK+5*, END+2!
DIQ	CHECK+4!, CHECK+6*, END+2!
>> DR	CHECK+5*
>> DR(	CHECK+6*
DT	LOOP3+10
>> DTOUT	LOOP1+11, STAMP+2, RMITMS+3, ASK+9
>> DUOUT	LOOP1+3, LOOP1+11, LOOP2+4, STAMP+2, RMITMS+3, ASK+9
DUZ	LOOP2+9, CHECK+2, LOOP3+9
DUZ(2	LOOK+2, START+2, START+5, LOOP2+1, LOOP2+4, LOOP2+5, LOOP2+12, PRINT+7, PRINT+8, CHECK+2 , CHECK+5, LIST+5, RMITMS+11, RMITMS+12, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, LOOP3+14, END+2
IO	LOOK+5
IOF	HDR+2
U	START+5, LOOP2+6, LOOP2+7, LOOP2+10, LOOP2+12, PRINT+8, PRINT+9, CHECK+7, CHECK+8, CHECK+9 , CHECK+10, CHECK+11, LIST+1, LIST+2, LIST+3, LIST+5, LIST+8, LIST+9, LOOP3+4, LOOP3+5 , LOOP3+6, LOOP3+7, LOOP3+8, LOOP3+14
X1	CHECK+14, END+2!
X2	LOOK+6!
X3	LOOK+6!, PRINT+5*
>> Y	RMITMS+5, RMITMS+8

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSSIG2

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: