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

Package: Patient Care Component

Routine: APCDCAFG


Information

APCDCAFG ; IHS/CMI/LAB - ; COMP VISITS W/LAST USER

Source Information

Source file <APCDCAFG.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  ($$CJ,$$REPEAT,$$STRIP)^XLFSTR  MES^XPDUTL  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 3 COMMA^%DTC  (,IX)^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  
PCC Medical Query 1 PEP^AMQQGTX0  
Registration 1 TERM^VALM0  

Entry Points

Name Comments DBIA/ICR reference
OPER(V) ;
DATES
INSTDATE(APCDSTAL) ;EP - Determine if patch APCDSTAL was installed, where
; APCDSTAL is the name of the INSTALL. E.g "AG*6.0*11".
SUB ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
D(D) ;
LASTVCA(V) ;
PRINT ;EP
HDR ;EP;HEADER
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HDR1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;inform user what this report is all about
SLOC ;taxonomy of locations
SET(R,D,P) ;
IMES ;
OLOC ;one location
ZIS ;call xbdbque
DRIVER ;EP entry point for taskman
INSTALLD(APCDSTAL) ;EP - Determine if patch APCDSTAL was installed, where
; APCDSTAL is the name of the INSTALL. E.g "AG*6.0*11".
START ;
XIT ;
C(X,X2,X3) ;
V ;
DEC1 ;enter location
USER ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
HOME^%ZIS START+2
PEP^AMQQGTX0 SLOC+2
KILL^AUPNPAT XIT+4
^DIC DEC1+1, OLOC+1, SLOC+1, INSTALLD+9, INSTALLD+12, INSTDATE+9, INSTDATE+12
IX^DIC INSTALLD+6, INSTDATE+6
^DIR START+8, DATES+2, DATES+7, USER+2, SUB+2, DONE+2, HDR+2, EOP+5
TERM^VALM0 START+3
^XBDBQUE ZIS+2
^XBFMK XIT+3
EN^XBVK XIT+2, XIT+5
$$FMADD^XLFDT DRIVER+3
$$FMTE^XLFDT DATES+5, PRINT+10, HDR1+2, HDR1+8, INSTDATE+14
$$CJ^XLFSTR IMES+1
$$REPEAT^XLFSTR HDR1+15
$$STRIP^XLFSTR C+2
MES^XPDUTL IMES+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"The EHR/PCC Coding Audit Start Date has not been set",!,"in the PCC Master Control file."
  • Line Location: START+6
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+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,APCDU,0),U),?40,$$C($P(^XTMP("APCDCAFG",APCDJOB,APCDBT,APCDU),U),0),?55,$$C($P(^XTMP("APCDCAFG",APCDJOB,APCDBT,APCDU),U,2),0)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?10,$$FMTE^XLFDT(APCDD),?40,$$C($P(^XTMP("APCDCAFG",APCDJOB,APCDBT,APCDU,APCDD),U),0),?55,$$C($P(^XTMP("APCDCAFG",APCDJOB,APCDBT,APCDU,APCDD),U,2),0)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"Total Number of Visits: ",?40,$$C(APCDTOTV,0),?55,$$C(APCDTOTR,0),!
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(DT),?70,"Page: ",APCDPG
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !?29,"PCC Data Entry Module"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,$$CTR("******************************************************",80)
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,$$CTR("* COUNT OF VISITS REVIEWED/COMPLETED BY OPERATOR *",80)
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,$$CTR("* COUNTS LAST REVIEW ONLY *",80)
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,$$CTR("******************************************************",80)
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !,$$CTR(Y,80)
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !!,"Operator",?40,"# of visits",?55,"# of visits marked"
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: !?40,"reviewed",?55,"as complete"
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDR1+15
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !!,$$CTR("PCC/EHR CODING AUDIT")
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This report will produce a tally of visits REVIEWED/COMPLETED"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"by the user who reviewed/completed the visit. PLEASE NOTE: this"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"report will only look at visits that have been reviewed and"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"marked as either REVIEWED/COMPLETE or INCOMPLETE. If a visit has"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"never been reviewed it is not counted in this report. You must"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !,"enter the REVIEW date range. This is the date range for which visits"
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !,"were reviewed.",!!
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !,"NOTE: Only the LAST user who reviewed the visit by marking it either"
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: !,"complete or incomplete will be counted in this report."
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: SLOC+1
Function Call: WRITE
  • Prompt: !!,"**** all locations will be included ****",!
  • Line Location: SLOC+4
Routine Call
  • %ZIS
  • Line Location:
    • START+2
Routine Call
  • DIC
  • Line Location:
    • DEC1+1
    • OLOC+1
    • SLOC+1
    • INSTALLD+9
    • INSTALLD+12
    • INSTDATE+9
    • INSTDATE+12
Routine Call
  • DIR
  • Line Location:
    • START+8
    • DATES+2
    • DATES+7
    • USER+2
    • SUB+2
    • DONE+2
    • HDR+2
    • EOP+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+6
    • INSTDATE+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] START+6, DATES+3, DATES+5
^AUPNVCA - [#9000010.45] V+5, V+16, V+19, V+20, OPER+6, OPER+7
^AUPNVCA("AD" LASTVCA+2, OPER+2, OPER+5
^AUPNVCA("B" V+3, V+4
^AUPNVSIT - [#9000010] V+7, V+8, V+10, OPER+1
^DIC(4 - [#4] LOC+1
^DIC(9.4 - [#9.4] INSTDATE+14
^TMP($J V+1!, V+11*, V+13
^VA(200 - [#200] PRINT+5, USR+1
^XTMP("APCDCAFG" DRIVER+2!, DRIVER+3*, SET+1*, SET+2*, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+8, PRINT+10
, DONE+1!

Label References

Name Line Occurrences
$$C PRINT+5, PRINT+10, PRINT+14
$$CTR HDR1+4, HDR1+5, HDR1+6, HDR1+7, HDR1+8, INFORM+1, INFORM+2
$$LASTVCA V+14
$$LOC INFORM+1
DATES DATES+3, DATES+9, USER+3
DONE PRINT+2, PRINT+12, PRINT+13
HDR PRINT+1, PRINT+2, PRINT+4, PRINT+9, PRINT+13
HDR1 HDR+1
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
INFORM START+5
SET V+19, V+20
SUB USER+4
USER DEC1+1, SUB+3
V DRIVER+5
XIT START+1, START+6, DATES+2, DATES+7, ZIS+3, SLOC+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDBD DATES!, DATES+2*, DATES+3, DATES+9, V+2, HDR1+8
APCDBT DRIVER+1*, DRIVER+2, SET+1, SET+2, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+8, PRINT+10
, DONE+1!
>> APCDD PRINT+8*, PRINT+10
>> APCDDEO USER+1*, USER+4*, DEC1+2*, V+18
APCDED DATES!, DATES+7*, DATES+9, V+3, HDR1+8
>> APCDET DRIVER+6*, V+21*
APCDJ DONE+1!
>> APCDJOB DRIVER+1*, DRIVER+2, SET+1, SET+2, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+8, PRINT+10
, DONE+1
APCDLOCS SLOC+3, SLOC+4!
APCDLOCS( OLOC+3*
APCDLOCS("*" SLOC+4
>> APCDLOCT SLOC+4*
>> APCDODAT V+2*, V+3*, V+4
>> APCDPG PRINT+1*, HDR+1, HDR1+1*, HDR1+2
>> APCDQ OLOC+2*, SLOC+3*
>> APCDQUIT PRINT+1*, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+12, PRINT+13, HDR+2*
>> APCDRCNT V+3*
APCDSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1, INSTDATE~, INSTDATE+4, INSTDATE+8, INSTDATE+11
>> APCDTOTR PRINT+1*, PRINT+6*, PRINT+14
>> APCDTOTV PRINT+1*, PRINT+6*, PRINT+14
>> APCDU V+16*, V+17, V+18, V+19, V+20, PRINT+3*, PRINT+5, PRINT+6, PRINT+8, PRINT+10
>> APCDV0 V+8*, V+9
>> APCDVCAI V+3*, V+4*, V+5, V+14*, V+15, V+16, V+19, V+20
>> APCDVIEN V+5*, V+6, V+7, V+8, V+10, V+11, V+13*, V+14, LASTVCA+2
>> APCDVSTD SUB+1*, SUB+4*, PRINT+7
APCDX INSTDATE+3~, INSTDATE+7*, INSTDATE+8, INSTDATE+14
APCDY INSTALLD+3~, INSTALLD+13*, INSTALLD+15, INSTDATE+3~, INSTDATE+13*, INSTDATE+14
APCDZ INSTDATE+3~, INSTDATE+10*, INSTDATE+11, INSTDATE+14
D SET~, SET+1, D~, D+1, D+2, INSTALLD+5*, INSTDATE+5*
DA START+8!, DEC1+1!, SUB+2!, SLOC+1!
DFOUT EOP+4!
DIC DEC1+1*!, OLOC+1*!, SLOC+1*!, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*, INSTDATE+3~, INSTDATE+5*, INSTDATE+8*
, INSTDATE+11*
DIC("A" DEC1+1*, OLOC+1*
DIC("S" SLOC+1*
DIC(0 DEC1+1*, OLOC+1*, SLOC+1*, INSTALLD+5*, INSTDATE+5*
DIR START+8!, DATES+1!, DATES+6!, USER+2!, SUB+2!, DONE+2!, HDR+2!, XIT+1!, EOP+3~
DIR("?" USER+2*
DIR("A" START+8*, DATES+1*, DATES+6*, USER+2*, SUB+2*, DONE+2*, EOP+5*
DIR("B" SUB+2*
DIR(0 START+8*, DATES+1*, DATES+6*, USER+2*, SUB+2*, DONE+2*, HDR+2*, EOP+5*
DIRUT USER+3, SUB+3, DONE+2*, EOP+4!
DLOUT EOP+4!
DT DRIVER+3, HDR1+2
DTOUT HDR+2, EOP+4!
DUOUT DONE+2, EOP+4!
DUZ USR+1
DUZ(2 START+6, DATES+3, DATES+5, LOC+1
G OPER+3~, OPER+4*, OPER+5, OPER+7*, OPER+9
IO DONE+2, HDR+2
IO("S" EOP+2
IO(0 DONE+2, HDR+2
IOF START+2, START+4, DONE+3, HDR1+1
IOM CTR+1, IMES+1
IOSL PRINT+4, PRINT+9, PRINT+13
IOST DONE+2, HDR+2, EOP+1
>> IOT EOP+2
P SET~, SET+1, SET+2
R SET~, SET+1, SET+2
U START+6, DATES+3, DATES+5, V+5, V+10, V+16, V+19, V+20, SET+1, SET+2
, PRINT+5, PRINT+6, PRINT+10, OPER+7, USR+1, LOC+1, INSTDATE+14
V LASTVCA~, OPER~, OPER+1, OPER+2, OPER+5
X LASTVCA+1~, LASTVCA+2*, C~, C+2, HDR1+8*, OPER+3~, OPER+5*, OPER+6, OPER+7, CTR~
, CTR+1, SLOC+1*, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*, INSTALLD+11*, INSTDATE+3~, INSTDATE+4*, INSTDATE+8*, INSTDATE+11*
X2 C~
X3 C~
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y DATES+2, DATES+7, USER+4, DEC1+1, DEC1+2, SUB+4, LASTVCA+1~, LASTVCA+2*, LASTVCA+3, HDR+2
, CTR~, CTR+1, OLOC+2, OLOC+3, SLOC+1, SLOC+2, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10
, INSTALLD+11, INSTALLD+13, IMES+1, INSTDATE+3~, INSTDATE+7, INSTDATE+10, INSTDATE+13
>> 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