Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
664 bytes
|
Line | |
---|
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.