Changeset 636 for FOIAVistA/tag/r/DIETETICS-FH/FHPRO.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• DIETETICS-FH/FHPRO.m (modified) (2 diffs)

FOIAVistA/tag/r/DIETETICS-FH/FHPRO.m

@@ -1 +1 @@
 FHPRO ; HISC/REL/RTK - Food Production Manager ;4/12/06  15:53
- ;;5.5;DIETETICS;**4,5,12**;Jan 28, 2005;Build 3
- ;
- ; 10/16/2007 BY/KAM FH*5.5*12 Rem Call 210883 Remove access to old
- ;                             Clinician field
+ ;;5.5;DIETETICS;**4,5**;Jan 28, 2005;Build 53
 EN2 ; Enter/Edit Nutrition Locations (Inpatient Wards/Outpatient Clinics)
  W ! K DIR,DIC S DIR("A")="Select WARD or OUTPATIENT Location: "
- S DIR(0)="SAO^W:Ward Location;O:Outpatient Location" D ^DIR I $D(DIRUT) G KIL
+ S DIR(0)="SAO^W:Ward Location;O:Outpatient Location" D ^DIR Q:$D(DIRUT)
  I Y'=-1 S FHANS=Y
  I FHANS="W" D EN2WRD Q
@@ -14 +11 @@
  K DIC S (DIC,DIE)="^FH(119.6,",DIC(0)="AEQLM",DLAYGO=119.6
  S DIC("DR")=".01" W ! D ^DIC K DIC,DLAYGO G KIL:U[X!$D(DTOUT),EN2:Y<1
- ; S DR=".01;2:2.5;... POTENTIAL CHG FOR 210883 WAS S DR=".01:2.5;3"
- ; 10/16/2007 BP/KAM FH*5.5*12 changed next line to remove access to field # 1 Clinician (Old Clinician field)
- S DA=+Y,DR=".01;2:2.5;3;S:X="""" Y=4;3.5;4;S:X="""" Y=5;4.5;5;S:'X Y=6;5.5;6:29;99;107;107.5;108;108.5;109;109.5;110;110.5;111;111.5;112" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=119.6 D ^DIE,KIL G EN2
+ S DA=+Y,DR=".01:2.5;3;S:X="""" Y=4;3.5;4;S:X="""" Y=5;4.5;5;S:'X Y=6;5.5;6:29;99;107;107.5;108;108.5;109;109.5;110;110.5;111;111.5;112" S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=119.6 D ^DIE,KIL G EN2
 EN2OL ;Outpatient locations
  K DIC S (DIC,DIE)="^FH(119.6,",DIC(0)="AEQLM",DLAYGO=119.6