SD53105C ;ALB/JRP - BULLETINS FOR PATCH 105;12-MAR-1997
;;5.3;Scheduling;**105,132**;Aug 13, 1993
;
BULL1 ;Generate/send completion bulletin for cleanup #1 (see EN^SD53105A)
;
;Input : ^TMP($J,"SD53105A") defined as follows
; ^("XMIT") = Total Checked
; ^ Total deleted because of bad Encounter ptr
; ^ Total deleted because of bad Del Enc ptr
; ^ Total marked for retransmission
; ^("DEL") = Total Checked ^ Total Deleted
; ^("ERR") = Total Checked ^ Total Deleted
; ^("TIME") = Start (FM) ^ End (FM)
; ^("STOP") = Task asked to stop (1/0)
;Output : None
;Notes : Existance of ^TMP($J,"SD53105A") is assumed
;
;Declare varibales
N XMB,XMTEXT,XMY,XMDUZ,XMZ,NODE,LINE
;Initialize bulletin space
K ^TMP($J,"SD53105-BULL1")
S LINE=1
;Asked to stop
I (^TMP($J,"SD53105A","STOP")) D
.S ^TMP($J,"SD53105-BULL1",LINE)="*** Note that process was asked to stop and did not run to completion ***"
.S ^TMP($J,"SD53105-BULL1",(LINE+1))=" "
.S LINE=LINE+2
;Time summary
S NODE=^TMP($J,"SD53105A","TIME")
S ^TMP($J,"SD53105-BULL1",LINE)="Process began on "_$$FMTE^XLFDT($P(NODE,"^",1))_" and completed on "_$$FMTE^XLFDT($P(NODE,"^",2))
S ^TMP($J,"SD53105-BULL1",(LINE+1))=" "
S LINE=LINE+2
;Transmitted Outpatient Encounter file summary
S NODE=^TMP($J,"SD53105A","XMIT")
S ^TMP($J,"SD53105-BULL1",LINE)="A total of "_(+$P(NODE,"^",1))_" entries in the Transmitted Outpatient Encounter file were"
S ^TMP($J,"SD53105-BULL1",(LINE+1))="checked and "_(+$P(NODE,"^",2))_" of them were deleted because of bad pointers to the"
S ^TMP($J,"SD53105-BULL1",(LINE+2))="Outpatient Encounter file and "_(+$P(NODE,"^",3))_" of them were deleted because of bad"
S ^TMP($J,"SD53105-BULL1",(LINE+3))="pointers to the Deleted Outpatient Encounter file. In addition to this,"
S ^TMP($J,"SD53105-BULL1",(LINE+4))=(+$P(NODE,"^",4))_" entries were marked for re-transmission because they were rejected and"
S ^TMP($J,"SD53105-BULL1",(LINE+5))="did not contain a reason for rejection in the Transmitted Outpatient"
S ^TMP($J,"SD53105-BULL1",(LINE+6))="Encounter Error file."
S ^TMP($J,"SD53105-BULL1",(LINE+7))=" "
S LINE=LINE+8
;Deleted Outpatient Encounter file summary
S NODE=^TMP($J,"SD53105A","DEL")
S ^TMP($J,"SD53105-BULL1",LINE)="A total of "_(+$P(NODE,"^",1))_" entries in the Deleted Outpatient Encounter file were"
S ^TMP($J,"SD53105-BULL1",(LINE+1))="checked and "_(+$P(NODE,"^",2))_" of them were deleted because an associated entry in the"
S ^TMP($J,"SD53105-BULL1",(LINE+2))="Transmitted Outpatient Encounter file could not be found."
S ^TMP($J,"SD53105-BULL1",(LINE+3))=" "
S LINE=LINE+4
;Transmitted Outpatient Encounter Error file summary
S NODE=^TMP($J,"SD53105A","ERR")
S ^TMP($J,"SD53105-BULL1",LINE)="A total of "_(+$P(NODE,"^",1))_" entries in the Transmitted Outpatient Encounter Error file"
S ^TMP($J,"SD53105-BULL1",(LINE+1))="were checked and "_(+$P(NODE,"^",2))_" of them were deleted because of bad pointers to the"
S ^TMP($J,"SD53105-BULL1",(LINE+2))="Transmitted Outpatient Encounter file."
S ^TMP($J,"SD53105-BULL1",(LINE+3))=" "
S LINE=LINE+4
;Send completion bulletin
S XMB="SCDX AMBCARE TO NPCDB SUMMARY"
S XMB(1)="ACRP cleanup of files 409.73, 409.74, and 409.75"
S XMTEXT="^TMP($J,""SD53105-BULL1"","
S XMY(DUZ)=""
S XMDUZ="ACRP - SD*5.3*105"
D ^XMB
;Done - clean up and quit
K ^TMP($J,"SD53105-BULL1")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53105C 3559 printed Dec 13, 2024@02:44:45 Page 2
SD53105C ;ALB/JRP - BULLETINS FOR PATCH 105;12-MAR-1997
+1 ;;5.3;Scheduling;**105,132**;Aug 13, 1993
+2 ;
BULL1 ;Generate/send completion bulletin for cleanup #1 (see EN^SD53105A)
+1 ;
+2 ;Input : ^TMP($J,"SD53105A") defined as follows
+3 ; ^("XMIT") = Total Checked
+4 ; ^ Total deleted because of bad Encounter ptr
+5 ; ^ Total deleted because of bad Del Enc ptr
+6 ; ^ Total marked for retransmission
+7 ; ^("DEL") = Total Checked ^ Total Deleted
+8 ; ^("ERR") = Total Checked ^ Total Deleted
+9 ; ^("TIME") = Start (FM) ^ End (FM)
+10 ; ^("STOP") = Task asked to stop (1/0)
+11 ;Output : None
+12 ;Notes : Existance of ^TMP($J,"SD53105A") is assumed
+13 ;
+14 ;Declare varibales
+15 NEW XMB,XMTEXT,XMY,XMDUZ,XMZ,NODE,LINE
+16 ;Initialize bulletin space
+17 KILL ^TMP($JOB,"SD53105-BULL1")
+18 SET LINE=1
+19 ;Asked to stop
+20 IF (^TMP($JOB,"SD53105A","STOP"))
Begin DoDot:1
+21 SET ^TMP($JOB,"SD53105-BULL1",LINE)="*** Note that process was asked to stop and did not run to completion ***"
+22 SET ^TMP($JOB,"SD53105-BULL1",(LINE+1))=" "
+23 SET LINE=LINE+2
End DoDot:1
+24 ;Time summary
+25 SET NODE=^TMP($JOB,"SD53105A","TIME")
+26 SET ^TMP($JOB,"SD53105-BULL1",LINE)="Process began on "_$$FMTE^XLFDT($PIECE(NODE,"^",1))_" and completed on "_$$FMTE^XLFDT($PIECE(NODE,"^",2))
+27 SET ^TMP($JOB,"SD53105-BULL1",(LINE+1))=" "
+28 SET LINE=LINE+2
+29 ;Transmitted Outpatient Encounter file summary
+30 SET NODE=^TMP($JOB,"SD53105A","XMIT")
+31 SET ^TMP($JOB,"SD53105-BULL1",LINE)="A total of "_(+$PIECE(NODE,"^",1))_" entries in the Transmitted Outpatient Encounter file were"
+32 SET ^TMP($JOB,"SD53105-BULL1",(LINE+1))="checked and "_(+$PIECE(NODE,"^",2))_" of them were deleted because of bad pointers to the"
+33 SET ^TMP($JOB,"SD53105-BULL1",(LINE+2))="Outpatient Encounter file and "_(+$PIECE(NODE,"^",3))_" of them were deleted because of bad"
+34 SET ^TMP($JOB,"SD53105-BULL1",(LINE+3))="pointers to the Deleted Outpatient Encounter file. In addition to this,"
+35 SET ^TMP($JOB,"SD53105-BULL1",(LINE+4))=(+$PIECE(NODE,"^",4))_" entries were marked for re-transmission because they were rejected and"
+36 SET ^TMP($JOB,"SD53105-BULL1",(LINE+5))="did not contain a reason for rejection in the Transmitted Outpatient"
+37 SET ^TMP($JOB,"SD53105-BULL1",(LINE+6))="Encounter Error file."
+38 SET ^TMP($JOB,"SD53105-BULL1",(LINE+7))=" "
+39 SET LINE=LINE+8
+40 ;Deleted Outpatient Encounter file summary
+41 SET NODE=^TMP($JOB,"SD53105A","DEL")
+42 SET ^TMP($JOB,"SD53105-BULL1",LINE)="A total of "_(+$PIECE(NODE,"^",1))_" entries in the Deleted Outpatient Encounter file were"
+43 SET ^TMP($JOB,"SD53105-BULL1",(LINE+1))="checked and "_(+$PIECE(NODE,"^",2))_" of them were deleted because an associated entry in the"
+44 SET ^TMP($JOB,"SD53105-BULL1",(LINE+2))="Transmitted Outpatient Encounter file could not be found."
+45 SET ^TMP($JOB,"SD53105-BULL1",(LINE+3))=" "
+46 SET LINE=LINE+4
+47 ;Transmitted Outpatient Encounter Error file summary
+48 SET NODE=^TMP($JOB,"SD53105A","ERR")
+49 SET ^TMP($JOB,"SD53105-BULL1",LINE)="A total of "_(+$PIECE(NODE,"^",1))_" entries in the Transmitted Outpatient Encounter Error file"
+50 SET ^TMP($JOB,"SD53105-BULL1",(LINE+1))="were checked and "_(+$PIECE(NODE,"^",2))_" of them were deleted because of bad pointers to the"
+51 SET ^TMP($JOB,"SD53105-BULL1",(LINE+2))="Transmitted Outpatient Encounter file."
+52 SET ^TMP($JOB,"SD53105-BULL1",(LINE+3))=" "
+53 SET LINE=LINE+4
+54 ;Send completion bulletin
+55 SET XMB="SCDX AMBCARE TO NPCDB SUMMARY"
+56 SET XMB(1)="ACRP cleanup of files 409.73, 409.74, and 409.75"
+57 SET XMTEXT="^TMP($J,""SD53105-BULL1"","
+58 SET XMY(DUZ)=""
+59 SET XMDUZ="ACRP - SD*5.3*105"
+60 DO ^XMB
+61 ;Done - clean up and quit
+62 KILL ^TMP($JOB,"SD53105-BULL1")
+63 QUIT
+64 ;
