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 |  Local Variables |  All
Print Page as PDF
Routine: APCDFQAC

Package: Patient Care Component

Routine: APCDFQAC


Information

APCDFQAC ; IHS/CMI/LAB - QA AUDIT ON ICD CODING ;

Source Information

Source file <APCDFQAC.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Patient Care Component 3 ^APCDFQA3  ^APCDFQC1  ^APCDFQCP  
IHS VA Utilities 1 EN^XBVK  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
RAND ;
CLN ;
ZIS
ERR
ED ;get ending date
DRIVER ; entry point for taskman
RV ;
ICD ;
START ;
DLMVD ;RUN BY DATE LAST MODIFIED OR VISIT DATE?
GETDATES ;
XIT ;
TSKMN ;
PROV ;
SC ;
SC1 ;enter sc
ZTSK ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
^%ZIS ZIS, XIT+2
^%ZISC XIT+1
^%ZTLOAD TSKMN+6
PEP^AMQQGTX0 SC1+2
^APCDFQA3 ICD+6
^APCDFQC1 ZTSK+1
^APCDFQCP ZTSK+4
^DIC SC1+1, CLN+6, PROV+6
^DIR DLMVD+3, BD+1, ED+1, SC+4, CLN+2, PROV+3, RV+2, ICD+3, RAND+2, RAND+5
EN^XBVK XIT+4
$$FMTE^XLFDT ZTSK+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: START+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !?((80-$L(APCDLHDR))/2),APCDLHDR
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"This report will list the purpose of visits for visits that you select."
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"The ICD code and provider narrative will be displayed so that coding"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,"can be reviewed."
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"You will be able to select visits by the following items:"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !?5,"- Visit date or Date Last Modified"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !?5,"- Service Category"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !?5,"- Clinic"
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !?5,"- Operator who last marked the visit as reviewed complete"
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !?10,"or last modified the POV"
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !?5,"- Visits marked as Reviewed/Complete or All Visits"
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !?10,"NOTE: since Hospital, Telephone, Chart Review visits don't need"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !?10,"to be marked as reviewed/complete in the coding queue, select all"
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !?10,"visits if you want those included."
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !?5,"- Visit by ICD diagnosis code"
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+3
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: SC1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RAND+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
Routine Call
  • DIC
  • Line Location:
    • SC1+1
    • CLN+6
    • PROV+6
Routine Call
  • DIR
  • Line Location:
    • DLMVD+3
    • BD+1
    • ED+1
    • SC+4
    • CLN+2
    • PROV+3
    • RV+2
    • ICD+3
    • RAND+2
    • RAND+5
Routine Call
  • %ZIS
  • Line Location:
    • ZIS
    • XIT+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 DLMVD+2
^XTMP("APCDFQA" START+22!, ICD+2!, ICD+5*, ZTSK+6!

Label References

Name Line Occurrences
BD ED+2, SC+5
CLN SC+6, CLN+7, PROV+4
DLMVD BD+2
ICD ICD+7, RAND+3
PROV CLN+4, PROV+7, RV+3
RAND ICD+4, ICD+5, RAND+6
RV PROV+5
SC SC1+3, CLN+3
TSKMN ZIS+2
XIT DLMVD+4, SC1+1, ZIS+1, ZTSK+7, TSKMN+6
ZIS RAND+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TSKMN+5*
%DT XIT+3!
>> %ZIS ZIS*
>> APCDBD BD+3*, ED+1, ED+4
>> APCDBT START+21*, START+22, ICD+2, ICD+5, ZTSK+6
>> APCDCLN CLN+2*, CLN+8*
>> APCDDT ZTSK+2*
>> APCDED ED+3*
>> APCDJOB START+21*, START+22, ICD+2, ICD+5, ZTSK+6
>> APCDLHDR START+5*, START+6
>> APCDMAX RAND+2*, RAND+7*
>> APCDPROC DLMVD+5*
>> APCDPROD DLMVD+5*, BD+1, ED+1
>> APCDPROV PROV+2*, PROV+8*
>> APCDRSM RAND+4*, RAND+7*
>> APCDRVC RV+1*, RV+4*
APCDSC SC+3!
APCDSCT SC+2!, SC+3!, SC1+3, SC1+4!
APCDSCT("*" SC1+4
>> APCDSD ED+4*
APCDSITE START+1*, START+2!, START+3!, DLMVD+1*, DLMVD+2*
APCDTABL ICD+6!, ICD+7
>> APCDXREF DLMVD+5*
DA SC1+1!, CLN+6!, PROV+3!, RV+2!, ICD+2!
DIC SC1+1*!, CLN+5*, CLN+6!, PROV+6*!, ICD+2!, XIT+3!
DIC("A" CLN+5*, PROV+6*
DIC("S" SC1+1*
DIC(0 SC1+1*, CLN+5*, PROV+6*
DIR DLMVD+3!, BD+1!, ED+1!, SC+4!, CLN+2!, PROV+3!, RV+2!, ICD+2!, ICD+3!, RAND+2!
, RAND+5!
DIR("?" SC+4*, CLN+2*, ICD+3*, RAND+2*
DIR("A" DLMVD+3*, BD+1*, ED+1*, SC+3*, CLN+2*, PROV+3*, RV+2*, ICD+3*, RAND+2*, RAND+5*
DIR("B" DLMVD+3*, ED+1*, SC+3*, CLN+2*, PROV+3*, RV+2*, ICD+3*, RAND+2*
DIR(0 DLMVD+3*, BD+1*, ED+1*, SC+3*, CLN+2*, PROV+3*, RV+2*, ICD+3*, RAND+2*, RAND+5*
DIRUT DLMVD+3*, DLMVD+4, BD+1*, BD+2, ED+1*, ED+2, SC+5, CLN+3, PROV+4, RV+3
, ICD+2!, ICD+4, RAND+3, RAND+6, XIT+3!
DT ZTSK+2
DTOUT PROV+7, ICD+2!
>> DUOUT DLMVD+3, BD+1, ED+1
DUZ(2 START+1, START+2, START+3, DLMVD+1, DLMVD+2
IO ZTSK+3, TSKMN+2
IO("DOC" TSKMN+3
IO("Q" ZIS+2, XIT+3!
IO(0 XIT+2
>> IOCPU TSKMN+6
IOF START+4
IOM TSKMN+4
ION TSKMN+2
>> IOP XIT+2*
IOSL TSKMN+4
IOST TSKMN+2
POP ZIS+1, XIT+3!
X ED+4, SC1+1*, ICD+2!, XIT+3!
>> X1 ED+4*
>> X2 ED+4*
Y DLMVD+5*, BD+3, ED+1*, ED+3, SC+6, SC1+1, SC1+2, CLN+4, CLN+7, CLN+8
, PROV+5, PROV+7, PROV+8, RV+4, ICD+2!, ICD+5, RAND+4, RAND+7, XIT+3!
>> ZTCPU TSKMN+6*
>> ZTDESC TSKMN+6*
>> ZTDTH TSKMN+6*
ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*, TSKMN+4*, XIT+3!
>> ZTQUEUED ZTSK+5
>> ZTREQ ZTSK+5*
>> ZTRTN TSKMN+6*
ZTSAVE TSKMN+5!
ZTSAVE( TSKMN+5*
ZTSK XIT+2, XIT+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All