DG53358C.m

DG53358C ;ALB/AEG,GN DG*5.3*296 DELETE INC TEST CON'T;01 JUNE 2000 ; 10/29/03 2:41pm

 ;;5.3;REGISTRATION;**358,558,1015**;JUNE 1 2000;Build 21

 ;

 ;This is a modified version for IVMCMD1. It deletes records

 ;from the Annual Means Test(#408.31) file.  It does not open

 ;a case record in the IVM Patient (#301.5)file, does not send 'delete'

 ;bulletin/notification to local mail group, does not call the means

 ;test event driver and does not call DGMTR.

 ;

 ;DG*53*558 - re-deploy with this patch

 ;

EN ;This entry point is called from the routine (DG53358D) and

 ;contains calls that are responsible for completing the

 ;deletion of an income test.

 ;

 ; Delete record from Annual Means Test (#408.31) file

 D DEL31(IVMMTIEN)

 S IVMDONE=1

 ;

 ; Cleanup variables

 D CLEAN

 ;

ENQ Q

 ;

 ;

DEL31(IVMDIEN) ; Delete record from Annual Means Test (#408.31) file.

 ;

 ;  Input(s):

 ;    IVMDIEN - as IEN of the Annual Means Test (#408.31) file

 ;

 ; Output(s): None

 ;

 N DA,DIK

 S DA=IVMDIEN,DIK="^DGMT(408.31,"

 D ^DIK

 Q

 ;

 ;

 ;

CLEAN ; Cleanup variables used for deletion.

 K DA,DFN,DGINC,DGINR,DGMTA,DGMTACT,DGMTI,DGMTP

 K DGMTYPT,DIE,DIK,DR,IVM12,IVM121,IVM13,IVM41,IVM411

 K IVMAR1,IVMDEP,IVMFILE,IVMNOD,IVMOLD

 K IVMPAT,IVMTEXT,IVMVAMCA,XMSUB,Y

 Q

DG53358C  ;ALB/AEG,GN DG*5.3*296 DELETE INC TEST CON'T;01 JUNE 2000 ; 10/29/03 2:41pm

 +1       ;;5.3;REGISTRATION;**358,558,1015**;JUNE 1 2000;Build 21

 +2       ;

 +3       ;This is a modified version for IVMCMD1. It deletes records

 +4       ;from the Annual Means Test(#408.31) file.  It does not open

 +5       ;a case record in the IVM Patient (#301.5)file, does not send 'delete'

 +6       ;bulletin/notification to local mail group, does not call the means

 +7       ;test event driver and does not call DGMTR.

 +8       ;

 +9       ;DG*53*558 - re-deploy with this patch

 +10      ;

EN        ;This entry point is called from the routine (DG53358D) and

 +1       ;contains calls that are responsible for completing the

 +2       ;deletion of an income test.

 +3       ;

 +4       ; Delete record from Annual Means Test (#408.31) file

 +5        DO DEL31(IVMMTIEN)

 +6        SET IVMDONE=1

 +7       ;

 +8       ; Cleanup variables

 +9        DO CLEAN

 +10      ;

ENQ        QUIT 

 +1       ;

 +2       ;

DEL31(IVMDIEN) ; Delete record from Annual Means Test (#408.31) file.

 +1       ;

 +2       ;  Input(s):

 +3       ;    IVMDIEN - as IEN of the Annual Means Test (#408.31) file

 +4       ;

 +5       ; Output(s): None

 +6       ;

 +7        NEW DA,DIK

 +8        SET DA=IVMDIEN

           SET DIK="^DGMT(408.31,"

 +9        DO ^DIK

 +10       QUIT 

 +11      ;

 +12      ;

 +13      ;

CLEAN     ; Cleanup variables used for deletion.

 +1        KILL DA,DFN,DGINC,DGINR,DGMTA,DGMTACT,DGMTI,DGMTP

 +2        KILL DGMTYPT,DIE,DIK,DR,IVM12,IVM121,IVM13,IVM41,IVM411

 +3        KILL IVMAR1,IVMDEP,IVMFILE,IVMNOD,IVMOLD

 +4        KILL IVMPAT,IVMTEXT,IVMVAMCA,XMSUB,Y

 +5        QUIT