| [613] | 1 | LREPIAK ;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 | ; \/
|
|---|
| 18 | LOOK ; ^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)
|
|---|
| 22 | TEST ;
|
|---|
| 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 | ;
|
|---|
| 50 | MAIL 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 | ;
|
|---|
| 82 | END ;
|
|---|
| 83 | ;
|
|---|
| 84 | K LRX,LRSTATUS,LRSTADT,LRDUZ2,LREPRT,LRMID,LRMN,LRNCHAAC,LRTXT,XMMG,XMSUB,XMTEXT
|
|---|
| 85 | K ^TMP($J,"LREPIACK")
|
|---|
| 86 | ;
|
|---|
| 87 | QUIT
|
|---|
