source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LREPIAK.m@ 975

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

initial load of WorldVistAEHR

File size: 2.8 KB
Line 
1LREPIAK ;DALOI/HOAK-EXTRACT ACKNOWLEDGEMENT ;4/10/98
2 ;;5.2;LAB SERVICE;**175,260**;Sep 27, 1994
3 ;
4 ;
5 ;
6 ;
7 ;
8 ;
9 ; ^HL(772,1732536,0) = 1700204^40^^I^^1695685^^1728022^I^4576
10 ; ^HL(772,1732536,"IN",0) = ^^104^104^2980404^
11 ; ^HL(772,1732536,"IN",1,0) = MSH^~|\&^NCH-AAC^200^NCH-LAB^525^19980403210341^^ACK~^1695685^P^2.2^^^NE^AL
12 ; ID LEVEL
13 ; ^HL(772,1732536,"IN",99,0) = DSP^0001^029349629:19980401093501:000
14 ; ^HL(772,1732536,"IN",101,0) = DSP^0001^010486381:19980331114855:000
15 ; ^HL(772,1732536,"IN",104,0) = NNNN
16 ; CODE
17 ; \/
18LOOK ; ^HL(772,1732536,"P") = 3^2980404.002435
19 ;
20 I '$G(LRPROT) S LRPROT=$G(HL("EID"))
21 D GENACK^HLMA1(HL("EID"),HLMTIENS,HL("EIDS"),"LM",1,.HLRESLTA)
22TEST ;
23 I '$G(HLFS) S HLFS=HL("FS")
24 S LRMID=HLMTIEN D
25 . D GETS^DIQ(772,LRMID,200,"Z","LREPRT","LREPMT")
26 . S LRMN=$P($G(LREPRT(772,LRMID_",",200,1,0)),HLFS,10)
27 . ;$P($G(^HL(772,LRMID,"IN",1,0)),HLFS,10)
28 . I '$G(LRMN) S LRMN=$P($G(HLHDR),HLFS,10)
29 . Q:'$G(LRMN)
30 . I $G(HLHDR) S LRNCHAAC=$P(HLHDR,HLFS,3)
31 . I '$G(LRNCHAAC) S LRNCHAAC=$P($G(LREPRT(772,LRMID_",",200,1,0)),HLFS,3)
32 . ;$P($G(^HL(772,LRMID,"IN",1,0)),HLFS,3)
33 . D GETS^DIQ(772,LRMID,20,"Z","LREPRT","LREPMT")
34 . S LRSTATUS=LREPRT(772,LRMID_",",20)
35 . ;S LRSTATUS=+$G(^HL(772,LRMID,"P"))
36 . I 'LRSTATUS S LRSTATUS=3
37 . D GETS^DIQ(772,LRMID,21,"Z","LREPRT","LREPMT")
38 . S LRSTADT=LREPRT(772,LRMID_",",21)
39 . ;S LRSTADT=$P(^HL(772,LRMID,"P"),U,2)
40 . S ^TMP($J,"LREPIACK",LRMN)=LRSTATUS_U_LRSTADT
41 I $G(LRNCHAAC)'="NCH-AAC" S HLRESLT=0 QUIT
42 D MAIL
43 S HLRESLT=0
44 QUIT
45 ;
46 ;
47 ;
48 ; Send a message to entries
49 ;
50MAIL I $G(DUZ)'>0 S LRDUZ2=.5
51 I $G(LRDUZ2)'>0 S LRDUZ2=.5
52 ;
53 ;
54 ; ^XMB(3.8,"B","LR NCH-REPORT",4741)
55 K XMY S X="LR NCH-REPORT",XMDUZ=DUZ D INST^XMA21 I XMMG["not found" S HLRESLT="LR NCH-REPORT mail group not defined" QUIT
56 ;S LRGRP=$O(^XMB(3.8,"B","LR NCH-REPORT",0))
57 ;I '$G(LRGRP) S HLRESLT="LR NCH-REPORT mail group not defined" QUIT
58 ;
59 ;
60 ; ^XMB(3.8,4741,0) = LR NCH-REPORT^PR^n^^^1^1059
61 ; ^XMB(3.8,4741,1,0) = ^3.81P^2^2
62 ; ^XMB(3.8,4741,1,1,0) = 10984
63 ;
64 ; GET mail group members
65 ;S LRMEM=0
66 ;F S LRMEM=$O(^XMB(3.8,LRGRP,1,LRMEM)) Q:+LRMEM'>0 S XMY(^(LRMEM,0))="" D
67 S XMDUZ=LRDUZ2
68 S XMTEXT="LRTXT("
69 S LRTXT(1)="Flash... This is an acknowledgement message from NCH"
70 S LRTXT(2)="Message #: "_$G(LRSTATUS)_" From the status file 771.6 message is categorized as: "
71 S LRX=0
72 F S LRX=$O(^TMP($J,"LREPIACK",LRX)) Q:+LRX'>0 S LRSTATUS=$P(^(LRX),U),LRSTADT=$P(^(LRX),U,2) I $G(LRSTATUS) D
73 . S LRTXT(LRX)="Message: "_LRX_" "_$$GET1^DIQ(771.6,+LRSTATUS,.01)_" @ "_$$FMTE^XLFDT(LRSTADT)
74 S XMSUB="Acknowledgement message from Austin."
75 D ^XMD
76 ;
77 ;
78 QUIT
79 ;
80 ;
81 ;
82END ;
83 ;
84 K LRX,LRSTATUS,LRSTADT,LRDUZ2,LREPRT,LRMID,LRMN,LRNCHAAC,LRTXT,XMMG,XMSUB,XMTEXT
85 K ^TMP($J,"LREPIACK")
86 ;
87 QUIT
Note: See TracBrowser for help on using the repository browser.