source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLPDM0.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1SPNLPDM0 ;HISC/DAD-REGISTRY DUMP ;9/18/95 12:28
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3 ;
4 K ^TMP($J,"SPNLPDM"),^TMP($J,"SPNLPDM0")
5 S SPNDIC="^SPNL(154,",SPNDIC(0)="AEMNQZ"
6 S SPNDIC("A")="Select PATIENT: ",SPNUTIL="SPNLPDM0"
7 D ^SPNUTL0 I SPNQUIT G EXIT
8 ;
9 K %ZIS,IOP S %ZIS="QMN" W ! D ^%ZIS G:POP EXIT
10 S SPNLIOP=ION_";"_IOM
11 I $D(IO("Q")) D G EXIT
12 . S ZTRTN="TASK^SPNLPDM0"
13 . S ZTSAVE("SPNLIOP")=""
14 . S ZTSAVE("^TMP($J,""SPNLPDM0"",")=""
15 . S ZTDESC="SCD Registry Dump Report"
16 . D ^%ZTLOAD
17 . Q
18TASK ;
19 S SPNLNAME=""
20 F S SPNLNAME=$O(^TMP($J,"SPNLPDM0",SPNLNAME)) Q:SPNLNAME="" D
21 . S SPNLD0=0
22 . F S SPNLD0=$O(^TMP($J,"SPNLPDM0",SPNLNAME,SPNLD0)) Q:SPNLD0'>0 D
23 .. S ^TMP($J,"SPNLPDM",SPNLD0)=""
24 .. Q
25 . Q
26PRINT ;
27 S IOP=SPNLIOP
28 S DIC="^SPNL(154,"
29 S BY="#.01",BY(0)="^TMP($J,""SPNLPDM"","
30 S (FR,TO)=""
31 S L=0,L(0)=1
32 S FLDS="[SPNL REGISTRY DUMP]"
33 D EN1^DIP
34EXIT ;
35 D ^%ZISC
36 K %ZIS,BY,DIC,FLDS,FR,IOP,L,POP,SPNDIC,SPNLD0,SPNLIOP,SPNLNAME,SPNQUIT
37 K SPNUTIL,TO,ZTDESC,ZTRTN,ZTSAVE,^TMP($J,"SPNLPDM"),^TMP($J,"SPNLPDM0")
38 Q
Note: See TracBrowser for help on using the repository browser.