Routine: IBD3KPT

Information

IBD3KPT ;ALB/MAF - Post Init routine for AICS v 3.0 - 11 NOV 96

Source Information

Source file <IBD3KPT.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Automated Information Collection System	6	$$TKORDER^IBDF13 UNCMPALL^IBDF19 SCAN^IBDFBKS $$COPYBLK^IBDFU2 ($$COPYFORM,$$TKFORM)^IBDFU2C DLTBLK^IBDFU3
VA Fileman	3	FILE^DICN ^DIE ^DIK
Kernel	1	MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
RESOURC	; -- add scanning resource device
BLOCKS	;;
GARBAGE	; -- Changing the name of the GARBAGE form to WORKCOPY
RECOMP	; -- recompile all forms
DELFLD	; -- delete fields *'d for deletion
FRM	; -- Add tool kit forms
FORMS	;;
LEX	; -- if clinic lex version two installed, update dd nodes
OPTRF	; -- remove erroneous output transform for PX INPUT PATIENT PROBLEMS
FORMSPEC	;Form Specs deleted from the file 359.2 FORM SPEC file.
ADDNAR	; -- Sets fields .17 ASK FOR ADDITIONAL NARRATIVE and ; .18 ASK FOR CLINICAL LEXICON to 1 'YES'.
AUTOINS	; -- auto install tool kit into production
ICD9	; -- make sure ICD9 input interface uses diagnosis/problem node
SELEX	; -- Correct selector for PX INPUT EXAMS
SCDATA	; -- changes PI for SC data fields (did not work as originally defined)
ACTIVAT	; -- activate two entries in 357.69 that were erroniously inactivated
SCRN

External References

Name	Field # of Occurrence
FILE^DICN	RESOURC+3
^DIE	ADDNAR+4, GARBAGE+4, SCDATA+5, SCDATA+8, SCDATA+17, RESOURC+6
^DIK	DELFLD+3
$$TKORDER^IBDF13	AUTOINS+14
UNCMPALL^IBDF19	RECOMP+2
SCAN^IBDFBKS	FORMSPEC+4
$$COPYBLK^IBDFU2	AUTOINS+14
$$COPYFORM^IBDFU2C	FRM+5
$$TKFORM^IBDFU2C	AUTOINS+14
DLTBLK^IBDFU3	AUTOINS+15
MES^XPDUTL	AUTOINS+2, AUTOINS+12, FRM+4, FRM+7, FRM+9, FRM+10, LEX+5, LEX+6, FORMSPEC+1, ICD9+7 , DELFLD+5, RESOURC+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^IBE(357 - [#357]	Classic Fileman Calls
^IBE(357.6 - [#357.6]	Classic Fileman Calls
^IBE(357.93 - [#357.93]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	RESOURC+1
^DD(357.3	LEX+2*
^DD(357.6	DELFLD+1
^DD(357.951	LEX+4*
^DD(358.3	LEX+3*
^IBD(357.95 - [#357.95]	FORMSPEC+4
^IBD(359.2 - [#359.2]	FORMSPEC+4
^IBE(357 - [#357]	GARBAGE+2, GARBAGE+3, AUTOINS+7, FRM+3, RECOMP+2
^IBE(357.1 - [#357.1]	AUTOINS+11
^IBE(357.6 - [#357.6]	ADDNAR+3, SELEX+2, SELEX+3, SELEX+4, SCDATA+2, SCDATA+6, ICD9+2, ICD9+3, ICD9+5, ICD9+6 , SCRN, SCRN+1, SCRN+3*, OPTRF+2, OPTRF+3!
^IBE(357.69 - [#357.69]	ACTIVAT+1, ACTIVAT+2
^IBE(357.93 - [#357.93]	SCDATA+11, SCDATA+12, SCDATA+13
^IBE(358 - [#358]	FRM+2
^IBE(358.1 - [#358.1]	AUTOINS+8, AUTOINS+9, AUTOINS+10, AUTOINS+12
^LEX	LEX+1

Label References

Name	Line Occurrences
ACTIVAT	IBD3KPT+3
ADDNAR	IBD3KPT+3
AUTOINS	IBD3KPT+3
DELFLD	IBD3KPT+3
FORMSPEC	IBD3KPT+3
FRM	AUTOINS+7
GARBAGE	IBD3KPT+3
ICD9	IBD3KPT+3
LEX	IBD3KPT+3
OPTRF	IBD3KPT+3
RECOMP	IBD3KPT+3
RESOURC	IBD3KPT+3
SCDATA	IBD3KPT+3
SELEX	IBD3KPT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	AUTOINS+1~
ARY	AUTOINS+1~
BLK	AUTOINS+1~, AUTOINS+8*, AUTOINS+9, AUTOINS+10, AUTOINS+12, AUTOINS+14, AUTOINS+15
CNT	AUTOINS+1~, FRM+1*
CNT1	AUTOINS+1~
CNTB	AUTOINS+1~, AUTOINS+3, AUTOINS+14, FRM+7, FRM+10
CNTF	AUTOINS+1~, AUTOINS+3, FRM+5, FRM+7, FRM+9
DA	ADDNAR+4, ADDNAR+5!, GARBAGE+4, GARBAGE+5!, SCDATA+4, SCDATA+5!, SCDATA+7, SCDATA+8!, SCDATA+16, SCDATA+17! , DELFLD+3, DELFLD+4!, RESOURC+4*, RESOURC+6!
DA(1	SCDATA+7, SCDATA+16, DELFLD+2*
DIC	RESOURC+3*, RESOURC+6!
DIC(0	RESOURC+3*
DIE	ADDNAR+4, ADDNAR+5!, GARBAGE+4, GARBAGE+5!, SCDATA+4, SCDATA+5!, SCDATA+7, SCDATA+8!, SCDATA+16, SCDATA+17! , RESOURC+6!
DIK	DELFLD+2*, DELFLD+4!
>> DLAYGO	RESOURC+3*
DR	ADDNAR+4, ADDNAR+5!, GARBAGE+4, GARBAGE+5!, SCDATA+4, SCDATA+5!, SCDATA+7, SCDATA+8!, SCDATA+16, SCDATA+17! , RESOURC+5, RESOURC+6!
EXCLUDE	AUTOINS+1~
FORM	AUTOINS+1~, FRM+2*, FRM+5
FORMNM	AUTOINS+1~, AUTOINS+6, AUTOINS+7, FRM+1, FRM+2, FRM+3, FRM+4
IBDA	ICD9+1~, ICD9+2, ICD9+3, ICD9+5, ICD9+6, SCRN, SCRN+1, SCRN+3
IBDFA	OPTRF+1~, OPTRF+2*, OPTRF+3
IBDIFN	ADDNAR+2~, ADDNAR+3, ADDNAR+4, GARBAGE+1~, GARBAGE+3, GARBAGE+4, SELEX+1~, SELEX+2, SELEX+3, SELEX+4 , SCDATA+1~, SCDATA+2, SCDATA+4, SCDATA+6, SCDATA+7, SCDATA+11, FORMSPEC+2~, FORMSPEC+3, FORMSPEC+4
IBDIFN1	SCDATA+1~, SCDATA+6, SCDATA+7, SCDATA+10~, SCDATA+11, SCDATA+12, SCDATA+13, SCDATA+16
IBDIFN2	SCDATA+10~, SCDATA+12*, SCDATA+13, SCDATA+16
IBDX	ICD9+1~, ICD9+3, ICD9+4, SCRN+1, SCRN+2
>> IBFORM	RECOMP+1, RECOMP+2
IBI	ADDNAR+2~, ADDNAR+4*
IBTKBLK	AUTOINS+13~*
NAME	AUTOINS+1~, AUTOINS+9*, AUTOINS+11
NEWBLOCK	AUTOINS+1~, AUTOINS+14*, AUTOINS+15
NEWFORM	AUTOINS+1~, FRM+5*
NODE	SCDATA+10~, SCDATA+13*, SCDATA+14, SCDATA+15
>> ORD	AUTOINS+8*
VAL	SCDATA+10~, SCDATA+15*
VAR	SCDATA+1~, SCDATA+3*
X	AUTOINS+1~, RESOURC+3*
Y	AUTOINS+1~, RESOURC+4

Customize PDF page

Package: Automated Information Collection System

Routine: IBD3KPT

Call Graph Total: 10