source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCARAMLH.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1MCARAMLH ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION-CONVERT ;2/27/95 20:43
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 ;
5 ;Called from ^MCARAML
6 ;Converts alphabetical list to transmissable list and sends
7 N MCI,MCJ,MCK,MCCNT,MCREP,MCL,MCLN
8 W !!,"Converting---"
9 S (MCX,MCY,MCZ)=0,MCCNT=15
10 D HDR
11 F MCI=1:1 S MCX=$O(^TMP($J,0,"MC",MCX)) Q:MCX="" S MCY=0 F MCJ=1:1 S MCY=$O(^TMP($J,0,"MC",MCX,MCY)) Q:MCY="" S MCZ=0 F MCK=1:1 S MCZ=$O(^TMP($J,0,"MC",MCX,MCY,MCZ)) Q:MCZ="" D CNVT
12 D REP
13 W !!,"Sending report to "
14 F S MCREP=$O(XMY(MCREP)) Q:MCREP="" W:MCREP>1 !," " W XMY(MCREP)
15 W " ---"
16 S XMTEXT="^TMP("_$J_",1,""MC"","
17 S XMSUB="EKG MUSE/DHCP INTERFACE RETRANSMITTAL REPORT"
18 D ^XMD
19 W !!,"Message ",+XMZ," sent."
20 Q
21 ;
22HDR ;
23 S ^TMP($J,1,"MC",1)="The following report is a list of "_^TMP($J,0,"MC",0)_" EKG tests that have originated"
24 S ^TMP($J,1,"MC",2)="from the Marquette MUSE and should be retransmitted into the DHCP database."
25 S ^TMP($J,1,"MC",3)=" "
26 S ^TMP($J,1,"MC",4)="These EKG tests are currently represented on your system by"
27 S ^TMP($J,1,"MC",5)="corrupted DHCP data."
28 S ^TMP($J,1,"MC",6)=" "
29 S ^TMP($J,1,"MC",7)="Before retransmitting these tests from the Marquette MUSE into DHCP,"
30 S ^TMP($J,1,"MC",8)="please DELETE the corrupted data with the option:"
31 S ^TMP($J,1,"MC",9)=" "
32 S ^TMP($J,1,"MC",10)="MCARECGINIT-ECG Corrupted Records Delete"
33 S ^TMP($J,1,"MC",11)=" "
34 S ^TMP($J,1,"MC",12)="MCARECGINIT is available as option 3 on the MCARMGR menu."
35 S ^TMP($J,1,"MC",13)=" "
36 S ^TMP($J,1,"MC",14)="The name, Social Security Number, and date/time of records follow:"
37 S ^TMP($J,1,"MC",15)=" "
38 Q
39CNVT ;
40 S MCCNT=MCCNT+1
41 S Y=MCZ,%DT="T" D DD^%DT S MCDATE=Y
42 S ^TMP($J,1,"MC",MCCNT)=MCX_" "_MCY_" "_MCDATE
43 S ^TMP($J,1,"MC",0)=MCCNT W:(MCCNT-15)#100=0 "."
44 Q
45 ;
46REP ;site list to be developed
47 S MCLN=1
48 F MCL=1:1 S MCREP=$T(MCSITE+MCL) Q:MCREP="" S XMY(MCLN)=$P(MCREP,";;",3,99),MCLN=MCLN+1
49 Q
50 ;
51MCSITE ;;
52 ;;Washington ISC;;Litman,Judy
Note: See TracBrowser for help on using the repository browser.