Last change
on this file since 1211 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
538 bytes
|
Rev | Line | |
---|
[613] | 1 | SOWKHELP ;B'HAM ISC/SAB-Social Work help routine ; 12/20/91 9:12
|
---|
| 2 | ;;3.0; Social Work ;;27 Apr 93
|
---|
| 3 | YN ;HELP FOR Y/N
|
---|
| 4 | W !!?5,"'Y' for Yes",!?5,"'N' for No"
|
---|
| 5 | Q
|
---|
| 6 | MN W @IOF F C=1:1 S S=$T(MONTH+C) Q:S="" W !,$P(S,";",3)," = ",$P(S,";",4,99)
|
---|
| 7 | K C,S Q
|
---|
| 8 | QT ;PRINTS END OF QUARTER MONTHS
|
---|
| 9 | W @IOF,*7,!,"03 = MARCH",!,"06 = JUNE",!,"09 = SEPTEMBER",!,"12 = DECEMBER" Q
|
---|
| 10 | MONTH ;MONTHS FOR SWARS
|
---|
| 11 | ;;01;JANUARY
|
---|
| 12 | ;;02;FEBRUARY
|
---|
| 13 | ;;03;MARCH
|
---|
| 14 | ;;04;APRIL
|
---|
| 15 | ;;05;MAY
|
---|
| 16 | ;;06;JUNE
|
---|
| 17 | ;;07;JULY
|
---|
| 18 | ;;08;AUGUST
|
---|
| 19 | ;;09;SEPTEMBER
|
---|
| 20 | ;;10;OCTOBER
|
---|
| 21 | ;;11;NOVEMBER
|
---|
| 22 | ;;12;DECEMBER
|
---|
Note:
See
TracBrowser
for help on using the repository browser.