Routine: IBDFDE9

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ENDR^%ZISS ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Automated Information Collection System	3	PAUSE^IBDFDE FRMLSTI^IBDFRPC OBJLST^IBDFRPC1
VA Fileman	2	DT^DICRW ^DIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ENDR^%ZISS ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT

Automated Information Collection System

PAUSE^IBDFDE FRMLSTI^IBDFRPC OBJLST^IBDFRPC1

VA Fileman

DT^DICRW ^DIR

Package	Total	Caller Graph
Automated Information Collection System	1	IBD MANUAL DATA DISPLAY
Integrated Billing	1	IBD MANUAL DATA DISPLAY

Package

Total

Caller Graph

Automated Information Collection System

IBD MANUAL DATA DISPLAY

Integrated Billing

IBD MANUAL DATA DISPLAY

Entry Points

Name	Comments	DBIA/ICR reference
LISTOB	; -- list items available for input on a form
END
HDR	; -- print patient header
RULES(RULE)	; -- look at zero node, find qualifiers and selection rule
STRT	; -- ask for form id
STRTQ
DQ	; -- entry point to list contents of one form, ; Input IBDFMIEN := pointer to Encounter Form (357)

Name	Field # of Occurrence
^%ZIS	STRT+8
HOME^%ZIS	%+3, STRT+10
^%ZISC	END+3
ENDR^%ZISS	STRT+12
^%ZTLOAD	STRT+10
DT^DICRW	%+2
^DIR	STRT+3
PAUSE^IBDFDE	STRTQ, HDR+2
FRMLSTI^IBDFRPC	DQ+8
OBJLST^IBDFRPC1	LISTOB+16
$$FMTE^XLFDT	DQ+5
$$NOW^XLFDT	DQ+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Display Form Components for Data Entry",!! Line Location: IBDFDE9+7
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: STRT+10
Function Call: WRITE	Prompt: !! Line Location: STRT+10
Function Call: WRITE	Prompt: !,"CHECKOUT INTERVIEW",?27,"",?45,"As Required",! Line Location: LISTOB+1
Function Call: WRITE	Prompt: ! Line Location: LISTOB+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Form Components Available for Data Entry",?IOM-32,IBDPDT," PAGE: ",IBDPAG Line Location: HDR+4
Function Call: WRITE	Prompt: !,"COMPONENT",?27,"TYPE",?45,"RULE",?60,"QUALIFIER" Line Location: HDR+5
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+6
Function Call: WRITE	Prompt: !," Form Name: ",$E($P($G(^IBE(357,+IBDFMIEN,0)),"^"),1,25) Line Location: HDR+7
Function Call: WRITE	Prompt: !," Form Status: ",$S(+$P($G(^IBE(357,+IBDFMIEN,0)),"^",5):"Compiled",1:"Uncompiled"),! Line Location: HDR+8
Function Call: WRITE	Prompt: ?45,"Data Entry Not allowed",!,?45,"Marking areas not Bubbles" Line Location: RULES+3
Function Call: WRITE	Prompt: ?45,$P("Any Number^Exactly One^At Most One^At Least One","^",(RULE(I)+1)) Line Location: RULES+7
Function Call: WRITE	Prompt: ?45,"Optional" Line Location: RULES+8
Function Call: WRITE	Prompt: ?60,$G(IOINHI),"Required/Missing",$G(IOINORM) Line Location: RULES+12
Routine Call	%ZIS Line Location: %+3 STRT+10
Routine Call	DIR Line Location: STRT+3
Routine Call	%ZIS Line Location: STRT+8

Name	Line Occurrences (* Changed, ! Killed)
^DPT(0	LISTOB+14
^IBE(357 - [#357]	HDR+7, HDR+8
^IBE(357.6 - [#357.6]	LISTOB+9, RULES+12
^SC(0	LISTOB+14
^TMP("IBD-LST"	LISTOB+15
^TMP("IBD-OBJ"	DQ+8, LISTOB+2, LISTOB+4, END+2!

Name	Line Occurrences
DQ	STRT+13
END	STRT+1, STRT+4, STRTQ
HDR	DQ+6, LISTOB+3
LISTOB	DQ+9
RULES	LISTOB+17
STRT	STRT+10, STRTQ+1
STRTQ	STRT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	STRT+8*
CHOICE	END+1!
DA	STRT+3!, END+1!
DIC	STRT+3!, END+1!
DIE	END+1!
DIR	%~, STRT+3!, END+1!
DIR("?"	STRT+2*
DIR("A"	STRT+3*
DIR(0	STRT+3*
DIRUT	%~, STRT+4, END+1!
DQR	RULES+1~
DR	STRT+3!, END+1!
DT	%+2
DTOUT	%~, END+1!
DUOUT	%~, END+1!
I	%~, LISTOB+2, LISTOB+4, END+1!, RULES+1~, RULES+4, RULES+5, RULES+7, RULES+10, RULES+11 , RULES+12, RULES+13, RULES+15
IBDCO	END+1!
IBDF	%~, LISTOB+16, END+1!
IBDF("CLINIC"	LISTOB+14*
IBDF("DFN"	LISTOB+14*
IBDF("IEN"	LISTOB+7*, LISTOB+8, LISTOB+15
IBDF("PI"	LISTOB+6*, LISTOB+8, LISTOB+9, LISTOB+15, RULES+12
IBDF("RULE-ONLY"	LISTOB+14*
IBDF("TYPE"	LISTOB+6*, LISTOB+12
IBDF("VITAL"	LISTOB+7*, RULES+7, RULES+10
IBDFMIEN	%~, STRT+5*, DQ+8, LISTOB+2, LISTOB+4, LISTOB+15, HDR+7, HDR+8
>> IBDOBJ	LISTOB+4*, LISTOB+5, LISTOB+6, LISTOB+7, LISTOB+10
IBDOJB	%~
IBDPAG	%~, DQ+4, HDR+1, HDR+2, HDR+3, HDR+4, END+1!
IBDPDT	%~, DQ+5*, HDR+4
IBDPI	END+1!
IBDSEL	END+1!
IBQUIT	%~, STRTQ, DQ+3*, LISTOB+2, LISTOB+3, HDR+2
IO	STRT+11
IO("Q"	STRT+10
IOF	HDR+3
>> IOINHI	RULES+12
>> IOINORM	RULES+12
IOM	HDR+4, HDR+6
IOSL	LISTOB+3
IOST	LISTOB+3, HDR+2, HDR+3
J	%~, END+1!
>> POP	STRT+8
QLFR	%~, RULES+1~, RULES+2*
QLFR(	RULES+4, RULES+10, RULES+11, RULES+12, RULES+13
RESULT	END+1!
>> ROW	RULES+4*
>> RTN	LISTOB+9*
RULE	%~, LISTOB+16, LISTOB+17, RULES~, RULES+2, RULES+4, RULES+15
RULE(	RULES+4*, RULES+7
RULE(0	LISTOB+15*, LISTOB+16, RULES+2, RULES+3
TEXT	END+1!
TEXTU	END+1!
X	%~, STRT+12*, END+1!
Y	%~, STRT+5, LISTOB+10, LISTOB+11, LISTOB+12, END+1!
>> ZTDESC	STRT+10*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	STRT+10*
>> ZTSAVE("IBD*"	STRT+10*
ZTSK	STRT+10, END+1!

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE9

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: