Routine: IBDFC

Package	Total	Call Graph
Automated Information Collection System	7	FORM^IBDF2A $$CONVERT^IBDFC2 ($$ASKAUTO,$$ASKOTH)^IBDFC2B $$PADRIGHT^IBDFU $$SLCTFORM^IBDFU4 PAUSE^IBDFU5 DEVICE^IBDFUA
Kernel	5	^%ZIS ^%ZISC KILL^%ZISS ^%ZTLOAD DISP^XQORM1
Registration	4	EN^VALM FULL^VALM1 FLDCTRL^VALM10 EN^VALM2
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Information Collection System	2	IBDFC CONVERSION UTILITY IBDFC1
Integrated Billing	1	IBDFC CONVERSION UTILITY

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;
DISPLAY(IDX,FORM)	;
ONEXIT	;
ADDONE	;adds a single form to the list for conversion
REMOVE	;allows user to select a form, then deletes it
CNVTLIST	;
QUEUE
PRINT	;
VALMSG	;
DEVICE	;
ONENTRY	;
FORMLIST	;
HDR	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+5
^%ZISC	CNVTLIST+18
KILL^%ZISS	ONEXIT+1
^%ZTLOAD	QUEUE
^DIR	CNVTLIST+10
FORM^IBDF2A	PRINT+1
$$CONVERT^IBDFC2	CNVTLIST+17
$$ASKAUTO^IBDFC2B	CNVTLIST+15
$$ASKOTH^IBDFC2B	CNVTLIST+14
$$PADRIGHT^IBDFU	DISPLAY+4
$$SLCTFORM^IBDFU4	ADDONE+4
PAUSE^IBDFU5	ADDONE+5, ADDONE+11, ADDONE+13, CNVTLIST+6
DEVICE^IBDFUA	FORMLIST+4
EN^VALM	FORMLIST+7
FULL^VALM1	CNVTLIST+4, HELP+1
FLDCTRL^VALM10	DISPLAY+4
EN^VALM2	REMOVE+3
DISP^XQORM1	HELP+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This form is already a version "_$P(NODE,"^",17)_" form!" Line Location: ADDONE+5
Function Call: WRITE	Prompt: !,"This form previously converted, new form name = "_$P($G(^IBE(357,PREV,0)),"^") Line Location: ADDONE+10
Function Call: WRITE	Prompt: !!,"Form Name "_"CNV."_$E($P(NODE,"^"),1,41)_" already exists. Form must be renamed first!" Line Location: ADDONE+11
Function Call: WRITE	Prompt: !!,"No forms on List to convert!" Line Location: CNVTLIST+6
Function Call: WRITE	Prompt: !!,"Each form on the list will be made scannable. However, the results should be",!,"carefully reviewed before putting the form into use.",! Line Location: CNVTLIST+8
Function Call: WRITE	Prompt: !," You must queue the form to print. " Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,$C(7)," Forms require 132 columns and a page length of 80 lines. ",! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: QUEUE+0
Function Call: WRITE	Prompt: !!,"To convert a form follow the following steps:" Line Location: HELP+2
Function Call: WRITE	Prompt: !," 1. Use 'Add Form to List' to select the form. Add all the forms to" Line Location: HELP+3
Function Call: WRITE	Prompt: !," the list you wish to at this time." Line Location: HELP+4
Function Call: WRITE	Prompt: !," 2. Use 'Convert List' to convert the forms." Line Location: HELP+5
Function Call: WRITE	Prompt: !," 3. Use 'View Conversion Log' to review the conversion process and " Line Location: HELP+6
Function Call: WRITE	Prompt: !," assign the converted form to a clinic.",! Line Location: HELP+7
Function Call: WRITE	Prompt: !,"Hint: The conversion creates a new copy of your form with the same name" Line Location: HELP+8
Function Call: WRITE	Prompt: !," as the original but prefixed with 'CNV.'. (i.e. form PRIM CARE" Line Location: HELP+9
Function Call: WRITE	Prompt: !," would be renamed CNV.PRIM CARE)" Line Location: HELP+10
Function Call: WRITE	Prompt: ! Line Location: HELP+11
Routine Call	VALM Line Location: FORMLIST+7
Routine Call	DIR Line Location: CNVTLIST+10
Routine Call	%ZIS Line Location: DEVICE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBD(359 - [#359]	HDR+2, ADDONE+8, ADDONE+9, VALMSG+1, VALMSG+2
^IBE(357 - [#357]	ADDONE+10, ADDONE+11, DISPLAY+2
^TMP("IB"	ONEXIT+2!
^TMP("IBDF"	ONEXIT+2!

Label References

Name	Line Occurrences
DEVICE	CNVTLIST+12
DISPLAY	REMOVE+12, ADDONE+15
QUEUE	CNVTLIST+17
VALMSG	FORMLIST+6, REMOVE+14, ADDONE+5, ADDONE+12, ADDONE+16, CNVTLIST+6, CNVTLIST+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	DEVICE+5!
%ZIS	DEVICE+5!*
%ZIS("A"	DEVICE+5*
%ZIS("B"	DEVICE+5*
%ZIS("S"	DEVICE+5*
CNV	ADDONE+1~, ADDONE+8*, ADDONE+9
CNVNM	ADDONE+1~
D0	ONEXIT+2!
DA	ONEXIT+2!
DIR	REMOVE+2!, CNVTLIST+1~, CNVTLIST+9!, CNVTLIST+10!
DIR("A"	CNVTLIST+9*
DIR("B"	CNVTLIST+9*
DIR(0	CNVTLIST+9*
DIRUT	CNVTLIST+1~, CNVTLIST+10
DTOUT	CNVTLIST+1~
DUOUT	CNVTLIST+1~
FORM	REMOVE+1~, REMOVE+9, REMOVE+12, ADDONE+1~, ADDONE+4, ADDONE+8, ADDONE+15, DISPLAY~, DISPLAY+2, DISPLAY+4
I	ONEXIT+2!
>> IBDASK("ADDOTHER"	CNVTLIST+14*
>> IBDASK("AUTOCHG"	CNVTLIST+15*
IBDEVICE	FORMLIST+1~, FORMLIST+4
IBFASTXT	FORMLIST+2~, FORMLIST+3*
IBFORM	CNVTLIST+1~, CNVTLIST+17*, PRINT+1
IBQUIT	ONEXIT+2!, ADDONE+1~, ADDONE+2, ADDONE+10, ADDONE+13
IDX	DISPLAY~, DISPLAY+4, CNVTLIST+1~, CNVTLIST+17*
IOP	DEVICE+5!
LAST	REMOVE+1~, REMOVE+7*, REMOVE+8, REMOVE+9, REMOVE+10
NODE	ADDONE+1~, ADDONE+2, ADDONE+4, ADDONE+5, ADDONE+11, DISPLAY+1~, DISPLAY+2, DISPLAY+4
>> POP	DEVICE+6
PREV	ADDONE+1~, ADDONE+9*, ADDONE+10
PRINT	CNVTLIST+1~, CNVTLIST+2, CNVTLIST+11, CNVTLIST+17, CNVTLIST+18
QUIT	CNVTLIST+1~, CNVTLIST+2, CNVTLIST+10, DEVICE+6
SEL	REMOVE+1~, REMOVE+4*, REMOVE+5, REMOVE+7, REMOVE+12
>> VALMAR	ONENTRY+1, REMOVE+5, REMOVE+9, REMOVE+10, DISPLAY+4, CNVTLIST+6, CNVTLIST+17, CNVTLIST+19
VALMBCK	ONEXIT+2!, REMOVE+15, ADDONE+3, CNVTLIST+3*
>> VALMCNT	ONENTRY+1, REMOVE+7, REMOVE+11, REMOVE+13, ADDONE+15, DISPLAY+3
VALMEVL	FORMLIST+5!
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMSG	VALMSG+1, VALMSG+2
VALMY	ONEXIT+2!
VALMY(""	REMOVE+4
X	ONEXIT+2!, HELP+11*
>> XQORNOD(0	REMOVE+3
XQORS	FORMLIST+5!
Y	ONEXIT+2!, CNVTLIST+10
>> ZTDESC	QUEUE*
>> ZTDTH	QUEUE*
>> ZTRTN	QUEUE*
>> ZTSAVE("IBFORM"	QUEUE*
>> ZTSK	QUEUE

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFC

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: