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

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

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

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