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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLNJ22

Package: Patient Care Component Reports

Routine: APCLNJ22


Information

APCLNJ22 ; IHS/CMI/LAB - PRINT VISITS WITH INJURIES ;

Source Information

Source file <APCLNJ22.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Patient Care Component Reports 2 ^APCLNJ23  DONE^APCLOSUT  
VA Fileman 2 DD^%DT  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
HEAD
END ;
HEAD1 ;
PRNT ;
INIT ;initialize variables
TIME

External References

Name Field # of Occurrence
DD^%DT INIT+1
^APCLNJ23 INIT+2
DONE^APCLOSUT END+1
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No injury visits to report."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: !,?5,APCLTEXT
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: ?40,$J(APCLCNTR(APCLZ,APCLTEXT),3,0)
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: ?40,$J(APCLCNTR(APCLZ,APCLTEXT),3,0)
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: ?65,$P(APCLCNTR(APCLZ,APCLTEXT),U,2)
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: !,?39,"_____",?49,"_____",?63,"_____",!!
  • Line Location: PRNT+10
Function Call: WRITE
  • Prompt: !,?5,"TOTALS:",?41,APCLGTOT,?50,"100%",?65,APCLATOT,!
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?72,"Page ",APCLPAGE,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,?22,"INJURY SURVEILLANCE SUMMARY REPORT",!,?27,"(EXTERNAL CAUSE CODES)",!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?24,"Visits with Injury Diagnosis",!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: ?32,"Visit Dates: ",!,?24,APCLBDD," to ",APCLEDD
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,?63,"CAUSE OF DX",!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: ?5,"EXTERNAL CAUSE CATEGORY SUMMARY",?38,"COUNT",?48,"% TOTAL",?60,"(ALCOHOL RELATED)"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HEAD1+10
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
END INIT+4, PRNT+13
HEAD INIT+3, PRNT+7
HEAD1 HEAD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%A TIME~, TIME+1*, TIME+2, TIME+3!
%B TIME~, TIME+1*, TIME+3!
%C TIME~, TIME+2*, TIME+3!
>> APCLATOT PRNT+11
>> APCLBD INIT+1
>> APCLBDD INIT+1*, HEAD1+7
>> APCLCNTR( PRNT+6, PRNT+8, PRNT+9
>> APCLED INIT+1
>> APCLEDD INIT+1*, HEAD1+7
APCLGOT END+2!
>> APCLGTOT INIT+4, PRNT+8, PRNT+11
APCLPAGE INIT+2!, INIT+3*, HEAD, HEAD1+1*, HEAD1+4
>> APCLPER PRNT+8*
APCLSTOP INIT+2!, INIT+3*, PRNT+7, HEAD+1*
>> APCLTEXT PRNT+6*, PRNT+8, PRNT+9
>> APCLZ PRNT+5*, PRNT+6*, PRNT+8, PRNT+9
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ HEAD1+4
DUZ(2 HEAD1+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL PRNT+7
IOST HEAD+1
U PRNT+9
>> X HEAD1+3*, HEAD1+4, TIME, TIME+1
Y INIT+1*, HEAD+1, TIME~*, TIME+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All