IBTRH1A ;ALB/FA - HCSR Worklist ;12-AUG-2014
Source file <IBTRH1A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REFRESH | ;EP
; Protocol action to search for new appointments/admission, reset filter ; and redisplay the HCSR Worklist ; Input: HCSSORT - Current sort selection ; Output: IBFILTS() - Array of filter criteria ; ^TMP("IBTRH1",$J) - Body lines to display ; ^TMP($J,"IBTRH1S") - Sorted Body lines to display ; ^TMP($J,"IBTRH1IX") - Index of Event IENs by display line |
|
| FILTERS(FILTERS) | ||
| ASKDIV(FILTERS) | ||
| ONEDIV(DIC,IEN,FIRST) | ||
| ASKWORC(WHICH,FILTERS) | ||
| ONEWORC(DIC,WHICH,IEN,FIRST) | ||
| WCFILT(WHICH,IEN,DIVS,CLINS,WARDS) | ||
| SORT1 | ||
| SKIP(EVENT) | ; Checks to see if the specified event entry should display on the
; list ; Input: EVENT - Event Entry being checked ; IBFILTS() - 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 |
|
| TRICARE(EVENT) | ||
| DISCH(EVENT) | ; Checks to see if the admission of the entry has been discharged
; Input: EVENT - Node 0 of the Event Entry being checked ; Returns: 1 if the admission has been discharged, 0 otherwise |
|
| ONEEVENT(CSTAT,EIEN,EVENT) | ||
| PNAME(DFN,RFLG,PNAME) | ;EP
; Format the patient name column for display in the worklist ; Input: DFN - Internal IEN of the patient ; RFLG - Symbol to display in front of the name (if any) ; Output: PNAME - $P(^DPT(DFN,0),"^",1) ; Returns: Formatted patient name |
|
| PATLOC(EVENT) | ;EP
; Returns the Clinic or Ward associated with the event ; Input: EVENT - ^IBT(356.22,EIEN,0) ; Returns: Formatted Clinic or location name |
|
| GETSCR(DFN) | ; Retrieves all of the services connected reasons to be displayed
; Input: DFN - Internal IEN of the patient of the event ; Returns: SCR - String of Service Connected reasons to be displayed |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^DGPM - [#405] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
