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 |