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

Package: Patient Care Component

Routine: APCDFQA


Information

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

Source Information

Source file <APCDFQA.m>

Call Graph

Call Graph Total: 12

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

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
RAND ;
CLN
ZIS
ERR
PROV
DRIVER ; entry point for taskman
ICD ;
START ;
GETDATES ;
XIT ;
TSKMN ;
ED ;get ending date
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
^APCDFQA1 ZTSK+1
^APCDFQA3 ICD+5
^APCDFQAP ZTSK+4
^DIC PROV, SC1+1, CLN+4
^DIR BD+1, ED+1, SC+3, CLN, ICD+2, RAND+1, RAND+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 visits (by POSTING date with an option of random",!,"samples) for a selected data entry operator. Purpose of Visit ",!,"ICD DIAGNOSIS Code and Provider Narrative will also be listed.",!!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: "NOTE: This report is based on forms tracking which would assign the coding"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,"to the first operator who accessd the visit. There is a new report:"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"DXV - DX Coding Audit for Selected Set of Visits which may better"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"reflect the user who coded the Purpose of Visit. It uses the"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,"user who last marked the visit as reviewed/complete and the user last"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"modified field for the Purpose of Visit.",!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: SC1+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:
    • PROV
    • SC1+1
    • CLN+4
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • SC+3
    • CLN
    • ICD+2
    • RAND+1
    • RAND+4
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)
^XTMP("APCDFQA" START+15!, ICD+1!, ICD+4*, ZTSK+6!

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TSKMN+5*
%DT XIT+3!
>> %ZIS ZIS*
APCD1 XIT+4!
APCD11 XIT+4!
APCD1SV XIT+4!
APCD2 XIT+4!
APCD80D XIT+4!
APCDBD BD+3*, ED+1, ED+4, XIT+4!
APCDBDD XIT+4!
APCDBT START+14*, START+15, ICD+1, ICD+4, ZTSK+6, XIT+4!, XIT+5!
APCDC XIT+4!
APCDCLN CLN*, CLN+6*, XIT+4!
APCDDATE XIT+4!
APCDDFN XIT+4!
APCDDLT XIT+4!
APCDDSP XIT+4!
APCDDT ZTSK+2*, XIT+4!
APCDED ED+3*, XIT+4!
APCDEDD XIT+4!
APCDGOT XIT+5!
APCDHRN XIT+4!
APCDI XIT+4!
APCDICDD XIT+4!
APCDICDP XIT+5!
APCDIRNG XIT+4!
APCDJOB START+14*, START+15, ICD+1, ICD+4, ZTSK+6, XIT+5!
APCDLENG XIT+4!
APCDLHDR START+5*, START+6, XIT+5!
APCDMAX RAND+1*, RAND+6*, XIT+4!
APCDMSG XIT+4!
APCDNQ XIT+4!
APCDODAT XIT+5!
APCDPAT XIT+5!
APCDPG XIT+5!
APCDPOV XIT+5!
APCDPOVA XIT+5!
APCDPOVC XIT+5!
APCDPOVD XIT+5!
APCDPOVN XIT+5!
APCDPROV PROV+2*, XIT+5!
APCDQ XIT+4!
APCDQUIT XIT+4!
APCDRSM RAND+3*, RAND+6*, XIT+5!
APCDSC SC+2!
APCDSCT SC+1!, SC+2!, SC1+3, SC1+4!
APCDSCT("*" SC1+4
APCDSD ED+4*, XIT+5!
APCDSITE START+1*, START+2!, START+3!, XIT+5!
APCDSLCT XIT+4!
APCDTABL ICD+5!, ICD+6, XIT+5!
APCDVCNT XIT+5!
APCDVDFN XIT+5!
APCDVREC XIT+5!
APCDX XIT+5!
DA SC1+1!, CLN+4!, ICD+1!
DIC PROV*!, SC1+1*!, CLN+3*, CLN+4!, ICD+1!, XIT+3!
DIC("A" PROV*, CLN+3*
DIC("S" SC1+1*
DIC(0 PROV*, SC1+1*, CLN+3*
DIR BD+1!, ED+1!, SC+3!, CLN!, ICD+1!, ICD+2!, RAND+1!, RAND+4!
DIR("?" SC+3*, CLN*, ICD+2*, RAND+1*
DIR("A" BD+1*, ED+1*, SC+2*, CLN*, ICD+2*, RAND+1*, RAND+4*
DIR("B" ED+1*, SC+2*, CLN*, ICD+2*, RAND+1*
DIR(0 BD+1*, ED+1*, SC+2*, CLN*, ICD+2*, RAND+1*, RAND+4*
DIRUT BD+1*, BD+2, ED+1*, ED+2, SC+4, ICD+1!, ICD+3, RAND+5, XIT+3!
DT ZTSK+2
DTOUT PROV+1, CLN+1, ICD+1!, RAND+2
>> DUOUT BD+1, ED+1
DUZ(2 START+1, START+2, START+3
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!
U CLN+1
X ED+4, SC1+1*, CLN+1, CLN+2, ICD+1!, RAND+2, XIT+3!
>> X1 ED+4*
>> X2 ED+4*
Y BD+3, ED+1*, ED+3, PROV+1, PROV+2, SC+5, SC1+1, SC1+2, CLN+5, CLN+6
, ICD+1!, ICD+4, RAND+3, RAND+6, 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