Routine: ACHSODQ

Package	Total	Call Graph
Contract Health Management Information System	4	(VIDEO,YN)^ACHS (FYCVT,READ)^ACHSFU ^ACHSODB ^ACHSUF
VA Fileman	2	C^%DTC WAIT^DICD
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSNEW ACHSOD

Entry Points

Name	Comments	DBIA/ICR reference
RE3A	; Print multiple copies of the selected DCR.
END	;
REDEV	;
RE2	;
RE3	;
DCR3	;EP
DCR2	;
DCR5	;
DCR4	;
RE4	;
NOQUE	;
START	;
REGHEAD	;
DCR2A	;PRINT MULTIPLE COPIES
REGSHOW	;
REPRINT	;
DCR	;

External References

Name	Field # of Occurrence
C^%DTC	DCR3+7
^%ZIS	REDEV+3, DCR3+20
HOME^%ZIS	REDEV+4, DCR3+21
VIDEO^ACHS	DCR2+1
YN^ACHS	REPRINT+4
FYCVT^ACHSFU	RE4+2
READ^ACHSFU	REPRINT+2, RE2+2, RE3A+2, DCR2+4, DCR2A+2
^ACHSODB	DCR5+5
^ACHSUF	START+2
WAIT^DICD	DCR5+3
$$DIR^XBDIR	RE4+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do You Wish To Re-Print A Prior Register ? NO// " Line Location: REPRINT+1
Function Call: WRITE	Prompt: *7," ??" Line Location: REPRINT+6
Function Call: WRITE	Prompt: !!,"Re-Print Register Number: " Line Location: RE2+1
Function Call: WRITE	Prompt: !," Enter The Register Number With The Fiscal Year Code And",!," Specific Register Number Separated By A Dash (e.g. 9-012)." Line Location: RE2+4
Function Call: WRITE	Prompt: !," If You Wish To See A List Of Register Numbers Enter The Fiscal Year",!," And A Question Mark Separated By A Dash (e.g. 6-?)." Line Location: RE2+5
Function Call: WRITE	Prompt: *7," ??" Line Location: RE3+6
Function Call: WRITE	Prompt: !!,"Enter number of copies: 1//" Line Location: RE3A+1
Function Call: WRITE	Prompt: !! Line Location: REDEV+1
Function Call: WRITE	Prompt: !!,*7," DCR REPRINT REQUEST CANCELLED" Line Location: REDEV+4
Function Call: WRITE	Prompt: *7,!!,"The Current Register, Number ",$E(ACHSACY,4),"-",$E("1000"+R,2,4),!,"Has Been Printed. Use The Re-Print Option If You",!,"Wish To Print This Register Again." Line Location: DCR+3
Function Call: WRITE	Prompt: *7,!!,"If you print this register, you will " Line Location: DCR2+2
Function Call: WRITE	Prompt: $G(IORVON) Line Location: DCR2+2
Function Call: WRITE	Prompt: $G(IORVON) Line Location: DCR2+2
Function Call: WRITE	Prompt: $G(IORVON) Line Location: DCR2+2
Function Call: WRITE	Prompt: !!,"Print Register Number ",$E(ACHSACY,4),"-",$E(1000+R,2,4)," ...Ok ? NO// " Line Location: DCR2+3
Function Call: WRITE	Prompt: !," Do You Wish To 'CLOSE' And Print This Register.",!," Enter 'Y' or 'N'." Line Location: DCR2+6
Function Call: WRITE	Prompt: *7," ??" Line Location: DCR2+8
Function Call: WRITE	Prompt: !!,"Enter number of copies: 1// " Line Location: DCR2A+1
Function Call: WRITE	Prompt: !,"Closing Current Registers And Printing 'DCRs'. Please Wait.....",! Line Location: DCR3+2
Function Call: WRITE	Prompt: !!,"The following REGISTERS have been CLOSED:",!!?12,"FY",?22,"REG #",! Line Location: DCR3+5
Function Call: WRITE	Prompt: !?10,ACHS,?20,$J(ACHSXX,5) Line Location: DCR3+13
Function Call: WRITE	Prompt: !! Line Location: DCR3+18
Function Call: WRITE	Prompt: *7,!!," DCR REQUEST CANCELLED",! Line Location: DCR3+21
Function Call: WRITE	Prompt: !!!,"Reg #",?8,"Ending Date",!,"-----",?8,"-----------",! Line Location: REGHEAD+3
Function Call: WRITE	Prompt: !,"No Past Registers to Print" Line Location: REGSHOW+2
Function Call: WRITE	Prompt: $E(ACHSACY,4),"-",$E(1000+I,2,4)," ",$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",$E(X,4,5))," ",$J(+$E(X,6,7),2),", ",$E(X,2,3),! Line Location: REGSHOW+3
Function Call: WRITE	Prompt: !,"NOTE: Queuing is not allowed in order to provide",!?6,"positive control over the registers.",! Line Location: NOQUE+1
Routine Call	%ZIS Line Location: REDEV+4 DCR3+21
Routine Call	%ZIS Line Location: REDEV+3 DCR3+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	RE4+11, RE4+12, DCR+2, DCR3+11, DCR3+12, DCR4+7, REGSHOW+1
^ACHSF - [#9002080]	RE4+11
^TMP("ACHSOD"	REDEV+5!, REDEV+7, REDEV+8, DCR3+3!, DCR3+15, DCR3+16, DCR4+8*

Label References

Name	Line Occurrences
DCR	REPRINT+5
DCR2	DCR+2, DCR2+6, DCR2+8, DCR2A+3
DCR2A	DCR2A+5
DCR3	DCR2A+4
DCR4	DCR4+9
DCR5	REDEV+9, DCR4+2
END	START+3, REPRINT+3, REPRINT+5, RE2+3, RE3+1, RE4+7, REDEV+4, DCR2+5, DCR5+3
NOQUE	REPRINT+4, DCR2+6
RE2	RE2+6, RE3+7, RE4+5, RE4+7, RE4+8
RE3	RE2+3, RE3A+3
RE3A	RE3+5, RE3A+5
RE4	RE3+5, RE3A+4
REGHEAD	RE4+4
REGSHOW	REGSHOW+1, REGSHOW+4
REPRINT	REPRINT+4, REPRINT+6, RE2+3, DCR+4, DCR2+5, DCR2+7
START	DCR2+5

Naked Globals

Name	Field # of Occurrence
^(	REGSHOW+1
^("DCR"	REDEV+7*
^(0	RE4+12, DCR+2, DCR4+7, REGSHOW+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	REDEV+2, DCR3+19, DCR3+21!
%ZIS("A"	DCR3+1*
>> ACHS	DCR3+10*, DCR3+11, DCR3+12, DCR3+13
>> ACHS("DCR"	DCR3+7
>> ACHSACFY	DCR+2
ACHSACRP	RE4+11, REDEV+7, REDEV+8, DCR4+6, END+1!
ACHSACY	RE4+3, RE4+11, RE4+12, REDEV+7, REDEV+8, DCR+1, DCR+3, DCR2+3, END+1!, REGSHOW+1 , REGSHOW+3
ACHSASK	START+1, REPRINT+5, DCR+1, END+1!
>> ACHSAUTO	DCR3+1, DCR3+2, DCR3+21
>> ACHSBDT	RE4+11, RE4+12, REDEV+7, REDEV+8, DCR4+6, DCR4+7, DCR4+8
>> ACHSCFY	DCR+1
ACHSDCR	DCR4+6*, DCR4+8, END+1!
>> ACHSDT	DCR3+6, DCR3+8, DCR3+11, DCR3+12, DCR3+16, DCR4+6
>> ACHSEDT	RE4+11, REDEV+7, REDEV+8, DCR4+6, DCR4+8
>> ACHSERR	START+3, DCR3+21*
>> ACHSFYDT	DCR4+6
>> ACHSFYWK(	DCR+1, DCR3+10, DCR3+11, DCR4+1, DCR4+3
>> ACHSIO	REDEV+6, REDEV+7, DCR3+4, DCR3+22*, DCR4+8, DCR5+4
>> ACHSNUM	RE3A+4, RE3A+6, DCR2A+4, DCR2A+6
>> ACHSR1	RE3+4*, RE3+5, RE4+1
>> ACHSRX	DCR3+17, DCR4+1, DCR4+2, DCR4+3, DCR4+7, DCR4+8
ACHSX	RE4+1*, END+1!
ACHSXX	DCR3+11, DCR3+12, DCR3+13, DCR4+3, DCR4+6, END+1!
ACHSY	RE4+3, END+1!
>> D	REDEV+7, DCR3+15
DT	DCR3+6
>> DTOUT	RE2+3, RE3A+3, RE4+7, DCR2+5, DCR2A+3
>> DUOUT	REPRINT+3, RE2+3, RE3A+3, RE4+7, DCR2+5, DCR2A+3
DUZ	REDEV+7, DCR3+15
DUZ(2	RE4+11, RE4+12, REDEV+5, REDEV+7, REDEV+8, DCR+1, DCR+2, DCR3+3, DCR3+10, DCR3+11 , DCR3+12, DCR3+15, DCR3+16, DCR4+1, DCR4+3, DCR4+7, DCR4+8, REGSHOW+1
>> E	REGHEAD+1*, REGSHOW+4
>> I	DCR2+2, REGHEAD+1, REGSHOW+1*, REGSHOW+2, REGSHOW+3
IO	REDEV+6, DCR3+4, DCR3+22
IO("S"	DCR5+2, DCR5+3
IO(0	DCR5+1
IOF	REGHEAD+2
>> IORVOFF	DCR2+2
>> IORVON	DCR2+2
IOSC	END+1!
>> POP	REDEV+4, DCR3+21
>> R	RE3+4, RE3+5, RE4+5, RE4+11, RE4+12, DCR+1, DCR+2, DCR+3, DCR2+3, DCR4+6 , DCR4+7, REGHEAD+1, REGHEAD+2
U	RE4+11, RE4+12, REDEV+7, DCR+2, DCR3+11, DCR3+15, DCR4+7, DCR4+8, REGSHOW+1
>> X	RE3+2, RE3+3, DCR3+6, DCR3+8, REGSHOW+1*, REGSHOW+2, REGSHOW+3
X1	DCR3+6*, DCR3+9!
X2	ACHSODQ+10!, DCR3+6*, DCR3+9!
X3	ACHSODQ+10!
>> Y	REPRINT+4, REPRINT+5, REPRINT+6, RE2+3, RE3+1, RE3+2, RE3+3, RE3+4, RE3A+3, RE3A+4 , RE3A+5, RE3A+6, RE4+6, RE4+8, REDEV+7, DCR2+5, DCR2+6, DCR2+7, DCR2+8, DCR2A+3 , DCR2A+4, DCR2A+5, DCR2A+6, DCR3+15

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSODQ

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: