Changeset 636 for FOIAVistA/tag/r/DIETETICS-FH/FHORC5.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/FHORC5.m (modified) (1 diff)

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

@@ -1 +1 @@
 FHORC5 ; HISC/REL - Consult Management ;4/12/06  13:26
- ;;5.5;DIETETICS;**4,12**;Jan 28, 2005;Build 3
- ; 10/17/2007 BP/KAM FH*5.5*12 Rem Call 210883 Remove Old Clinician Field (#1)
+ ;;5.5;DIETETICS;**4**;Jan 28, 2005;Build 32
 EN9 ; Enter/Edit Ward Assignments
  K DIC S (DIC,DIE)="^FH(119.6,",DIC(0)="AEQM"
  W ! D ^DIC G KIL:U[X!$D(DTOUT),EN9:Y<1 S OLD=$S($P(Y,"^",3):"",1:$P(^FH(119.6,+Y,0),"^",2))
- ; 10/17/2007 BP/KAM *12 Rem Call 210883 Removed field #1 in next line
- S DA=+Y,DR="112" D ^DIE S NEW=$P(^FH(119.6,DA,0),"^",2) I 'NEW!('OLD) K OLD,NEW,X,Y G EN9
+ S DA=+Y,DR="1;112" D ^DIE S NEW=$P(^FH(119.6,DA,0),"^",2) I 'NEW!('OLD) K OLD,NEW,X,Y G EN9
  D:OLD'=NEW EN2^FHORC4 K OLD,NEW,X,Y G EN9
 EN10 ; List Ward Assignments