Routine: BLRSHPMQ

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC UPDATE^DIE IX1^DIK $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC $$FMTE^XLFDT
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	GUIR^XBLM

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRSHPM BLRSHPML

Entry Points

Name	Comments	DBIA/ICR reference
DEV()	;-- device handler
ST(ST)	;-- get state abbreviation
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
HDR	;-- this is the header
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
PRT	;EP - print shipping manifest
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
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
NOW()	;-- return now
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+17, EOJ+1, REP+4
$$HRN^AUPNPAT	PRT+12
UPDATE^DIE	STOR+7
IX1^DIK	STOR+16
$$GET1^DIQ	PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+11
^DIR	HDR+1, ASKS+2
GUIR^XBLM	STOR+11
$$FMTE^XLFDT	PHDR+4, PHDR+11, PHDR+20, WRT+6, WRT+8, WRT+10, XHDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now printing shipping manifest for this accession" Line Location: PRT+2
Function Call: WRITE	Prompt: ! Line Location: PHDR+1
Function Call: WRITE	Prompt: "=" Line Location: PHDR+2
Function Call: WRITE	Prompt: !!,"ORDER (Control): "_^TMP("BLRRL",$J,"COMMON","ORD") Line Location: PHDR+3
Function Call: WRITE	Prompt: ?30,"ORDER DATE: "_$$FMTE^XLFDT(^TMP("BLRRL",$J,"COMMON","ODT")) Line Location: PHDR+4
Function Call: WRITE	Prompt: ?60,"MID: "_$$MID(+$G(BHLMSG)) Line Location: PHDR+5
Function Call: WRITE	Prompt: !,"PATIENT: "_$P($G(^DPT(^TMP("BLRRL",$J,"COMMON","PAT"),0)),U) Line Location: PHDR+6
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+7
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+8
Function Call: WRITE	Prompt: !,"SEX: "_$G(SEX),?10,"DOB: "_$S(+$G(DOB)>1950101:$$FMTE^XLFDT(DOB),1:$G(DOB)) Line Location: PHDR+11
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+12
Function Call: WRITE	Prompt: !,"LOCATION: "_^TMP("BLRRL",$J,"COMMON","LOC") Line Location: PHDR+15
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+16
Function Call: WRITE	Prompt: !,"PRACTITIONER: "_$P(^TMP("BLRRL",$J,"COMMON","ORDPNM"),U)_", "_$P(^TMP("BLRRL",$J,"COMMON","ORDPNM"),U,2) Line Location: PHDR+18
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+19
Function Call: WRITE	Prompt: !,"LAB ARRIVAL (COLLECTION DATE/TIME): "_$$FMTE^XLFDT(^TMP("BLRRL",$J,"COMMON","CDT")) Line Location: PHDR+20
Function Call: WRITE	Prompt: !!,"ACCESSION (Lab Ref#): "_^TMP("BLRRL",$J,BLRDA,"UID") Line Location: WRTS+9
Function Call: WRITE	Prompt: !,"TEST NAME: "_$P(^TMP("BLRRL",$J,BLRDA,"TCNM"),U,2)_" ("_$P(^TMP("BLRRL",$J,BLRDA,"TCNM"),U)_")" Line Location: WRTS+10
Function Call: WRITE	Prompt: ?45,"SAMPLE: "_BLRSAMP Line Location: WRTS+11
Function Call: WRITE	Prompt: !,"SOURCE: "_^TMP("BLRRL",$J,BLRDA,"SRC") Line Location: WRTS+12
Function Call: WRITE	Prompt: ?45,"URGENCY: "_BLRURG Line Location: WRTS+13
Function Call: WRITE	Prompt: !,"LAB PROCESSING INSTR: "_$$LABINST(BLRDA,^TMP("BLRRL",$J,BLRDA,"SAMP")) Line Location: WRTS+14
Function Call: WRITE	Prompt: !!,"ORDER ENTRY QUESTIONS: " Line Location: WRTS+16
Function Call: WRITE	Prompt: !,?5,$P(ORDC,U,2),!,?5,$P(ORDC,U,3) Line Location: WRTS+21
Function Call: WRITE	Prompt: !!,"COMMENTS: " Line Location: WRTS+23
Function Call: WRITE	Prompt: !,?5,$TR($G(LRTCOM(BLRDA,BLRUDA)),"~") Line Location: WRTS+27
Function Call: WRITE	Prompt: !! Line Location: WRTS+29
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: !!,"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_" of "_BLRPGC 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: !,$G(^BLRSHPM(RIEN,11,BLRDA,0)) Line Location: RPRT+4
Routine Call	DIE Line Location: STOR+7
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)
^BLRRL - [#9009026]	XHDR+2
^BLRSHPM - [#9009026.2]	STOR+14, STOR+15, RPRT+3, RPRT+4
^BLRSITE - [#9009029]	PHDR+7, PHDR+19, XHDR+2, DEV+2
^DIC(5 - [#5]	ST+2
^DPT - [#2]	PHDR+6, PHDR+7, PHDR+12, WRT+4
^INTHU - [#4001]	MID+4
^INTHU("AT"	MID+2
^LAB(60 - [#60]	LABINST+3, LABINST+4, LABINST+7, LABINST+8
^LAB(62 - [#62]	WRTS+7, WRT+1
^LAB(62.05 - [#62.05]	PRT+13
^TMP("BLRRL"	PRT+1, PRT+12, PRT+13, PRT+18, PHDR+3, PHDR+4, PHDR+6, PHDR+7, PHDR+12, PHDR+15 , PHDR+16, PHDR+18, PHDR+19, PHDR+20, WRTS+3, WRTS+7, WRTS+9, WRTS+10, WRTS+12, WRTS+14 , WRTS+15, WRTS+18, WRTS+19, DX+2, DX+7, DX+8, INS+2, INS+4, INS+5, INS+6 , INS+7, INS+8, INS+9, INS+10, INS+11, CHKOEQ+5, GETPG+6, GETPG+7, XHDR+2, XHDR+3 , EOJ+2!
^TMP($J	STOR+10!, STOR+13, STOR+14, EOJ+3!

Label References

Name	Line Occurrences
$$CHKOEQ	WRTS+8
$$DEV	PRT+4, RPRT+1
$$GETPG	PRT+14
$$LABINST	WRTS+14
$$LZERO	PHDR+7
$$MID	PHDR+5
$$NOW	XHDR+5
$$ST	XHDR+6
ALL	PRT+16
ASKS	REP+1
DX	WRTS+28
EOJ	PRT+19
INS	WRTS+6, WRTS+8
PHDR	WRTS+5, WRTS+8
RPRT	REP+3
STOR	PRT+18
WRTS	ALL+3
XHDR	ALL+1, WRTS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+2, LZERO+1~, LZERO+2*
ACC	STOR~, STOR+4
BDA	DX~, DX+1, DX+7, DX+8, INS~, INS+1, INS+4, INS+5, INS+6, INS+7 , INS+8, INS+9, INS+10, INS+11
>> BHLMSG	PHDR+5
>> BLRALTDZ	PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+11, PHDR+19, DEV+2
BLRCDA	CHKOEQ+3~, CHKOEQ+5*
>> BLRCHT	PRT+12*, PHDR+7, WRT+7
BLRCNT	CHKOEQ+3~, CHKOEQ+4, CHKOEQ+6, CHKOEQ+7
>> BLRCTY	PRT+7*, XHDR+6
BLRDA	WRTS+1~, WRTS+3, WRTS+4, WRTS+6, WRTS+7, WRTS+8, WRTS+9, WRTS+10, WRTS+12, WRTS+14 , WRTS+15, WRTS+18, WRTS+19, WRTS+22, WRTS+25, WRTS+26, WRTS+27, WRTS+28, RPRT+2~, RPRT+3 , RPRT+4
BLRDX	EOJ+4!
BLRERR	STOR+2~
BLRERR(1	STOR+8
>> BLRFAC	PRT+5*, XHDR+5
BLRFDA	STOR+2~
BLRFDA(	STOR+4, STOR+5, STOR+6*
>> BLRHDC	GETPG+1*, GETPG+9
>> BLRI	PHDR+2*
BLRIEN	WRTS+1~
BLRIENS	STOR+2~, STOR+3*
BLRIENS(1	STOR+9
BLRLN	CHKOEQ+1~, CHKOEQ+2*, CHKOEQ+7
BLRNCNT	GETPG+4~, GETPG+5, GETPG+8, GETPG+9*, GETPG+10
BLRNDA	GETPG+4~, GETPG+5, GETPG+6, GETPG+7
BLRNIEN	GETPG+4~, GETPG+7*
>> BLRNPG	PRT+15, XHDR+1, XHDR+8
BLRODA	WRTS+17~, WRTS+18, WRTS+19, WRT+16, WRT+17, EOJ+4!
>> BLRPDC	GETPG+2*, GETPG+9
>> BLRPG	GETPG+10*, GETPG+11, GETPG+12
>> BLRPGC	PRT+14*, XHDR+1
>> BLRPGE	GETPG+12*, GETPG+13
>> BLRPGP	GETPG+11, GETPG+13, GETPG+14
BLRPH	PRT+10~, PRT+11*, XHDR+6
BLRRIEN	REP+2!, REP+3, REP+5!, ASKS+4*
BLRRLASK	EOJ+4!
BLRRLBTP	EOJ+4!
BLRRLCLA	EOJ+4!
BLRRLCLT	EOJ+4!
BLRRLCNT	EOJ+4!
>> BLRSAMP	WRTS+7, WRTS+11, WRT+1, WRT+11
BLRSDA	EOJ+4!
BLRSHIEN	PRT+18, STOR~, STOR+8, STOR+9, STOR+14, STOR+15, STOR+16
>> BLRST	PRT+8*, XHDR+6
>> BLRSTR	PRT+6*, XHDR+6
BLRUDA	WRTS+24~, WRTS+25*, WRTS+26, WRTS+27
>> BLRURG	PRT+13*, WRTS+13, WRT+13
>> BLRWTC	GETPG+3*, GETPG+9
>> BLRZIP	PRT+9*, XHDR+6
>> BST	ST+2*, ST+3
>> C	STOR+13, STOR+14, STOR+15
CDA	CHKOEQ~, CHKOEQ+5
>> DA	STOR+16*
>> DEV	DEV+2*, DEV+3, DEV+4
>> DIK	STOR+16*
DIR	HDR+1!
DIR("A"	ASKS+1*
DIR(0	HDR+1, ASKS+1
DIRUT	WRTS+8, HDR+1*, EOJ+4!, ASKS+3
>> DOB	PHDR+11, WRT+6
DT	STOR+6, STOR+15
DUZ	STOR+5
DUZ(2	PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+11, PRT+12, PHDR+7, PHDR+19, XHDR+2 , DEV+2
DXDA	DX+6~, DX+7*, DX+8
I	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	XHDR
>> IOP	DEV+4*
IOSL	WRTS+8, GETPG+10
IOST	HDR+1
L	LZERO~, LZERO+2
>> LRTCOM(	WRTS+22, WRTS+25, WRTS+26, WRTS+27
MIEN	MID+2*, MID+3, MID+4, EOJ+4!
MSG	MID~, MID+1, MID+2, EOJ+4!
ORDC	WRTS+19, WRTS+21, WRT+17, WRT+18, EOJ+4!
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
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+11, WRT+6
ST	ST~, ST+1, ST+2
TST	LABINST~, LABINST+3, LABINST+4, LABINST+7, LABINST+8
U	PRT+13, PHDR+6, PHDR+7, PHDR+12, PHDR+18, PHDR+19, WRTS+7, WRTS+10, WRTS+21, WRT+1 , WRT+4, WRT+12, WRT+18, XHDR+2, MID+4, DEV+2, ST+2
V	LZERO~, LZERO+2*, LZERO+3
X	STOR+12~, STOR+13*, STOR+14
>> Y	HDR+1, ASKS+4
>> Z	LZERO+2*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSHPMQ

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: