IBCNCH2 ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;27-APR-2015
Source file <IBCNCH2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 4 | IBCNCH IBCNCH SEARCH LIST IBCNCH SEARCH LIST EXPAND IBCNSP |
| Kernel | 1 | ^ORD(101 |
| 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 | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | GETONEC+38, GETONEC+39, GETONEC+42, GETONEC+43, GETONEC+45, GETONEC+46, GETONEC+48, GETONEC+49, GETONEC+50, FOUNDT+11 , FOUNDT+13, FOUNDT+15, FOUNDT+17, FOUNDT+19, FOUNDT+21 |
| ^DIR | GETSTXT+5 |
| $$ASKYN^IBCNCH | SEARCH+26 |
| SEARCH^IBCNCH3 | SEARCH+27 |
| FULL^VALM1 | SEARCH+10 |
| PAUSE^VALM1 | SEARCH+14, SEARCH+20 |
| SET^VALM10 | BLD+15, BLD+22, BLDONEC+13, BLDONEC+16, BLDONEC+19, BLDONEC+22, BLDONEC+26 |
| $$FMTE^XLFDT | GETONEC+41 |
| $$UP^XLFSTR | FOUNDT+10, FOUNDT+11, FOUNDT+13, FOUNDT+15, FOUNDT+17, FOUNDT+19, FOUNDT+21 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| 2.342 | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETCOMS+10, GETCOMS+14, SEARCHC+15, SEARCHC+19 |
| ^TMP($J | BLD+11, BLDONEC+10, GETONEC+55* |
| Name | Line Occurrences |
|---|---|
| $$FOUNDT | SEARCHC+21 |
| $$GETSTXT | SEARCH+11 |
| $$SETL | BLDONEC+9, BLDONEC+12, BLDONEC+15, BLDONEC+18, BLDONEC+21, BLDONEC+25 |
| BLDONEC | BLD+18 |
| GETCOMS | BLD+7 |
| GETONEC | GETCOMS+17 |
| SEARCHC | SEARCH+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLEN | GETONEC~, GETONEC+36*, GETONEC+40, GETONEC+51 |
| CNT | BLD+6~, BLD+8*, BLD+10, BLD+11*, BLD+12, BLD+13, BLD+18, GETCOMS+7~, GETCOMS+8*, GETCOMS+16* , GETCOMS+17, GETONEC~, GETONEC+54, GETONEC+55, SEARCHC+12~, SEARCHC+13*, SEARCHC+22*, SEARCHC+23 |
| COL | SETL~, SETL+8 |
| COMCNT | BLDONEC~, BLDONEC+9, BLDONEC+10 |
| COMDT | GETCOMS+7~, GETCOMS+8*, GETCOMS+9, GETCOMS+10*, GETCOMS+11, GETCOMS+14, SEARCHC+12~, SEARCHC+13*, SEARCHC+14, SEARCHC+15* , SEARCHC+16, SEARCHC+19 |
| COMIEN | GETCOMS+7~, GETCOMS+12*, GETCOMS+13, GETCOMS+14*, GETCOMS+15, GETCOMS+17, GETONEC~, GETONEC+37, GETONEC+53, SEARCHC+12~ , SEARCHC+17*, SEARCHC+18, SEARCHC+19*, SEARCHC+20, SEARCHC+21, SEARCHC+23, FOUNDT~, FOUNDT+9 |
| COMIN | SEARCH~ |
| COMMENT | GETONEC+33~, GETONEC+38*, GETONEC+40, GETONEC+51 |
| DATA | SETL~, SETL+8 |
| DATALN | BLDONEC+8~, BLDONEC+10*, BLDONEC+11, BLDONEC+14, BLDONEC+17, BLDONEC+20, BLDONEC+24 |
| DATAOUT | GETONEC+33~, GETONEC+41*, GETONEC+44*, GETONEC+45*, GETONEC+47*, GETONEC+48*, GETONEC+49*, GETONEC+50*, GETONEC+52*, GETONEC+53* , GETONEC+54*, GETONEC+55, GETONEC+56 |
| DFN | BLD~, BLD+7, GETCOMS~, GETCOMS+10, GETCOMS+14, GETCOMS+17, GETONEC~, GETONEC+37, SEARCH+17, SEARCH+27 , SEARCHC~, SEARCHC+15, SEARCHC+19, SEARCHC+21, FOUNDT~, FOUNDT+9 |
| DIR | GETSTXT+3~ |
| DIR("A" | GETSTXT+4* |
| DIR(0 | GETSTXT+4* |
| DIROUT | GETSTXT+3~ |
| DIRUT | GETSTXT+3~ |
| DTOUT | GETSTXT+3~ |
| DUOUT | GETSTXT+3~ |
| FOUND | SEARCH+8~, SEARCH+17, SEARCH+18, SEARCH+23, SEARCH+27, SEARCHC~, SEARCHC+13*, SEARCHC+22* |
| FOUND(0 | SEARCHC+23* |
| FOUND(1 | SEARCHC+23* |
| FULL | GETONEC~, GETONEC+34*, GETONEC+51 |
| IBIIEN | BLD~, BLD+7, GETCOMS~, GETCOMS+10, GETCOMS+14, GETCOMS+17, GETONEC~, GETONEC+37, SEARCH+17, SEARCH+27 , SEARCHC~, SEARCHC+15, SEARCHC+19, SEARCHC+21, FOUNDT~, FOUNDT+9 |
| IENS | GETONEC+33~, GETONEC+37*, GETONEC+38, GETONEC+39, GETONEC+42, GETONEC+45, GETONEC+46, GETONEC+48, GETONEC+49, GETONEC+50 , FOUNDT+8~, FOUNDT+9*, FOUNDT+11, FOUNDT+13, FOUNDT+15, FOUNDT+17, FOUNDT+19, FOUNDT+21 |
| LABEL | SETL~, SETL+8 |
| LINE | BLD+6~, BLD+8*, BLDONEC+8~, BLDONEC+9*, BLDONEC+12*, BLDONEC+13, BLDONEC+15*, BLDONEC+16, BLDONEC+18*, BLDONEC+19 , BLDONEC+21*, BLDONEC+22, BLDONEC+25*, BLDONEC+26, SETL~, SETL+8*, SETL+9 |
| LN | BLD+6~ |
| LNG | SETL~, SETL+8 |
| NOSET | GETONEC~, GETONEC+35*, GETONEC+55 |
| STEXT | SEARCH+8~, SEARCH+11*, SEARCH+12, SEARCH+17, SEARCH+19, SEARCH+23, SEARCH+27, SEARCHC~, SEARCHC+21, FOUNDT~ , FOUNDT+10*, FOUNDT+12, FOUNDT+14, FOUNDT+16, FOUNDT+18, FOUNDT+20, FOUNDT+22 |
| >> VALMBCK | SEARCH+9* |
| VALMCNT | BLD+8*, BLD+14*, BLD+15, BLD+17*, BLD+18, BLD+20, BLD+21*, BLD+22, BLDONEC~, BLDONEC+13 , BLDONEC+16, BLDONEC+19, BLDONEC+22, BLDONEC+23*, BLDONEC+26 |
| X | GETSTXT+3~ |
| XX | BLD+6~, BLD+21*, BLD+22, BLDONEC+11*, BLDONEC+12, BLDONEC+14*, BLDONEC+15, BLDONEC+17*, BLDONEC+18, BLDONEC+20* , BLDONEC+21, BLDONEC+24*, BLDONEC+25, GETONEC+33~, GETONEC+39*, GETONEC+41, GETONEC+42*, GETONEC+43, FOUNDT+8~, FOUNDT+11* , FOUNDT+12, FOUNDT+13*, FOUNDT+14, FOUNDT+15*, FOUNDT+16, FOUNDT+17*, FOUNDT+18, FOUNDT+19*, FOUNDT+20, FOUNDT+21* , FOUNDT+22 |
| Y | GETSTXT+3~, GETSTXT+6 |
| ZZ | GETONEC+33~, GETONEC+40*, GETONEC+41, GETONEC+43*, GETONEC+44, GETONEC+46*, GETONEC+47, GETONEC+51*, GETONEC+52 |
