Routine: BTIUICL

Information

BTIUICL ; IHS/ITSC/LJF - AWAITING SIGNATURES REPORT ;

Source Information

Source file <BTIUICL.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 FULL^VALM1 EN^VALM2
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Text Integration Utility	3	$$DOCCLASS^TIULC1 PRINT1^TIURA $$READ^TIUU
IHS VA Utilities	2	^XBCLS ENP^XBDIQ1
VA Fileman	2	^DDS $$GET1^DIQ
IHS Changes To ADT	1	^BDGF1
IHS Mods To Text Integration Utilities	1	(MSG,PAUSE,RETURN)^BTIUU

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP; -- action to rebuild display
DOCSTAT(CD,DFN,IEN,DATE,DAY,TIUN)	; -- returns status of doc tied to deficiency
PROV()	; -- ask for provider
EN	; -- main entry point for BTIU IC LISTING option
HDR	; -- header code
GATHER(PROV)	; -- create display array
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
SET(LINE,COUNT,IEN,TIU)	; -- sets ^tmp
CLASS(CLASS,TYPE,TIU)	; -- returns 1 if doc is in corect doc class
EXPND	; -- expand code
ICE	;EP; -- action to edit IC file
INIT	; -- init variables and list array
EXIT	; -- exit code
SIG(CD)	; -- returns 1 if chart deficiency on list for report
GETIC	; -- select item from list
PAT(DFN)	; -- returns patient chart # and last name
SP(NUM)	; -- SUBRTN to pad spaces
CDSET	; -- returns TIUCD array with deficiencies linked to tiu
ICP	;EP; -- action to print chart copy
DATA(DFN,IEN,PROV,CD,DATE,DAY,TIUN)	; -- returns display line
HELP	; -- help code

External References

Name	Field # of Occurrence
^BDGF1	EN+2
MSG^BTIUU	EN+1, EN+2, GATHER+2
PAUSE^BTIUU	EN+2
RETURN^BTIUU	PROV+4, PROV+7
^DDS	ICE+6
$$GET1^DIQ	GATHER+6, GATHER+9, GATHER+11, GATHER+12, GATHER+18, GATHER+19, DATA+3, DATA+6, DOCSTAT+2, CLASS+2 , ICE+3
$$DOCCLASS^TIULC1	CLASS+3
PRINT1^TIURA	ICP+3
$$READ^TIUU	PROV+3
EN^VALM	EN+7
TERM^VALM0	EN+6, RESET+2
FULL^VALM1	GETIC+2
EN^VALM2	GETIC+4
^XBCLS	EN+1
ENP^XBDIQ1	DOCSTAT+10
$$FMTE^XLFDT	DATA+5, DOCSTAT+13
$$REPEAT^XLFSTR	PAD+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"No provider selected" Line Location: PROV+4
Function Call: WRITE	Prompt: !!,"Provider does NOT have any incomplete charts.",! Line Location: PROV+7
Routine Call	VALM Line Location: EN+7
Routine Call	DDS Line Location: ICE+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^TIU(8925 - [#8925]	GET1^DIQ
^TIU(8925.1 - [#8925.1]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^BDGIC - [#9009016.1]	GET1^DIQ
^BDGCD - [#9009016.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PAT+2
^BDGCD - [#9009016.4]	CDSET+2, CDSET+3
^BDGIC - [#9009016.1]	GATHER+8
^BDGIC("APRV"	GATHER+5, GATHER+7, PROV+7
^DPT - [#2]	PAT+3
^TIU(8925 - [#8925]	DOCSTAT+6, DOCSTAT+7
^TMP("BTIUICL"	EXIT+2!, GATHER+3!, SET+2, SET+3, GETIC+7, GETIC+8, GETIC+9, GETIC+10

Label References

Name	Line Occurrences
$$CLASS	DOCSTAT+7
$$DATA	GATHER+13, GATHER+14, GATHER+20
$$DOCSTAT	DATA+12
$$PAD	DATA+3, DATA+4, DATA+5, DATA+6, SP+1
$$PAT	DATA+4
$$PROV	EN+4, RESET+1
$$SIG	GATHER+10
$$SP	EN+1
CDSET	SIG+1
GATHER	INIT+2
GETIC	ICE+2, ICP+2
HDR	RESET+3
INIT	RESET+3
SET	GATHER+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGN	ICE+1~, ICE+4*
CD	GATHER+1~, GATHER+8*, GATHER+10, GATHER+13, GATHER+14, GATHER+20, SIG~, SIG+2, DATA~, DATA+6 , DATA+12, DOCSTAT~, DOCSTAT+3
CLASS	DOCSTAT+1~, DOCSTAT+3*, DOCSTAT+7, CLASS~, CLASS+1, CLASS+3
COUNT	SET~, SET+3
DA	ICE+1~, ICE+4*
DATA	PAD~, PAD+1
DATE	GATHER+1~, GATHER+11*, GATHER+13, GATHER+17, DATA~, DATA+5, DATA+12, DOCSTAT~
DATE2	GATHER+1~, GATHER+12*, GATHER+14, GATHER+17
DAY	DATA~, DATA+9, DATA+10, DATA+12, DOCSTAT~
DDSFILE	ICE+1~, ICE+4*
DFN	GATHER+1~, GATHER+9*, GATHER+13, GATHER+14, GATHER+20, DATA~, DATA+4, DATA+12, PAT~, PAT+2 , PAT+3, DOCSTAT~
DR	ICE+1~, ICE+5*
DUZ(2	PAT+2
IEN	GATHER+1~, GATHER+5*, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+13, GATHER+14 , GATHER+18, GATHER+20, GATHER+22, DATA~, DATA+12, DOCSTAT~, DOCSTAT+2, SET~, SET+3
IEN2	GATHER+1~, GATHER+7*, GATHER+8
LENGTH	PAD~, PAD+1
LINE	GATHER+1~, GATHER+13, GATHER+14, GATHER+20, GATHER+22, DATA+1~, DATA+2, DATA+3, DATA+4, DATA+5* , DATA+6, DATA+9, DATA+10, DATA+12, DATA+13, SET~, SET+2
NUM	SP~, SP+1
PROV	GATHER~, GATHER+5, GATHER+7, GATHER+13, GATHER+14, GATHER+20, DATA~, DATA+3
SCREEN	PROV+1~, PROV+2*, PROV+3
TIU	DOCSTAT+1~, DOCSTAT+6*, DOCSTAT+7, DOCSTAT+10, DOCSTAT+14, CLASS~, CLASS+2, SET~, SET+3
TIUCD	GATHER+1~, SIG+1
TIUCD(	SIG+2, CDSET+4*, DOCSTAT+3
TIUCNT	GATHER+1~, GATHER+4, GATHER+22, DATA+2
>> TIUDA	ICP+2*
TIUICN	GETIC+3, GETIC+7, GETIC+10, ICE+1~, ICE+2, ICE+3, ICE+4, ICP+1~, ICP+2
TIULN	INIT+1~, INIT+3, GATHER+4, SET+1, SET+2, SET+3
TIUN	GATHER+1~, GATHER+13, GATHER+14, GATHER+20, GATHER+22, DATA~, DATA+12, DOCSTAT~, DOCSTAT+14*
TIUPROV	EN+4~, INIT+2, RESET+1
TIUR	DOCSTAT+1~, DOCSTAT+10!
TIUR(	DOCSTAT+11
TIUR(1501	DOCSTAT+12
TIUR(1507	DOCSTAT+12
TIUST	DOCSTAT+1~, DOCSTAT+14*, DOCSTAT+16
TYPE	DOCSTAT+1~, DOCSTAT+7, CLASS~, CLASS+1, CLASS+2, CLASS+3
U	GATHER+8, CDSET+3, PAT+2, PAT+3, SET+3, ICP+2
>> VALMBCK	RESET+1, RESET+2
VALMCNT	EN+5~, INIT+3*, EXIT+1!
VALMY	GETIC+1~, GETIC+5
VALMY(0	GETIC+6
VISIT	DOCSTAT+1~, DOCSTAT+2*, DOCSTAT+6
VSTYP	ICE+1~, ICE+3*, ICE+5
X	HELP+1, GATHER+1~, GATHER+18, GATHER+19, GATHER+20, CDSET+1~, CDSET+2, CDSET+3, CDSET+4, DATA+1~ , PAT+1~, PAT+2, PAT+4, DOCSTAT+1~, DOCSTAT+11, DOCSTAT+12, DOCSTAT+14, GETIC+1~, GETIC+6*, GETIC+10
>> XQORNOD(0	GETIC+4
Y	CDSET+1~, CDSET+3, CDSET+4, PAT+1~, PAT+3, PAT+4, DOCSTAT+1~, DOCSTAT+11, DOCSTAT+12, DOCSTAT+13* , DOCSTAT+14, GETIC+1~, GETIC+7, GETIC+8, GETIC+9, GETIC+10, PROV+1~, PROV+3, PROV+4, PROV+7 , PROV+8
Z	GETIC+1~, GETIC+8*, GETIC+9, GETIC+10

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUICL

Call Graph Total: 16