| 1 | FHOMWOR1 ;Hines OIFO/RTK OUTPATIENT MEALS/HL7 MSGING CONT ;04/22/05 9:15
|
|---|
| 2 | ;;5.5;DIETETICS;**2**;Jan 28, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | NA ;Number assign for outpatient meals orders (store OR# in FH field)
|
|---|
| 5 | I FHTYPE="A" D NAAO Q
|
|---|
| 6 | I FHTYPE="E" D NAEL Q
|
|---|
| 7 | I FHTYPE="T" D NATF Q
|
|---|
| 8 | I FHTYPE="R" D NARM Q
|
|---|
| 9 | I FHTYPE="I" D NAIP Q
|
|---|
| 10 | I FHTYPE="S" S FHSN=+FHRNUM D NASM Q
|
|---|
| 11 | I FHTYPE="G" S FHSN=+FHRNUM D NASMEL Q
|
|---|
| 12 | I FHTYPE="RMEDIT" D NARMED Q
|
|---|
| 13 | S TXT="BAD TYPE" D GETOR^FHWOR,ERR^FHOMWOR Q
|
|---|
| 14 | Q
|
|---|
| 15 | NAAO ;
|
|---|
| 16 | K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
|
|---|
| 17 | S DA=+FHRNUM,DR="13.5////^S X=FHORN" D ^DIE
|
|---|
| 18 | Q
|
|---|
| 19 | NAEL ;
|
|---|
| 20 | K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
|
|---|
| 21 | S DA=+FHRNUM,DR="17.5////^S X=FHORN" D ^DIE
|
|---|
| 22 | Q
|
|---|
| 23 | NATF ;
|
|---|
| 24 | K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
|
|---|
| 25 | S DA=+FHRNUM,DR="21.5////^S X=FHORN" D ^DIE
|
|---|
| 26 | Q
|
|---|
| 27 | NARM ;
|
|---|
| 28 | F FHRNM=0:0 S FHRNM=$O(^FHPT(FHDFN,"OP","C",FHMPN,FHRNM)) Q:FHRNM'>0 D
|
|---|
| 29 | .K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
|
|---|
| 30 | .S DA=FHRNM,DR=".05////^S X=FHORN" D ^DIE
|
|---|
| 31 | .Q
|
|---|
| 32 | Q
|
|---|
| 33 | NAIP ;
|
|---|
| 34 | K DIE S DIE="^FHPT(",DA=FHDFN,DR="20////^S X=FHORN" D ^DIE
|
|---|
| 35 | Q
|
|---|
| 36 | NASM ;
|
|---|
| 37 | K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""SM"","
|
|---|
| 38 | S DA=FHSN,DR="14////^S X=FHORN" D ^DIE
|
|---|
| 39 | Q
|
|---|
| 40 | NASMEL ;
|
|---|
| 41 | K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""SM"","
|
|---|
| 42 | S DA=FHSN,DR="11////^S X=FHORN" D ^DIE
|
|---|
| 43 | Q
|
|---|
| 44 | NARMED ;
|
|---|
| 45 | K DIE S DA(1)=FHDFN,DIE="^FHPT("_DA(1)_",""OP"","
|
|---|
| 46 | S DA=+FHRNUM,DR=".05////^S X=FHORN" D ^DIE
|
|---|
| 47 | Q
|
|---|
| 48 | OMD1IT ;
|
|---|
| 49 | F PIECE=3,4,5,6 S $P(^FH(119.9,1,0),U,PIECE)=""
|
|---|
| 50 | Q
|
|---|
