IBTRH5B ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014
Source file <IBTRH5B.m>
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 |
FileNo | Call Tags |
---|---|
^IBT(356.22 - [#356.22] | GET1^DIQ |
356.2216 | GET1^DIQ |