Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
832 bytes
|
Line | |
---|
1 | SPNLGU ; ISC-SF/GMB - SCD LOCAL GATHER UTILITIES;11 MAY 94 [07/12/94]
|
---|
2 | ;;2.0;Spinal Cord Dysfunction;**24**;01/02/1997
|
---|
3 | TRANSLAT(Y,FILENUM,FIELDNUM) ; Translate set of codes to clear text meaning
|
---|
4 | N C
|
---|
5 | S C=$P(^DD(FILENUM,FIELDNUM,0),U,2)
|
---|
6 | D Y^DIQ
|
---|
7 | Q Y
|
---|
8 | STOPCODE(CLINIC) ; follow clinic ptr to hospital loc to stop code num
|
---|
9 | D SRAPI
|
---|
10 | Q $G(SPNSTPCD)
|
---|
11 | SRAPI ;
|
---|
12 | S SDARRAY(1)=FDATE_";"_TDATE
|
---|
13 | S SDARRAY(2)=+CLINIC
|
---|
14 | S SDARRAY(3)="R;I"
|
---|
15 | S SDARRAY("FLDS")=13
|
---|
16 | S SDDATE=$P(APPTINFO,U,1)
|
---|
17 | S SDCOUNT=$$SDAPI^SDAMA301(.SDARRAY)
|
---|
18 | I SDCOUNT<0 D
|
---|
19 | .I $D(^TMP($J,"SDAMA301",101)) W !!,"Database unavailable. Try later."
|
---|
20 | .I $D(^TMP($J,"SDAMA301",116)) W !!,"Pt doesn't exit in Vista system."
|
---|
21 | .Q
|
---|
22 | S SPNSTPCD=$P(^TMP($J,"SDAMA301",+CLINIC,DFN,SDDATE),U,13)
|
---|
23 | S SPNSTPCD=$P(SPNSTPCD,";",2)
|
---|
24 | I SDCOUNT'=0 K ^TMP($J,"SDAMA301")
|
---|
25 | K SDARRAY,SDCOUNT,SDDATE
|
---|
26 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.