MCARAMLH.m

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

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