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**;JUNE 1 2000
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53358C 1283 printed Dec 13, 2024@02:37:16 Page 2
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**;JUNE 1 2000
+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
