DVBAREG3.m

DVBAREG3 ;ALB/JLU;continuation of DVBAREG2 and DVBAREG1

 ;;2.7;AMIE;;Apr 10, 1995

 ;

DOC(ANS) ;returns a document type.

 ;the return will either be a "A" for admission or "L"

 S ANS=$S(^TMP("DVBA",$J,ANS)["ADMISSION":"A",1:"L")

 Q ANS

 ;

PAT() ;this is a function call to look up the patient

 N STOP

 S DIC="^DPT(",DIC(0)="AEMQZ",DIC("A")="Enter Patient name: "

 K DIC("W")

 D ^DIC

 I $D(DTOUT)!($D(DUOUT))!(X="") S STOP=0

 E  S STOP=Y

 Q STOP

 ;

SET1 ;sets more variables

 S (ONFILE,REOPEN,ARROWOUT,OUT)=0

 Q

 ;

SET2 ;sets the patient information variables

 S PNAM=$P(DFN,U,2),SSN=$P(^DPT(+DFN,0),U,9)

 S CNUM=$S($D(^DPT(+DFN,.31)):$P(^(.31),U,3),1:"Unknown")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBAREG3   689     printed  Mar 13, 2025@20:46:41                                                                                                                                                                                                     Page 2

DVBAREG3  ;ALB/JLU;continuation of DVBAREG2 and DVBAREG1

 +1       ;;2.7;AMIE;;Apr 10, 1995

 +2       ;

DOC(ANS)  ;returns a document type.

 +1       ;the return will either be a "A" for admission or "L"

 +2        SET ANS=$SELECT(^TMP("DVBA",$JOB,ANS)["ADMISSION":"A",1:"L")

 +3        QUIT ANS

 +4       ;

PAT()     ;this is a function call to look up the patient

 +1        NEW STOP

 +2        SET DIC="^DPT("

           SET DIC(0)="AEMQZ"

           SET DIC("A")="Enter Patient name: "

 +3        KILL DIC("W")

 +4        DO ^DIC

 +5        IF $DATA(DTOUT)!($DATA(DUOUT))!(X="")

               SET STOP=0

 +6       IF '$TEST

               SET STOP=Y

 +7        QUIT STOP

 +8       ;

SET1      ;sets more variables

 +1        SET (ONFILE,REOPEN,ARROWOUT,OUT)=0

 +2        QUIT 

 +3       ;

SET2      ;sets the patient information variables

 +1        SET PNAM=$PIECE(DFN,U,2)

           SET SSN=$PIECE(^DPT(+DFN,0),U,9)

 +2        SET CNUM=$SELECT($DATA(^DPT(+DFN,.31)):$PIECE(^(.31),U,3),1:"Unknown")

 +3        QUIT