Routine: IBDFCNOF

Information

IBDFCNOF ;ALB/CJM - AICS clinics with no forms ; JUL 20,1993

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
VA Fileman	2	Y^DIQ ^DIR
Registration	1	DIVISION^VAUTOMA

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Automated Information Collection System	3	IBDF LIST CLINICS WITH NO FORM IBDF14A IBDF15A
Integrated Billing	1	IBDF LIST CLINICS WITH NO FORM

Entry Points

Name	Comments	DBIA/ICR reference
SET	; -- build list into temporary array
DEVICE	; -- select device
ACLN(SC)	; function ; -- is clinic currently active ; Input SC := pointer to 44 ; Output := 1 if currently active ; 0 if currently inactive
ACLNQ
LIST	; -- lists the clinics using FORM
DIVIS	; -- Select division
HEADER	; -- writes the report header
PAUSE	; -- hold crt screen
EXIT	; -- end of report
ONELINE	; -- print line of report
NEWDIV	; -- print division totals and start new division
DQ	; -- entry point from taskmanager

Name	Field # of Occurrence
^%ZIS	DEVICE+2
HOME^%ZIS	DEVICE+3
^%ZISC	EXIT+3
^%ZTLOAD	DEVICE+3
Y^DIQ	SET+6
^DIR	PAUSE+3
DIVISION^VAUTOMA	DIVIS+2
$$HTE^XLFDT	DQ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AICS List of Clinics with No Encounter Form in Use",!! Line Location: IBDFCNOF+6
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"List of Clinics Without Encounter Forms",?IOM-32,IBHDT," PAGE ",PAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"For Division: ",DIVNAM Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"CLINICS",?27,"SERVICE",?47,"COMMENT" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: ?15,"No active clinics found without an assigned encounter form" Line Location: LIST+3
Function Call: WRITE	Prompt: !,"No clinics found for division '",DIVNAM,"'",! Line Location: LIST+7
Function Call: WRITE	Prompt: !,$E(NAME,1,25),?27,$E(SERV,1,18) Line Location: ONELINE+4
Function Call: WRITE	Prompt: ?47,$P(^TMP($J,"IBDCN",DIVIS,DIVNAM,SERV,NAME),"^",2)," " Line Location: ONELINE+5
Function Call: WRITE	Prompt: ?4,"(Clinic Currently Inactive)" Line Location: ONELINE+6
Function Call: WRITE	Prompt: !?10,"Division: ",DIVNAM,! Line Location: NEWDIV+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: DEVICE+3
Routine Call	%ZIS Line Location: DEVICE+3
Routine Call	DIR Line Location: PAUSE+3
Routine Call	%ZIS Line Location: DEVICE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(44	SET+6
^DG(40.8 - [#40.8]	SET+4, LIST+7
^DG(43 - [#43]	SET+3, DIVIS+2
^SC - [#44]	SET+2, ACLN+7
^SD(409.95 - [#409.95]	SET+7, SET+8, SET+9, SET+12
^TMP($J	EXIT+1!, DQ+1!, SET+11, SET+12, LIST+3, LIST+5, LIST+7, LIST+8, LIST+10, LIST+11 , ONELINE+5, DIVIS+3*

Name	Line Occurrences
$$ACLN	ONELINE+6
DEVICE	%+6
DIVIS	%+5
DQ	%+7
EXIT	%+5, %+6, DQ+4
HEADER	LIST+7, ONELINE+2, NEWDIV+3
LIST	DQ+4
NEWDIV	ONELINE+1
ONELINE	LIST+11
PAUSE	HEADER+1
SET	DQ+4

Name	Field # of Occurrence
^(	LIST+11
^("I"	ACLN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+2*
C	%+2~, SET+6*
CLINIC	%+2~, LIST+1~, LIST+11*, ONELINE+6
CLINNAM	SET+1~, SET+5*, SET+11, SET+12
COUNT	LIST+1~, LIST+4, LIST+12, ONELINE+7, NEWDIV+1, NEWDIV+4*
DIR	PAUSE+1~, LIST+1~
DIR(0	PAUSE+3*
DIVIS	%+2~, SET+1~, SET+3, SET+4, SET+11, SET+12, LIST+5, LIST+6, LIST+7, LIST+8 , LIST+10, LIST+11, ONELINE+5, NEWDIV+2
DIVNAM	%+2~, SET+1~, SET+4, SET+11, SET+12, HEADER+4, LIST+7, LIST+8*, LIST+10, LIST+11 , ONELINE+5, NEWDIV+4
DT	ACLN+8, ACLN+9
FLAG	ACLN+6~, ACLN+8, ACLN+9*, ACLNQ
IBDCNO	%+2~, SET+2*, SET+3, SET+5, SET+6
IBDFCL	SET+1~, SET+8*, SET+9
IBDFCNO	%+2~
IBDFIFN	%+2~, SET+2*, SET+7, SET+8, SET+11, SET+12
IBDFNODE	%+2~, SET+1~, SET+9*, SET+10, SET+11
IBHDT	%+2~, DQ+3*, HEADER+3
IBQUIT	%+2~, %+4, %+5, %+6, DQ+2, SET+1~, SET+10, SET+11, HEADER+1, PAUSE+3 , LIST+5, LIST+10, LIST+11, LIST+12, ONELINE+1, ONELINE+2, NEWDIV+1, NEWDIV+3, DEVICE+2, DEVICE+3 , DIVIS+2*
IO	DEVICE+4
IO("Q"	DEVICE+3
IOF	HEADER+2, LIST+2
IOM	HEADER+3, HEADER+7
IOSL	PAUSE+2, ONELINE+2
IOST	HEADER+1, LIST+2
MULTI	%+2~, SET+3, DIVIS+1, DIVIS+2
NAME	LIST+1~, LIST+11*, ONELINE+4, ONELINE+5
NEWDIV	LIST+1~, LIST+4, LIST+9, ONELINE+1, NEWDIV+4*
OLDDIV	LIST+1~, LIST+4, LIST+12, NEWDIV+1, NEWDIV+2
PAGE	%+2~, DQ+2, HEADER+1, HEADER+2, HEADER+3, HEADER+8
>> POP	DEVICE+2
SC	ACLN~, ACLN+7
SDIN	ACLN+6~, ACLN+7*, ACLN+8, ACLN+9
SDRE	ACLN+6~, ACLN+7*, ACLN+8, ACLN+9
SERV	%+2~, LIST+10*, LIST+11, ONELINE+4, ONELINE+5
SERVICE	%+2~, SET+1~, SET+6*, SET+11, SET+12
U	ACLN+7
VAUTD	%+2~, LIST+6, LIST+7, DIVIS+1*, DIVIS+3
VAUTD(	LIST+6, DIVIS+3
X	%+2~, SET+10, PAUSE+1~, DIVIS+1~, DIVIS+3
Y	%+2~, SET+6, PAUSE+1~, PAUSE+3, DIVIS+1~, DIVIS+2, ACLN+7
ZTDESC	EXIT+4!, DEVICE+3*
>> ZTQUEUED	EXIT+2, DEVICE+1
>> ZTREQ	EXIT+2*
ZTRTN	EXIT+4!, DEVICE+3*
ZTSAVE	EXIT+4!
ZTSAVE("MULTI"	DEVICE+3*
ZTSAVE("VA*"	DEVICE+3*
ZTSK	EXIT+4!, DEVICE+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFCNOF

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: