| 1 | SCMSPST ;ALB/JRP - AMB CARE POST INIT DRIVER;04-JUN-1996
|
|---|
| 2 | ;;5.3;Scheduling;**44**;AUG 13, 1993
|
|---|
| 3 | CHKPTS ;Create check points for pre-init
|
|---|
| 4 | ;Input : All variables set by KIDS
|
|---|
| 5 | ;Output : None
|
|---|
| 6 | ;
|
|---|
| 7 | ;Declare variables
|
|---|
| 8 | N TMP,ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSK,SCQUEUE,X,Y,%,%H
|
|---|
| 9 | ;Queue task to require provider and diagnosis for checkout from clinics
|
|---|
| 10 | S TMP=$G(XPDQUES("POSHOPUP","B"))
|
|---|
| 11 | S:(TMP="") TMP="NOW"
|
|---|
| 12 | D BMES^XPDUTL("Background job to require provider and diagnosis for")
|
|---|
| 13 | D MES^XPDUTL("checkout from clinics will be queued for "_TMP)
|
|---|
| 14 | S ZTDTH=$G(XPDQUES("POSHOPUP"))
|
|---|
| 15 | S:(ZTDTH="") ZTDTH=$H
|
|---|
| 16 | S ZTDESC="REQUIRE PROVIDER AND DIAGNOSIS FOR CHECKOUT FROM CLINICS"
|
|---|
| 17 | S ZTIO=""
|
|---|
| 18 | S ZTRTN="HOPUP^SCMSP"
|
|---|
| 19 | D ^%ZTLOAD
|
|---|
| 20 | S ZTSK=+$G(ZTSK)
|
|---|
| 21 | S SCQUEUE="0000000"
|
|---|
| 22 | I ('ZTSK) D BMES^XPDUTL("*** Unable to queue task ***")
|
|---|
| 23 | I (ZTSK) D
|
|---|
| 24 | .D BMES^XPDUTL("Queued as task number "_ZTSK)
|
|---|
| 25 | .S %H=$G(ZTSK("D")) D YMD^%DTC S SCQUEUE=X_%
|
|---|
| 26 | ;Create check points
|
|---|
| 27 | ;Initialize parameters - pass Queue Time & Task Number
|
|---|
| 28 | S TMP=$$NEWCP^XPDUTL("SCMS01","PARAM^SCMSP",SCQUEUE_"-"_ZTSK)
|
|---|
| 29 | ;Attach mail group to Ambulatory Care xmit summary bulletin
|
|---|
| 30 | S TMP=$$NEWCP^XPDUTL("SCMS02","MG4BULL^SCMSP")
|
|---|
| 31 | ;Enable event driver
|
|---|
| 32 | S TMP=$$NEWCP^XPDUTL("SCMS03","FIXEVNT^SCMSP1")
|
|---|
| 33 | ;Fix server protocol
|
|---|
| 34 | S TMP=$$NEWCP^XPDUTL("SCMS04","FIXSRVR^SCMSP1")
|
|---|
| 35 | ;Fix client protocol
|
|---|
| 36 | S TMP=$$NEWCP^XPDUTL("SCMS05","FIXCLNT^SCMSP1")
|
|---|
| 37 | ;Install correct version of SDM routine
|
|---|
| 38 | S TMP=$$NEWCP^XPDUTL("SCMS06","SDM^SCMSP")
|
|---|
| 39 | ;Done
|
|---|
| 40 | Q
|
|---|
