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

Package: Patient Care Component Reports

Routine: APCLNJ23


Information

APCLNJ23 ; IHS/CMI/LAB - INJURY REPORT COVER PAGE ;

Source Information

Source file <APCLNJ23.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS VA Utilities 1 $$EXTSET^XBFUNC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLNJ22  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
CLN ;
VD
HEAD1 ;
TOP ;ENTRY POINT
HEAD ;
ICD ;
SC ;
TYPE ;
AGE ;

External References

Name Field # of Occurrence
^DIR ICD+2, HEAD+2
$$EXTSET^XBFUNC TYPE+2, SC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"1. Visits from ",APCLBDD," through ",APCLEDD
  • Line Location: VD+0
Function Call: WRITE
  • Prompt: !!,"2. ",$S($D(APCLLOCT):"The following ",1:"All")," Locations of Encounter",$S($D(APCLLOCT):":",1:".")
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(4,%,0),U)
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !!,"3. ",$S($D(APCLTYPT):"The following ",1:"All")," Visit Types",$S($D(APCLTYPT):":",1:".")
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !?10,V
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !!,"4. ",$S($D(APCLSCT):"The following ",1:"All")," Visit Service Categories",$S($D(APCLSCT):":",1:".")
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !?10,V
  • Line Location: SC+2
Function Call: WRITE
  • Prompt: !!,"5. ",$S($D(APCLCLNT):"The following ",1:"All")," Clinics",$S($D(APCLCLNT):":",1:".")
  • Line Location: CLN+1
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(40.7,%,0),U)
  • Line Location: CLN+2
Function Call: WRITE
  • Prompt: !!,"6. ",$S($D(APCLAGET):"The following ",1:"All")," Ages",$S($D(APCLAGET):": "_APCLAGET,1:".")
  • Line Location: AGE+1
Function Call: WRITE
  • Prompt: !!,"7. All vists with an ICD9 Diagnosis between 800 and 999 or ICD10 codes",!?5,"S00-T88 (injury codes)."
  • Line Location: ICD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ICD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"The Surveillance Injury Report is based on the following criteria:",!
  • Line Location: HEAD1+5
Routine Call
  • DIR
  • Line Location:
    • ICD+2
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+2, HEAD1+3
^DIC(40.7 - [#40.7] CLN+2
^VA(200 - [#200] HEAD1+4

Label References

Name Line Occurrences
HEAD TOP+2, LOC+2, TYPE+2, SC+2, CLN+2
HEAD1 HEAD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOC+2*, LOC+3!, TYPE+2*, TYPE+3!, SC+2*, SC+3!, CLN+2*, CLN+3!
>> APCLAGET AGE+1
>> APCLBDD VD
>> APCLCLNT CLN+1
>> APCLCLNT( CLN+2
>> APCLEDD VD
>> APCLLOCT LOC+1
>> APCLLOCT( LOC+2
>> APCLPAGE TOP+1*, HEAD+1, HEAD1+1*
>> APCLQUIT LOC+2, TYPE+2, SC+2, CLN+2, ICD+2*, HEAD+2*
>> APCLSCT SC+1
>> APCLSCT( SC+2
>> APCLTYPT TYPE+1
>> APCLTYPT( TYPE+2
DIR ICD+2!, HEAD+2!
DIR("A" ICD+2*
DIR(0 ICD+2*, HEAD+2*
>> DTOUT ICD+2, HEAD+2
DUZ HEAD1+4
DUZ(2 HEAD1+3
IO ICD+2, HEAD+2
IO(0 ICD+2, HEAD+2
IOF HEAD1+2
IOSL LOC+2, TYPE+2, SC+2, CLN+2
IOST ICD+2, HEAD+2
U LOC+2, CLN+2
V TYPE+2*, TYPE+3!, SC+2*, SC+3!
>> X HEAD1+3*, HEAD1+4
>> Y ICD+2, HEAD+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All