IVMUPAR.m

IVMUPAR ;ALB/CPM - IVM PARAMETER ENTER/EDIT ; 14-JUN-94

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

 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;**111**; 21-OCT-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

EN ; Entry point for IVM Parameter Enter/Edit

 ;

 W !!,"IVM Parameter Enter/Edit",!

 ;

 I '$D(^IVM(301.9,1,0)) D

 .W !,"You do not have an entry in your parameter file!!"

 .W !,"Creating a new entry in the IVM SITE PARAMETER (#301.9) file... ",!

 .S DIC="^IVM(301.9,",DIC(0)="",X=$P($$SITE^VASITE,"^",3),DINUM=1

 .K DD,DO D FILE^DICN W " done."

 .K %,DA,DIC,DIE,X,Y

 ;

 ;

 S DIE="^IVM(301.9,",DA=1,DR=".03//0;.05//0" D ^DIE

 K DIE,DR,DA

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVMUPAR   703     printed  Mar 13, 2025@21:07:05                                                                                                                                                                                                      Page 2

IVMUPAR   ;ALB/CPM - IVM PARAMETER ENTER/EDIT ; 14-JUN-94

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

 +2       ;;Version 2.0 ; INCOME VERIFICATION MATCH ;**111**; 21-OCT-94

 +3       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +4       ;

EN        ; Entry point for IVM Parameter Enter/Edit

 +1       ;

 +2        WRITE !!,"IVM Parameter Enter/Edit",!

 +3       ;

 +4        IF '$DATA(^IVM(301.9,1,0))

               Begin DoDot:1

 +5                WRITE !,"You do not have an entry in your parameter file!!"

 +6                WRITE !,"Creating a new entry in the IVM SITE PARAMETER (#301.9) file... ",!

 +7                SET DIC="^IVM(301.9,"

                   SET DIC(0)=""

                   SET X=$PIECE($$SITE^VASITE,"^",3)

                   SET DINUM=1

 +8                KILL DD,DO

                   DO FILE^DICN

                   WRITE " done."

 +9                KILL %,DA,DIC,DIE,X,Y

               End DoDot:1

 +10      ;

 +11      ;

 +12       SET DIE="^IVM(301.9,"

           SET DA=1

           SET DR=".03//0;.05//0"

           DO ^DIE

 +13       KILL DIE,DR,DA

 +14       QUIT