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

Package: IHS Changes To Lab

Routine: BLRSHPMQ


Information

BLRSHPMQ ;cmi/anch/maw - BLR Reference Lab Shipping Manifest Quest 11:46 ;JUL 06, 2010 3:14 PM

Source Information

Source file <BLRSHPMQ.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 2

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*
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