| 1 | MCARAMLH ;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 | ;
|
|---|
| 22 | HDR ;
|
|---|
| 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
|
|---|
| 39 | CNVT ;
|
|---|
| 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 | ;
|
|---|
| 46 | REP ;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 | ;
|
|---|
| 51 | MCSITE ;;
|
|---|
| 52 | ;;Washington ISC;;Litman,Judy
|
|---|
