Routine: IBCNCH3

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT $$UP^XLFSTR DISP^XQORM1
List Manager	3	EN^VALM ($$SETSTR,CLEAR,PAUSE)^VALM1 (CLEAN,CNTRL,SET)^VALM10
Integrated Billing	2	($$SELCOM,HDR,INIT)^IBCNCH $$PT^IBEFUNC
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Integrated Billing	9	IBCNCH IBCNCH EXPAND COMMENT IBCNCH EXPAND COMMENT VIEW IBCNCH POL COMMENT EXPAND VIEW IBCNCH POLICY COMMENT EXPAND IBCNCH POLICY COMMENT SEARCH IBCNCH PREVIOUS COMMENT IBCNCH SEARCH NEXT IBCNCH2
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EXPCOM(VMODE)	;EP ; Protocol action to expand a selected Patient Policy Comment ; After selected a comment to expand the IBCNCH POLICY COMMENT EXPAND ; Listman template is shown ; Input: VMODE - 1 if in view only mode, 0 otherwise ; Optional, defaults to 0 ; DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected Patient Policy ; Output: All Policy Comment History fields displayed
SEARCH(DFN,IBIIEN,SRCHTXT,FOUNDTXT)	;EP ; Called from SEARCH^IBCNCH2 to display all the comments with the found search ; text in expanded mode with the search text highlighted wherever it was found ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected Patient Policy ; SRCHTXT - Text user was searching for ; FOUNDTXT- Array of Patient Policy Comment IENS Where the search ; text was found
EN(DFN,IBIIEN,COMIEN,VMODE,SRCHTXT,FOUNDTXT)	; Display the expand Listman template ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the multiple IEN ; of the selected Patient Policy ; COMIEN - IEN of the selected Patient Policy Comment ; "" when called to in display search text mode ; VMODE - 1 if in view only mode, 0 otherwise ; Optional, defaults to 0 ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found search text ; FOUNDTXT- Array of Patient Policy Comment IENS Where the search ; text was found ; Optional, only passed when displaying found search text ; Output: COMIEN - COMIEN of comment to display in search mode ; Only set when in search mode
HDR	;EP ; Build the listman template header information ; Input: DFN - IEN of the select Patient ; IBPPOL - ^DPT(DFN,.312,PIEN,0) Where PIEN is the IEN of the ; selected Patient Policy ; COMIEN - IEN of the selected Patient Policy Comment ; "" when called to in display search text mode ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found search text ; FOUNDTXT- Array of Patient Policy Comments Where the search ; text was found ; Optional, only passed when displaying found search text
INIT	;EP ; Initialize the listman template ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected Patient Policy ; COMIEN - IEN of the selected Patient Policy Comment ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found ; search text ; FOUNDTXT - Array of Patient Policy Comment IENS Where ; the search text was found ; Optional, only passed when displaying found ; search text ; Output: ^TMP("IBCNCH3",$J) - Body lines to display for specified template
BLD(DFN,IBIIEN,COMIEN,SRCHTXT,SMODE)	; Build the listman template body ; Input: DFN - IEN of the select Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected Patient Policy ; COMIEN - IEN of the selected Patient Policy Comment ; SRCHTXT - Text user was searching for or null if not in search ; mode
BLDCOML(IENS,SLINE,STARTR,ELINE,SRCHTXT)	; Build the non-comment section ; of the Expanded Comment Display ; NOTE: Code is set-up to allow a section display to the right of ; this section but none exists at present ; Input: IENS - String of IENS needed to access comment fields ; SLINE - Starting Line Number ; ELINE - Current Ending Line Number ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found search text ; Output: STARTR - Line to start displaying Right Column ; ELINE - Updated Ending Line
BLDCOMT(IENS,SLINE,ELINE,SRCHTXT)	; Build the Comment Text Section ; Input: IENS - String of IENS needed to access comment fields ; SLINE - Starting Line Number ; ELINE - Current Ending Line Number ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found search text ; Output: ELINE - Updated Ending Line Number
SETC(DATA,LINE,SRCHTXT)	; Sets comment text into the body of the worklist ; Input: DATA - Comment Text to set into line(s) ; LINE - Current Line text is being set into ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found search text ; Returns: LINE - Updated Line text is being set into
SET(LABEL,DATA,LINE,COL,SRCHTXT)	; Sets text into the body of the worklist ; Input: LABEL - Label text to set into the line ; DATA - Field Data to set into the line ; LINE - Line to set LABEL and DATA into ; COL - Starting column position in LINE to insert ; LABEL_DATA text ; SRCHTXT - Text user was searching for ; Optional, only passed when displaying found search text ; Returns: LINE - Updated Line by 1
SET1(TEXT,LINE,COL,WIDTH,BOLD,RV)	; Sets the TMP array with body data ; Input: TEXT - Text to be set into the specified line ; LINE - Line to set TEXT into ; COL - Column of LINE to set TEXT into ; WIDTH - Width of the TEXT being set into line ; BOLD - 1 - Set bold on, 0 otherwise ; Optional, defaults to "" ; RV - 1 - Set Reverse Video on, 0 otherwise ; Optional, defaults to "" ; ^TMP("IBCNCH3",$J) - Current ^TMP array ; Output: ^TMP("IBCNCH3",$J) - Updated ^TMP array
HELP	;EP ; Display the listman template help
EXIT	;EP ; Exit the listman template
NEXTCOM	;EP ; Protocol action to show the next comment with the found Search text ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected Patient Policy ; COMIEN - IEN of the currently displayed Patient Policy Comment ; FOUNDTXT- Array of Patient Policy Comment IENS Where the search ; text was found ; Output: Next Patient Policy Comment is displayed ; COMIEN - IEN of the next Patient Policy Comment to display
PREVCOM	;EP ; Protocol action to show the previous comment with the found Search text ; Input: DFN - IEN of the selected Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected Patient Policy ; FOUNDTXT- Array of Patient Policy Comment IENS Where the search ; text was found ; Output: Next Patient Policy Comment is displayed ; COMIENS - Updated Index into the FOUNDTXT array of the Patient ; Policy Comment currently being shown

Name	Field # of Occurrence
$$GET1^DIQ	HDR+14, BLDCOML+14, BLDCOML+17, BLDCOML+18, BLDCOML+19, BLDCOML+20, BLDCOML+21, BLDCOML+22, BLDCOMT+9
$$SELCOM^IBCNCH	EXPCOM+13
HDR^IBCNCH	EN+32
INIT^IBCNCH	EN+32
$$PT^IBEFUNC	HDR+13
EN^VALM	EN+26, EN+29, EN+30
$$SETSTR^VALM1	HDR+20, SET1+16
CLEAR^VALM1	EXIT+3
PAUSE^VALM1	EN+19, EN+22, NEXTCOM+15, PREVCOM+15
CLEAN^VALM10	EN+32, NEXTCOM+17, PREVCOM+17
CNTRL^VALM10	SET1+18, SET1+19
SET^VALM10	SET1+17
$$FMTE^XLFDT	BLDCOML+15
$$UP^XLFSTR	SETC+10, SETC+11, SET+12, SET+13
DISP^XQORM1	HELP+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Patient is not identified." Line Location: EN+18
Function Call: WRITE	Prompt: !!,*7,"Patient Policy is not identified." Line Location: EN+21
Function Call: WRITE	Prompt: !! Line Location: HELP+5
Function Call: WRITE	Prompt: !!,*7,"No more comments with the search text were found." Line Location: NEXTCOM+14
Function Call: WRITE	Prompt: !!,*7,"First comment with the search text is already being displayed." Line Location: PREVCOM+14
Routine Call	VALM Line Location: EN+26 EN+29 EN+30

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.342	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	HDR+18
^DPT - [#2]	HDR+13, HDR+16
^IBA(355.3 - [#355.3]	HDR+17
^TMP("IBCNCH3"	INIT+14!, BLD+18, SET1+15, EXIT+2!

Name	Line Occurrences
$$SET	BLDCOML+16, BLDCOML+17, BLDCOML+18, BLDCOML+19, BLDCOML+20, BLDCOML+21, BLDCOML+22, BLDCOMT+10, BLDCOMT+11
$$SETC	BLDCOMT+12
BLD	INIT+16
BLDCOML	BLD+10
BLDCOMT	BLD+17
EN	EXPCOM+15, SEARCH+9
HDR	NEXTCOM+18, PREVCOM+18
INIT	NEXTCOM+18, PREVCOM+18
SET1	SETC+27, SETC+35, SETC+42, SETC+48, SETC+53, SET+15, SET+19, SET+30, SET+33, SET+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BOLD	SET1~, SET1+13*, SET1+18
CLNEND	SETC+7~, SETC+15, SETC+25, SETC+26, SETC+29, SETC+40, SETC+47, SETC+49*
COL	SET~, SET+10~, SET+23, SET+30, SET+31, SET+33, SET+34*, SET+37, SET1~, SET1+16 , SET1+18, SET1+19
COMIEN	EN~, EN+25, HDR+22, INIT+16, BLD~, BLD+9, NEXTCOM+12, NEXTCOM+16, PREVCOM+12, PREVCOM+16*
COMNUM	EXPCOM+10~, EXPCOM+13*, EXPCOM+14, EXPCOM+15
COMTEXT	BLDCOMT+8~, BLDCOMT+9*, BLDCOMT+12
CPOS	BLDCOMT+8~, SETC+7~, SETC+15, SETC+19, SETC+20, SETC+21, SETC+40, SETC+41, SETC+52
CWEPOS	SETC+7~, SETC+16*, SETC+17
CWLPOS	SETC+7~, SETC+16, SETC+27, SETC+28, SETC+35, SETC+36, SETC+42, SETC+43, SETC+48, SETC+49* , SETC+53, SETC+54*
CWPOS	SETC+7~, SETC+16, SETC+17, SETC+19, SETC+26, SETC+29, SETC+34, SETC+41, SETC+47, SETC+52
DATA	SETC~, SETC+10, SETC+16, SETC+26, SETC+34, SETC+41, SETC+47, SETC+52, SET~, SET+12 , SET+19, SET+24, SET+28, SET+32, SET+35*, SET+37
DATAU	SETC+7~, SETC+10, SETC+19, SET+10~, SET+12, SET+14, SET+25, SET+36*
DFN	EXPCOM+15, SEARCH~, SEARCH+9, EN~, EN+17, HDR+13, HDR+14, HDR+16, INIT+16, BLD~ , BLD+9
ELINE	BLDCOML~, BLDCOML+16, BLDCOML+17, BLDCOML+18, BLDCOML+19, BLDCOML+20, BLDCOML+21, BLDCOML+22, BLDCOMT~, BLDCOMT+10 , BLDCOMT+11, BLDCOMT+12
ELINEL	BLD+7~, BLD+10, BLD+15, BLD+16, BLD+17
ELINER	BLD+7~, BLD+15*, BLD+16
FOUNDTXT	SEARCH~, SEARCH+9, EN~, EN+15*, EN+24, HDR+21, HDR+24
FOUNDTXT(0	EN+25, NEXTCOM+12, NEXTCOM+16, PREVCOM+12, PREVCOM+16
FOUNDTXT(1	HDR+22, NEXTCOM+12, PREVCOM+12
FPOS	SET+10~, SET+24, SET+25*, SET+26, SET+27, SET+32, SET+35, SET+36
>> IBFASTXT	EN+31
IBIIEN	EXPCOM+15, SEARCH~, SEARCH+9, EN~, EN+20, INIT+16, BLD~, BLD+9
>> IBPPOL	HDR+16
IBX	SET1+12~, SET1+15, SET1+16, SET1+17
IENS	BLD+7~, BLD+9*, BLD+10, BLD+17, BLDCOML~, BLDCOML+14, BLDCOML+17, BLDCOML+18, BLDCOML+19, BLDCOML+20 , BLDCOML+21, BLDCOML+22, BLDCOMT~, BLDCOMT+9
>> IOINHI	SET1+18
>> IOINORM	SET1+18
>> IORVOFF	SET1+19
>> IORVON	SET1+19
LABEL	SET~, SET+15, SET+19, SET+23
LINE	SETC~, SETC+27, SETC+28, SETC+35, SETC+42, SETC+48, SETC+49, SETC+53, SETC+55, SET~ , SET+15, SET+18, SET+19, SET+20, SET+30, SET+33, SET+37, SET+38, SET+39, SET1~ , SET1+15, SET1+17, SET1+18, SET1+19
REM	BLDCOMT+8~
RV	SET1~, SET1+14*, SET1+19
SLINE	BLD+7~, BLD+8, BLD+10, BLD+16, BLD+17, BLDCOML~, BLDCOML+13, BLDCOML+16, BLDCOMT~, BLDCOMT+10
SMODE	BLD~
SPOS	SETC+7~, SETC+15, SETC+19, SETC+21*, SETC+25, SETC+33, SETC+34, SETC+47
SRCHTXT	SEARCH~, SEARCH+9, EN~, HDR+25, INIT+15, INIT+16, BLD~, BLD+10, BLD+17, BLDCOML~ , BLDCOML+18, BLDCOML+19, BLDCOML+20, BLDCOML+21, BLDCOML+22, BLDCOMT~, BLDCOMT+12, SETC~, SETC+8, SETC+9 , SETC+11, SETC+18, SET~, SET+11*, SET+13, SET+14, SET+27, SET+34
START	SET+10~, SET+28*, SET+29, SET+30, SET+31
STARTR	BLD+7~, BLD+10, BLDCOML~, BLDCOML+13*
STLEN	SETC+7~, SETC+9*, SETC+21, SETC+43
STXTU	SETC+7~, SETC+11, SETC+19, SET+10~, SET+13, SET+14, SET+25
TEXT	SET1~, SET1+16
>> VALMBCK	EXPCOM+12, EN+33, NEXTCOM+11, PREVCOM+11
>> VALMCNT	BLD+8, BLD+18
>> VALMHDR(1	HDR+15*
>> VALMHDR(2	HDR+20*
>> VALMHDR(3	HDR+26*
VALMQUIT	EN+16!
VMODE	EXPCOM~, EXPCOM+11*, EXPCOM+15, EN~, EN+28
WHICH	SET+10~, SET+14*, SET+18
WIDTH	SET1~, SET1+16, SET1+18, SET1+19
WW	HDR+12~, HDR+17*, HDR+19
X	HELP+2~, HELP+3*
XX	HDR+12~, HDR+13, HDR+14, HDR+15, HDR+19, HDR+20, HDR+23, HDR+24, BLDCOML+12~, BLDCOML+14* , BLDCOML+15, BLDCOML+16, BLDCOMT+8~, SETC+7~, SETC+26, SETC+27, SETC+34, SETC+35, SETC+36, SETC+41 , SETC+42, SETC+47, SETC+48, SETC+52, SETC+53, SETC+54, SET+10~, SET+27, SET+28, SET+32 , SET+33, NEXTCOM+10~, NEXTCOM+12, NEXTCOM+13, NEXTCOM+16, PREVCOM+10~, PREVCOM+12, PREVCOM+13, PREVCOM+16
YY	HDR+12~, HDR+18, HDR+20, HDR+22, HDR+23
ZZ	HDR+12~, HDR+14, HDR+16, HDR+17, HDR+18, HDR+24, HDR+25, HDR+26

Customize PDF page

Package: Integrated Billing

Routine: IBCNCH3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: