IBDFN2 ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992
Source file <IBDFN2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| APPT | ;returns appt date@time^date^time
|
|
| NOW | ;returns date and time
|
|
| SPSEMPLR | ;returns spouse's employer,address, telephone
|
|
| EMPLOYER | ;returns employer,address, telephone
|
|
| MT | ;returns means test data
|
|
| ENROLL | ;returns enrollment priority code and copay information
|
|
| ALLERGY | ;outputs a list of the patient's allergies
|
|
| PRMT | ; -- print a 1010f if required or will expire in 357.09;.1 days
; called from print manger ; requires dfn, ibappt=appointment date |
|
| PRMTQ | ||
| GETMT | ;Since status is required find last valid means test
|
|
| MSTSTAT | ;-- Get patient's MST status for EF display block
; Input: ; DFN |
|
| ASKMST | ;-- Ask if patient's treatment is related to SC and MST (if applicable)
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | APPT+2, NOW+6, MT+4 |
| NOW^%DTC | NOW+6 |
| $$PRIORITY^DGENA | ENROLL+4 |
| $$GETSTAT^DGMSTAPI | MSTSTAT+12 |
| START^DGMTP | PRMT+16 |
| $$LST^DGMTU | MT+2, PRMT+5, PRMT+6 |
| $$LVMT^DGMTU | GETMT+2 |
| $$BIL^DGMTUB | ENROLL+7 |
| ^GMRADPT | ALLERGY+3 |
| GMRADPT^GMRADPT | ALLERGY+3 |
| $$MST^SDCO22 | ASKMST+7 |
| $$SC^SDCO22 | ASKMST+6 |
| OAD^VADPT | SPSEMPLR+4, EMPLOYER+4 |
| $$FMDIFF^XLFDT | PRMT+13 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PRMT+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NOW+5~, NOW+6 |
| %DT | APPT+2!, NOW+6! |
| %H | NOW+5~ |
| %I | NOW+5~ |
| ARY | SPSEMPLR+2~, SPSEMPLR+3*, SPSEMPLR+5*, SPSEMPLR+6, SPSEMPLR+7, SPSEMPLR+8, SPSEMPLR+9, SPSEMPLR+10, SPSEMPLR+11, EMPLOYER+2~ , EMPLOYER+3*, EMPLOYER+5*, EMPLOYER+6, EMPLOYER+7, EMPLOYER+8, EMPLOYER+9, EMPLOYER+10, EMPLOYER+11, MSTSTAT+9~, MSTSTAT+10* , MSTSTAT+13, ASKMST+2~, ASKMST+4*, ASKMST+6, ASKMST+7 |
| CNT | SPSEMPLR+2~*, SPSEMPLR+6*, SPSEMPLR+7*, SPSEMPLR+8*, SPSEMPLR+9, EMPLOYER+2~*, EMPLOYER+6*, EMPLOYER+7*, EMPLOYER+8*, EMPLOYER+9 |
| COUNT | ALLERGY+2~, ALLERGY+4*, ALLERGY+5*, ALLERGY+6*, ALLERGY+9, ASKMST+2~, ASKMST+5*, ASKMST+6*, ASKMST+7 |
| >> DFN | NOW+7, NOW+8, NOW+9, MT+2, ENROLL+4, ENROLL+7, PRMT+5, PRMT+6, GETMT+2, MSTSTAT+11 , MSTSTAT+12, ASKMST+3, ASKMST+6, ASKMST+7 |
| DGMTDT | PRMT+4~, PRMT+10*, PRMT+13, GETMT+4* |
| DGMTI | PRMT+4~, PRMT+10*, GETMT+4* |
| DGMTYPT | PRMT+4~, PRMT+9*, GETMT+3* |
| DGOPT | PRMT+4~, PRMT+11* |
| DT | ENROLL+7, PRMT+5, PRMT+6, GETMT+2 |
| GET | MT+1~, MT+2*, MT+3, MT+4, MT+5 |
| GMRA | ALLERGY+2~ |
| GMRAL | ALLERGY+2~, ALLERGY+4 |
| GMRAL( | ALLERGY+5, ALLERGY+7 |
| I | ALLERGY+2~, ALLERGY+5*, ALLERGY+7 |
| >> IBAPPT | APPT+2, PRMT+13 |
| >> IBARY | APPT+3, MT+6, ENROLL+9, ALLERGY+4, ALLERGY+9 |
| IBDMT | PRMT+4~, PRMT+8*, PRMT+9, PRMT+10, PRMT+12, GETMT+2*, GETMT+4 |
| IBDMT1 | PRMT+4~, PRMT+5*, PRMT+7, PRMT+8, PRMT+15 |
| IBDMT2 | PRMT+4~, PRMT+6*, PRMT+7, PRMT+8, PRMT+9 |
| IBEP | ENROLL+2~, ENROLL+4*, ENROLL+8*, ENROLL+9 |
| IBEP1 | ENROLL+2~, ENROLL+7*, ENROLL+8 |
| MST | MSTSTAT+9~, MSTSTAT+12*, MSTSTAT+13 |
| NODE | ALLERGY+2~, ALLERGY+7*, ALLERGY+8, ALLERGY+9 |
| RET | MT+1~, MT+3*, MT+5*, MT+6 |
| >> STATUS | PRMT+12*, PRMT+13, PRMT+15 |
| TYPE | ALLERGY+2~, ALLERGY+8*, ALLERGY+9 |
| VAERR | SPSEMPLR+5, SPSEMPLR+12!, EMPLOYER+5, EMPLOYER+12! |
| VAOA | SPSEMPLR+12!, EMPLOYER+12! |
| VAOA("A" | SPSEMPLR+4*, EMPLOYER+4* |
| VAOA(1 | SPSEMPLR+6, EMPLOYER+6 |
| VAOA(2 | SPSEMPLR+7, EMPLOYER+7 |
| VAOA(3 | SPSEMPLR+8, EMPLOYER+8 |
| VAOA(4 | SPSEMPLR+9, EMPLOYER+9 |
| VAOA(5 | SPSEMPLR+9, EMPLOYER+9 |
| VAOA(6 | SPSEMPLR+9, EMPLOYER+9 |
| VAOA(8 | SPSEMPLR+10, EMPLOYER+10 |
| VAOA(9 | SPSEMPLR+11, EMPLOYER+11 |
| X | NOW+5~ |
| Y | APPT+1~, APPT+2*, APPT+3, NOW+5~, NOW+6*, NOW+7, NOW+8, NOW+9, MT+1~, MT+4* , MT+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(GMRADPT^GMRADPT | ALLERGY+3 |
