Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
681 bytes
|
Rev | Line | |
---|
[613] | 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.