Routine: BDGICE2

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN $$GET1^DID ^DIE $$GET1^DIQ
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS Changes To ADT	2	($$READ,MSG,PAUSE)^BDGF $$HRCN^BDGF2
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To Scheduling	1	$$DIV^BSDU
IHS Patient	1	KILL^AUPNPAT

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGICE3

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;EP; -- help code
PAT	; ask user for patient
HDR	;EP; -- header code
PENDING(IEN)	; return 1 if chart has at least one pending deficiency
VDATE	; EP; fix visit link - called by BDG ICE FIX VISIT protocol
PAD(D,L)	; pad length of data ; -- D=data L=length
SP(N)	; pad N number of spaces
REBUILD	; EP; rebuild display ; Called by BDG ICE VIEW ALL and BDG ICE VIEW PENDING protocols
EXPND	; -- expand code
COMPLETE	; EP; mark chart as completed - called by BDG ICE COMPLETE protocol
COMMENT	; EP; edit comments - called by BDG ICE COMMENTS protocol
HAVEDEF(BDGN,PRV,DEF)
FIELDS	;;
DSOKAY()	; EP; does site use day surgery?
INIT	;EP; -- init variables and list array
ASK	; process IC entry selection
SET(DATA,COUNT)	; stuff data into display lie
EN	;EP; -- main entry point for BDG IC EDIT ; called with DFN and BDGN set
FINDDEF(BDGN,PRV)	; return BDGDEF array with current deficiencies for provider PRV
TDATES	; EP; edit tracking dates - called by BDG ICE DATES
ADD	; -- add new entry
LABEL(FIELD)	; returns field's title or label
ADDDEF	; EP; add chart deficiences - called by BDG ICE ADD DEF protocol
EXIT	;EP; -- exit code
ADDMORE(BDGN,PRV)	; add new deficiencies for provider
DELETE	; EP; delete chart - in as a mistake - called by BDG ICE DELETE protocol

External References

Name	Field # of Occurrence
KILL^AUPNPAT	PAT+1
$$READ^BDGF	PAT+2, ASK+3, ADD+3, ADDDEF+7, ADDDEF+23, ADDDEF+28, ADDDEF+32, ADDMORE+7, ADDMORE+9, DELETE+2
MSG^BDGF	TDATES+3, ADDDEF+3, ADDDEF+6, ADDDEF+15, ADDDEF+16, ADDDEF+18, ADDDEF+39, ADDMORE+2, ADDMORE+3, COMPLETE+3
PAUSE^BDGF	TDATES+3, VDATE+9, ADDDEF+3, ADDMORE+2, COMPLETE+4
$$HRCN^BDGF2	HDR+2
$$DIV^BSDU	INIT+16, TDATES+8, DSOKAY+1
^DIC	ADDMORE+6
FILE^DICN	ADD+8, ADDMORE+14
$$GET1^DID	LABEL+2, LABEL+3
^DIE	TDATES+6, TDATES+11, TDATES+13, VDATE+9, COMMENT+3, ADDDEF+34, ADDDEF+41, ADDMORE+16, COMPLETE+6, DELETE+4
$$GET1^DIQ	PAT+16, PAT+18, PAT+19, PAT+20, PAT+21, ASK+6, HDR+2, HDR+3, HDR+6, HDR+7 , INIT+3, INIT+5, INIT+8, INIT+13, INIT+16, INIT+19, INIT+20, INIT+24, INIT+25, INIT+29 , INIT+39, INIT+40, INIT+42, INIT+43, INIT+45, INIT+46, INIT+49, TDATES+6, TDATES+8, TDATES+13 , VDATE+6, ADDDEF+15, FINDDEF+5, FINDDEF+6, FINDDEF+8, FINDDEF+9, ADDMORE+2, DELETE+2, DSOKAY+1, PENDING+4 , PENDING+5
EN^VALM	EN+3
TERM^VALM0	EN+2, REBUILD+2
CLEAR^VALM1	EN+2, EN+4
FULL^VALM1	TDATES+1, VDATE+2, COMMENT+1, ADDDEF+2, COMPLETE+1, DELETE+1
$$REPEAT^XLFSTR	INIT+35, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Incomplete Chart Entries for "_$$GET1^DIQ(2,DFN,.01)_":" Line Location: PAT+16
Function Call: WRITE	Prompt: !,$J(I,3),?6,$$GET1^DIQ(9009016.1,BDGA(I),.02),$$GET1^DIQ(9009016.1,BDGA(I),.05) Line Location: PAT+18
Function Call: WRITE	Prompt: ?30,$$GET1^DIQ(9009016.1,BDGA(I),.0392) Line Location: PAT+19
Function Call: WRITE	Prompt: " COMPLETED" Line Location: PAT+20
Function Call: WRITE	Prompt: " DELETED" Line Location: PAT+21
Function Call: WRITE	Prompt: !,$J(I,3),?6,"ADD NEW ENTRY" Line Location: PAT+22
Function Call: WRITE	Prompt: !!,"Only supervisors can access DELETED entries",! Line Location: ASK+6
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !?3,"Closing "_$E($P(BDGDEF(DA),U),5,40) Line Location: ADDDEF+34
Routine Call	VALM Line Location: EN+3
Routine Call	DIE Line Location: TDATES+6 TDATES+11 TDATES+13 VDATE+9 COMMENT+3 ADDDEF+34 ADDDEF+41 ADDMORE+16 COMPLETE+6 DELETE+4
Routine Call	DIC Line Location: ADDMORE+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^BDGIC - [#9009016.1]	Classic Fileman Calls, GET1^DID, GET1^DIQ
9009016.11	GET1^DIQ
^BDGCD - [#9009016.4]	Classic Fileman Calls
^BDGPAR - [#9009020.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	INIT+37, TDATES+3, TDATES+15, ADDDEF+3, ADDDEF+42, FINDDEF+3, HAVEDEF+2, HAVEDEF+3, PENDING+2
^BDGIC("B"	PAT+10
^DD(9009016.1	ADDMORE+12
^TMP("BDGICE"	INIT+2!, SET+2*, EXIT+1!
^TMP("BDGICE2"	INIT+33!, INIT+47, INIT+49, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+57, INIT+58 , EXIT+1!
^XUSEC("DGZICE"	ASK+6

Label References

Name	Line Occurrences
$$DSOKAY	ASK+2, ADD+3
$$HAVEDEF	ADDMORE+7
$$LABEL	INIT+13, INIT+19, INIT+25, INIT+29
$$PAD	HDR+2, HDR+3, HDR+7, INIT+4, INIT+7, INIT+13, INIT+19, INIT+20, INIT+25, INIT+29 , INIT+34, INIT+45, INIT+46, FINDDEF+8, FINDDEF+9, SP+1
$$PENDING	COMPLETE+2
$$SP	INIT+49, INIT+57, INIT+58, ADDDEF+15
ADD	PAT+14, ASK+4
ADDMORE	ADDDEF+13, ADDDEF+25
ASK	PAT+23, ASK+6
EN	PAT+24, ADD+12
FINDDEF	ADDDEF+12
HDR	REBUILD+3
INIT	REBUILD+3
PAT	PAT+14, PAT+23, PAT+24
REBUILD	TDATES+3, TDATES+16, VDATE+9, COMMENT+3, ADDDEF+43, COMPLETE+6, DELETE+4
SET	INIT+6, INIT+9, INIT+14, INIT+21, INIT+26, INIT+30, INIT+34, INIT+35, INIT+54, INIT+55 , INIT+57, INIT+58, INIT+59

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ADDDEF+1~, ADDDEF+23, ADDDEF+26*, ADDDEF+28, ADDDEF+31
ACTION(1	ADDDEF+19*
ACTION(2	ADDDEF+20*
ACTION(3	ADDDEF+21*
ACTION(4	ADDDEF+22*
APCDOVRR	ADD+5, ADD+9!, VDATE+1~, VDATE+2
BDGA	PAT+8~, PAT+14
BDGA(	PAT+11*, PAT+17, PAT+18, PAT+19, PAT+20, PAT+21, ASK+5
BDGDEF	ADDDEF+1~, ADDDEF+12!, ADDDEF+13
BDGDEF(	ADDDEF+16, ADDDEF+34, ADDDEF+39, ADDDEF+40, FINDDEF+10*
BDGDFALL	PAT+5~*, INIT+39, INIT+40, INIT+57, INIT+58, EXIT+2!, FINDDEF+5, FINDDEF+6
BDGN	PAT+8~, PAT+9, PAT+10, PAT+11, PAT+23, ASK+5, ASK+6!, ADD+11, HDR+3, HDR+6 , HDR+7, INIT+3, INIT+5, INIT+8, INIT+13, INIT+19, INIT+20, INIT+24, INIT+25, INIT+29 , INIT+37, INIT+38, EXIT+2!, TDATES+2, TDATES+3, TDATES+6, TDATES+13, TDATES+15, VDATE+3, VDATE+6 , COMMENT+2, ADDDEF+3, ADDDEF+12, ADDDEF+13, ADDDEF+25, ADDDEF+33, ADDDEF+37, ADDDEF+42, FINDDEF~, FINDDEF+3 , FINDDEF+4, ADDMORE~, ADDMORE+2, ADDMORE+7, ADDMORE+11, ADDMORE+16, HAVEDEF~, HAVEDEF+2, HAVEDEF+3, COMPLETE+2 , COMPLETE+5, DELETE+2, DELETE+3
BDGN1	INIT+33~, INIT+37, INIT+38, INIT+47, INIT+49, INIT+53, INIT+54, INIT+55
CATG	INIT+1~, INIT+3, INIT+4, INIT+7, INIT+8, VDATE+6~, VDATE+7
CHOICES	ADDDEF+1~, ADDDEF+28*, ADDDEF+34, ADDDEF+38
COUNT	PAT+8~, PAT+11, ASK+3, ASK+4, SET~, SET+1, SET+2, ADDDEF+1~, ADDDEF+16, ADDDEF+28 , FINDDEF+1~, FINDDEF+2, FINDDEF+7*, FINDDEF+8, FINDDEF+10
D	PAD~, PAD+2
DA	ADD+1~, TDATES+1~, TDATES+2, VDATE+1~, VDATE+3, COMMENT+1~, COMMENT+2, ADDDEF+1~, ADDDEF+34, ADDDEF+38* , ADDDEF+39, ADDDEF+40, ADDMORE+1~, ADDMORE+10!, ADDMORE+16, COMPLETE+1~, COMPLETE+5, DELETE+1~, DELETE+3
DA(1	ADDDEF+33, ADDDEF+37, ADDMORE+11, ADDMORE+16
DATA	SET~, SET+2
DATE	ADDDEF+1~, ADDDEF+32*, ADDDEF+33
DD	ADD+1~, ADDMORE+10!
DEF	ADDMORE+1~, ADDMORE+6*, ADDMORE+7, ADDMORE+13, HAVEDEF~, HAVEDEF+3
DFN	PAT+1~, PAT+2*, PAT+10, PAT+16, ADD+4, HDR+2
DIC	ADD+1~, ADD+4, ADDMORE+1~, ADDMORE+5!, ADDMORE+10!, ADDMORE+11*
DIC("DR"	ADD+6, ADD+7, ADDMORE+13*
DIC("P"	ADDMORE+12*
DIC("S"	ADDMORE+5*
DIC(0	ADD+4, ADDMORE+5, ADDMORE+11*
DIE	TDATES+1~, TDATES+2, VDATE+1~, VDATE+3, COMMENT+1~, COMMENT+2, ADDDEF+1~, ADDDEF+33, ADDDEF+37, ADDMORE+1~ , ADDMORE+16, COMPLETE+1~, COMPLETE+5, DELETE+1~, DELETE+3
DLAYGO	ADD+1~, ADD+4, ADDMORE+1~, ADDMORE+12
DO	ADD+1~, ADDMORE+10!
DR	ADD+1~, TDATES+1~, TDATES+6, TDATES+9, TDATES+10, TDATES+13, VDATE+1~, VDATE+3, VDATE+7, COMMENT+1~ , COMMENT+2, ADDDEF+1~, ADDDEF+33, ADDDEF+37, ADDMORE+1~, ADDMORE+16, COMPLETE+1~, COMPLETE+5, DELETE+1~, DELETE+3
DUZ	ASK+6
DUZ(2	HDR+2
FIELD	INIT+1~, INIT+18*, INIT+19, TDATES+1~, LABEL~, LABEL+2, LABEL+3
FOUND	HAVEDEF+1~, HAVEDEF+2, HAVEDEF+3, HAVEDEF+4, PENDING+1~, PENDING+2, PENDING+6, PENDING+7
I	PAT+8~, PAT+17, PAT+18, PAT+19, PAT+20, PAT+21, PAT+22, ADDDEF+1~, ADDDEF+34, ADDDEF+38*
IEN	FINDDEF+1~, FINDDEF+2, FINDDEF+3, FINDDEF+4, FINDDEF+10, HAVEDEF+1~, HAVEDEF+2*, HAVEDEF+3, PENDING~, PENDING+2 , PENDING+3
IEN2	PENDING+1~, PENDING+2*, PENDING+3
IENS	INIT+33~, INIT+38, INIT+39, INIT+40, INIT+42, INIT+43, INIT+45, INIT+46, INIT+49, FINDDEF+1~ , FINDDEF+4, FINDDEF+5, FINDDEF+6, FINDDEF+8, FINDDEF+9, PENDING+1~, PENDING+3*, PENDING+4, PENDING+5
>> IORVOFF	HDR+2, HDR+6
>> IORVON	HDR+2, HDR+6
ITEM	INIT+1~, INIT+11, INIT+12, INIT+16, INIT+20, TDATES+1~, TDATES+4, TDATES+5, TDATES+8, TDATES+10
L	PAD~, PAD+2
LINE	INIT+1~, INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+13, INIT+14, INIT+19 , INIT+20, INIT+21, INIT+25, INIT+26, INIT+29, INIT+30, INIT+45, INIT+46, INIT+47, FINDDEF+1~ , FINDDEF+8, FINDDEF+9*, FINDDEF+10
N	SP~, SP+1
PROMPT	ASK+1~, ASK+2, ASK+3, ADDDEF+4, ADDDEF+7
PROV	INIT+33~, INIT+42, INIT+47, INIT+49, INIT+52, INIT+53, INIT+54, INIT+55, ADDDEF+1~, ADDDEF+5 , ADDDEF+7*, ADDDEF+8, ADDDEF+12, ADDDEF+13, ADDDEF+15, ADDDEF+25, FINDDEF+3
PROVN	INIT+33~, INIT+43, INIT+45, INIT+47, INIT+49, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55
PRV	FINDDEF~, ADDMORE~, ADDMORE+7, ADDMORE+11, HAVEDEF~, HAVEDEF+2
QUIT	ADDDEF+11, ADDDEF+13, ADDDEF+24, ADDMORE+1~, ADDMORE+4, ADDMORE+6*
SCREEN	ADDDEF+1~, ADDDEF+4*, ADDDEF+7
U	ADDDEF+16, ADDDEF+34, ADDDEF+39, ADDDEF+40, FINDDEF+10, ADDMORE+12, HAVEDEF+3
>> VALMBCK	REBUILD+4, COMPLETE+4, DELETE+2*
VALMCNT	EN+2~, INIT+2*, INIT+6, INIT+9, INIT+14, INIT+21, INIT+26, INIT+30, INIT+34, INIT+35 , INIT+54, INIT+55, INIT+57, INIT+58, INIT+59
>> VALMHDR(1	HDR+4*
>> VALMHDR(2	HDR+8*
X	ADD+1~, ADD+4, HDR+1~, HDR+2, HDR+3, HDR+4, HDR+6, HDR+7, HDR+8, INIT+1~ , INIT+24, INIT+49, HELP+1, ADDMORE+11, LABEL+1~, LABEL+2, LABEL+3*, LABEL+4
Y	ASK+1~, ASK+3, ASK+4, ASK+5, ADD+1~, ADD+2, ADD+3, ADD+6, ADD+7, ADD+8 , ADD+11, TDATES+1~, TDATES+4, TDATES+6, ADDDEF+1~, ADDDEF+23, ADDDEF+24, ADDDEF+25, ADDDEF+26, ADDMORE+1~ , ADDMORE+6, ADDMORE+14, ADDMORE+16
Y(0	ADDMORE+9

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICE2

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items