Routine: ACHSSIG1

Information

ACHSSIG1 ;IHS/ITSC/JVK -STAMP ELECTRONIC SIGNATURE OF ORDERING OFC. ON PO [ 02/15/2005 7:59 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 ORDERING 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 TO BE PRINTED--
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+10, LOOP3+11
$$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,"No Documents Pending for Signature.",! Line Location: LOOP1+8
Function Call: WRITE	Prompt: !,?5,"No Documents Pending for 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 currently not authorized in the CHS E-SIG file.",! Line Location: CHECK+16
Function Call: WRITE	Prompt: !,"You are not an authorized Ordering Official.",! Line Location: CHECK+17
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($G(^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+19
Function Call: WRITE	Prompt: !!?10,"Answering YES will remove 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 additioanl 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]	CHECK+2, LOOP3+14
^ACHSF - [#9002080]	LOOP2+5, PRINT+8, LOOP3+4, LOOP3+17
^ACHSF("EAQ"	LOOP3+14*
^ACHSF("EQ"	LOOK+2, LOOP2+1, LOOP2+4, LOOP3+17!
^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+5
END	START+6, LOOP1+9, LOOP1+11, STAMP+2, STAMP+3, RMITMS+2, LOOP3+20, 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+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHSADT	CHECK+8*, END+2!
>> ACHSAMT	LOOP2+7, LOOP2+8, LOOP2+9, LOOP3+6, LOOP3+8, LOOP3+10, LOOP3+11
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+8, CHECK+7*, LOOP3+8, LOOP3+10, LOOP3+11
ACHSDIEN	LOOP2+2, LOOP2+4, LOOP2+5, LOOP2+9, LOOP3+5*, LOOP3+14, LOOP3+17, END+2!
ACHSDOC	LOOP2+5, LOOP2+6, LOOP2+7, 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+9
>> ACHSGO	LOOP1+2, LOOP1+5, LOOP1+9, LOOP2+10
>> ACHSI	RMITMS+7*, RMITMS+8
>> ACHSIADT	CHECK+9*, CHECK+16, LOOP3+10, LOOP3+11
>> ACHSIGA	CHECK+11*
>> ACHSIGO	CHECK+10*, CHECK+17
>> 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!
>> ACHSPG	HDR+1*, HDR+2
>> ACHSQUE	RMITMS+1*, RMITMS+2
>> ACHSQUIT	START+4, START+6, LOOP1+3, CHECK+15, CHECK+16, CHECK+17
ACHSSIG	LOOP1+5, CHECK+14*, STAMP+1, END+2!
>> ACHSSUM	LOOP3+2, LOOP3+12, LOOP3+19
>> ACHST1	PRINT+3*, HDR+3
>> ACHSTIME	HDR+3
>> ACHSTMP(	LOOP2+9*, PRINT+7, PRINT+8, RMITMS+11, RMITMS+12!, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, END+2!
ACHSTST	LOOP2+6*, LOOP2+9, END+2!
ACHSTYP	PRINT+9*, PRINT+10, END+2!
ACHSTYPV	LOOP1+3, LOOP2+1, LOOP2+4, LOOP3+7, LOOP3+14, LOOP3+17, END+2!
>> ACHSUSR	HDR+2
ACHSVAL	END+2!
ACHSVAL(	CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11
COUNT	START+3, LOOP2+9, LOOP2+10, 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+11
>> DTOUT	LOOP1+11, STAMP+2, RMITMS+3, ASK+9
>> DUOUT	LOOP1+3, LOOP1+11, LOOP2+4, STAMP+2, RMITMS+3, ASK+9
DUZ	CHECK+2, LOOP3+10
DUZ(2	LOOK+2, START+2, LOOP2+1, LOOP2+4, LOOP2+5, LOOP2+9, PRINT+7, PRINT+8, CHECK+2, CHECK+5 , LIST+5, RMITMS+11, RMITMS+12, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, LOOP3+14, LOOP3+17, END+2
IO	LOOK+5
IOF	HDR+2
U	LOOP2+6, LOOP2+7, LOOP2+9, 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, LOOP3+17
X1	CHECK+14, END+2!
X2	LOOK+6!
X3	LOOK+6!, PRINT+5*
>> Y	RMITMS+8

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSSIG1

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: