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

Package: Patient Care Component Reports

Routine: APCLBRH1


Information

APCLBRH1 ; IHS/CMI/LAB - PRINT MCR,MCD OR PI HOLDERS ;

Source Information

Source file <APCLBRH1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
IHS Patient Registration 1 $$GETMCR^AGUTL  
Patient Care Component Reports 1 DONE^APCLOSUT  

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+5, MCD+2, MCD3+1
$$GETMCR^AGUTL MCRA+7
DONE^APCLOSUT DONE
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"TOTAL NUMBER OF ",APCLTITL,": ",APCLTOT,!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"(REG) ",APCLPN,?36,$J(APCLHRN,6),?49,APCLMEDN,?64,DOB
  • Line Location: MCRA+8
Function Call: WRITE
  • Prompt: !,"(MCR) ",APCLMN,?64,APCLMDOB
  • Line Location: MCRA+9
Function Call: WRITE
  • Prompt: !,APCL80D
  • Line Location: MCRA+11
Function Call: WRITE
  • Prompt: !?19,$P(APCLR,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: !,APCLPN,?40,APCLHRN,?56,DOB
  • Line Location: PI+4
Function Call: WRITE
  • Prompt: !,APCL80D
  • Line Location: PI+6
Function Call: WRITE
  • Prompt: !," INSURER: ",$P(^AUTNINS($P(APCLR,U),0),U)
  • Line Location: PI2+2
Function Call: WRITE
  • Prompt: !," POLICY #: ",$S($P($G(^AUPNPRVT(DFN,11,APCLMDFN,2)),U,1)]"":$P(^AUPNPRVT(DFN,11,APCLMDFN,2),U,1),$P(APCLR,U,8):$P(^AUPN3PPH($P(APCLR,U,8),0),U,4),1:$P(APCLR,U,2)),?47,"COVERAGE TYPE: ",$P(APCLR,U,3)
  • Line Location: PI2+3
Function Call: WRITE
  • Prompt: !," INSURED: ",$P(APCLR,U,4),?47,"REL: ",$S($P(APCLR,U,5)]"":$P(^AUTTRLSH($P(APCLR,U,5),0),U),1:"")
  • Line Location: PI2+4
Function Call: WRITE
  • Prompt: !," ELIG BEG DATE: "
  • Line Location: PI2+5
Function Call: WRITE
  • Prompt: Y,?47,"ELIG END DATE: "
  • Line Location: PI2+5
Function Call: WRITE
  • Prompt: Y,?47,"ELIG END DATE: "
  • Line Location: PI2+5
Function Call: WRITE
  • Prompt: !,"(REG) ",APCLPN,?46,APCLHRN,?61,DOB
  • Line Location: MCD+4
Function Call: WRITE
  • Prompt: !,APCL80D
  • Line Location: MCD+6
Function Call: WRITE
  • Prompt: !,"(MCD) ",APCLMN,?61,APCLMDOB
  • Line Location: MCD2+4
Function Call: WRITE
  • Prompt: !," MEDICAID #: ",$P(APCLR,U,3),?50,"STATE: ",$S($P(APCLR,U,4)]"":$P(^DIC(5,$P(APCLR,U,4),0),U),1:"")
  • Line Location: MCD2+5
Function Call: WRITE
  • Prompt: !," NAME/INSURED: ",$P(APCLR,U,5),?50,"SEX OF INSURED: ",$P(APCLR,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(APCLNREC,U,3),?50,"ELIG END DATE: "
  • Line Location: MCD3+1
Function Call: WRITE
  • Prompt: ?20,Y,?35,"COVERAGE: ",$P(APCLNREC,U,3),?50,"ELIG END DATE: "
  • Line Location: MCD3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,APCLSU,0),U))/2),$P(^DIC(4,APCLSU,0),U),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?((80-APCLLENG)/2),"REGISTERED PATIENTS - ",APCLTITL,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?23,"Actively enrolled as of ",APCLACEY,!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: APCL80D
  • 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+3
^AUPNMCD - [#9000004] MCD+5, MCD2+2, MCD2+3, MCD2+7
^AUPNMCR - [#9000003] MCRA+4, MCRA+5, MCRA+10
^AUPNPAT - [#9000001] MCRA+3, PI+3, MCD+3
^AUPNPRVT - [#9000006] PI+5, PI2+3
^AUTNINS - [#9999999.18] PI2+2
^AUTTRLSH - [#9999999.36] PI2+4
^DIC(4 - [#4] HEAD1+2
^DIC(5 - [#5] MCD2+5
^DPT - [#2] MCRA+2, PI+2, MCD+2
^XTMP("APCLBRH" START+4, DONE+1!, DFN+1, MCRA+10, 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+1, MCD+1, MCD2+1
HEAD1 HEAD
MCD2 MCD+5
MCD3 MCD2+7
MCRA2 MCRA+10
PI2 PI+5

Naked Globals

Name Field # of Occurrence
^(0 MCRA+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80D START+1*, MCRA+11, PI+6, MCD+6, HEAD1+8
>> APCLACEY HEAD1+5
>> APCLBT START+4, DONE+1, DFN+1, MCRA+10, PI+5, MCD+5, MCD2+7
>> APCLHRN MCRA+3*, MCRA+8, PI+3*, PI+4, MCD+3*, MCD+4
>> APCLJOB START+4, DONE+1, DFN+1, MCRA+10, PI+5, MCD+5, MCD2+7
>> APCLLENG HEAD1+3*, HEAD1+4
>> APCLMDFN MCRA+10*, PI+5*, PI2+3, MCD+5*, MCD2+2, MCD2+3, MCD2+7
>> APCLMDOB MCRA+5*, MCRA+9, MCD2+3*, MCD2+4
>> APCLMEDN MCRA+7*, MCRA+8
>> APCLMN MCRA+4*, MCRA+9, MCD2+2*, MCD2+4
>> APCLNDFN MCD2+7*
>> APCLNREC MCD2+7*, MCD3+1
>> APCLPG START+2*, HEAD, HEAD1+1*, HEAD1+2
>> APCLPN START+3*, START+4*, DFN+1, MCRA+8, MCRA+10, PI+4, PI+5, MCD+4, MCD+5, MCD2+7
>> APCLPROC DFN+1, HEAD1+7
APCLQ START+3!, START+4, START+5, START+6, DFN+1, MCRA+1, MCRA+10, MCRA2+1, PI+1, PI+5
, PI2+1, MCD+1, MCD+5, MCD2+1, MCD2+7, HEAD+1*
>> APCLR MCRA+10*, MCRA2+2, PI+5*, PI2+2, PI2+3, PI2+4, PI2+5, MCD+5*, MCD2+5, MCD2+6
>> APCLSU MCRA+3, PI+3, MCD+3, HEAD1+2
>> APCLTITL START+7, HEAD1+3, HEAD1+4
>> APCLTOT START+7
>> DFN DFN+1*, MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA+7, MCRA+10, PI+2, PI+3, PI+5
, PI2+3, MCD+2, MCD+3, MCD+5, MCD2+7
DIR HEAD+1!
DIR(0 HEAD+1*
>> DOB MCRA+2*, MCRA+8, PI+2*, PI+4, MCD+2*, MCD+4
>> DTOUT HEAD+1
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL START+6, MCRA+1, MCRA2+1, PI+1, PI2+1, MCD+1, MCD2+1
IOST HEAD+1
U MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA2+2, PI+2, PI+3, PI2+2, PI2+3, PI2+4
, PI2+5, 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+5*, MCD+2*, MCD3+1*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All