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 |  Local Variables  | All
Print Page as PDF
Routine: MDCONUTL

Package: Clinical Procedures

Routine: MDCONUTL


Information

MDCONUTL ; WOIFO/KLM - CP Conversion Utility ;31 Oct 2018 2:31 PM

Source Information

Source file <MDCONUTL.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DIE  ($$GET1,GETS)^DIQ  

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: 2

Package Total Caller Graph
Clinical Procedures 2 MD CONCONVERT  MD PROCONVERT  

Entry Points

Name Comments DBIA/ICR reference
CONVERT ; Convert consults to procedures.
CSCVRT ;Select consult service and procedure for conversion
PRCVRT ;Select consult service and procedures for conversion
START ; Start process conversion
GETSER(MDNUM) ; Get the Consult service
SETTS ;Set Consult 'TO SERVICE'
SETPR(MDF) ;Set Procedure
DICSRN(MDCON) ;Screen for DICOM consults

External References

Name Field # of Occurrence
^DIC START+5, SETTS+5, SETPR+6, SETPR+16
FILE^DIE START+9, START+37
$$GET1^DIQ START+1, START+3, START+23, START+27, START+29, SETPR+7, DICSRN+6
GETS^DIQ GETSER+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine utility will get all the pending consults of "
  • Line Location: CSCVRT+1
Function Call: WRITE
  • Prompt: !,"a selected REQUEST SERVICE and convert them to a selected GMRC procedures.",!
  • Line Location: CSCVRT+2
Function Call: WRITE
  • Prompt: !,"Note that consults that are currently setup with DICOM (in the CLINICAL "
  • Line Location: CSCVRT+3
Function Call: WRITE
  • Prompt: !,"SPECIALTY DICOM & HL7 file) cannot be converted to CP with this utility."
  • Line Location: CSCVRT+4
Function Call: WRITE
  • Prompt: !,"DICOM consults will need to discontinued and re-ordered.",!
  • Line Location: CSCVRT+5
Function Call: WRITE
  • Prompt: !!,"This routine utility will get all the pending, active, and"
  • Line Location: PRCVRT+1
Function Call: WRITE
  • Prompt: !,"scheduled procedures of a selected REQUEST SERVICE and convert"
  • Line Location: PRCVRT+2
Function Call: WRITE
  • Prompt: !,"them to a selected GMRC procedures.",!
  • Line Location: PRCVRT+3
Function Call: WRITE
  • Prompt: !,"Note that Procedures that are currently setup with DICOM (in the CLINICAL "
  • Line Location: PRCVRT+4
Function Call: WRITE
  • Prompt: !,"SPECIALTY DICOM & HL7 file) cannot be converted to CP with this utility."
  • Line Location: PRCVRT+5
Function Call: WRITE
  • Prompt: !,"DICOM procedures will need to discontinued and re-ordered.",!
  • Line Location: PRCVRT+6
Function Call: WRITE
  • Prompt: !,"Still missing CP Definition."
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,MDCPRE," procedures...",!
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !,"RELATED SERVICE missing from "_$S($D(MDCPRE):MDCPRE,1:MDFRE)_" - no records converted"
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !," Record # ",MDIEN," converted."
  • Line Location: START+39
Function Call: WRITE
  • Prompt: !!,"Total Records converted = ",MDCOUNT
  • Line Location: START+42
Function Call: WRITE
  • Prompt: !!,"This procedure is already a CP - cannot convert",!
  • Line Location: SETPR+7
Function Call: WRITE
  • Prompt: !!,"Procedure/Service setup for DICOM - Cannot convert"
  • Line Location: SETPR+17
Routine Call
  • DIC
  • Line Location:
    • START+5
    • SETTS+5
    • SETPR+6
    • SETPR+16
Routine Call
  • DIE
  • Line Location:
    • START+9
    • START+37

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(100.01 - [#100.01] GET1^DIQ
^GMR(123.3 - [#123.3] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
^GMR(123.5 - [#123.5] Classic Fileman Calls
^MAG(2006.5831 - [#2006.5831] GET1^DIQ
^MDS(702.01 - [#702.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR( START+21, START+25, START+26
^GMR(123 - [#123] START+36, START+38
^GMR(123.3 - [#123.3] START+8, START+10
^MAG(2006.5831 - [#2006.5831] SETPR+17, DICSRN+5

Label References

Name Line Occurrences
$$GETSER START+20
CSCVRT CONVERT+8
PRCVRT CONVERT+11
SETPR CSCVRT+7, PRCVRT+7, PRCVRT+8
SETTS CSCVRT+6
START CONVERT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC START+4*, SETTS+1~, SETTS+2*, SETPR+2~, SETPR+5*, SETPR+13~, SETPR+15*
DIC("A" SETPR+5*
DIC("S" SETTS+4*, SETPR+15*
DIC(0 START+4*, SETTS+2*, SETPR+5*, SETPR+15*
DTOUT START+5, SETTS+1~, SETTS+5, SETPR+2~, SETPR+6, SETPR+13~, SETPR+16
DUOUT START+5, SETTS+1~, SETTS+5, SETPR+2~, SETPR+6, SETPR+13~, SETPR+16
MDARY GETSER+1~
MDARY( GETSER+4
MDCON DICSRN~, DICSRN+5
MDCOUNT CONVERT+3~, CONVERT+6*, START+39*, START+42
MDCP CONVERT+3~, START+1*, START+2, START+6*, START+7, START+12, START+33
MDCPR CONVERT+3~, CSCVRT+7, PRCVRT+8, START+1, START+3, START+7, START+8, START+10, START+20, START+34
, SETPR+8*
MDCPRE CONVERT+4~, START+19, START+20, SETPR+8*
MDCPRST CONVERT+3~, START+23*, START+24
MDCPST CONVERT+3~, START+22*, START+23
MDDA DICSRN+4~, DICSRN+5*, DICSRN+6
MDF CSCVRT+7*, CSCVRT+8!, PRCVRT+7*, PRCVRT+8*, PRCVRT+9!, SETPR~, SETPR+4, SETPR+5, SETPR+6!, SETPR+7
, SETPR+8!, SETPR+9!
MDFDA CONVERT+3~, START+9!
MDFDA( START+7*
MDFDA(123 START+32*, START+33*, START+34*, START+35*
MDFILE CONVERT+3~, CONVERT+5*, START+21, START+25, START+26, START+27, START+29
MDFR CONVERT+3~, PRCVRT+7, START+28, SETPR+9*, SETPR+11, SETPR+17
MDFRE CONVERT+4~, START+17, START+20, SETPR+9*
MDIEN CONVERT+3~, START+31*, START+32, START+33, START+34, START+35, START+36, START+38, START+39
MDIENS GETSER+1~, GETSER+2*, GETSER+3
MDK GETSER+1~, GETSER+4*
MDL CONVERT+3~, START+21*, START+22, START+25, START+26
MDLP CONVERT+3~, START+26*, START+27, START+29, START+31
MDNUM GETSER~, GETSER+2
>> MDOPT CONVERT+2
>> MDOPT("CONCONVERT" CONVERT+7, START+13, START+27, SETTS+4
>> MDOPT("PROCONVERT" START+28
MDQ SETPR+2~
MDS DICSRN+4~*, DICSRN+5, DICSRN+6*, DICSRN+8
MDSERV CONVERT+3~, START+20*, START+32
MDTE CONVERT+3~, START+25*, START+26
MDTOS CONVERT+3~, CSCVRT+6, PRCVRT+7, START+21, START+25, START+26, SETTS+6*, SETPR+11, SETPR+18*
MDTOSE CONVERT+4~, START+14, START+17, SETTS+6*, SETPR+18*
MDX CONVERT+4~, CONVERT+13, CSCVRT+6*, CSCVRT+7*, PRCVRT+7*, PRCVRT+8*, START+28, START+29*
MDY GETSER+1~, GETSER+4*, GETSER+5
U SETTS+6, SETPR+8, SETPR+9, SETPR+18
X SETTS+1~, SETPR+2~, SETPR+13~
Y START+5, START+6, SETTS+1~, SETTS+5, SETTS+6, SETPR+2~, SETPR+6, SETPR+7, SETPR+8, SETPR+9
, SETPR+13~, SETPR+16, SETPR+17, SETPR+18
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 |  Local Variables  | All