|
Last change
on this file since 785 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
470 bytes
|
| Line | |
|---|
| 1 | FHCTF ; HISC/REL - Clinician Tickler File ;2/13/95 14:21
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | EN1 ; Enter Personal item
|
|---|
| 4 | D NOW^%DTC S NOW=% K %
|
|---|
| 5 | S %DT="AEFXT",%DT("A")="Date/Time: " W ! D ^%DT G:Y<1 KIL S DAT=Y
|
|---|
| 6 | I DAT'>NOW W " [ Date must be in Future ]" G EN1
|
|---|
| 7 | E1 R !,"Comment: ",COM:DTIME G:'$T!(COM["^") KIL I COM'?.ANP W *7," ??" G E1
|
|---|
| 8 | I $L(COM)>60!(COM?1"?".E) W *7,!,"Enter 1-60 character comment" G E1
|
|---|
| 9 | S FHDUZ=DUZ,FHTF=DAT_"^X^"_COM D FILE^FHCTF2
|
|---|
| 10 | KIL G KILL^XUSCLEAN
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
