source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMUPAR.m@ 1166

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

initial load of FOIAVistA 6/30/08 version

File size: 683 bytes
Line 
1IVMUPAR ;ALB/CPM - IVM PARAMETER ENTER/EDIT ; 14-JUN-94
2 ;;2.0;INCOME VERIFICATION MATCH;**111**; 21-OCT-94
3 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;**111**; 21-OCT-94
4 ;;Per VHA Directive 10-93-142, this routine should not be modified.
5 ;
6EN ; Entry point for IVM Parameter Enter/Edit
7 ;
8 W !!,"IVM Parameter Enter/Edit",!
9 ;
10 I '$D(^IVM(301.9,1,0)) D
11 .W !,"You do not have an entry in your parameter file!!"
12 .W !,"Creating a new entry in the IVM SITE PARAMETER (#301.9) file... ",!
13 .S DIC="^IVM(301.9,",DIC(0)="",X=$P($$SITE^VASITE,"^",3),DINUM=1
14 .K DD,DO D FILE^DICN W " done."
15 .K %,DA,DIC,DIE,X,Y
16 ;
17 ;
18 S DIE="^IVM(301.9,",DA=1,DR=".03//0;.05//0" D ^DIE
19 K DIE,DR,DA
20 Q
Note: See TracBrowser for help on using the repository browser.