source: FOIAVistA/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVFILE.m@ 711

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

initial load of FOIAVistA 6/30/08 version

File size: 807 bytes
Line 
1GMRVFILE ;HIRMFO/FT-Set V/M File Security ;3/5/97 16:41
2 ;;4.0;Vitals/Measurements;;Apr 25, 1997
3POST1 ; entry point from package installation
4 I $G(XPDQUES("POST1"))'>0 D BMES^XPDUTL("FILE SECURITY NOT UPDATED!!") Q
5 D BMES^XPDUTL("Setting Vitals/Measurements file security...")
6EN1 ;
7 F GMRVTXT=1:1 S GMRVLINE=$P($T(SECURITY+GMRVTXT),";;",2,99) Q:GMRVLINE="" D
8 . S GMRVFL=+$P(GMRVLINE,";")
9 . S ^DIC(GMRVFL,0,"DD")=$P(GMRVLINE,";",2)
10 . S ^DIC(GMRVFL,0,"RD")=$P(GMRVLINE,";",3)
11 . S ^DIC(GMRVFL,0,"WR")=$P(GMRVLINE,";",4)
12 . S ^DIC(GMRVFL,0,"DEL")=$P(GMRVLINE,";",5)
13 . S ^DIC(GMRVFL,0,"LAYGO")=$P(GMRVLINE,";",6)
14 . Q
15 K GMRVFL,GMRVLINE,GMRVTXT
16 Q
17SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
18 ;;120.5;@;;@;@;@
19 ;;120.51;@;;@;@;@
20 ;;120.52;@;;@;@;@
21 ;;120.53;@;;@;@;@
22 ;;120.55;@;;@;@;@
23 ;;120.57;@;;@;@;@
24 Q
Note: See TracBrowser for help on using the repository browser.