Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
681 bytes
|
Line | |
---|
1 | FHWMAS ; HISC/REL - Process MAS Events ;2/1/95 08:53
|
---|
2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
---|
3 | S FHMAS3=0
|
---|
4 | S FHZ115="P"_DFN D ADD^FHOMDPA I FHDFN="" Q
|
---|
5 | F FHMAS1=0:0 S FHMAS1=$O(^UTILITY("DGPM",$J,FHMAS1)) Q:FHMAS1=""!(FHMAS1>3) D:'FHMAS3 A0 F FHMAS2=0:0 S FHMAS2=$O(^UTILITY("DGPM",$J,FHMAS1,FHMAS2)) Q:FHMAS2="" S FHNEW=$G(^(FHMAS2,"A")),FHOLD=$G(^("P")) D A1
|
---|
6 | K A0,ADM,FHWF,WARD,FHMAS1,FHMAS2,FHMAS3,FHNEW,FHOLD,X Q
|
---|
7 | A0 S FHMAS3=1 Q
|
---|
8 | A1 I FHNEW="" G DEL
|
---|
9 | ; New/Edit actions
|
---|
10 | S ADM=$P(FHNEW,"^",14) Q:'ADM
|
---|
11 | I FHMAS1=1 Q:$P(FHNEW,"^",17) G ^FHWADM
|
---|
12 | I FHMAS1=2 G ^FHWTRN
|
---|
13 | G ^FHWDIS
|
---|
14 | DEL ; Delete actions
|
---|
15 | S ADM=$P(FHOLD,"^",14) Q:'ADM
|
---|
16 | I FHMAS1=1 G ^FHWDIS
|
---|
17 | I FHMAS1=2 G ^FHWTRN
|
---|
18 | G ^FHWDISD
|
---|
Note:
See
TracBrowser
for help on using the repository browser.