Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBTRH6

Package: Integrated Billing

Routine: IBTRH6


Information

IBTRH6 ;ALB/FA - HCSR Send 278 Short Worklist ;11-NOV-2014

Source Information

Source file <IBTRH6.m>

Entry Points

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 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Mental Health and Prescription options are not currently available."
  • Line Location: SELSHORT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+4

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call