| [613] | 1 | FHCTF2 ; HISC/REL - Tickler File Utilities ;4/26/91 12:12
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | FILE ; File Entry
|
|---|
| 4 | S %=$P(FHTF,"^",1) I $D(^FH(119,FHDUZ,"I")) G F1
|
|---|
| 5 | I '$D(^FH(119,FHDUZ)) S ^FH(119,FHDUZ,0)=FHDUZ,^FH(119,"B",FHDUZ,FHDUZ)=""
|
|---|
| 6 | S ^FH(119,FHDUZ,"I",0)="^119.01D^0^0"
|
|---|
| 7 | L +^FH(119,0) S FH3=$P(^FH(119,0),"^",3),FH4=$P(^FH(119,0),"^",4)
|
|---|
| 8 | I FHDUZ>FH3 S FH3=FHDUZ
|
|---|
| 9 | S FH4=FH4+1
|
|---|
| 10 | S $P(^FH(119,0),"^",3)=FH3,$P(^FH(119,0),"^",4)=FH4
|
|---|
| 11 | L -^FH(119,0)
|
|---|
| 12 | F1 I $D(^FH(119,FHDUZ,"I",%)) S %=%+.000001 G F1
|
|---|
| 13 | S ^FH(119,FHDUZ,"I",%,0)=FHTF K %,FHTF Q
|
|---|
