IBTRH6 ;ALB/FA - HCSR Send 278 Short Worklist ;11-NOV-2014
Source file <IBTRH6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point for the IBT HCSR SEND 278 SHORT worklist
; Displays the selected 278 short form for sending 278 requests ; Input: IBTRIEN - IEN of the selected entry to send a request for |
|
| SELSHORT(INPAT) | ; User selection of which 278 request to send
; Input: INPAT=1 if inpatient, 0 otherwise ; Returns: Selected Input Type or "" if none selected |
|
| HDR | ;EP
; Protocol action to display Worklist Patient header information ; Input: IBTRIEN - IEN of the selected entry to send a request for ; Output: Header information for the patient of the selected entry is set |
|
| INIT | ;EP
|
|
| BLD | ; Creates the body of the worklist
|
|
| BLDUMO(SLINE,ELINE) | ; Build the UMO Field Section
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDSUB(SLINE,ELINE) | ; Build the Subscriber Fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDREQ(SLINE,ELINE) | ; Build the Requester fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDDEP(SLINE,ELINE) | ; Build the Dependent fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDDIAG(SLINE,ELINE) | ; Build the Diagnosis fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDHCSR(SLINE,ELINE) | ; Build the Health Care Service Review Fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDPROV(SLINE,ELINE) | ; Build the Provider Information Fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDSVC(SLINE,ELINE) | ; Build the Service Line Fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDAPI(SLINE,ELINE) | ; Build the Additional Patient Information Fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| BLDCOM(SLINE,ELINE) | ; Build the Comment Fields
; Input: ; SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
| SET(LABEL,DATA,LINE,COL) | ; Sets text into the body of the worklist
; Input: LABEL - Label text to set into the line ; DATA - Field Data to set into the line ; LINE - Line to set LABEL and DATA into ; COL - Starting column position in LINE to insert ; LABEL_DATA text ; Returns: LINE - Updated Line by 1 |
|
| SETN(TITLE,LINE,COL,RV) | ; Sets a field Section title into the body of the worklist
; Input: TITLE - Text to be used for the field Section Title ; LINE - Line number in the body to insert the field section title ; COL - Starting Column position to set Section Title into ; RV - 1 - Set Reverse Video, 0 or null don't use Reverse Video ; Optional, defaults to "" ; Returns: LINE - Line number increased by 1 |
|
| SET1(TEXT,LINE,COL,WIDTH,RV) | ; Sets the TMP array with body data
; Input: TEXT - Text to be set into the specified line ; LINE - Line to set TEXT into ; COL - Column of LINE to set TEXT into ; WIDTH - Width of the TEXT being set into line ; RV - 1 - Set Reverse Video, 0 or null don't use ; Reverse Video ; Optional, defaults to "" ; ^TMP("IBTRH6",$J) - Current ^TMP array ; Output: ^TMP("IBTRH6",$J) - Updated ^TMP array |
|
| DATA | ;EP
; Protocol action to add/edit fields for the brief 278 request fields |
|
| SEND278 | ;EP
; Protocol action to send the completed brief 278 request |
|
| HELP | ;EP
; Protocol Action to display help information |
|
| EXIT | ;EP
; Protocol action to exit the worklist |
|
| WRTFLDS | ; auto populate some fields in 356.22
|
|
| CLRCNUM(IBTRIEN) | ; clear contact numbers in file 356.22
|
|
| WRTCNUM | ; auto populate contact numbers in file 356.22
|
|
| GETCNUM(CNARY) | ; get contact numbers from file 356.22
; CNARY - array of results, passed by reference |
|
| NEWSL(IBTRIEN) | ; create new entry in service line multiple (356.2216) if no entries are there
; IBTRIEN - ien of the entry in file 356.22 |
|
| NEWSLX | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GETS^DIQ |
| ^IBE(353.1 - [#353.1] | GET1^DIQ |
| ^IBT(356.001 - [#356.001] | GET1^DIQ |
| ^IBT(356.002 - [#356.002] | GET1^DIQ |
| ^IBT(356.006 - [#356.006] | GET1^DIQ |
| ^IBT(356.018 - [#356.018] | GET1^DIQ |
| ^IBT(356.22 - [#356.22] | EXTERNAL^DILFD |
| 356.2211 | EXTERNAL^DILFD |
| 356.2216 | EXTERNAL^DILFD |
| 356.223 | EXTERNAL^DILFD |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBE(365.013 - [#365.013] | GET1^DIQ |
| ^IBE(365.022 - [#365.022] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
