source: FOIAVistA/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWKHELP.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 538 bytes
Line 
1SOWKHELP ;B'HAM ISC/SAB-Social Work help routine ; 12/20/91 9:12
2 ;;3.0; Social Work ;;27 Apr 93
3YN ;HELP FOR Y/N
4 W !!?5,"'Y' for Yes",!?5,"'N' for No"
5 Q
6MN 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
8QT ;PRINTS END OF QUARTER MONTHS
9 W @IOF,*7,!,"03 = MARCH",!,"06 = JUNE",!,"09 = SEPTEMBER",!,"12 = DECEMBER" Q
10MONTH ;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.