Routine: BLRSHPML

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

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*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSHPML

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: