IBTRH5A ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014
Source file <IBTRH5A.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | $$GET1^DIQ ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
RCAUSE(FIELD) | ;EP
; Dictionary Screen function called from the following fields: 2.08,2.09,2.1 ; Prevents the same Related Cause from being entered in more than one field. ; 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 |
|
RCAUSEP(FIELD) | ;EP
; Called from Input Template IB CREATE 278 REQUEST for fields: 2.08, 2.09 ; Checks to see if subsequent Related Causes entries have values. ; Input: FIELD - Field # of the field being checked ; Set to 'ALL' to see if any of the 3 have a value ; DA - IEN of the 356.22 entry being edited ; Returns: 1 - Subsequent entries have values, 0 otherwise |
|
DXCODE() | ;EP
; Dictionary Screen function called from field: 3.02 ; Prevents a duplicate ICD-9/ICD-10 or DRG Diagnosis from being entered ; Input: DA - IEN of Diagnosis multiple being entered/edited 95.3 ; DA(1) - IEN of the 356.22 entry being edited ; 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 |
|
CERTCAT(IBPSTAT) | ||
CERTCOND(FIELD) | ;EP
; Dictionary Screen function called from the following Certification Condition ; fields in file 356.22: 4.1,4.11,4.12,4.13,4.14 (Ambulance Cert Conditions) ; 5.02,5.03,5.04,5.05,5.06 (Chiropractic Cert Conds) ; 5.08,5.09,5.1,5.11,5.12 (DME Cert Conditions) ; 5.14,5.15,5.16,5.17,5.18 (Oxygen Cert Conditions) ; 6.02,6.03,6.04,6.05,6.06 (Functional Limit Cert Cond) ; 6.08,6.09,6.1,6.11,6.12 (Activities Cert Conditions) ; 6.14,6.15,6.16,6.17,6.18 (Mental Health Cert Conds) ; Prevents the same Certification Condition from being answered in the ; specified Certification Condition Category (e.g. Ambulance, Chiropractic, ; etc.). Also restricts user selection to a specified list by Certification ; Condition Category. Finally, also prevents the user from deleting any EXCEPT ; the last entered Certification Condition in any category. ; 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 |
|
CERTCNDP(IBTRIEN,FIELD) | ;EP
; Called from Input Template IB CREATE 278 REQUEST for Certification Condition ; fields. Checks to see if subsequent Certification Condition entries have ; values. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field the being checked ; Returns: 1 - Subsequent entries have values, 0 otherwise |
|
CONDAMB(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for Ambulance Certification Conditions and it's not a ; duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CONDCHR(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for Chiropractic Certification Conditions and it's not a ; duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CONDDME(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for DME Certification Conditions and it's not a ; duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CONDOXY(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for Oxygen Certification Conditions and it's not a ; duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CONDFL(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for Functional Limitations Certification Conditions and ; it's not a duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CONDA(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for Activities Certification Conditions and ; it's not a duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CONDMS(IBTRIEN,FIELD,VALUE) | ; Makes sure the user entry for a Certification
; Condition is valid for Mental Status Certification Conditions and ; it's not a duplicate ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; FIELD - Field number of the field value being checked ; VALUE - Internal value being validated ; Returns: 1 if the field value is valid, 0 otherwise |
|
CHKDUPS(FPCE,VALUE,NDE,PCES) | ;EP
; Generic duplicate field checker. Checks for a duplicate value in a list of ; fields to prevent the same value from being entered in more than field in ; the list ; Input: FPCE - Piece # of the field being checked ; VALUE - Internal Value of the user response ; NDE - HCSR Transmission file node that contains the fields ; PCES - '^' delimited list of storage locations for above fields ; Returns: 1 - No duplicates found, 0 otherwise |
FileNo | Call Tags |
---|---|
^ICD9 - [#80] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBT(356.22 - [#356.22] | RCAUSE+10, RCAUSEP+8, DXCODE+10, DXCODE+29, DXCODE+32, CERTCNDP+11, CERTCNDP+29, CERTCNDP+83, CONDAMB+8, CONDCHR+8 , CONDDME+8, CONDOXY+8, CONDFL+8, CONDA+8, CONDMS+8 |
Name | Line Occurrences |
---|---|
$$CHKDUPS | CONDAMB+19, CONDCHR+19, CONDDME+20, CONDOXY+19, CONDFL+23, CONDA+20, CONDMS+20 |
$$CONDA | CERTCOND+28 |
$$CONDAMB | CERTCOND+23 |
$$CONDCHR | CERTCOND+24 |
$$CONDDME | CERTCOND+25 |
$$CONDFL | CERTCOND+27 |
$$CONDMS | CERTCOND+29 |
$$CONDOXY | CERTCOND+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CCONDS | CONDAMB+7~, CONDAMB+8*, CONDCHR+7~, CONDCHR+8*, CONDDME+7~, CONDDME+8*, CONDOXY+7~, CONDOXY+8*, CONDFL+7~, CONDFL+8* , CONDA+7~, CONDA+8*, CONDMS+7~, CONDMS+8* |
CCONDS( | CONDAMB+11*, CONDAMB+14, CONDCHR+11*, CONDCHR+14, CONDDME+12*, CONDDME+15, CONDOXY+11*, CONDOXY+14, CONDFL+13*, CONDFL+15* , CONDFL+18, CONDA+12*, CONDA+15, CONDMS+12*, CONDMS+15 |
CTYPE | DXCODE+8~, DXCODE+23*, DXCODE+24, DXCODE+25 |
>> DA | RCAUSE+10, RCAUSEP+8, DXCODE+10, DXCODE+31, CERTCOND+23, CERTCOND+24, CERTCOND+25, CERTCOND+26, CERTCOND+27, CERTCOND+28 , CERTCOND+29 |
>> DA(1 | DXCODE+10, DXCODE+29, DXCODE+32 |
>> DIC | DXCODE+15, DXCODE+18, DXCODE+21 |
DIR | CERTCAT+11~, CERTCAT+21! |
DIR("?" | CERTCAT+18* |
DIR("A" | CERTCAT+20* |
DIR(0 | CERTCAT+19* |
DIROUT | CERTCAT+11~ |
DIRUT | CERTCAT+11~ |
DLINE | CERTCAT+11~ |
DTOUT | CERTCAT+11~, CERTCAT+23 |
DUOUT | CERTCAT+11~, CERTCAT+22 |
DXCD | DXCODE+8~, DXCODE+32*, DXCODE+33 |
DXCDS | DXCODE+8~, DXCODE+27*, DXCODE+33*, DXCODE+37 |
DXTYPE | DXCODE+8~, DXCODE+10*, DXCODE+11, DXCODE+15, DXCODE+18, DXCODE+21, DXCODE+24, DXCODE+25, DXCODE+36 |
FIELD | RCAUSE~, RCAUSE+13, RCAUSE+16, RCAUSE+20, RCAUSEP~, RCAUSEP+11, RCAUSEP+15, RCAUSEP+18, CERTCOND~, CERTCOND+23 , CERTCOND+24, CERTCOND+25, CERTCOND+26, CERTCOND+27, CERTCOND+28, CERTCOND+29, CERTCNDP~, CERTCNDP+12, CERTCNDP+18, CERTCNDP+22 , CERTCNDP+26, CERTCNDP+30, CERTCNDP+36, CERTCNDP+41, CERTCNDP+44, CERTCNDP+47, CERTCNDP+53, CERTCNDP+58, CERTCNDP+62, CERTCNDP+65 , CERTCNDP+71, CERTCNDP+76, CERTCNDP+80, CERTCNDP+84, CERTCNDP+90, CERTCNDP+95, CERTCNDP+99, CERTCNDP+102, CERTCNDP+108, CERTCNDP+113 , CERTCNDP+117, CERTCNDP+120, CERTCNDP+126, CERTCNDP+131, CERTCNDP+135, CONDAMB~, CONDAMB+18, CONDCHR~, CONDCHR+18, CONDDME~ , CONDDME+19, CONDOXY~, CONDOXY+18, CONDFL~, CONDFL+22, CONDA~, CONDA+19, CONDMS~, CONDMS+19 |
FPCE | CHKDUPS~, CHKDUPS+16 |
IBPSTAT | CERTCAT~ |
IBTRIEN | CERTCNDP~, CERTCNDP+11, CERTCNDP+29, CERTCNDP+83, CONDAMB~, CONDAMB+8, CONDCHR~, CONDCHR+8, CONDDME~, CONDDME+8 , CONDOXY~, CONDOXY+8, CONDFL~, CONDFL+8, CONDA~, CONDA+8, CONDMS~, CONDMS+8 |
>> IBUPOUT | CERTCAT+22* |
IX | DXCODE+8~, DXCODE+27*, DXCODE+28, DXCODE+29*, DXCODE+30, DXCODE+31, DXCODE+32, CHKDUPS+9~, CHKDUPS+14*, CHKDUPS+15 |
NDE | RCAUSE+7~, RCAUSE+10*, RCAUSE+14, RCAUSE+15, RCAUSE+17, RCAUSE+18, RCAUSEP+7~, RCAUSEP+8*, RCAUSEP+12, RCAUSEP+13 , RCAUSEP+14, RCAUSEP+16, RCAUSEP+17, RCAUSEP+19, RCAUSEP+20, RCAUSEP+21, CERTCNDP+7~, CERTCNDP+11*, CERTCNDP+13, CERTCNDP+14 , CERTCNDP+15, CERTCNDP+16, CERTCNDP+19, CERTCNDP+20, CERTCNDP+21, CERTCNDP+23, CERTCNDP+24, CERTCNDP+26, CERTCNDP+29*, CERTCNDP+31 , CERTCNDP+32, CERTCNDP+33, CERTCNDP+34, CERTCNDP+37, CERTCNDP+38, CERTCNDP+39, CERTCNDP+42, CERTCNDP+43, CERTCNDP+44, CERTCNDP+48 , CERTCNDP+49, CERTCNDP+50, CERTCNDP+51, CERTCNDP+54, CERTCNDP+55, CERTCNDP+56, CERTCNDP+59, CERTCNDP+60, CERTCNDP+62, CERTCNDP+66 , CERTCNDP+67, CERTCNDP+68, CERTCNDP+69, CERTCNDP+72, CERTCNDP+73, CERTCNDP+74, CERTCNDP+77, CERTCNDP+78, CERTCNDP+80, CERTCNDP+83* , CERTCNDP+85, CERTCNDP+86, CERTCNDP+87, CERTCNDP+88, CERTCNDP+91, CERTCNDP+92, CERTCNDP+93, CERTCNDP+96, CERTCNDP+97, CERTCNDP+99 , CERTCNDP+103, CERTCNDP+104, CERTCNDP+105, CERTCNDP+106, CERTCNDP+109, CERTCNDP+110, CERTCNDP+111, CERTCNDP+114, CERTCNDP+115, CERTCNDP+117 , CERTCNDP+121, CERTCNDP+122, CERTCNDP+123, CERTCNDP+124, CERTCNDP+127, CERTCNDP+128, CERTCNDP+129, CERTCNDP+132, CERTCNDP+133, CERTCNDP+135 , CONDAMB+7~, CONDAMB+8*, CONDAMB+19, CONDCHR+7~, CONDCHR+8*, CONDCHR+19, CONDDME+7~, CONDDME+8*, CONDDME+20, CONDOXY+7~ , CONDOXY+8*, CONDOXY+19, CONDFL+7~, CONDFL+8*, CONDFL+23, CONDA+7~, CONDA+8*, CONDA+20, CONDMS+7~, CONDMS+8* , CONDMS+20, CHKDUPS~, CHKDUPS+17 |
PCE | CONDAMB+7~, CONDAMB+18*, CONDAMB+19, CONDCHR+7~, CONDCHR+18*, CONDCHR+19, CONDDME+7~, CONDDME+19*, CONDDME+20, CONDOXY+7~ , CONDOXY+18*, CONDOXY+19, CONDFL+7~, CONDFL+22*, CONDFL+23, CONDA+7~, CONDA+19*, CONDA+20, CONDMS+7~, CONDMS+19* , CONDMS+20, CHKDUPS+9~, CHKDUPS+15*, CHKDUPS+16, CHKDUPS+17 |
PCES | CONDAMB+7~, CONDAMB+17*, CONDAMB+19, CONDCHR+7~, CONDCHR+17*, CONDCHR+19, CONDDME+7~, CONDDME+18*, CONDDME+20, CONDOXY+7~ , CONDOXY+17*, CONDOXY+19, CONDFL+7~, CONDFL+21*, CONDFL+23, CONDA+7~, CONDA+18*, CONDA+20, CONDMS+7~, CONDMS+18* , CONDMS+20, CHKDUPS~, CHKDUPS+14, CHKDUPS+15 |
RETURN | RCAUSE+7~, RCAUSE+8*, RCAUSE+13, RCAUSE+14*, RCAUSE+15*, RCAUSE+16, RCAUSE+17*, RCAUSE+18*, RCAUSE+19*, RCAUSE+20 , RCAUSE+21*, RCAUSE+22, RCAUSEP+7~, RCAUSEP+9*, RCAUSEP+11, RCAUSEP+12*, RCAUSEP+13*, RCAUSEP+14*, RCAUSEP+15, RCAUSEP+16* , RCAUSEP+17*, RCAUSEP+18, RCAUSEP+19*, RCAUSEP+20*, RCAUSEP+21*, RCAUSEP+22*, RCAUSEP+23, CERTCNDP+7~, CERTCNDP+8*, CERTCNDP+12 , CERTCNDP+13*, CERTCNDP+14*, CERTCNDP+15*, CERTCNDP+16*, CERTCNDP+17*, CERTCNDP+18, CERTCNDP+19*, CERTCNDP+20*, CERTCNDP+21*, CERTCNDP+22 , CERTCNDP+23*, CERTCNDP+24*, CERTCNDP+25*, CERTCNDP+30, CERTCNDP+31*, CERTCNDP+32*, CERTCNDP+33*, CERTCNDP+34*, CERTCNDP+35*, CERTCNDP+36 , CERTCNDP+37*, CERTCNDP+38*, CERTCNDP+39*, CERTCNDP+40*, CERTCNDP+41, CERTCNDP+42*, CERTCNDP+43*, CERTCNDP+47, CERTCNDP+48*, CERTCNDP+49* , CERTCNDP+50*, CERTCNDP+51*, CERTCNDP+52*, CERTCNDP+53, CERTCNDP+54*, CERTCNDP+55*, CERTCNDP+56*, CERTCNDP+57*, CERTCNDP+58, CERTCNDP+59* , CERTCNDP+60*, CERTCNDP+61*, CERTCNDP+65, CERTCNDP+66*, CERTCNDP+67*, CERTCNDP+68*, CERTCNDP+69*, CERTCNDP+70*, CERTCNDP+71, CERTCNDP+72* , CERTCNDP+73*, CERTCNDP+74*, CERTCNDP+75*, CERTCNDP+76, CERTCNDP+77*, CERTCNDP+78*, CERTCNDP+79*, CERTCNDP+84, CERTCNDP+85*, CERTCNDP+86* , CERTCNDP+87*, CERTCNDP+88*, CERTCNDP+89*, CERTCNDP+90, CERTCNDP+91*, CERTCNDP+92*, CERTCNDP+93*, CERTCNDP+94*, CERTCNDP+95, CERTCNDP+96* , CERTCNDP+97*, CERTCNDP+98*, CERTCNDP+102, CERTCNDP+103*, CERTCNDP+104*, CERTCNDP+105*, CERTCNDP+106*, CERTCNDP+107*, CERTCNDP+108, CERTCNDP+109* , CERTCNDP+110*, CERTCNDP+111*, CERTCNDP+112*, CERTCNDP+113, CERTCNDP+114*, CERTCNDP+115*, CERTCNDP+116*, CERTCNDP+120, CERTCNDP+121*, CERTCNDP+122* , CERTCNDP+123*, CERTCNDP+124*, CERTCNDP+125*, CERTCNDP+126, CERTCNDP+127*, CERTCNDP+128*, CERTCNDP+129*, CERTCNDP+130*, CERTCNDP+131, CERTCNDP+132* , CERTCNDP+133*, CERTCNDP+134*, CHKDUPS+9~, CHKDUPS+10*, CHKDUPS+14, CHKDUPS+17*, CHKDUPS+18 |
SEL | CERTCAT+11~, CERTCAT+12*, CERTCAT+13*, CERTCAT+14*, CERTCAT+15*, CERTCAT+19 |
VALUE | CONDAMB~, CONDAMB+14, CONDAMB+19, CONDCHR~, CONDCHR+14, CONDCHR+19, CONDDME~, CONDDME+15, CONDDME+20, CONDOXY~ , CONDOXY+14, CONDOXY+19, CONDFL~, CONDFL+18, CONDFL+23, CONDA~, CONDA+15, CONDA+20, CONDMS~, CONDMS+15 , CONDMS+20, CHKDUPS~, CHKDUPS+11, CHKDUPS+17 |
XX | DXCODE+8~, DXCODE+36*, DXCODE+37, CERTCAT+11~, CERTCAT+16*, CERTCAT+17*, CERTCAT+18, CONDAMB+7~, CONDAMB+11*, CONDCHR+7~ , CONDCHR+11*, CONDDME+7~, CONDDME+11*, CONDDME+12, CONDOXY+7~, CONDOXY+11*, CONDFL+7~, CONDFL+12*, CONDFL+13, CONDFL+14* , CONDFL+15, CONDA+7~, CONDA+11*, CONDA+12, CONDMS+7~, CONDMS+11*, CONDMS+12 |
>> Y | RCAUSE+9, RCAUSE+14, RCAUSE+15, RCAUSE+17, RCAUSE+18, RCAUSE+19, RCAUSE+21, DXCODE+9, DXCODE+23, DXCODE+36 , CERTCAT+24, CERTCAT+25, CERTCAT+26, CERTCAT+27, CERTCAT+28, CERTCAT+29, CERTCAT+30, CERTCAT+31, CERTCOND+18, CERTCOND+23 , CERTCOND+24, CERTCOND+25, CERTCOND+26, CERTCOND+27, CERTCOND+28, CERTCOND+29 |