source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD53105C.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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