IBTRH5E ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014
Source file <IBTRH5E.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELOU(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Other UMO ; Information multiples and allows them to select one to edit or enter a new ; one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; IBNEW=1 when creating a new entry |
|
| OUTYPE(IBTRIEN) | ; Prompts the user to enter the .01 (Entity Identifier) field
; of the Other UMO Information Multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: Selected Entity Identifier or "" of not entered |
|
| DELOU(IBTRIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Other UMO Information Line and didn't enter any data for it OR selected a ; line to be deleted. If so, the Other Information Line with no data (or' ; selected) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty or selected Other UMO Information line is deleted (Potentially) |
|
| SELSL(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Service Lines and ; allows them to select one to edit or enter a new Service Line. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IBTRF - 1 - Being called from the brief form ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple ; -1 if skipping altogether ; -2 to exit template ; IBNEW=1 when creating a new entry |
|
| GETSELLN(CNT,IBTRIEN,IEN,H1,H2) | ; Gets a line of information to display a
; Service Line ; Input: CNT - Current line Count ; IBTRIEN - IEN of the entry ; IEN - IEN of the Service Line ; IBTRF - 1 - Being called from the brief form ; Output: H1 - 1st Header display line ; H2 - 2nd Header display line ; Returns: Service line display |
|
| DELSL(IBTRIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Service Line and didn't enter any data for it OR selected a service line ; to be deleted. If so, the Service Line with no data (or selected) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty or selected Service line is deleted (Potentially) |
|
| SELSPD(IBTRIEN,SIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Service Line ; Provider Data multiples and allows them to select one to edit or enter a ; new one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - Service Line Multiple IEN ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit multiple ; IBNEW=1 when creating a new entry |
|
| DELSPD(IBTRIEN,SIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Service Provider Data Line and didn't enter any data for it or selected a line ; to delete . If so, the Service Provider Data line with no data (or selectd) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty OR selected Service Provider Data Line is deleted (Potentially) |
|
| PTYPE(IBTRIEN,SIEN) | ; Prompts the user to enter the .01 (Provider Type) field
; of the Provider Data multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line ; Returns: IEN of the selected Provider Type or "" of not entered |
| Name | Field # of Occurrence |
|---|---|
| FIELD^DID | OUTYPE+13 |
| UPDATE^DIE | SELOU+40, SELOU+61, SELSL+37, SELSL+54, SELSPD+42, SELSPD+64 |
| ^DIK | DELOU+13, DELOU+22, DELSL+12, DELSL+30, DELSPD+13, DELSPD+21 |
| $$GET1^DIQ | SELOU+24, SELOU+27, GETSELLN+19, GETSELLN+22, GETSELLN+24, GETSELLN+25, GETSELLN+28, GETSELLN+29, GETSELLN+31, GETSELLN+32 , SELSPD+26, SELSPD+28, SELSPD+30 |
| ^DIR | OUTYPE+21, PTYPE+8 |
| $$ASKNEW^IBTRH5D | SELOU+34, SELSL+31, SELSPD+36 |
| $$SELENT^IBTRH5D | SELOU+47, SELSL+43, SELSPD+49 |
| $$LJ^XLFSTR | SELOU+23, SELOU+26, SELOU+28, GETSELLN+17, GETSELLN+21, GETSELLN+26, GETSELLN+30, GETSELLN+34, SELSPD+24, SELSPD+27 , SELSPD+29, SELSPD+31 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356.22 - [#356.22] | Classic Fileman Calls |
| 356.2215 | FIELD^DID, GET1^DIQ |
| 356.2216 | GET1^DIQ |
| 356.22168 | GET1^DIQ |
| ^DGCR(399.2 - [#399.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBT(356.22 - [#356.22] | SELOU+16, SELOU+20, OUTYPE+7, OUTYPE+9, DELOU+15, DELOU+17, SELSL+18, SELSL+21, DELSL+14, DELSL+16 , DELSL+19, DELSL+25, SELSPD+17, SELSPD+21, DELSPD+14, DELSPD+16 |
| Name | Line Occurrences |
|---|---|
| $$GETSELLN | SELSL+24 |
| $$OUTYPE | SELOU+36, SELOU+56 |
| $$PTYPE | SELSPD+38, SELSPD+57 |
| DELOU | SELOU+13, SELOU+51 |
| DELSL | SELSL+15, SELSL+47 |
| DELSPD | SELSPD+14, SELSPD+53 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | OUTYPE+4~ |
| ARR("POINTER" | OUTYPE+16, OUTYPE+17 |
| CNT | SELOU+9~, SELOU+18*, SELOU+22*, SELOU+23, SELOU+29, SELOU+32, SELSL+11~, SELSL+19*, SELSL+23*, SELSL+24 , SELSL+25, SELSL+28, GETSELLN~, GETSELLN+17, SELSPD+10~, SELSPD+19*, SELSPD+23*, SELSPD+24, SELSPD+32, SELSPD+34 |
| DA | SELOU+24, SELOU+27, OUTYPE+4~, DELOU+8~, DELOU+11*, DELOU+20*, DELSL+7~, DELSL+10*, DELSL+28*, DELSPD+8~ , DELSPD+11*, DELSPD+19*, PTYPE+5~ |
| DA(1 | OUTYPE+11*, DELOU+11*, DELOU+20*, DELSL+10*, DELSL+28*, DELSPD+11*, DELSPD+19*, PTYPE+6* |
| DA(2 | DELSPD+11*, DELSPD+19* |
| DATA | DELSL+7~, DELSL+23*, DELSL+24, DELSL+26*, DELSL+27 |
| DIK | DELOU+8~, DELOU+12*, DELOU+21*, DELSL+7~, DELSL+11*, DELSL+29*, DELSPD+8~, DELSPD+12*, DELSPD+20* |
| DIR | OUTYPE+4~, PTYPE+5~ |
| DIR("A" | OUTYPE+14*, PTYPE+7* |
| DIR(0 | OUTYPE+20*, PTYPE+7* |
| DIROUT | OUTYPE+4~, PTYPE+5~ |
| DIRUT | OUTYPE+4~, OUTYPE+22, PTYPE+5~, PTYPE+9 |
| DTOUT | OUTYPE+4~, PTYPE+5~ |
| DUOUT | OUTYPE+4~, PTYPE+5~ |
| EIS | OUTYPE+4~, OUTYPE+5*, OUTYPE+10*, OUTYPE+12*, OUTYPE+18 |
| ENTNUM | SELOU+9~, SELOU+49*, SELOU+52, SELSL+11~, SELSL+45*, SELSL+48, SELSPD+10~, SELSPD+51*, SELSPD+54 |
| ERR | OUTYPE+4~ |
| FDA | SELOU+9~, SELSL+11~, SELSPD+10~ |
| FDA( | SELOU+39*, SELOU+60*, SELSL+36*, SELSL+53*, SELSPD+41*, SELSPD+63* |
| FILE | GETSELLN+9~ |
| H1 | SELOU+9~, SELOU+43*, SELOU+47, SELSL+11~, SELSL+24, SELSL+43, GETSELLN~, GETSELLN+12*, GETSELLN+15*, SELSPD+10~ , SELSPD+45*, SELSPD+49 |
| H2 | SELOU+9~, SELOU+44*, SELOU+47, SELSL+11~, SELSL+24, SELSL+43, GETSELLN~, GETSELLN+13*, GETSELLN+16*, SELSPD+10~ , SELSPD+46*, SELSPD+49 |
| >> IBNEW | SELOU+10*, SELOU+38*, SELOU+58*, SELSL+12*, SELSL+35*, SELSL+52*, SELSPD+11*, SELSPD+40*, SELSPD+60* |
| >> IBTRBRF | SELSL+29, SELSL+33, GETSELLN+11, GETSELLN+14, GETSELLN+18, GETSELLN+27 |
| IBTRIEN | SELOU~, SELOU+13, SELOU+16, SELOU+20, SELOU+36, SELOU+39, SELOU+51, SELOU+56, SELOU+60, OUTYPE~ , OUTYPE+7, OUTYPE+9, OUTYPE+11, DELOU~, DELOU+11, DELOU+15, DELOU+17, DELOU+20, SELSL~, SELSL+15 , SELSL+18, SELSL+21, SELSL+24, SELSL+36, SELSL+47, SELSL+53, GETSELLN~, GETSELLN+19, GETSELLN+22, GETSELLN+24 , GETSELLN+25, GETSELLN+28, GETSELLN+31, GETSELLN+32, DELSL~, DELSL+10, DELSL+14, DELSL+16, DELSL+19, DELSL+25 , DELSL+28, SELSPD~, SELSPD+14, SELSPD+17, SELSPD+21, SELSPD+25, SELSPD+38, SELSPD+41, SELSPD+53, SELSPD+57 , SELSPD+63, DELSPD~, DELSPD+11, DELSPD+14, DELSPD+16, DELSPD+19, PTYPE~, PTYPE+6 |
| IEN | SELOU+9~, SELOU+18*, SELOU+19, SELOU+20*, SELOU+21, SELOU+24, SELOU+27, SELOU+29, DELOU~, DELOU+9* , DELOU+10, DELOU+11, SELSL+11~, SELSL+19*, SELSL+20, SELSL+21*, SELSL+22, SELSL+24, SELSL+25, GETSELLN~ , GETSELLN+19, GETSELLN+22, GETSELLN+24, GETSELLN+25, GETSELLN+28, GETSELLN+31, GETSELLN+32, DELSL~, DELSL+8*, DELSL+9 , DELSL+10, SELSPD+10~, SELSPD+19*, SELSPD+20, SELSPD+21*, SELSPD+22, SELSPD+25, SELSPD+32, DELSPD~, DELSPD+9* , DELSPD+10, DELSPD+11 |
| IENS | SELSPD+10~, SELSPD+25*, SELSPD+26, SELSPD+28, SELSPD+30 |
| IX | OUTYPE+4~, OUTYPE+5*, OUTYPE+6, OUTYPE+7*, OUTYPE+8, OUTYPE+9, OUTYPE+16*, OUTYPE+17 |
| L1 | SELOU+9~, SELOU+45*, SELOU+47, SELSL+11~, SELSL+41*, SELSL+43, SELSPD+10~, SELSPD+47*, SELSPD+49 |
| L2 | SELOU+9~, SELOU+46*, SELOU+47, SELSL+11~, SELSL+42*, SELSL+43, SELSPD+10~, SELSPD+48*, SELSPD+49 |
| LIEN | DELSL+7~, DELSL+14*, DELSL+15, DELSL+16, DELSL+19, DELSL+25, DELSL+28 |
| MAX | SELOU+9~, SELOU+17*, SELOU+47, SELSPD+10~, SELSPD+18*, SELSPD+49 |
| N4 | GETSELLN+9~, GETSELLN+23*, GETSELLN+24, GETSELLN+25 |
| NIEN | SELSL+11~, SELSL+18*, SELSL+35, SELSL+36, SELSL+51, SELSL+53 |
| OUDATA | SELOU+9~, SELOU+47 |
| OUDATA( | SELOU+29*, SELOU+50, SELOU+62 |
| OUIEN | DELOU+8~, DELOU+15*, DELOU+16, DELOU+17, DELOU+20 |
| OUTYPE | SELOU+9~, SELOU+36*, SELOU+37, SELOU+38, SELOU+39, SELOU+56*, SELOU+57, SELOU+59, SELOU+60 |
| PDDATA | SELSPD+10~, SELSPD+49 |
| PDDATA( | SELSPD+32*, SELSPD+52, SELSPD+65 |
| PDIEN | DELSPD+8~, DELSPD+14*, DELSPD+15, DELSPD+16, DELSPD+19 |
| PTYPE | SELSPD+10~, SELSPD+38*, SELSPD+39, SELSPD+40, SELSPD+41, SELSPD+57*, SELSPD+58, SELSPD+59, SELSPD+63 |
| RETIEN | SELOU+9~, SELSL+11~, SELSPD+10~ |
| RETIEN( | SELOU+32, SELOU+55, SELSL+28, SELSL+50, SELSPD+34, SELSPD+56 |
| RETIEN(0 | SELOU+32, SELOU+55, SELSL+28, SELSL+50, SELSPD+34, SELSPD+56 |
| SECT | SELOU+9~, SELOU+10*, SELOU+47, SELSL+11~, SELSL+12*, SELSL+43, SELSPD+10~, SELSPD+11*, SELSPD+49 |
| SIEN | SELSPD~, SELSPD+14, SELSPD+17, SELSPD+21, SELSPD+25, SELSPD+38, SELSPD+41, SELSPD+53, SELSPD+57, SELSPD+63 , DELSPD~, DELSPD+11, DELSPD+14, DELSPD+16, DELSPD+19, PTYPE~ |
| SLDATA | SELSL+11~, SELSL+43 |
| SLDATA( | SELSL+25*, SELSL+46, SELSL+55 |
| U | SELOU+50, DELSL+14, DELSL+17, DELSL+18, DELSL+20, DELSL+21, DELSL+22, DELSL+26 |
| X | SELOU+9~, OUTYPE+4~, DELOU+8~, SELSL+11~, DELSL+7~, SELSPD+10~, DELSPD+8~, PTYPE+5~ |
| XX | SELOU+9~, SELOU+16*, SELOU+17, SELOU+23*, SELOU+26*, SELOU+28*, SELOU+29, SELOU+32, SELOU+34*, SELOU+35 , SELOU+37*, SELOU+38*, SELOU+47*, SELOU+48, SELOU+49*, SELOU+50*, SELOU+51, SELOU+54, SELOU+55, SELOU+57* , SELOU+59*, SELOU+62, OUTYPE+4~, OUTYPE+9*, OUTYPE+10, OUTYPE+15*, OUTYPE+19*, OUTYPE+20, DELOU+8~, DELOU+17* , DELOU+18*, DELOU+19, SELSL+11~, SELSL+24*, SELSL+25, SELSL+28, SELSL+31*, SELSL+33*, SELSL+34, SELSL+35* , SELSL+43*, SELSL+44, SELSL+45*, SELSL+46*, SELSL+47, SELSL+49, SELSL+50, SELSL+51*, SELSL+55, GETSELLN+9~ , GETSELLN+17*, GETSELLN+21*, GETSELLN+26*, GETSELLN+30*, GETSELLN+34*, GETSELLN+35, DELSL+7~, DELSL+16*, DELSL+17*, DELSL+18 , DELSL+19*, DELSL+20*, DELSL+21*, DELSL+22, DELSL+25*, DELSL+26, SELSPD+10~, SELSPD+17*, SELSPD+18, SELSPD+24* , SELSPD+27*, SELSPD+29*, SELSPD+31*, SELSPD+32, SELSPD+34, SELSPD+36*, SELSPD+37, SELSPD+39*, SELSPD+40*, SELSPD+49* , SELSPD+50, SELSPD+51*, SELSPD+52*, SELSPD+53, SELSPD+55, SELSPD+56, SELSPD+58*, SELSPD+59*, SELSPD+65, DELSPD+8~ , DELSPD+16*, DELSPD+17*, DELSPD+18 |
| Y | SELOU+9~, OUTYPE+23, DELOU+8~, SELSL+11~, DELSL+7~, SELSPD+10~, DELSPD+8~, PTYPE+5~, PTYPE+10 |
| YY | SELOU+9~, SELOU+24*, SELOU+25*, SELOU+26, SELOU+27*, SELOU+28, OUTYPE+4~, OUTYPE+17*, OUTYPE+18, OUTYPE+19 , GETSELLN+9~, GETSELLN+19*, GETSELLN+20*, GETSELLN+21, GETSELLN+24*, GETSELLN+25*, GETSELLN+26, GETSELLN+28*, GETSELLN+29*, GETSELLN+30 , GETSELLN+31*, GETSELLN+33*, GETSELLN+34, DELSL+7~, DELSL+24*, DELSL+25, SELSPD+10~, SELSPD+26*, SELSPD+27, SELSPD+28* , SELSPD+29, SELSPD+30*, SELSPD+31 |
| ZZ | GETSELLN+9~, GETSELLN+22*, GETSELLN+23, GETSELLN+32*, GETSELLN+33 |
