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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MDHL7U2

Package: Clinical Procedures

Routine: MDHL7U2


Information

MDHL7U2 ; HOIFO/WAA -Utilities for CP PROCESSING OBX text ; 7/26/00

Source Information

Source file <MDHL7U2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Clinical Procedures 2 $$UPDATE^MDHL7U  ($$MG,$$VALRTN)^MDHL7U2  
VA FileMan 2 $$FIND1^DIC  $$GET1^DIQ  
Health Level Seven 1 $$HLNAME^HLFNC  
MailMan 1 $$GOTLOCAL^XMXAPIG  
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: 8

Package Total Caller Graph
Clinical Procedures 8 MDHL7A  MDHL7B  MDHL7BH  MDHL7U2  MDHL7U3  MDHL7X  MDRPCOO  MDUXMLM  

Entry Points

Name Comments DBIA/ICR reference
GET123(MDD702) ; return the IEN for an entry in 123 based on the 702
; This subroutine will return -1 if no entry is found
GETREF(CONSULT) ; Return the physician and pointer to 200
; in the format pointer200^last^first
MG(MG) ; This function is to validate that a mailgroup
; and that there is someone in it
INST(DEV,X) ; Process Device and determine if the device Functioning
; DEV = Name of the device from the .01 field
; X = 1 is true that the device cleared to process
; 0 is false the device is not allowed to process
; X(0) = The device name^IEN^Print name if one^
; Processing routine^Routine Checksum^Patch Level
; X(I) = The reasons why it is OR is not allowed to process
VALRTN(RTN) ; Function to check Validity
TEXT ;;PROCESS TEXT;.302
SAVE(TEXT) ; Save the data to the file 703.1
PROCESS(TEXT) ; Long lines
FTOHL7(DATE) ; This subroutine will make a file manager date an HL7 date

External References

Name Field # of Occurrence
$$FIND1^DIC INST+21
$$GET1^DIQ GET123+5, GETREF+4, GETREF+6, MG+12, INST+22
$$HLNAME^HLFNC GETREF+7
$$UPDATE^MDHL7U TEXT+4
$$MG^MDHL7U2 INST+19
$$VALRTN^MDHL7U2 INST+30
$$GOTLOCAL^XMXAPIG MG+14, INST+23
$$GET^XPAR INST+58

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^XMB(3.8 - [#3.8] FIND1^DIC,  GET1^DIQ
^MDD(702 - [#702] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" VALRTN+2
^MDD(702 - [#702] GET123+4
^MDD(703.1 - [#703.1] TEXT+6*, TEXT+7*, TEXT+35*, SAVE+3*
^MDS(702.09 - [#702.09] INST+10, INST+11, INST+25, INST+54
^TMP($J TEXT+8, TEXT+10, TEXT+17, TEXT+22, TEXT+24

Label References

Name Line Occurrences
PROCESS TEXT+19, TEXT+29
SAVE TEXT+27, TEXT+31, TEXT+33, PROCESS+4, PROCESS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT TEXT+1~, TEXT+3*, TEXT+8*, TEXT+10, TEXT+17, TEXT+22, TEXT+24
CNT2 TEXT+20~, TEXT+21*, TEXT+22*, TEXT+24
CONSULT GET123+2~, GET123+3*, GET123+5*, GET123+6*, GET123+8, GETREF~, GETREF+4, GETREF+6
DATE FTOHL7~, FTOHL7+2
DD FTOHL7+1~
DEL TEXT+1~, TEXT+3*, PROCESS+1~, PROCESS+2*, PROCESS+3, PROCESS+6, PROCESS+12
DEV INST~, INST+10*, INST+11, INST+12, INST+25, INST+54
DT TEXT+7, TEXT+35
HLDATE FTOHL7+1~, FTOHL7+2*, FTOHL7+3*, FTOHL7+4
HMS FTOHL7+1~
HOLD INST+33~
I INST+7~, INST+8*, INST+12, INST+13*, INST+14*, INST+15*, INST+16*, INST+17*, INST+21*, INST+23*
, INST+26*, INST+31*, INST+46*, INST+51*, INST+52*, INST+56*, INST+58*, INST+59, PROCESS+1~, PROCESS+6*
, PROCESS+7
J INST+7~, INST+48~, INST+55*
LINE INST+7~, INST+11*, INST+12, INST+13, INST+14, INST+15, INST+16, INST+17, INST+19, INST+21
, INST+22, INST+25*, INST+26, INST+29, INST+30, INST+33~, INST+34*, INST+35*, INST+36, INST+46
, INST+47, INST+50, INST+51, INST+52, INST+54*, INST+55, TEXT+9~, TEXT+10*, TEXT+11, TEXT+12
, TEXT+13, TEXT+14, TEXT+16
LN TEXT+1~, TEXT+3*, TEXT+7, TEXT+35, SAVE+1*, SAVE+3
LN2 PROCESS+1~, PROCESS+7*, PROCESS+8
>> MDATT( TEXT+6
MDD702 GET123~, GET123+4, GET123+5
>> MDDZ TEXT+4*, TEXT+5, TEXT+6, TEXT+7, TEXT+35, SAVE+3
>> MDIEN TEXT+4, TEXT+6, TEXT+7, TEXT+35, SAVE+3
MG MG~, MG+11, MG+12
MGU MG+10~, MG+12*, MG+13, MG+14, INST+20~, INST+22*, INST+23
MM FTOHL7+1~
MSG1 TEXT+23~, TEXT+24*, TEXT+26, TEXT+28
NREF GETREF+2~, GETREF+6*, GETREF+7*, GETREF+8
PHY GETREF+2~, GETREF+3*, GETREF+8*, GETREF+10
>> PROC TEXT+6
REF GETREF+2~, GETREF+4*, GETREF+5, GETREF+8
ROU INST+28~, INST+30*, INST+31, INST+35
ROUTINE INST+28~, INST+29*, INST+37, INST+38, INST+41
RTN VALRTN~, VALRTN+2
SCND INST+33~
>> SEP TEXT+2*, TEXT+26, TEXT+28, SAVE+2, PROCESS+2, PROCESS+7, PROCESS+12
TEXT TEXT+16*, TEXT+19, TEXT+26*, TEXT+27, TEXT+28*, TEXT+29, TEXT+31*, TEXT+33, SAVE~, SAVE+2*
, SAVE+3, PROCESS~, PROCESS+2, PROCESS+4, PROCESS+5*, PROCESS+7, PROCESS+12*
U INST+12, INST+14, INST+15, INST+16, INST+17, INST+19, INST+21, INST+22, INST+26, INST+29
, INST+30, INST+35, INST+46, INST+47, INST+50, INST+51, INST+52, INST+55
VLD INST+48~, INST+49*, INST+55*, INST+56
X MG+10~, MG+11*, MG+14*, MG+16, INST~, INST+9*, INST+59*, VALRTN+1~, VALRTN+2*, VALRTN+3
X( INST+12*, INST+13*, INST+14*, INST+15*, INST+16*, INST+17*, INST+21*, INST+23*, INST+26*, INST+31*
, INST+46*, INST+51*, INST+52*, INST+56*, INST+58*
X(0 INST+34, INST+36*
X(1 INST+59*
X(10 INST+39*
X(11 INST+40*
X(12 INST+41*
X(13 INST+42*
X(14 INST+43*
Y INST+7~
YYYY FTOHL7+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All