| [613] | 1 | FHADR3 ; HISC/NCA - Facility Workload ;11/3/94 15:37
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | EN1 ; Enter/Edit Outpatients Visits
|
|---|
| 4 | D QR^FHADR1 G:'PRE KIL
|
|---|
| 5 | S OLD=$S($E(PRE,5)=1:$E(PRE,1,3)-1_"0400",1:$E(PRE,1,5)-1_"00")
|
|---|
| 6 | S (Z,ZZZ)=""
|
|---|
| 7 | K DIC,DIE W ! S DIE="^FH(117.3,",DA=PRE
|
|---|
| 8 | S DR="21;23;S:X'="""" ZZZ=X"
|
|---|
| 9 | L +^FH(117.3,PRE,0):0 I '$T W !?5,"Another user is editing the entry." G KIL
|
|---|
| 10 | D ^DIE K DR
|
|---|
| 11 | I ZZZ,$D(^FH(117.3,OLD,"CLIN",0)) D
|
|---|
| 12 | .I '$D(^FH(117.3,PRE,"CLIN",0)) D
|
|---|
| 13 | ..S ^FH(117.3,PRE,"CLIN",0)="^117.325^^",NDE=$G(^FH(117.3,PRE,"CLIN",0)),NDE=$P(NDE,"^",4)
|
|---|
| 14 | ..F LP=0:0 S LP=$O(^FH(117.3,OLD,"CLIN",LP)) Q:LP<1 S Z1=$G(^(LP,0)) D
|
|---|
| 15 | ...I Z1'="",'$D(^FH(117.3,PRE,"CLIN",LP,0)) S ^(0)=$P(Z1,"^",1),^FH(117.3,PRE,"CLIN","B",$P(Z1,"^",1),LP)="",NDE=NDE+1,$P(^FH(117.3,PRE,"CLIN",0),"^",3,4)=LP_"^"_NDE Q
|
|---|
| 16 | ..Q
|
|---|
| 17 | .Q
|
|---|
| 18 | S DR="I 'ZZZ S Y="""";25"
|
|---|
| 19 | S DR(2,117.325)=".01:1"
|
|---|
| 20 | D ^DIE L -^FH(117.3,PRE,0) K DIE,DR
|
|---|
| 21 | KIL G KILL^XUSCLEAN
|
|---|
