Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.342 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call