Routine: ACHSYEX

Package	Total	Call Graph
Contract Health Management Information System	2	($$DOC,$$FC,RTRN)^ACHS ^ACHSUD
IHS VA Utilities	2	$$DIR^XBDIR EN^XBSFGBL
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	$$IENS^DILF $$GET1^DIQ

Package

Total

Call Graph

Contract Health Management Information System

($$DOC,$$FC,RTRN)^ACHS ^ACHSUD

IHS VA Utilities

$$DIR^XBDIR EN^XBSFGBL

Kernel

^%ZIS ^%ZISC

VA Fileman

$$IENS^DILF $$GET1^DIQ

Name	Comments	DBIA/ICR reference
C	; --- Captioned output.
SUBFILE(ACHSFILE,ACHSDA)	; $O thru a subfile, all records.
BPO	;
PO(ACHS)	;
EPO	;
R	; --- Record output
RECORD(ACHSFILE,ACHSDA)	; Write all fields in one sub-file record.
NUM(X)	;
STOP()	;

Name	Field # of Occurrence
^%ZIS	EPO+10
^%ZISC	EPO+15
$$DOC^ACHS	PO+4
$$FC^ACHS	PO+4
RTRN^ACHS	EPO+15
^ACHSUD	PO+2
$$IENS^DILF	RECORD+3
$$GET1^DIQ	R+8, R+12, R+13, RECORD+6
$$DIR^XBDIR	ACHSYEX+19, EPO+13
EN^XBSFGBL	SUBFILE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You'll be asked for a beginning and ending P.O. number." Line Location: ACHSYEX+16
Function Call: WRITE	Prompt: !,"The info from the selected P.O.(s) will be extracted to the selected Device." Line Location: ACHSYEX+17
Function Call: WRITE	Prompt: !,"Press the ESCAPE key to stop.",!! Line Location: ACHSYEX+18
Function Call: WRITE	Prompt: *7,!,"Beginning P.O. is later than the Ending P.O. ??" Line Location: EPO+8
Function Call: WRITE	Prompt: !!,"Processing ",$$NUM(ACHSBPO),", to end at ",$$NUM(ACHSEPO),".",! Line Location: R+4
Function Call: WRITE	Prompt: !!,"Press the ESCAPE (Esc) key to stop...",! Line Location: R+5
Function Call: WRITE	Prompt: ACHSR,! Line Location: R+9
Function Call: WRITE	Prompt: ACHSR,! Line Location: R+14
Function Call: WRITE	Prompt: !!,"Processing ",$$NUM(ACHSBPO),", to end at ",$$NUM(ACHSEPO),".",! Line Location: C+6
Function Call: WRITE	Prompt: !!,"Press the ESCAPE (Esc) key to stop...",! Line Location: C+7
Function Call: WRITE	Prompt: "BEGIN RECORD "_$P($P(^DD(ACHSFILE,0),U,1)," SUB-FIELD",1),! Line Location: RECORD+1
Function Call: WRITE	Prompt: $P(^DD(ACHSFILE,ACHSFLD,0),U,1),U,%,! Line Location: RECORD+8
Function Call: WRITE	Prompt: "END RECORD "_$P($P(^DD(ACHSFILE,0),U,1)," SUB-FIELD",1),! Line Location: RECORD+10
Function Call: WRITE	Prompt: *7 Line Location: STOP+4
Function Call: READ	Timeout: 0 Variable: X Line Location: STOP+5
Function Call: WRITE	Prompt: !!!,"Select the ",ACHS," P.O. Number..." Line Location: PO+1
Routine Call	%ZIS Line Location: EPO+10

FileNo	Call Tags
9002080.01	GET1^DIQ
9002080.02	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	R+1, R+2, R+11, C+3, C+4
^DD(	RECORD+1, RECORD+4, RECORD+5, RECORD+8, RECORD+10

Name	Line Occurrences
$$NUM	R+4, C+6
$$PO	BPO+1, EPO+1
$$STOP	R+1, C+3
@(	EPO+13
BPO	EPO+2, EPO+8
RECORD	C+9, SUBFILE+7
SUBFILE	RECORD+5

Name	Field # of Occurrence
^(0	RECORD+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RECORD+6, RECORD+7, RECORD+8, SUBFILE+5
ACHS	PO~, PO+1
ACHSBPO	ACHSYEX+21~, BPO+1, EPO+5, EPO+8, R+1, R+2, R+4, C+3, C+4, C+6
ACHSDA	C+1~, C+4*, C+9, RECORD~, RECORD+3, RECORD+5, SUBFILE~, SUBFILE+6
ACHSDA(	SUBFILE+5
ACHSDA(1	C+2*, C+3, C+4
ACHSDIEN	ACHSYEX+21~, R+2*, R+8, R+11, R+12, R+13, PO+3
ACHSDR	ACHSYEX+21~, R+8, R+13
ACHSEPO	ACHSYEX+21~, EPO+1, EPO+6, EPO+8, R+1, R+4, C+3, C+6
>> ACHSFC	NUM+1
ACHSFILE	RECORD~, RECORD+1, RECORD+4, RECORD+5, RECORD+6, RECORD+8, RECORD+10, SUBFILE~, SUBFILE+3, SUBFILE+7
ACHSFLD	RECORD+2~, RECORD+3, RECORD+4, RECORD+5, RECORD+6, RECORD+8
ACHSIENS	RECORD+2~, RECORD+3*, RECORD+6
ACHSR	ACHSYEX+21~, R+7, R+8, R+9, R+10, R+12, R+13, R+14, R+15
ACHSREF	SUBFILE+1~, SUBFILE+2, SUBFILE+3, SUBFILE+4, SUBFILE+7
ACHSTIEN	ACHSYEX+21~, R+10, R+11, R+13
DA	SUBFILE+1~, SUBFILE+6, SUBFILE+7
DA(	SUBFILE+5*
DA(1	SUBFILE+6*
>> DTOUT	BPO+2, EPO+3
>> DUOUT	BPO+2, EPO+2, PO+3*
DUZ(2	R+1, R+2, R+8, R+11, R+12, R+13, C+2, PO+4
IO	R+6, C+8
IO(0	R+3, R+17, C+5, C+10
>> POP	EPO+11
U	R+8, R+12, R+13, RECORD+1, RECORD+5, RECORD+8, RECORD+10
X	STOP+1~, STOP+2, STOP+3, STOP+5, NUM~, NUM+1

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSYEX

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: