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

Package: Clinical Procedures

Routine: MDCONUT2


Information

MDCONUT2 ; HDSO/RJH - CP Conversion Utility ;31 Oct 2018 2:31 PM

Source Information

Source file <MDCONUT2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DIE  $$GET1^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: 1

Package Total Caller Graph
Clinical Procedures 1 MDCONUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for this routine
INTRO ;
GETPR(FROM) ; Get the user-selected procedure
GETRS(FROM) ; Get the Related Service from #123.32
CONVERT ; Convert the requested data
GETCP ; Get/define a clinical procedure for the target/TO procedure

External References

Name Field # of Occurrence
^DIC GETPR+3, GETRS+5, GETCP+4
FILE^DIE CONVERT+23, GETCP+12
$$GET1^DIQ GETPR+5, CONVERT+1, CONVERT+10, CONVERT+16, GETCP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This utility will get all pending, active, and scheduled"
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !,"procedures of a selected REQUEST SERVICES and convert them to"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"the selected REQUEST SERVICES in the selected GMRC procedure."
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,"Note that procedures currently setup with DICOM (in the CLINICAL "
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"SPECIALTY DICOM & HL7 file) cannot be converted to CP with this"
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !,"utility. DICOM procedures will need to discontinued and reordered."
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !!,"This procedure is already a Clinical Procedure - Cannot convert. Quitting...",!
  • Line Location: GETPR+6
Function Call: WRITE
  • Prompt: !!,"Procedure/Service setup for DICOM - Cannot convert. Quitting...",!
  • Line Location: GETRS+8
Function Call: WRITE
  • Prompt: !!,"We will proceed to convert ",MDFPRCD," in ",MDFSVCD
  • Line Location: CONVERT+4
Function Call: WRITE
  • Prompt: !,"to ",MDTPRCD," procedures in ",MDTSVCD,!
  • Line Location: CONVERT+5
Function Call: WRITE
  • Prompt: !," Record # ",MDIEN," converted."
  • Line Location: CONVERT+25
Function Call: WRITE
  • Prompt: !!,"Total records converted = ",MDCOUNT,!
  • Line Location: CONVERT+30
Function Call: WRITE
  • Prompt: !,"Missing Clinical Procedure Definition in ",$$GET1^DIQ(123.3,+MDTPRC,.01),!
  • Line Location: GETCP+2
Function Call: WRITE
  • Prompt: !!,"Unable to lock the "_MDTPRCD_" record. Quitting..."
  • Line Location: GETCP+8
Routine Call
  • DIC
  • Line Location:
    • GETPR+3
    • GETRS+5
    • GETCP+4
Routine Call
  • DIE
  • Line Location:
    • CONVERT+23
    • GETCP+12

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] CONVERT+9, CONVERT+13, CONVERT+15, CONVERT+22, CONVERT+24
^GMR(123.3 - [#123.3] GETCP+7, GETCP+13
^MAG(2006.5831 - [#2006.5831] GETRS+7

Label References

Name Line Occurrences
CONVERT EN+8
GETCP CONVERT+2
GETPR EN+6
GETRS GETPR+10, GETPR+15
INTRO EN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC GETPR+1~, GETPR+2*, GETRS+1~, GETRS+2*, GETCP+1~, GETCP+3*
DIC("A" GETPR+2*
DIC("S" GETRS+4*
DIC(0 GETPR+2*, GETRS+2*, GETCP+3*
DTOUT GETPR+1~, GETPR+3, GETRS+1~, GETRS+5, GETCP+1~, GETCP+4
DUOUT GETPR+1~, GETPR+3, GETRS+1~, GETRS+5, GETCP+1~, GETCP+4
FROM EN+2~, EN+6*, GETPR~, GETPR+2, GETPR+4, GETPR+10, GETPR+15, GETRS~, GETRS+4, GETRS+6
MDCOUNT EN+1~, EN+3*, CONVERT+25*, CONVERT+30
MDCP EN+1~, CONVERT+1*, CONVERT+2, CONVERT+19, GETCP+5*, GETCP+6
MDDT EN+2~, CONVERT+12*, CONVERT+13*, CONVERT+15
MDFDA EN+2~, GETCP+12!
MDFDA( GETCP+6*
MDFDA(123 CONVERT+18*, CONVERT+19*, CONVERT+20*, CONVERT+21*
MDFPRC EN+1~, GETPR+9*, GETRS+7
MDFPRCD EN+1~, GETPR+9*, CONVERT+4, CONVERT+17
MDFSVC EN+1~, GETRS+11*, CONVERT+9, CONVERT+13, CONVERT+15
MDFSVCD EN+1~, GETRS+11*, CONVERT+4
MDIEN EN+2~, CONVERT+14*, CONVERT+15*, CONVERT+16, CONVERT+18, CONVERT+19, CONVERT+20, CONVERT+21, CONVERT+22, CONVERT+24
, CONVERT+25
MDPRT EN+2~, CONVERT+16*, CONVERT+17
MDSTS EN+2~, CONVERT+8*, CONVERT+9*, CONVERT+10, CONVERT+13, CONVERT+15
MDSTSD EN+2~, CONVERT+10*, CONVERT+11
MDTPRC EN+1~, GETPR+14*, CONVERT+1, CONVERT+20, GETCP+2, GETCP+6, GETCP+7, GETCP+13
MDTPRCD EN+1~, GETPR+14*, CONVERT+5, GETCP+8
MDTSVC EN+1~, GETRS+15*, CONVERT+18
MDTSVCD EN+1~, GETRS+15*, CONVERT+5
STOP EN+2~, EN+3*, EN+6, EN+7, GETPR+3*, GETPR+7*, GETPR+13, GETRS+5*, GETRS+9*, GETRS+14
, CONVERT+2, GETCP+4*, GETCP+9*
U GETPR+9, GETPR+14, GETRS+11, GETRS+15
X GETPR+1~, GETRS+1~, GETCP+1~
Y GETPR+1~, GETPR+3, GETPR+5, GETPR+9, GETPR+14, GETRS+1~, GETRS+5, GETRS+7, GETRS+11, GETRS+15
, GETCP+1~, GETCP+4, GETCP+5
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