source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHOMWOR1.m

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1FHOMWOR1 ;Hines OIFO/RTK OUTPATIENT MEALS/HL7 MSGING CONT ;04/22/05 9:15
2 ;;5.5;DIETETICS;**2**;Jan 28, 2005
3 ;
4NA ;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
15NAAO ;
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
19NAEL ;
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
23NATF ;
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
27NARM ;
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
33NAIP ;
34 K DIE S DIE="^FHPT(",DA=FHDFN,DR="20////^S X=FHORN" D ^DIE
35 Q
36NASM ;
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
40NASMEL ;
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
44NARMED ;
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
48OMD1IT ;
49 F PIECE=3,4,5,6 S $P(^FH(119.9,1,0),U,PIECE)=""
50 Q
Note: See TracBrowser for help on using the repository browser.