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

Package: Patient Care Component Reports

Routine: APCLPYR3


Information

APCLPYR3 ; IHS/CMI/LAB - Patients by Payer (Insurer) - Medicaid ;

Source Information

Source file <APCLPYR3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
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
WRT ;
MCDLOOP ;EP
STORE ;
HEADING ;

External References

Name Field # of Occurrence
$$HRN^AUPNPAT MCDLOOP+17, WRT+2
^DIR MCDLOOP+73
^XBCLS HEADING+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please be patient. This may take a few minutes.",!!
  • Line Location: MCDLOOP+1
Function Call: WRITE
  • Prompt: !!,"Total: ",APCLCTR
  • Line Location: MCDLOOP+75
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,APCLMCNO
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?52,APCLRATE
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?70,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?70,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3)
  • Line Location: WRT+15
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: !
  • Line Location: HEADING+13
Function Call: WRITE
  • Prompt: ?((IOM-$L(X))/2),X,!
  • Line Location: HEADING+17
Function Call: WRITE
  • Prompt: ?((IOM-$L(X))/2),X,!
  • Line Location: HEADING+27
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+29
Function Call: WRITE
  • Prompt: "Patient Name",?33,"HRNO",?43,"MCD #",?53,"Rate",?62,"Begin",?72,"End"
  • Line Location: HEADING+31
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+32
Function Call: WRITE
  • Prompt: "------------",?32,"------",?41,"---------",?52,"------",?60,"--------",?70,"--------"
  • Line Location: HEADING+34
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+35
Routine Call
  • DIR
  • Line Location:
    • MCDLOOP+73

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD - [#9000004] MCDLOOP+12, MCDLOOP+13, MCDLOOP+14, MCDLOOP+16, MCDLOOP+37, MCDLOOP+40, MCDLOOP+41, MCDLOOP+42, MCDLOOP+43, MCDLOOP+44
, WRT+10, WRT+11, WRT+13
^AUPNMCR("B" MCDLOOP+27
^AUPNPRVT("B" MCDLOOP+31
^AUPNRRE("B" MCDLOOP+29
^AUTNINS - [#9999999.18] MCDLOOP+7, MCDLOOP+45
^DIC(4 - [#4] HEADING+5
^DIC(5 - [#5] MCDLOOP+6
^DPT - [#2] MCDLOOP+21, WRT+1
^TMP($J MCDLOOP+3!, MCDLOOP+61, MCDLOOP+63, MCDLOOP+64, STORE+1*

Label References

Name Line Occurrences
HEADING MCDLOOP+9, MCDLOOP+72
STORE MCDLOOP+56, MCDLOOP+57
WRT MCDLOOP+70

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLACT MCDLOOP+48, MCDLOOP+50, MCDLOOP+52, MCDLOOP+54, WRT+12, HEADING+20, HEADING+21
>> APCLALL WRT+5
>> APCLBDAT MCDLOOP+50, MCDLOOP+54, WRT+12, HEADING+23
>> APCLBEG MCDLOOP+40*, MCDLOOP+48, MCDLOOP+50, MCDLOOP+52, MCDLOOP+66*, STORE+1, WRT+6, WRT+11*, WRT+12, WRT+14
>> APCLCTR MCDLOOP+33*, MCDLOOP+38*, MCDLOOP+56, MCDLOOP+59*, MCDLOOP+71*, MCDLOOP+75
>> APCLDFN MCDLOOP+16*, MCDLOOP+17, MCDLOOP+21, MCDLOOP+27, MCDLOOP+29, MCDLOOP+31, MCDLOOP+65*, STORE+1, WRT+1, WRT+2
>> APCLEDAT MCDLOOP+52, HEADING+24, HEADING+26
>> APCLEND MCDLOOP+41*, MCDLOOP+54, MCDLOOP+67*, STORE+1, WRT+7, WRT+13*, WRT+15
>> APCLFAC MCDLOOP+17, WRT+2, HEADING+5
>> APCLFLAG MCDLOOP+35*, MCDLOOP+39*, MCDLOOP+48*, MCDLOOP+50*, MCDLOOP+52*, MCDLOOP+54*, MCDLOOP+55
>> APCLICTR MCDLOOP+25, MCDLOOP+26*, MCDLOOP+27*, MCDLOOP+29*, MCDLOOP+31*
>> APCLIEN MCDLOOP+34*, MCDLOOP+37*, MCDLOOP+39, MCDLOOP+40, MCDLOOP+41, WRT+9*, WRT+10*, WRT+11, WRT+13
>> APCLINAM MCDLOOP+2*, MCDLOOP+6*, MCDLOOP+7*, HEADING+11
>> APCLMCNO MCDLOOP+43*, MCDLOOP+68*, STORE+1, WRT+3
>> APCLMCST MCDLOOP+6, MCDLOOP+13
>> APCLMIEN MCDLOOP+11*, MCDLOOP+12*, MCDLOOP+13, MCDLOOP+14, MCDLOOP+16, MCDLOOP+37, MCDLOOP+40, MCDLOOP+41, MCDLOOP+42, MCDLOOP+43
, MCDLOOP+44, MCDLOOP+62*, MCDLOOP+63*, MCDLOOP+64, STORE+1, WRT+10, WRT+11, WRT+13
>> APCLOTH MCDLOOP+25, MCDLOOP+56, MCDLOOP+57, HEADING+16
>> APCLPAGE MCDLOOP+4*, HEADING+7*, HEADING+8
>> APCLPLAN MCDLOOP+36*, MCDLOOP+46*
>> APCLPYR MCDLOOP+7, MCDLOOP+14
>> APCLRATE MCDLOOP+36*, MCDLOOP+42*, MCDLOOP+69*, STORE+1, WRT+4
>> APCLSORT MCDLOOP+21, MCDLOOP+22
>> APCLSRT MCDLOOP+21*, MCDLOOP+22*, MCDLOOP+60*, MCDLOOP+61*, MCDLOOP+63, MCDLOOP+64, STORE+1
DIR MCDLOOP+73!
DIR(0 MCDLOOP+73*
DT HEADING+3
>> DUOUT MCDLOOP+12, MCDLOOP+61, MCDLOOP+63, MCDLOOP+72, MCDLOOP+75
IOM HEADING+6, HEADING+12, HEADING+17, HEADING+27
IOSL MCDLOOP+72
IOST MCDLOOP+1, MCDLOOP+73
U MCDLOOP+6, MCDLOOP+7, MCDLOOP+13, MCDLOOP+14, MCDLOOP+16, MCDLOOP+21, MCDLOOP+40, MCDLOOP+41, MCDLOOP+42, MCDLOOP+43
, MCDLOOP+44, MCDLOOP+45, MCDLOOP+65, MCDLOOP+66, MCDLOOP+67, MCDLOOP+68, MCDLOOP+69, STORE+1, WRT+1, WRT+11
, WRT+13, HEADING+5
>> X MCDLOOP+30*, MCDLOOP+31*, MCDLOOP+44*, MCDLOOP+45*, MCDLOOP+46, MCDLOOP+64*, MCDLOOP+65, MCDLOOP+66, MCDLOOP+67, MCDLOOP+68
, MCDLOOP+69, HEADING+3*, HEADING+4, HEADING+5*, HEADING+6, HEADING+11*, HEADING+12, HEADING+15*, HEADING+16*, HEADING+17
, HEADING+19*, HEADING+20*, HEADING+22*, HEADING+23*, HEADING+25*, HEADING+26*, HEADING+27
>> Y MCDLOOP+17*, MCDLOOP+18, MCDLOOP+19, MCDLOOP+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All