| [613] | 1 | FHORX ; HISC/REL,RTK - File Dietetic Event ;2/26/96 09:54
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | FIL ; File event
|
|---|
| 4 | L +^FH(119.8,0) S DA=$P(^FH(119.8,0),"^",3)+1,$P(^FH(119.8,0),"^",3,4)=DA_"^"_DA L -^FH(119.8,0)
|
|---|
| 5 | I $D(^FH(119.8,DA)) G FIL
|
|---|
| 6 | I $G(ADM)="" S ADM="" ;for outpatient food preferences - RTK 8/04
|
|---|
| 7 | D NOW^%DTC
|
|---|
| 8 | S ^FH(119.8,DA,0)=DA_"^"_%_"^"_FHDFN_"^"_ADM_"^"_EVT S $P(^(0),"^",9)=DUZ
|
|---|
| 9 | S ^FH(119.8,"B",DA,DA)="",^FH(119.8,"AP",FHDFN,%,DA)="",^FH(119.8,"AD",%,DA)=""
|
|---|
| 10 | K %,DA,EVT Q
|
|---|
| 11 | OPFILE ; File outpatient events (TYPE = "Z")
|
|---|
| 12 | K DIC,DO S Y=$P(^FH(119.8,0),"^",3)+1,DIC="^FH(119.8,",X=+Y,DINUM=X
|
|---|
| 13 | S DIC(0)="L" D FILE^DICN I Y=-1 Q
|
|---|
| 14 | D NOW^%DTC S FHDTM=%,FHTYP="Z"
|
|---|
| 15 | K DIE S DIE="^FH(119.8,",DA=+Y
|
|---|
| 16 | S DR="1////^S X=FHDTM;2////^S X=FHDFN;4////^S X=FHTYP;5////^S X=FHACT;7////^S X=FHTXT;8////^S X=DUZ" D ^DIE
|
|---|
| 17 | Q
|
|---|
