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 |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: BLRSHPL2

Package: IHS Changes To Lab

Routine: BLRSHPL2


Information

BLRSHPL2 ;cmi/anch/maw - BLR Reference Lab Shipping Manifest: Others ; 20-May-2016 07:17 ; MKK

Source Information

Source file <BLRSHPL2.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS Changes To Lab 1 ($$GT1ADD,$$INSADD,$$PATADD)^BLRRLHL  
Kernel 1 $$HLNAME^XLFNAME  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRSHPML  

Entry Points

Name Comments DBIA/ICR reference
PRTSECI(SEC,PT) ;-- print the secondary insurance
WA ;-- print labcorp written authorization

External References

Name Field # of Occurrence
$$GT1ADD^BLRRLHL PRTSECI+22
$$INSADD^BLRRLHL PRTSECI+16
$$PATADD^BLRRLHL PRTSECI+14, PRTSECI+15, PRTSECI+29
$$HLNAME^XLFNAME PRTSECI+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: WA+1
Function Call: WRITE
  • Prompt: "I hereby authorize the release of medical information related to the services"
  • Line Location: WA+2
Function Call: WRITE
  • Prompt: !,"described herein and authorize payment directly to Laboratory Corporation of"
  • Line Location: WA+3
Function Call: WRITE
  • Prompt: !,"America. I agree to assume responsibility for payment of charges for"
  • Line Location: WA+4
Function Call: WRITE
  • Prompt: !,"laboratory services that are not covered by any healthcare insurer."
  • Line Location: WA+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: WA+6
Function Call: WRITE
  • Prompt: "____________________ __________",?40,"___________________ __________"
  • Line Location: WA+7
Function Call: WRITE
  • Prompt: !,"Patient Signature Date",?40,"Physician Signature Date"
  • Line Location: WA+8
Function Call: WRITE
  • Prompt: !!,"SECONDARY INSURANCE"
  • Line Location: PRTSECI+39
Function Call: WRITE
  • Prompt: !,"Ins Carrier Code: "_$G(ICC),?40,"Insured Name: "_$E($P($G(^DPT(PT,0)),U),1,26)
  • Line Location: PRTSECI+40
Function Call: WRITE
  • Prompt: !,?40,"Relationship: "_$G(IRE)
  • Line Location: PRTSECI+41
Function Call: WRITE
  • Prompt: !,"Insurer Name: ",$E($G(INRN),1,30),?40,"Insured Add: "_$P(INRAE,"~")
  • Line Location: PRTSECI+42
Function Call: WRITE
  • Prompt: !,"Insurer Add: ",?54,$P(INRAE,"~",2)
  • Line Location: PRTSECI+43
Function Call: WRITE
  • Prompt: !,$P($G(INSADE),"~"),?40,"Guarantor: "_$E($G(GUARE),1,25)
  • Line Location: PRTSECI+44
Function Call: WRITE
  • Prompt: !,$P($G(INSADE),"~",2),?40,"Guar Add: "_$P($G(GUARAE),"~")
  • Line Location: PRTSECI+45
Function Call: WRITE
  • Prompt: !,"Insurer Group: "_$G(ING),?50,$P($G(GUARE),"~",2)
  • Line Location: PRTSECI+46
Function Call: WRITE
  • Prompt: !,"Insured ID: "_$G(INID),?40,"Guarantor Phone: "_$G(GUARPH)
  • Line Location: PRTSECI+47

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] PRTSECI+21, PRTSECI+23
^AUTNINS - [#9999999.18] PRTSECI+4, PRTSECI+13, PRTSECI+19
^AUTTRLSH - [#9999999.36] PRTSECI+5
^DPT - [#2] PRTSECI+28, PRTSECI+30, PRTSECI+32, PRTSECI+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
GUAR PRTSECI+1~, PRTSECI+21*, PRTSECI+26, PRTSECI+28*, PRTSECI+31, PRTSECI+32*, PRTSECI+36
GUARA PRTSECI+1~, PRTSECI+25, PRTSECI+29*, PRTSECI+33*, PRTSECI+35
>> GUARAD PRTSECI+22*
GUARAE PRTSECI+1~, PRTSECI+25*, PRTSECI+35*, PRTSECI+45
>> GUARE PRTSECI+26*, PRTSECI+36*, PRTSECI+44, PRTSECI+46
GUARI PRTSECI+1~, PRTSECI+18*, PRTSECI+20, PRTSECI+21, PRTSECI+22, PRTSECI+23, PRTSECI+27
GUARP PRTSECI+1~
GUARPH PRTSECI+1~, PRTSECI+23*, PRTSECI+30*, PRTSECI+47
ICC PRTSECI+1~, PRTSECI+4*, PRTSECI+40
IN PRTSECI+1~
ING PRTSECI+1~, PRTSECI+37*, PRTSECI+46
INID PRTSECI+1~, PRTSECI+38*, PRTSECI+47
INRA PRTSECI+1~, PRTSECI+14*
INRAE PRTSECI+1~, PRTSECI+15*, PRTSECI+33, PRTSECI+42, PRTSECI+43
INRN PRTSECI+1~, PRTSECI+13*, PRTSECI+42
INSAD PRTSECI+1~, PRTSECI+16*, PRTSECI+17
INSADE PRTSECI+1~, PRTSECI+17*, PRTSECI+44, PRTSECI+45
INSI PRTSECI+1~, PRTSECI+3*, PRTSECI+4, PRTSECI+13, PRTSECI+16, PRTSECI+19
INST PRTSECI+2~, PRTSECI+19*
IR PRTSECI+1~, PRTSECI+5*, PRTSECI+6, PRTSECI+7*, PRTSECI+8*, PRTSECI+9*, PRTSECI+10*, PRTSECI+11*, PRTSECI+12*
IRE PRTSECI+1~, PRTSECI+8*, PRTSECI+9*, PRTSECI+10*, PRTSECI+11*, PRTSECI+12*, PRTSECI+41
PT PRTSECI~, PRTSECI+14, PRTSECI+15, PRTSECI+28, PRTSECI+29, PRTSECI+30, PRTSECI+32, PRTSECI+40
SEC PRTSECI~, PRTSECI+3, PRTSECI+5, PRTSECI+18, PRTSECI+37, PRTSECI+38
U PRTSECI+3, PRTSECI+4, PRTSECI+5, PRTSECI+13, PRTSECI+15, PRTSECI+17, PRTSECI+18, PRTSECI+19, PRTSECI+21, PRTSECI+23
, PRTSECI+25, PRTSECI+26, PRTSECI+28, PRTSECI+30, PRTSECI+32, PRTSECI+35, PRTSECI+36, PRTSECI+37, PRTSECI+38, PRTSECI+40
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All