Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MDCVT1

MDCVT1.m

Go to the documentation of this file.
  1. MDCVT1 ; HOIFO/NCA - Medicine Package Conversion (Cont.) ;1/6/05 15:12
  1. ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
  1. ; Integration Agreements:
  1. ; IA# 4630 [Subscription] Calls to GMRCCP.
  1. ; IA# 3535 [Subscription] Calls to TIUSRVP.
  1. ; IA# 4508 [Subscription] Call to TIUSRVPT.
  1. ; IA# 4588 [Subscription] Call to MAGMC2CP
  1. ; IA# 2729 [Supported] Calls to XMXAPI.
  1. ; IA#10063 [Supported] %ZTLOAD routine calls.
  1. ;
  1. CONVERT(MDNOD,MDGLB) ; [Function] Convert Medicine Report to TIU Document
  1. ; Input parameters
  1. ; 1. MDNOD [Literal/Required]
  1. ; 2. MDGLB [Reference/Required]
  1. ;
  1. ; Returns the TIU Note IEN
  1. ; or 0 if report is skipped because Convert flag is set to "NO" or Report Converted
  1. ; or -1^Error message
  1. ; (Note: Error messages will be filed in Subfile 703.92 field .1)
  1. ;
  1. N MDCONV,MDEX,MDFIEN,MDFILE,MDFLG,MDGN,MDP,MDPROC,MDRES,MDTITL,MDUSER,MDX
  1. S (MDGN,MDP)=MDNOD
  1. S (MDEX,MDRES)="",MDFLG=0
  1. S MDFIEN=+MDP Q:'MDFIEN "-1^No IEN for "_MDP
  1. S MDFILE=+$P(MDP,"MCAR(",2) Q:'MDFILE "-1^No File Number for "_MDP
  1. I $O(^MDD(702,"ACONV",MDFIEN_";MCAR("_MDFILE_",",0)) Q "-1^Already Converted."
  1. S MDPAT=$$GET1^DIQ(MDFILE,MDFIEN_",","MEDICAL PATIENT","I")
  1. I 'MDPAT S MDPAT=$$GET1^DIQ(MDFILE,MDFIEN_",","PATIENT","I")
  1. I 'MDPAT Q "-1^No Medical Patient."
  1. ; Get Medicine Parameter
  1. S MDPROC=$G(^MDD(703.9,1,1,MDFILE,0))
  1. ; Get CP Definition and Convert?
  1. S MDCONV=$P(MDPROC,"^",3) I '+MDCONV D SKIP^MDCVT(MDP,"CONVERT Y/N flag set to No.") Q 0
  1. S MDTITL=$P(MDPROC,"^",5) S:'MDTITL MDTITL=$$LOCATN^MDSTATU(MDGN)
  1. Q:MDTITL'>0 "-1^No Historical Note Title."
  1. S MDPROC=$P(MDPROC,"^",2) S:'MDPROC MDPROC=$$LOCATP^MDSTATU(MDGN)
  1. Q:'MDPROC "-1^No CP definition for "_MDP
  1. S MDUSER=$P($G(^MDD(703.9,1,0)),U,3) I 'MDUSER Q "-1^No Administrative Closure User Designated."
  1. ; Get Existing TIU Note
  1. S MDX=$O(^MDD(703.9,1,2,"B",MDP,0))
  1. I +MDX S MDX=$G(^MDD(703.9,1,2,+MDX,0))
  1. I +$P(MDX,"^",3) S MDEX=+$P(MDX,"^",3) Q MDEX
  1. ; Create TIU Note
  1. S MDRES=$$NEWTIU(MDFILE,MDPAT,MDFIEN,MDPROC,MDTITL,MDUSER,.MDGLB) I +MDRES<1 D LOGERR^MDCVT(MDP,$P(MDRES,"^",2)) S $P(MDRES,"^")=-1 Q MDRES
  1. Q +MDRES
  1. ;
  1. NEWTIU(MDFILE,MDPAT,MDFIEN,MDPROC,MDTITL,MDU,MDGLB) ; [Function] Create New TIU Note for Medicine Reports
  1. ; Input parameters
  1. ; 1. MDFILE [Literal/Required]
  1. ; 2. MDPAT [Literal/Required]
  1. ; 3. MDFIEN [Literal/Required]
  1. ; 4. MDPROC [Literal/Required]
  1. ; 5. MDTITL [Literal/Required]
  1. ; 6. MDGLB [Reference/Required]
  1. ;
  1. N MDADD,MDCHKI,MDCODE,MDD,MDDT,MDERR,MDFDA,MDIEN,MDIENS,MDK,MDLOC,MDNOTE,MDRET,MDSSTR,MDVST,MDVSTR,MDWP
  1. ; Get Hospital Location
  1. S MDLOC=$$HOSP^MDSTATU(MDFIEN_";MCAR("_MDFILE)
  1. I 'MDLOC S MDLOC=$$GET1^DIQ(702.01,+MDPROC_",",.05,"I")
  1. Q:'MDLOC "0^No Hospital Location."
  1. S MDCODE=$$GET1^DIQ(MDFILE,MDFIEN_",","SUMMARY","I")
  1. I MDCODE'="" S MDCODE=$S(MDCODE="N":1,MDCODE="A":2,MDCODE="B":3,MDCODE="MI":2,MDCODE="MO":2,MDCODE="S":2,1:4)
  1. E S MDCHKI=$$CHKINT(MDFILE,MDFIEN),MDCODE=$S(+MDCHKI:(MDCHKI+4),1:"")
  1. S MDDT=$$GET1^DIQ(MDFILE,MDFIEN_",",.01,"I")
  1. ; Set Un-dictated status
  1. ;S MDWP(.05)=1
  1. ; Set Author/Dictator and Entered By
  1. ;S MDWP(1202)=MDU,MDWP(1302)=MDU
  1. ; Set Procedure Summary Code and Date/Time of Procedure
  1. S MDWP(70201)=MDCODE,MDWP(70202)=MDDT
  1. F MDK=0:0 S MDK=$O(@MDGLB@(MDK)) Q:'MDK S MDWP("TEXT",MDK,0)=$G(@MDGLB@(MDK))
  1. D NOW^%DTC S MDD=% K %
  1. S MDFDA(702,"+1,",.01)=MDPAT
  1. S MDFDA(702,"+1,",.02)=MDD
  1. S MDFDA(702,"+1,",.03)=DUZ
  1. S MDFDA(702,"+1,",.04)=MDPROC
  1. S MDFDA(702,"+1,",.09)=4 ; Status = Checked-In
  1. D UPDATE^DIE("","MDFDA","MDIEN","MDERR") Q:$D(MDERR)
  1. S MDRET=$$EN1^MDPCE(MDIEN(1),MDDT,MDPROC_"^"_MDLOC,"E","A")
  1. I +MDRET S MDVST=+MDRET,MDSSTR=$P(MDRET,"^",2),MDVSTR=$P(MDSSTR,";",3)_";"_$P(MDSSTR,";",2)_";"_$P(MDSSTR,";")
  1. I +MDRET<1 D DELETE(MDIEN(1)) Q MDRET
  1. S MDNOTE="" D MAKE^TIUSRVP(.MDNOTE,MDPAT,MDTITL,$P(MDVSTR,";",2),MDLOC,MDVST,.MDWP,MDVSTR,1,1)
  1. ; Add the TIU Document Reference
  1. S MDIENS=MDIEN(1)_","
  1. I +MDNOTE S MDFDA(702,MDIENS,.06)=MDNOTE D FILE^DIE("","MDFDA","MDERR")
  1. I +MDNOTE'>0 D DELETE(MDIEN(1))
  1. Q MDNOTE
  1. ;
  1. UPD(MDGB,MDNOD,MDTI,MDT) ; Do consults and Imaging update and log response
  1. N MDCONS,MDECON,MDUSR,MDEFLG,MDIMG,MDNOTE,MDR,MDR1,MDRET,MDSTUD,MDTT,MDWP,MDX1 S (MDEFLG,MDRET)=0
  1. ; Get the existing study
  1. ;
  1. S MDSTUD=$O(^MDD(702,"ATIU",+MDTI,0)) Q:'MDSTUD
  1. ;
  1. ;Get existing consult
  1. ;
  1. S MDECON=$$GET1^DIQ(702,MDSTUD_",",.05,"I")
  1. ;
  1. ; Get Administrative Closure Person
  1. ;
  1. S MDUSR=$P($G(^MDD(703.9,1,0)),U,3) Q:'MDUSR
  1. S MDTT=$S(+$G(MDT)>0:0,1:1)
  1. S MDCONS=$$CVTCONS^MDCVT1(MDTT,MDNOD,+MDTI)
  1. I +MDCONS<0&($P(MDCONS,U,2)'["No MC results sent") D LOGERR^MDCVT(MDNOD,"Consults error: "_$P(MDCONS,U,2)) Q
  1. I +MDCONS>0 K MDWP I +$P(MDCONS,U,3) D Q:MDEFLG
  1. .S MDWP(1405)=+$P(MDCONS,U,3)_";GMR(123,"
  1. .D UPDATE^TIUSRVP(.MDNOTE,+MDTI,.MDWP,1)
  1. .I +MDNOTE<1 D LOGERR^MDCVT(MDNOD,"COULDN'T UPDATE THE NOTE") S MDEFLG=1 Q
  1. .I +$P(MDCONS,U,3) S MDFDA(702,MDSTUD_",",.05)=+$P(MDCONS,U,3) D FILE^DIE("","MDFDA")
  1. .Q
  1. ; Do imaging update and log response
  1. Q:$$GET1^DIQ(702,MDSTUD_",",.09,"I")=3
  1. I $O(@MDGB@(2005,0)) D Q:MDRET<0 ; Quit on Imaging error
  1. .S (MDIMG,MDX1)=0
  1. .F S MDX1=$O(@MDGB@(2005,MDX1)) Q:'MDX1 D Q:MDRET<0
  1. ..S MDIMG=+@MDGB@(2005,MDX1,0)
  1. ..S MDRET=$$CVTIMG(MDTT,MDNOD,MDTI,MDIMG)
  1. ..D:MDRET<0 LOGERR^MDCVT(MDNOD,"Imaging error: "_$P(MDRET,U,2))
  1. Q:MDRET<0 K MDFDA S MDFDA(702,MDSTUD_",",.09)=3,MDFDA(702,MDSTUD_",",.3)=MDNOD D FILE^DIE("","MDFDA") W "."
  1. ;
  1. ; Close the record with Administrative Closure
  1. S (MDR,MDR1)=""
  1. I +MDTI D ADMNCLOS^TIUSRVPT(.MDR,+MDTI,"M",MDUSR) I '+MDR D DELETE^TIUSRVP(.MDR1,+MDTI) D LOGERR^MDCVT(MDNOD,"Can't Administrative close document")
  1. Q
  1. PROC(MDX5,MDX6) ; Get Medicine Procedure Name
  1. N LL,LL6,LL8
  1. I MDX5="MCAR(699" S LL=$P($G(^MCAR(699,MDX6,0)),U,12) Q:LL'>0 S LL=$P($G(^MCAR(697.2,+LL,0)),U) Q LL
  1. I MDX5="MCAR(699.5" D
  1. .S LL6=$P($G(^MCAR(699.5,MDX6,0)),U,6),LL8=$P($G(^MCAR(699.5,MDX6,0)),U,8)
  1. .S LL=$P($G(^MCAR(699.5,MDX6,0)),U,6) Q:'LL S LL=$P($G(^MCAR(697.2,LL,0)),U) Q LL
  1. I MDX5[694 S LL=$P($G(^MCAR(694,MDX6,0)),U,3) Q:'LL S LL=$P(^MCAR(697.2,LL,0),U) Q LL
  1. S LL=$O(^MCAR(697.2,"C",MDX5,0)),LL=$P(^MCAR(697.2,LL,0),U,1)
  1. Q LL
  1. CVTIMG(MDTST,MDN,MDTIU,MDIMAGES) ; Call Imaging API
  1. Q $$TIU^MAGMC2CP(MDTST,MDN,MDTIU,.MDIMAGES)
  1. CVTCONS(MDTST,MDN,MDTIU) ; Call Consults API
  1. Q $$MCCNVT^GMRCCP(MDTST,MDN,MDTIU)
  1. CHKINT(MDFL,MDMREC) ; Check to see if record from Medical Device
  1. ; Returns 1 or 0
  1. N MDN1,MDF
  1. I MDFL=691 S MDN1=$G(^MCAR(691,+MDMREC,10,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=691.1 S MDN1=$G(^MCAR(691.1,+MDMREC,43,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=691.5 S MDN1=$G(^MCAR(691.5,+MDMREC,9,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=691.6 S MDN1=$G(^MCAR(691.6,+MDMREC,7,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=691.8 S MDN1=$G(^MCAR(691.8,+MDMREC,12,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=698.3 S MDN1=$G(^MCAR(698.3,+MDMREC,10,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=699 S MDN1=$G(^MCAR(699,+MDMREC,33,0)) I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) Q 1
  1. I MDFL=700 S MDF=0 D Q:MDF 1
  1. .S MDN1=$G(^MCAR(700,+MDMREC,25,0))
  1. .I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) S MDF=1 Q
  1. .S MDN1=$G(^MCAR(700,+MDMREC,3,0))
  1. .I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) S MDF=1 Q
  1. .S MDN1=$G(^MCAR(700,+MDMREC,4,0))
  1. .I +$P(MDN1,U,3)&($P(MDN1,U,3)>1) S MDF=1 Q
  1. I +$P($G(^MCAR(MDFL,+MDMREC,2005,0)),U,4)>0 Q 1
  1. Q 0
  1. BLD() ; Build the list of reports to convert
  1. W ! K DIR S DIR(0)="YA",DIR("A")="Build the list of reports to convert? "
  1. S DIR("A",1)="You can rebuild the list to check for new Medicine Reports that"
  1. S DIR("A",2)="may have been added since the last time you ran the Build Conversion List.",DIR("B")="NO" D ^DIR K DIR
  1. ;
  1. Q:Y<1 1 ; User said no to re-build
  1. Q:$D(DIRUT)!$D(DIROUT)!(Y<1) 0 ; User has cancelled
  1. ;
  1. K DIR S DIR(0)="YA",DIR("A")="Queue the conversion list build? ",DIR("B")="YES" D ^DIR K DIR
  1. I Y=0 D QBLD Q 1 ; User has opted to do it now
  1. I Y=1 D Q 0 ; User has queued the build
  1. .S ZTRTN="QBLD^MDCVT1"
  1. .S ZTDESC="Medicine Conversion List Build"
  1. .S ZTREQ="@",ZTSAVE("ZTREQ")="",MDQUE=1,MDDUZ=DUZ,ZTSAVE("MDDUZ")="",ZTSAVE("MDQUE")=""
  1. .S (ZTDTH,ZTIO)=""
  1. .D ^%ZTLOAD
  1. .I $G(ZTSK) W "Task Queued"
  1. .E W "Task Cancelled"
  1. Q 0 ; User cancelled out of the queueing
  1. ;
  1. QBLD ; Queued entry point for re-build
  1. L +(^MDD(703.9,1,2)):5 E Q
  1. N MDGBL,MDPTR,MDFDA,MDFL,MDIEN,MDY,X2
  1. S X2="" F S X2=$O(^MDD(703.9,1,1,X2)) Q:X2="" S MDY=$G(^(X2,0)) D
  1. .Q:'+$P(MDY,U,3)
  1. .S MDFL=$P(MDY,U),MDGBL="^MCAR("_MDFL_",""B"")"
  1. .F S MDGBL=$Q(@MDGBL) Q:MDGBL="" Q:$QS(MDGBL,2)'="B" D
  1. ..Q:'$P($G(^MCAR(MDFL,+$QS(MDGBL,4),0)),U,2)
  1. ..S MDPTR=$QS(MDGBL,4)_";MCAR("_MDFL_","
  1. ..D SYNC^MDCVT(MDPTR)
  1. L -(^MDD(703.9,1,2))
  1. I +$G(MDQUE) D
  1. .N TXT,XMTO,XMBODY,XMDUZ,XMSUBJ
  1. .S XMINSTR("FROM")=.5,XMSUBJ="Conversion List"
  1. .S XMTO=$G(MDDUZ) Q:'XMTO
  1. .S TXT(1)="The Queued Conversion List is finished."
  1. .S TXT(2)="You can run the Medicine report conversion process.",XMBODY="TXT"
  1. .D SENDMSG^XMXAPI(DUZ,XMSUBJ,XMBODY,XMTO,.XMINSTR)
  1. .K MDQUE,MDDUZ
  1. Q
  1. DELETE(MDIN) ; Delete study upon unsuccessful Note Creation
  1. N MDFDA
  1. S MDFDA(702,MDIN_",",.01)=""
  1. D FILE^DIE("","MDFDA")
  1. N DA,DIK S DA=+MDIN,DIK="^MDD(702," D ^DIK
  1. Q
  1. TOTALS(MDSTAT) ; Count by Status
  1. S MDSTAT("E")=0
  1. S MDSTAT("E")=MDSTAT("TOT")-(MDSTAT("S")+MDSTAT("CR")+MDSTAT("CT"))
  1. W @IOF,!,"Conversion Totals",!,$TR($J("",35)," ","-")
  1. W !,"Converted REAL Mode: ",$J(+$G(MDSTAT("CR")),9)
  1. W !,"Converted TEST Mode: ",$J(+$G(MDSTAT("CT")),9)
  1. W !,"Skipped: ",$J(+$G(MDSTAT("S")),9)
  1. W !,"Error: ",$J(+$G(MDSTAT("E")),9)
  1. Q