IBCNCH2 ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;27-APR-2015
Source file <IBCNCH2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD(DFN,IBIIEN) | ;EP
; Build the listman template body of the main Insurance Comment display ; Input: DFN - IEN of the patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; ^TMP($J,"IBCNCHIX",CNT) - See GETCOMS |
|
| BLDONEC(VALMCNT,COMCNT) | ; (Re)Build one comment into the listman display
; Called from BLD and after adding or editing a comment ; Input: VALMCNT - Current Line of the display being ; (re)built ; COMCNT - Comment Number ; ^TMP($J,"IBCNCHIX",COMCNT) - See GETONEC for details ; Output: VALMCNT - Updated Line of the display being ; (re)built |
|
| GETCOMS(DFN,IBIIEN) | ; Retrieves the policy comments for the selected
; patient and policy in most recent date order ; Input: DFN - IEN of the patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the ; multiple IEN of the selected patient policy ; Output: ^TMP($J,"IBCNCHIX",CNT) - A1^A2^A3^A4^A5^A6^A7^A8^A9^A10 ; See GETONEC for detailed explanation |
|
| GETONEC(DFN,IBIIEN,COMIEN,CNT,CLEN,FULL,NOSET) | ||
| SETL(LINE,DATA,LABEL,COL,LNG) | ; Creates a line of data to be set into the body
; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information |
|
| SEARCH(COMIN) | ||
| GETSTXT() | ; Get the text to search for
; Input: None ; Returns: text to search for or "" if not entered |
|
| SEARCHC(DFN,IBIIEN,STEXT,FOUND) | ; Search all the Patient Policy Comments
; Input: DFN - IEN of the Patient ; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the multiple ; IEN of the selected Patient Policy ; STEXT - Text to search for ; Output: FOUND - Array of Patient Policy Comments ; FOUND - A1 ; FOUND(0,CTR) - A2 ; FOUND(1,A2) - CTR ; Where: A1 - Number of comments where text was found ; A2 - IEN of the comment where text was found ; CTR- Counter to put sort comments by date |
|
| FOUNDT(DFN,IBIIEN,COMIEN,STEXT) | ; Search the specified comment for the
; specified text ; Input: DFN - IEN of the 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 ; STEXT - Text to search for ; Returns: 1 if the STEXT was found, 0 otherwise |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| 2.342 | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
