IBTRH5G ;ALB/FA - HCSR Create 278 Request ;01-OCT-2014
Source file <IBTRH5G.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CONTINFO(IBTRIEN,FIELD) | ;EP
; Called from Input Template IB CREATE 278 REQUEST for fields: 20, 21 ; Checks to see if subsequent Contact number entries have values. ; Input: IBTRIEN - IEN of entry being processed ; 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 |
|
| CERTDATA(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Determines which Certification Condition Categories contains any fields with ; values and then displays a list of Categories that Contain data. ; Input: IBTRIEN - IEN of the 356.22 entry being examined ; Output: Displays a list of Certification Condition Categories that have at ; least one field with a value. If no Certification Condition ; Categories have a value then nothing is displayed. |
|
| CHKFLDSM(FILE,IBTRIEN,NDE,FIELDS) | ; Checks all multiples for a specified node to see if
; any of the specified fields are non-null ; Input: FILE - # of file being checked ; IBTRIEN - IEN of the entry being checked ; NDE - Multiple node to check for data ; FIELDS - '^' delimited list of fields to be examined ; Returns: 1 - At least one field of one multiple is non-null, 0 otherwise |
|
| CHKFLDS(FILE,IENS,FIELDS) | ; Checks to see if any of the specified pieces of the
; specified node are non-null ; Input: FILE - # of file being checked ; IENS - IEN list of the 356.22 entry being examined ; FIELDS - '^' delimited list of fields to be examined ; Returns: 1 - At least one field is non-null, 0 otherwise |
|
| SECTDATA(IBTRIEN,SIEN,SECTION,HEADER,DISPLAY) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Determines if the specified section contains any fields with values and ; (optionally) displays all of the section's fields and their values. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the service line multiple being examined ; NOTE: Only passed if examinng a service line section. ; SECTION - Identifier for the section to be examined ; HCSD - Health Care Services Delivery Section ; AMBTI - Ambulance Transport Information Section ; SPMSI - Spinal Manipulation Service Info Section ; HOTI - Home Oxygen Therapy Info Section ; HHCI - Home Health Care Info Section ; SHCRSI - Service Line HCRS Information Section ; CMPI - Service Line Composite Medical Procedure Info ; Section ; OCDI - Service Line Oral Cavity Designation Info ; Section ; SHCSD - Service Line Health Care Services Delivery ; HEADER - Header text to show when displaying a section's field ; DISPLAY - 1 to display all of the section's field if at least one ; field has a value. 0 otherwise ; Output: Displays a section's fields and their values if DISPLAY=1 and the ; specified section has at least one field with a value ; Returns: '*' - At least one field in the section contains a value ; "" - Otherwise |
|
| HCSD | ; Health Care Services Delivery Section fields
|
|
| AMBTI | ; Ambulance Transport Information fields
|
|
| SPMSI | ; Spinal Manipulation Service Information
|
|
| HOTI | ; Home Oxygen Therapy Information
|
|
| HHCI | ; Home Health Care Information
|
|
| SHCRSI | ; Service HCRS Information
|
|
| CMPI | ; Composite Medical Procedure Information
|
|
| OCDI | ; Oral Cavity Designation Information
|
|
| SHCSD | ; Service Line Health Care Services Delivery
|
|
| AEREL |
| Name | Field # of Occurrence |
|---|---|
| $$EXTERNAL^DILFD | SECTDATA+63 |
| $$GET1^DIQ | CONTINFO+12, CONTINFO+13, CONTINFO+16, CHKFLDS+10 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356.22 - [#356.22] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBT( | CHKFLDSM+10 |
| ^IBT(356.22 - [#356.22] | SECTDATA+46, SECTDATA+47, SECTDATA+61, SECTDATA+62 |
| Name | Line Occurrences |
|---|---|
| $$CHKFLDS | CERTDATA+10, CERTDATA+12, CERTDATA+18, CERTDATA+20, CERTDATA+23, CERTDATA+25, CERTDATA+28, CERTDATA+31, CERTDATA+33, CERTDATA+35 , CHKFLDSM+13 |
| $$CHKFLDSM | CERTDATA+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CATS | CERTDATA+8~, CERTDATA+9* |
| CATS( | CERTDATA+11*, CERTDATA+13*, CERTDATA+16*, CERTDATA+19*, CERTDATA+21*, CERTDATA+24*, CERTDATA+26*, CERTDATA+29*, CERTDATA+32*, CERTDATA+34* , CERTDATA+36*, CERTDATA+44, CERTDATA+46, CERTDATA+48, CERTDATA+49, CERTDATA+50 |
| CTR | CERTDATA+8~, CERTDATA+9*, CERTDATA+11, CERTDATA+13, CERTDATA+16, CERTDATA+17*, CERTDATA+19, CERTDATA+21, CERTDATA+22*, CERTDATA+24* , CERTDATA+26, CERTDATA+29, CERTDATA+30*, CERTDATA+32*, CERTDATA+34*, CERTDATA+36*, CERTDATA+39 |
| DATA | SECTDATA+26~, SECTDATA+40*, SECTDATA+41, SECTDATA+46*, SECTDATA+47*, SECTDATA+48 |
| DISP | CERTDATA+8~, CERTDATA+42*, CERTDATA+46, CERTDATA+47, CERTDATA+48*, CERTDATA+49*, CERTDATA+50*, CERTDATA+51 |
| DISPLAY | SECTDATA~, SECTDATA+49 |
| FIELD | CONTINFO~, CONTINFO+11, CONTINFO+15, CHKFLDS+6~, CHKFLDS+9*, CHKFLDS+10, SECTDATA+26~, SECTDATA+44*, SECTDATA+58*, SECTDATA+59 , SECTDATA+63 |
| FIELDS | CHKFLDSM~, CHKFLDSM+13, CHKFLDS~, CHKFLDS+8, CHKFLDS+9 |
| FILE | CHKFLDSM~, CHKFLDSM+8, CHKFLDSM+10, CHKFLDS~, CHKFLDS+10, SECTDATA+26~, SECTDATA+53*, SECTDATA+63 |
| FIRST | CERTDATA+8~, CERTDATA+42*, CERTDATA+46, CERTDATA+49* |
| FLDS | SECTDATA+26~ |
| FLDS( | SECTDATA+37*, SECTDATA+42, SECTDATA+44, SECTDATA+56, SECTDATA+58, SECTDATA+60 |
| FNUM | SECTDATA+26~, SECTDATA+35*, SECTDATA+37 |
| FOUND | CHKFLDSM+7~, CHKFLDSM+8*, CHKFLDSM+9, CHKFLDSM+13*, CHKFLDSM+14, CHKFLDS+6~, CHKFLDS+7*, CHKFLDS+8, CHKFLDS+10*, CHKFLDS+11 |
| FPROMPT | SECTDATA+26~, SECTDATA+35*, SECTDATA+36, SECTDATA+37 |
| HEADER | SECTDATA~, SECTDATA+52 |
| IBTRIEN | CONTINFO~, CONTINFO+12, CONTINFO+13, CONTINFO+16, CERTDATA~, CERTDATA+10, CERTDATA+12, CERTDATA+14, CERTDATA+18, CERTDATA+20 , CERTDATA+23, CERTDATA+25, CERTDATA+28, CERTDATA+31, CERTDATA+33, CERTDATA+35, CHKFLDSM~, CHKFLDSM+10, CHKFLDSM+12, SECTDATA~ , SECTDATA+46, SECTDATA+47, SECTDATA+61, SECTDATA+62 |
| IEN | CHKFLDSM+7~, CHKFLDSM+8*, CHKFLDSM+9, CHKFLDSM+10*, CHKFLDSM+11, CHKFLDSM+12 |
| IENS | CHKFLDSM+7~, CHKFLDSM+12*, CHKFLDSM+13, CHKFLDS~, CHKFLDS+10 |
| IX | CERTDATA+8~, CERTDATA+42*, CERTDATA+43, CERTDATA+44*, CERTDATA+45, CERTDATA+46, CERTDATA+48, CERTDATA+49, CERTDATA+50, CHKFLDS+6~ , CHKFLDS+8*, CHKFLDS+9, SECTDATA+26~, SECTDATA+31*, SECTDATA+32, SECTDATA+37, SECTDATA+40*, SECTDATA+41, SECTDATA+42*, SECTDATA+43 , SECTDATA+44, SECTDATA+54*, SECTDATA+55, SECTDATA+56*, SECTDATA+57, SECTDATA+58, SECTDATA+60 |
| LEN | CERTDATA+8~ |
| LINE | SECTDATA+26~, SECTDATA+31, SECTDATA+32*, SECTDATA+33*, SECTDATA+34, SECTDATA+35 |
| MAXL | SECTDATA+26~, SECTDATA+28*, SECTDATA+36*, SECTDATA+53*, SECTDATA+63 |
| NDE | CHKFLDSM~, CHKFLDSM+8, CHKFLDSM+10, SECTDATA+26~, SECTDATA+44*, SECTDATA+46, SECTDATA+47, SECTDATA+58*, SECTDATA+61, SECTDATA+62 |
| NODE | SECTDATA+26~ |
| PCE | SECTDATA+26~, SECTDATA+44*, SECTDATA+45*, SECTDATA+46, SECTDATA+47, SECTDATA+59*, SECTDATA+61, SECTDATA+62 |
| RETURN | CONTINFO+8~, CONTINFO+9*, CONTINFO+11, CONTINFO+14*, CONTINFO+15, CONTINFO+16*, CONTINFO+17 |
| SECTION | SECTDATA~, SECTDATA+32, SECTDATA+65 |
| SFILE | CHKFLDSM+7~, CHKFLDSM+8*, CHKFLDSM+13 |
| SIEN | SECTDATA~, SECTDATA+27*, SECTDATA+46, SECTDATA+47, SECTDATA+53, SECTDATA+61, SECTDATA+62 |
| VAL | SECTDATA+26~, SECTDATA+61*, SECTDATA+62*, SECTDATA+63 |
| XX | CONTINFO+8~, CONTINFO+12*, CONTINFO+14, CERTDATA+8~, CERTDATA+15*, CERTDATA+16, CERTDATA+27*, CERTDATA+28 |
| ZZ | CONTINFO+8~, CONTINFO+13*, CONTINFO+14 |
| Name | Field # of Occurrence |
|---|---|
| $T(@LINE | SECTDATA+33 |
