Last change
on this file since 700 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.