BMCAERR.m

BMCAERR ; IHS/PHXAO/TMJ - add/edit routine referral definition ;

 ;;4.0;REFERRED CARE INFO SYSTEM;**8**;JAN 09, 2006;Build 101

 ;

 ;

EN ;EP - called from option

 W:$D(IOF) @IOF

 W !!,"This option is used to add or edit a routine referral definition.  The user",!,"can enter all default values to be used when the routine referral is",!,"selected by the provider.",!!

LOOKUP ;get referral to edit or add new one

 S DIC="^BMCRTNRF(",DIC(0)="AEMQL",DIC("A")="Enter NAME of Routine Referral: " D DIC^BMCFMC

 I Y=-1 W !!,"No referral selected.  Bye.",! Q

 S BMCRREF=+Y

 ;

SM ;call screenman to edit

 S BMCSCOD="",BMCSTRM=""   ;BMC*4.0*8

 S BMCMODE="R",BMCSCOD=$P($G(^BMCRTNRF(BMCRREF,13)),U,3) S:BMCSCOD BMCSTRM=$P($$CONC^BSTSAPI(BMCSCOD_"^^^1"),U,2)  ;BMC*4.0*8

 S DDSFILE=90001.32,DA=BMCRREF,DR="[BMC ADD/EDIT ROUTINE REF DEF]",DDSPARM="C"

 D DDS^BMCFMC

 I $D(DIMSG) W !!,"ERROR IN SCREENMAN - NOTIFY PROGRAMMER!" D EOJ Q

 ;

 D VREF

ICD ;prompt for ICD/CPT codes, using DIE and input template

 W !!

 S DA=BMCRREF,DR="[BMC ADD/EDIT RTN REF DX/CPT]",DIE="^BMCRTNRF(" D DIE^BMCFMC

EOJ ;

 K BMCRREF

 D ^XBFMK

 Q

VREF ;EP FR BMCADD3 ;BMC*4.0*8 NEW SECTION TO SET V REF SNOMED CODE

 S DIE="^BMCRTNRF(",DA=BMCRREF

 S DR="1303////"_BMCSCOD

 D ^DIE

 Q

BMCAERR   ; IHS/PHXAO/TMJ - add/edit routine referral definition ;

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;**8**;JAN 09, 2006;Build 101

 +2       ;

 +3       ;

EN        ;EP - called from option

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !!,"This option is used to add or edit a routine referral definition.  The user",!,"can enter all default values to be used when the routine referral is",!,"selected by the provider.",!!

LOOKUP    ;get referral to edit or add new one

 +1        SET DIC="^BMCRTNRF("

           SET DIC(0)="AEMQL"

           SET DIC("A")="Enter NAME of Routine Referral: "

           DO DIC^BMCFMC

 +2        IF Y=-1

               WRITE !!,"No referral selected.  Bye.",!

               QUIT 

 +3        SET BMCRREF=+Y

 +4       ;

SM        ;call screenman to edit

 +1       ;BMC*4.0*8

           SET BMCSCOD=""

           SET BMCSTRM=""

 +2       ;BMC*4.0*8

           SET BMCMODE="R"

           SET BMCSCOD=$PIECE($GET(^BMCRTNRF(BMCRREF,13)),U,3)

           IF BMCSCOD

               SET BMCSTRM=$PIECE($$CONC^BSTSAPI(BMCSCOD_"^^^1"),U,2)

 +3        SET DDSFILE=90001.32

           SET DA=BMCRREF

           SET DR="[BMC ADD/EDIT ROUTINE REF DEF]"

           SET DDSPARM="C"

 +4        DO DDS^BMCFMC

 +5        IF $DATA(DIMSG)

               WRITE !!,"ERROR IN SCREENMAN - NOTIFY PROGRAMMER!"

               DO EOJ

               QUIT 

 +6       ;

 +7        DO VREF

ICD       ;prompt for ICD/CPT codes, using DIE and input template

 +1        WRITE !!

 +2        SET DA=BMCRREF

           SET DR="[BMC ADD/EDIT RTN REF DX/CPT]"

           SET DIE="^BMCRTNRF("

           DO DIE^BMCFMC

EOJ       ;

 +1        KILL BMCRREF

 +2        DO ^XBFMK

 +3        QUIT 

VREF      ;EP FR BMCADD3 ;BMC*4.0*8 NEW SECTION TO SET V REF SNOMED CODE

 +1        SET DIE="^BMCRTNRF("

           SET DA=BMCRREF

 +2        SET DR="1303////"_BMCSCOD

 +3        DO ^DIE

 +4        QUIT