[613] | 1 | SPNLPDM0 ;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
|
---|
| 18 | TASK ;
|
---|
| 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
|
---|
| 26 | PRINT ;
|
---|
| 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
|
---|
| 34 | EXIT ;
|
---|
| 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
|
---|