Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 6 NOW^%DTC  ^DDS  (FILE,UPDATE)^DIE  IXALL^DIK  $$GET1^DIQ  ^DIR  
Clinical Procedures 4 ($$CONVERT,TOTALS,UPD)^MDCVT1  GETHDR^MDESPRT  ^MDOUTOR  SETDEF^MDSTATU  
Kernel 3 ^%ZIS  ^%ZISC  ($$DEL,$$FTG)^%ZISH  
Medicine 1 EN^MCAPI  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Clinical Procedures 7 MDCVT CONVERSION LOCKOUT  MDCVT DISK SPACE  MDCVT RUN  MDCVT SETUP  MDCVT TOTALS  MDCVT1  MDCVTU  

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

External References

Name Field # of Occurrence
NOW^%DTC TESTHFS+11
^%ZIS EN1+21, TESTHFS+3
^%ZISC EN1+23, TESTHFS+13, ERR+2
$$DEL^%ZISH EN1+31, TESTHFS+23
$$FTG^%ZISH EN1+27, TESTHFS+17
^DDS SETUP+2
FILE^DIE FINISH+11, LOGERR+7, RESET+6, RESET+11, RESET+16, SKIP+7
UPDATE^DIE SYNC+6, STATUS+6
IXALL^DIK REBUILD+7
$$GET1^DIQ EN1+4
^DIR EN+11, EN+20
EN^MCAPI EN1+23
$$CONVERT^MDCVT1 EN1+49
TOTALS^MDCVT1 EN1+60
UPD^MDCVT1 EN1+54
GETHDR^MDESPRT EN1+38
^MDOUTOR LOCKOUT+1
SETDEF^MDSTATU SETUP+1
$$GET^XPAR EN+3

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
Routine Call
  • DDS
  • Line Location:
    • SETUP+2
Routine Call
  • DIE
  • Line Location:
    • FINISH+11
    • LOGERR+7
    • RESET+6
    • RESET+11
    • RESET+16
    • SKIP+7
Routine Call
  • DIE
  • Line Location:
    • SYNC+6
    • STATUS+6
Routine Call
  • DIR
  • Line Location:
    • EN+11
    • EN+20
Routine Call
  • %ZIS
  • Line Location:
    • EN1+21
    • TESTHFS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MDD(703.9 - [#703.9] Classic Fileman Calls
703.92 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MDD(702 - [#702] SYNC+3
^MDD(703.9 - [#703.9] EN+4, EN+5, EN+6, EN+14, EN1+3, EN1+7, EN1+12, EN1+45, FINISH+2, LOGERR+2
RESET+3, RESET+8, RESET+13, REBUILD+2!*, REBUILD+3, SETUP+1, SKIP+2, SYNC+2, STATUS+1, STATUS+2
SUMMARY+5, S1+1, S1+2, S1+5, S1+6, TOTALS+2, TOTALS+3
^TMP($J EN1+26!, EN1+27, EN1+33, EN1+34, EN1+35, EN1+38, EN1+49, TESTHFS+16!, TESTHFS+17, TESTHFS+19
SUMMARY+3!, SUMMARY+10, SUMMARY+12, SUMMARY+13, SUMMARY+14, SUMMARY+15, SUMMARY+16, SUMMARY+17, SUMMARY+19!, S1+4*
S1+5*, S1+6*

Label References

Name Line Occurrences
$$TESTHFS EN+15
EN1 ERR+3
FINISH EN1+41, EN1+58
LOGERR EN1+13, EN1+15, EN1+21, EN1+35, EN1+50, ERR+1
REBUILD SETUP+1
RESET EN+24
S1 SUMMARY+7
SKIP EN1+8, EN1+14

Naked Globals

Name Field # of Occurrence
^( EN1+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TESTHFS+11!
>> %ZIS("HFSMODE" EN1+20*, TESTHFS+2*
>> %ZIS("HFSNAME" EN1+20*, TESTHFS+2*
BYTES EN1+34*, EN1+41, EN1+58, FINISH~, FINISH+9, FINISH+10
DA REBUILD+7*!, SETUP+2*
>> DDSFILE SETUP+2*
>> DELETE( EN1+30*, TESTHFS+22*
DIK REBUILD+7*!
DIR EN+9!, EN+11!, EN+18!, EN+20!
DIR("A" EN+10*, EN+11*, EN+19*
DIR("B" EN+11*, EN+20*
DIR(0 EN+9*, EN+18*
>> DIROUT EN+11, EN+20
>> DIRUT EN+11, EN+20
>> DR SETUP+2*
ERRMSG LOGERR~, LOGERR+6
FILE SUMMARY+1~, S1+2*, S1+3*, S1+4, S1+5, S1+6
IO EN1+23, TESTHFS+12
IOF EN+8, TESTHFS+9, SUMMARY+8, TOTALS+5
IOM TESTHFS+8
ION ERR+2
>> IOP EN1+20*, TESTHFS+2*
IOSL TESTHFS+7
IOST TESTHFS+6
>> IOT TESTHFS+5
LINES EN1+33*, EN1+35, EN1+41, EN1+58, FINISH~, FINISH+8, FINISH+10
LP SUMMARY+1~
MDCNVT EN+1~, EN1+60
MDCNVT("CR" EN+2*, EN1+58*
MDCNVT("CT" EN+2*, EN1+41*
MDCNVT("E" EN+2*
MDCNVT("S" EN+2*, EN1+9*, EN1+14*
MDCNVT("TOT" EN+2*, EN1+6*
MDCONS EN1+2~
MDDIR EN+1~, EN+14*, EN1+20, EN1+27, EN1+31, TESTHFS+2, TESTHFS+17, TESTHFS+23
MDECON EN1+2~
MDFDA EN1+2~, FINISH+1~, LOGERR+1~, RESET+4~, RESET+9~, RESET+14~, SKIP+1~, SYNC+1~, STATUS+3~
MDFDA( FINISH+5*, FINISH+6*, FINISH+7*, FINISH+8*, FINISH+9*, FINISH+10*, LOGERR+5*, LOGERR+6*, RESET+5*, RESET+10*
RESET+15*, SKIP+5*, SKIP+6*, SYNC+4*, SYNC+5*, STATUS+4*, STATUS+5*
MDFILE EN+1~, EN+14*, EN1+20, EN1+27, EN1+30, TESTHFS+2, TESTHFS+17, TESTHFS+22
>> MDGBL EN1+5*, EN1+7, EN1+10, EN1+12, EN1+54
MDIEN FINISH+1~, FINISH+2*, FINISH+3, FINISH+4, LOGERR+1~, LOGERR+2*, LOGERR+3, LOGERR+4, RESET+1~*, RESET+3*
RESET+5, RESET+8*, RESET+10, RESET+13*, RESET+15, SKIP+1~, SKIP+2*, SKIP+3, SKIP+4, STATUS+3~
MDIEN(1 STATUS+7
MDIENS FINISH+1~, FINISH+4*, FINISH+5, FINISH+6, FINISH+7, FINISH+8, FINISH+9, FINISH+10, LOGERR+1~, LOGERR+4*
, LOGERR+5, LOGERR+6, SKIP+1~, SKIP+4*, SKIP+5, SKIP+6
MDMSG STATUS+3~
MDNODE EN1+2~, EN1+45*, EN1+46*, EN1+49, EN1+54
MDNOTE EN1+2~
MDNOW TESTHFS+1~, TESTHFS+11*, TESTHFS+12, TESTHFS+19
MDOK EN1+2~, EN1+11, EN1+12*, EN1+13
MDPR EN1+2~
MDPTR EN1+4*, EN1+5, EN1+8, EN1+13, EN1+14, EN1+15, EN1+21, EN1+23, EN1+35, EN1+38
EN1+41, EN1+50, EN1+58, ERR+1, FINISH~, FINISH+2, FINISH+3, LOGERR~, LOGERR+2, LOGERR+3
, SKIP~, SKIP+2, SKIP+3, SYNC~, SYNC+2, SYNC+3, SYNC+4, STATUS~, STATUS+1, STATUS+4
, STATUS+7
MDR EN1+2~
MDR1 EN1+2~
MDREC EN+1~, EN+27*, EN1+3*, EN1+4, EN1+45
MDROOT REBUILD+1~, REBUILD+3*, REBUILD+4, REBUILD+5, REBUILD+6
MDSTAT EN1+10*, EN1+11, EN1+14, EN1+15, SUMMARY+5*, SUMMARY+6, SUMMARY+7*, S1+1, TOTALS+1~*, TOTALS+2*
TOTALS+3, TOTALS+4
MDSTAT( TOTALS+4*
MDSTAT("CR" TOTALS+6
MDSTAT("CT" TOTALS+7
MDSTAT("E" TOTALS+9
MDSTAT("S" TOTALS+8
MDSTUD EN1+2~
MDTEST EN+1~, EN+5*, EN+11, EN+19, EN1+17, EN1+41, EN1+54, FINISH+5, RESET+3
MDTIUI EN+1~, EN1+49*, EN1+50, EN1+54, EN1+58
MDUSR EN1+2~
MDX1 EN1+2~
MDXR EN+1~, EN+6*
ORHFS EN+1~, EN1+22*
>> POP EN1+21, TESTHFS+3
REASON SKIP~, SKIP+6
>> RESULTS EN1+38*
TIUIEN FINISH~, FINISH+7
TOTB SUMMARY+1~, SUMMARY+4*, SUMMARY+17*, SUMMARY+19
TOTC SUMMARY+1~, SUMMARY+4*, SUMMARY+15*, SUMMARY+19
TOTL SUMMARY+1~, SUMMARY+4*, SUMMARY+16*, SUMMARY+19
U EN+4, EN+5, EN+14, EN+15, EN1+5, EN1+7, EN1+10, EN1+12, EN1+46, LOGERR+6
REBUILD+2, SKIP+6, STATUS+2, SUMMARY+11, S1+2, S1+3, S1+5, S1+6
X EN+1~, EN+15*, EN1+27*, EN1+31*, EN1+34*, TESTHFS+4*, TESTHFS+5*, TESTHFS+6*, TESTHFS+7*, TESTHFS+8*
, TESTHFS+9*, TESTHFS+17*, TESTHFS+18, TESTHFS+23*, TESTHFS+24, REBUILD+2*, REBUILD+6*, STATUS+1*, STATUS+2, SUMMARY+1~
SUMMARY+10*, SUMMARY+11, SUMMARY+12, SUMMARY+13, SUMMARY+14, SUMMARY+15, SUMMARY+16, SUMMARY+17, S1+1~*, S1+2
S1+5, S1+6, TOTALS+3*
Y EN+1~, EN+11, EN+20, TOTALS+3*, TOTALS+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All