Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHCTF2

FHCTF2.m

Go to the documentation of this file.
  1. FHCTF2 ; HISC/REL - Tickler File Utilities ;4/26/91 12:12
  1. ;;5.5;DIETETICS;**20**;Jan 28, 2005;Build 7
  1. FILE ; File Entry
  1. S %=$P(FHTF,"^",1) I $D(^FH(119,FHDUZ,"I")) G F1
  1. I '$D(^FH(119,FHDUZ)) S ^FH(119,FHDUZ,0)=FHDUZ,^FH(119,"B",FHDUZ,FHDUZ)=""
  1. S ^FH(119,FHDUZ,"I",0)="^119.01D^0^0"
  1. L +^FH(119,0):$S($G(DILOCKTM)>0:DILOCKTM,1:3) S FH3=$P(^FH(119,0),"^",3),FH4=$P(^FH(119,0),"^",4)
  1. I FHDUZ>FH3 S FH3=FHDUZ
  1. S FH4=FH4+1
  1. S $P(^FH(119,0),"^",3)=FH3,$P(^FH(119,0),"^",4)=FH4
  1. L -^FH(119,0)
  1. F1 I $D(^FH(119,FHDUZ,"I",%)) S %=%+.000001 G F1
  1. S ^FH(119,FHDUZ,"I",%,0)=FHTF K %,FHTF Q