IVM20P19 ;ALB/KCL - Post-Install Extract ; 1-SEP-1998
Source file <IVM20P19.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; Entry point for post-install, setup check points
|
|
| EN | ; Description: This entry point will be the driver for the extract.
|
|
| EXTRACT(BEGDT,ENDDT,IVMARRAY) | ; Description: Used to perform the extract and log patients in the IVM PATIENT file for transmission if selected.
|
|
| SELECT(DFN) | ; Description: This function will determine if the patient meets the following extract selection criteria:
|
|
| SELECTQ | ||
| SCZERO(DFN) | ; Description: Used to determine if a patient has a SERVICE CONNECTED PERCENTAGE equal to zero.
|
|
| OTHELIG(DFN) | ; Description: Used to determine if a patient has OTHER ENTITLED ELIGIBILITIES.
|
|
| BULL(IVMARRAY) | ; Description: This function will generate a MailMan message contianing the extract results.
|
| Name | Field # of Occurrence |
|---|---|
| $$CRITERIA^IVMBULK1 | EXTRACT+39 |
| $$LOG^IVMPLOG | EXTRACT+47 |
| $$YEAR^IVMPLOG | EXTRACT+47 |
| $$SITE^VASITE | BULL+12 |
| $$FMTE^XLFDT | BULL+23, BULL+24 |
| $$NOW^XLFDT | EXTRACT+13, EXTRACT+50 |
| ^XMD | BULL+33 |
| UPDATE^XPDID | EXTRACT+35 |
| $$NEWCP^XPDUTL | POST+2 |
| $$PARCP^XPDUTL | EXTRACT+21 |
| $$UPCP^XPDUTL | EXTRACT+27 |
| BMES^XPDUTL | EN+12, EN+23 |
| MES^XPDUTL | EN+15, EN+16, EN+17, EN+18, EN+19, EN+20 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EXTRACT+24, SCZERO+10, SCZERO+11, OTHELIG+11, OTHELIG+15 |
| ^DPT(0 | EXTRACT+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | POST+1~, POST+2*, EXTRACT+27* |
| BEGDT | EXTRACT~, EXTRACT+39 |
| DFN | EXTRACT+9~, EXTRACT+21*, EXTRACT+24*, EXTRACT+27, EXTRACT+39, EXTRACT+42, EXTRACT+47, SELECT~, SELECT+15, SELECT+18 , SCZERO~, SCZERO+10, SCZERO+11, OTHELIG~, OTHELIG+11, OTHELIG+15 |
| DIFROM | BULL+9~ |
| DT | EN+9 |
| DUZ | BULL+15 |
| ENDDT | EXTRACT~, EXTRACT+39 |
| EVENTS | EXTRACT+45~, EXTRACT+47 |
| EVENTS("ENROLL" | EXTRACT+46* |
| IVMARRAY | EN+5~, EN+13, EN+24, EXTRACT~, EXTRACT+12!*, BULL~ |
| IVMARRAY("COMP%" | EXTRACT+33*, EXTRACT+34 |
| IVMARRAY("EXTRACT" | EN+16, EN+17, EN+19, EXTRACT+15*, EXTRACT+47*, BULL+27, BULL+28, BULL+30 |
| IVMARRAY("PROC" | EN+15, EN+17, EXTRACT+14*, EXTRACT+29*, EXTRACT+33, EXTRACT+35, BULL+26, BULL+28 |
| IVMARRAY("START" | EXTRACT+13*, BULL+23 |
| IVMARRAY("STOP" | EXTRACT+50*, BULL+24 |
| IVMARRAY("TOTAL" | EXTRACT+16*, EXTRACT+17, EXTRACT+33 |
| IVMARRAY("UPDATE%" | EXTRACT+18*, EXTRACT+34, EXTRACT+36* |
| IVMBEGDT | EN+5~, EN+8*, EN+13 |
| IVMENDDT | EN+5~, EN+9*, EN+13 |
| IVMSITE | BULL+8~, BULL+12*, BULL+13, BULL+20, BULL+21 |
| IVMTXT | BULL+8~ |
| IVMTXT(1 | BULL+18* |
| IVMTXT(10 | BULL+27* |
| IVMTXT(11 | BULL+28* |
| IVMTXT(12 | BULL+29* |
| IVMTXT(13 | BULL+30* |
| IVMTXT(14 | BULL+31* |
| IVMTXT(2 | BULL+19* |
| IVMTXT(3 | BULL+20* |
| IVMTXT(4 | BULL+21* |
| IVMTXT(5 | BULL+22* |
| IVMTXT(6 | BULL+23* |
| IVMTXT(7 | BULL+24* |
| IVMTXT(8 | BULL+25* |
| IVMTXT(9 | BULL+26* |
| OTH | OTHELIG+8~, OTHELIG+9*, OTHELIG+15, OTHELIG+16*, OTHELIG+18 |
| OTHELIG | OTHELIG+8~, OTHELIG+9*, OTHELIG+15*, OTHELIG+16 |
| PRIME | OTHELIG+8~, OTHELIG+11*, OTHELIG+14, OTHELIG+16 |
| SCZERO | SCZERO+8~*, SCZERO+11*, SCZERO+13 |
| SELECT | SELECT+12~*, SELECT+15*, SELECT+18*, SELECTQ |
| XMDUZ | BULL+8~, BULL+14* |
| XMSUB | BULL+8~, BULL+13* |
| XMTEXT | BULL+8~, BULL+16* |
| XMY | BULL+8~ |
| XMY( | BULL+15* |
| XMY("G.ENROLL | MENT EXTRACT@IVM.DOMAIN.EXT" , BULL+15* |
| XMZ | BULL+7! |
| >> XPDIDTOT | EXTRACT+17* |
| >> ZTQUEUED | EXTRACT+32 |
