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 ---[H[J[2J[HIVMUPAR 703 printed Nov 22, 2024@17:13:11 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
