IBTRH5B ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014
Source file <IBTRH5B.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR |
CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IB ADD/EDIT 278 IB CREATE 278 REQUEST |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBT(356.22 - [#356.22] | OXYTTYPE+9, OXYTTYPP+8, OXYTFIND+9, OXYTFNDP+8, OUDREASP+8, PROCTYPE+10, PROCTYPE+14, PROCMOD+10, PROCMODP+9, SLDXP+9 , ORALCAV+10, ORALCAVP+7, TOOTHS+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CERTCD | ONESL~, ONESL+21 |
>> DA | OXYTTYPE+9, OXYTFIND+9, OUDREASP+8, PITSL+20, PITSL1+6, PROC+16, PROC+18, PROC+19, PROCTYPE+10, PROCTYPE+11 , PROCMOD+10, PROCMODP+9, SLDXP+9, ORALCAV+10, ORALCAVP+7, TOOTHS+12 |
>> DA(1 | OUDREASP+8, PITSL+20, PITSL1+6, PROC+18, PROC+19, PROCTYPE+10, PROCTYPE+11, PROCTYPE+14, PROCMOD+10, PROCMODP+9 , SLDXP+9, ORALCAV+10, ORALCAVP+7, TOOTHS+12 |
>> DA(2 | TOOTHS+12 |
DENTAL | PROC+13~, PROC+15*, PROC+19*, PROC+23, PROCTYPE+8~, PROCTYPE+10*, PROCTYPE+12, PROCTYPE+13 |
>> DIC | PROC+23, PROC+26, PROC+31 |
DIR | PITSL+13~ |
DIR("?" | PITSL+25* |
DIR("A" | PITSL+26* |
DIR(0 | PITSL+22* |
DIROUT | PITSL+13~ |
DIRUT | PITSL+13~ |
DTOUT | PITSL+13~, PITSL1+2 |
DUOUT | PITSL+13~, PITSL1+2 |
ERROR | PITSL+13~ |
FDA | ONESL+16~, PITSL+13~ |
FDA( | ONESL+20*, ONESL+21*, ONESL+22*, PITSL1+6* |
FIELD | OXYTTYPE~, OXYTTYPE+14, OXYTTYPE+17, OXYTTYPE+20, OXYTTYPP~, OXYTTYPP+9, OXYTTYPP+10, OXYTFIND~, OXYTFIND+14, OXYTFIND+17 , OXYTFIND+20, OXYTFNDP~, OXYTFNDP+9, OXYTFNDP+10, OUDREASP~, OUDREASP+9, OUDREASP+14, OUDREASP+18, PROC~, PROC+16 , PROCMOD~, PROCMOD+15, PROCMOD+19, PROCMOD+23, PROCMOD+27, PROCMODP~, PROCMODP+10, PROCMODP+15, PROCMODP+19, SLDXP~ , SLDXP+10, SLDXP+15, SLDXP+19, ORALCAV~, ORALCAV+15, ORALCAV+20, ORALCAV+25, ORALCAV+30, ORALCAV+35, ORALCAVP~ , ORALCAVP+8, ORALCAVP+14, ORALCAVP+19, ORALCAVP+23, TOOTHS~, TOOTHS+17, TOOTHS+22, TOOTHS+27, TOOTHS+32, TOOTHS+37 |
>> IBEXIT | PITSL1+2* |
IBPSTAT | PROCTYPE+8~, PROCTYPE+14*, PROCTYPE+16 |
IBREQCAT | PITSL~ |
IBSLCTR | ONESL~, ONESL+17* |
IBTRIEN | OXYTTYPP~, OXYTTYPP+8, OXYTFNDP~, OXYTFNDP+8, ONESL~, ONESL+20, ONESL+21, ONESL+22 |
NDE | OXYTTYPE+8~, OXYTTYPE+9*, OXYTTYPE+15, OXYTTYPE+16, OXYTTYPE+18, OXYTTYPE+19, OXYTTYPE+21, OXYTTYPE+22, OXYTTYPP+7~, OXYTTYPP+8* , OXYTTYPP+9, OXYTTYPP+10, OXYTFIND+8~, OXYTFIND+9*, OXYTFIND+15, OXYTFIND+16, OXYTFIND+18, OXYTFIND+19, OXYTFIND+21, OXYTFIND+22 , OXYTFNDP+7~, OXYTFNDP+8*, OXYTFNDP+9, OXYTFNDP+10, OUDREASP+7~, OUDREASP+8*, OUDREASP+10, OUDREASP+11, OUDREASP+12, OUDREASP+15 , OUDREASP+16, OUDREASP+18, PROCMOD+9~, PROCMOD+10*, PROCMOD+16, PROCMOD+17, PROCMOD+18, PROCMOD+20, PROCMOD+21, PROCMOD+22 , PROCMOD+24, PROCMOD+25, PROCMOD+26, PROCMOD+28, PROCMOD+29, PROCMOD+30, PROCMODP+8~, PROCMODP+9*, PROCMODP+11, PROCMODP+12 , PROCMODP+13, PROCMODP+16, PROCMODP+17, PROCMODP+19, SLDXP+8~, SLDXP+9*, SLDXP+11, SLDXP+12, SLDXP+13, SLDXP+16 , SLDXP+17, SLDXP+19, ORALCAV+9~, ORALCAV+10*, ORALCAV+16, ORALCAV+17, ORALCAV+18, ORALCAV+19, ORALCAV+21, ORALCAV+22 , ORALCAV+23, ORALCAV+24, ORALCAV+26, ORALCAV+27, ORALCAV+28, ORALCAV+29, ORALCAV+31, ORALCAV+32, ORALCAV+33, ORALCAV+34 , ORALCAV+36, ORALCAV+37, ORALCAV+38, ORALCAV+39, ORALCAVP+6~, ORALCAVP+7*, ORALCAVP+9, ORALCAVP+10, ORALCAVP+11, ORALCAVP+12 , ORALCAVP+15, ORALCAVP+16, ORALCAVP+17, ORALCAVP+20, ORALCAVP+21, ORALCAVP+23, TOOTHS+11~, TOOTHS+12*, TOOTHS+18, TOOTHS+19 , TOOTHS+20, TOOTHS+21, TOOTHS+23, TOOTHS+24, TOOTHS+25, TOOTHS+26, TOOTHS+28, TOOTHS+29, TOOTHS+30, TOOTHS+31 , TOOTHS+33, TOOTHS+34, TOOTHS+35, TOOTHS+36, TOOTHS+38, TOOTHS+39, TOOTHS+40, TOOTHS+41 |
PXTYPE | PROC+13~, PROC+16*, PROC+18*, PROC+20, PROC+26, PROC+31 |
REQCAT | ONESL~, ONESL+20 |
RETURN | OXYTTYPE+8~, OXYTTYPE+10*, OXYTTYPE+14, OXYTTYPE+15*, OXYTTYPE+16*, OXYTTYPE+17, OXYTTYPE+18*, OXYTTYPE+19*, OXYTTYPE+20, OXYTTYPE+21* , OXYTTYPE+22*, OXYTTYPE+23, OXYTFIND+8~, OXYTFIND+10*, OXYTFIND+14, OXYTFIND+15*, OXYTFIND+16*, OXYTFIND+17, OXYTFIND+18*, OXYTFIND+19* , OXYTFIND+20, OXYTFIND+21*, OXYTFIND+22*, OXYTFIND+23, OUDREASP+7~, OUDREASP+9, OUDREASP+10*, OUDREASP+11*, OUDREASP+12*, OUDREASP+13* , OUDREASP+14, OUDREASP+15*, OUDREASP+16*, OUDREASP+17*, PROCMOD+9~, PROCMOD+11*, PROCMOD+15, PROCMOD+16*, PROCMOD+17*, PROCMOD+18* , PROCMOD+19, PROCMOD+20*, PROCMOD+21*, PROCMOD+22*, PROCMOD+23, PROCMOD+24*, PROCMOD+25*, PROCMOD+26*, PROCMOD+27, PROCMOD+28* , PROCMOD+29*, PROCMOD+30*, PROCMOD+31, PROCMODP+8~, PROCMODP+10, PROCMODP+11*, PROCMODP+12*, PROCMODP+13*, PROCMODP+14*, PROCMODP+15 , PROCMODP+16*, PROCMODP+17*, PROCMODP+18*, SLDXP+8~, SLDXP+10, SLDXP+11*, SLDXP+12*, SLDXP+13*, SLDXP+14*, SLDXP+15 , SLDXP+16*, SLDXP+17*, SLDXP+18*, ORALCAV+9~, ORALCAV+11*, ORALCAV+15, ORALCAV+16*, ORALCAV+17*, ORALCAV+18*, ORALCAV+19* , ORALCAV+20, ORALCAV+21*, ORALCAV+22*, ORALCAV+23*, ORALCAV+24*, ORALCAV+25, ORALCAV+26*, ORALCAV+27*, ORALCAV+28*, ORALCAV+29* , ORALCAV+30, ORALCAV+31*, ORALCAV+32*, ORALCAV+33*, ORALCAV+34*, ORALCAV+35, ORALCAV+36*, ORALCAV+37*, ORALCAV+38*, ORALCAV+39* , ORALCAV+40, ORALCAVP+6~, ORALCAVP+8, ORALCAVP+9*, ORALCAVP+10*, ORALCAVP+11*, ORALCAVP+12*, ORALCAVP+13*, ORALCAVP+14, ORALCAVP+15* , ORALCAVP+16*, ORALCAVP+17*, ORALCAVP+18*, ORALCAVP+19, ORALCAVP+20*, ORALCAVP+21*, ORALCAVP+22*, TOOTHS+11~, TOOTHS+13*, TOOTHS+17 , TOOTHS+18*, TOOTHS+19*, TOOTHS+20*, TOOTHS+21*, TOOTHS+22, TOOTHS+23*, TOOTHS+24*, TOOTHS+25*, TOOTHS+26*, TOOTHS+27 , TOOTHS+28*, TOOTHS+29*, TOOTHS+30*, TOOTHS+31*, TOOTHS+32, TOOTHS+33*, TOOTHS+34*, TOOTHS+35*, TOOTHS+36*, TOOTHS+37 , TOOTHS+38*, TOOTHS+39*, TOOTHS+40*, TOOTHS+41*, TOOTHS+42 |
SLTYPE | ONESL~, ONESL+22, PITSL+13~, PITSL+20*, PITSL+21, PITSL1+3*, PITSL1+6, PITSL1+8, PROCTYPE+8~, PROCTYPE+11* , PROCTYPE+15, PROCTYPE+16 |
X | PITSL+13~ |
XX | PITSL+13~, PITSL+23*, PITSL+24*, PITSL+25 |
Y | OXYTTYPE+11, OXYTTYPE+15, OXYTTYPE+16, OXYTTYPE+18, OXYTTYPE+19, OXYTTYPE+21, OXYTTYPE+22, OXYTFIND+11, OXYTFIND+15, OXYTFIND+16 , OXYTFIND+18, OXYTFIND+19, OXYTFIND+21, OXYTFIND+22, PITSL+13~, PITSL1+2, PITSL1+3, PROC+14, PROC+23, PROCTYPE+9 , PROCTYPE+12, PROCTYPE+13, PROCTYPE+15, PROCTYPE+16, PROCMOD+12, PROCMOD+16, PROCMOD+17, PROCMOD+18, PROCMOD+20, PROCMOD+21 , PROCMOD+22, PROCMOD+24, PROCMOD+25, PROCMOD+26, PROCMOD+28, PROCMOD+29, PROCMOD+30, ORALCAV+12, ORALCAV+16, ORALCAV+17 , ORALCAV+18, ORALCAV+19, ORALCAV+21, ORALCAV+22, ORALCAV+23, ORALCAV+24, ORALCAV+26, ORALCAV+27, ORALCAV+28, ORALCAV+29 , ORALCAV+31, ORALCAV+32, ORALCAV+33, ORALCAV+34, ORALCAV+36, ORALCAV+37, ORALCAV+38, ORALCAV+39, TOOTHS+14, TOOTHS+18 , TOOTHS+19, TOOTHS+20, TOOTHS+21, TOOTHS+23, TOOTHS+24, TOOTHS+25, TOOTHS+26, TOOTHS+28, TOOTHS+29, TOOTHS+30 , TOOTHS+31, TOOTHS+33, TOOTHS+34, TOOTHS+35, TOOTHS+36, TOOTHS+38, TOOTHS+39, TOOTHS+40, TOOTHS+41 |