- 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 Mar 13, 2025@20:51:58 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
