Routine: IBDF15A

Information

IBDF15A ;ALB/CJM - AICS FORM USE BY DIVISION/CLINIC ; JUL 20,1993

Source Information

Source file <IBDF15A.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Automated Information Collection System	1	$$ACLN^IBDFCNOF
Registration	1	$$PRIM^VASITE
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Information Collection System	2	IBDF15 IBDY336

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	; -- hold screen
ALL(FORMNAM,CL1,DV1)	; ; -- find all clinics using for irregardless of division ; stored in ^TMP($J,"IBDCS",DIVNAM,DIVIS,FORMNAM,FORM,CLNAME)
HEADER	; -- writes the report header
LIST	; -- lists the clinics using FORM
TYPE(IDX)	; ; -- type of form ; input cross reference from print Manager Clinic Setups (409.95) ; output name of type of form ; IDX="C","D","E","F","G","H","I","J"
LINEONE	; -- print on report header, lines, etc.
LINETHR	; -- print lines for clinics in other divisions
PRINT	; -- Main print driver
TYPEQ
CLINIC(FORM,FORMNAM)	; ; -- finds the list of clinics using FORM ; ^TMP($J,"IBDCS",0) is number of clinics found ; ^TMP($J,"IBDCS",divname, div pointer, form name, form pointer, ; clinic name)=clinic pointer := is list of clinics
LINETWO	; -- print lines for forms not in use

External References

Name	Field # of Occurrence
^DIR	PAUSE+3
$$ACLN^IBDFCNOF	LINEONE+5, LINETHR+3
$$PRIM^VASITE	CLINIC+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LIST+13
Function Call: WRITE	Prompt: !,?10,"Division: ",DIVNAM Line Location: LINEONE+2
Function Call: WRITE	Prompt: !,FORMNAM,?32,$E(CLNAME,1,25),?59,$E(DIVNAM,1,20),?81,$$TYPE(IDX) Line Location: LINEONE+4
Function Call: WRITE	Prompt: ?100," (Clinic Currently Inactive)" Line Location: LINEONE+5
Function Call: WRITE	Prompt: !,FORMNAM,?32," NOT IN USE " Line Location: LINETWO+3
Function Call: WRITE	Prompt: !,?32,CLNAME,?59,$E(DIVNAM,1,20),?81,$$TYPE(IDX) Line Location: LINETHR+2
Function Call: WRITE	Prompt: ?100," (Clinic Currently Inactive)" Line Location: LINETHR+3
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"List of Encounter Forms and their Use by Clinics",?IOM-30,IBHDT," PAGE ",PAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"For Division: ",$G(DIVNAM) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"FORM NAME",?32,"CLINIC",?59,"DIVISION",?81,"FORM USAGE" Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HEADER+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIR Line Location: PAUSE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CLINIC+15
^IBE(357 - [#357]	PRINT+2, PRINT+3
^SC - [#44]	CLINIC+11, CLINIC+13
^SD(409.95 - [#409.95]	CLINIC+8, CLINIC+9
^TMP($J	CLINIC+18, CLINIC+19, CLINIC+20*, LIST+5, LIST+10, LIST+13, LIST+17, ALL+6, ALL+7, ALL+8

Label References

Name	Line Occurrences
$$TYPE	LINEONE+4, LINETHR+2
ALL	LIST+13
CLINIC	PRINT+4
HEADER	LINEONE+2, LINEONE+3, LINETWO+1, LINETWO+2, LINETHR+1
LINEONE	LIST+13
LINETHR	ALL+10
LINETWO	LIST+17
LIST	PRINT+5
PAUSE	PRINT+6, HEADER+1
TYPEQ	TYPE+8

Naked Globals

Name	Field # of Occurrence
^(	LIST+13, ALL+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CL1	ALL~, ALL+9
CLINIC	CLINIC+6~, CLINIC+9, CLINIC+10, CLINIC+11, CLINIC+13, CLINIC+18, LIST+1~, LIST+13, LINEONE+5, LINETHR+3 , ALL+8*
CLNAME	CLINIC+6~, CLINIC+11, CLINIC+12, CLINIC+18, LIST+1~, LIST+12, LIST+13, LINEONE+4, LINETHR+2, ALL+4~ , ALL+8, ALL+9
CNT	CLINIC+6~, CLINIC+17*, CLINIC+20
DIR	PAUSE+1~
DIR(0	PAUSE+3*
DIVIS	CLINIC+6~, CLINIC+13, CLINIC+14, CLINIC+15, CLINIC+18, CLINIC+19, LIST+1~, LIST+5, LIST+10, LIST+13 , ALL+4~, ALL+6, ALL+7, ALL+8
DIVNAM	CLINIC+6~, CLINIC+15, CLINIC+16, CLINIC+18, CLINIC+19, LIST+1~, LIST+4, LIST+5, LIST+10, LIST+13 , LIST+16, LINEONE+2, LINEONE+4, LINETHR+2, ALL+4~, ALL+5, ALL+6*, ALL+7, ALL+8, ALL+9 , HEADER+4
DV1	ALL~, ALL+9
FORM	PRINT+2, PRINT+3, PRINT+4, CLINIC~, CLINIC+8, CLINIC+18, CLINIC+20, LIST+1~, LIST+10, LIST+13 , LIST+17, LINEONE+6, ALL+4~, ALL+7, ALL+8
FORMNAM	PRINT+2, PRINT+4, CLINIC~, CLINIC+18, CLINIC+20, LIST+1~, LIST+9, LIST+10, LIST+13, LIST+16 , LIST+17*, LINEONE+4, LINETWO+3, ALL~, ALL+7, ALL+8
IBDONE	LIST+1~, LIST+8!
IBDONE(	LIST+13, LINEONE+6*
>> IBHDT	HEADER+3
>> IBQUIT	PRINT+2, PRINT+6, LIST+5, LIST+10, LIST+13, LIST+17, LINEONE+2, LINEONE+3, LINETWO+1, LINETWO+2 , LINETHR+1, ALL+6, ALL+8, HEADER+1, PAUSE+3*
IDX	CLINIC+6~, CLINIC+7, CLINIC+8, CLINIC+18, LIST+1~, LIST+13, LINEONE+4, LINETHR+2, TYPE~, TYPE+7* , TYPE+8, TYPE+9, TYPE+10
IOF	PRINT+1, HEADER+2
IOM	HEADER+3, HEADER+6
IOSL	LINEONE+3, LINETWO+2, LINETHR+1, PAUSE+2
IOST	PRINT+1, PRINT+6, HEADER+1
>> MULTI	CLINIC+14
NEWDIV	LIST+1~, LIST+4, LIST+7, LIST+16, LINEONE+2, LINETWO+1*
>> PAGE	HEADER+1, HEADER+2, HEADER+3, HEADER+7*
SETUP	CLINIC+6~, CLINIC+8*, CLINIC+9
>> VAUTD	LIST+5, ALL+6
>> VAUTD(	LIST+5, ALL+6
X	PAUSE+1~, TYPE+6~, TYPE+8, TYPE+9, TYPE+10*, TYPEQ
Y	PAUSE+1~, PAUSE+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF15A

Call Graph Total: 3

Caller Graph Total: 2