IBTRHDE ;ALB/FA - HCSR Patient Events Search ;06-JUN-2014
Source file <IBTRHDE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(NOMSG) | ;EP
; Called from menu option: IBT HCSR NIGHTLY PROCESS designed to be scheduled ; in TaskMan to be executed once a day during off-peak hours ; Use HCSR Site Parameters to set appointment search criteria and filter ; appointments. File any appointments that match the criteria into 356.22, ; the HCS Review Transmission file ; Input: NOMSG - 1 to not display locked message. Only set to 1 when ; called from REFRESH^IBTRH1A to refresh the worklist ; screen. ; Optional, defaults to 0 |
|
| ENX | ; Purge task record - if queued
|
|
| FAPPTS(HCSR) | ||
| FADMS(HCSR) | ||
| PURGE(HCSR) | ||
| SETFILTS(HCSR,SFILT) | ; Set the Appointment Search filters
; Input: HCSR - HCSR Site Parameters ; Output: SFILT() - Array of Appointment Search filters |
|
| GETDAYS1(HCSR,DATES,DATEE) | ||
| GETDAYS2(HCSR,DATES,DATEE) | ||
| CKAFINS(HCSR,DFN,ADATE,WHICH,AINS,DATECHK) | ||
| SETEVENT(NODE0) | ; Set Events into the HCS Review Transmission file (356.22)
; Input: NODE0 - A1^A2^...^An Where: ; A1 - External date of when event was filed ; A2 - Internal Patient DFN event is for ; A3 - Insurance multiple IEN ; A4 - Status. 'I' for Admission, 'O' for appointment ; A5 - Internal Ward IEN (file 42) if event is an ; admission, null otherwise ; A6 - Internal Clinic IEN (file 44) if event is an ; appointment, null otherwise ; A7 - Internal fileman date (or date range) of the event ; (appointment or admission date) ; NOTE: if admission, this is B1-B2 Where: ; B1 - Internal Admission Start Date ; B2 - Internal Admission Discharge Date ; A8 - Source identifier - Internal fileman date/time of ; the appointment or the Internal fileman date of the ; admission that caused the event creation. Used in ; Conjunction with the patient's DFN and Insurance IEN ; to prevent the creation of 'duplicate' entries ; Output: Event is filed into the HCS Review Transmission file (356.22) |
|
| ER | ; Unlock the IBT HCSR Nightly Process and return to log error
|
|
| CHKLIST(NODE,LISTIEN,INSIEN) | ; check site parameters and determine if clinic/ward + payer combination is on the list
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356.22 - [#356.22] | Classic Fileman Calls |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBE(365.016 - [#365.016] | FIND1^DIC |
| ^DGPM - [#405] | GET1^DIQ |
| ^DGS(41.1 - [#41.1] | GET1^DIQ |
