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

Package: Patient Care Component Reports

Routine: APCLSMU


Information

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

Source Information

Source file <APCLSMU.m>

Call Graph

Call Graph Total: 15

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

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 ;
WRITE(E,P,VD) ; use XBGSAVE to save the temp global (APCLDATA) to a delimited
; file that is exported to the IE system
OBXAGE(P,V,CNT) ;-- setup the visit OBX
POVS(V) ;-- count the POVs
LOOKTABM(TYPE,TAB,VAL,ECH) ;-- find the value and description in the HL7 tables
DATET(D) ;EP
LOOKTAB(TYPE,TAB,VAL,ECH) ;-- find the value and description in the HL7 tables
HLD(FDT) ;-- convert to HL7 date
OBXUNIT(P,V,CNT) ;-- setup units
PV1(EV,V,P) ;-- setup the JVN PV1 segment
GETVISIT ;EP - this entry point called by the BVP package (View patient record)
MSG(EVN,VST,PAT) ;EP - create the message based on the event type and visit
SETHL(MTYPE,EVNTTYPE) ;-- setup HLO variables
EOJ ; EP - EOJ HOUSE KEEPING - this ep called by the BVP package (View patient record)
DG1P(EV,V,FL) ;-- set the repeating DG1
OBXCC(V,CNT) ;-- setup the chief complaint OBX
DATE(D) ;EP
DG1S(EV,V) ;-- set the secondary DXs
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
OBXLOC(V,CNT) ;-- setup the location OBX
FIXZIP(DFN,ZIP) ;EP
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
PV2(V,PT) ;-- setup the PV2 segment
SET(ARY,V,F,C,S,R) ;EP

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+20, DG1P+11, DG1S+13
DATEXP^APCLSMUN OPT+5
$$PRIMPOV^APCLV DG1P+9, DG1P+18
$$AGE^AUPNPAT OBXAGE+3
$$HRN^AUPNPAT PID+4, WRITE+6
KILL^AUPNPAT EOJ+4
^DIC GETPAT+4
$$GET1^DIQ MSG+2, MSG+28, PID+6, PID+9, PID+10, PID+11, PID+12, PID+13, PID+15, PID+16
, PID+19, PID+20, PID+21, PID+24, PID+25, PV1+8, PV1+14, PV1+17, PV2+17, PV2+18
, OBXLOC+3, OBXCC+6, OBXCC+9, OBXCC+11, OBXCC+12, DG1S+11, DG1S+18, FIXZIP+2
^DIR EXPTYP+3
$$HLDATE^HLFNC MSH+3, EVN+3
$$ADDSEG^HLOAPI MSH+19, EVN+9, PID+47, PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11, OBXAGE+13, OBXCC+24, DG1P+25
, DG1S+29
$$NEWMSG^HLOAPI MSG+9, SETHL+7
SET^HLOAPI SET+1
$$SENDONE^HLOAPI1 MSG+54
^XBGSAVE WRITE+9
$$FMTHL7^XLFDT PID+6, PID+26, PV1+17, 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
^DIC(40.7 - [#40.7] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^ICD9 - [#80] GET1^DIQ
^AUPNPAT - [#9000001] Classic Fileman Calls,  GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^AMERVSIT - [#9009080] GET1^DIQ
^AUTTCOM - [#9999999.05] GET1^DIQ
^AUTTCTY - [#9999999.23] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMERVSIT("AD" PV1+10
^APCLDATA($J WRITE+15!
^APCLTMP($J GL+1!, SETGL+2*, WRITE+14!
^AUPNVPOV - [#9000010.07] DG1S+9
^AUPNVPOV("AD" DG1S+5, POVS+3
^AUPNVSIT - [#9000010] DATEXP+12, MSG+28, PV2+5, OBXLOC+2
^AUPNVSIT("AAH" FNDH+2, FNDH+3
^AUPNVSIT("B" DATEXP+10, DATEXP+11
^AUTTLOC - [#9999999.06] WRITE+5
^AUTTSITE(1 WRITE+5
^DGPM - [#405] PV2+16
^DGPM("AVST" PV2+10
^DIC(5 - [#5] PID+14
^DPT - [#2] MSG+30, PID+3, PID+5, PID+7, PID+8, PID+22, PID+23, OBXUNIT+1
^HLA - [#777] REST+3, REST+4
^HLB - [#778] GL+4
^ICD9("AB" PV2+16, OBXCC+8

Label References

Name Line Occurrences
$$DATET WRITE+6
$$EXPTYP OPT+2
$$FNDH PV2+7
$$LOOKTABM OBXLOC+9
$$POVS DG1S+3
DG1P DG1S+4
DG1S MSG+24, MSG+43
EOJ PATEXP+2, PATEXP+4, DATEXP+4, DATEXP+8
EVN MSG+18
GETPAT PATEXP+1
GETVISIT PATEXP+3
GL MSG+56
MSG PATEXP+5, DATEXP+13
MSH MSG+17
OBXAGE MSG+37
OBXCC MSG+39
OBXLOC MSG+26
OBXUNIT MSG+34
PATEXP OPT+4
PID MSG+19
PV1 MSG+20
PV2 MSG+21
REST GL+5
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
, PID+27, PID+28, PID+29, PID+30, PID+31, PID+33, PID+34, PID+35, PID+36, PID+37
, PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+45, PID+46, PV1+1, PV1+2
, PV1+3, PV1+4, PV1+16, PV1+17, PV2+23, PV2+24, PV2+25, PV2+27, 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+4, OBXAGE+5, OBXAGE+6, OBXAGE+7, OBXAGE+8
, OBXAGE+9, OBXAGE+10, OBXAGE+11, OBXAGE+12, OBXCC+13, OBXCC+14, OBXCC+15, OBXCC+16, OBXCC+18, OBXCC+19
, OBXCC+20, OBXCC+21, OBXCC+22, OBXCC+23, DG1P+19, DG1P+20, DG1P+21, DG1P+22, DG1P+23, DG1P+24
, DG1S+22, DG1S+23, DG1S+25, DG1S+26, DG1S+27, DG1S+28
SETGL REST+9
WRITE GL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MSH+1~, MSH+3, EVN+1~, EVN+3, 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+10*, PID+36
ADD2 PID+2~, PID+11*, PID+37
ADMT PV2+3~, PV2+10*, PV2+11, PV2+16, PV2+17
AGE OBXAGE+2~, OBXAGE+3*, OBXAGE+9
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 WRITE+5*
APCLCNT GL+3*, SETGL+1*, SETGL+2, WRITE+14!
>> APCLDFN WRITE+6*
APCLFN WRITE+2~
>> APPARMS MSG+54
>> APPARMS("ACCE PT ACK RESPONSE" , MSG+48*, PT ACK TYPE" , MSG+46*
>> APPARMS("APP ACK RESPONSE" , MSG+47*, ACK TYPE" , MSG+49*
>> APPARMS("QUEUE" MSG+50*
>> APPARMS("RECE IVING APPLICATION" , MSG+45*
>> APPARMS("SEND ING APPLICATION" , MSG+44*
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, PID+27, PID+28, PID+29, PID+30, PID+31, PID+33, PID+34, PID+35
, PID+36, PID+37, PID+38, PID+39, PID+40, PID+41, PID+42, PID+43, PID+45, PID+46
, PID+47, PV1+1, PV1+2, PV1+3, PV1+4, PV1+16, PV1+17, PV1+18, PV2+23, PV2+24
, PV2+25, PV2+27, PV2+28, 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+4, OBXAGE+5, OBXAGE+6, OBXAGE+7, OBXAGE+8, OBXAGE+9, OBXAGE+10, OBXAGE+11
, OBXAGE+12, OBXAGE+13, OBXCC+13, OBXCC+14, OBXCC+15, OBXCC+16, OBXCC+18, OBXCC+19, OBXCC+20, OBXCC+21
, OBXCC+22, OBXCC+23, OBXCC+24, DG1P+19, DG1P+20, DG1P+21, DG1P+22, DG1P+23, DG1P+24, DG1P+25
, DG1S+22, DG1S+23, DG1S+25, DG1S+26, DG1S+27, DG1S+28, DG1S+29, SET~, SET+1
>> AUPNLK("INAC" GETPAT+2*, EOJ+1!
BDA GL+2~
BDO GL+2~
BDT DATEXP+1~, DATEXP+5*, DATEXP+10
BT GL+2~
BT1 GL+2~
BT2 GL+2~
BT3 GL+2~
C SET~, SET+1, EOJ+2!
CC OBXCC+1~, OBXCC+9*
CCE OBXCC+1~, OBXCC+6*, OBXCC+7, OBXCC+8, OBXCC+22
CCI OBXCC+1~, OBXCC+8*, OBXCC+9, OBXCC+11, OBXCC+12, OBXCC+17
CD OBXLOC+1~, OBXLOC+4*, OBXLOC+6*, OBXLOC+7*, OBXLOC+8, OBXLOC+9, OBXLOC+15
CITY PID+2~, PID+12*, PID+38
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+5, OBXCC~, OBXCC+14
CNTR DG1S+1~, DG1S+2*, DG1S+3*, DG1S+4
CNTY PID+2~, PID+16*, PID+17, PID+21*, PID+41
COR PID+18~, PID+19*, PID+20
CTY PID+18~, PID+20*, PID+21
D HLD+2~, HLD+5*, HLD+6, SETGL~, SETGL+2, DATE~, DATE+1, DATET~, DATET+1
DADA DATEXP+1~, DATEXP+10*, DATEXP+11
DATA REST+1~, REST+4*, REST+5, REST+6, REST+7*, REST+8*, REST+9
DDSP PV1+6~, PV1+7*, PV1+8*, PV1+15*, PV1+16
DED PV1+12~, PV1+14*, PV1+15
DESC LOOKTABM+1~, LOOKTABM+6*, LOOKTABM+7, LOOKTAB+1~, LOOKTAB+6*, LOOKTAB+7
DFN FIXZIP~, FIXZIP+2
>> DGCNT MSG+3*, MSG+23*
DIC GETPAT+4*!
DIC("A" GETPAT+4*
DIC(0 GETPAT+4*
DIEN DATEXP+1~, DATEXP+11*, DATEXP+12, DATEXP+13
>> DIR("A" EXPTYP+2*
>> DIR(0 EXPTYP+1*
>> DIRUT EXPTYP+4
DIYS EOJ+2!
DOB PID+2~, PID+6*
DOD PID+2~, PID+25*, PID+26*, PID+45, PID+46
DSC OBXLOC+1~, OBXLOC+9*, OBXLOC+16, LOOKDSC~, LOOKDSC+4
DUZ(2 PID+4, WRITE+6
DX PV2+3~, PV2+17*, PV2+20, PV2+22*, PV2+24, DG1P+4~, DG1P+9*, DG1P+11, DG1P+13*, DG1P+16
, DG1P+17*, DG1P+21, DG1S+1~, DG1S+11*, DG1S+13, DG1S+15*, DG1S+25
DXCNT DG1S+1~, DG1S+2*, DG1S+7*, DG1S+23
DXDA DG1S+1~, DG1S+5*, DG1S+9, POVS+1~, POVS+3*
DXE PV2+3~, PV2+18*, PV2+25, DG1P+4~, DG1P+18*, DG1P+22, DG1S+1~, DG1S+18*, DG1S+26
DXI PV2+3~, PV2+16*, PV2+18, DG1S+1~, DG1S+9*, DG1S+11, DG1S+18
DXT DG1P+4~, DG1P+5*, DG1P+6*, DG1P+7*, DG1P+24, DG1S+1~, DG1S+19*, DG1S+20*, DG1S+21*, DG1S+28
E WRITE~, WRITE+6
EC OBXCC+1~, OBXCC+11*, OBXCC+18
ECE OBXCC+1~, OBXCC+12*, OBXCC+19
ECH LOOKTABM~, LOOKTABM+7, LOOKTAB~, LOOKTAB+7, LOOKDSC~, LOOKDSC+7
ECI OBXCC+1~
EDA PID+2~, PID+22*, PID+23
EDT DATEXP+1~, DATEXP+9*, DATEXP+10, FNDH~, FNDH+4
>> ERR MSG+9, MSG+54, MSG+55*, SETHL+7, EVN+9, PID+47, PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11
, OBXAGE+13, OBXCC+24, DG1P+25, DG1S+29
ETH PID+2~, PID+24*, PID+42, PID+43
ETHI PID+2~, PID+23*, PID+24
EV MSH~, MSH+10, MSH+11, PV1~, PV1+5, DG1P~, DG1P+1, DG1P+2, DG1P+6, DG1P+7
, DG1S~, DG1S+4, DG1S+20, DG1S+21, GL~, GL+6
>> EVDT PV2+6*, PV2+7
EVN MSG~, MSG+7, MSG+17, MSG+18, MSG+20, MSG+21, MSG+22, MSG+24, MSG+28, MSG+40
, MSG+42, MSG+43, MSG+56, PID+44
EVNTTYPE SETHL~, SETHL+5, EVN~
F SET~, SET+1
FDT HLD~, HLD+1, HLD+4
FL DG1P~, DG1P+1, DG1P+5
FLD MSG+4~, 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+4~, SETHL+2~
HL1("ECH" MSG+13*, SETHL+11*
HL1("FS" MSG+14*, SETHL+12*
HL1("Q" MSG+15*, SETHL+13*, PID+1
HL1("VER" MSG+16*, SETHL+14*
>> HLECH MSG+12*, MSG+13, SETHL+10*, SETHL+11, OBXLOC+9, OBXLOC+16
>> HLFS MSG+11*, MSG+14, SETHL+9*, SETHL+12, REST+8
HLODAT GL+2~
>> HLPM MSG+9, SETHL+7
>> HLPM("ENCODIN G CHARACTERS" , MSG+12, SETHL+10
>> HLPM("EVENT" MSG+7*, SETHL+5*
>> HLPM("FIELD S EPARATOR" , MSG+11, SETHL+9
>> HLPM("MESSAGE TYPE" , MSG+6*, SETHL+4*
>> HLPM("VERSION" MSG+8*, MSG+16, SETHL+6*, SETHL+14
>> HLQ PID+1*
>> HLST MSG+9, MSG+54, SETHL+7, MSH+19, EVN+9, PID+47, PV1+18, PV2+28, OBXLOC+19, OBXUNIT+11
, OBXAGE+13, OBXCC+24, DG1P+25, DG1S+29
>> HLST("IEN" MSG+56
HRCN MSG+4~, SETHL+2~
HVST PV2+3~, PV2+7*, PV2+8, PV2+10
>> I PATEXP+5*, DATEXP+13*
ICDATA PV2+19~, PV2+20*, PV2+21, DG1P+10~, DG1P+11*, DG1P+12, DG1P+18, DG1S+12~, DG1S+13*, DG1S+14
, DG1S+18
ICDT PV2+19~, PV2+21*, PV2+27, DG1P+10~, DG1P+12*, DG1P+18, DG1P+23, DG1S+12~, DG1S+14*, DG1S+18
, DG1S+27
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 GL~, GL+4
IVDT PV2+3~, PV2+5*, PV2+6, PV2+7
LEN DG1S+1~
LN MSG+4~, MSG+5*, SETHL+2~, SETHL+3*, OBXCC+1~
LP MSG+4~, SETHL+2~
M REST~, REST+3, REST+4
MCNT REST+1~, REST+2*
MDA REST+1~, REST+3*, REST+4
MS MSH~, MSH+9, MSH+11
MSG GL+2~, GL+4*, GL+5
MSGP GL+2~
MSH MSH+1~, MSH+19*, GL+2~
MTYPE SETHL~, SETHL+4
NTYP PID+2~, PID+3*, PID+31
OBXCNT MSG+3*, MSG+25*, MSG+26, MSG+32*, MSG+34, MSG+36*, MSG+37, MSG+38*, MSG+39, MSG+57!
P PID~, PID+3, PID+4, PID+5, PID+6, PID+7, PID+8, PID+10, PID+11, PID+12
, PID+13, PID+15, PID+16, PID+19, PID+22, PID+23, PID+25, PV1~, PV1+8, FNDH~
, FNDH+2, FNDH+3, OBXUNIT~, OBXUNIT+1, OBXAGE~, OBXAGE+3, WRITE~, WRITE+6
PAT DATEXP+1~, DATEXP+12*, DATEXP+13, MSG~, MSG+19, MSG+20, MSG+21, MSG+30, MSG+34, MSG+37
, MSG+56
PT PV2~, PV2+7, PV2+10, GL~, GL+6
R SET~, SET+1
RACE PID+2~, PID+9*, PID+34, PID+35
RACEI PID+2~, PID+7*, PID+8*, PID+9
REC PID+2~, PID+4*, PID+29
S SET~, SET+1
SEX PID+2~, PID+5*, PID+33
STATE PID+2~, PID+14*, PID+39
STI PID+2~, PID+13*, PID+14
TAB LOOKTABM~, LOOKTABM+4, LOOKTABM+7, LOOKTAB~, LOOKTAB+4, LOOKTAB+7, LOOKDSC~, LOOKDSC+4, LOOKDSC+7
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 DATEXP+12, MSG+28, MSG+30, PID+3, PID+5, PID+7, PID+14, PID+23, PV2+5, PV2+16
, PV2+21, OBXLOC+2, OBXUNIT+1, DG1P+12, DG1P+18, DG1S+9, DG1S+14, DG1S+18, LOOKTABM+6, LOOKTAB+6
, LOOKDSC+6, GL+4, WRITE+5
UNITFLG MSG+1~, MSG+27*, MSG+33*, MSG+35
V PV1~, PV1+3, PV1+10, PV1+17, PV2~, PV2+2, PV2+5, OBXLOC~, OBXLOC+2, OBXUNIT~
, OBXAGE~, OBXCC~, OBXCC+6, DG1P~, DG1P+9, DG1P+18, DG1S~, DG1S+3, DG1S+4, DG1S+5
, POVS~, POVS+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+2*, MSG+56, PV2+20, DG1P+11, DG1S+13
VDD GL~, GL+6
VDT FNDH~, FNDH+2
VER PV1+6~, PV1+10*, PV1+11, PV1+14
>> VIEN FNDH+3*, FNDH+4
>> VIN FNDH+4*, FNDH+5
VINP PV2+3~
VPOVI OBXCC+1~
VST MSG~, MSG+2, MSG+20, MSG+21, MSG+24, MSG+26, MSG+28, MSG+34, MSG+37, MSG+39
, MSG+43
>> WHO MSG+54
>> WHO("FACILITY LINK NAME" , MSG+52*
>> WHO("RECEIVIN G APPLICATION" , MSG+51*
>> WHOTO("RECEIV ING APPLICATION" , MSG+53*
X MSG+4~, SETHL+2~, MSH+1~, MSH+3*, MSH+8, EVN+1~, EVN+3*, EVN+5, EVN+9*, PID+47*
, PV1+18*, PV2+28*, OBXLOC+19*, OBXUNIT+11*, OBXAGE+13*, OBXCC+24*, DG1P+25*, DG1S+29*, HLD+4*, EOJ+2!
>> XBE WRITE+3*
>> XBF WRITE+3*
>> XBFLG WRITE+11
>> XBFLG(1 WRITE+12, WRITE+13
XBFLT WRITE+2~, WRITE+3*
XBFN WRITE+2~, WRITE+6*
XBGL WRITE+2~, WRITE+3*
XBMED WRITE+2~, WRITE+3*
XBNAR WRITE+2~, WRITE+4*
XBQ WRITE+2~, WRITE+3*
XBQTO WRITE+2~
>> XBS1 WRITE+7*
XBUF WRITE+2~
Y EXPTYP+5, DATEXP+4, DATEXP+5, DATEXP+8, DATEXP+9, GETPAT+5, GETPAT+6, HLD+5, EOJ+2!
ZIP PID+2~, PID+15*, PID+40, FIXZIP~, FIXZIP+1
>> ZTQUEUED WRITE+12, WRITE+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All