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

Package: Patient Care Component Reports

Routine: APCLPYR4


Information

APCLPYR4 ; IHS/CMI/LAB - Patients by Payer (Insurer) - Pvt Insurance ;

Source Information

Source file <APCLPYR4.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 ;
HEADING ;
STORE ;
PVTLOOP ;EP

External References

Name Field # of Occurrence
$$HRN^AUPNPAT PVTLOOP+11, WRT+2
^DIR PVTLOOP+62
^XBCLS HEADING+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please be patient. This may take a few minutes.",!!
  • Line Location: PVTLOOP+1
Function Call: WRITE
  • Prompt: !!,"Total: ",APCLCTR
  • Line Location: PVTLOOP+64
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: ?40,APCLPVNO
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?68,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?58,$E(APCLBEG,4,5),"/",$E(APCLBEG,6,7),"/",$E(APCLBEG,2,3)
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?68,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+12
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+26
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+28
Function Call: WRITE
  • Prompt: "Patient Name",?33,"HRNO",?42,"Policy #",?60,"Begin",?70,"End"
  • Line Location: HEADING+30
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+31
Function Call: WRITE
  • Prompt: "------------",?32,"------",?40,"----------------",?58,"--------",?68,"--------"
  • Line Location: HEADING+33
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING+34
Routine Call
  • DIR
  • Line Location:
    • PVTLOOP+62

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] PVTLOOP+36
^AUPNMCD("B" PVTLOOP+22
^AUPNMCR("B" PVTLOOP+21
^AUPNPRVT - [#9000006] PVTLOOP+9, PVTLOOP+30, PVTLOOP+32, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, WRT+8, WRT+9
^AUPNPRVT("B" PVTLOOP+25
^AUPNRRE("B" PVTLOOP+23
^AUTNINS - [#9999999.18] PVTLOOP+2
^DIC(4 - [#4] HEADING+5
^DPT - [#2] PVTLOOP+15, WRT+1
^TMP($J PVTLOOP+3!, PVTLOOP+51, PVTLOOP+53, PVTLOOP+54, STORE+1*

Label References

Name Line Occurrences
HEADING PVTLOOP+6, PVTLOOP+61
STORE PVTLOOP+46, PVTLOOP+47
WRT PVTLOOP+59

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLACT PVTLOOP+38, PVTLOOP+40, PVTLOOP+42, PVTLOOP+44, HEADING+19, HEADING+20
>> APCLALL WRT+4
>> APCLBDAT PVTLOOP+40, PVTLOOP+44, HEADING+22
>> APCLBEG PVTLOOP+34*, PVTLOOP+38, PVTLOOP+40, PVTLOOP+42, PVTLOOP+56*, STORE+1, WRT+5, WRT+8*, WRT+10
>> APCLCTR PVTLOOP+27*, PVTLOOP+31*, PVTLOOP+46, PVTLOOP+49*, PVTLOOP+60*, PVTLOOP+64
>> APCLDFN PVTLOOP+8*, PVTLOOP+9*, PVTLOOP+11, PVTLOOP+15, PVTLOOP+21, PVTLOOP+22, PVTLOOP+23, PVTLOOP+25, PVTLOOP+30, PVTLOOP+32
, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, PVTLOOP+55*, STORE+1, WRT+1, WRT+2, WRT+8, WRT+9
>> APCLEDAT PVTLOOP+42, HEADING+23, HEADING+25
>> APCLEND PVTLOOP+35*, PVTLOOP+44, PVTLOOP+57*, STORE+1, WRT+6, WRT+9*, WRT+11
>> APCLFAC PVTLOOP+11, WRT+2, HEADING+5
>> APCLFLAG PVTLOOP+29*, PVTLOOP+33*, PVTLOOP+38*, PVTLOOP+40*, PVTLOOP+42*, PVTLOOP+44*, PVTLOOP+45
>> APCLICTR PVTLOOP+19, PVTLOOP+20*, PVTLOOP+21*, PVTLOOP+22*, PVTLOOP+23*, PVTLOOP+25*
>> APCLIEN PVTLOOP+28*, PVTLOOP+30*, PVTLOOP+32, PVTLOOP+33, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, PVTLOOP+52*, PVTLOOP+53*, PVTLOOP+54
, STORE+1, WRT+8, WRT+9
>> APCLINAM PVTLOOP+2*, HEADING+11
>> APCLOTH PVTLOOP+19, PVTLOOP+46, PVTLOOP+47, HEADING+15
>> APCLPAGE PVTLOOP+4*, HEADING+7*, HEADING+8
>> APCLPVNO PVTLOOP+36*, PVTLOOP+58*, STORE+1, WRT+3
>> APCLPYR PVTLOOP+2, PVTLOOP+32
>> APCLSORT PVTLOOP+15, PVTLOOP+16
>> APCLSRT PVTLOOP+15*, PVTLOOP+16*, PVTLOOP+50*, PVTLOOP+51*, PVTLOOP+53, PVTLOOP+54, STORE+1
DIR PVTLOOP+62!
DIR(0 PVTLOOP+62*
DT HEADING+3
>> DUOUT PVTLOOP+9, PVTLOOP+51, PVTLOOP+53, PVTLOOP+61, PVTLOOP+64
IOM HEADING+6, HEADING+12, HEADING+16, HEADING+26
IOSL PVTLOOP+61
IOST PVTLOOP+1, PVTLOOP+62
U PVTLOOP+2, PVTLOOP+15, PVTLOOP+32, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, PVTLOOP+55, PVTLOOP+56, PVTLOOP+57, PVTLOOP+58
, STORE+1, WRT+1, WRT+8, WRT+9, HEADING+5
>> X PVTLOOP+24*, PVTLOOP+25*, PVTLOOP+54*, PVTLOOP+55, PVTLOOP+56, PVTLOOP+57, PVTLOOP+58, 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+24*, HEADING+25*, HEADING+26
>> Y PVTLOOP+11*, PVTLOOP+12, PVTLOOP+13, PVTLOOP+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All