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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLPYR2

Package: Patient Care Component Reports

Routine: APCLPYR2


Information

APCLPYR2 ; IHS/CMI/LAB - Patients by Payer (Insurer) - Medicare ;

Source Information

Source file <APCLPYR2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
IHS Patient Registration 1 $$GETMCR^AGUTL  
IHS VA Utilities 1 ^XBCLS  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLPYR  

Entry Points

Name Comments DBIA/ICR reference
MRDLOOP ;EP
MRBLOOP ;EP
MRALOOP ;EP
WRT ;
HEADING ;
STORE ;

External References

Name Field # of Occurrence
$$GETMCR^AGUTL MRALOOP+46, MRBLOOP+46, MRDLOOP+46
$$HRN^AUPNPAT MRALOOP+11, MRBLOOP+11, MRDLOOP+11, WRT+2
^DIR MRALOOP+65, MRBLOOP+65, MRDLOOP+65
^XBCLS HEADING+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please be patient. This may take a few minutes.",!!
  • Line Location: MRALOOP+1
Function Call: WRITE
  • Prompt: !!,"Total: ",APCLCTR
  • Line Location: MRALOOP+67
Function Call: WRITE
  • Prompt: !!,"Please be patient. This may take a few minutes.",!!
  • Line Location: MRBLOOP+1
Function Call: WRITE
  • Prompt: !!,"Total: ",APCLCTR
  • Line Location: MRBLOOP+67
Function Call: WRITE
  • Prompt: !!,"Please be patient. This may take a few minutes.",!!
  • Line Location: MRDLOOP+1
Function Call: WRITE
  • Prompt: !!,"Total: ",APCLCTR
  • Line Location: MRDLOOP+67
Function Call: WRITE
  • Prompt: $P(^DPT(APCLDFN,0),U)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: ?32,$J($$HRN^AUPNPAT(APCLDFN,APCLFAC),6)
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?41,APCLMRNO
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?53,APCLMRSF
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?67,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?67,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: $E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3)
  • Line Location: HEADING+4
Function Call: WRITE
  • Prompt: ?((IOM-$L(X))/2),X
  • Line Location: HEADING+6
Function Call: WRITE
  • Prompt: ?70,"Page ",APCLPAGE
  • Line Location: HEADING+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+9
Function Call: WRITE
  • Prompt: ?((IOM-$L(X))/2),X,!
  • Line Location: HEADING+12
Function Call: WRITE
  • Prompt: ?((IOM-$L(X))/2),X,!
  • Line Location: HEADING+16
Function Call: WRITE
  • Prompt: ?((IOM-$L(X))/2),X,!
  • Line Location: HEADING+29
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+31
Function Call: WRITE
  • Prompt: "Patient Name",?33,"HRNO",?43,"MCR #",?52,"SUF",?59,"Begin",?69,"End"
  • Line Location: HEADING+33
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+34
Function Call: WRITE
  • Prompt: "------------",?32,"------",?41,"---------",?52,"---",?57,"--------",?67,"--------"
  • Line Location: HEADING+36
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+37
Routine Call
  • DIR
  • Line Location:
    • MRALOOP+65
    • MRBLOOP+65
    • MRDLOOP+65

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD("B" MRALOOP+22, MRBLOOP+22, MRDLOOP+22
^AUPNMCR - [#9000003] MRALOOP+9, MRALOOP+30, MRALOOP+32, MRALOOP+34, MRALOOP+35, MRALOOP+48, MRBLOOP+9, MRBLOOP+30, MRBLOOP+32, MRBLOOP+34
, MRBLOOP+35, MRBLOOP+48, MRDLOOP+9, MRDLOOP+30, MRDLOOP+32, MRDLOOP+34, MRDLOOP+35, MRDLOOP+48, WRT+10, WRT+11
, WRT+13, WRT+14, WRT+15, WRT+16
^AUPNMCR("B" MRALOOP+21, MRBLOOP+21, MRDLOOP+21
^AUPNPRVT("B" MRALOOP+25, MRBLOOP+25, MRDLOOP+25
^AUPNRRE("B" MRALOOP+23, MRBLOOP+23, MRDLOOP+23
^AUTTMCS - [#9999999.32] MRALOOP+49, MRBLOOP+49, MRDLOOP+49
^DIC(4 - [#4] HEADING+5
^DPT - [#2] MRALOOP+15, MRBLOOP+15, MRDLOOP+15, WRT+1
^TMP($J MRALOOP+3!, MRALOOP+55, MRALOOP+56, MRBLOOP+3!, MRBLOOP+55, MRBLOOP+56, MRDLOOP+3!, MRDLOOP+55, MRDLOOP+56, STORE+1*

Label References

Name Line Occurrences
HEADING MRALOOP+6, MRALOOP+64, MRBLOOP+6, MRBLOOP+64, MRDLOOP+6, MRDLOOP+64
STORE MRALOOP+50, MRALOOP+51, MRBLOOP+50, MRBLOOP+51, MRDLOOP+50, MRDLOOP+51
WRT MRALOOP+62, MRBLOOP+62, MRDLOOP+62

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLACT MRALOOP+37, MRALOOP+39, MRALOOP+41, MRALOOP+43, MRBLOOP+37, MRBLOOP+39, MRBLOOP+41, MRBLOOP+43, MRDLOOP+37, MRDLOOP+39
, MRDLOOP+41, MRDLOOP+43, WRT+12, HEADING+19, HEADING+20
>> APCLALL WRT+5
>> APCLBDAT MRALOOP+39, MRALOOP+43, MRBLOOP+39, MRBLOOP+43, MRDLOOP+39, MRDLOOP+43, WRT+12, HEADING+22, HEADING+23, HEADING+24
, HEADING+25
>> APCLBEG MRALOOP+34*, MRALOOP+37, MRALOOP+39, MRALOOP+41, MRALOOP+58*, MRBLOOP+34*, MRBLOOP+37, MRBLOOP+39, MRBLOOP+41, MRBLOOP+58*
, MRDLOOP+34*, MRDLOOP+37, MRDLOOP+39, MRDLOOP+41, MRDLOOP+58*, STORE+1, WRT+6, WRT+11*, WRT+12, WRT+17
>> APCLCTR MRALOOP+27*, MRALOOP+31*, MRALOOP+50, MRALOOP+53*, MRALOOP+63*, MRALOOP+67, MRBLOOP+27*, MRBLOOP+31*, MRBLOOP+50, MRBLOOP+53*
, MRBLOOP+63*, MRBLOOP+67, MRDLOOP+27*, MRDLOOP+31*, MRDLOOP+50, MRDLOOP+53*, MRDLOOP+63*, MRDLOOP+67
>> APCLDFN MRALOOP+8*, MRALOOP+9*, MRALOOP+11, MRALOOP+15, MRALOOP+21, MRALOOP+22, MRALOOP+23, MRALOOP+25, MRALOOP+30, MRALOOP+32
, MRALOOP+34, MRALOOP+35, MRALOOP+46, MRALOOP+48, MRALOOP+57*, MRBLOOP+8*, MRBLOOP+9*, MRBLOOP+11, MRBLOOP+15, MRBLOOP+21
, MRBLOOP+22, MRBLOOP+23, MRBLOOP+25, MRBLOOP+30, MRBLOOP+32, MRBLOOP+34, MRBLOOP+35, MRBLOOP+46, MRBLOOP+48, MRBLOOP+57*
, MRDLOOP+8*, MRDLOOP+9*, MRDLOOP+11, MRDLOOP+15, MRDLOOP+21, MRDLOOP+22, MRDLOOP+23, MRDLOOP+25, MRDLOOP+30, MRDLOOP+32
, MRDLOOP+34, MRDLOOP+35, MRDLOOP+46, MRDLOOP+48, MRDLOOP+57*, STORE+1, WRT+1, WRT+2, WRT+10, WRT+11
, WRT+13, WRT+14, WRT+15, WRT+16
>> APCLEDAT MRALOOP+41, MRBLOOP+41, MRDLOOP+41, HEADING+22, HEADING+23, HEADING+25, HEADING+26, HEADING+28
>> APCLEND MRALOOP+35*, MRALOOP+43, MRALOOP+59*, MRBLOOP+35*, MRBLOOP+43, MRBLOOP+59*, MRDLOOP+35*, MRDLOOP+43, MRDLOOP+59*, STORE+1
, WRT+7, WRT+13*, WRT+18
>> APCLFAC MRALOOP+11, MRBLOOP+11, MRDLOOP+11, WRT+2, HEADING+5
>> APCLFLAG MRALOOP+29*, MRALOOP+33*, MRALOOP+37*, MRALOOP+39*, MRALOOP+41*, MRALOOP+43*, MRALOOP+44, MRBLOOP+29*, MRBLOOP+33*, MRBLOOP+37*
, MRBLOOP+39*, MRBLOOP+41*, MRBLOOP+43*, MRBLOOP+44, MRDLOOP+29*, MRDLOOP+33*, MRDLOOP+37*, MRDLOOP+39*, MRDLOOP+41*, MRDLOOP+43*
, MRDLOOP+44
>> APCLICTR MRALOOP+19, MRALOOP+20*, MRALOOP+21*, MRALOOP+22*, MRALOOP+23*, MRALOOP+25*, MRBLOOP+19, MRBLOOP+20*, MRBLOOP+21*, MRBLOOP+22*
, MRBLOOP+23*, MRBLOOP+25*, MRDLOOP+19, MRDLOOP+20*, MRDLOOP+21*, MRDLOOP+22*, MRDLOOP+23*, MRDLOOP+25*
>> APCLIEN MRALOOP+28*, MRALOOP+30*, MRALOOP+32, MRALOOP+33, MRALOOP+34, MRALOOP+35, MRBLOOP+28*, MRBLOOP+30*, MRBLOOP+32, MRBLOOP+33
, MRBLOOP+34, MRBLOOP+35, MRDLOOP+28*, MRDLOOP+30*, MRDLOOP+32, MRDLOOP+33, MRDLOOP+34, MRDLOOP+35, WRT+9*, WRT+10*
, WRT+11, WRT+13, WRT+14, WRT+15, WRT+16
>> APCLINAM MRALOOP+2*, MRBLOOP+2*, MRDLOOP+2*, HEADING+11
>> APCLMRNO MRALOOP+46*, MRALOOP+60*, MRBLOOP+46*, MRBLOOP+60*, MRDLOOP+46*, MRDLOOP+60*, STORE+1, WRT+3
>> APCLMRSF MRALOOP+47*, MRALOOP+49*, MRALOOP+61*, MRBLOOP+47*, MRBLOOP+49*, MRBLOOP+61*, MRDLOOP+47*, MRDLOOP+49*, MRDLOOP+61*, STORE+1
, WRT+4
>> APCLOTH MRALOOP+19, MRALOOP+50, MRALOOP+51, MRBLOOP+19, MRBLOOP+50, MRBLOOP+51, MRDLOOP+19, MRDLOOP+50, MRDLOOP+51, HEADING+15
>> APCLPAGE MRALOOP+4*, MRBLOOP+4*, MRDLOOP+4*, HEADING+7*, HEADING+8
>> APCLSORT MRALOOP+15, MRALOOP+16, MRBLOOP+15, MRBLOOP+16, MRDLOOP+15, MRDLOOP+16
>> APCLSRT MRALOOP+15*, MRALOOP+16*, MRALOOP+54*, MRALOOP+55*, MRALOOP+56, MRBLOOP+15*, MRBLOOP+16*, MRBLOOP+54*, MRBLOOP+55*, MRBLOOP+56
, MRDLOOP+15*, MRDLOOP+16*, MRDLOOP+54*, MRDLOOP+55*, MRDLOOP+56, STORE+1
>> APCLTYP WRT+14, WRT+15, WRT+16
DIR MRALOOP+65!, MRBLOOP+65!, MRDLOOP+65!
DIR(0 MRALOOP+65*, MRBLOOP+65*, MRDLOOP+65*
DT HEADING+3
>> DUOUT MRALOOP+9, MRALOOP+55, MRALOOP+64, MRALOOP+67, MRBLOOP+9, MRBLOOP+55, MRBLOOP+64, MRBLOOP+67, MRDLOOP+9, MRDLOOP+55
, MRDLOOP+64, MRDLOOP+67
IOM HEADING+6, HEADING+12, HEADING+16, HEADING+29
IOSL MRALOOP+64, MRBLOOP+64, MRDLOOP+64
IOST MRALOOP+1, MRALOOP+65, MRBLOOP+1, MRBLOOP+65, MRDLOOP+1, MRDLOOP+65
U MRALOOP+15, MRALOOP+32, MRALOOP+34, MRALOOP+35, MRALOOP+48, MRALOOP+57, MRALOOP+58, MRALOOP+59, MRALOOP+60, MRALOOP+61
, MRBLOOP+15, MRBLOOP+32, MRBLOOP+34, MRBLOOP+35, MRBLOOP+48, MRBLOOP+57, MRBLOOP+58, MRBLOOP+59, MRBLOOP+60, MRBLOOP+61
, MRDLOOP+15, MRDLOOP+32, MRDLOOP+34, MRDLOOP+35, MRDLOOP+48, MRDLOOP+57, MRDLOOP+58, MRDLOOP+59, MRDLOOP+60, MRDLOOP+61
, STORE+1, WRT+1, WRT+11, WRT+13, WRT+14, WRT+15, WRT+16, HEADING+5
>> X MRALOOP+24*, MRALOOP+25*, MRALOOP+48*, MRALOOP+49, MRALOOP+56*, MRALOOP+57, MRALOOP+58, MRALOOP+59, MRALOOP+60, MRALOOP+61
, MRBLOOP+24*, MRBLOOP+25*, MRBLOOP+48*, MRBLOOP+49, MRBLOOP+56*, MRBLOOP+57, MRBLOOP+58, MRBLOOP+59, MRBLOOP+60, MRBLOOP+61
, MRDLOOP+24*, MRDLOOP+25*, MRDLOOP+48*, MRDLOOP+49, MRDLOOP+56*, MRDLOOP+57, MRDLOOP+58, MRDLOOP+59, MRDLOOP+60, MRDLOOP+61
, HEADING+3*, HEADING+4, HEADING+5*, HEADING+6, HEADING+11*, HEADING+12, HEADING+14*, HEADING+15*, HEADING+16, HEADING+18*
, HEADING+19*, HEADING+21*, HEADING+22*, HEADING+23*, HEADING+24*, HEADING+27*, HEADING+28*, HEADING+29
>> Y MRALOOP+11*, MRALOOP+12, MRALOOP+13, MRALOOP+16, MRBLOOP+11*, MRBLOOP+12, MRBLOOP+13, MRBLOOP+16, MRDLOOP+11*, MRDLOOP+12
, MRDLOOP+13, MRDLOOP+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All