IBTRH5 ;ALB/FA - HCSR Response Worklist ;18-JUL-2014
Source file <IBTRH5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(IBFILTSR) | ;EP
; Main entry point for HCSR Response Worklist ; Input: IBFILTSR - Array of filter options from the HCSR Worklist ; NOTE: Any modifications done to these filters in the ; REFRESH menu action are not returned back to ; HCSR Worklist |
|
| HDR | ;EP
; Header code for HCSR Response Worklist ; Input: HCSSRTR - Current sort selection ; Output: VALMHDR - Header information to display ; VALM("TITLE") - HCSR Response Worklist Title ; VALMSG - Initial Error line display |
|
| INIT | ;EP
; Initialize variables and list array ; Input: None ; Output: HCSRSRTR - Initial worklist sort if not yet defined ; ^TMP("IBTRH5",$J) - Body lines to display |
|
| BLD | ; Build screen array, no variables required for input
; Input: HCSRSRTR - Current select sort type ; Output: ^TMP("IBTRH5",$J) - Body lines to display ; ^TMP($J,"IBTRH5S") - Sorted Body lines to display ; ^TMP($J,"IBTRH5IX") - Index of Event IENs by display line |
|
| BLDLN(ECTR,LINED) | ; Builds a line to display on List screen for one event
; Input: ECTR - Event counter ; LINED - A1^A2^...A9 Where: ; A1 - Patient Name ; A2 - Patient Status ('I' or 'O') ; A3 - External Appt or Admission date ; A4 - Clinic or Ward name ; A5 - COB ('P', 'S' or 'T') ; A6 - Insurance Company Name ; A7 - Certification Action Code ; Output: LINE - Formatted for setting into the list display |
|
| HELP | ;EP
; Display HCSR Response worklist Help ; Input: None |
|
| DEL | ;EP
; Protocol Action to select an entry to be manually removed from the ; Response Worklist ; Input: ^TMP("IBTRH5",$J) - Current Array of displayed entries ; ^TMP($J,"IBTRH5IX") - Current Index of displayed entries ; Output: Selected Entry is removed from the worklist ; Error messages display (potentially) ; ^TMP("IBTRH5",$J) - Updated Array of displayed entries ; ^TMP($J,"IBTRH5IX") - Updated Index of displayed entries |
|
| D1 | ;;
|
|
| EXIT | ;EP
; Exit the HCSR Response worklist ; Input: None |
|
| SORT(NOIOF) | ;EP
; Listman Protocol Action to sort the worklist ; Input: NOIOF - 1 to not write @IOF, 0 otherwise ; Optional, defaults to 0 ; HCSRSRTR - Current sort selection ; Output: HCSRSRTR - New sort selection |
|
| SORT1 | ||
| SKIP(EIEN,EVENT) | ; Checks to see if the specified event entry should display on
; the list ; Input: EIEN - IEN of the Event entry ; EVENT - Node0 of the Event Entry being checked ; IBFILTSR() - Array of filter settings. See FILTERS for a ; detailed explanation of the FILTERS array ; Returns: 1 - Don't display the entry on the list, 0 - Display entry on list |
|
| ONEEVENT(CSTAT,EIEN,EVENT) | ||
| SELEVENT(FULL,PROMPT,DLINE) | ||
| REFRESH | ;EP
; Protocol action to search for new Responses, reset filter ; and redisplay the HCSR Response Worklist ; Input: HCSSORTR - Current sort selection ; Output: IBFILTSR() - Array of filter criteria ; NOTE: Any modifications done to these filters ; are not returned back to HCSR Worklist. ; ^TMP("IBTRH5",$J) - Body lines to display ; ^TMP($J,"IBTRH5S") - Sorted Body lines to display ; ^TMP($J,"IBTRH5IX") - Index of Event IENs by display line |
|
| SEND278(EIEN) | ;EP
; Protocol action to create a new 278 request from a response. Copies the ; Request data from the response's original request and then allows the ; user to edit it before sending the request ; Input: EIEN - IEN of the Response Entry to create a new worklist ; entry from. Optional, only set when called from ; Protocol IBT HCSR RESPONSE EE SEND278 - SR from ; the EE action off of the Response Worklist. |
|
| DELAY | ;EP
; Protocol action to create a new request from the response but delay its ; viewing on the HCSR Worklist until admission of the entry has been ; discharged. ; Input: ^TMP("IBTRH5",$J) - Current Array of displayed entries ; ^TMP($J,"IBTRH5IX") - Current Index of displayed entries ; Output: A new Request is created from the Selected Entry (potentially) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^IBT(356.021 - [#356.021] | GETS^DIQ |
| ^IBT(356.22 - [#356.22] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
