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 ---[H[J[2J[HSCMSPST 1499 printed Nov 22, 2024@17:51:55 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
