source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53358C.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DG53358C ;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 ;
12EN ;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 ;
23ENQ Q
24 ;
25 ;
26DEL31(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 ;
40CLEAN ; 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
Note: See TracBrowser for help on using the repository browser.