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

Package: Patient Care Component

Routine: APCDFCP


Information

APCDFCP ; IHS/CMI/LAB - print apc report by prov disc ;

Source Information

Source file <APCDFCP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDFC  

Entry Points

Name Comments DBIA/ICR reference
SORT ;
HEAD
HEAD1 ;
SUMMPAGE ;
WRITE ;
START ;
DONE
SORT1 ;

External References

Name Field # of Occurrence
DD^%DT START+3, WRITE+2
^DIR DONE+2, SUMMPAGE+1, HEAD+1
$$FMTE^XLFDT WRITE+12, SUMMPAGE+3, HEAD1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?42,"------",?52,"-------",?65,"------",!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: ?5,"Grand Total for ALL Operators:",?42,$J(APCDTOT,6),?52,$J(APCDTDES,7)
  • Line Location: START+11
Function Call: WRITE
  • Prompt: ?65,$J(APCDAVG,6,1)
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!,"RUN TIME (H.M.S): ",APCDH,".",APCDM,".",APCDS
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !?42,"------",?52,"-------",?65,"------",!
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: ?5,"Totals for ",APCDPROV,?42,$J(APCDSUB,6),?52,$J(APCDDESU,7)
  • Line Location: SORT+4
Function Call: WRITE
  • Prompt: ?65,$J((APCDDESU/APCDSUB),6,1)
  • Condition for execution: APCDSUB
  • Line Location: SORT+4
Function Call: WRITE
  • Prompt: !,$S(APCDSRT]"":APCDSORT,1:"")
  • Line Location: SORT1+2
Function Call: WRITE
  • Prompt: !?25,APCDWDAT,?42,$J(^XTMP("APCDFC",$J,APCDPROV,APCDSORT,APCDDATE),6),?52,$J(APCDVDES,7),?65,$J(APCDAVG,6)
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !?27,"Visit Dates Processed:"
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: !?27,$$FMTE^XLFDT(APCDVDAT),?42,$J(^XTMP("APCDFC",$J,APCDPROV,APCDSORT,"VISIT DATE",APCDDATE,APCDVDAT),6)
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMPAGE+1
Function Call: WRITE
  • Prompt: !?55,$$FMTE^XLFDT(DT),?70,"Page ",APCDPG
  • Line Location: SUMMPAGE+3
Function Call: WRITE
  • Prompt: !?20,"SUMMARY OF FORMS KEYED BY ALL OPERATORS"
  • Line Location: SUMMPAGE+4
Function Call: WRITE
  • Prompt: !?15,"VISIT POSTING DATES: ",APCDBDD," TO ",APCDEDD,!
  • Line Location: SUMMPAGE+5
Function Call: WRITE
  • Prompt: ?22,"# days",?29,"# of",?36,"%",?45,"Avg #",?56,"Avg # dep",?68,"Avg # dep"
  • Line Location: SUMMPAGE+6
Function Call: WRITE
  • Prompt: !?5,"Operator",?22,"of D/E",?29,"forms",?36,"workload",?45,"forms/day",?56,"ent/day",?68,"ent/form"
  • Line Location: SUMMPAGE+7
Function Call: WRITE
  • Prompt: !,APCD80S
  • Line Location: SUMMPAGE+8
Function Call: WRITE
  • Prompt: !,X,?32,$J(APCDFC("FORMS",X),8),?40,$J((APCDFC("FORMS",X)/APCDFC("DAYS",X)),8,1),?51,$J(((APCDFC("FORMS",X)/APCDTOT)*100),8,1),?67,APCDFC("AVG DEC",X)
  • Line Location: SUMMPAGE+9
Function Call: WRITE
  • Prompt: !,$E(X,1,20),?22,$J(APCDSUM(X,"#DAYS"),6),?29,$J(APCDSUM(X,"#FORMS"),6),?36,$J(((APCDSUM(X,"#FORMS")/APCDTOT)*100),8,1)
  • Line Location: SUMMPAGE+10
Function Call: WRITE
  • Prompt: !?29,"--------",!?27,$J(APCDTOT,8)
  • Line Location: SUMMPAGE+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !?55,$$FMTE^XLFDT(DT),?70,"Page ",APCDPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?((80-APCDLENG)/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?((80-APCDLENG)/2),"NUMBER OF FORMS KEYED SUBTOTALED BY ",APCDSRT,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?29,"NUMBER OF FORMS KEYED",!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: ?((80-APCDLENG)/2),"DATE ENTRY OPERATOR: ",APCDPROV,!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: ?15,"VISIT POSTING DATES: ",APCDBDD," TO ",APCDEDD,!
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,APCDSRT,?25,"POSTING DATE",?40,"# FORMS",?50,"# DEP ENT",?63,"AVG # DEP ENT",!
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: APCD80S,!
  • Line Location: HEAD1+12
Routine Call
  • DIR
  • Line Location:
    • DONE+2
    • SUMMPAGE+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEAD1+3, HEAD1+4
^XTMP("APCDFC" START+6, START+7, SORT+2, SORT1+3, WRITE+4, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15

Label References

Name Line Occurrences
DONE START+6, START+8, START+9
HEAD START+6, START+7, START+9, SORT1+1, WRITE+3, WRITE+11
HEAD1 HEAD
SORT START+7
SORT1 SORT+2
SUMMPAGE START+12
WRITE SORT1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCD80S START+2*, SUMMPAGE+8, HEAD1+12
>> APCDAVG START+11*, WRITE+4*, WRITE+6
>> APCDBD START+3
>> APCDBDD START+3*, SUMMPAGE+5, HEAD1+10
>> APCDBT DONE
>> APCDDATE SORT1+3*, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15
>> APCDDESU SORT+1*, SORT+4, SORT+6, WRITE+15*
>> APCDED START+3
>> APCDEDD START+3*, SUMMPAGE+5, HEAD1+10
>> APCDET DONE
>> APCDFC("AVG D EC" , SORT+6*
>> APCDFC("DAYS" SORT+1*, WRITE+16*
>> APCDFC("FORMS" SORT+5*
>> APCDH DONE*, DONE+1
>> APCDLENG HEAD1+3*, HEAD1+4, HEAD1+5*, HEAD1+6, HEAD1+8*, HEAD1+9
>> APCDM DONE+1*
>> APCDPG START+2*, SUMMPAGE+2*, SUMMPAGE+3, HEAD, HEAD1+1*, HEAD1+2
>> APCDPROV START+4*, START+6*, START+7*, SORT+1, SORT+2, SORT+4, SORT+5, SORT+6, SORT1+3, WRITE+1
, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15, WRITE+16, HEAD1+8, HEAD1+9
APCDQUIT START+5!, START+7, START+8, START+9, SORT+2, SORT1+1, SORT1+3, WRITE+3, WRITE+10, WRITE+11
, WRITE+14, SUMMPAGE+1*, HEAD+1*
>> APCDS DONE+1*
>> APCDSORT SORT+2*, SORT1+2, SORT1+3, WRITE+4, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15
>> APCDSRT SORT1+2, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+11
>> APCDSUB SORT+1*, SORT+4, SORT+5, SORT+6, WRITE+15*
>> APCDSUBV WRITE+8
APCDSUM START+1!
APCDSUM( WRITE+1*, WRITE+5*, WRITE+7*, SUMMPAGE+10, SUMMPAGE+11, SUMMPAGE+12, SUMMPAGE+13
>> APCDTDES START+4*, START+11, WRITE+15*
>> APCDTOT START+4*, START+11, WRITE+15*, SUMMPAGE+10, SUMMPAGE+14
>> APCDTS DONE*, DONE+1*
>> APCDVDAT WRITE+10*, WRITE+12
>> APCDVDES WRITE+4*, WRITE+5, WRITE+6, WRITE+15
>> APCDWDAT WRITE+2*, WRITE+6
DIR DONE+2!, SUMMPAGE+1!, HEAD+1!
DIR(0 DONE+2*, SUMMPAGE+1*, HEAD+1*
DT SUMMPAGE+3, HEAD1+2
>> DTOUT SUMMPAGE+1, HEAD+1
DUZ(2 HEAD1+3, HEAD1+4
IO DONE+2, SUMMPAGE+1, HEAD+1
IO(0 DONE+2, SUMMPAGE+1, HEAD+1
IOF DONE+3, SUMMPAGE+2, HEAD1+1
IOSL START+9, SORT1+1, WRITE+3, WRITE+11
IOST DONE+2, SUMMPAGE+1, HEAD+1
U HEAD1+3, HEAD1+4
>> X SUMMPAGE+10*, SUMMPAGE+11, SUMMPAGE+12, SUMMPAGE+13
>> Y START+3*, WRITE+2*, SUMMPAGE+1, HEAD+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All