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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBTRH5B

Package: Integrated Billing

Routine: IBTRH5B


Information

IBTRH5B ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014

Source Information

Source file <IBTRH5B.m>

Entry Points

Name Comments DBIA/ICR reference
OXYTTYPE(FIELD) ;EP
; Dictionary Screen function called from Home Oxygen Therapy Information fields:
; 8.01,8.02,8.03. Prevents the same Oxygen Equipment Type from being selected
; more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
OXYTTYPP(IBTRIEN,FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Oxygen Equipment Type
; fields. Checks to see if subsequent Oxygen Entry Equipment Type entries have
; values.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; FIELD - Field number of the field being checked
; Returns: 1 - Subsequent entries have values, 0 otherwise
OXYTFIND(FIELD) ;EP
; Dictionary Screen function called from Home Oxygen Therapy Information fields:
; 9.04,9.05,9.06. Prevents the same Oxygen Equipment Test finding from being
; selected more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
OXYTFNDP(IBTRIEN,FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Oxygen Test Finding
; fields. Checks to see if subsequent Oxygen Test Findings entries have
; values.
; Input: IBTRIEN - IEN of the 356.22 entry being edited
; FIELD - Field number of the field being checked
; Returns: 1 - Subsequent entries have values, 0 otherwise
OUDREASP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Other UMO Denial Reasons
; fields. Checks to see if subsequent Denial Reasons have values.
; Input: FIELD - Field number of the field being checked
; DA - IEN of the 356.2215 multiple entry being edited
; DA(1) - IEN of the Patient Event Entry
; Returns: 1 - Subsequent entries have values, 0 otherwise
ONESL(IBTRIEN,REQCAT,CERTCD,SLTYPE,IBSLCTR) ;EP
; Called from Input Template: IB CREATE 278 REQUEST
; Auto Files a new Profession, Institutional or Dental Service Line multiple
; into 356.22. Only auto files the .02, .03 and 1.12 field. Other specified
; fields are asked within the Input Template according to the Service Line
; Type.
; Input: IBTRIEN - IEN of the selected entry
; REQCAT - IEN of the Request Category to file in .01
; CERTCD - IEN of the Certification Code to file in .02
; SLTYPE - 'P' - Professional Service Line
; 'I' - Institutional Service Line
; 'D' - Dental Service Line
; IBSLCTR - Current number of Service Line multiples
; Output: Service Line multiple is filed into 356.2216
; IBSLCTR - Updated number of Service Line multiples
; Returns: 1 if a Provider Data multiple was filed, 0 otherwise
PITSL(IBREQCAT) ;EP
; Called from Input Template: IB CREATE 278 REQUEST
; Called when creating a new Service Line to determine the type of Service
; Line to be created
; Input: IBREQCAT - IEN of the Patient Event Request Category
; DA(1) - IEN of the selected entry
; DA - IEN of the Service Line Multiple
; Output: IBEXIT - 1 if user entered ^, timed out or answered E
; 0 otherwise.
; if 1 NO service line multiple is filed
; Service Line multiple is filed into 356.2216
; Returns: Label to jump to based upon the type of line selected
; Returns '0' to exit multiple if not entered
PITSL1 ; Looping Tag
PROC(FIELD) ;EP
; Dictionary Screen function called from the following fields in file 356.22:
; 10.07, 16,1.02, 16,1.03
; Prevents dictionary lookup into the wrong dictionary of the variable pointer
; field.
; Input: FIELD - Field # of the field being screened
; DA - IEN of the 356.22 entry if FIELD=10.07. Otherwise, IEN of
; the service line multiple
; DA(1) - IEN of the 356.22 entry being edited if FIELD'=10.07
; DIC - Contains the global ref of dictionary being checked
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
; NOTE: Dental search disabled for now
PROCTYPE() ;EP
; Dictionary Screen function called from field in file 356.2216, 1.01
; Prevents selection of 'ID' or 'ZZ' if entry is not for an inpatient
; Input: DA - IEN of the 356.22 entry if FIELD=10.07. Otherwise, IEN of
; the service line multiple
; DA(1) - IEN of the 356.22 entry being edited if FIELD'=10.07
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
PROCMOD(FIELD) ;EP
; Dictionary Screen function called from Service Line Procedure Modifier Fields:
; 32216,1.04, 32216,1.05, 32216,1.06, 32216,1.07.
; Prevents the same Procedure Modifier from being selected more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
PROCMODP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Service Line Procedure
; Modifier fields. Checks to see if subsequent Procedure Modifier entries have
; values.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Returns: 1 - Subsequent entries have values, 0 otherwise
SLDXP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Service Line Procedure
; Diagnosis fields. Checks to see if subsequent Procedure Diagnosis entries
; have values.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Returns: 1 - Subsequent entries have values, 0 otherwise
ORALCAV(FIELD) ;EP
; Dictionary Screen function called from Service Line Oral Cavity Fields:
; 32216,3.01, 32216,3.02, 32216,3.03, 32216,3.04, 32216,3.05.
; Prevents the same Oral Cavity from being selected more than once.
; Input: FIELD - Field # of the field being checked
; DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
ORALCAVP(FIELD) ;EP
; Called from Input Template IB CREATE 278 REQUEST for Service Line Oral Cavity
; fields. Checks to see if subsequent Oral Cavity entries have values.
; Input: DA - IEN of the Service Line Multiple being edited
; DA(1) - IEN of the 356.22 entry being edited
; Returns: 1 - Subsequent entries have values, 0 otherwise
TOOTHS(FIELD) ;EP
; Dictionary Screen function called from Dental Service Line Tooth fields:
; 22164,.02, 22614,.03, 22614,.04, 22614,.05, 22614,.06. Prevents the
; same Tooth Surface from being selected
; more than once.
; Input: FIELD - Field # of the field being checked
; DA - Tooth Surface multiple IEN
; DA(1) - Service Line multiple IEN
; DA(2) - IEN of the 356.22 entry being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.22 - [#356.22] GET1^DIQ
356.2216 GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call