| 1 | DG53358C ;ALB/AEG,GN DG*5.3*296 DELETE INC TEST CON'T;01 JUNE 2000 ; 10/29/03 2:41pm
|
|---|
| 2 | ;;5.3;REGISTRATION;**358,558**;JUNE 1 2000
|
|---|
| 3 | ;
|
|---|
| 4 | ;This is a modified version for IVMCMD1. It deletes records
|
|---|
| 5 | ;from the Annual Means Test(#408.31) file. It does not open
|
|---|
| 6 | ;a case record in the IVM Patient (#301.5)file, does not send 'delete'
|
|---|
| 7 | ;bulletin/notification to local mail group, does not call the means
|
|---|
| 8 | ;test event driver and does not call DGMTR.
|
|---|
| 9 | ;
|
|---|
| 10 | ;DG*53*558 - re-deploy with this patch
|
|---|
| 11 | ;
|
|---|
| 12 | EN ;This entry point is called from the routine (DG53358D) and
|
|---|
| 13 | ;contains calls that are responsible for completing the
|
|---|
| 14 | ;deletion of an income test.
|
|---|
| 15 | ;
|
|---|
| 16 | ; Delete record from Annual Means Test (#408.31) file
|
|---|
| 17 | D DEL31(IVMMTIEN)
|
|---|
| 18 | S IVMDONE=1
|
|---|
| 19 | ;
|
|---|
| 20 | ; Cleanup variables
|
|---|
| 21 | D CLEAN
|
|---|
| 22 | ;
|
|---|
| 23 | ENQ Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | DEL31(IVMDIEN) ; Delete record from Annual Means Test (#408.31) file.
|
|---|
| 27 | ;
|
|---|
| 28 | ; Input(s):
|
|---|
| 29 | ; IVMDIEN - as IEN of the Annual Means Test (#408.31) file
|
|---|
| 30 | ;
|
|---|
| 31 | ; Output(s): None
|
|---|
| 32 | ;
|
|---|
| 33 | N DA,DIK
|
|---|
| 34 | S DA=IVMDIEN,DIK="^DGMT(408.31,"
|
|---|
| 35 | D ^DIK
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | ;
|
|---|
| 39 | ;
|
|---|
| 40 | CLEAN ; Cleanup variables used for deletion.
|
|---|
| 41 | K DA,DFN,DGINC,DGINR,DGMTA,DGMTACT,DGMTI,DGMTP
|
|---|
| 42 | K DGMTYPT,DIE,DIK,DR,IVM12,IVM121,IVM13,IVM41,IVM411
|
|---|
| 43 | K IVMAR1,IVMDEP,IVMFILE,IVMNOD,IVMOLD
|
|---|
| 44 | K IVMPAT,IVMTEXT,IVMVAMCA,XMSUB,Y
|
|---|
| 45 | Q
|
|---|
