source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHCTF2.m@ 1005

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

initial load of WorldVistAEHR

File size: 537 bytes
Line 
1FHCTF2 ; HISC/REL - Tickler File Utilities ;4/26/91 12:12
2 ;;5.5;DIETETICS;;Jan 28, 2005
3FILE ; 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)
12F1 I $D(^FH(119,FHDUZ,"I",%)) S %=%+.000001 G F1
13 S ^FH(119,FHDUZ,"I",%,0)=FHTF K %,FHTF Q
Note: See TracBrowser for help on using the repository browser.