source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAREG3.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 664 bytes
Line 
1DVBAREG3 ;ALB/JLU;continuation of DVBAREG2 and DVBAREG1
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4DOC(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 ;
9PAT() ;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 ;
18SET1 ;sets more variables
19 S (ONFILE,REOPEN,ARROWOUT,OUT)=0
20 Q
21 ;
22SET2 ;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.