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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLPP2

Package: Patient Care Component Reports

Routine: APCLPP2


Information

APCLPP2 ; IHS/CMI/LAB - ; 23 May 2014 10:44 AM

Source Information

Source file <APCLPP2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 3 C^%DTC  ^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  
PCC Medical Query 1 PEP^AMQQGTX0  
Patient Care Component Reports 1 DEMOCHK^APCLUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLPP21  

Entry Points

Name Comments DBIA/ICR reference
BD ;
DEMO ;
DX1 ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
SET ;EP - ENTRY POINT
LOC() ;EP - Return location name from file 4 based on DUZ(2).
SETC ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
EXCL1 ;which ones to exclude
INFORM ;tell user what is going on
PROV1 ;
LS ;
FAC ;
PROVC ;cohort
ZIS ;
ED ;
START ;
XIT ;
SET1 ;
EXCL ;exclude any diagnoses codes?
PROV ;
ST ;;template of patients?
GETDATES ;

External References

Name Field # of Occurrence
C^%DTC ED+5
PEP^AMQQGTX0 PROVC+3, DX1+2
DEMOCHK^APCLUTL DEMO+1
KILL^AUPNPAT XIT+2
^DIC PROV1+1, PROVC+2, FAC+3, DX1+1, ST+7
^DIR BD+1, ED+1, PROV+3, LS+3, EXCL+5, ST+2, DEMO+3, EOP+5
^XBDBQUE DEMO+7, BROWSE+2
$$VAL^XBDIQ1 PROV1+3, PROVC+8
^XBFMK XIT+3
EN^XBVK XIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the time frame of interest.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !,"Ending date must be greater than or equal to beginning date!"
  • Line Location: ED+3
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: PROVC+2
Function Call: WRITE
  • Prompt: !,"all not allowed with this report"
  • Line Location: PROVC+5
Function Call: WRITE
  • Prompt: !!,"For use in reporting Hospital and In-Hospital information, please enter",!,"your Service Unit's Hospital. If there is no hospital in your service unit",!,"press ENTER to bypass the prompt.",!
  • Line Location: FAC+2
Function Call: WRITE
  • Prompt: !!,"In the list of leading purpose of visits you have the option of excluding ",!,"certain ICD diagnoses from the list of top ten diagnoses.",!
  • Line Location: EXCL+2
Function Call: WRITE
  • Prompt: !,"Do you wish to exclude any diagnoses codes from the list of "
  • Line Location: EXCL+4
Function Call: WRITE
  • Prompt: !,"Enter the diagnoses to be excluded.",!
  • Line Location: EXCL1+3
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: DX1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+7
Function Call: WRITE
  • Prompt: $$CTR("************* PROVIDER PRACTICE DESCRIPTION REPORT ************",80)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This report will present a profile of services provided by a selected provider."
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"You will be asked to enter a date range and to identify the provider's name.",!
  • Line Location: INFORM+4
Routine Call
  • DIC
  • Line Location:
    • PROV1+1
    • PROVC+2
    • FAC+3
    • DX1+1
    • ST+7
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • PROV+3
    • LS+3
    • EXCL+5
    • ST+2
    • DEMO+3
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000001 PROV1+1, PROV1+2, PROV1+3, PROVC+7, PROVC+8
^DIC(16 - [#16] PROV1+2, PROVC+7
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] PROV1+2, PROVC+7, USR+1
^XTMP("APCLPP2" START+3!, SET1+2*

Label References

Name Line Occurrences
$$CTR INFORM+2
BROWSE DEMO+5
DEMO ST+4
ED ED+3
EXCL DX1+3, ST+3, DEMO+2
FAC PROV1+4, FAC+6, LS+4
GETDATES PROV+4, PROV1+1
INFORM START+4
LS FAC+4, EXCL+6
PROV PROVC+4, PROVC+5, FAC+5
PROVC PROV+6
SET1 SETC+1, SETC+2, SETC+3, SETC+4, SETC+5, SETC+6, SETC+7, SETC+8, SETC+9, SETC+10
, SETC+11
SETC SET+1
ST ST+8
XIT START+1, BD+2, ED+2, PROVC+2, DX1+1, DEMO+4, DEMO+5
ZIS EXCL1+2

Naked Globals

Name Field # of Occurrence
^( SET1+2
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SET1+2*
>> APCL1 SETC+1*, SETC+2*, SETC+3*, SETC+4*, SETC+5*, SETC+6*, SETC+7*, SETC+8*, SETC+9*, SETC+10*
, SETC+11*, SET1+2
>> APCL2 SET1+1*, SET1+2
>> APCL3 SETC+1*, SETC+2*, SETC+3*, SETC+4*, SETC+5*, SETC+6*, SETC+7*, SETC+8*, SETC+9*, SETC+10*
, SETC+11*, SET1+1
>> APCL4 SETC+1*, SETC+2*, SETC+3*, SETC+4*, SETC+5*, SETC+6*, SETC+7*, SETC+8*, SETC+9*, SETC+10*
, SETC+11*, SET1+1, SET1+2
>> APCLBD BD+3*, ED+3, ED+5
>> APCLBTH START+2*, START+3, SET1+2
>> APCLC SET+1*, SET1+1, SET1+2
>> APCLDEMO DEMO+1, DEMO+2
APCLDXT EXCL+1!, EXCL1+1!, DX1+3, DX1+4!
APCLDXT("*" DX1+4
>> APCLED ED+4*
APCLEXCL EXCL+1!, EXCL+3*, EXCL+7*, EXCL1+2
>> APCLJOB START+2*, START+3, SET1+2
>> APCLLSV LS+1*, LS+5*, EXCL+5
APCLPROV PROV+1!, PROVC+1!, PROVC+4, PROVC+5!
APCLPROV( PROV1+2*, PROVC+6, PROVC+7*, SET+1
APCLPROV("*" PROVC+5
APCLPRVD PROV+1!, PROVC+1!
APCLPRVD( PROV1+3*, PROVC+8*
APCLPRVN PROV+1!, PROVC+1!
APCLPRVN( PROV1+2*, PROVC+7*
>> APCLPT PROV+2*, PROV+5*, PROV+6
>> APCLSD ED+5*
>> APCLSEAT ST+1*, ST+5*, ST+8*, ST+9*
>> APCLSUH FAC+1*, FAC+7*
DA PROV+3!, PROV1+1!, PROVC+2!, LS+3!, EXCL+5!, DX1+1!, ST+2!, ST+7!, DEMO+3!
DFOUT EOP+4!
DIC PROV1+1*!, PROVC+2*!, FAC+3*, DX1+1*!, ST+7*!
DIC("A" PROV1+1*, ST+7*
DIC("S" PROVC+2*, DX1+1*, ST+7*
DIC(0 PROV1+1*, PROVC+2*, FAC+3*, DX1+1*, ST+7*
DICR ST+7!
DIR BD+1!, ED+1!, PROV+3!, LS+3!, EXCL+5!, ST+2!, DEMO+3!, EOP+3~
DIR("?" BD+1*
DIR("A" BD+1*, ED+1*, PROV+3*, LS+2*, EXCL+5*, ST+2*, DEMO+3*, EOP+5*
DIR("B" PROV+3*, LS+3*, EXCL+5*, ST+2*, DEMO+3*
DIR(0 BD+1*, ED+1*, PROV+3*, LS+2*, EXCL+5*, ST+2*, DEMO+3*, EOP+5*
DIRUT BD+1*, BD+2, ED+1*, ED+2, PROV+4, LS+4, EXCL+6, ST+3, DEMO+4, EOP+4!
DLOUT EOP+4!
DR ST+7!
DTOUT FAC+5, EOP+4!
DUOUT BD+1, ED+1, FAC+5, EOP+4!
DUZ USR+1
DUZ(2 LOC+1
IO("S" EOP+2
IOF INFORM+1
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
U PROV1+1, PROV1+2, PROV1+3, PROVC+7, PROVC+8, USR+1, LOC+1
X ED+5, PROVC+2*, FAC+4, DX1+1*, SET1+2*, CTR~, CTR+1
>> X1 ED+5*
>> X2 ED+5*
>> XBIOP BROWSE+2*
>> XBNS DEMO+6*, BROWSE+2*
>> XBRC DEMO+6*, BROWSE+2*
>> XBRP DEMO+6*, BROWSE+1*
>> XBRX DEMO+6*, BROWSE+2*
Y BD+3, ED+3, ED+4, PROV+5, PROV1+1, PROV1+2, PROV1+3, PROVC+2, PROVC+3, PROVC+6*
, PROVC+7, PROVC+8, FAC+6, FAC+7, LS+5, EXCL+7, DX1+1, DX1+2, ST+4, ST+8
, ST+9, DEMO+5, CTR~, CTR+1
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All