DGBTSP ;ALB/BLD - BENEFICIARY TRAVEL SPECIAL MODE OF TRANSPORTATION ; 12/18/2011@1000 ; 12/23/2012
Source file <DGBTSP.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DGBTSP) | ;main entry point from DGBTE
|
|
| RESTART(DGBTCMTY) | ||
| SPRMKS(DGBTSP) | ;will allow user to enter other remarks about special mode transportation
|
|
| PREAUTH(DGBTSP) | ;this will ask if trip was pre-authorized. If answer is no then ask end user if claim is approved or denied.
|
|
| VENDOR(DGBTSP) | ;allows the user to select from a vendor already in the FMS system
|
|
| ADDINFO(DGBTSP) | ;this will ask additional questions of the end user about the invoice presented by the patient.
|
|
| INST(DGBTINST) | ;get destination information
|
|
| CLEANUP | ;this will clean up the ^DGBT(392,D0) file for nodes "M","D","T" and the 3 and 4 piece of the "A" node
|
|
| ACTFILE | ;
|
| Name | Field # of Occurrence |
|---|---|
| CLRLTR^DGBTDLT | PREAUTH+15, PREAUTH+31 |
| DGBTDR^DGBTDLT | PREAUTH+28 |
| ACTFILE^DGBTSP | RESTART+10 |
| DELSP^DGBTSP1 | EN+40 |
| INVAMT^DGBTSP1 | ADDINFO+143 |
| MSG^DIALOG | ACTFILE+6 |
| ^DIE | EN+39 |
| FILE^DIE | EN+35, CLEANUP+19 |
| $$GET1^DIQ | EN+8, EN+31, EN+32, EN+34, RESTART+7, RESTART+14, RESTART+19, SPRMKS+2, PREAUTH+7, PREAUTH+17 , VENDOR+4, ADDINFO+10, ADDINFO+18, ADDINFO+27, ADDINFO+35, ADDINFO+43, ADDINFO+56, ADDINFO+64, ADDINFO+73, ADDINFO+81 , ADDINFO+89, ADDINFO+97, ADDINFO+105, ADDINFO+115, ADDINFO+124, ADDINFO+134, ADDINFO+150, INST+3, INST+4, INST+5 , INST+6, INST+7, INST+8 |
| ^DIR | EN+21, RESTART+24, SPRMKS+7, PREAUTH+12, PREAUTH+22, VENDOR+10, ADDINFO+12, ADDINFO+21, ADDINFO+29, ADDINFO+37 , ADDINFO+45, ADDINFO+58, ADDINFO+67, ADDINFO+75, ADDINFO+83, ADDINFO+91, ADDINFO+99, ADDINFO+111, ADDINFO+120, ADDINFO+130 , ADDINFO+140, ADDINFO+155, ACTFILE+9 |
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DGBT(392 - [#392] | Classic Fileman Calls, GET1^DIQ |
| ^DGBT(392.3 - [#392.3] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGBT(392 - [#392] | EN+22, EN+23, EN+40, RESTART+13*, RESTART+24, SPRMKS+7, PREAUTH+12, VENDOR+10, ADDINFO+12, ADDINFO+21 , ADDINFO+29, ADDINFO+37, ADDINFO+45, ADDINFO+58, ADDINFO+67, ADDINFO+75, ADDINFO+83, ADDINFO+91, ADDINFO+99, ADDINFO+111 , ADDINFO+120, ADDINFO+130, ADDINFO+140, ADDINFO+155, CLEANUP+3! |
| ^DGBT(392.3 - [#392.3] | RESTART+4, RESTART+6 |
| Name | Line Occurrences |
|---|---|
| ADDINFO | RESTART+29 |
| INST | ADDINFO+4 |
| PREAUTH | RESTART+27 |
| SPRMKS | RESTART+26 |
| VENDOR | RESTART+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+39* |
| >> ACCT | RESTART+3*, RESTART+4*, RESTART+5, RESTART+6, RESTART+9, ACTFILE+2 |
| ACTTYPE | EN+5~ |
| AUTHORIZED | EN+4~, PREAUTH+17*, PREAUTH+21 |
| BASERATE | EN+5~ |
| >> CHZFLG | EN+23, RESTART+11 |
| >> DA | EN+39* |
| >> DEPCITY | ADDINFO+27*, ADDINFO+28 |
| >> DEPL1 | ADDINFO+10*, ADDINFO+11 |
| >> DEPL2 | ADDINFO+18*, ADDINFO+19 |
| >> DEPST | ADDINFO+35*, ADDINFO+36 |
| >> DEPZIP | ADDINFO+43*, ADDINFO+44 |
| >> DFN | EN+32, PREAUTH+6, VENDOR+3, ADDINFO+2 |
| DGBTACTYPE | EN+4~, EN+8* |
| >> DGBTADDR(1 | ADDINFO+11 |
| >> DGBTADDR(2 | ADDINFO+19 |
| >> DGBTADDR(4 | ADDINFO+28 |
| >> DGBTADDR(5 | ADDINFO+36 |
| >> DGBTADDR(6 | ADDINFO+44 |
| >> DGBTAPPTYP | PREAUTH+26, PREAUTH+27, PREAUTH+28, PREAUTH+31 |
| DGBTCMTY | EN+6*, EN+25*, EN+34, EN+39, EN+40*, RESTART~ |
| >> DGBTDIVI | INST+3 |
| >> DGBTDIVN | INST+4, INST+5, INST+6, INST+7, INST+8 |
| >> DGBTDL("CLAIM | DENIED" , CLEANUP+7*, CLEANUP+13 |
| >> DGBTDL("DENIE | D REASON" , CLEANUP+9*, CLEANUP+15 |
| >> DGBTDL("DT DE | NIED" , CLEANUP+8*, CLEANUP+14 |
| >> DGBTDL("ISSUE | D DATE" , CLEANUP+6*, CLEANUP+12 |
| >> DGBTDL("ISSUED" | CLEANUP+5*, CLEANUP+11 |
| >> DGBTDT | EN+8, EN+33, EN+39, EN+40, RESTART+13, RESTART+19, SPRMKS+2, PREAUTH+7, PREAUTH+17, VENDOR+4 , ADDINFO+105, ADDINFO+115, ADDINFO+124, ADDINFO+134, ADDINFO+150 |
| >> DGBTDTE | ADDINFO+119 |
| >> DGBTDTI | EN+22, EN+23, EN+28, EN+29, EN+30, EN+31, EN+32, EN+33, EN+34, RESTART+24 , SPRMKS+7, PREAUTH+12, VENDOR+10, ADDINFO+10, ADDINFO+12, ADDINFO+18, ADDINFO+21, ADDINFO+27, ADDINFO+29, ADDINFO+35 , ADDINFO+37, ADDINFO+43, ADDINFO+45, ADDINFO+56, ADDINFO+58, ADDINFO+64, ADDINFO+67, ADDINFO+73, ADDINFO+75, ADDINFO+81 , ADDINFO+83, ADDINFO+89, ADDINFO+91, ADDINFO+97, ADDINFO+99, ADDINFO+111, ADDINFO+120, ADDINFO+130, ADDINFO+140, ADDINFO+155 , CLEANUP+2, CLEANUP+3, CLEANUP+11, CLEANUP+12, CLEANUP+13, CLEANUP+14, CLEANUP+15, CLEANUP+16, CLEANUP+17, CLEANUP+18 |
| >> DGBTELL | EN+27 |
| DGBTFDA | EN+4~, CLEANUP+19! |
| DGBTFDA(392 | EN+28*, EN+29*, EN+30*, EN+31*, EN+32*, EN+34*, CLEANUP+11*, CLEANUP+12*, CLEANUP+13*, CLEANUP+14* , CLEANUP+15*, CLEANUP+16*, CLEANUP+17*, CLEANUP+18* |
| DGBTINST | ADDINFO+4, INST~ |
| DGBTINST("ADDRESS1" | ADDINFO+74, ADDINFO+76*, INST+5* |
| DGBTINST("CITY" | ADDINFO+82, ADDINFO+84*, INST+6* |
| DGBTINST("DIVISION" | ADDINFO+57, ADDINFO+59*, INST+3* |
| DGBTINST("INS | T NAME" , ADDINFO+65, ADDINFO+68*, INST+4* |
| DGBTINST("STATE" | ADDINFO+90, ADDINFO+92*, INST+7* |
| DGBTINST("ZIP | CODE" , ADDINFO+98, ADDINFO+100*, INST+8* |
| DGBTINTO | EN+4~, EN+5~, ADDINFO+143 |
| >> DGBTOLD | RESTART+11* |
| >> DGBTQ | RESTART+3*, RESTART+4, RESTART+7* |
| DGBTSP | EN~, EN+6*, EN+23!*, EN+40!*, RESTART+24!*, RESTART+26, RESTART+27, RESTART+28, RESTART+29, SPRMKS~ , SPRMKS+7!*, PREAUTH~, PREAUTH+6, PREAUTH+12!*, PREAUTH+16*, VENDOR~, VENDOR+3, VENDOR+10!*, ADDINFO~, ADDINFO+2 , ADDINFO+12*, ADDINFO+21*, ADDINFO+29*, ADDINFO+37*, ADDINFO+45*, ADDINFO+48, ADDINFO+58*, ADDINFO+67*, ADDINFO+75*, ADDINFO+83* , ADDINFO+91*, ADDINFO+99*, ADDINFO+102, ADDINFO+111!*, ADDINFO+120!*, ADDINFO+130!*, ADDINFO+140!*, ADDINFO+143, ADDINFO+147, ADDINFO+155!* |
| DGBTSP("ACCOUNT" | RESTART+14* |
| DGBTSP("AUTHORIZED" | PREAUTH+15!*, PREAUTH+21, PREAUTH+23*, PREAUTH+24* |
| DGBTSP("CITY | OF DEPARTURE" , ADDINFO+30* |
| DGBTSP("CLAIM | TYPE" , EN+25*, EN+28, EN+38 |
| DGBTSP("DT IN | VOICE REC" , ADDINFO+119, ADDINFO+121* |
| DGBTSP("INVOI | CE NUMBER" , ADDINFO+109, ADDINFO+110, ADDINFO+112*, ADDINFO+119 |
| DGBTSP("MODE | OF TRANS" , RESTART+22, RESTART+23, RESTART+25* |
| DGBTSP("OTHER | TRANS REMARKS" , SPRMKS+6, SPRMKS+8* |
| DGBTSP("PLACE | OF DEPARTURE 2" , ADDINFO+22*, OF DEPARTURE" , ADDINFO+13* |
| DGBTSP("PRE-AUTHORIZED" | PREAUTH+11, PREAUTH+13*, PREAUTH+14*, PREAUTH+15 |
| DGBTSP("RT/ON | E WAY" , ADDINFO+128, ADDINFO+129, ADDINFO+131* |
| DGBTSP("SP MO | DE OTHER REMARKS" , ADDINFO+154, ADDINFO+156* |
| DGBTSP("STATE | OF DEPARTURE" , ADDINFO+38* |
| DGBTSP("TOTAL | INVOICE" , ADDINFO+143, MILES" , ADDINFO+138, ADDINFO+139, ADDINFO+141* |
| DGBTSP("VENDOR" | VENDOR+8, VENDOR+9, VENDOR+11* |
| DGBTSP("ZIP C | ODE/DEPARTURE" , ADDINFO+46* |
| >> DGBTTOUT | EN+23*, RESTART+11*, ACTFILE+10* |
| >> DIE | EN+39* |
| DIR | EN+16!, EN+21!, RESTART+24!, SPRMKS+7!, PREAUTH+12!, PREAUTH+22!, VENDOR+10!, ADDINFO+12!, ADDINFO+21!, ADDINFO+29! , ADDINFO+37!, ADDINFO+45!, ADDINFO+58!, ADDINFO+67!, ADDINFO+75!, ADDINFO+83!, ADDINFO+91!, ADDINFO+99!, ADDINFO+111!, ADDINFO+120! , ADDINFO+130!, ADDINFO+140!, ADDINFO+155!, ACTFILE+1! |
| DIR("?" | RESTART+20*, SPRMKS+4*, PREAUTH+10*, PREAUTH+19*, VENDOR+6*, ADDINFO+8*, ADDINFO+16*, ADDINFO+25*, ADDINFO+33*, ADDINFO+41* , ADDINFO+54*, ADDINFO+62*, ADDINFO+71*, ADDINFO+79*, ADDINFO+87*, ADDINFO+95*, ADDINFO+107*, ADDINFO+117*, ADDINFO+126*, ADDINFO+136* , ADDINFO+152* |
| DIR("A" | EN+18*, EN+19*, RESTART+20*, SPRMKS+3*, PREAUTH+8*, PREAUTH+18*, VENDOR+5*, ADDINFO+7*, ADDINFO+15*, ADDINFO+24* , ADDINFO+32*, ADDINFO+40*, ADDINFO+53*, ADDINFO+61*, ADDINFO+70*, ADDINFO+78*, ADDINFO+86*, ADDINFO+94*, ADDINFO+106*, ADDINFO+116* , ADDINFO+125*, ADDINFO+135*, ADDINFO+151* |
| DIR("B" | EN+20*, RESTART+23*, SPRMKS+6*, PREAUTH+11*, PREAUTH+21*, VENDOR+9*, ADDINFO+11*, ADDINFO+19*, ADDINFO+20!, ADDINFO+28* , ADDINFO+36*, ADDINFO+44*, ADDINFO+57*, ADDINFO+65*, ADDINFO+66!, ADDINFO+74*, ADDINFO+82*, ADDINFO+90*, ADDINFO+98*, ADDINFO+110* , ADDINFO+119*, ADDINFO+129*, ADDINFO+139*, ADDINFO+154* |
| DIR(0 | EN+17*, RESTART+21*, SPRMKS+5*, PREAUTH+9*, PREAUTH+10*, PREAUTH+19*, PREAUTH+20*, VENDOR+7*, ADDINFO+9*, ADDINFO+17* , ADDINFO+26*, ADDINFO+34*, ADDINFO+42*, ADDINFO+55*, ADDINFO+63*, ADDINFO+72*, ADDINFO+80*, ADDINFO+88*, ADDINFO+96*, ADDINFO+108* , ADDINFO+118*, ADDINFO+127*, ADDINFO+137*, ADDINFO+153*, ACTFILE+8* |
| >> DISTCITY | ADDINFO+81*, ADDINFO+82 |
| >> DISTL1 | ADDINFO+56*, ADDINFO+57, ADDINFO+73*, ADDINFO+74 |
| >> DISTL2 | ADDINFO+64*, ADDINFO+65 |
| >> DISTST | ADDINFO+89*, ADDINFO+90 |
| >> DISTZIP | ADDINFO+97*, ADDINFO+98 |
| >> DR | EN+39* |
| DT | RESTART+7 |
| >> DTOUT | EN+23, RESTART+24, RESTART+27, RESTART+28, RESTART+29, SPRMKS+7, PREAUTH+12, PREAUTH+16, PREAUTH+22, VENDOR+10 , ADDINFO+12, ADDINFO+21, ADDINFO+29, ADDINFO+37, ADDINFO+45, ADDINFO+58, ADDINFO+67, ADDINFO+75, ADDINFO+83, ADDINFO+91 , ADDINFO+99, ADDINFO+111, ADDINFO+120, ADDINFO+130, ADDINFO+140, ADDINFO+155 |
| >> DUOUT | EN+23*, RESTART+12*, RESTART+24, RESTART+27, RESTART+28, RESTART+29, SPRMKS+7, PREAUTH+12, PREAUTH+16, PREAUTH+22 , VENDOR+10, ADDINFO+12, ADDINFO+21, ADDINFO+29, ADDINFO+37, ADDINFO+45, ADDINFO+58, ADDINFO+67, ADDINFO+75, ADDINFO+83 , ADDINFO+91, ADDINFO+99, ADDINFO+111, ADDINFO+120, ADDINFO+130, ADDINFO+140, ADDINFO+155 |
| DUZ | EN+31 |
| ERRMSG | EN+5~, EN+37 |
| ERROR | INST+2~ |
| EXTRACREW | EN+5~ |
| FAC | INST+2~ |
| FIELDS | INST+2~ |
| I | ADDINFO+3~, ADDINFO+143*, CLEANUP+3* |
| INVDT | EN+4~, ADDINFO+115*, ADDINFO+119 |
| INVOICE | EN+4~, ADDINFO+105*, ADDINFO+109*, ADDINFO+110 |
| MILEAGEFEE | EN+5~ |
| MODEOFTRANS | EN+4~, RESTART+19*, RESTART+22*, RESTART+23 |
| >> MYHELP("DIHELP" | ACTFILE+4*, ACTFILE+5* |
| NOSHOW | EN+5~ |
| OTHERTRANRMKS | EN+4~ |
| OTHERTRANSRMKS | EN+5~, SPRMKS+2*, SPRMKS+6 |
| >> OWRTP | ADDINFO+124*, ADDINFO+128*, ADDINFO+129 |
| OWTRP | EN+4~ |
| PREAUTH | EN+4~, PREAUTH+7*, PREAUTH+11 |
| REMARKS | EN+5~, ADDINFO+150*, ADDINFO+154 |
| SPACCT | RESTART+1~, RESTART+2* |
| SPACTIEN | RESTART+1~, RESTART+3*, RESTART+6*, RESTART+7, RESTART+14 |
| >> SPCOMPLETE | EN+6*, EN+22*, EN+23*, EN+37*, EN+40*, RESTART+11*, RESTART+12*, RESTART+18*, RESTART+24*, RESTART+27 , SPRMKS+7*, PREAUTH+12*, PREAUTH+16, PREAUTH+22*, PREAUTH+28, PREAUTH+30*, PREAUTH+32*, VENDOR+10*, ADDINFO+12*, ADDINFO+21* , ADDINFO+29*, ADDINFO+37*, ADDINFO+45*, ADDINFO+58*, ADDINFO+67*, ADDINFO+75*, ADDINFO+83*, ADDINFO+91*, ADDINFO+99*, ADDINFO+111* , ADDINFO+120*, ADDINFO+130*, ADDINFO+140*, ADDINFO+155* |
| SPEQUIP | EN+5~ |
| TEMP | INST+2~ |
| TOTALMILES | EN+4~, ADDINFO+134*, ADDINFO+138*, ADDINFO+139 |
| TOTINVOICE | EN+4~ |
| TRNSMDE | EN+4~, RESTART+24*, RESTART+26 |
| U | ADDINFO+44 |
| >> VAEL(1 | EN+29 |
| >> VAEL(3 | EN+30 |
| VENDOR | EN+4~, VENDOR+4*, VENDOR+8*, VENDOR+9 |
| WAITTIME | EN+5~ |
| >> Y | EN+23, EN+24*, EN+25, SPRMKS+8, PREAUTH+13, PREAUTH+16, PREAUTH+22, PREAUTH+23, VENDOR+11, ADDINFO+13 , ADDINFO+22, ADDINFO+30, ADDINFO+38, ADDINFO+46, ADDINFO+59, ADDINFO+68, ADDINFO+76, ADDINFO+84, ADDINFO+92, ADDINFO+100 , ADDINFO+112, ADDINFO+131, ADDINFO+141, ADDINFO+156 |
| >> Y(0 | EN+24*, RESTART+24, RESTART+25, PREAUTH+14, PREAUTH+24, PREAUTH+25, ADDINFO+121 |