MCARAMLH ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION-CONVERT ;2/27/95 20:43
;;2.3;Medicine;;09/13/1996
;
;
;Called from ^MCARAML
;Converts alphabetical list to transmissable list and sends
N MCI,MCJ,MCK,MCCNT,MCREP,MCL,MCLN
W !!,"Converting---"
S (MCX,MCY,MCZ)=0,MCCNT=15
D HDR
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
D REP
W !!,"Sending report to "
F S MCREP=$O(XMY(MCREP)) Q:MCREP="" W:MCREP>1 !," " W XMY(MCREP)
W " ---"
S XMTEXT="^TMP("_$J_",1,""MC"","
S XMSUB="EKG MUSE/DHCP INTERFACE RETRANSMITTAL REPORT"
D ^XMD
W !!,"Message ",+XMZ," sent."
Q
;
HDR ;
S ^TMP($J,1,"MC",1)="The following report is a list of "_^TMP($J,0,"MC",0)_" EKG tests that have originated"
S ^TMP($J,1,"MC",2)="from the Marquette MUSE and should be retransmitted into the DHCP database."
S ^TMP($J,1,"MC",3)=" "
S ^TMP($J,1,"MC",4)="These EKG tests are currently represented on your system by"
S ^TMP($J,1,"MC",5)="corrupted DHCP data."
S ^TMP($J,1,"MC",6)=" "
S ^TMP($J,1,"MC",7)="Before retransmitting these tests from the Marquette MUSE into DHCP,"
S ^TMP($J,1,"MC",8)="please DELETE the corrupted data with the option:"
S ^TMP($J,1,"MC",9)=" "
S ^TMP($J,1,"MC",10)="MCARECGINIT-ECG Corrupted Records Delete"
S ^TMP($J,1,"MC",11)=" "
S ^TMP($J,1,"MC",12)="MCARECGINIT is available as option 3 on the MCARMGR menu."
S ^TMP($J,1,"MC",13)=" "
S ^TMP($J,1,"MC",14)="The name, Social Security Number, and date/time of records follow:"
S ^TMP($J,1,"MC",15)=" "
Q
CNVT ;
S MCCNT=MCCNT+1
S Y=MCZ,%DT="T" D DD^%DT S MCDATE=Y
S ^TMP($J,1,"MC",MCCNT)=MCX_" "_MCY_" "_MCDATE
S ^TMP($J,1,"MC",0)=MCCNT W:(MCCNT-15)#100=0 "."
Q
;
REP ;site list to be developed
S MCLN=1
F MCL=1:1 S MCREP=$T(MCSITE+MCL) Q:MCREP="" S XMY(MCLN)=$P(MCREP,";;",3,99),MCLN=MCLN+1
Q
;
MCSITE ;;
;;Washington ISC;;Litman,Judy
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARAMLH 2071 printed Dec 13, 2024@02:12:15 Page 2
MCARAMLH ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION-CONVERT ;2/27/95 20:43
+1 ;;2.3;Medicine;;09/13/1996
+2 ;
+3 ;
+4 ;Called from ^MCARAML
+5 ;Converts alphabetical list to transmissable list and sends
+6 NEW MCI,MCJ,MCK,MCCNT,MCREP,MCL,MCLN
+7 WRITE !!,"Converting---"
+8 SET (MCX,MCY,MCZ)=0
SET MCCNT=15
+9 DO HDR
+10 FOR MCI=1:1
SET MCX=$ORDER(^TMP($JOB,0,"MC",MCX))
if MCX=""
QUIT
SET MCY=0
FOR MCJ=1:1
SET MCY=$ORDER(^TMP($JOB,0,"MC",MCX,MCY))
if MCY=""
QUIT
SET MCZ=0
FOR MCK=1:1
SET MCZ=$ORDER(^TMP($JOB,0,"MC",MCX,MCY,MCZ))
if MCZ=""
QUIT
DO CNVT
+11 DO REP
+12 WRITE !!,"Sending report to "
+13 FOR
SET MCREP=$ORDER(XMY(MCREP))
if MCREP=""
QUIT
if MCREP>1
WRITE !," "
WRITE XMY(MCREP)
+14 WRITE " ---"
+15 SET XMTEXT="^TMP("_$JOB_",1,""MC"","
+16 SET XMSUB="EKG MUSE/DHCP INTERFACE RETRANSMITTAL REPORT"
+17 DO ^XMD
+18 WRITE !!,"Message ",+XMZ," sent."
+19 QUIT
+20 ;
HDR ;
+1 SET ^TMP($JOB,1,"MC",1)="The following report is a list of "_^TMP($JOB,0,"MC",0)_" EKG tests that have originated"
+2 SET ^TMP($JOB,1,"MC",2)="from the Marquette MUSE and should be retransmitted into the DHCP database."
+3 SET ^TMP($JOB,1,"MC",3)=" "
+4 SET ^TMP($JOB,1,"MC",4)="These EKG tests are currently represented on your system by"
+5 SET ^TMP($JOB,1,"MC",5)="corrupted DHCP data."
+6 SET ^TMP($JOB,1,"MC",6)=" "
+7 SET ^TMP($JOB,1,"MC",7)="Before retransmitting these tests from the Marquette MUSE into DHCP,"
+8 SET ^TMP($JOB,1,"MC",8)="please DELETE the corrupted data with the option:"
+9 SET ^TMP($JOB,1,"MC",9)=" "
+10 SET ^TMP($JOB,1,"MC",10)="MCARECGINIT-ECG Corrupted Records Delete"
+11 SET ^TMP($JOB,1,"MC",11)=" "
+12 SET ^TMP($JOB,1,"MC",12)="MCARECGINIT is available as option 3 on the MCARMGR menu."
+13 SET ^TMP($JOB,1,"MC",13)=" "
+14 SET ^TMP($JOB,1,"MC",14)="The name, Social Security Number, and date/time of records follow:"
+15 SET ^TMP($JOB,1,"MC",15)=" "
+16 QUIT
CNVT ;
+1 SET MCCNT=MCCNT+1
+2 SET Y=MCZ
SET %DT="T"
DO DD^%DT
SET MCDATE=Y
+3 SET ^TMP($JOB,1,"MC",MCCNT)=MCX_" "_MCY_" "_MCDATE
+4 SET ^TMP($JOB,1,"MC",0)=MCCNT
if (MCCNT-15)#100=0
WRITE "."
+5 QUIT
+6 ;
REP ;site list to be developed
+1 SET MCLN=1
+2 FOR MCL=1:1
SET MCREP=$TEXT(MCSITE+MCL)
if MCREP=""
QUIT
SET XMY(MCLN)=$PIECE(MCREP,";;",3,99)
SET MCLN=MCLN+1
+3 QUIT
+4 ;
MCSITE ;;
+1 ;;Washington ISC;;Litman,Judy
