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

MDCVT.m

Go to the documentation of this file.
  1. MDCVT ; HOIFO/DP/NCA - Medicine Package Conversion ;10/20/04 12:49
  1. ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
  1. ; Integration Agreements:
  1. ; IA# 2263 [Supported] XPAR parameter calls.
  1. ; IA# 2320 [Supported] %ZISH calls.
  1. ; IA#10031 [Supported] DDS call to bring up Screen Man
  1. ;
  1. EN ; [Procedure] Main entry point to convert database to TIU notes
  1. N MDCNVT,MDDIR,MDFILE,MDREC,MDTEST,MDTIUI,MDXR,ORHFS,X,Y
  1. S (MDCNVT("CR"),MDCNVT("CT"),MDCNVT("E"),MDCNVT("S"),MDCNVT("TOT"))=0
  1. I $$GET^XPAR("SYS","MD MEDICINE CONVERTED",1) W !!,"Already Converted" Q
  1. I '$P($G(^MDD(703.9,1,0)),U,3) W !!,"No Administrative Closure Person." Q
  1. S MDTEST=+$P($G(^MDD(703.9,1,0)),U,2)'=1
  1. S MDXR=$O(^MDD(703.9,1,2,"AS","")) I MDXR="" W !!,"No Conversion List. Run Build Conversion List option." Q
  1. ;
  1. W @IOF,!,"Medicine to Clinical Procedure Conversion"
  1. K DIR S DIR(0)="YA"
  1. S DIR("A")="Ok to continue? "
  1. S DIR("A",1)="Running conversion in "_$S(MDTEST:"TEST",1:"REAL")_" mode.",DIR("B")="NO" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)
  1. ;
  1. ; Set up the HFS variables
  1. S MDFILE="MDCVT.TXT",MDDIR=$P($G(^MDD(703.9,1,.1)),U)
  1. S X=$$TESTHFS() I '+X W !!,"HFS Device Error: ",$P(X,U,2) Q
  1. ;
  1. ; Last Chance
  1. W ! K DIR S DIR(0)="YA"
  1. S DIR("A")="Ready to "_$S(MDTEST:"test the conversion of",1:"convert")_" the Medicine Files? "
  1. S DIR("B")="NO" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)
  1. ;
  1. ; See if previous errors need to be reset
  1. W !!,"Conversion in progress...",!
  1. D RESET
  1. ;
  1. ; Set MDREC up here - This prevents loss on M error trap in EN1
  1. S MDREC=0
  1. ;
  1. W !?5,"[.] Indicates converted record"
  1. W !?5,"[*] Indicates error in record",!!
  1. ;
  1. EN1 ; [Procedure] Resumes on error via $ETRAP variable
  1. N $ESTACK,$ETRAP S $ETRAP="ERR^MDCVT"
  1. N MDCONS,MDECON,MDFDA,MDNODE,MDNOTE,MDOK,MDPR,MDR,MDR1,MDSTUD,MDUSR,MDX1
  1. F S MDREC=$O(^MDD(703.9,1,2,"AS","R",MDREC)) Q:'MDREC D
  1. .S MDPTR=$$GET1^DIQ(703.92,MDREC_",1,",.01) Q:MDPTR=""
  1. .S MDGBL=U_$P(MDPTR,";",2)_$P(MDPTR,";",1)_")"
  1. .S MDCNVT("TOT")=MDCNVT("TOT")+1
  1. .I '$P($G(^MDD(703.9,1,1,+$P(MDGBL,"(",2),0)),U,3) D Q
  1. ..D SKIP(MDPTR,"Report type not marked for conversion")
  1. ..S MDCNVT("S")=MDCNVT("S")+1
  1. .S MDSTAT=$P($G(@MDGBL@("ES")),U,7)
  1. .I MDSTAT="" D Q:'MDOK
  1. ..S MDOK=+$P($G(^MDD(703.9,1,1,+$P(MDGBL,"(",2),0)),U,4)
  1. ..D:'MDOK LOGERR(MDPTR,"Unable to determine status")
  1. .I MDSTAT="S" D SKIP(MDPTR,"Report Superseded") S MDCNVT("S")=MDCNVT("S")+1 Q
  1. .I MDSTAT["D" D LOGERR(MDPTR,"Report in Draft/Problem Draft status") Q
  1. .;I MDSTAT="RNV" D LOGERR(MDPTR,"Report not verified") Q
  1. .I MDTEST W "." ; Progress indicator
  1. .;
  1. .; Produce report using HFS device MDHFS
  1. .S %ZIS("HFSNAME")=MDDIR_MDFILE,%ZIS("HFSMODE")="W",IOP="MDHFS;P-MDHFS"
  1. .D ^%ZIS I POP D LOGERR(MDPTR,"No HFS Access or device MDHFS") Q
  1. .S ORHFS="SCRATCH"
  1. .U IO D EN^MCAPI(MDPTR,0) D ^%ZISC
  1. .;
  1. .; Fetch the report text
  1. .K ^TMP($J)
  1. .S X=$$FTG^%ZISH(MDDIR,MDFILE,$NA(^TMP($J,1)),2)
  1. .;
  1. .; Delete the Host File
  1. .S DELETE(MDFILE)=""
  1. .S X=$$DEL^%ZISH(MDDIR,"DELETE")
  1. .; Is it a valid report?
  1. .S LINES=$O(^TMP($J,""),-1)
  1. .S BYTES=0 F X=0:0 S X=$O(^TMP($J,X)) Q:'X S BYTES=BYTES+$L(^(X))
  1. .I LINES<5&(^TMP($J,2)["BAD MEDICINE") D LOGERR(MDPTR,^TMP($J,2)) Q
  1. .;
  1. .; Get Legal header For Report
  1. .S RESULTS=$NA(^TMP($J)) D GETHDR^MDESPRT(.RESULTS,MDPTR)
  1. .;
  1. .; If test mode quit at this point
  1. .I MDTEST D FINISH(MDPTR,LINES,BYTES,"") S MDCNVT("CT")=MDCNVT("CT")+1 Q
  1. .;
  1. .; If real mode set to Unspecified Error status and proceed
  1. .;D LOGERR(MDPTR,"Unspecified Error")
  1. .S MDNODE=$G(^MDD(703.9,1,2,+MDREC,0))
  1. .S MDNODE=$P(MDNODE,U,1)
  1. .;
  1. .; Create the note
  1. .S MDTIUI=$$CONVERT^MDCVT1(MDNODE,$NA(^TMP($J)))
  1. .I +MDTIUI'>0 D LOGERR(MDPTR,"Couldn't create the TIU document") Q
  1. .;
  1. .; Update Consults and Imaging
  1. .;
  1. .D UPD^MDCVT1(MDGBL,MDNODE,MDTIUI,MDTEST)
  1. .;
  1. .; Flag as finished
  1. .;
  1. .D FINISH(MDPTR,LINES,BYTES,MDTIUI) S MDCNVT("CR")=MDCNVT("CR")+1
  1. ;
  1. D TOTALS^MDCVT1(.MDCNVT)
  1. Q
  1. ;
  1. TESTHFS() ; Verify HFS is working properly
  1. N MDNOW
  1. S %ZIS("HFSNAME")=MDDIR_MDFILE,%ZIS("HFSMODE")="W",IOP="MDHFS;P-MDHFS"
  1. D ^%ZIS I POP W !,"No HFS Access or missing device MDHFS" Q 0
  1. S X=1 D Q:'X 0
  1. .I IOT'="HFS" W !,"Device MDHFS not of type HFS" S X=0
  1. .I IOST'="P-MDHFS" W !,"Missing Terminal Type P-MDHFS" S X=0 Q
  1. .I IOSL'=88 W !,"Improper Page Length in Terminal Type P-MDHFS" S X=0
  1. .I IOM'=80 W !,"Improper Page Width in Terminal Type P-MDHFS" S X=0
  1. .I IOF'="#" W !,"Improper Form Feed in Terminal Type P-MDHFS" S X=0
  1. ;
  1. D NOW^%DTC S MDNOW=% K %
  1. U IO W !!,MDNOW
  1. D ^%ZISC
  1. ;
  1. ; Fetch the text
  1. K ^TMP($J)
  1. S X=$$FTG^%ZISH(MDDIR,MDFILE,$NA(^TMP($J,1)),2)
  1. I 'X W !,"Unable to retrieve data back from Host File" Q 0
  1. I ^TMP($J,3)'=MDNOW W !,"Error verifying data in Host File" Q 0
  1. ;
  1. ; Delete the Host File
  1. S DELETE(MDFILE)=""
  1. S X=$$DEL^%ZISH(MDDIR,"DELETE")
  1. I X'=1 W !,"Unable delete Host File" Q 0
  1. Q 1
  1. ;
  1. ERR ; M Error trap submodule to document error and continue
  1. D LOGERR(MDPTR,$ECODE)
  1. I $G(ION)="MDHFS" D ^%ZISC ; Close device if using the HFS
  1. G EN1
  1. ;
  1. FINISH(MDPTR,LINES,BYTES,TIUIEN) ; Update status to converted
  1. N MDFDA,MDIEN,MDIENS
  1. S MDIEN=$O(^MDD(703.9,1,2,"B",MDPTR,0))
  1. I MDIEN<1 W !,"Error, no log entry ",MDPTR Q
  1. S MDIENS=MDIEN_",1,"
  1. I MDTEST S MDFDA(703.92,MDIENS,.02)="CT"
  1. E S MDFDA(703.92,MDIENS,.02)="CR"
  1. S MDFDA(703.92,MDIENS,.03)=TIUIEN
  1. S MDFDA(703.92,MDIENS,.04)=LINES
  1. S MDFDA(703.92,MDIENS,.05)=BYTES
  1. S MDFDA(703.92,MDIENS,.1)=LINES_" lines, "_BYTES_" bytes"
  1. D FILE^DIE("","MDFDA")
  1. Q
  1. ;
  1. LOGERR(MDPTR,ERRMSG) ; Log conversion error
  1. N MDFDA,MDIEN,MDIENS
  1. S MDIEN=$O(^MDD(703.9,1,2,"B",MDPTR,0))
  1. I MDIEN<1 W !,"Error, no log entry ",MDPTR Q
  1. S MDIENS=MDIEN_",1,"
  1. S MDFDA(703.92,MDIENS,.02)="E"
  1. S MDFDA(703.92,MDIENS,.1)=$TR(ERRMSG,U,"~")
  1. D FILE^DIE("","MDFDA")
  1. W "*" ; Progress indicator
  1. Q
  1. ;
  1. RESET ; Reset error status reports to READY TO CONVERT
  1. N MDIEN S MDIEN=0
  1. ; Check for real mode and convert test conversions
  1. I 'MDTEST F S MDIEN=$O(^MDD(703.9,1,2,"AS","CT",MDIEN)) Q:'MDIEN D
  1. .N MDFDA
  1. .S MDFDA(703.92,MDIEN_",1,",.02)="R"
  1. .D FILE^DIE("","MDFDA")
  1. ; Regardless of mode switch skipped back to ready
  1. F S MDIEN=$O(^MDD(703.9,1,2,"AS","S",MDIEN)) Q:'MDIEN D
  1. .N MDFDA
  1. .S MDFDA(703.92,MDIEN_",1,",.02)="R"
  1. .D FILE^DIE("","MDFDA")
  1. ; Regardless of mode switch errors back to ready
  1. F S MDIEN=$O(^MDD(703.9,1,2,"AS","E",MDIEN)) Q:'MDIEN D
  1. .N MDFDA
  1. .S MDFDA(703.92,MDIEN_",1,",.02)="R"
  1. .D FILE^DIE("","MDFDA")
  1. Q
  1. ;
  1. REBUILD ; [Procedure] Build the file manually
  1. N MDROOT
  1. S X=$P(^MDD(703.9,0),U,1,2)_U_U K ^MDD(703.9) S ^MDD(703.9,0)=X
  1. S MDROOT=$NA(^MDD(703.9,1))
  1. S @MDROOT@(0)="DEFAULT"
  1. S @MDROOT@(1,0)="^703.91P^^"
  1. F X=691,691.1,691.5,691.6,691.7,691.8,694,694.5,698,698.1,698.2,698.3,699,699.5,700,701 S @MDROOT@(1,X,0)=X
  1. S DA=1,DIK="^MDD(703.9," D IXALL^DIK K DA,DIK
  1. Q
  1. ;
  1. SETUP ; [Procedure]
  1. I '$O(^MDD(703.9,0)) W !,"Initializing..." D REBUILD,SETDEF^MDSTATU
  1. S DDSFILE=703.9,DR="[MD MAIN]",DA=1 D ^DDS
  1. Q
  1. ;
  1. SKIP(MDPTR,REASON) ; [Procedure] Skip Report
  1. N MDFDA,MDIEN,MDIENS
  1. S MDIEN=$O(^MDD(703.9,1,2,"B",MDPTR,0))
  1. I MDIEN<1 W !,"Error, no log entry ",MDPTR Q
  1. S MDIENS=MDIEN_",1,"
  1. S MDFDA(703.92,MDIENS,.02)="S"
  1. S MDFDA(703.92,MDIENS,.1)=$TR(REASON,U,"~")
  1. D FILE^DIE("","MDFDA")
  1. Q
  1. ;
  1. SYNC(MDPTR) ; Make sure entry exists
  1. N MDFDA
  1. Q:$O(^MDD(703.9,1,2,"B",MDPTR,0))
  1. Q:$O(^MDD(702,"ACONV",MDPTR,0))
  1. S MDFDA(703.92,"+1,1,",.01)=MDPTR
  1. S MDFDA(703.92,"+1,1,",.02)="R"
  1. D UPDATE^DIE("","MDFDA")
  1. Q
  1. ;
  1. LOCKOUT ; Lockout Options and set API Flag
  1. D ^MDOUTOR
  1. Q
  1. ;
  1. STATUS(MDPTR) ; [Procedure] Return status of VPtr
  1. S X=$O(^MDD(703.9,1,2,"B",MDPTR,0))
  1. I X Q $P($G(^MDD(703.9,1,2,X,0)),U,2) ; Return actual status
  1. N MDFDA,MDIEN,MDMSG
  1. S MDFDA(703.92,"+1,1,",.01)=MDPTR
  1. S MDFDA(703.92,"+1,1,",.02)="N"
  1. D UPDATE^DIE("","MDFDA","MDIEN","MDMSG")
  1. I $G(MDIEN(1))<1 W !,"Error adding to conversion log ",MDPTR Q -1
  1. Q "N"
  1. ;
  1. SUMMARY ; Disk space requirements
  1. N FILE,LP,TOTB,TOTC,TOTL,X
  1. W !!,"Summarizing..."
  1. K ^TMP($J)
  1. S (TOTL,TOTC,TOTB)=0
  1. S MDSTAT=$O(^MDD(703.9,1,2,"AS","C")) ; will be CT or CR
  1. I MDSTAT'["C" W !!,"No report was converted. You MUST run the conversion in TEST or",!,"REAL mode first to be able to display the Disk Space Requirements." Q
  1. D S1 I MDSTAT="CR" S MDSTAT="CT" D S1
  1. W @IOF,!,"FILE",?42,$J("COUNT",8),?52,$J("LINES",8),?62,$J("BYTES",12)
  1. W !,$TR($J("",79)," ","-")
  1. S X="" F S X=$O(^TMP($J,X)) Q:X="" D
  1. .W !,$E($P(@X,U,1),1,40)
  1. .W ?42,$J(^TMP($J,X,"C"),8)
  1. .W ?52,$J(^TMP($J,X,"L"),8)
  1. .W ?62,$J(^TMP($J,X,"B"),12)
  1. .S TOTC=TOTC+^TMP($J,X,"C")
  1. .S TOTL=TOTL+^TMP($J,X,"L")
  1. .S TOTB=TOTB+^TMP($J,X,"B")
  1. W !?42,$TR($J("",37)," ","=")
  1. W !?42,$J(TOTC,8),?52,$J(TOTL,8),?62,$J(TOTB,12) K ^TMP($J)
  1. Q
  1. ;
  1. S1 ; Loop for both CT or CR Statuses
  1. N X S X="" F S X=$O(^MDD(703.9,1,2,"AS",MDSTAT,X)) Q:X="" D
  1. .S FILE=$P($G(^MDD(703.9,1,2,X,0)),U,1)
  1. .S FILE=U_$P(FILE,";",2)_"0)"
  1. .S ^TMP($J,FILE,"C")=$G(^TMP($J,FILE,"C"))+1
  1. .S ^TMP($J,FILE,"L")=$G(^TMP($J,FILE,"L"))+$P(^MDD(703.9,1,2,X,0),U,4)
  1. .S ^TMP($J,FILE,"B")=$G(^TMP($J,FILE,"B"))+$P(^MDD(703.9,1,2,X,0),U,5)
  1. Q
  1. TOTALS ; Count by Status
  1. N MDSTAT S MDSTAT=""
  1. F S MDSTAT=$O(^MDD(703.9,1,2,"AS",MDSTAT)) Q:MDSTAT="" D
  1. .S Y=0 F X=0:0 S X=$O(^MDD(703.9,1,2,"AS",MDSTAT,X)) Q:'X S Y=Y+1
  1. .S MDSTAT(MDSTAT)=Y
  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
  1. ;