source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRTA4.m@ 1704

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

initial load of FOIAVistA 6/30/08 version

File size: 603 bytes
Line 
1SPNPRTA4 ;WDE/HIRMFO/WAA- PRINT ADHOC FUNCTIONAL STATUS ; 8/29/02
2 ;;2.0;Spinal Cord Dysfunction;**14,19**;01/02/1997
3 ;;
4 ;This routines is to store ADHOC FUNCTIONAL STATUS into a file.
5 ; NEW MS REPORT LEAD IN ROUTINE
6EN1 ; Main Entry Point
7 N SPNLEXIT,SPNIO,SPNPAGE S SPNPAGE=1
8 S SPNLEXIT=0 D EN1^SPNPRTMT Q:SPNLEXIT ;Filters
9 D PRINT
10 D EXIT
11 Q
12EXIT ; Exit routine
13 K ^TMP($J,"SPN"),^TMP($J,"SPNPRT","AUTO"),^TMP($J,"SPNPRT","POST")
14 Q
15PRINT ; Print main Body
16 ;Called to build the menus for Self Reported Functional Measure
17 S SPNARPT=8
18 D ^SPNADF4 ; Adhoc Functional Status Generator FOR MS
19 Q
Note: See TracBrowser for help on using the repository browser.