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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call