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

Package: Patient Care Component Reports

Routine: APCLAUD4


Information

APCLAUD4 ; IHS/CMI/LAB - MORE AUDIT SEARCH ;

Source Information

Source file <APCLAUD4.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 1 $$ICDDX^ICDEX  
Patient Care Component Reports 1 HEAD^APCLAUD2  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLAUD2  

Entry Points

Name Comments DBIA/ICR reference
TOPHD1
LOC
CLN
PRVDSP
TOP ;EP
TOP3
TOP2
TOP1
SEX ;
ICDDSP
TOPHD ;EP
ICDLN ;EP
ICDLN1
SC ;
ICD
TYPE

External References

Name Field # of Occurrence
HEAD^APCLAUD2 ICDLN+1
^DIR TOPHD+2
$$ICDDX^ICDEX ICDDSP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This Audit Search is based on the following criteria:",!
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !!,"1. Ambulatory Visits from ",APCLBDY," through ",APCLEDY
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !!,"2. All Patient Ages included."
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: !!,"2. Patient Age Range (as of Visit Date) from ",APCLLAGE," - ",APCLHAGE,"."
  • Line Location: TOP+4
Function Call: WRITE
  • Prompt: !!,"3. ",$S($D(APCLSEX):APCLSEXP,1:"ALL")," Patient Sex"
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: !!,"4. ",$S($D(APCLSC):APCLSCP,1:"ALL")," Visit Service Categor",$S($D(APCLSC):"y.",1:"ies.")
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !!,"5. ",$S($D(APCLTYPE):APCLTYPP,1:"ALL")," Visit Type",$S($D(APCLTYPE):".",1:"s.")
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: !!,"6. ",$S($D(APCLCLN):APCLCLNP,1:"ALL")," Visit Clinic Type",$S($D(APCLCLN):"s.",1:".")
  • Line Location: CLN+0
Function Call: WRITE
  • Prompt: !!,"7. ",$S($D(APCLLOC):APCLLOCP,1:"ALL")," Location of Encounter"
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !!,"8. ALL ICD Codes."
  • Line Location: ICD+0
Function Call: WRITE
  • Prompt: !!,"8. The following ICD Code ranges: ",!
  • Line Location: ICD+1
Function Call: WRITE
  • Prompt: !,"ICD Code Range ",APCLDSP,": ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP,"ICDB")," through ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP,"ICDE"),"."
  • Line Location: ICD+3
Function Call: WRITE
  • Prompt: !!,"9. ALL Primary Providers."
  • Line Location: TOP1+1
Function Call: WRITE
  • Prompt: !!,"9. NOT by Primary Provider."
  • Line Location: TOP1+2
Function Call: WRITE
  • Prompt: !!,"9. The following Primary Providers:",!
  • Line Location: TOP1+3
Function Call: WRITE
  • Prompt: !!,"10. ALL Diagnoses that match the Search Criteria."
  • Line Location: TOP2+1
Function Call: WRITE
  • Prompt: !," that match the Search Criteria."
  • Line Location: TOP2+2
Function Call: WRITE
  • Prompt: $P(^DIC(4,APCLSITE,0),"^"),?58,APCLDTP,?72,"Page ",APCLPG,!
  • Line Location: TOPHD1+1
Function Call: WRITE
  • Prompt: !?30,"Audit Search Criteria",!!,APCL80D
  • Line Location: TOPHD1+2
Function Call: WRITE
  • Prompt: !?4,$P($$ICDDX^ICDEX(APCLDSP),"^",2),?11,$P($$ICDDX^ICDEX(APCLDSP),"^",4)
  • Line Location: ICDDSP+2
Function Call: WRITE
  • Prompt: !?4,$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLPRV,0),U),1:$P(^DIC(16,$P(^DIC(6,APCLPRV,0),"^"),0),"^")),!
  • Line Location: PRVDSP+1
Function Call: WRITE
  • Prompt: !!!,"---> ICD Code Range: "
  • Line Location: ICDLN+2
Function Call: WRITE
  • Prompt: "ALL ICD Codes."
  • Line Location: ICDLN+3
Function Call: WRITE
  • Prompt: ^XTMP("APCLAUD",APCLJOB,APCLBT,APCLIRNG,"ICDB")," through ",^("ICDE")
  • Line Location: ICDLN+4
Function Call: WRITE
  • Prompt: !?6,"Total Matches: ",APCLCNT
  • Line Location: ICDLN1+0
Function Call: WRITE
  • Prompt: " Matches Selected: ",APCLGOT
  • Line Location: ICDLN1+0
Routine Call
  • DIR
  • Line Location:
    • TOPHD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010.06 PRVDSP+1
^DIC(16 - [#16] PRVDSP+1
^DIC(4 - [#4] TOPHD1+1
^DIC(6 - [#6] PRVDSP+1
^VA(200 - [#200] PRVDSP+1
^XTMP("APCLAUD" ICD+3, TOP1+5, ICDLN+4

Label References

Name Line Occurrences
ICDLN1 ICDLN+3
PRVDSP TOP1+5
SEX TOP+3
TOP1 ICD
TOP2 TOP1+1, TOP1+2
TOP3 TOP2+1
TOPHD TOP1, TOP2, TOP3, ICDDSP, PRVDSP
TOPHD1 TOPHD+1

Naked Globals

Name Field # of Occurrence
^("ICDE" ICDLN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80D TOPHD1+2
>> APCLALLI ICD, ICDLN+3
>> APCLALLP TOP1+1
>> APCLALLR TOP2+1
>> APCLBDY TOP+2
>> APCLBT ICD+3, TOP1+5, ICDLN+4
>> APCLCLN CLN
>> APCLCLNP CLN
>> APCLCNT ICDLN1
>> APCLDSP ICD+2*, ICD+3*, ICDDSP+2
>> APCLDTP TOPHD1+1
>> APCLEDY TOP+2
>> APCLGOT ICDLN1
>> APCLHAGE TOP+4
>> APCLIRNG ICDLN+4
>> APCLJOB ICD+3, TOP1+5, ICDLN+4
>> APCLLAGE TOP+3, TOP+4
>> APCLLIM TOP2+2
>> APCLLOC LOC
>> APCLLOCP LOC
>> APCLNOSP TOP1+1, TOP1+2, TOP2+2
>> APCLPG TOPHD+1*, TOPHD1+1
>> APCLPRV TOP1+4*, TOP1+5*, PRVDSP+1
APCLQ TOP1!, TOP2!, TOP3!, TOPHD+3*, ICDDSP!, PRVDSP!
>> APCLSC SC+1
>> APCLSCP SC+1
>> APCLSEX SEX+1
>> APCLSEXP SEX+1
>> APCLSITE TOPHD1+1
>> APCLTYPE TYPE
>> APCLTYPP TYPE
DIR TOPHD+2!
DIR(0 TOPHD+2*
>> DIRUT TOPHD+2*, TOPHD+3
>> DUOUT TOPHD+2
IO TOPHD+2
IO(0 TOPHD+2
IOF TOPHD1
IOSL TOP1, TOP2, ICDDSP, PRVDSP, ICDLN+1
IOST TOPHD+2
>> JJ TOP1+5*
U PRVDSP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All