IBTRH1 ;ALB/FA - HCSR Worklist ;01-JUL-2014
Source file <IBTRH1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EP
; Main entry point for HCSR Worklist ; Input: None |
|
| HDR | ;EP
; Header code for HCSR Worklist ; Input: HCSRSORT - Current sort selection ; IBFILTS() - Array of filter criteria ; Output: VALMHDR - Header information to display ; VALM("TITLE") - HCSR Worklist Title ; VALMSG - Initial Error line display |
|
| VALMSGH(INP) | ;EP
; Sets the legend into variable VALMSG ; Input: INP - 1 - Only display #In-Prog, 0 - Display all ; Optional, defaults to 0 ; Output: VALMSG is set |
|
| FILTBY(IBFILTS) | ;EP
; Creates the 'Filtered By' line of the worklist header ; Input: IBFILT - Array of current filter settings ; Returns: Filtered By line |
|
| INIT | ;EP
; Initialize variables and list array ; Input: None ; Output: HCSRSORT - Initial worklist sort if not yet defined ; IBFILTS() - Array of filter criteria ; ^TMP("IBTRH1",$J) - Body lines to display |
|
| BLD | ; Build screen array, no variables required for input
; Input: HCSRSORT - Current select sort type ; IBFILTS() - Array of filter criteria ; Output: ^TMP("IBTRH1",$J) - Body lines to display ; ^TMP($J,"IBTRH1S") - Sorted Body lines to display ; ^TMP($J,"IBTRH1IX") - Index of Entry IENs by display line |
|
| BLD1 | ;
|
|
| BLDLN(ECTR,LINED) | ; Builds a line to display on List screen for one entry
; Input: ECTR - Entry 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' or 'S') ; A6 - Insurance Company Name ; A7 - Utilization Review required ; A8 - Pre-Certification required ; A9 - Service Connection flags ; Output: LINE - Formatted for setting into the list display |
|
| HELP | ;EP
; Help code ; Input: None |
|
| EXIT | ;EP
; Exit code ; Input: None |
|
| SORT(FIRST) | ;EP
; Listman Protocol Action to sort the worklist ; Input: FIRST - 1 - Called for the first time before the Worklist is displayed ; 2 - Called from Refresh action (REFRESH^IBTRH1A) ; 0 - Called as an action from within the Worklist, Optional, defaults to 0 ; HCSRSORT - Current sort selection (null if FIRST=1) ; IBFILTS()- Array of filter criteria ; Output: HCSRSORT - New sort selection and list is sorted |
|
| DEL | ;EP
; Protocol Action to select an entry to be manually removed from the worklist ; Input: ^TMP("IBTRH1",$J) - Current Array of displayed entries ; ^TMP($J,"IBTRHIX") - Current Index of displayed entries ; Output: Selected Entry is removed from the worklist ; Error messages display (potentially) ; ^TMP("IBTRH1",$J) - Updated Array of displayed entries ; ^TMP($J,"IBTRHIX") - Updated Index of displayed entries |
|
| D1 | ;
|
|
| ASKSURE(DLINE,MSG,ENTIRE) | ||
| PRMARK(WHICH,EIENIN,WLIST) | ||
| PRMARK1(IEN,STATUS,USER,TSTAMP,RESP) | ; Change 'In-Progress' status of a given entry
; Input: IEN - IEN of file 356.22 entry to use ; STATUS - New status to set: '01' - Set 'In-Progress', ; '0' - Remove 'In-Progress' ; USER - File 200 ien of a user changing the status, defaults ; to DUZ ; TSTAMP - Timestamp of the status change, defaults to current ; date/time ; RESP - 1 - Setting field .21 instead of field .08 ; Optional, defaults to 0 |
|
| SELEVENT(FULL,PROMPT,DLINE,MULT,WLIST) | ||
| ADDCMT | ||
| LOCKEV(IEN) | ;EP
; Locks the specified entry for editing ; Input: IEN - IEN of the entry to locked ; Output: Entry is locked (potentially) ; Returns: 1 - Entry was locked ; 0 - Entry couldn't be locked |
|
| UNLOCKEV(IEN) | ||
| COMMENT(COM) |
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356.021 - [#356.021] | GETS^DIQ |
| ^IBT(356.023 - [#356.023] | Classic Fileman Calls |
| ^IBT(356.22 - [#356.22] | GET1^DIQ |
| ^IBE(365.017 - [#365.017] | GETS^DIQ |
