|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
538 bytes
|
| Line | |
|---|
| 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.
