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

Package: Patient Care Component Reports

Routine: APCLSMU2


Information

APCLSMU2 ;cmi/flag/maw - APCL MU2 MESSAGE GENERATOR 5/12/2010 9:26:17 AM

Source Information

Source file <APCLSMU2.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 6 ^%DT  NOW^%DTC  ^DIC  ^DIK  $$GET1^DIQ  ^DIR  
Health Level Seven 3 $$HLDATE^HLFNC  ($$ADDMSG,$$ADDSEG,$$NEWBATCH,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  
Patient Care Component Reports 3 $$ICDDX^APCLSILU  LOG^APCLSMUN  ($$PRIMPOV,$$PRIMPROV)^APCLV  
IHS Patient 1 ($$AGE,$$HRN,KILL)^AUPNPAT  
IHS VA Utilities 1 ^XBGSAVE  
Kernel 1 $$FMTHL7^XLFDT  
Patient Care Component 1 ^APCDVLK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLSMUN  

Entry Points

Name Comments DBIA/ICR reference
EXPTYP() ;-- get the export type
LOOKDSC(TYPE,TAB,DSC,ECH) ;-- find a reverse value based on description
ERR ;
HL7 ;-- generate the HL7 file
OBXAGE(P,V,CNT) ;-- setup the visit OBX
POVS(V) ;-- count the POVs
WRITE2 ; use XBGSAVE to save the temp global (APCLDATA) to a delimited
LOOKTABM(TYPE,TAB,VAL,ECH) ;-- find the value and description in the HL7 tables
ECOD(EDXI,EDXT) ;-- populate the DG1 segment with Ecodes
DATET(D) ;EP
LOOKTAB(TYPE,TAB,VAL,ECH) ;-- find the value and description in the HL7 tables
REST2(M,MP) ;-- write out the remainder of the segments to the global
MSG(HLST,HLPM,EVN,VST,PAT) ;EP - create the message based on the event type and visit
OBXUNIT(P,V,CNT) ;-- setup units
SETGL2(D) ;-- set the temp global
PV1(EV,V,P) ;-- setup the JVN PV1 segment
GETVISIT ;EP - this entry point called by the BVP package (View patient record)
SETHL(MTYPE,EVNTTYPE) ;-- setup HLO variables
FIXZIP(DFN,ZIP) ;EP
WRITE(E,P,VD) ; use XBGSAVE to save the temp global (APCLDATA) to a delimited
; file that is exported to the IE system
DG1P(EV,V,FL) ;-- set the repeating DG1
OBXCC(V,CNT) ;-- setup the chief complaint OBX
FNDPPOV(VS) ;--find ien of primary pov
DG1S(EV,V) ;-- set the secondary DXs
GL2(IN) ;-- write out batch
SETGL(D) ;-- set the temp global
EVN(EVNTTYPE) ;Create the EVN segment
GETPAT ;EP GET- PATIENT
FNDH(VDT,EDT,P) ;-- find the next H visit within 48 hours
PID(P) ;EP
HLD(FDT) ;-- convert to HL7 date
EOJ ; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
OBXLOC(V,CNT) ;-- setup the location OBX
LZERO(V,L) ;EP - left zero fill
MSH(MS,EV) ;EP
OPT ;EP - option to export via date range or patient
GL(IN,EV,PT,VDD) ;-- write out the batch to a global for saving in APCLSLAB
REST(M) ;-- write out the remainder of the segments to the global
PATEXP ;-- ask the patient and visit date
DATEXP ;-- ask the date range
DATE(D) ;EP
PV2(V,PT) ;-- setup the PV2 segment
SET(ARY,V,F,C,S,R) ;EP
BATCH(HLPARM) ;-- start the message batch here

External References

Name Field # of Occurrence
^%DT DATEXP+3, DATEXP+7, HLD+4
NOW^%DTC MSH+2, EVN+2
^APCDVLK GETVISIT+3
$$ICDDX^APCLSILU PV2+23, OBXCC+20, DG1P+12, DG1S+13, ECOD+6
LOG^APCLSMUN HL7+21
$$PRIMPOV^APCLV DG1P+9, DG1P+10, DG1P+19
$$PRIMPROV^APCLV PV1+2
$$AGE^AUPNPAT OBXAGE+3
$$HRN^AUPNPAT PID+4, WRITE+6
KILL^AUPNPAT EOJ+4
^DIC GETPAT+4
^DIK GL2+18, GL2+19
$$GET1^DIQ MSG+3, MSG+30, PID+5, PID+7, PID+10, PID+11, PID+12, PID+13, PID+14, PID+16
, PID+17, PID+20, PID+21, PID+22, PID+25, PID+26, PV1+3, PV1+4, PV1+17, PV1+20
, PV1+25, PV1+28, PV2+18, PV2+19, PV2+21, OBXLOC+3, OBXCC+10, OBXCC+13, OBXCC+14, OBXCC+17
, OBXCC+20, DG1P+28, DG1P+29, DG1P+30, DG1S+11, DG1S+18, DG1S+31, DG1S+32, DG1S+33, ECOD+4
, ECOD+9, FIXZIP+2
^DIR EXPTYP+3
$$HLDATE^HLFNC MSH+3, EVN+3
$$ADDMSG^HLOAPI MSG+10
$$ADDSEG^HLOAPI MSH+19, EVN+10, PID+49, PV1+29, PV2+33, OBXLOC+19, OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26
, DG1S+30, ECOD+17
$$NEWBATCH^HLOAPI BATCH+3
$$NEWMSG^HLOAPI SETHL+7
SET^HLOAPI SET+1
$$SENDONE^HLOAPI1 MSG+57
^XBGSAVE WRITE2+12, WRITE+9
$$FMTHL7^XLFDT PID+7, PID+27, PV1+28, HLD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No PATIENT selected!"
  • Line Location: PATEXP+2
Function Call: WRITE
  • Prompt: !!,"No VISIT selected!"
  • Line Location: PATEXP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+1
Routine Call
  • DIC
  • Line Location:
    • GETPAT+4
Routine Call
  • DIR
  • Line Location:
    • EXPTYP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(10 - [#10] GET1^DIQ
^DIC(10.2 - [#10.2] GET1^DIQ
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(40.7 - [#40.7] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^HLA - [#777] Classic Fileman Calls
^HLB - [#778] Classic Fileman Calls
^ICD9 - [#80] GET1^DIQ
^AUPNPAT - [#9000001] Classic Fileman Calls,  GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^AUPNVINP - [#9000010.02] GET1^DIQ
^AUPNVPOV - [#9000010.07] GET1^DIQ
^AUPNVER - [#9000010.29] GET1^DIQ
^AUPNVNT - [#9000010.34] GET1^DIQ
^AMERVSIT - [#9009080] GET1^DIQ
^AUTTCOM - [#9999999.05] GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ
^AUTTCTY - [#9999999.23] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMERVSIT("AD" HL7+12, PV1+18
^APCLDATA($J WRITE+15!
^APCLILIC(1 WRITE2+4
^APCLTMP($J GL2+1!, SETGL2+2*, WRITE2+19!, GL+1!, SETGL+2*, WRITE+14!
^AUPNVER("AD" HL7+13, PV1+23
^AUPNVINP("AD" PV2+16
^AUPNVNT - [#9000010.34] OBXCC+11, OBXCC+12
^AUPNVNT("AD" OBXCC+9
^AUPNVPOV - [#9000010.07] FNDPPOV+4, DG1S+9
^AUPNVPOV("AD" FNDPPOV+3, DG1S+5, POVS+3
^AUPNVSIT - [#9000010] HL7+8, DATEXP+12, MSG+30, OBXLOC+2
^AUPNVSIT("AAH" FNDH+2, FNDH+3
^AUPNVSIT("B" DATEXP+10, DATEXP+11
^AUTTLOC - [#9999999.06] WRITE2+7, WRITE+5
^AUTTSITE(1 PID+5, PV1+4, WRITE2+7, WRITE+5
^DGPM - [#405] PV2+20
^DGPM("AVST" PV2+14
^DIC(5 - [#5] PID+15
^DPT - [#2] MSG+32, PID+3, PID+6, PID+8, PID+9, PID+23, PID+24, OBXUNIT+1
^HLA - [#777] REST2+3, REST2+4, REST+3, REST+4
^HLB - [#778] GL2+4, GL2+5, GL2+6, GL2+7, GL2+10, GL2+12, GL2+13, GL2+14, GL+4
^ICD9("AB" PV2+20, OBXCC+16
^XTMP("APCLMUSS" HL7+2, HL7+5, HL7+6

Label References

Name Line Occurrences
$$DATE WRITE2+9
$$DATET WRITE+6
$$EXPTYP OPT+2
$$LOOKTABM OBXLOC+9
$$LZERO PV1+5
$$POVS DG1S+3
BATCH HL7+1
DATEXP OPT+5
DG1P DG1S+4
DG1S MSG+25, MSG+45
ECOD MSG+26, MSG+46, DG1P+31, DG1P+32, DG1P+33, DG1S+34, DG1S+35, DG1S+36
EOJ PATEXP+2, PATEXP+4, DATEXP+4, DATEXP+8
EVN MSG+19
GETPAT PATEXP+1
GETVISIT PATEXP+3
GL2 HL7+22
MSG PATEXP+5, HL7+10, HL7+14, HL7+20, DATEXP+13
OBXAGE MSG+39
OBXCC MSG+41
OBXLOC MSG+28
OBXUNIT MSG+36
PATEXP OPT+4
PID MSG+20
PV1 MSG+21
PV2 MSG+22
REST GL+5
REST2 GL2+17
SET MSH+4, MSH+5, MSH+6, MSH+7, MSH+8, MSH+9, MSH+10, MSH+11, MSH+12, MSH+13
, MSH+14, MSH+15, MSH+16, MSH+17, MSH+18, EVN+4, EVN+5, EVN+6, EVN+7, EVN+8
, EVN+9, PID+28, PID+29, PID+30, PID+31, PID+32, PID+34, PID+35, PID+36, PID+37
, PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+44, PID+47, PID+48, PV1+6
, PV1+7, PV1+8, PV1+9, PV1+10, PV1+11, PV1+12, PV1+13, PV1+27, PV1+28, PV2+28
, PV2+29, PV2+30, PV2+32, OBXLOC+10, OBXLOC+11, OBXLOC+12, OBXLOC+13, OBXLOC+14, OBXLOC+15, OBXLOC+16
, OBXLOC+17, OBXLOC+18, OBXUNIT+3, OBXUNIT+4, OBXUNIT+5, OBXUNIT+6, OBXUNIT+7, OBXUNIT+8, OBXUNIT+9, OBXUNIT+10
, OBXAGE+5, OBXAGE+6, OBXAGE+7, OBXAGE+8, OBXAGE+9, OBXAGE+10, OBXAGE+11, OBXAGE+12, OBXAGE+13, OBXAGE+14
, OBXCC+24, OBXCC+25, OBXCC+26, OBXCC+27, OBXCC+29, OBXCC+30, OBXCC+31, OBXCC+32, OBXCC+33, OBXCC+34
, DG1P+20, DG1P+21, DG1P+22, DG1P+23, DG1P+24, DG1P+25, DG1S+23, DG1S+24, DG1S+26, DG1S+27
, DG1S+28, DG1S+29, ECOD+11, ECOD+12, ECOD+13, ECOD+14, ECOD+15, ECOD+16
SETGL REST2+6, REST+9
SETGL2 GL2+9, GL2+16
WRITE GL+6
WRITE2 GL2+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MSH+1~, MSH+3, EVN+1~, EVN+3, LZERO+1~, LZERO+2*, EOJ+2!
%DT DATEXP+2*, DATEXP+6*, HLD+3*, EOJ+2!
%DT("A" DATEXP+2*, DATEXP+6*
%X EOJ+2!
%Y EOJ+2!
ADD PID+2~, PID+11*, PID+37
ADD2 PID+2~, PID+12*, PID+38
>> ADMT PV2+14*, PV2+15, PV2+20, PV2+21
AGE OBXAGE+2~, OBXAGE+3*, OBXAGE+4, OBXAGE+10
APCDCAT EOJ+3!
APCDCLN EOJ+3!
APCDDATE EOJ+3!
APCDLOC EOJ+3!
APCDLOOK GETVISIT+1*, GETVISIT+4!, EOJ+3!
APCDPAT PATEXP+2, PATEXP+5, GETPAT+3*, GETPAT+6*, EOJ+3!
APCDTYPE EOJ+3!
APCDVLK GETVISIT+2!
APCDVSIT PATEXP+4, PATEXP+5, GETVISIT+1*, EOJ+3!
>> APCLASU WRITE2+7*, WRITE2+9, WRITE+5*
APCLCNT GL2+3*, SETGL2+1*, SETGL2+2, WRITE2+19!, GL+3*, SETGL+1*, SETGL+2, WRITE+14!
>> APCLDA HL7+2*, HL7+5, HL7+6, HL7+8, HL7+10, HL7+12, HL7+13, HL7+14, HL7+20, HL7+21
>> APCLDBID MSH+6, PV1+9
>> APCLDFN WRITE2+9*, WRITE+6*
APCLFN WRITE2+1~, WRITE+2~
APCLINP HL7+3~, HL7+6*, HL7+20, PV2+12
>> APCLLOG HL7+21
>> APCLPAT HL7+8*, HL7+9, HL7+10, HL7+14, HL7+20
APCLRST HL7+3~, HL7+5*, HL7+7, HL7+21
>> APCLSEVN HL7+7*, HL7+10
>> APCLVCNT HL7+4*
>> APPARMS MSG+57
>> APPARMS("ACCE PT ACK RESPONSE" , MSG+51*, PT ACK TYPE" , MSG+49*
>> APPARMS("APP ACK RESPONSE" , MSG+50*, ACK TYPE" , MSG+52*
>> APPARMS("QUEUE" MSG+53*
>> APPARMS("RECE IVING APPLICATION" , MSG+48*
>> APPARMS("SEND ING APPLICATION" , MSG+47*
ARY MSH+4, MSH+5, MSH+6, MSH+7, MSH+8, MSH+9, MSH+10, MSH+11, MSH+12, MSH+13
, MSH+14, MSH+15, MSH+16, MSH+17, MSH+18, MSH+19, EVN+4, EVN+5, EVN+6, EVN+7
, EVN+8, EVN+9, EVN+10, PID+28, PID+29, PID+30, PID+31, PID+32, PID+34, PID+35
, PID+36, PID+37, PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+44, PID+47
, PID+48, PID+49, PV1+6, PV1+7, PV1+8, PV1+9, PV1+10, PV1+11, PV1+12, PV1+13
, PV1+27, PV1+28, PV1+29, PV2+28, PV2+29, PV2+30, PV2+32, PV2+33, OBXLOC+10, OBXLOC+11
, OBXLOC+12, OBXLOC+13, OBXLOC+14, OBXLOC+15, OBXLOC+16, OBXLOC+17, OBXLOC+18, OBXLOC+19, OBXUNIT+3, OBXUNIT+4
, OBXUNIT+5, OBXUNIT+6, OBXUNIT+7, OBXUNIT+8, OBXUNIT+9, OBXUNIT+10, OBXUNIT+11, OBXAGE+5, OBXAGE+6, OBXAGE+7
, OBXAGE+8, OBXAGE+9, OBXAGE+10, OBXAGE+11, OBXAGE+12, OBXAGE+13, OBXAGE+14, OBXAGE+15, OBXCC+24, OBXCC+25
, OBXCC+26, OBXCC+27, OBXCC+29, OBXCC+30, OBXCC+31, OBXCC+32, OBXCC+33, OBXCC+34, OBXCC+35, DG1P+20
, DG1P+21, DG1P+22, DG1P+23, DG1P+24, DG1P+25, DG1P+26, DG1S+23, DG1S+24, DG1S+26, DG1S+27
, DG1S+28, DG1S+29, DG1S+30, ECOD+11, ECOD+12, ECOD+13, ECOD+14, ECOD+15, ECOD+16, ECOD+17
, SET~, SET+1
>> AUPNLK("INAC" GETPAT+2*, EOJ+1!
BDA GL2+2~, GL2+10*, GL2+12, GL2+13, GL2+14, GL+2~
BDO GL2+2~, GL2+13*, GL2+14, GL+2~
BDT DATEXP+1~, DATEXP+5*, DATEXP+10
BT GL2+2~, GL2+8*, GL2+9, GL+2~
BT1 GL2+2~, GL2+5*, GL2+8, GL+2~
BT2 GL2+2~, GL2+6*, GL2+8, GL+2~
BT3 GL2+2~, GL2+7*, GL2+8, GL+2~
C SET~, SET+1, EOJ+2!
CC OBXCC+1~, OBXCC+17*
CCE OBXCC+1~, OBXCC+7~, OBXCC+8*, OBXCC+12*, OBXCC+13*, OBXCC+14*, OBXCC+15, OBXCC+16, OBXCC+33
CCI OBXCC+1~, OBXCC+16*, OBXCC+17, OBXCC+19, OBXCC+20, OBXCC+28
CD OBXLOC+1~, OBXLOC+4*, OBXLOC+6*, OBXLOC+7*, OBXLOC+8, OBXLOC+9, OBXLOC+15
CDA OBXCC+7~, OBXCC+9*, OBXCC+10, OBXCC+11, OBXCC+12
CITY PID+2~, PID+13*, PID+39
CL OBXLOC+1~, OBXLOC+2*, OBXLOC+3
CLC OBXLOC+1~, OBXLOC+3*, OBXLOC+6, OBXLOC+7
CN POVS+1~, POVS+2*, POVS+4*, POVS+5
CNT OBXLOC~, OBXLOC+11, OBXUNIT~, OBXUNIT+4, OBXAGE~, OBXAGE+6, OBXCC~, OBXCC+25
CNTR DG1S+1~, DG1S+2*, DG1S+3*, DG1S+4
CNTY PID+2~, PID+17*, PID+18, PID+22*, PID+42
COR PID+19~, PID+20*, PID+21
CTY PID+19~, PID+21*, PID+22
D HLD+2~, HLD+5*, HLD+6, SETGL2~, SETGL2+2, SETGL~, SETGL+2, DATE~, DATE+1, DATET~
, DATET+1
>> DA GL2+18*, GL2+19*
DADA DATEXP+1~, DATEXP+10*, DATEXP+11
DATA REST2+1~, REST2+4*, REST2+5, REST2+6, REST+1~, REST+4*, REST+5, REST+6, REST+7*, REST+8*
, REST+9
DDSP PV1+15~, PV1+16*, PV1+17*, PV1+21*, PV1+26*, PV1+27
DED PV1+15~, PV1+20*, PV1+21, PV1+25*, PV1+26
DESC LOOKTABM+1~, LOOKTABM+6*, LOOKTABM+7, LOOKTAB+1~, LOOKTAB+6*, LOOKTAB+7
DFN FIXZIP~, FIXZIP+2
>> DGCNT MSG+4*, MSG+24*
DIC GETPAT+4*!
DIC("A" GETPAT+4*
DIC(0 GETPAT+4*
DIEN DATEXP+1~, DATEXP+11*, DATEXP+12, DATEXP+13, DG1P+4~, DG1P+9*, DG1P+27, DG1P+28, DG1P+29, DG1P+30
>> DIK GL2+18*, GL2+19*
>> DIR("A" EXPTYP+2*
>> DIR(0 EXPTYP+1*
>> DIRUT EXPTYP+4
DIYS EOJ+2!
DOB PID+2~, PID+7*
DOD PID+2~, PID+26*, PID+27*, PID+47, PID+48
DSC OBXLOC+1~, OBXLOC+9*, OBXLOC+16, LOOKDSC~, LOOKDSC+4
DT OBXAGE+3, WRITE2+9
DUZ(2 PID+4, WRITE+6
DX PV2+19*, PV2+21*, PV2+23, PV2+24*, PV2+27*, PV2+29, DG1P+4~, DG1P+10*, DG1P+12, DG1P+14*
, DG1P+17, DG1P+18*, DG1P+22, DG1S+1~, DG1S+11*, DG1S+13, DG1S+15*, DG1S+22, DG1S+26
DXCNT DG1S+1~, DG1S+2*, DG1S+7*, DG1S+24, ECOD+2*, ECOD+3*, ECOD+12
DXDA DG1S+1~, DG1S+5*, DG1S+9, DG1S+31, DG1S+32, DG1S+33, POVS+1~, POVS+3*
DXE PV2+25*, PV2+30, DG1P+4~, DG1P+19*, DG1P+23, DG1S+1~, DG1S+18*, DG1S+27
DXI PV2+18*, PV2+20*, DG1S+1~, DG1S+9*, DG1S+11, DG1S+18
DXT DG1P+4~, DG1P+5*, DG1P+6*, DG1P+7*, DG1P+25, DG1P+31, DG1P+32, DG1P+33, DG1S+1~, DG1S+19*
, DG1S+20*, DG1S+21*, DG1S+29, DG1S+34, DG1S+35, DG1S+36
E WRITE~, WRITE+6
EC OBXCC+1~, OBXCC+22*, OBXCC+29
ECE OBXCC+1~, OBXCC+23*, OBXCC+30
ECH LOOKTABM~, LOOKTABM+7, LOOKTAB~, LOOKTAB+7, LOOKDSC~, LOOKDSC+7
ECI OBXCC+1~
ECOD1 DG1P+4~, DG1P+28*, DG1P+31, DG1S+1~, DG1S+31*, DG1S+34
ECOD2 DG1P+4~, DG1P+29*, DG1P+32, DG1S+1~, DG1S+32*, DG1S+35
ECOD3 DG1P+4~, DG1P+30*, DG1P+33, DG1S+1~, DG1S+33*, DG1S+36
EDA PID+2~, PID+23*, PID+24
EDT DATEXP+1~, DATEXP+9*, DATEXP+10, FNDH~, FNDH+4
EDX ECOD+1~, ECOD+4*, ECOD+6, ECOD+8*, ECOD+10, ECOD+13
EDXE ECOD+1~, ECOD+9*, ECOD+14
EDXI ECOD~, ECOD+4, ECOD+9
EDXT ECOD~, ECOD+5*, ECOD+16
ER HL7+11~, HL7+12*, HL7+13*, HL7+14
>> ERR BATCH+4*, MSG+10, MSG+57, MSG+58*, SETHL+7, EVN+10, PID+49, PV1+29, PV2+33, OBXLOC+19
, OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26, DG1S+30, ECOD+17
>> ERROR BATCH+3
ETH PID+2~, PID+25*, PID+43, PID+44
ETHI PID+2~, PID+24*, PID+25
EV MSH~, MSH+10, MSH+11, PV1~, PV1+8, PV1+14, DG1P~, DG1P+1, DG1P+2, DG1P+6
, DG1P+7, DG1S~, DG1S+4, DG1S+20, DG1S+21, GL~, GL+6
EVN MSG~, MSG+8, MSG+19, MSG+21, MSG+22, MSG+23, MSG+25, MSG+30, MSG+42, MSG+44
, MSG+45
EVNTTYPE SETHL~, SETHL+5, EVN~, EVN+5
F SET~, SET+1
FDT HLD~, HLD+1, HLD+4
FL DG1P~, DG1P+1, DG1P+5
FLD MSG+5~, SETHL+2~, MSH+1~, EVN+1~
GBL LOOKTABM+1~, LOOKTABM+2*, LOOKTABM+3*, LOOKTABM+4, LOOKTABM+6, LOOKTAB+1~, LOOKTAB+2*, LOOKTAB+3*, LOOKTAB+4, LOOKTAB+6
, LOOKDSC+1~, LOOKDSC+2*, LOOKDSC+3*, LOOKDSC+4, LOOKDSC+6
HL1 MSG+5~, SETHL+2~
HL1("ECH" MSG+14*, SETHL+11*
HL1("FS" MSG+15*, SETHL+12*
HL1("Q" MSG+16*, SETHL+13*, PID+1
HL1("VER" MSG+17*, SETHL+14*
>> HLECH MSG+13*, MSG+14, SETHL+10*, SETHL+11, OBXLOC+9, OBXLOC+16
>> HLFS MSG+12*, MSG+15, SETHL+9*, SETHL+12, REST+8
>> HLMSTATE HL7+10, HL7+14, HL7+20, BATCH+3
>> HLMSTATE("IEN" HL7+22
HLODAT GL2+2~, GL+2~
>> HLOMSH GL2+14*, GL2+15
HLPARM HL7+1, HL7+10, HL7+14, HL7+20, BATCH~, BATCH+3
HLPARM("COUNTRY" BATCH+1*
HLPARM("VERSION" BATCH+2*
HLPM MSG~, MSG+10, SETHL+7
HLPM("ENCODIN G CHARACTERS" , MSG+13, SETHL+10
HLPM("EVENT" MSG+8*, SETHL+5*
HLPM("FIELD S EPARATOR" , MSG+12, SETHL+9
HLPM("MESSAGE TYPE" , MSG+7*, SETHL+4*
HLPM("VERSION" MSG+9*, MSG+17, SETHL+6*, SETHL+14
>> HLQ PID+1*
HLST MSG~, MSG+10, MSG+57, SETHL+7, MSH+19, EVN+10, PID+49, PV1+29, PV2+33, OBXLOC+19
, OBXUNIT+11, OBXAGE+15, OBXCC+35, DG1P+26, DG1S+30, ECOD+17
HRCN MSG+5~, SETHL+2~
HVST PV2+11~, PV2+12*, PV2+13, PV2+14, PV2+16
I PATEXP+5*, DATEXP+13*, LZERO+1~, LZERO+2*
ICDATA PV2+22~, PV2+23*, PV2+24, PV2+25, PV2+26, OBXCC+7~, OBXCC+20*, OBXCC+21, OBXCC+22, OBXCC+23
, DG1P+11~, DG1P+12*, DG1P+13, DG1P+19, DG1S+12~, DG1S+13*, DG1S+14, DG1S+18, ECOD+1~, ECOD+6*
, ECOD+7, ECOD+9
ICDT PV2+22~, PV2+26*, PV2+32, OBXCC+7~, OBXCC+21*, OBXCC+31, DG1P+11~, DG1P+13*, DG1P+19, DG1P+24
, DG1S+12~, DG1S+14*, DG1S+18, DG1S+28, ECOD+1~, ECOD+7*, ECOD+9, ECOD+15
IENI LOOKTABM+1~, LOOKTABM+4*, LOOKTABM+5, LOOKTABM+6, LOOKTAB+1~, LOOKTAB+4*, LOOKTAB+5, LOOKTAB+6, LOOKDSC+1~, LOOKDSC+4*
, LOOKDSC+5, LOOKDSC+6
IN GL2~, GL2+4, GL2+5, GL2+6, GL2+7, GL2+10, GL2+12, GL2+13, GL2+14, GL2+18
, GL~, GL+4
L LZERO~, LZERO+2
LEN DG1S+1~
LN MSG+5~, MSG+6*, SETHL+2~, SETHL+3*, OBXCC+1~
LOC PV1+1~, PV1+4*, PV1+5
LP MSG+5~, SETHL+2~
M REST2~, REST2+3, REST2+4, REST~, REST+3, REST+4
MCNT REST2+1~, REST2+2*, REST+1~, REST+2*
MDA REST2+1~, REST2+3*, REST2+4, REST+1~, REST+3*, REST+4
MP REST2~, REST2+3, REST2+4
MS MSH~, MSH+9, MSH+11
MSG GL2+2~, GL2+4*, GL2+17, GL2+19, GL+2~, GL+4*, GL+5
MSGP GL2+2~, GL2+12*, GL2+17, GL+2~
MSH MSH+1~, MSH+19*, GL2+2~, GL2+11*, GL2+15*, GL2+16, GL+2~
MTYPE SETHL~, SETHL+4
NPI PV1+1~, PV1+3*, PV1+10
NTYP PID+2~, PID+3*, PID+32
OBXCNT MSG+4*, MSG+27*, MSG+28, MSG+34*, MSG+36, MSG+38*, MSG+39, MSG+40*, MSG+41, MSG+60!
P PID~, PID+3, PID+4, PID+5, PID+6, PID+7, PID+8, PID+9, PID+11, PID+12
, PID+13, PID+14, PID+16, PID+17, PID+20, PID+23, PID+24, PID+26, PV1~, PV1+17
, FNDH~, FNDH+2, FNDH+3, OBXUNIT~, OBXUNIT+1, OBXAGE~, OBXAGE+3, WRITE~, WRITE+6
PAT DATEXP+1~, DATEXP+12*, DATEXP+13, MSG~, MSG+20, MSG+21, MSG+22, MSG+32, MSG+36, MSG+39
PDA FNDPPOV+1~, FNDPPOV+3*, FNDPPOV+4
PRV PV1+1~, PV1+2*, PV1+3
PT PV2~, PV2+14, GL~, GL+6
PV FNDPPOV+1~, FNDPPOV+2*, FNDPPOV+4*, FNDPPOV+5
R SET~, SET+1
RACE PID+2~, PID+10*, PID+35, PID+36
RACEI PID+2~, PID+8*, PID+9*, PID+10
REC PID+2~, PID+4*
S SET~, SET+1
SEX PID+2~, PID+6*, PID+34
STATE PID+2~, PID+15*, PID+40
STI PID+2~, PID+14*, PID+15
TAB LOOKTABM~, LOOKTABM+4, LOOKTABM+7, LOOKTAB~, LOOKTAB+4, LOOKTAB+7, LOOKDSC~, LOOKDSC+4, LOOKDSC+7
TDA OBXCC+7~, OBXCC+11*, OBXCC+12
TST WRITE2+2~, WRITE2+3*, WRITE2+4*, WRITE2+9
TYPE OPT+1~, OPT+2*, OPT+3, OPT+4, OPT+5, LOOKTABM~, LOOKTABM+3, LOOKTABM+7, LOOKTAB~, LOOKTAB+3
, LOOKTAB+7, LOOKDSC~, LOOKDSC+3, LOOKDSC+7
U HL7+5, HL7+6, HL7+8, DATEXP+12, MSG+30, MSG+32, PID+3, PID+5, PID+6, PID+8
, PID+15, PID+24, PV1+4, PV2+20, PV2+24, PV2+25, PV2+26, OBXLOC+2, OBXUNIT+1, OBXCC+21
, OBXCC+22, OBXCC+23, DG1P+13, DG1P+19, FNDPPOV+4, DG1S+9, DG1S+14, DG1S+18, ECOD+7, ECOD+9
, LOOKTABM+6, LOOKTAB+6, LOOKDSC+6, GL2+4, GL2+12, WRITE2+4, WRITE2+7, GL+4, WRITE+5
UID PID+2~, PID+5*, PID+30
UNIT OBXAGE+2~, OBXAGE+4*, OBXAGE+12
UNITFLG MSG+1~, MSG+29*, MSG+35*, MSG+37
UVID PV1+1~, PV1+5*, PV1+12
V PV1~, PV1+2, PV1+5, PV1+18, PV1+23, PV1+28, PV2~, PV2+2, OBXLOC~, OBXLOC+2
, OBXUNIT~, OBXAGE~, OBXCC~, OBXCC+9, OBXCC+13, OBXCC+14, DG1P~, DG1P+9, DG1P+10, DG1P+19
, DG1S~, DG1S+3, DG1S+4, DG1S+5, POVS~, POVS+3, LZERO~, LZERO+2*, LZERO+3, SET~
, SET+1
VAL MSH+1~, EVN+1~, LOOKTABM~, LOOKTABM+4, LOOKTABM+7, LOOKTAB~, LOOKTAB+4, LOOKTAB+7, LOOKDSC+1~, LOOKDSC+6*
, LOOKDSC+7
VD WRITE~, WRITE+6
VDA FNDH+1~, FNDH+2*, FNDH+3, FNDH+4
VDATE MSG+1~, MSG+3*, PV2+23, OBXCC+20, DG1P+12, DG1S+13, ECOD+6
VDD GL~, GL+6
VDT FNDH~, FNDH+2
VER PV1+15~, PV1+18*, PV1+19, PV1+20, PV1+22, PV1+23*, PV1+24, PV1+25
>> VIEN FNDH+3*, FNDH+4
VIN FNDH+1~, FNDH+4*, FNDH+5
>> VINP PV2+16*, PV2+17, PV2+18, PV2+19
VPOVI OBXCC+1~
VS FNDPPOV~, FNDPPOV+3
VST MSG~, MSG+2, MSG+3, MSG+21, MSG+22, MSG+25, MSG+26, MSG+28, MSG+30, MSG+36
, MSG+39, MSG+41, MSG+45, MSG+46
>> WHO MSG+57
>> WHO("FACILITY LINK NAME" , MSG+55*
>> WHO("RECEIVIN G APPLICATION" , MSG+54*
>> WHOTO("RECEIV ING APPLICATION" , MSG+56*
X MSG+5~, SETHL+2~, MSH+1~, MSH+3*, MSH+8, EVN+1~, EVN+3*, EVN+6, EVN+10*, PID+49*
, PV1+29*, PV2+33*, OBXLOC+19*, OBXUNIT+11*, OBXAGE+15*, OBXCC+35*, DG1P+26*, DG1S+30*, ECOD+17*, HLD+4*
, EOJ+2!
>> XBE WRITE2+5*, WRITE+3*
>> XBF WRITE2+5*, WRITE+3*
>> XBFLG WRITE2+14, WRITE+11
>> XBFLG(1 WRITE2+15, WRITE2+16, WRITE2+18, WRITE+12, WRITE+13
XBFLT WRITE2+1~, WRITE2+5*, WRITE+2~, WRITE+3*
XBFN WRITE2+1~, WRITE2+9*, WRITE+2~, WRITE+6*
XBGL WRITE2+1~, WRITE2+5*, WRITE+2~, WRITE+3*
XBMED WRITE2+1~, WRITE2+5*, WRITE+2~, WRITE+3*
XBNAR WRITE2+1~, WRITE2+6*, WRITE+2~, WRITE+4*
XBQ WRITE2+1~, WRITE2+5*, WRITE+2~, WRITE+3*
XBQTO WRITE2+1~, WRITE+2~
>> XBS1 WRITE2+10*, WRITE+7*
XBUF WRITE2+1~, WRITE+2~
Y EXPTYP+5, DATEXP+4, DATEXP+5, DATEXP+8, DATEXP+9, GETPAT+5, GETPAT+6, HLD+5, EOJ+2!
>> Z LZERO+2*
ZIP PID+2~, PID+16*, PID+41, FIXZIP~, FIXZIP+1
>> ZTQUEUED WRITE2+15, WRITE2+16, WRITE2+17, WRITE2+18, WRITE+12, WRITE+13
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