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

Package: IHS Changes To Lab

Routine: BLRSHPML


Information

BLRSHPML ;cmi/anch/maw - BLR Reference Lab Shipping Manifest: Others ; 18-May-2016 11:26 ; MAW

Source Information

Source file <BLRSHPML.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA Fileman 5 NOW^%DTC  UPDATE^DIE  IX1^DIK  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  
DRG Grouper 2 $$ICDDX^ICDCODE  $$ICDDX^ICDEX  
IHS Changes To Lab 2 PRTSECI^BLRSHPL2  REP^BLRSHPMQ  
IHS Patient 1 $$HRN^AUPNPAT  
IHS Patient Registration 1 ^AGINS  
IHS VA Utilities 1 GUIR^XBLM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRSHPM  

Entry Points

Name Comments DBIA/ICR reference
DEV() ;-- device handler
HDR ;-- this is the header
EOJ ;-- kill vars and quit
REP ;EP - lets reprint the shipping manifest
STOR(BLRSHIEN,ACC) ;-- this will store the shipping manifest
PHDR ;-- write the common stuff to the device
ST(ST) ;-- get state abbreviation
DX(BDA) ;-- if insurance info print DX
ASKS ;-- get the ien of the entry
CHKOEQ(CDA) ;-- check the number of order entry questions to determine lines left
INS(BDA) ;-- if insurance info print insurance
WRT(SDA) ; -- write the output to the device
LABINST(TST,SAMP) ;-- get the lab processing instructions
PRT(CP) ;EP - print shipping manifest
RPRT(RIEN) ;-- reprint
SPHDR ;-- sub patient header
CHKSECI(PAT,COUNTER) ;-- check to see if secondary insurance for labcorp
NEWPRT
FNDSEQ(BN,PTI,POL,CDT) ;-- find the category prioritization
LZERO(V,L) ;EP - left zero fill
MID(MSG) ;-- get message id
XHDR
ALL ;-- run all sub routines after initial vars
WRTS ;-- write the output to the device
INSTYP(TYP) ;-- get insurance type
NOW() ;-- return now
GETDXCNT(BDA) ;-- get number of dx to display
SEQINS(BINS,PT,RLCDT) ;-- lets go through sequencing insurers
GETPG() ;-- lets try and get a page count

External References

Name Field # of Occurrence
NOW^%DTC NOW+1
^%ZIS DEV+5, DEV+6
^%ZISC PRT+3, PRT+10, EOJ+1, REP+6
^AGINS CHKSECI+4
$$HRN^AUPNPAT NEWPRT+8
PRTSECI^BLRSHPL2 CHKSECI+14
REP^BLRSHPMQ REP+2
UPDATE^DIE STOR+6
IX1^DIK STOR+15
$$GET1^DIQ NEWPRT+1, NEWPRT+2, NEWPRT+3, NEWPRT+4, NEWPRT+5, NEWPRT+7
^DIR HDR+1, ASKS+2
$$ICDDX^ICDCODE DX+16
$$ICDDX^ICDEX DX+16
GUIR^XBLM STOR+10
$$FMTE^XLFDT PHDR+2, PHDR+8, PHDR+18, WRT+6, WRT+8, WRT+10, XHDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !!,"ORDER (Control): "_^TMP("BLRRL",$J,"COMMON","ORD")
  • Line Location: PHDR+1
Function Call: WRITE
  • Prompt: ?30,"ORDER DATE: "_$$FMTE^XLFDT(^TMP("BLRRL",$J,"COMMON","ODT"))
  • Line Location: PHDR+2
Function Call: WRITE
  • Prompt: ?60,"MID: "_$$MID(+$G(BHLMSG))
  • Line Location: PHDR+3
Function Call: WRITE
  • Prompt: !,"PATIENT: "_$P($G(^DPT(^TMP("BLRRL",$J,"COMMON","PAT"),0)),U)
  • Line Location: PHDR+4
Function Call: WRITE
  • Prompt: ?30,"Chart # (Alt Patn ID): "_$$LZERO(BLRCHT,6),?60,"PHONE: "_$S($P($G(^BLRSITE(DUZ(2),"RL")),U,17):$P($G(^DPT(^TMP("BLRRL",$J,"COMMON","PAT"),.13)),U),1:"")
  • Line Location: PHDR+5
Function Call: WRITE
  • Prompt: !,"SEX: "_$G(SEX),?10,"DOB: "_$S(+$G(DOB)>1950101:$$FMTE^XLFDT(DOB),1:$G(DOB))
  • Line Location: PHDR+8
Function Call: WRITE
  • Prompt: ?30,"SSN: "_$S($P($G(^DPT(^TMP("BLRRL",$J,"COMMON","PAT"),0)),U,9)]"":"XXX-XX-"_$E($P($G(^DPT(^TMP("BLRRL",$J,"COMMON","PAT"),0)),U,9),6,9),1:"NOT ON FILE")
  • Line Location: PHDR+9
Function Call: WRITE
  • Prompt: !,"LOCATION: "_^TMP("BLRRL",$J,"COMMON","LOC")
  • Line Location: PHDR+12
Function Call: WRITE
  • Prompt: ?30,"BILL TYPE: "_$S($E($G(^TMP("BLRRL",$J,"COMMON","BILL TYPE")),1,1)="T":"Private Insurance",$E($G(^TMP("BLRRL",$J,"COMMON","BILL TYPE")),1,1)="P":"Patient",1:"Client")
  • Line Location: PHDR+14
Function Call: WRITE
  • Prompt: !,"PRACTITIONER: "_$P(^TMP("BLRRL",$J,"COMMON","ORDPNM"),U)_", "_$P(^TMP("BLRRL",$J,"COMMON","ORDPNM"),U,2)
  • Line Location: PHDR+16
Function Call: WRITE
  • Prompt: ?55,$S($P($G(^BLRSITE($S($G(BLRALTDZ):BLRALTDZ,1:DUZ(2)),"RL")),U,19)="N":"NPI: "_$G(^TMP("BLRRL",$J,"COMMON","ORDPNPI")),1:"UPIN: "_$G(^TMP("BLRRL",$J,"COMMON","ORDPUPIN")))
  • Line Location: PHDR+17
Function Call: WRITE
  • Prompt: !,"LAB ARRIVAL (COLLECTION DATE/TIME): "_$$FMTE^XLFDT(^TMP("BLRRL",$J,"COMMON","CDT"))
  • Line Location: PHDR+18
Function Call: WRITE
  • Prompt: !!!,"TEST NAME: "_$P(^TMP("BLRRL",$J,BLRDA,"TCNM"),U,2)_" ("_$P(^TMP("BLRRL",$J,BLRDA,"TCNM"),U)_")"
  • Line Location: WRTS+7
Function Call: WRITE
  • Prompt: ?45,"SAMPLE: "_BLRSAMP
  • Line Location: WRTS+8
Function Call: WRITE
  • Prompt: !,"SOURCE: "_^TMP("BLRRL",$J,BLRDA,"SRC")
  • Line Location: WRTS+9
Function Call: WRITE
  • Prompt: ?45,"Accession/Alt cnt#(CD): "_^TMP("BLRRL",$J,BLRDA,"UID")
  • Line Location: WRTS+10
Function Call: WRITE
  • Prompt: !,?45,"URGENCY: "_BLRURG
  • Line Location: WRTS+11
Function Call: WRITE
  • Prompt: !,"LAB PROCESSING INSTR: "_$$LABINST(BLRDA,^TMP("BLRRL",$J,BLRDA,"SAMP"))
  • Line Location: WRTS+12
Function Call: WRITE
  • Prompt: !!,"ORDER ENTRY QUESTIONS: "
  • Line Location: WRTS+14
Function Call: WRITE
  • Prompt: !,?5,$P(ORDC,U,2),!,?5,$P(ORDC,U,3)
  • Line Location: WRTS+18
Function Call: WRITE
  • Prompt: !!,"COMMENTS: "
  • Line Location: WRTS+20
Function Call: WRITE
  • Prompt: !,?5,$TR($G(LRTCOM(BLRDA,BLRUDA)),"~")
  • Line Location: WRTS+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRTS+27
Function Call: WRITE
  • Prompt: !,"DIAGNOSIS"
  • Line Location: DX+3
Function Call: WRITE
  • Prompt: !,"Diagnosis: ",?25,"DX Description: "
  • Line Location: DX+5
Function Call: WRITE
  • Prompt: !,$G(^TMP("BLRRL",$J,BDA,"DX",DXDA)),?25,$G(^TMP("BLRRL",$J,BDA,"DXE",DXDA))
  • Line Location: DX+8
Function Call: WRITE
  • Prompt: !,$P(DXSTR,U,2),?25,$P(DXSTR,U,4)
  • Line Location: DX+17
Function Call: WRITE
  • Prompt: !!,"PRIMARY INSURANCE"
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !,"Ins Carrier Code: "_$G(^TMP("BLRRL",$J,BDA,"INSID")),?40,"Insured Name: "_$E($G(^TMP("BLRRL",$J,BDA,"INSNOIE")),1,26)
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !,?40,"Relationship: "_$G(^TMP("BLRRL",$J,BDA,"INSRELE"))
  • Line Location: INS+5
Function Call: WRITE
  • Prompt: !,"Insurer Name: ",$E($G(^TMP("BLRRL",$J,BDA,"INSCNME")),1,30),?40,"Insured Add: "_$P($G(^TMP("BLRRL",$J,BDA,"PATADDE")),"~")
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !,"Insurer Add: ",?54,$P($G(^TMP("BLRRL",$J,BDA,"PATADDE")),"~",2)
  • Line Location: INS+7
Function Call: WRITE
  • Prompt: !,$P($G(^TMP("BLRRL",$J,BDA,"INSADDE")),"~"),?40,"Guarantor: "_$E($G(^TMP("BLRRL",$J,BDA,"GT1NME")),1,25)
  • Line Location: INS+8
Function Call: WRITE
  • Prompt: !,$P($G(^TMP("BLRRL",$J,BDA,"INSADDE")),"~",2),?40,"Guar Add: "_$P($G(^TMP("BLRRL",$J,BDA,"GT1ADDE")),"~")
  • Line Location: INS+9
Function Call: WRITE
  • Prompt: !,"Insurer Group: "_$G(^TMP("BLRRL",$J,BDA,"INSGRP")),?50,$P($G(^TMP("BLRRL",$J,BDA,"GT1ADDE")),"~",2)
  • Line Location: INS+10
Function Call: WRITE
  • Prompt: !,"Insured ID: "_$G(^TMP("BLRRL",$J,BDA,"INSPOL")),?40,"Guarantor Phone: "_$G(^TMP("BLRRL",$J,BDA,"GT1PHO"))
  • Line Location: INS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: INS+16
Function Call: WRITE
  • Prompt: !,"ORDER (CTRL): "_RL("ORD")
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?40,"ACCESSION: "_RL(SDA,"ACC")
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,"PATIENT: "_$P($G(^DPT(RL("PAT"),0)),U)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?40,"SEX: "_$G(SEX),?50,"DOB: "_$G(DOB)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?40,"SEX: "_$G(SEX),?50,"DOB: "_$S(+$G(DOB)>1950101:$$FMTE^XLFDT(DOB),1:$G(DOB))
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !,"CHART (PATIENT ID): "_BLRCHT
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !,"LOCATION: "_RL("LOC"),?40,"ORDER DATE: "_$$FMTE^XLFDT(RL("ODT"))
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: !,"PRACTITIONER: "_RL("ORDPNM"),?55,"UPIN: "_$G(RL("ORDPUPIN"))
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !,"LAB ARRIVAL (COLLECTION DATE): "_$$FMTE^XLFDT(RL("CDT"))
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?55,"SAMPLE: "_BLRSAMP
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !,"TEST NAME: "_$P(RL(SDA,"TCNM"),U,2)_" ("_$P(RL(SDA,"TCNM"),U)_")"
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: ?55,"URGENCY: "_BLRURG
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !!,"ORDER ENTRY QUESTIONS: "
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: !,$P(ORDC,U),?15,$P(ORDC,U,2),?65,$P(ORDC,U,3)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: XHDR+0
Function Call: WRITE
  • Prompt: !,?28,"INDIAN HEALTH SERVICE EREQ",?65,"PAGE: "_BLRNPG
  • Line Location: XHDR+1
Function Call: WRITE
  • Prompt: !!,"REF LAB NAME: "_$S($P($G(^BLRSITE(DUZ(2),"RL")),U,20)]"":$P(^BLRSITE(DUZ(2),"RL"),U,20),1:$P($G(^BLRRL(^TMP("BLRRL",$J,"COMMON","RL"),0)),U))
  • Line Location: XHDR+2
Function Call: WRITE
  • Prompt: ?40,"CLIENT #: "_^TMP("BLRRL",$J,"COMMON","CLIENT")
  • Line Location: XHDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: XHDR+4
Function Call: WRITE
  • Prompt: !,"FACILITY: "_BLRFAC,?40,$$FMTE^XLFDT($$NOW)
  • Line Location: XHDR+5
Function Call: WRITE
  • Prompt: !,"ADDRESS: "_BLRSTR_", "_BLRCTY_", "_$$ST(BLRST)_" "_BLRZIP_" PHONE: "_$G(BLRPH)
  • Line Location: XHDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: XHDR+7
Function Call: WRITE
  • Prompt: "="
  • Line Location: XHDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: XHDR+9
Function Call: WRITE
  • Prompt: !,$G(^BLRSHPM(RIEN,11,BLRDA,0))
  • Line Location: RPRT+4
Routine Call
  • DIE
  • Line Location:
    • STOR+6
Routine Call
  • DIR
  • Line Location:
    • HDR+1
    • ASKS+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5
    • DEV+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BLRSHPM - [#9009026.2] Classic Fileman Calls
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNICP - [#9000035] FNDSEQ+6
^AUPNICP("EFF" FNDSEQ+2, FNDSEQ+4
^BLRRL - [#9009026] XHDR+2, REP+1
^BLRRLO - [#9009026.3] DX+14, DX+15, GETDXCNT+6
^BLRRLO("ACC" DX+13, GETDXCNT+5
^BLRSHPM - [#9009026.2] STOR+13*, STOR+14*, RPRT+3, RPRT+4
^BLRSITE - [#9009029] SPHDR+1, PHDR+5, PHDR+17, GETPG+24, XHDR+2, DEV+2, REP+1
^DIC(5 - [#5] ST+2
^DPT - [#2] PHDR+4, PHDR+5, PHDR+9, WRT+4
^ICDS(0 DX+16
^INTHU - [#4001] MID+4
^INTHU("AT" MID+2
^LAB(60 - [#60] LABINST+3, LABINST+4, LABINST+7, LABINST+8
^LAB(62 - [#62] WRTS+4, WRT+1
^LAB(62.05 - [#62.05] NEWPRT+9
^TMP("BLRRL" PRT+1, PRT+11, NEWPRT+8, NEWPRT+9, PHDR+1, PHDR+2, PHDR+4, PHDR+5, PHDR+9, PHDR+12
, PHDR+14, PHDR+16, PHDR+17, PHDR+18, WRTS+2, WRTS+4, WRTS+7, WRTS+9, WRTS+10, WRTS+12
, WRTS+13, WRTS+16, WRTS+17, DX+2, DX+11, INS+2, INS+4, INS+5, INS+6, INS+7
, INS+8, INS+9, INS+10, INS+11, INS+13, CHKSECI+6, CHKOEQ+5, GETPG+6, GETPG+9, GETPG+16
, GETPG+18, GETDXCNT+3, XHDR+2, XHDR+3
^TMP($J STOR+9!, STOR+12, STOR+13, EOJ+3!

Label References

Name Line Occurrences
$$CHKOEQ WRTS+5
$$DEV PRT+5, RPRT+1
$$FNDSEQ SEQINS+8
$$GETDXCNT GETPG+8
$$GETPG NEWPRT+10
$$LABINST WRTS+12
$$LZERO PHDR+5
$$MID PHDR+3
$$NOW XHDR+5
$$ST XHDR+6
ALL NEWPRT+12
ASKS REP+3
CHKSECI INS+13, GETPG+18
DX WRTS+25
EOJ PRT+12
INS WRTS+26
NEWPRT PRT+7
PHDR ALL+2
RPRT REP+5
SEQINS CHKSECI+7
SPHDR WRTS+5
STOR PRT+11
WRTS ALL+3
XHDR ALL+1, WRTS+5, WRTS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW+2, LZERO+1~, LZERO+2*
ACC STOR~, STOR+3
>> AGINS CHKSECI+7
>> AGINS(1 CHKSECI+5
BDA DX~, DX+1, INS~, INS+1, INS+4, INS+5, INS+6, INS+7, INS+8, INS+9
, INS+10, INS+11, SEQINS+3~, SEQINS+4*, SEQINS+6, SEQINS+7, SEQINS+10, GETDXCNT~, GETDXCNT+3
>> BHLMSG PHDR+3
BINI SEQINS+5~, SEQINS+6*, SEQINS+8
BINS SEQINS~
BINS( SEQINS+4, SEQINS+6, SEQINS+7, SEQINS+10
BINS("" SEQINS+1
>> BLRAGUI PRT+2
>> BLRALTDZ NEWPRT+1, NEWPRT+2, NEWPRT+3, NEWPRT+4, NEWPRT+5, NEWPRT+7, PHDR+17, DEV+2, REP+1
BLRCDA CHKOEQ+3~, CHKOEQ+5*
>> BLRCHT NEWPRT+8*, PHDR+5, WRT+7
BLRCMCNT GETPG+4~, GETPG+5*, GETPG+10*, GETPG+14
BLRCNT CHKOEQ+3~, CHKOEQ+4*, CHKOEQ+6*, CHKOEQ+7
>> BLRCTY NEWPRT+3*, XHDR+6
BLRDA WRTS+1~, WRTS+2*, WRTS+3, WRTS+4, WRTS+5, WRTS+7, WRTS+9, WRTS+10, WRTS+12, WRTS+13
, WRTS+16, WRTS+17, WRTS+19, WRTS+22, WRTS+23, WRTS+24, WRTS+25, WRTS+26, DX+11, RPRT+2~
, RPRT+3*, RPRT+4
BLRDX EOJ+4!
BLRDXCNT GETPG+4~, GETPG+5*, GETPG+8*, GETPG+12*, GETPG+20, EOJ+4!
BLRERR STOR+1~
BLRERR(1 STOR+7
>> BLRFAC NEWPRT+1*, XHDR+5
BLRFDA STOR+1~
BLRFDA( STOR+3*, STOR+4*, STOR+5*
>> BLRHDC GETPG+23*, GETPG+27
>> BLRI XHDR+8*
BLRIC GETPG+4~, GETPG+25*, GETPG+27
BLRIEN WRTS+1~
BLRIENS STOR+1~, STOR+2*
BLRIENS(1 STOR+8
BLRINSCN GETPG+15~, GETPG+17*
BLRLN CHKOEQ+1~, CHKOEQ+2*, CHKOEQ+7
BLRNACC GETPG+4~, GETPG+5*, GETPG+7*, GETPG+11*, GETPG+14
BLRNCNT GETPG+4~, GETPG+5*, GETPG+14*, GETPG+20*, GETPG+21, GETPG+27*, GETPG+28
BLRNDA GETPG+4~, GETPG+5*, GETPG+6*, GETPG+8, GETPG+9
BLRNIEN GETPG+4~, GETPG+9*
>> BLRNPG NEWPRT+11*, XHDR+1, XHDR+10*
BLRODA WRTS+15~, WRTS+16*, WRTS+17, WRT+16*, WRT+17, EOJ+4!
>> BLRPDC GETPG+24*, GETPG+27
>> BLRPG GETPG+28*, GETPG+29, GETPG+30
>> BLRPGC NEWPRT+10*
>> BLRPGE GETPG+30*, GETPG+31
BLRPGG GETPG+4~, GETPG+21*, GETPG+22*, GETPG+23, GETPG+24, GETPG+25, GETPG+26
>> BLRPGP GETPG+29*, GETPG+31*, GETPG+32
BLRPH NEWPRT+6~, NEWPRT+7*, XHDR+6
BLRRIEN REP+4!, REP+5, REP+7!, ASKS+4*
BLRRLASK EOJ+4!
BLRRLBTP EOJ+4!
BLRRLCLA EOJ+4!
BLRRLCLT EOJ+4!
BLRRLCNT EOJ+4!
>> BLRSAMP WRTS+4*, WRTS+8, WRT+1*, WRT+11
BLRSC GETPG+4~, GETPG+26*, GETPG+27
BLRSDA EOJ+4!
BLRSECC GETPG+15~, GETPG+19*
BLRSEQ SEQINS+2!
BLRSEQ( CHKSECI+9, CHKSECI+14, SEQINS+10*
BLRSHIEN PRT+11, STOR~, STOR+7*, STOR+8*, STOR+13, STOR+14, STOR+15
>> BLRST NEWPRT+4*, XHDR+6
>> BLRSTR NEWPRT+2*, XHDR+6
BLRUDA WRTS+21~, WRTS+22*, WRTS+23, WRTS+24
>> BLRURG NEWPRT+9*, WRTS+11, WRT+13
>> BLRWTC GETPG+3*, GETPG+11
>> BLRZIP NEWPRT+5*, XHDR+6
BN FNDSEQ~, FNDSEQ+11
>> BST ST+2*, ST+3
>> C STOR+12*, STOR+13*, STOR+14
CD CHKSECI+1~, CHKSECI+6*, CHKSECI+7
CDA CHKOEQ~, CHKOEQ+5
CDT FNDSEQ~
CNT CHKSECI+1~, CHKSECI+8*, CHKSECI+10*, CHKSECI+11, CHKSECI+12
COUNTER CHKSECI~, CHKSECI+14
CP PRT~, PRT+4*, PRT+6, PRT+8
>> DA STOR+15*
>> DEV DEV+2*, DEV+3, DEV+4
>> DFN CHKSECI+3*
>> DIK STOR+15*
DIR HDR+1!
DIR("A" ASKS+1*
DIR(0 HDR+1*, ASKS+1*
DIRUT WRTS+5, WRTS+6, HDR+1*, EOJ+4!, ASKS+3
>> DOB PHDR+8, WRT+6
DT STOR+5, STOR+14, DX+16, CHKSECI+6
DUZ STOR+4
DUZ(2 NEWPRT+1, NEWPRT+2, NEWPRT+3, NEWPRT+4, NEWPRT+5, NEWPRT+7, NEWPRT+8, SPHDR+1, PHDR+5, PHDR+17
, GETPG+24, XHDR+2, DEV+2, REP+1
DXCNT GETDXCNT+1~, GETDXCNT+2*, GETDXCNT+7*, GETDXCNT+8
DXDA DX+10~
DXDATA DX+10~, DX+15*, DX+16, GETDXCNT+1~
DXSTR DX+10~, DX+16*, DX+17, GETDXCNT+1~
EFF FNDSEQ+1~, FNDSEQ+2*, FNDSEQ+3, FNDSEQ+4
I PRT+6*, PRT+11, LZERO+1~, LZERO+2*
IDA LABINST+2~, LABINST+7*, LABINST+8
INST LABINST+2~, LABINST+6*, LABINST+8*, LABINST+9
IO DEV+3, DEV+7
IOF PRT+8, XHDR
>> IOP DEV+4*
IOSL WRTS+5, WRTS+6, GETPG+21, GETPG+28
IOST HDR+1
J INS+15~, INS+16*
L LZERO~, LZERO+2
>> LRTCOM( WRTS+19, WRTS+22, WRTS+23, WRTS+24
>> LRUID DX+12, GETDXCNT+4
MIEN MID+2*, MID+3, MID+4, EOJ+4!
MSG MID~, MID+1, MID+2, EOJ+4!
ORD DX+10~, DX+13*, DX+14, DX+15, GETDXCNT+1~, GETDXCNT+5*, GETDXCNT+6
ORDC WRTS+17*, WRTS+18, WRT+17*, WRT+18, EOJ+4!
ORDI DX+10~, DX+14*, DX+15, GETDXCNT+1~, GETDXCNT+6*
PAT CHKSECI~, CHKSECI+3, CHKSECI+7, CHKSECI+14
POL FNDSEQ~, FNDSEQ+12
POLI SEQINS+5~, SEQINS+7*, SEQINS+8
PT SEQINS~, SEQINS+8
PTI FNDSEQ~, FNDSEQ+2, FNDSEQ+4, FNDSEQ+10
RIEN RPRT~, RPRT+3, RPRT+4
>> RL( WRT+1, WRT+3, WRT+12, WRT+14, WRT+16, WRT+17
>> RL("CDT" WRT+10
>> RL("LOC" WRT+8
>> RL("ODT" WRT+8
>> RL("ORD" WRT+2
>> RL("ORDPNM" WRT+9
>> RL("ORDPUPIN" WRT+9
>> RL("PAT" WRT+4
RLCDT SEQINS~, SEQINS+8
SAMP LABINST~, LABINST+1, LABINST+3, LABINST+4
SAMPI LABINST+2~, LABINST+4*, LABINST+5, LABINST+7, LABINST+8
SDA WRT~, WRT+1, WRT+3, WRT+12, WRT+14, WRT+16, WRT+17
SECFLG CHKSECI+2*, CHKSECI+13*, GETPG+19, GETPG+26, EOJ+4!
SEQ CHKSECI+1~, CHKSECI+9*, CHKSECI+14, SEQINS+5~, SEQINS+8*, SEQINS+9, SEQINS+10
>> SEX PHDR+8, WRT+6
SQDA FNDSEQ+1~, FNDSEQ+4*, FNDSEQ+6
SQDATA FNDSEQ+5~, FNDSEQ+6*, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13
SQINS FNDSEQ+5~, FNDSEQ+8*, FNDSEQ+11
SQPAT FNDSEQ+5~, FNDSEQ+7*, FNDSEQ+10
SQPOL FNDSEQ+5~, FNDSEQ+9*, FNDSEQ+12
SQPRI FNDSEQ+1~, FNDSEQ+4, FNDSEQ+13*, FNDSEQ+14
ST ST~, ST+1, ST+2
TST LABINST~, LABINST+3, LABINST+4, LABINST+7, LABINST+8
TYP INSTYP~, INSTYP+2, INSTYP+3, INSTYP+4, INSTYP+5, INSTYP+6, INSTYP+7, INSTYP+8, INSTYP+9, INSTYP+10
TYPE INSTYP+1~, INSTYP+3*, INSTYP+4*, INSTYP+5*, INSTYP+6*, INSTYP+7*, INSTYP+8*, INSTYP+9*, INSTYP+10*, INSTYP+11
U NEWPRT+9, SPHDR+1, PHDR+4, PHDR+5, PHDR+9, PHDR+16, PHDR+17, WRTS+4, WRTS+7, WRTS+18
, DX+15, DX+17, SEQINS+6, SEQINS+7, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13, GETPG+24, WRT+1
, WRT+4, WRT+12, WRT+18, XHDR+2, MID+4, DEV+2, ST+2, REP+1
UID DX+10~, DX+11*, DX+12*, DX+13, GETDXCNT+1~, GETDXCNT+3*, GETDXCNT+4*, GETDXCNT+5
V LZERO~, LZERO+2*, LZERO+3
X STOR+11~, STOR+12*, STOR+13
>> Y HDR+1, ASKS+4
>> Z LZERO+2*
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