Routine: ACHSHLGQ

Package	Total	Call Graph
VA Fileman	4	C^%DTC ^DIC WAIT^DICD ^DIR
Contract Health Management Information System	3	($$LOC,$$USR)^ACHS ^ACHSHLGC ^ACHSVAR
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
IHS VA Utilities	1	$$C^XBFUNC

Package

Total

Call Graph

VA Fileman

C^%DTC ^DIC WAIT^DICD ^DIR

Contract Health Management Information System

($$LOC,$$USR)^ACHS ^ACHSHLGC ^ACHSVAR

Kernel

(,HOME)^%ZIS ^%ZTLOAD

IHS VA Utilities

$$C^XBFUNC

Entry Points

Name	Comments	DBIA/ICR reference
SELBEG	;Select beginning date
SELQBY	;Select method of report.
D	; Select diagnosis or all diagnoses
SELEND	;Select ending date
REPTYP	;Choose Report Type
ZTLOAD	; Load Taskman
DICP
P	;Select individual or all patients
S	;Select active/non-active/scheduled/all
END	; Kill vars, quit.
DICV	; Lookup vendor if single vendor.
V	; Select vendor or all vendors
DEVICE	;Device Selection
DICD

External References

Name	Field # of Occurrence
C^%DTC	SELBEG+1, SELBEG+5
^%ZIS	DEVICE+2
HOME^%ZIS	DEVICE+4, ZTLOAD+3
^%ZTLOAD	ZTLOAD+3
$$LOC^ACHS	ACHSHLGQ+5
$$USR^ACHS	ACHSHLGQ+5
^ACHSHLGC	DEVICE+5
^ACHSVAR	ACHSHLGQ+3
^DIC	DICP, DICV+4, DICD
WAIT^DICD	DEVICE+5
^DIR	SELQBY+3, P+2, V+2, D+2, S+7, SELBEG+4, SELEND+3, REPTYP+2, DEVICE+3
$$C^XBFUNC	ACHSHLGQ+6, ACHSHLGQ+7, ACHSHLGQ+8, ACHSHLGQ+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$C^XBFUNC("*************************************",80) Line Location: ACHSHLGQ+6
Function Call: WRITE	Prompt: !,$$C^XBFUNC("* Queue HOSPITAL LOG for "_ACHSFAC_" "_"*",80) Line Location: ACHSHLGQ+7
Function Call: WRITE	Prompt: !,$$C^XBFUNC("* Enter '?' at any time for HELP."_" "_"*",80) Line Location: ACHSHLGQ+8
Function Call: WRITE	Prompt: !,$$C^XBFUNC("*************************************",80) Line Location: ACHSHLGQ+9
Function Call: WRITE	Prompt: ! Line Location: P+2
Function Call: WRITE	Prompt: !! Line Location: DICP+0
Function Call: WRITE	Prompt: ! Line Location: V+2
Function Call: WRITE	Prompt: !! Line Location: DICV+1
Function Call: WRITE	Prompt: ! Line Location: D+2
Function Call: WRITE	Prompt: !! Line Location: DICD+0
Function Call: WRITE	Prompt: ! Line Location: S+7
Function Call: WRITE	Prompt: 7,7,!!?5,"* Scheduled Admissions is unavailable with the Diagnosis option *" Line Location: S+9
Function Call: WRITE	Prompt: ! Line Location: SELBEG+4
Function Call: WRITE	Prompt: ! Line Location: SELEND+3
Function Call: WRITE	Prompt: *7,!!?20,"This report may take awhile to compile.",!?9," It is recommended that you QUEUE your output to a PRINTER.",! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED" Line Location: DEVICE+3
Routine Call	%ZIS Line Location: DEVICE+4 ZTLOAD+3
Routine Call	DIC Line Location: DICP DICV+4 DICD
Routine Call	DIR Line Location: SELQBY+3 P+2 V+2 D+2 S+7 SELBEG+4 SELEND+3 REPTYP+2 DEVICE+3
Routine Call	%ZIS Line Location: DEVICE+2

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	ACHSHLGQ+3
^TMP($J	ACHSHLGQ+4!

Label References

Name	Line Occurrences
@(	SELQBY+7
DEVICE	DEVICE+6
DICD	DICD+3
DICP	DICP+3
DICV	DICV+8
END	SELQBY+4, P+4, DICP+1, V+4, DICV+6, D+4, DICD+1, S+8, SELBEG+4, SELEND+3 , REPTYP+3, DEVICE+4
S	P+5, DICP+2, V+5, DICV+7, D+5, DICD+2, S+9, SELBEG+4
SELBEG	SELEND+3, REPTYP+3
SELQBY	P+3, V+3, D+3, S+8, DEVICE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ZTLOAD+2*
>> %ZIS	DEVICE+2*
ACHSADM	SELQBY+1!
ACHSATYP	S+1!, S+10*, SELBEG+2, SELBEG+3, SELEND+1, SELEND+2, END+1!
ACHSBEG	SELBEG+5*, END+1!
ACHSDIAG	SELQBY+1!, D+3!, DICD+1, DICD+2, S+9
ACHSDIAG(	DICD+3*
ACHSDIAG(0	D+5*
ACHSEND	SELEND+4*, END+1!
ACHSFAC	ACHSHLGQ+5*, ACHSHLGQ+7, END+1!
ACHSMAX	SELBEG+1, SELBEG+2, SELBEG+5, SELEND+1, END+1!
ACHSPAT	SELQBY+1!, P+3!, DICP+1, DICP+2
ACHSPAT(	DICP+3*
ACHSPAT(0	P+5*
ACHSQBY	SELQBY+1!, SELQBY+4!, SELQBY+5*, SELQBY+6, SELQBY+7
ACHSQIO	ZTLOAD+1*, END+1!
>> ACHSRTYP	REPTYP+4*
ACHSSTAT	SELQBY+6*, END+1!
ACHSUSR	ACHSHLGQ+5*, END+1!
ACHSVNDR	SELQBY+1!, V+3!, DICV+6, DICV+7
ACHSVNDR(	DICV+8*
ACHSVNDR(0	V+5*
DIC	DICP!, DICV+2!, DICV+3, DICV+5!, DICD!*
DIC(0	DICP, DICV+3, DICD*
DIR	SELQBY+1!, SELQBY+3!, P+2!, V+2!, D+2!, S+1!, S+7!, SELBEG+4!, SELEND+3!, REPTYP+2! , DEVICE+3!, END+2!
DIR("?"	SELQBY+2, P+1, V+1, D+1, S+3, S+4, S+5, S+6, REPTYP+1*
DIR("A"	SELQBY+2, P+1, V+1, D+1, S+2, SELBEG+3, SELEND+2, REPTYP+1
DIR("B"	SELQBY+2, P+1, V+1, D+1, S+2, REPTYP+1
DIR(0	SELQBY+2, P+1, V+1, D+1, S+2, SELBEG+2, SELEND+1, REPTYP+1, DEVICE+3*
DIROUT	SELQBY+4, P+4, V+4, D+4, S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DIRUT	SELQBY+4, P+3, V+3, D+3, S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DT	SELBEG+1, SELBEG+5
DTOUT	S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DUOUT	S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DUZ(2	ACHSHLGQ+3
IO("Q"	DEVICE+5, ZTLOAD+3!
IO("S"	DEVICE+5, DEVICE+6
IOM	ZTLOAD+1
ION	ZTLOAD+1
IOSL	ZTLOAD+1
IOST	DEVICE+6, ZTLOAD+1
>> POP	DEVICE+3
>> X	SELBEG+1, SELBEG+5
>> X1	SELBEG+1, SELBEG+5
>> X2	SELBEG+1, SELBEG+5
>> Y	SELQBY+5, P+5, DICP+1, DICP+2, DICP+3, V+5, DICV+6, DICV+7, DICV+8, D+5 , DICD+1, DICD+2, DICD+3, S+9, S+10, SELBEG+5, SELEND+4, REPTYP+4, DEVICE+4
>> ZTDESC	ZTLOAD+1*
>> ZTIO	ZTLOAD+1*
>> ZTRTN	ZTLOAD+1*
>> ZTSAVE(	ZTLOAD+2*
ZTSK	ZTLOAD+3!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSHLGQ

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: