AZXAREF.m

AZXAREF ; IHS/PHXAO/TMJ - SET DISCOSURE VARIABLES ;

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

 ;

 ;   AZXARIEN=Disclosure ien

 ;   AZXARDATE=Disclosure date in internal FileMan form (.01 field)

 ;   AZXARNUMB=Disclosure number (.02 field)

 ;   AZXADFN=patient ien (.03 field)

 ;   AZXARTYPE=type of Disclosure (.04 field)

 ;   AZXAREC("PAT NAME")=patient name

 ;   AZXAREC("REF DATE")=Disclosure date in external form

 ;

START ;

 Q:'$G(Y)

 Q:$D(AZXAOVRPS)  ;override post selection variable

 S (AZXACHSCT,AZXARIEN,AZXARDATE,AZXARNUMB,AZXADFN,AZXARTYPE,AZXARIO,AZXAREC("PAT NAME"),AZXAREC("REF DATE"))=""

 Q:'$G(Y)

 Q:'$D(^AZXAREC(+Y,0))

 NEW X

 S AZXARIEN=+Y

 S X=^AZXAREC(AZXARIEN,0)

 S AZXARDATE=$P(X,U)

 S AZXARNUMB=$P(X,U,2)

 S AZXADFN=$P(X,U,3)

 S AZXARSTAT=$P(X,U,8)

 S AZXARTYPE=$P(X,U,4)

 ;S AZXARIO=$P(X,U,14)

 S:$G(AZXADFN) AZXAREC("PAT NAME")=$P(^DPT(AZXADFN,0),U)

 ;

 ;S AZXACHSCT=+$P($G(^AZXAREF(AZXARIEN,11)),U,15)

 ;

 NEW Y

 S Y=AZXARDATE

 D DD^%DT

 S AZXAREC("REF DATE")=Y

 Q

AZXAREF   ; IHS/PHXAO/TMJ - SET DISCOSURE VARIABLES ;

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

 +2       ;

 +3       ;   AZXARIEN=Disclosure ien

 +4       ;   AZXARDATE=Disclosure date in internal FileMan form (.01 field)

 +5       ;   AZXARNUMB=Disclosure number (.02 field)

 +6       ;   AZXADFN=patient ien (.03 field)

 +7       ;   AZXARTYPE=type of Disclosure (.04 field)

 +8       ;   AZXAREC("PAT NAME")=patient name

 +9       ;   AZXAREC("REF DATE")=Disclosure date in external form

 +10      ;

START     ;

 +1        IF '$GET(Y)

               QUIT 

 +2       ;override post selection variable

           IF $DATA(AZXAOVRPS)

               QUIT 

 +3        SET (AZXACHSCT,AZXARIEN,AZXARDATE,AZXARNUMB,AZXADFN,AZXARTYPE,AZXARIO,AZXAREC("PAT NAME"),AZXAREC("REF DATE"))=""

 +4        IF '$GET(Y)

               QUIT 

 +5        IF '$DATA(^AZXAREC(+Y,0))

               QUIT 

 +6        NEW X

 +7        SET AZXARIEN=+Y

 +8        SET X=^AZXAREC(AZXARIEN,0)

 +9        SET AZXARDATE=$PIECE(X,U)

 +10       SET AZXARNUMB=$PIECE(X,U,2)

 +11       SET AZXADFN=$PIECE(X,U,3)

 +12       SET AZXARSTAT=$PIECE(X,U,8)

 +13       SET AZXARTYPE=$PIECE(X,U,4)

 +14      ;S AZXARIO=$P(X,U,14)

 +15       IF $GET(AZXADFN)

               SET AZXAREC("PAT NAME")=$PIECE(^DPT(AZXADFN,0),U)

 +16      ;

 +17      ;S AZXACHSCT=+$P($G(^AZXAREF(AZXARIEN,11)),U,15)

 +18      ;

 +19       NEW Y

 +20       SET Y=AZXARDATE

 +21       DO DD^%DT

 +22       SET AZXAREC("REF DATE")=Y

 +23       QUIT