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

Package: Patient Care Component

Routine: APCDFC2


Information

APCDFC2 ; IHS/CMI/LAB - COUNT FORMS REPORT ;

Source Information

Source file <APCDFC2.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 4 DD^%DT  C^%DTC  EN^DIQ1  ^DIR  
Patient Care Component 1 PRINT^APCDFC2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDFC2  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
CALDEC ;
SUB ;subtotal by visit date
ERR
SORTA ;
EOJ ; clean up and exit
PRINT ;EP
DATE ;
DONE
TSKMN ;
ZTSK ;
SET
INFORM ;
1 ;
V1 ;
3 ;TYPE
2 ;
4 ;
SORT ;
HEAD
ZIS
ED ;get ending date
DRIVER ; entry point for taskman
WRITE ;
P ; Run by posting date
XIT ;
EP ;
HEAD1 ;
SUMMPAGE ;
GETDATES ;
SORT1 ;
PROC ;

External References

Name Field # of Occurrence
DD^%DT ED+1, WRITE+2
C^%DTC ED+4
^%ZIS ZIS
^%ZISC XIT+1
^%ZTLOAD TSKMN+5
PRINT^APCDFC2 ZTSK+4
EN^DIQ1 2+3, 3+3
^DIR BD+1, ED+1, SORTA+1, SUB+2, DONE+2, SUMMPAGE+1, HEAD+1
$$FMTE^XLFDT PRINT+3, WRITE+12, SUMMPAGE+3, HEAD1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: EP+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER",!!
  • Line Location: EP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+0
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 generate a count of visits entered by you for a ",!,"date range that you specify.",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"The report can be subtotaled by CLINIC TYPE, SERVICE CATEGORY OR BY VISIT TYPE.",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: ?65,$J(APCDAVG,6,1)
  • Line Location: PRINT+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),?65,$J((APCDDESU/APCDSUB),6,1)
  • 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("APCDFC2",$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("APCDFC2",$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:
    • BD+1
    • ED+1
    • SORTA+1
    • SUB+2
    • DONE+2
    • SUMMPAGE+1
    • HEAD+1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDFORM - [#9001001.5] V1+1, PROC+1, PROC+2, PROC+3, PROC+4
^APCDFORM("B" P+1
^AUPNVPOV("AD" PROC+9
^AUPNVPRV("AD" PROC+10
^AUPNVSIT - [#9000010] V1+1, PROC+5
^DIC - [#1] CALDEC+2, CALDEC+10
^DIC(4 - [#4] HEAD1+3, HEAD1+4
^DIC(40.7 - [#40.7] 1+2
^UTILITY("DIQ1" 2+1!, 2+4, 2+5!, 3+1!, 3+4, 3+5!
^VA(200 - [#200] PROC+3, PROC+4
^XTMP("APCDFC2" DRIVER+3!, XIT+3!, SET, SET+1, SET+3, PRINT+6, PRINT+7, SORT+2, SORT1+3, WRITE+4
, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15

Label References

Name Line Occurrences
@( PROC+11
BD ED+2, SORTA+2
DATE PROC+12
DONE PRINT+6, PRINT+8
HEAD PRINT+6, PRINT+7, SORT1+1, WRITE+3, WRITE+11
HEAD1 HEAD
INFORM EP+4
P ZTSK+1
PROC V1+1
SORT PRINT+7
SORT1 SORT+2
SORTA SUB+3
SUB SORTA+3
TSKMN ZIS+2
V1 P+1
WRITE SORT1+3
XIT BD+2, ZIS+1, ZTSK+6, TSKMN+5

Naked Globals

Name Field # of Occurrence
^( SET*, SET+1*, SET+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TSKMN+4*
%DT XIT+4!
>> %ZIS ZIS*
APCD1 XIT+5!, EOJ+1!
APCD2 XIT+5!, EOJ+1!
APCD80S XIT+5!, PRINT+2*, SUMMPAGE+8, HEAD1+12
APCDAP XIT+5!, PROC+4*, SET, SET+1, SET+3, EOJ+1!
APCDAVG XIT+6!, WRITE+4*, WRITE+6
APCDBD BD+3*, ED+1, ED+4, XIT+5!, PRINT+3
APCDBDD XIT+5!, PRINT+3*, SUMMPAGE+5, HEAD1+10
APCDBT DRIVER+1*, XIT+5!, DONE
APCDC XIT+6!, V1+1*, PROC+1, PROC+2, PROC+3, PROC+4
APCDCLIN EOJ+1!, 1+1*, 1+2
APCDDATE XIT+5!, SET, SET+1, SET+3, EOJ+1!, DATE+1*, SORT1+3*, WRITE+2, WRITE+4, WRITE+6
, WRITE+7, WRITE+10, WRITE+12, WRITE+15
APCDDEC ED+6*, XIT+5!, XIT+6!, PROC+1
APCDDESU XIT+5!, SORT+1*, SORT+4, SORT+6, WRITE+15*
APCDDFN XIT+6!, P+1*, V1+1, PROC+1, PROC+2, PROC+3, PROC+4
APCDDT XIT+5!
APCDED ED+3*, XIT+5!, P+1, PRINT+3
APCDEDD XIT+5!, PRINT+3*, SUMMPAGE+5, HEAD1+10
>> APCDEDFN CALDEC+11*
>> APCDEL CALDEC+11*
APCDET ZTSK+2*, XIT+5!, DONE
APCDFC XIT+5!
APCDFC("AVG D EC" , SORT+6*
APCDFC("DAYS" SORT+1*, WRITE+16*
APCDFC("FORMS" SORT+5*
>> APCDFL CALDEC+2*
APCDGOT XIT+5!
APCDH XIT+4!, DONE*, DONE+1
APCDLENG XIT+6!, HEAD1+3*, HEAD1+4, HEAD1+5*, HEAD1+6, HEAD1+8*, HEAD1+9
APCDM XIT+4!, DONE+1*
APCDODAT XIT+6!, P+1*, DATE+1
APCDPG XIT+6!, PRINT+2*, SUMMPAGE+2*, SUMMPAGE+3, HEAD, HEAD1+1*, HEAD1+2
APCDPROC SORTA+3*, XIT+6!, PROC+11
APCDPROV XIT+6!, EOJ+1!, PRINT+4*, PRINT+6*, PRINT+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 PRINT+5!, PRINT+7, PRINT+8, SORT+2, SORT1+1, SORT1+3, WRITE+3, WRITE+10, WRITE+11, WRITE+14
, SUMMPAGE+1*, HEAD+1*
APCDS XIT+4!, DONE+1*
APCDSD ED+4*, XIT+6!, P+1
APCDSEC EOJ+1!
APCDSITE EP+1*, EP+2!, EP+3!, XIT+6!
APCDSKIP EOJ+1!
APCDSORT XIT+6!, SET, SET+1, SET+3, 1+1*, 1+2*, 2+4*, 4+1*, 3+4*, SORT+2*
, SORT1+2, SORT1+3, WRITE+4, WRITE+6, WRITE+7, WRITE+10, WRITE+12, WRITE+15
APCDSRT SORTA+3*, SORTA+4*, XIT+6!, SORT1+2, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+11
APCDSUB XIT+6!, SORT+1*, SORT+4, SORT+5, SORT+6, WRITE+15*
APCDSUBV SUB+1*, SUB+4*, XIT+5!, SET+2, WRITE+8
APCDSUM PRINT+1!
APCDSUM( WRITE+1*, WRITE+5*, WRITE+7*, SUMMPAGE+10, SUMMPAGE+11, SUMMPAGE+12, SUMMPAGE+13
APCDTDES XIT+5!, PRINT+4*, WRITE+15*
APCDTOT XIT+6!, PRINT+4*, WRITE+15*, SUMMPAGE+10, SUMMPAGE+14
APCDTS XIT+4!, DONE*, DONE+1*
APCDVDAT XIT+5!, PROC+6*, SET+3, WRITE+10*, WRITE+12
APCDVDES XIT+5!, SET+1, EOJ+1!, CALDEC+1*, CALDEC+11*, WRITE+4*, WRITE+5, WRITE+6, WRITE+15
APCDVDFN XIT+6!, V1+1*, PROC+5, PROC+9, PROC+10, 2+3, 2+4, 3+3, 3+4
>> APCDVDG CALDEC+10*
>> APCDVFLE CALDEC+2*, CALDEC+3, CALDEC+4, CALDEC+5, CALDEC+6, CALDEC+7, CALDEC+8, CALDEC+9, CALDEC+10
>> APCDVIGR CALDEC+10*, CALDEC+11
APCDVREC XIT+6!, PROC+5*, PROC+6, PROC+7, PROC+8, EOJ+1!, 1+1
APCDWDAT XIT+6!, WRITE+2*, WRITE+6
APCDX XIT+5!, EOJ+1!
APCDY XIT+6!, EOJ+1!
APCDZ EOJ+1!
DA SUB+2!, 2+2!, 2+3*!, 3+2!, 3+3*!
DIC XIT+4!, 2+2!, 2+3*!, 3+2!, 3+3*!
DIQ 2+2!, 2+3!, 3+2!, 3+3!
DIQ(0 2+3*, 3+3*
DIR BD+1!, ED+1!, SORTA+1!, SUB+2!, DONE+2!, SUMMPAGE+1!, HEAD+1!
DIR("A" BD+1*, ED+1*, SORTA+1*, SUB+2*
DIR("B" ED+1*, SORTA+1*, SUB+2*
DIR(0 BD+1*, ED+1*, SORTA+1*, SUB+2*, DONE+2*, SUMMPAGE+1*, HEAD+1*
DIRUT BD+1*, BD+2, ED+1*, ED+2, SORTA+2, SUB+3, XIT+4!
DR 2+2!, 2+3*!, 3+2!, 3+3*!
DT SUMMPAGE+3, HEAD1+2
>> DTOUT SUMMPAGE+1, HEAD+1
>> DUOUT BD+1, ED+1
DUZ ED+6
DUZ(2 EP+1, EP+2, EP+3, HEAD1+3, HEAD1+4
IO ZTSK+3, TSKMN+1, DONE+2, SUMMPAGE+1, HEAD+1
IO("DOC" TSKMN+2
IO("Q" ZIS+2, XIT+4!
IO(0 DONE+2, SUMMPAGE+1, HEAD+1
>> IOCPU TSKMN+5
IOF INFORM+1, DONE+3, SUMMPAGE+2, HEAD1+1
IOM TSKMN+3
ION TSKMN+1
IOSL TSKMN+3, SORT1+1, WRITE+3, WRITE+11
IOST TSKMN+1, DONE+2, SUMMPAGE+1, HEAD+1
POP ZIS+1, XIT+4!
U DRIVER+2*, V1+1, PROC+1, PROC+2, PROC+3, PROC+4, PROC+6, PROC+7, PROC+8, 1+1
, 1+2, HEAD1+3, HEAD1+4
X ED+4, XIT+4!, SUMMPAGE+10*, SUMMPAGE+11, SUMMPAGE+12, SUMMPAGE+13
>> X1 ED+4*
>> X2 ED+4*
Y BD+3, ED+1*, ED+3, SORTA+3, SUB+4, XIT+4!, WRITE+2*, SUMMPAGE+1, HEAD+1
Y(0 SORTA+4
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*, XIT+4!
>> ZTQUEUED ZTSK+5
>> ZTREQ ZTSK+5*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE( TSKMN+4*
ZTSK XIT+4!
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