Routine: BSDX32

BSDX32 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

ERROR ;

 D ERR("RPMS Error")

ERR(BSDXERR) ;Error processing

 S BSDXI=BSDXI+1

 S ^BSDXTMP($J,BSDXI)=$C(31)

HOSPLOCD(BSDXY) ;EP Debugging entry point

 ;D DEBUG^%Serenji("HOSPLOC^BSDX32(.BSDXY)")

HOSPLOC(BSDXY) ;EP

 ;Called by BSDX HOSPITAL LOCATION

 N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD

 D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP")

 K ^BSDXTMP($J)

 S BSDXY="^BSDXTMP("_$J_")"

 S BSDXI=0

 ;"SELECT BSDXIEN 'HOSPITAL_LOCATION_ID', NAME 'HOSPITAL_LOCATION', DEFAULT_PROVIDER, STOP_CODE_NUMBER, INACTIVATE_DATE, REACTIVATE_DATE FROM HOSPITAL_LOCATION";

 S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030DEFAULT_PROVIDER^T00030STOP_CODE_NUMBER^D00020INACTIVATE_DATE^D00020REACTIVATE_DATE"_$C(30)

 S BSDXNAM="" F  S BSDXNAM=$O(^SC("B",BSDXNAM)) Q:BSDXNAM=""  D

 . S BSDXIEN=$O(^SC("B",BSDXNAM,0))

 . Q:'+BSDXIEN>0

 . Q:'$D(^SC(+BSDXIEN,0))

 . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE

 . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE

 . I BSDXINA]""&(BSDXREA="") Q  ;Clinic is inactivated and has no reactivate date

 . S BSDXNOD=^SC(BSDXIEN,0)

 . S BSDXNAM=$P(BSDXNOD,U)

 . S BSDXSCOD=$$GET1^DIQ(44,BSDXIEN_",",8) ;STOP CODE

 . ;Calculate default provider

 . S BSDXPRV=""

 . I $D(^SC(BSDXIEN,"PR")) D

 . . S BSDXIEN1=0 F  S BSDXIEN1=$O(^SC(BSDXIEN,"PR",BSDXIEN1)) Q:'+BSDXIEN1  Q:BSDXPRV]""  D

 . . . S BSDXNOD1=$G(^SC(BSDXIEN,"PR",BSDXIEN1,0))

 . . . S:$P(BSDXNOD1,U,2)="1" BSDXPRV=$$GET1^DIQ(200,$P(BSDXNOD1,U),.01)

 . . . Q

 . . Q

 . S BSDXI=BSDXI+1

 . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_$C(30)

. Q

 S BSDXI=BSDXI+1

 S ^BSDXTMP($J,BSDXI)=$C(31)

CLNSETD(BSDXY) ;EP Debugging entry point

 ;D DEBUG^%Serenji("CLNSET^BSDX32(.BSDXY)")

CLNSET(BSDXY) ;EP

 ;Called by BSDX CLINIC SETUP

 ;Returns CLINIC SETUP file entries for clinics which

 ;are active in ^SC

 N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA

 N BSDXCRV,BSDXVSC,BSDXMULT,BSDXREQ,BSDXPCC

 D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP")

 K ^BSDXTMP($J)

 S BSDXY="^BSDXTMP("_$J_")"

 S BSDXI=0

 ;SELECT BMXIEN 'HOSPITAL_LOCATION_ID', CLINIC_NAME 'HOSPITAL_LOCATION', CREATE_VISIT_AT_CHECK-IN? 'CREATE_VISIT', VISIT_SERVICE_CATEGORY,  MULTIPLE_CLINIC_CODES_USED?, VISIT_PROVIDER_REQUIRED,

 ;GENERATE_PCCPLUS_FORMS? FROM CLINIC_SETUP_PARAMETERS

 S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030CREATE_VISIT^T00030VISIT_SERVICE_CATEGORY^T00030MULTIPLE_CLINIC_CODES_USED?^T00030VISIT_PROVIDER_REQUIRED^T00030GENERATE_PCCPLUS_FORMS?^T00030MAX_OVERBOOKS"_$C(30)

 S BSDXIEN=0 F  S BSDXIEN=$O(^BSDSC(BSDXIEN)) Q:'+BSDXIEN  D

 . Q:'$D(^SC(+BSDXIEN,0))

 . Q:'$D(^BSDSC(+BSDXIEN,0))

 . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE

 . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE

 . I BSDXINA]""&(BSDXREA="") Q  ;Clinic is inactivated and has no reactivate date

 . S BSDXNOD=^BSDSC(BSDXIEN,0)

 . S BSDXNAM=$$GET1^DIQ(44,BSDXIEN_",",.01)

 . S BSDXMOB=$$GET1^DIQ(44,BSDXIEN_",",1918)

 . S BSDXCRV=$$GET1^DIQ(9009017.2,BSDXIEN_",",.09)

 . S BSDXVSC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.12)

 . S BSDXMULT=$$GET1^DIQ(9009017.2,BSDXIEN_",",.13)

 . S BSDXREQ=$$GET1^DIQ(9009017.2,BSDXIEN_",",.14)

 . S BSDXPCC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.15)

 . S BSDXI=BSDXI+1

 . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXCRV_U_BSDXVSC_U_BSDXMULT_U_BSDXREQ_U_BSDXPCC_U_BSDXMOB_$C(30)

. Q

 S BSDXI=BSDXI+1

 S ^BSDXTMP($J,BSDXI)=$C(31)

BSDX32    ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 +1       ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

 +2       ;

 +3       ;

ERROR     ;

 +1        DO ERR("RPMS Error")

 +2        QUIT

 +3       ;

ERR(BSDXERR) ;Error processing

 +1        SET BSDXI=BSDXI+1

 +2        SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)

 +3        QUIT

 +4       ;

HOSPLOCD(BSDXY) ;EP Debugging entry point

 +1       ;

 +2       ;D DEBUG^%Serenji("HOSPLOC^BSDX32(.BSDXY)")

 +3       ;

 +4        QUIT

 +5       ;

HOSPLOC(BSDXY) ;EP

 +1       ;Called by BSDX HOSPITAL LOCATION

 +2       ;

 +3        NEW BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD

 +4        DO ^XBKVAR

           SET X="ERROR^BSDX32"

           SET @^%ZOSF("TRAP")

 +5        KILL ^BSDXTMP($JOB)

 +6        SET BSDXY="^BSDXTMP("_$JOB_")"

 +7        SET BSDXI=0

 +8       ;"SELECT BSDXIEN 'HOSPITAL_LOCATION_ID', NAME 'HOSPITAL_LOCATION', DEFAULT_PROVIDER, STOP_CODE_NUMBER, INACTIVATE_DATE, REACTIVATE_DATE FROM HOSPITAL_LOCATION";

 +9        SET ^BSDXTMP($JOB,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030DEFAULT_PROVIDER^T00030STOP_CODE_NUMBER^D00020INACTIVATE_DATE^D00020REACTIVATE_DATE"_$CHAR(30)

 +10      ;

 +11       SET BSDXNAM=""

FOR

               SET BSDXNAM=$ORDER(^SC("B",BSDXNAM))

               IF BSDXNAM=""

                   QUIT

               Begin DoDot:1

 +12               SET BSDXIEN=$ORDER(^SC("B",BSDXNAM,0))

 +13               IF '+BSDXIEN>0

                       QUIT

 +14               IF '$DATA(^SC(+BSDXIEN,0))

                       QUIT

 +15      ;INACTIVATE

                   SET BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505)

 +16      ;REACTIVATE

                   SET BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506)

 +17      ;Clinic is inactivated and has no reactivate date

                   IF BSDXINA]""&(BSDXREA="")

                       QUIT

 +18               SET BSDXNOD=^SC(BSDXIEN,0)

 +19               SET BSDXNAM=$PIECE(BSDXNOD,U)

 +20      ;STOP CODE

                   SET BSDXSCOD=$$GET1^DIQ(44,BSDXIEN_",",8)

 +21      ;Calculate default provider

 +22               SET BSDXPRV=""

 +23               IF $DATA(^SC(BSDXIEN,"PR"))

                       Begin DoDot:2

 +24                       SET BSDXIEN1=0

FOR

                               SET BSDXIEN1=$ORDER(^SC(BSDXIEN,"PR",BSDXIEN1))

                               IF '+BSDXIEN1

                                   QUIT

                               IF BSDXPRV]""

                                   QUIT

                               Begin DoDot:3

 +25                               SET BSDXNOD1=$GET(^SC(BSDXIEN,"PR",BSDXIEN1,0))

 +26                               IF $PIECE(BSDXNOD1,U,2)="1"

                                       SET BSDXPRV=$$GET1^DIQ(200,$PIECE(BSDXNOD1,U),.01)

 +27                               QUIT

                               End DoDot:3

 +28                       QUIT

                       End DoDot:2

 +29               SET BSDXI=BSDXI+1

 +30               SET ^BSDXTMP($JOB,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_$CHAR(30)

 +31               QUIT

               End DoDot:1

 +32       SET BSDXI=BSDXI+1

 +33       SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)

 +34       QUIT

 +35      ;

CLNSETD(BSDXY) ;EP Debugging entry point

 +1       ;

 +2       ;D DEBUG^%Serenji("CLNSET^BSDX32(.BSDXY)")

 +3       ;

 +4        QUIT

 +5       ;

CLNSET(BSDXY) ;EP

 +1       ;Called by BSDX CLINIC SETUP

 +2       ;Returns CLINIC SETUP file entries for clinics which

 +3       ;are active in ^SC

 +4        NEW BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA

 +5        NEW BSDXCRV,BSDXVSC,BSDXMULT,BSDXREQ,BSDXPCC

 +6        DO ^XBKVAR

           SET X="ERROR^BSDX32"

           SET @^%ZOSF("TRAP")

 +7        KILL ^BSDXTMP($JOB)

 +8        SET BSDXY="^BSDXTMP("_$JOB_")"

 +9        SET BSDXI=0

 +10      ;SELECT BMXIEN 'HOSPITAL_LOCATION_ID', CLINIC_NAME 'HOSPITAL_LOCATION', CREATE_VISIT_AT_CHECK-IN? 'CREATE_VISIT', VISIT_SERVICE_CATEGORY,  MULTIPLE_CLINIC_CODES_USED?, VISIT_PROVIDER_REQUIRED,

 +11      ;GENERATE_PCCPLUS_FORMS? FROM CLINIC_SETUP_PARAMETERS

 +12       SET ^BSDXTMP($JOB,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030CREATE_VISIT^T00030VISIT_SERVICE_CATEGORY^T00030MULTIPLE_CLINIC_CODES_USED?^T00030VISIT_PROVIDER_REQUIRED^T00030GENERATE_PCCPLUS_FORMS?^T00030MAX_OVERBOOKS"_$CHA

R(30)

 +13      ;

 +14       SET BSDXIEN=0

FOR

               SET BSDXIEN=$ORDER(^BSDSC(BSDXIEN))

               IF '+BSDXIEN

                   QUIT

               Begin DoDot:1

 +15               IF '$DATA(^SC(+BSDXIEN,0))

                       QUIT

 +16               IF '$DATA(^BSDSC(+BSDXIEN,0))

                       QUIT

 +17      ;INACTIVATE

                   SET BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505)

 +18      ;REACTIVATE

                   SET BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506)

 +19      ;Clinic is inactivated and has no reactivate date

                   IF BSDXINA]""&(BSDXREA="")

                       QUIT

 +20               SET BSDXNOD=^BSDSC(BSDXIEN,0)

 +21               SET BSDXNAM=$$GET1^DIQ(44,BSDXIEN_",",.01)

 +22               SET BSDXMOB=$$GET1^DIQ(44,BSDXIEN_",",1918)

 +23               SET BSDXCRV=$$GET1^DIQ(9009017.2,BSDXIEN_",",.09)

 +24               SET BSDXVSC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.12)

 +25               SET BSDXMULT=$$GET1^DIQ(9009017.2,BSDXIEN_",",.13)

 +26               SET BSDXREQ=$$GET1^DIQ(9009017.2,BSDXIEN_",",.14)

 +27               SET BSDXPCC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.15)

 +28               SET BSDXI=BSDXI+1

 +29               SET ^BSDXTMP($JOB,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXCRV_U_BSDXVSC_U_BSDXMULT_U_BSDXREQ_U_BSDXPCC_U_BSDXMOB_$CHAR(30)

 +30               QUIT

               End DoDot:1

 +31       SET BSDXI=BSDXI+1

 +32       SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)

 +33       QUIT

BSDX32.m