IVM2012P.m

IVM2012P ;ALB/SEK,CJM CLEANUP ENROLLMENT QUERY LOG FILE ; 09/02/98

 ;;2.0;INCOME VERIFICATION MATCH;**12**; 21-OCT-94

 ;

EN ;begin processing

 ;

 ;put 0 in the new ENROLLMENT QUERY ACTIVE? field (#15) of the

 ;IVM SITE PARAMETER file (#301.9)

 ;

 N DA,DATA

 S DA=$O(^IVM(301.9,0))

 S DATA(15)=0

 I $$UPD^DGENDBS(301.9,DA,.DATA) ;else the update failed

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVM2012P   368     printed  Mar 13, 2025@21:04:28                                                                                                                                                                                                     Page 2

IVM2012P  ;ALB/SEK,CJM CLEANUP ENROLLMENT QUERY LOG FILE ; 09/02/98

 +1       ;;2.0;INCOME VERIFICATION MATCH;**12**; 21-OCT-94

 +2       ;

EN        ;begin processing

 +1       ;

 +2       ;put 0 in the new ENROLLMENT QUERY ACTIVE? field (#15) of the

 +3       ;IVM SITE PARAMETER file (#301.9)

 +4       ;

 +5        NEW DA,DATA

 +6        SET DA=$ORDER(^IVM(301.9,0))

 +7        SET DATA(15)=0

 +8       ;else the update failed

           IF $$UPD^DGENDBS(301.9,DA,.DATA)

 +9        QUIT