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

Package: Patient Care Component Reports

Routine: APCLCR1


Information

APCLCR1 ; IHS/CMI/LAB - visits by provider ;

Source Information

Source file <APCLCR1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Kernel 2 $$FMTE^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
Patient Care Component Reports 2 (DONE,XTMP)^APCLOSUT  ($$DEMO,DEMOCHK)^APCLUTL  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
BD ;
LOC ;
ERR
DEMO ;
DISC ;
DONE ;
PRINT ;EP - called from xbdbque
V1 ;
COVPAGE ;
INFORM ;
HEAD
END ;
ZIS ;
ED ;
O ;
START ;
CLINIC ;
XIT ;
T ;taxonomy - call qman interface
V ; Run by visit date
PROC1 ;
HEAD1 ;
S ;all communities within APCLSU su
GETDATES ;
PROC ;EP - called from xbdbque

External References

Name Field # of Occurrence
DD^%DT BD+4
C^%DTC ED+5
PEP^AMQQGTX0 CLINIC+2, DISC+2, T+3
DONE^APCLOSUT DONE+1
XTMP^APCLOSUT PROC+3
$$DEMO^APCLUTL PROC1+3
DEMOCHK^APCLUTL DEMO+1
^DIC CLINIC+1, DISC+1, O+1, S+1, T+2
^DIR BD+2, ED+1, LOC+3, HEAD+1
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 S+1
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMTE^XLFDT COVPAGE+3, HEAD1+2, HEAD1+4
$$CJ^XLFSTR COVPAGE+2, COVPAGE+3, HEAD1+3, HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8
$$REPEAT^XLFSTR HEAD1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!
  • 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: CLINIC+1
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: DISC+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"This report will list a count of all visits to clinics that"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"are within a taxonony of clinics you identify. The report"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"will be a tally of all primary and secondary providers"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"on those visits. Only those provider disciplines that are"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"within the discipline taxonomy you select will be talled."
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !!,"No visits to report.",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,"Total PCC Primary Provider Workload Count:",?45,$J($G(APCLPSCT("P")),7)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Total PCC Secondary Provider Workload Count:",?45,$J($G(APCLPSCT("S")),7)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Total PCC Provider Workload Count:",?45,$J(($G(APCLPSCT("P"))+$G(APCLPSCT("S"))),7)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Total Number of Visits: ",?45,$J(APCLVCNT,7)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"PRIMARY PROVIDERS",?35,"# OF VISITS",!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,"SECONDARY PROVIDERS",?35,"# OF VISITS",!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Tally of Selected Primary and Secondary Providers for selected Clinic Visits",80),!
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Visit Dates: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED),80),!
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"Locations: ALL"
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !!,"Locations:"
  • Line Location: COVPAGE+5
Function Call: WRITE
  • Prompt: @IOF,!,"Cover page (con't)",!!
  • Condition for execution: $Y>(IOSL-2)
  • Line Location: COVPAGE+6
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(4,X,0),U)
  • Line Location: COVPAGE+6
Function Call: WRITE
  • Prompt: !!,"Clinics: ALL"
  • Line Location: COVPAGE+7
Function Call: WRITE
  • Prompt: !!,"Clinics:"
  • Line Location: COVPAGE+8
Function Call: WRITE
  • Prompt: @IOF,!,"Cover page (con't)",!!
  • Condition for execution: $Y>(IOSL-2)
  • Line Location: COVPAGE+9
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(40.7,X,0),U)
  • Line Location: COVPAGE+9
Function Call: WRITE
  • Prompt: !!,"Disciplines: ALL"
  • Line Location: COVPAGE+10
Function Call: WRITE
  • Prompt: !!,"Disciplines:"
  • Line Location: COVPAGE+11
Function Call: WRITE
  • Prompt: @IOF,!,"Cover page (con't)",!!
  • Condition for execution: $Y>(IOSL-2)
  • Line Location: COVPAGE+12
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(7,X,0),U)
  • Line Location: COVPAGE+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("TALLY OF SELECTED PRIMARY AND SECONDARY PROVIDERS FOR SELECTED CLINIC VISITS",80),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Visit Dates: "_$$FMTE^XLFDT(APCLBD)_"-"_$$FMTE^XLFDT(APCLED),80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("FOR: ALL Locations",80),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("FOR: "_$P(^DIC(4,$O(APCLLOC(0)),0),U),80),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("FOR: "_$P(^AUTTSU(APCLSU,0),U)_" Service Unit",80),!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("FOR: A taxonomy or selected set of locations",80),!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",80),!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: O+1
Function Call: WRITE
  • Prompt: !!,"Gathering up all the facilities..."
  • Line Location: S+4
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"ALL locations is NOT an option with this report",!
  • Line Location: T+5
Routine Call
  • DIC
  • Line Location:
    • CLINIC+1
    • DISC+1
    • O+1
    • S+1
    • T+2
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • LOC+3
    • HEAD+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPRV - [#9000010.06] PROC1+11, PROC1+16
^AUPNVPRV("AD" PROC1+10
^AUPNVSIT - [#9000010] V1+2
^AUPNVSIT("B" V+1, V1+2
^AUTTLOC - [#9999999.06] PRINT+17, PRINT+28, S+5
^AUTTSU - [#9999999.22] HEAD1+7
^DIC(4 - [#4] COVPAGE+6, HEAD1+6
^DIC(40.7 - [#40.7] COVPAGE+9
^DIC(7 - [#7] COVPAGE+12
^VA(200 - [#200] PROC1+13, PROC1+18, PROC1+19
^XTMP("APCLCR1" PROC+2!, PROC1+18*, PROC1+19*, PROC1+20, PROC1+21*, PRINT+4, PRINT+10, PRINT+11, PRINT+13, PRINT+15
, PRINT+17, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+28, DONE+2!

Label References

Name Line Occurrences
@( LOC+7
CLINIC LOC+6, DISC+3
COVPAGE PRINT+1
DISC DEMO+2
DONE PRINT+4
ED ED+3
GETDATES LOC+4, CLINIC+3
HEAD PRINT+3, PRINT+12, PRINT+16, PRINT+23, PRINT+27
HEAD1 HEAD
INFORM START+4
LOC LOC+8
PROC1 V1+2
T T+5
V1 V+1
XIT START+2, BD+3, ED+2, CLINIC+1, DISC+1, DEMO+5

Naked Globals

Name Field # of Occurrence
^(0 V1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLBD BD+4*, ED+3, ED+5, COVPAGE+3, HEAD1+4
>> APCLBDD BD+4*
>> APCLBT PROC+1*
>> APCLBTH START+3*, PROC+2, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PRINT+4, PRINT+10, PRINT+11, PRINT+13
, PRINT+15, PRINT+17, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+28, DONE+2
>> APCLCLIN PROC1+6*, PROC1+7, PROC1+8
APCLCLNT CLINIC+3, CLINIC+4!, COVPAGE+7, COVPAGE+8
APCLCLNT( PROC1+8, COVPAGE+9
APCLCLNT("*" CLINIC+4
>> APCLDEMO DEMO+1, DEMO+2, PROC1+3
APCLDISP DISC+3, DISC+4!, PROC1+15, COVPAGE+10, COVPAGE+11
APCLDISP( PROC1+15, COVPAGE+12
APCLDISP("*" DISC+4
>> APCLED ED+4*, V+1, COVPAGE+3, HEAD1+4
>> APCLET END+1*
>> APCLJOB START+3*, PROC+2, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PRINT+4, PRINT+10, PRINT+11, PRINT+13
, PRINT+15, PRINT+17, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+28, DONE+2
APCLLOC LOC+1!, LOC+6!, PROC1+5, COVPAGE+4, COVPAGE+5, HEAD1+5, T+1!, T+4, T+5!
APCLLOC( PROC1+5, COVPAGE+6, O+2*, S+5*, T+6*
APCLLOC("*" T+5
APCLLOC(0 HEAD1+6
APCLLOCT LOC+1!, LOC+5*, LOC+6, LOC+7, PRINT+14, PRINT+25, HEAD1+6, HEAD1+7, HEAD1+8
>> APCLLOE PROC1+2*, PROC1+19
>> APCLODAT V+1*, V1+2
>> APCLPG PRINT+2*, HEAD, HEAD1+1*, HEAD1+2
APCLPSCT PROC+4!
APCLPSCT( PROC1+17*
APCLPSCT("P" PRINT+5, PRINT+7
APCLPSCT("S" PRINT+6, PRINT+7
APCLQ LOC+1!, LOC+8, O+1*, S+2*, T+2*, T+4*
APCLQUIT PRINT+2!, PRINT+10, PRINT+11, PRINT+12, PRINT+15, PRINT+16, PRINT+21, PRINT+22, PRINT+23, PRINT+26
, PRINT+27, HEAD+1*
>> APCLSD ED+5*, V+1
APCLSITE START+1!
>> APCLSU HEAD1+7, S+3*
>> APCLVCNT PROC+4*, PROC1+21*, PRINT+8
>> APCLVDFN V1+2*, PROC1+10, PROC1+20, PROC1+21
>> APCLVREC V1+2*, PROC1+2, PROC1+3, PROC1+6
>> APCLX PROC1+10*, PROC1+11, PROC1+16, PRINT+10*, PRINT+11, PRINT+13, PRINT+15, PRINT+17, PRINT+21*, PRINT+22
, PRINT+24, PRINT+26, PRINT+28
>> APCLY PRINT+11*, PRINT+13, PRINT+15, PRINT+17, PRINT+22*, PRINT+24, PRINT+26, PRINT+28
>> APCLZ PRINT+15*, PRINT+17, PRINT+26*, PRINT+28
>> D PROC1+13*, PROC1+14, PROC1+15
DA LOC+3!, CLINIC+1!, DISC+1!, O+1!, T+2!
DIC CLINIC+1*!, DISC+1*!, O+1*!, S+1*!, T+2*!
DIC("A" O+1*, S+1*
DIC("B" S+1*
DIC("S" CLINIC+1*, DISC+1*, T+2*
DIC(0 CLINIC+1*, DISC+1*, O+1*, S+1*, T+2*
DIR BD+2!, ED+1!, LOC+3!, HEAD+1!
DIR("?" BD+2*
DIR("A" BD+2*, ED+1*, LOC+2*, LOC+3*
DIR("B" LOC+2*, LOC+3*
DIR(0 BD+2*, ED+1*, LOC+2*, HEAD+1*
>> DIRUT BD+2*, BD+3, ED+1*, ED+2, LOC+4
DT HEAD1+2
>> DTOUT HEAD+1
>> DUOUT BD+2, ED+1
DUZ(2 START+1, S+1
IO HEAD+1
IO(0 HEAD+1
IOF INFORM+1, COVPAGE+1, COVPAGE+6, COVPAGE+9, COVPAGE+12, HEAD1+1
IOSL PRINT+12, PRINT+16, PRINT+23, PRINT+27, COVPAGE+6, COVPAGE+9, COVPAGE+12
IOST HEAD+1
>> L PROC1+2*, PROC1+4, PROC1+5
>> P PROC1+16*, PROC1+17, PROC1+18, PROC1+19
U V1+2, PROC1+2, PROC1+3, PROC1+6, PROC1+11, PROC1+13, PROC1+16, PROC1+18, PROC1+19, PRINT+17
, PRINT+28, COVPAGE+6, COVPAGE+9, COVPAGE+12, HEAD1+6, HEAD1+7, S+5
>> X ED+5, CLINIC+1*, DISC+1*, COVPAGE+6*, COVPAGE+9*, COVPAGE+12*, S+5*, T+2*, T+6*
>> X1 ED+5*
>> X2 ED+5*
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
>> Y BD+4, ED+3, ED+4, LOC+5, CLINIC+1, CLINIC+2, DISC+1, DISC+2, PROC1+11*, PROC1+12
, PROC1+13, PROC1+18, PROC1+19, HEAD+1, O+1, O+2, S+2, S+3, S+5, T+2
, T+3
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