BMCFAHC.m

BMCFAHC ; IHS/PHXAO/TMJ - PRINT REFERRAL FORM ;  

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 ;

 ;

START ;

 W:$D(IOF) @IOF

 W "**********  ARIZONA HEALTH CARE COST CONTAINMENT SYSTEM FORM PRINT  **********",!!

 W "This report will produce a hard copy computer generated AHCCCS form.",!!

GETREF ;get referral entry

 S BMCREF=""

 S DIC="^BMCREF(",DIC(0)="AEMQ",DIC("A")="Select Referral by Patient Name, date of referral or referral #: " D ^DIC K DA,DIC

 G:Y=-1 XIT

 S BMCREF=+Y

ZIS ;

 W !! S XBRC="COMP^BMCFAHC",XBRP="PRINT^BMCFAHC1",XBNS="BMC",XBRX="XIT^BMCFAHC"

 D ^XBDBQUE

 Q

XIT ;

 K BMCREF,BMCCHSR,BMCCMT

 Q

COMP ;

 S BMCFTYPE=2

 Q

BMCFAHC   ; IHS/PHXAO/TMJ - PRINT REFERRAL FORM ;  

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;

 +3       ;

START     ;

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE "**********  ARIZONA HEALTH CARE COST CONTAINMENT SYSTEM FORM PRINT  **********",!!

 +3        WRITE "This report will produce a hard copy computer generated AHCCCS form.",!!

GETREF    ;get referral entry

 +1        SET BMCREF=""

 +2        SET DIC="^BMCREF("

           SET DIC(0)="AEMQ"

           SET DIC("A")="Select Referral by Patient Name, date of referral or referral #: "

           DO ^DIC

           KILL DA,DIC

 +3        IF Y=-1

               GOTO XIT

 +4        SET BMCREF=+Y

ZIS       ;

 +1        WRITE !!

           SET XBRC="COMP^BMCFAHC"

           SET XBRP="PRINT^BMCFAHC1"

           SET XBNS="BMC"

           SET XBRX="XIT^BMCFAHC"

 +2        DO ^XBDBQUE

 +3        QUIT 

XIT       ;

 +1        KILL BMCREF,BMCCHSR,BMCCMT

 +2        QUIT 

COMP      ;

 +1        SET BMCFTYPE=2

 +2        QUIT