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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDREL1

Package: Third Party Billing

Routine: ABMDREL1


Information

ABMDREL1 ; IHS/SD/SDR - PRINT MCR,MCD OR PI HOLDERS ;

Source Information

Source file <ABMDREL1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Third Party Billing 2 DONE^ABMDREL0  $$EN^ABMVDF  
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient 1 $$HISTMBI^AUPNMBI  

Entry Points

Name Comments DBIA/ICR reference
PIH
HEAD
HEAD1 ;
MCRA2 ;
MCD ;
MCD2 ;
MCD3 ;
START
DFN ;
DONE
MCDH ;
PI2 ;
PI ;
MCRAH ;
MCRA ;

External References

Name Field # of Occurrence
DD^%DT MCRA+2, MCRA+5, MCRA2+2, PI+2, PI2+8, MCD+2, MCD3+1
DONE^ABMDREL0 DONE
$$EN^ABMVDF HEAD1+1
$$HISTMBI^AUPNMBI MCRA+11
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"TOTAL NUMBER OF ",ABMD("TITL"),": ",ABMD("TOT"),!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"(REG) ",ABMD("PN"),?36,$J(ABMD("HRN"),6),?49,ABMD("MEDN"),?64,ABMD("OB"),!,"(MCR) ",ABMD("MN"),?64,ABMD("MDOB")
  • Line Location: MCRA+16
Function Call: WRITE
  • Prompt: !,ABMD("80D")
  • Line Location: MCRA+18
Function Call: WRITE
  • Prompt: !,?19,$P(ABMD("R"),U,3)
  • Line Location: MCRA2+2
Function Call: WRITE
  • Prompt: ?32,Y
  • Line Location: MCRA2+2
Function Call: WRITE
  • Prompt: ?32,Y
  • Line Location: MCRA2+2
Function Call: WRITE
  • Prompt: !,ABMD("PN"),?40,ABMD("HRN"),?56,ABMD("OB")
  • Line Location: PI+4
Function Call: WRITE
  • Prompt: !,ABMD("80D")
  • Line Location: PI+6
Function Call: WRITE
  • Prompt: !," INSURER: ",$P(^AUTNINS($P(ABMD("R"),U,1),0),U,1)
  • Line Location: PI2+4
Function Call: WRITE
  • Prompt: !," POLICY #: ",$S($P(ABMD("R"),U,8):$P($G(^AUPN3PPH($P(ABMD("R"),U,8),0)),U,4),1:""),?47,"COVERAGE TYPE: ",$E(ABMD("COVT"),1,16)
  • Line Location: PI2+6
Function Call: WRITE
  • Prompt: !," INSURED: ",$P(ABMD("R"),U,4),?47,"REL: ",$S($P(ABMD("R"),U,5)]"":$P(^AUTTRLSH($P(ABMD("R"),U,5),0),U),1:"")
  • Line Location: PI2+7
Function Call: WRITE
  • Prompt: !," ELIG BEG DATE: "
  • Line Location: PI2+8
Function Call: WRITE
  • Prompt: Y,?47,"ELIG END DATE: "
  • Line Location: PI2+8
Function Call: WRITE
  • Prompt: Y,?47,"ELIG END DATE: "
  • Line Location: PI2+8
Function Call: WRITE
  • Prompt: !,"(REG) ",ABMD("PN"),?46,ABMD("HRN"),?61,ABMD("OB")
  • Line Location: MCD+4
Function Call: WRITE
  • Prompt: !,ABMD("80D")
  • Line Location: MCD+6
Function Call: WRITE
  • Prompt: !,"(MCD) ",ABMD("MN"),?61,ABMD("MDOB")
  • Line Location: MCD2+4
Function Call: WRITE
  • Prompt: !," MEDICAID #: ",$P(ABMD("R"),U,3),?50,"STATE: ",$S($P(ABMD("R"),U,4)]"":$P(^DIC(5,$P(ABMD("R"),U,4),0),U),1:"")
  • Line Location: MCD2+5
Function Call: WRITE
  • Prompt: !," NAME/INSURED: ",$P(ABMD("R"),U,5),?50,"SEX OF INSURED: ",$P(ABMD("R"),U,7)
  • Line Location: MCD2+6
Function Call: WRITE
  • Prompt: !," ELIG BEG DATE: "
  • Line Location: MCD3+1
Function Call: WRITE
  • Prompt: ?20,Y,?35,"COVERAGE: ",$P(ABMD("NREC"),U,3),?50,"ELIG END DATE: "
  • Line Location: MCD3+1
Function Call: WRITE
  • Prompt: ?20,Y,?35,"COVERAGE: ",$P(ABMD("NREC"),U,3),?50,"ELIG END DATE: "
  • Line Location: MCD3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,ABMD("SU"),0),U))/2),$P(^DIC(4,ABMD("SU"),0),U),?72,"Page ",ABMD("PG"),!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?((80-ABMD("LENG"))/2),"REGISTERED PATIENTS - ",ABMD("TITL"),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?23,"Actively enrolled as of ",ABMD("ACEY"),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ABMD("80D")
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !," NAME",?36,"CHART #",?49,"MEDICARE #",!,"(TYPE)",?14,"COVERAGE",?32,"ELIG BEG DATE",?49,"ELIG END DATE",?64,"DATE OF BIRTH",!
  • Line Location: MCRAH+1
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?40,"CHART #",?55,"DATE OF BIRTH",!
  • Line Location: PIH+0
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?40,"CHART #",?55,"DATE OF BIRTH",!
  • Line Location: MCDH+1
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] PI2+6
^AUPNMCD - [#9000004] MCD+5, MCD2+2, MCD2+3, MCD2+7
^AUPNMCR - [#9000003] MCRA+4, MCRA+5, MCRA+14, MCRA+17
^AUPNPAT - [#9000001] MCRA+3, PI+3, MCD+3
^AUPNPRVT - [#9000006] PI+5, PI2+1
^AUTNINS - [#9999999.18] PI2+4
^AUTTMCS - [#9999999.32] MCRA+14
^AUTTPIC - [#9999999.65] PI2+2
^AUTTRLSH - [#9999999.36] PI2+7
^DIC(4 - [#4] HEAD1+2
^DIC(5 - [#5] MCD2+5
^DPT - [#2] MCRA+2, PI+2, MCD+2
^TMP("ABMDBRH" START+4, DFN+1, MCRA+17, PI+5, MCD+5, MCD2+7

Label References

Name Line Occurrences
@( DFN+1, HEAD1+7
DFN START+4
DONE START+5, START+6
HEAD START+2, START+6, MCRA+1, MCRA2+1, PI+1, PI2+3, MCD+1, MCD2+1
HEAD1 HEAD
MCD2 MCD+5
MCD3 MCD2+7
MCRA2 MCRA+17
PI2 PI+5

Naked Globals

Name Field # of Occurrence
^(0 MCRA+14, MCRA+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABMD("$J" START+4, DFN+1, MCRA+17, PI+5, MCD+5, MCD2+7
>> ABMD("80D" START!*, MCRA+18, PI+6, MCD+6, HEAD1+8
>> ABMD("ACEY" HEAD1+5
>> ABMD("COVT" PI2+2*, PI2+6
>> ABMD("DFN" DFN+1*, MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA+11, MCRA+14, MCRA+17, PI+2, PI+3
, PI+5, PI2+1, MCD+2, MCD+3, MCD+5, MCD2+7
>> ABMD("ET" START+1*
>> ABMD("HRN" MCRA+3*, MCRA+16, PI+3*, PI+4, MCD+3*, MCD+4
>> ABMD("LENG" HEAD1+3*, HEAD1+4
>> ABMD("MDFN" MCRA+17*, PI+5*, PI2+1, MCD+5*, MCD2+2, MCD2+3, MCD2+7
>> ABMD("MDOB" MCRA+5*, MCRA+16, MCD2+3*, MCD2+4
>> ABMD("MEDN" MCRA+10*, MCRA+13*, MCRA+14*, MCRA+16
>> ABMD("MN" MCRA+4*, MCRA+16, MCD2+2*, MCD2+4
>> ABMD("NDFN" MCD2+7*
>> ABMD("NREC" MCD2+7*, MCD3+1
>> ABMD("OB" MCRA+2*, MCRA+16, PI+2*, PI+4, MCD+2*, MCD+4
>> ABMD("PG" START+2*, HEAD, HEAD1+1*, HEAD1+2
>> ABMD("PN" START+3*, START+4*, DFN+1, MCRA+16, MCRA+17, PI+4, PI+5, MCD+4, MCD+5, MCD2+7
>> ABMD("PROC" DFN+1, HEAD1+7
>> ABMD("Q" START+3!, START+4, START+5, START+6, DFN+1, MCRA+1, MCRA+17, MCRA2+1, PI+1, PI+5
, PI2+3, MCD+1, MCD+5, MCD2+1, MCD2+7, HEAD+1*
>> ABMD("R" MCRA+17*, MCRA2+2, PI+5*, PI2+2, PI2+4, PI2+6, PI2+7, PI2+8, MCD+5*, MCD2+5
, MCD2+6
>> ABMD("SU" MCRA+3, PI+3, MCD+3, HEAD1+2
>> ABMD("TITL" START+7, HEAD1+3, HEAD1+4
>> ABMD("TOT" START+7
ABMMBI MCRA+8!, MCRA+9*, MCRA+11*, MCRA+12*, MCRA+13
ABMMBI( MCRA+13
ABMMBI(999999999 MCRA+12
DIR HEAD+1!
DIR(0 HEAD+1*
>> DIROUT HEAD+1
>> DTOUT HEAD+1
>> DUOUT HEAD+1
IO("S" HEAD+1
IOSL START+6, MCRA+1, MCRA2+1, PI+1, PI2+3, MCD+1, MCD2+1
IOST HEAD+1
U MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA+13, MCRA+14, MCRA2+2, PI+2, PI+3, PI2+1
, PI2+2, PI2+4, PI2+6, PI2+7, PI2+8, MCD+2, MCD+3, MCD2+2, MCD2+3, MCD2+5
, MCD2+6, MCD3+1, HEAD1+2
>> Y MCRA+2*, MCRA+5*, MCRA2+2*, PI+2*, PI2+8*, MCD+2*, MCD3+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All