IBCNCH3 ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;27-APR-2015
Source file <IBCNCH3.m>
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
2.342 | GET1^DIQ |