|
Last change
on this file since 901 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
664 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
