DG53426E.m

DG53426E ;ALB/AEG - DG*5.3*426 POST-INSTALLATION;2-19-02

 ;;5.3;Registration;**426,1015**;2-19-02;Build 21

 ;

 ; This routine is a modified version of IVMCMD1.  It deletes records

 ; from the Annual Means Test file #08.31.  It opens a case record in

 ; the IVM Patient file (#301.5), calls the means test event driver, &

 ; calls DGMTR

 ;

EN ; This entry point is called from DG53426D & contans calls  that are 

 ; responsible for completing the deletion of an income test.

 ;

 D DEL31(MTIEN)

 S DGDONE=1

 ;

 D OPEN(DFN,DGDOT)

 ; Call the Means test event driver

 D EVNT

 ; Call DGMTR if deleted means test.

 I $G(DGTOT)=1 D

 .S DGMSGF=1

 .D EN^DGMTR

 ; cleanup the partition

 D CLEAN

 ;

ENQ Q

 ;

DEL31(MTIEN) ; delete 408.31 entry

 ; mtien - means test file pointer

 ;

 N DA,DIK

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

 D ^DIK

 Q

 ;

OPEN(DFN,DGDOT) ; Open IVM patient file case record.

 ;

 ; input(s) DFN - Pointer to patient file.

 ;          DGDOT - Date of Means test to be deleted.

 ;

 N DA,DR,DIE

 S DA=$O(^IVM(301.5,"APT",+DFN,+$$LYR^DGMTSCU1(DGDOT),0))

 I $G(^IVM(301.5,+DA,0))']"" G OPENQ

 S DR=".04////0",DIE="^IVM(301.5,"

 D ^DIE

 K ^IVM(301.5,+DA,1)

OPENQ Q

 ;

EVNT ; Call the Means test event driver

 S DGMTYPT=DGTOT D QUE^DGMTR

 Q

 ;

CLEAN ; Cleanup the partition and quit

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

 K DGMTYPT,DIE,DIK,DR,DG12,DG121,DG13,DG41,DG411

 K DGMAR1,DGDEP,DGFILE,DGNODE,DGOLD

 K DGPAT,DGTEXT,DGVACMA

 Q

DG53426E  ;ALB/AEG - DG*5.3*426 POST-INSTALLATION;2-19-02

 +1       ;;5.3;Registration;**426,1015**;2-19-02;Build 21

 +2       ;

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

 +4       ; from the Annual Means Test file #08.31.  It opens a case record in

 +5       ; the IVM Patient file (#301.5), calls the means test event driver, &

 +6       ; calls DGMTR

 +7       ;

EN        ; This entry point is called from DG53426D & contans calls  that are 

 +1       ; responsible for completing the deletion of an income test.

 +2       ;

 +3        DO DEL31(MTIEN)

 +4        SET DGDONE=1

 +5       ;

 +6        DO OPEN(DFN,DGDOT)

 +7       ; Call the Means test event driver

 +8        DO EVNT

 +9       ; Call DGMTR if deleted means test.

 +10       IF $GET(DGTOT)=1

               Begin DoDot:1

 +11               SET DGMSGF=1

 +12               DO EN^DGMTR

               End DoDot:1

 +13      ; cleanup the partition

 +14       DO CLEAN

 +15      ;

ENQ        QUIT 

 +1       ;

DEL31(MTIEN) ; delete 408.31 entry

 +1       ; mtien - means test file pointer

 +2       ;

 +3        NEW DA,DIK

 +4        SET DA=MTIEN

           SET DIK="^DGMT(408.31,"

 +5        DO ^DIK

 +6        QUIT 

 +7       ;

OPEN(DFN,DGDOT) ; Open IVM patient file case record.

 +1       ;

 +2       ; input(s) DFN - Pointer to patient file.

 +3       ;          DGDOT - Date of Means test to be deleted.

 +4       ;

 +5        NEW DA,DR,DIE

 +6        SET DA=$ORDER(^IVM(301.5,"APT",+DFN,+$$LYR^DGMTSCU1(DGDOT),0))

 +7        IF $GET(^IVM(301.5,+DA,0))']""

               GOTO OPENQ

 +8        SET DR=".04////0"

           SET DIE="^IVM(301.5,"

 +9        DO ^DIE

 +10       KILL ^IVM(301.5,+DA,1)

OPENQ      QUIT 

 +1       ;

EVNT      ; Call the Means test event driver

 +1        SET DGMTYPT=DGTOT

           DO QUE^DGMTR

 +2        QUIT 

 +3       ;

CLEAN     ; Cleanup the partition and quit

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

 +2        KILL DGMTYPT,DIE,DIK,DR,DG12,DG121,DG13,DG41,DG411

 +3        KILL DGMAR1,DGDEP,DGFILE,DGNODE,DGOLD

 +4        KILL DGPAT,DGTEXT,DGVACMA

 +5        QUIT