AZXARD1.m

AZXARD1 ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED ;

 ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

START ;

 D GETREF

 Q:AZXAQ

 D BROWSE

 D XIT

 Q

 ;

GETREF ; GET REFERRAL

 S AZXAQ=1

 S DIC="^AZXAREF(",DIC(0)="AEMQ" D DIC^AZXAFMC

 Q:Y<0

 S AZXARIEN=+Y

 S AZXAQ=0

 Q

 ;

BROWSE ;

 S XBRP="DISP^AZXARD1"

 S XBRC="",XBRX="XIT^AZXARD1",XBIOP=0 D ^XBDBQUE

 ;D VIEWR^XBLM("^AZXAVLP")

 Q

XIT ;EP

 D ^AZXAKILL

 K ^TMP("AZXARDSP",$J)

 Q

DISP ;EP

 D EN^VALM("AZXA RECORD DISPLAY")

 D CLEAR^VALM1

 Q

HDR ; -- header code

 S VALMHDR(1)="User:  "_$P(^VA(200,DUZ,0),U)

 Q

 ;

INIT ; -- init variables and list array

 D EP^AZXARD(AZXARIEN)

 S VALMCNT=$O(^TMP("AZXARDSP",$J,""),-1)

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 Q

AZXARD1   ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED ;

 +1       ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

START     ;

 +1        DO GETREF

 +2        IF AZXAQ

               QUIT 

 +3        DO BROWSE

 +4        DO XIT

 +5        QUIT 

 +6       ;

GETREF    ; GET REFERRAL

 +1        SET AZXAQ=1

 +2        SET DIC="^AZXAREF("

           SET DIC(0)="AEMQ"

           DO DIC^AZXAFMC

 +3        IF Y<0

               QUIT 

 +4        SET AZXARIEN=+Y

 +5        SET AZXAQ=0

 +6        QUIT 

 +7       ;

BROWSE    ;

 +1        SET XBRP="DISP^AZXARD1"

 +2        SET XBRC=""

           SET XBRX="XIT^AZXARD1"

           SET XBIOP=0

           DO ^XBDBQUE

 +3       ;D VIEWR^XBLM("^AZXAVLP")

 +4        QUIT 

XIT       ;EP

 +1        DO ^AZXAKILL

 +2        KILL ^TMP("AZXARDSP",$JOB)

 +3        QUIT 

DISP      ;EP

 +1        DO EN^VALM("AZXA RECORD DISPLAY")

 +2        DO CLEAR^VALM1

 +3        QUIT 

HDR       ; -- header code

 +1        SET VALMHDR(1)="User:  "_$PIECE(^VA(200,DUZ,0),U)

 +2        QUIT 

 +3       ;

INIT      ; -- init variables and list array

 +1        DO EP^AZXARD(AZXARIEN)

 +2        SET VALMCNT=$ORDER(^TMP("AZXARDSP",$JOB,""),-1)

 +3        QUIT 

 +4       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        QUIT