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 ---[H[J[2J[HFHCTF 480 printed Dec 13, 2024@01:47:19 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
