Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNCH3

Package: Integrated Billing

Routine: IBCNCH3


Information

IBCNCH3 ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;27-APR-2015

Source Information

Source file <IBCNCH3.m>

Call Graph

Call Graph

Call Graph Total: 9

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

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  

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

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All