source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHWMAS.m@ 1046

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

initial load of WorldVistAEHR

File size: 681 bytes
RevLine 
[613]1FHWMAS ; 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
7A0 S FHMAS3=1 Q
8A1 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
14DEL ; 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.