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 |