SCMSPST.m

SCMSPST ;ALB/JRP - AMB CARE POST INIT DRIVER;04-JUN-1996

 ;;5.3;Scheduling;**44**;AUG 13, 1993

CHKPTS ;Create check points for pre-init

 ;Input  : All variables set by KIDS

 ;Output : None

 ;

 ;Declare variables

 N TMP,ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSK,SCQUEUE,X,Y,%,%H

 ;Queue task to require provider and diagnosis for checkout from clinics

 S TMP=$G(XPDQUES("POSHOPUP","B"))

 S:(TMP="") TMP="NOW"

 D BMES^XPDUTL("Background job to require provider and diagnosis for")

 D MES^XPDUTL("checkout from clinics will be queued for "_TMP)

 S ZTDTH=$G(XPDQUES("POSHOPUP"))

 S:(ZTDTH="") ZTDTH=$H

 S ZTDESC="REQUIRE PROVIDER AND DIAGNOSIS FOR CHECKOUT FROM CLINICS"

 S ZTIO=""

 S ZTRTN="HOPUP^SCMSP"

 D ^%ZTLOAD

 S ZTSK=+$G(ZTSK)

 S SCQUEUE="0000000"

 I ('ZTSK) D BMES^XPDUTL("*** Unable to queue task ***")

 I (ZTSK) D

 .D BMES^XPDUTL("Queued as task number "_ZTSK)

 .S %H=$G(ZTSK("D")) D YMD^%DTC S SCQUEUE=X_%

 ;Create check points

 ;Initialize parameters - pass Queue Time & Task Number

 S TMP=$$NEWCP^XPDUTL("SCMS01","PARAM^SCMSP",SCQUEUE_"-"_ZTSK)

 ;Attach mail group to Ambulatory Care xmit summary bulletin

 S TMP=$$NEWCP^XPDUTL("SCMS02","MG4BULL^SCMSP")

 ;Enable event driver

 S TMP=$$NEWCP^XPDUTL("SCMS03","FIXEVNT^SCMSP1")

 ;Fix server protocol

 S TMP=$$NEWCP^XPDUTL("SCMS04","FIXSRVR^SCMSP1")

 ;Fix client protocol

 S TMP=$$NEWCP^XPDUTL("SCMS05","FIXCLNT^SCMSP1")

 ;Install correct version of SDM routine

 S TMP=$$NEWCP^XPDUTL("SCMS06","SDM^SCMSP")

 ;Done

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCMSPST   1499     printed  Apr 09, 2024@21:55:22                                                                                                                                                                                                     Page 2

SCMSPST   ;ALB/JRP - AMB CARE POST INIT DRIVER;04-JUN-1996

 +1       ;;5.3;Scheduling;**44**;AUG 13, 1993

CHKPTS    ;Create check points for pre-init

 +1       ;Input  : All variables set by KIDS

 +2       ;Output : None

 +3       ;

 +4       ;Declare variables

 +5        NEW TMP,ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSK,SCQUEUE,X,Y,%,%H

 +6       ;Queue task to require provider and diagnosis for checkout from clinics

 +7        SET TMP=$GET(XPDQUES("POSHOPUP","B"))

 +8        if (TMP="")

               SET TMP="NOW"

 +9        DO BMES^XPDUTL("Background job to require provider and diagnosis for")

 +10       DO MES^XPDUTL("checkout from clinics will be queued for "_TMP)

 +11       SET ZTDTH=$GET(XPDQUES("POSHOPUP"))

 +12       if (ZTDTH="")

               SET ZTDTH=$HOROLOG

 +13       SET ZTDESC="REQUIRE PROVIDER AND DIAGNOSIS FOR CHECKOUT FROM CLINICS"

 +14       SET ZTIO=""

 +15       SET ZTRTN="HOPUP^SCMSP"

 +16       DO ^%ZTLOAD

 +17       SET ZTSK=+$GET(ZTSK)

 +18       SET SCQUEUE="0000000"

 +19       IF ('ZTSK)

               DO BMES^XPDUTL("*** Unable to queue task ***")

 +20       IF (ZTSK)

               Begin DoDot:1

 +21               DO BMES^XPDUTL("Queued as task number "_ZTSK)

 +22               SET %H=$GET(ZTSK("D"))

                   DO YMD^%DTC

                   SET SCQUEUE=X_%

               End DoDot:1

 +23      ;Create check points

 +24      ;Initialize parameters - pass Queue Time & Task Number

 +25       SET TMP=$$NEWCP^XPDUTL("SCMS01","PARAM^SCMSP",SCQUEUE_"-"_ZTSK)

 +26      ;Attach mail group to Ambulatory Care xmit summary bulletin

 +27       SET TMP=$$NEWCP^XPDUTL("SCMS02","MG4BULL^SCMSP")

 +28      ;Enable event driver

 +29       SET TMP=$$NEWCP^XPDUTL("SCMS03","FIXEVNT^SCMSP1")

 +30      ;Fix server protocol

 +31       SET TMP=$$NEWCP^XPDUTL("SCMS04","FIXSRVR^SCMSP1")

 +32      ;Fix client protocol

 +33       SET TMP=$$NEWCP^XPDUTL("SCMS05","FIXCLNT^SCMSP1")

 +34      ;Install correct version of SDM routine

 +35       SET TMP=$$NEWCP^XPDUTL("SCMS06","SDM^SCMSP")

 +36      ;Done

 +37       QUIT