FHCTF.m

FHCTF ; HISC/REL - Clinician Tickler File ;2/13/95  14:21

 ;;5.5;DIETETICS;;Jan 28, 2005

EN1 ; Enter Personal item

 D NOW^%DTC S NOW=% K %

 S %DT="AEFXT",%DT("A")="Date/Time: " W ! D ^%DT G:Y<1 KIL S DAT=Y

 I DAT'>NOW W "  [ Date must be in Future ]" G EN1

E1 R !,"Comment: ",COM:DTIME G:'$T!(COM["^") KIL I COM'?.ANP W *7," ??" G E1

 I $L(COM)>60!(COM?1"?".E) W *7,!,"Enter 1-60 character comment" G E1

 S FHDUZ=DUZ,FHTF=DAT_"^X^"_COM D FILE^FHCTF2

KIL G KILL^XUSCLEAN

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FHCTF   480     printed  Apr 09, 2024@20:55:06                                                                                                                                                                                                        Page 2

FHCTF     ; HISC/REL - Clinician Tickler File ;2/13/95  14:21

 +1       ;;5.5;DIETETICS;;Jan 28, 2005

EN1       ; Enter Personal item

 +1        DO NOW^%DTC

           SET NOW=%

           KILL %

 +2        SET %DT="AEFXT"

           SET %DT("A")="Date/Time: "

           WRITE !

           DO ^%DT

           if Y<1

               GOTO KIL

           SET DAT=Y

 +3        IF DAT'>NOW

               WRITE "  [ Date must be in Future ]"

               GOTO EN1

E1         READ !,"Comment: ",COM:DTIME

           if '$TEST!(COM["^")

               GOTO KIL

           IF COM'?.ANP

               WRITE *7," ??"

               GOTO E1

 +1        IF $LENGTH(COM)>60!(COM?1"?".E)

               WRITE *7,!,"Enter 1-60 character comment"

               GOTO E1

 +2        SET FHDUZ=DUZ

           SET FHTF=DAT_"^X^"_COM

           DO FILE^FHCTF2

KIL        GOTO KILL^XUSCLEAN