BMCPOST.m

BMCPOST ; IHS/PHXAO/TMJ - NEW INSTALLS POST ;   

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

 ;5.28.04 IHS/ITSC/FCJ UPDATED BY REMOVING INVALID COMMENTS

 ;        AND XREF REINDEX

 ;

START ; ENTRY POINT

 W !!,"Installing Taxonomies..." D ^BMCTX

 K ^TMP($J)

 W !!,"Installing 4 Mail Groups..." D ^BMCPOST1

 W !!,"Adding Mail Group Entries to Bulletins..." D ^BMCPOST2

 D PROV

 D VENDOR

 ;Site Parm Message

 W !!,"This is a first time install, be sure to populate the Site Paramters",!

 Q

 ;

PROV ;Message to Site Manager - Locum Tenum Physician Entry

 ;

 S DA=$O(^VA(200,"B","LOCUM,TENUM CONTRACT",""))

 I DA W !,"LOCUM,TENUM CONTRACT Entry Exists",!

 I 'DA D

 .W !,"Message to Site Manager--",!!,"Add the following new Provider",!

 .W !,"Name = LOCUM,TENUM CONTRACT"

 .W !,"Provider Class = PHYSICIAN"

 .W !,"Code = 998"

 .W !,"Affiliation = CONTRACT"

 .W !,"Initials = LTC"

 .W !!,"The Referred Care Package requires this Provider entry.",!!

 Q

 ;

VENDOR ;Message to Site Manager - UNSPECIFIED Vendor Entry

 ;

 S DA=$O(^AUTTVNDR("B","UNSPECIFIED",""))

 I DA W !,"UNSPECIFIED Vendor Entry Exists",!

 I 'DA D

 .W !,"Message to Site Manager--",!!,"Add the following new Vendor",!

 .W !,"Name = UNSPECIFIED"

 .W !,"Vendor Type = 16"

 .W !,"Mnemonic = UN"

 .W !,"EIN No. = 2999999999"

 .W !!,"The Referred Care Package requires this Vendor entry.",!!

 Q

BMCPOST   ; IHS/PHXAO/TMJ - NEW INSTALLS POST ;   

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

 +2       ;5.28.04 IHS/ITSC/FCJ UPDATED BY REMOVING INVALID COMMENTS

 +3       ;        AND XREF REINDEX

 +4       ;

START     ; ENTRY POINT

 +1        WRITE !!,"Installing Taxonomies..."

           DO ^BMCTX

 +2        KILL ^TMP($JOB)

 +3        WRITE !!,"Installing 4 Mail Groups..."

           DO ^BMCPOST1

 +4        WRITE !!,"Adding Mail Group Entries to Bulletins..."

           DO ^BMCPOST2

 +5        DO PROV

 +6        DO VENDOR

 +7       ;Site Parm Message

 +8        WRITE !!,"This is a first time install, be sure to populate the Site Paramters",!

 +9        QUIT 

 +10      ;

PROV      ;Message to Site Manager - Locum Tenum Physician Entry

 +1       ;

 +2        SET DA=$ORDER(^VA(200,"B","LOCUM,TENUM CONTRACT",""))

 +3        IF DA

               WRITE !,"LOCUM,TENUM CONTRACT Entry Exists",!

 +4        IF 'DA

               Begin DoDot:1

 +5                WRITE !,"Message to Site Manager--",!!,"Add the following new Provider",!

 +6                WRITE !,"Name = LOCUM,TENUM CONTRACT"

 +7                WRITE !,"Provider Class = PHYSICIAN"

 +8                WRITE !,"Code = 998"

 +9                WRITE !,"Affiliation = CONTRACT"

 +10               WRITE !,"Initials = LTC"

 +11               WRITE !!,"The Referred Care Package requires this Provider entry.",!!

               End DoDot:1

 +12       QUIT 

 +13      ;

VENDOR    ;Message to Site Manager - UNSPECIFIED Vendor Entry

 +1       ;

 +2        SET DA=$ORDER(^AUTTVNDR("B","UNSPECIFIED",""))

 +3        IF DA

               WRITE !,"UNSPECIFIED Vendor Entry Exists",!

 +4        IF 'DA

               Begin DoDot:1

 +5                WRITE !,"Message to Site Manager--",!!,"Add the following new Vendor",!

 +6                WRITE !,"Name = UNSPECIFIED"

 +7                WRITE !,"Vendor Type = 16"

 +8                WRITE !,"Mnemonic = UN"

 +9                WRITE !,"EIN No. = 2999999999"

 +10               WRITE !!,"The Referred Care Package requires this Vendor entry.",!!

               End DoDot:1

 +11       QUIT