ACDDE ;IHS/ADC/EDE/KML - CDMIS DATA ENTRY;
Source file <ACDDE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TCDLP | ; LOOP AT TYPE CONTACT AND DATE LEVEL
|
|
| SAVBILL | ; EP-SAVE DATA FOR BILLING
; Note - should get here once for each CDMIS VISIT ; Local array set as CDMIS entries added or edited: ; ACDPCCL(patient ien,visit ien)="" ; ACDPCCL(patient ien,visit ien,"CS",cs ien)="" ; ACDPCCL(patient ien,visit ien,"IIF",iif ien)="" ; ACDPCCL(patient ien,visit ien,"TDC",tdc ien)="" |
|
| EOJ | ; END OF JOB
|
|
| CHK | ;
|
|
| ADD | ; EP - ADD CDMIS FORMS
|
|
| ADDTC | ; ADD DATA BASED ON TYPE CONTACT
|
|
| PATLP | ; LOOP AT PATIENT LEVEL
|
|
| PROVLP | ; LOOP AT PROVIDER LEVEL
|
|
| SAVBILL2 | ;
|
|
| OUTERLP | ; OUTER LOOP FOR CS (NO PRIMARY PROVIDER)
|
|
| MAIN | ; MAINLINE LOGIC
|
|
| DATELP | ; LOOP AT DATE LEVEL FOR CS ONLY
|
| Name | Field # of Occurrence |
|---|---|
| EN^ACDAUTO | CHK+9 |
| EN^ACDAUTO1 | CHK+14 |
| GETPROV^ACDDE2 | PROVLP+3 |
| GETTC^ACDDE2 | OUTERLP+4, TCDLP+4 |
| GETVDATE^ACDDE2 | TCDLP+9, DATELP+4 |
| INIT^ACDDE2 | MAIN+1 |
| ^ACDDEGP | PATLP+3 |
| DSPHIST^ACDDEU | PATLP+7 |
| GETVSITS^ACDDEU | PATLP+5 |
| HDR^ACDDEU | OUTERLP+3, PROVLP+2, TCDLP+3, DATELP+3, PATLP+1 |
| PAUSE^ACDDEU | PATLP+7 |
| AUTO^ACDDIK | ADDTC+5, CHK+18 |
| DIC^ACDFMC | OUTERLP+7 |
| FILE^ACDFMC | SAVBILL2+7, SAVBILL2+14 |
| ^ACDKILL | EOJ+1 |
| ^ACDPCCL | ADDTC+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^ACDBILL - [#9002172.9] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACDIIF("C" | CHK+5 |
| ^ACDTDC("C" | CHK+9 |
| ^DD(9002172.9 | SAVBILL2+13 |
| Name | Line Occurrences |
|---|---|
| @( | ADDTC+2 |
| ADDTC | TCDLP+12, TCDLP+13, PATLP+6 |
| CHK | ADDTC+7 |
| DATELP | OUTERLP+6 |
| EOJ | MAIN+2, MAIN+4 |
| MAIN | ADD+2 |
| OUTERLP | MAIN+3 |
| PATLP | TCDLP+14, DATELP+6 |
| PROVLP | OUTERLP+13 |
| SAVBILL | ADDTC+8 |
| SAVBILL2 | SAVBILL+8 |
| TCDLP | PROVLP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACDBFT | SAVBILL2+2~, SAVBILL2+3*, SAVBILL2+4, SAVBILL2+5, SAVBILL2+6, SAVBILL2+9 |
| ACDBIEN | SAVBILL2+2~, SAVBILL2+10*, SAVBILL2+13 |
| ACDBYPAS | OUTERLP+12*, TCDLP+1, TCDLP+4, TCDLP+5! |
| ACDCOMC | CHK+9~, SAVBILL2+1 |
| ACDCOMT | CHK+9~ |
| ACDCONT | OUTERLP+2*, OUTERLP+6, TCDLP+1*, TCDLP+7, TCDLP+12, TCDLP+13, PATLP+8, ADDTC+2, ADDTC+5, CHK+9~ , CHK+16, SAVBILL2+3 |
| >> ACDCONTL | OUTERLP+2*, TCDLP+1* |
| >> ACDCS | CHK+14 |
| >> ACDCSDP | OUTERLP+9*, TCDLP+7* |
| ACDCSIEN | SAVBILL2+2~, SAVBILL2+11*, SAVBILL2+12*, SAVBILL2+13 |
| >> ACDDECSN | CHK+14 |
| ACDDFNP | ADDTC+8, ADDTC+9, CHK+2~*, CHK+18, SAVBILL+9, SAVBILL2+4, SAVBILL2+5, SAVBILL2+6, SAVBILL2+12 |
| >> ACDFHCP | ADDTC+8, CHK+18 |
| >> ACDFHCPT | SAVBILL2+1 |
| >> ACDFHCPT( | SAVBILL2+1 |
| >> ACDFPCC | ADDTC+9, CHK+18, SAVBILL+9 |
| >> ACDLPTYP | OUTERLP+1*, DATELP+1* |
| >> ACDMODE | ADD+1*, SAVBILL2+5 |
| >> ACDPCCL( | ADDTC+8, ADDTC+9, CHK+18!, SAVBILL+9!, SAVBILL2+4, SAVBILL2+6, SAVBILL2+12 |
| >> ACDPROV | PROVLP+1* |
| >> ACDPROVN | PROVLP+1*, TCDLP+7 |
| >> ACDQ | MAIN+2, MAIN+3, OUTERLP+5, OUTERLP+6, OUTERLP+11, OUTERLP+13, PROVLP+4, PROVLP+5, PROVLP+6*, TCDLP+6 , TCDLP+8, TCDLP+10, TCDLP+14, TCDLP+15*, DATELP+5, DATELP+6, DATELP+7*, PATLP+2*, PATLP+4, PATLP+7 , PATLP+8* |
| ACDTOUT | CHK+4!, CHK+18* |
| >> ACDVDTE | TCDLP+2*, DATELP+2* |
| >> ACDVDTI | TCDLP+2*, DATELP+2* |
| ACDVIEN | ADDTC+1*, ADDTC+3, ADDTC+5, ADDTC+6, CHK+1~, SAVBILL+9, SAVBILL2+4, SAVBILL2+5, SAVBILL2+6, SAVBILL2+12 |
| >> ACDVISP | ADDTC+5*, ADDTC+6*, CHK+3, CHK+5, CHK+9, CHK+18 |
| >> DA(1 | SAVBILL2+13* |
| >> DIC | OUTERLP+7*, SAVBILL2+5*, SAVBILL2+13* |
| >> DIC("A" | OUTERLP+7* |
| >> DIC("DR" | SAVBILL2+5*, SAVBILL2+6* |
| >> DIC("P" | SAVBILL2+13* |
| >> DIC(0 | OUTERLP+7*, SAVBILL2+5*, SAVBILL2+13* |
| DT | SAVBILL2+5 |
| >> DTOUT | PATLP+7, ADDTC+5 |
| >> DUOUT | PATLP+7 |
| U | SAVBILL2+13 |
| >> X | CHK+2*, SAVBILL2+5*, SAVBILL2+13* |
| >> Y | OUTERLP+8, SAVBILL2+8, SAVBILL2+10, SAVBILL2+15 |
| >> Y(0 | OUTERLP+9 |