Last change
on this file since 1606 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
664 bytes
|
Rev | Line | |
---|
[628] | 1 | DVBAREG3 ;ALB/JLU;continuation of DVBAREG2 and DVBAREG1
|
---|
| 2 | ;;2.7;AMIE;;Apr 10, 1995
|
---|
| 3 | ;
|
---|
| 4 | DOC(ANS) ;returns a document type.
|
---|
| 5 | ;the return will either be a "A" for admission or "L"
|
---|
| 6 | S ANS=$S(^TMP("DVBA",$J,ANS)["ADMISSION":"A",1:"L")
|
---|
| 7 | Q ANS
|
---|
| 8 | ;
|
---|
| 9 | PAT() ;this is a function call to look up the patient
|
---|
| 10 | N STOP
|
---|
| 11 | S DIC="^DPT(",DIC(0)="AEMQZ",DIC("A")="Enter Patient name: "
|
---|
| 12 | K DIC("W")
|
---|
| 13 | D ^DIC
|
---|
| 14 | I $D(DTOUT)!($D(DUOUT))!(X="") S STOP=0
|
---|
| 15 | E S STOP=Y
|
---|
| 16 | Q STOP
|
---|
| 17 | ;
|
---|
| 18 | SET1 ;sets more variables
|
---|
| 19 | S (ONFILE,REOPEN,ARROWOUT,OUT)=0
|
---|
| 20 | Q
|
---|
| 21 | ;
|
---|
| 22 | SET2 ;sets the patient information variables
|
---|
| 23 | S PNAM=$P(DFN,U,2),SSN=$P(^DPT(+DFN,0),U,9)
|
---|
| 24 | S CNUM=$S($D(^DPT(+DFN,.31)):$P(^(.31),U,3),1:"Unknown")
|
---|
| 25 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.