Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: MDCVT

Package: Clinical Procedures

Routine: MDCVT


Information

MDCVT ; HOIFO/DP/NCA - Medicine Package Conversion ;10/20/04 12:49

Source Information

Source file <MDCVT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; [Procedure] Main entry point to convert database to TIU notes
EN1 ; [Procedure] Resumes on error via $ETRAP variable
TESTHFS() ; Verify HFS is working properly
ERR ; M Error trap submodule to document error and continue
FINISH(MDPTR,LINES,BYTES,TIUIEN) ; Update status to converted
LOGERR(MDPTR,ERRMSG) ; Log conversion error
RESET ; Reset error status reports to READY TO CONVERT
REBUILD ; [Procedure] Build the file manually
SETUP ; [Procedure]
SKIP(MDPTR,REASON) ; [Procedure] Skip Report
SYNC(MDPTR) ; Make sure entry exists
LOCKOUT ; Lockout Options and set API Flag
STATUS(MDPTR) ; [Procedure] Return status of VPtr
SUMMARY ; Disk space requirements
S1 ; Loop for both CT or CR Statuses
TOTALS ; Count by Status

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Already Converted"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"No Administrative Closure Person."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"No Conversion List. Run Build Conversion List option."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: @IOF,!,"Medicine to Clinical Procedure Conversion"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"HFS Device Error: ",$P(X,U,2)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,"Conversion in progress...",!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !?5,"[.] Indicates converted record"
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !?5,"[*] Indicates error in record",!!
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !,"No HFS Access or missing device MDHFS"
  • Line Location: TESTHFS+3
Function Call: WRITE
  • Prompt: !,"Device MDHFS not of type HFS"
  • Line Location: TESTHFS+5
Function Call: WRITE
  • Prompt: !,"Missing Terminal Type P-MDHFS"
  • Line Location: TESTHFS+6
Function Call: WRITE
  • Prompt: !,"Improper Page Length in Terminal Type P-MDHFS"
  • Line Location: TESTHFS+7
Function Call: WRITE
  • Prompt: !,"Improper Page Width in Terminal Type P-MDHFS"
  • Line Location: TESTHFS+8
Function Call: WRITE
  • Prompt: !,"Improper Form Feed in Terminal Type P-MDHFS"
  • Line Location: TESTHFS+9
Function Call: WRITE
  • Prompt: !!,MDNOW
  • Line Location: TESTHFS+12
Function Call: WRITE
  • Prompt: !,"Unable to retrieve data back from Host File"
  • Line Location: TESTHFS+18
Function Call: WRITE
  • Prompt: !,"Error verifying data in Host File"
  • Line Location: TESTHFS+19
Function Call: WRITE
  • Prompt: !,"Unable delete Host File"
  • Line Location: TESTHFS+24
Function Call: WRITE
  • Prompt: !,"Error, no log entry ",MDPTR
  • Line Location: FINISH+3
Function Call: WRITE
  • Prompt: !,"Error, no log entry ",MDPTR
  • Line Location: LOGERR+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: LOGERR+8
Function Call: WRITE
  • Prompt: !,"Initializing..."
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: !,"Error, no log entry ",MDPTR
  • Line Location: SKIP+3
Function Call: WRITE
  • Prompt: !,"Error adding to conversion log ",MDPTR
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: !!,"Summarizing..."
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: !!,"No report was converted. You MUST run the conversion in TEST or",!,"REAL mode first to be able to display the Disk Space Requirements."
  • Line Location: SUMMARY+6
Function Call: WRITE
  • Prompt: @IOF,!,"FILE",?42,$J("COUNT",8),?52,$J("LINES",8),?62,$J("BYTES",12)
  • Line Location: SUMMARY+8
Function Call: WRITE
  • Prompt: !,$TR($J("",79)," ","-")
  • Line Location: SUMMARY+9
Function Call: WRITE
  • Prompt: !?42,$TR($J("",37)," ","=")
  • Line Location: SUMMARY+18
Function Call: WRITE
  • Prompt: !?42,$J(TOTC,8),?52,$J(TOTL,8),?62,$J(TOTB,12)
  • Line Location: SUMMARY+19
Function Call: WRITE
  • Prompt: @IOF,!,"Conversion Totals",!,$TR($J("",35)," ","-")
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !,"Converted REAL Mode: ",$J(+$G(MDSTAT("CR")),9)
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: !,"Converted TEST Mode: ",$J(+$G(MDSTAT("CT")),9)
  • Line Location: TOTALS+7
Function Call: WRITE
  • Prompt: !,"Skipped: ",$J(+$G(MDSTAT("S")),9)
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: !,"Error: ",$J(+$G(MDSTAT("E")),9)
  • Line Location: TOTALS+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MDD(703.9 - [#703.9] Classic Fileman Calls
703.92 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call