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

Package: Patient Care Component Reports

Routine: APCLREDU


Information

APCLREDU ; IHS/CMI/LAB - education delimted file for use in excel ;

Source Information

Source file <APCLREDU.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 5 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  $$PROVCLSC^XBFUNC1  EN^XBVK  
Patient Care Component Reports 2 ($$DEMO,DEMOCHK)^APCLUTL  $$CLINIC^APCLV  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 ($$AGE,$$DOB,$$HRN,KILL)^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
DATES
SET ;
HEADER ;
ZIS ;call to XBDBQUE
LOC() ;EP - Return location name from file 4 based on DUZ(2).
INFORM ;
TOPIC1 ;
DEMO ;
CLINIC1 ;Get Multiple Clinics in Search
USR() ;EP - Return name of current user from ^VA(200.
TOPIC ;
START ;
CLINIC ;
EOP ;EP - End of page.
EXIT ;clean up and exit
HL ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PRINT ;EP - called from xbdbque

External References

Name Field # of Occurrence
PEP^AMQQGTX0 CLINIC1+3, TOPIC1+3
$$DEMO^APCLUTL PRINT+10
DEMOCHK^APCLUTL DEMO+1
$$CLINIC^APCLV SET+2
$$AGE^AUPNPAT SET+2
$$DOB^AUPNPAT SET+2
$$HRN^AUPNPAT SET+2
KILL^AUPNPAT EXIT+3
^DIC CLINIC1+2, TOPIC1+2
^DIR DATES+2, DATES+4, CLINIC+3, HL+2, HL+6, TOPIC+3, EOP+5
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 SET+2, SET+3, SET+4, SET+5, SET+6
^XBFMK EXIT+2
$$PROVCLSC^XBFUNC1 SET+3
EN^XBVK EXIT+1
$$FMADD^XLFDT DATES+8
$$FMTE^XLFDT SET+2, HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will create a delimited output file of all visits on which patient",!,"education was done. This report is to be used by uploading the data file",!,"into EXCEL or some other software package.",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLINIC+1
Function Call: WRITE
  • Prompt: "OPPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLINIC1+2
Function Call: WRITE
  • Prompt: "OPPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: TOPIC1+2
Function Call: WRITE
  • Prompt: !,"Total # of visits meeting criteria"_U_APCLVTOT
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,"Total # of patients for these visits"_U_APCLPTOT
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,"Total # of these patients w/education"_U_APCLPEDU
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,APCLR
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: "DATE RANGE: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED)
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"ALL CLINICS"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$P(^DIC(40.7,X,0),U,2)_" ;"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"ALL HOSPITAL LOCATIONS"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$P(^SC(X,0),U,2)_" ;"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"ALL DISCIPLINES"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(7,X,9999999)),U,1)_" ;"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"VISIT IEN^PATIENT NAME^CHART NUMBER^DATE OF BIRTH^AGE^VISIT DATE^CLINIC TYPE^HOSPITAL LOCATION^EDUCATION TOPIC^EDUCATION PROVIDER^EDUCATION PROVIDER CLASS CODE"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: "^TOPIC FULL NAME^LEVEL OF UNDERSTANDING^IND/GRP^MINUTES^GOAL STATUS^OBJECTIVES MET^CPT CODE^COMMENT^DESIGNATED PRIMARY CARE PROVIDER"
  • Line Location: HEADER+9
Routine Call
  • DIC
  • Line Location:
    • CLINIC1+2
    • TOPIC1+2
Routine Call
  • DIR
  • Line Location:
    • DATES+2
    • DATES+4
    • CLINIC+3
    • HL+2
    • HL+6
    • TOPIC+3
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPED - [#9000010.16] PRINT+16, PRINT+24, SET+3
^AUPNVPED("AD" PRINT+13, PRINT+16, PRINT+20, PRINT+22
^AUPNVSIT - [#9000010] PRINT+6, PRINT+7, PRINT+8, PRINT+11, PRINT+12, SET+1
^AUPNVSIT("B" PRINT+4, PRINT+5
^DIC(4 - [#4] LOC+1
^DIC(40.7 - [#40.7] HEADER+3
^DPT - [#2] SET+2
^SC - [#44] HEADER+5
^TMP($J PRINT+3!, PRINT+19*, PRINT+21*
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR INFORM+2, INFORM+3
$$LOC INFORM+2
$$USR INFORM+3
CLINIC CLINIC1+4, CLINIC1+6, HL+3
DATES DATES+6, CLINIC+4
EXIT INFORM+5, DATES+2, DATES+4, CLINIC1+2, TOPIC1+2, DEMO+5
HEADER PRINT+1
HL CLINIC+5, TOPIC+4
SET PRINT+20, PRINT+23, PRINT+24, PRINT+25
TOPIC HL+4, TOPIC1+4, TOPIC1+6, DEMO+2
ZIS TOPIC+5, TOPIC+6

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCLBD DATES!, DATES+2*, DATES+6, DATES+8, HEADER+1
>> APCLCL CLINIC+2*
>> APCLCLIN CLINIC+2*
APCLCLNT CLINIC1+1!, CLINIC1+4, CLINIC1+5!, PRINT+11, HEADER+2
APCLCLNT( PRINT+11, HEADER+3
APCLCLNT("*" CLINIC1+5
APCLCLNT(0 HEADER+3
>> APCLDEMO DEMO+1, DEMO+2, PRINT+10
APCLED DATES!, DATES+4*, DATES+6, PRINT+4, HEADER+1
APCLEDT TOPIC+1!, TOPIC+2*, TOPIC+5*, TOPIC+6*, TOPIC+7*, PRINT+13, PRINT+14, PRINT+20, PRINT+23, PRINT+24
, PRINT+25
APCLEDTL TOPIC+1!, TOPIC1+1!, TOPIC1+4, TOPIC1+5!
APCLEDTL( PRINT+16, PRINT+24
APCLEDTL("*" TOPIC1+5
>> APCLF SET+5*
>> APCLG PRINT+14, PRINT+15*, PRINT+16*
APCLHL HL+1!, HL+5!, PRINT+12, HEADER+4
APCLHL( HL+8*, PRINT+12, HEADER+5
APCLHL(0 HEADER+5
>> APCLPEDU PRINT+2*, PRINT+21*, PRINT+28
>> APCLPTOT PRINT+2*, PRINT+19*, PRINT+27
>> APCLQ HL+5*, HL+7*
>> APCLR SET+2*, SET+3*, SET+4*, SET+5*, SET+6*, SET+7
>> APCLSD DATES+8*, PRINT+4*, PRINT+5
>> APCLV PRINT+5*, PRINT+6, PRINT+7, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+20, PRINT+22
, SET+1, SET+2
>> APCLVTOT PRINT+2*, PRINT+18*, PRINT+26
>> APCLX PRINT+20*, PRINT+22*, PRINT+24, SET+3, SET+4, SET+5
>> D SET+1*, SET+2
DA CLINIC1+2!, HL+2!, HL+6!, TOPIC+3!, TOPIC1+2!
>> DFN PRINT+8*, PRINT+9, PRINT+10, PRINT+19, PRINT+21, SET+2, SET+6
DFOUT EOP+4!
DIC CLINIC1+2*!, TOPIC1+2*!
DIC("S" CLINIC1+2*, TOPIC1+2*
DIC(0 CLINIC1+2*, TOPIC1+2*
DIR DATES+1!, DATES+3!, CLINIC+3!, HL+2!, HL+6!, TOPIC+3!, EOP+3~
DIR("A" DATES+1*, DATES+3*, CLINIC+3*, HL+2*, HL+6*, TOPIC+3*
DIR("B" CLINIC+3*, HL+2*, TOPIC+3*
DIR(0 DATES+1*, DATES+3*, CLINIC+3*, HL+2*, HL+6*, TOPIC+3*, EOP+5*
DIRUT CLINIC+3*, CLINIC+4, HL+3, HL+7, TOPIC+4, EOP+4!
DLOUT EOP+4!
DTOUT EOP+4!
DUOUT CLINIC+3, EOP+4!
DUZ USR+1
DUZ(2 SET+2, LOC+1
IO("S" EOP+2
IOF INFORM+1
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
>> T PRINT+16*, PRINT+24*
U PRINT+7, PRINT+8, PRINT+11, PRINT+12, PRINT+16, PRINT+24, PRINT+26, PRINT+27, PRINT+28, SET+1
, SET+2, SET+3, SET+4, SET+5, SET+6, HEADER+3, HEADER+5, USR+1, LOC+1
X CLINIC1+2*, TOPIC1+2*, PRINT+11*, PRINT+12*, PRINT+16*, HEADER+3*, HEADER+5*, CTR~, CTR+1
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y DATES+2, DATES+4, CLINIC+5, CLINIC1+2, CLINIC1+3, CLINIC1+6, HL+4, HL+8, TOPIC+5, TOPIC+6
, TOPIC+7, TOPIC1+2, TOPIC1+3, TOPIC1+6, CTR~, CTR+1
>> ZTQUEUED EOP+2
Info |  Source |  Call 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