Routine: BLRSHPM

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC UPDATE^DIE IX1^DIK $$GET1^DIQ ^DIR
IHS Changes To Lab	4	PRESSKEY^BLRGMENU (PRT,REP)^BLRSHPML REP^BLRSHPMQ RETACCV^BLRUTIL4
Kernel	3	^%ZIS ^%ZISC $$FMTE^XLFDT
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX
IHS VA Utilities	2	^XBCLS GUIR^XBLM
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT

Package	Total	Caller Graph
IHS Changes To Lab	3	BLREVTQ BLRRLEV2 BLRRLEVN

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
TOSCREEN	; EP - Reprint to the screen
ST(ST)	;-- get state abbreviation
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
DX(BDA)	;-- if insurance info print DX
RPRT(RIEN)	;-- reprint
SPHDR	;-- sub patient header
P1031FIX	; EP - Forcefully reset AGE, DOB, ORDNUM, and SEX variables
NEWPRT
LZERO(V,L)	;EP - left zero fill
PRT(RE,CP)	;EP - print shipping manifest
MID(MSG)	;-- get message id
XHDR
ALL	;-- run all sub routines after initial vars
WRTS	;-- write the output to the device
NOW()	;-- return now
GETDXCNT(BDA)	;-- get number of dx to display
GETPG()	;-- lets try and get a page count

Name	Field # of Occurrence
NOW^%DTC	NOW+1
^%ZIS	DEV+5, DEV+6
^%ZISC	PRT+9, PRT+15, EOJ+1, REP+8
$$AGE^AUPNPAT	P1031FIX+21
$$DOB^AUPNPAT	P1031FIX+20
$$HRN^AUPNPAT	NEWPRT+8
$$SEX^AUPNPAT	P1031FIX+19
PRESSKEY^BLRGMENU	TOSCREEN+9
PRT^BLRSHPML	PRT+6
REP^BLRSHPML	REP+4
REP^BLRSHPMQ	REP+2
RETACCV^BLRUTIL4	P1031FIX+12
UPDATE^DIE	STOR+7
IX1^DIK	STOR+16
$$GET1^DIQ	NEWPRT+1, NEWPRT+2, NEWPRT+3, NEWPRT+4, NEWPRT+5, NEWPRT+7, P1031FIX+15, P1031FIX+17, P1031FIX+24
^DIR	HDR+1, ASKS+3
$$ICDDX^ICDCODE	DX+11
$$ICDDX^ICDEX	DX+11
^XBCLS	TOSCREEN+5
GUIR^XBLM	STOR+11
$$FMTE^XLFDT	PHDR+2, PHDR+9, PHDR+18, WRT+6, WRT+8, WRT+10, XHDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRT+14
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 (Patient 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: "_$G(DOB),?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+6
Function Call: WRITE	Prompt: !,"SEX: "_$G(SEX),?10,"DOB: "_$S(+$G(DOB)>1950101:$$FMTE^XLFDT(DOB),1:$G(DOB)) Line Location: PHDR+9
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+10
Function Call: WRITE	Prompt: !,"LOCATION: "_^TMP("BLRRL",$J,"COMMON","LOC") Line Location: PHDR+13
Function Call: WRITE	Prompt: ?30,"BILL TYPE: "_$S($E($G(^TMP("BLRRL",$J,"COMMON","BILL TYPE")),1,1)="T":$G(^TMP("BLRRL",$J,"COMMON","INSTYP")),$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+8
Function Call: WRITE	Prompt: ?45,"SAMPLE: "_BLRSAMP Line Location: WRTS+9
Function Call: WRITE	Prompt: !,"SOURCE: "_^TMP("BLRRL",$J,BLRDA,"SRC") Line Location: WRTS+10
Function Call: WRITE	Prompt: ?45,"ACCESSION (Lab Ref#): "_^TMP("BLRRL",$J,BLRDA,"UID") Line Location: WRTS+11
Function Call: WRITE	Prompt: !,?45,"URGENCY: "_BLRURG Line Location: WRTS+12
Function Call: WRITE	Prompt: !,"LAB PROCESSING INSTR: "_$$LABINST(BLRDA,^TMP("BLRRL",$J,BLRDA,"SAMP")) Line Location: WRTS+13
Function Call: WRITE	Prompt: !!,"ORDER ENTRY QUESTIONS: " Line Location: WRTS+15
Function Call: WRITE	Prompt: !,?5,$P(ORDC,U,2),!,?5,$P(ORDC,U,3) Line Location: WRTS+19
Function Call: WRITE	Prompt: !!,"COMMENTS: " Line Location: WRTS+21
Function Call: WRITE	Prompt: !,?5,$TR($G(LRTCOM(BLRDA,BLRUDA)),"~") Line Location: WRTS+25
Function Call: WRITE	Prompt: !! Line Location: WRTS+28
Function Call: WRITE	Prompt: !,"DIAGNOSIS" Line Location: DX+3
Function Call: WRITE	Prompt: !,"Diagnosis: ",?25,"DX Description: " Line Location: DX+4
Function Call: WRITE	Prompt: !,$P(DXSTR,U,2),?25,$P(DXSTR,U,4) Line Location: DX+12
Function Call: WRITE	Prompt: !!,"INSURANCE" Line Location: INS+3
Function Call: WRITE	Prompt: !,"Insurer ID: "_$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: ?68,"Rel: "_$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: !,"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
Function Call: WRITE	Prompt: !,$G(^BLRSHPM(BLRRIEN,11,BLRDA,0)) Line Location: TOSCREEN+7
Routine Call	DIE Line Location: STOR+7
Routine Call	DIR Line Location: HDR+1 ASKS+3
Routine Call	%ZIS Line Location: DEV+5 DEV+6

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

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	PRT+5, XHDR+2, REP+1, REP+3
^BLRRLO - [#9009026.3]	DX+9, DX+10, GETDXCNT+6
^BLRRLO("ACC"	DX+8, GETDXCNT+5
^BLRSHPM - [#9009026.2]	STOR+14, STOR+15, RPRT+3, RPRT+4, TOSCREEN+6, TOSCREEN+7
^BLRSHPM("B"	PRT+2, STOR+1
^BLRSITE - [#9009029]	PRT+5, SPHDR+1, PHDR+5, PHDR+17, XHDR+2, DEV+2, REP+1, REP+3
^DIC(5 - [#5]	ST+2
^DPT - [#2]	PHDR+4, PHDR+5, PHDR+10, WRT+4
^ICDS(0	DX+11
^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+7, PRT+16, NEWPRT+8, NEWPRT+9, PHDR+1, PHDR+2, PHDR+4, PHDR+5, PHDR+10, PHDR+13 , PHDR+14, PHDR+16, PHDR+17, PHDR+18, P1031FIX+9, P1031FIX+29*, WRTS+2, WRTS+4, WRTS+8, WRTS+10 , WRTS+11, WRTS+13, WRTS+14, WRTS+17, WRTS+18, DX+2, DX+6, INS+2, INS+4, INS+5 , INS+6, INS+7, INS+8, INS+9, INS+10, INS+11, CHKOEQ+5, GETPG+6, GETPG+9, GETPG+14 , GETDXCNT+3, XHDR+2, XHDR+3, EOJ+2!
^TMP($J	STOR+10!, STOR+13, STOR+14, EOJ+3!

Name	Line Occurrences
$$CHKOEQ	WRTS+6
$$DEV	PRT+11, RPRT+1
$$GETDXCNT	GETPG+8
$$GETPG	NEWPRT+10
$$LABINST	WRTS+13
$$LZERO	PHDR+5
$$MID	PHDR+3
$$NOW	XHDR+5
$$ST	XHDR+6
ALL	NEWPRT+12
ASKS	REP+5, TOSCREEN+2
DX	WRTS+26
EOJ	PRT+2, PRT+17
INS	WRTS+27
NEWPRT	PRT+13
P1031FIX	PRT+4
PHDR	ALL+2
RPRT	REP+7
SPHDR	WRTS+6, WRTS+7
STOR	PRT+16
WRTS	ALL+3
XHDR	ALL+1, WRTS+6, WRTS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+2, LZERO+1~, LZERO+2*
ACC	STOR~, STOR+1, STOR+4
>> AGE	P1031FIX+7, P1031FIX+21*
ALLGOOD	P1031FIX+1~, P1031FIX+4, P1031FIX+5, P1031FIX+6, P1031FIX+7, P1031FIX+8, P1031FIX+9, P1031FIX+10
BDA	DX~, DX+1, INS~, INS+1, INS+4, INS+5, INS+6, INS+7, INS+8, INS+9 , INS+10, INS+11, GETDXCNT~, GETDXCNT+3
>> BHLMSG	PHDR+3
>> BLRAGUI	PRT+8
>> BLRALTDZ	PRT+5, NEWPRT+1, NEWPRT+2, NEWPRT+3, NEWPRT+4, NEWPRT+5, NEWPRT+7, PHDR+17, DEV+2, REP+1 , REP+3
BLRCDA	CHKOEQ+3~, CHKOEQ+5*
>> BLRCHT	NEWPRT+8*, PHDR+5, WRT+7
BLRCMCNT	GETPG+4~, GETPG+5, GETPG+10, GETPG+12
BLRCNT	CHKOEQ+3~, CHKOEQ+4, CHKOEQ+6, CHKOEQ+7
>> BLRCTY	NEWPRT+3*, XHDR+6
BLRDA	WRTS+1~, WRTS+2, WRTS+3, WRTS+4, WRTS+6, WRTS+8, WRTS+10, WRTS+11, WRTS+13, WRTS+14 , WRTS+17, WRTS+18, WRTS+20, WRTS+23, WRTS+24, WRTS+25, WRTS+26, WRTS+27, DX+6, RPRT+2~ , RPRT+3, RPRT+4, TOSCREEN+1~, TOSCREEN+6*, TOSCREEN+7
BLRDX	EOJ+4!
BLRDXCNT	GETPG+4~, GETPG+5, GETPG+8, GETPG+16, EOJ+4!
BLRERR	STOR+2~
BLRERR(1	STOR+8
>> BLRFAC	NEWPRT+1*, XHDR+5
BLRFDA	STOR+2~
BLRFDA(	STOR+4, STOR+5, STOR+6*
>> BLRHDC	GETPG+1*, GETPG+12
>> BLRI	XHDR+8*
BLRIEN	WRTS+1~
BLRIENS	STOR+2~, STOR+3*
BLRIENS(1	STOR+9
BLRINSCN	GETPG+13~, GETPG+15*, GETPG+16
BLRLN	CHKOEQ+1~, CHKOEQ+2*, CHKOEQ+7
BLRNACC	GETPG+4~, GETPG+5, GETPG+7, GETPG+11*, GETPG+12
BLRNCNT	GETPG+4~, GETPG+5, GETPG+12, GETPG+16*, GETPG+17
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+16~, WRTS+17, WRTS+18, WRT+16, WRT+17, EOJ+4!
>> BLRPDC	GETPG+2*, GETPG+12
>> BLRPG	GETPG+17*, GETPG+18, GETPG+19
>> BLRPGC	NEWPRT+10*
>> BLRPGE	GETPG+19*, GETPG+20
>> BLRPGP	GETPG+18, GETPG+20, GETPG+21
BLRPH	NEWPRT+6~, NEWPRT+7*, XHDR+6
BLRRIEN	REP+6!, REP+7, REP+9!, ASKS+5*, TOSCREEN+1~, TOSCREEN+3!, TOSCREEN+6, TOSCREEN+7
>> BLRRL("ORD"	P1031FIX+8, P1031FIX+28*
BLRRLASK	EOJ+4!
BLRRLBTP	EOJ+4!
BLRRLCLA	EOJ+4!
BLRRLCLT	EOJ+4!
BLRRLCNT	EOJ+4!
>> BLRSAMP	WRTS+4, WRTS+9, WRT+1, WRT+11
BLRSDA	EOJ+4!
BLRSECC	GETPG+13~
BLRSHIEN	PRT+16, STOR~, STOR+8, STOR+9, STOR+14, STOR+15, STOR+16
>> BLRST	NEWPRT+4*, XHDR+6
>> BLRSTR	NEWPRT+2*, XHDR+6
BLRUDA	WRTS+22~, WRTS+23*, WRTS+24, WRTS+25
>> BLRURG	NEWPRT+9*, WRTS+12, WRT+13
>> BLRWTC	GETPG+3*, GETPG+11
>> BLRZIP	NEWPRT+5*, XHDR+6
>> BST	ST+2*, ST+3
>> C	STOR+13, STOR+14, STOR+15
CDA	CHKOEQ~, CHKOEQ+5
CP	PRT~, PRT+6, PRT+10*, PRT+12, PRT+14
>> DA	STOR+16*
>> DEV	DEV+2*, DEV+3, DEV+4
DFN	P1031FIX+1~, P1031FIX+17*, P1031FIX+19, P1031FIX+20, P1031FIX+21
>> DIK	STOR+16*
DIR	HDR+1!, ASKS+1!
DIR("A"	ASKS+2*
DIR(0	HDR+1, ASKS+2
DIRUT	WRTS+6, WRTS+7, HDR+1*, EOJ+4!, ASKS+4
>> DOB	PHDR+9, P1031FIX+6, P1031FIX+20*, WRT+6
DT	STOR+6, STOR+15, DX+11
DUZ	STOR+5
DUZ(2	PRT+5, NEWPRT+1, NEWPRT+2, NEWPRT+3, NEWPRT+4, NEWPRT+5, NEWPRT+7, NEWPRT+8, SPHDR+1, PHDR+5 , PHDR+17, XHDR+2, DEV+2, REP+1, REP+3
DXCNT	GETDXCNT+1~, GETDXCNT+2, GETDXCNT+7, GETDXCNT+8
DXDA	DX+5~
DXDATA	DX+5~, DX+10*, DX+11, GETDXCNT+1~
DXSTR	DX+5~, DX+11*, DX+12, GETDXCNT+1~
I	PRT+12, PRT+16, INS+13~, INS+14, 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+14, XHDR
>> IOP	DEV+4*
IOSL	WRTS+6, WRTS+7, GETPG+17
IOST	HDR+1
L	LZERO~, LZERO+2
LRAA	P1031FIX+1~, P1031FIX+12, P1031FIX+13, P1031FIX+24
LRAD	P1031FIX+1~, P1031FIX+12, P1031FIX+13, P1031FIX+24
LRAN	P1031FIX+1~, P1031FIX+12, P1031FIX+13, P1031FIX+24
LRAS	P1031FIX+1~, P1031FIX+12
LRDFN	P1031FIX+1~, P1031FIX+12, P1031FIX+13, P1031FIX+15, P1031FIX+17
LRIDT	P1031FIX+1~, P1031FIX+12
LRSS	P1031FIX+1~, P1031FIX+12
>> LRTCOM(	WRTS+20, WRTS+23, WRTS+24, WRTS+25
>> LRUID	PRT+2, PRT+4, P1031FIX+12, DX+7, GETDXCNT+4
MIEN	MID+2*, MID+3, MID+4, EOJ+4!
MSG	MID~, MID+1, MID+2, EOJ+4!
ORD	DX+5~, DX+8, DX+9, DX+10, GETDXCNT+1~, GETDXCNT+5, GETDXCNT+6
ORDC	WRTS+18, WRTS+19, WRT+17, WRT+18, EOJ+4!
ORDI	DX+5~, DX+9, DX+10, GETDXCNT+1~, GETDXCNT+6
ORDNUM	P1031FIX+1~, P1031FIX+24*, P1031FIX+25, P1031FIX+28, P1031FIX+29
RE	PRT~, PRT+2
RIEN	RPRT~, RPRT+3, RPRT+4, TOSCREEN+1~
>> 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
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
>> SEX	PHDR+9, P1031FIX+5, P1031FIX+19*, WRT+6
ST	ST~, ST+1, ST+2
TST	LABINST~, LABINST+3, LABINST+4, LABINST+7, LABINST+8
U	PRT+5, NEWPRT+9, SPHDR+1, PHDR+4, PHDR+5, PHDR+10, PHDR+16, PHDR+17, WRTS+4, WRTS+8 , WRTS+19, DX+10, DX+12, WRT+1, WRT+4, WRT+12, WRT+18, XHDR+2, MID+4, DEV+2 , ST+2, REP+1, REP+3
UID	DX+5~, DX+6, DX+7, DX+8, GETDXCNT+1~, GETDXCNT+3, GETDXCNT+4, GETDXCNT+5
V	LZERO~, LZERO+2*, LZERO+3
X	STOR+12~, STOR+13*, STOR+14
>> Y	HDR+1, ASKS+5
>> Z	LZERO+2*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSHPM

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: