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

Package: Patient Care Component Reports

Routine: APCLNJ2


Information

APCLNJ2 ; IHS/CMI/LAB - E-CODE CLINIC VISITS BY DATE RANGE/BY AGE/VISIT TYPE ;

Source Information

Source file <APCLNJ2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  
PCC Medical Query 1 PEP^AMQQGTX0  
Patient Care Component Reports 1 DEMOCHK^APCLUTL  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC ;
SC1 ;enter sc
ZIS ;
ED ;get ending date
CLINIC1 ;
LOC1 ;enter location
AGER ;Age Screening
CLINIC ;
GETDATES ;
XIT
TYPE1 ;
DEMO ;
SC ;
TYPE ;
AGE ;Age Screening

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
PEP^AMQQGTX0 LOC1+2, TYPE1+2, SC1+2, CLINIC1+2
DEMOCHK^APCLUTL DEMO+1
^DIC LOC1+1, TYPE1+1, SC1+1, CLINIC1+1
^DIR BD+1, ED+1, LOC+4, TYPE+4, SC+3, CLINIC+2, AGE+4, AGER+2
^XBDBQUE DEMO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: APCLNJ2+4
Function Call: WRITE
  • Prompt: !!?21,"INJURY SURVEILLANCE SUMMARY REPORT"
  • Line Location: APCLNJ2+4
Function Call: WRITE
  • Prompt: !,?27,"(EXTERNAL CAUSE CODES)",!
  • Line Location: APCLNJ2+5
Function Call: WRITE
  • Prompt: !!,"This report will COUNT visits which have an injury diagnosis. The user",!,"can select which visits to count based on any of the following criteria:",!
  • Line Location: APCLNJ2+6
Function Call: WRITE
  • Prompt: ?15,"- Visit date",!?15,"- Clinic of Visit",!?15,"- Service Category of Visit",!?15,"- Type of Visit",!?15,"- Location of Encounter",!?15,"- Age Range",!
  • Line Location: APCLNJ2+7
Function Call: WRITE
  • Prompt: !,"The visit counts are summarized by the following 18 External Cause Categories:",!!,?2,"Motor Vehicles..Boat/Water..Air Transport..Accidental Poison..Environmental..",!
  • Line Location: APCLNJ2+8
Function Call: WRITE
  • Prompt: ?2,"Stings/Venons..Falls..Fire/Flame..Animal Vites..Drowning/Sub..Cutting/Piercing",!
  • Line Location: APCLNJ2+9
Function Call: WRITE
  • Prompt: ?2,"Fire Arms..Sports Injury..Suicide..Assault..Child Abuse..Undetermined..Other..",!
  • Line Location: APCLNJ2+10
Function Call: WRITE
  • Prompt: !,?2,"**Detailed information for each Cause of Injury Code Range is outlined in the User Manual**",!!
  • Line Location: APCLNJ2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: LOC1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: TYPE1+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: CLINIC+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLINIC1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AGER+1
Function Call: WRITE
  • Prompt: !!,"No age range entered."
  • Line Location: AGER+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20."
  • Line Location: AGER+4
Routine Call
  • DIC
  • Line Location:
    • LOC1+1
    • TYPE1+1
    • SC1+1
    • CLINIC1+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • LOC+4
    • TYPE+4
    • SC+3
    • CLINIC+2
    • AGE+4
    • AGER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls

Label References

Name Line Occurrences
AGE CLINIC+4, AGER+3, DEMO+2
AGER AGER+4
BD ED+2, LOC+5, SC+4
CLINIC SC+5, CLINIC1+3, AGE+5
LOC LOC1+3, TYPE+5
SC TYPE+6, SC1+3, CLINIC+3
TYPE LOC+6, TYPE1+3
XIT BD+2, LOC1+1, TYPE1+1, SC1+1, CLINIC1+1
ZIS AGE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT XIT!, XIT+1!
%T XIT+1!
%Y XIT+1!
AMQQATN XIT+5!
AMQQCOMP XIT+5!
AMQQCTXS XIT+5!
AMQQLINK XIT+5!
AMQQTAX XIT+1!, XIT+5!
AMQQTDFN XIT+1!
APCL65 XIT+1!
APCLAGE AGE+1!, XIT!, XIT+1!
APCLAGET AGE+1!, AGER+5*, XIT!
APCLALC XIT+7!
APCLATOT XIT+7!
APCLBD BD+3*, ED+1, ED+4, XIT!, XIT+1!
APCLBDD XIT+1!
APCLBICD XIT!, XIT+6!
APCLBT XIT!
APCLCIEN XIT+7!
APCLCL XIT!, XIT+4!
APCLCLNT CLINIC+1!, CLINIC1+3, CLINIC1+4!, XIT!
APCLCLNT("*" CLINIC1+4
APCLCLS XIT+1!
APCLCLX XIT+4!
APCLCNTR XIT+7!
>> APCLDEMO DEMO+1, DEMO+2
APCLDFN XIT!
APCLED ED+3*, XIT!, XIT+1!
APCLEDD XIT+1!
APCLEICD XIT!, XIT+6!
APCLET XIT+7!
APCLFLG XIT+6!
APCLFOUN XIT!
APCLFPV XIT+1!
APCLFR XIT+1!
APCLFVS XIT+1!
APCLGOT XIT+7!
APCLGTOT XIT+7!
APCLHRCN XIT+4!
APCLICD XIT!, XIT+6!
APCLIOM XIT+1!
APCLJOB XIT!
APCLLOC LOC+1!
APCLLOCT LOC+1!, LOC1+3, LOC1+4!, XIT!
APCLLOCT("*" LOC1+4
APCLMCR XIT+1!
APCLNAME XIT+2!
APCLNAR XIT+2!
APCLPA XIT+1!
APCLPAGE XIT+6!
APCLPER XIT+7!
APCLPGRD XIT+4!
APCLPOV XIT+1!
APCLPRC XIT+2!, XIT+6!
APCLPROV XIT!
APCLPRV XIT+2!
APCLPS XIT+2!
APCLPTOT XIT+2!
APCLPV XIT+2!, XIT+6!
APCLSC SC+2!, XIT+1!
APCLSCT SC+1!, SC+2!, SC1+3, SC1+4!, XIT!
APCLSCT("*" SC1+4
APCLSD ED+4*, XIT!
APCLSTOP XIT+3!
APCLSTR XIT+2!, XIT+4!
APCLTAX XIT+7!
APCLTEXT XIT+7!
APCLTXN XIT+7!
APCLTYP TYPE+1!
APCLTYPE XIT+1!
APCLTYPT TYPE+1!, TYPE1+3, TYPE1+4!, XIT!
APCLTYPT("*" TYPE1+4
APCLVDFN XIT+3!
APCLVDT XIT+3!
APCLVGRA XIT+6!
APCLVPOV XIT+3!
APCLVPRC XIT+3!
APCLVRV XIT+3!
APCLVTOT XIT+3!
APCLX XIT+7!
APCLY XIT+7!
APCLZ XIT+7!
DA LOC1+1!, TYPE1+1!, SC1+1!, CLINIC1+1!, XIT+1!
DFN XIT+1!
DIC LOC1+1*!, TYPE1+1*!, SC1+1*!, CLINIC1+1*!, XIT+4!
DIC("S" LOC1+1*, TYPE1+1*, SC1+1*, CLINIC1+1*
DIC(0 LOC1+1*, TYPE1+1*, SC1+1*, CLINIC1+1*
DIR BD+1!, ED+1!, LOC+4!, TYPE+4!, SC+3!, CLINIC+2!, AGE+4!
DIR("?" LOC+3*, TYPE+3*, SC+3*, AGE+3*
DIR("A" BD+1*, ED+1*, LOC+2*, TYPE+2*, SC+2*, CLINIC+2*, AGE+2*, AGER+2*
DIR("B" LOC+2*, TYPE+2*, SC+2*, CLINIC+2*, AGE+2*
DIR(0 BD+1*, ED+1*, LOC+2*, TYPE+2*, SC+2*, CLINIC+2*, AGE+2*, AGER+2*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, LOC+5, TYPE+5, SC+4, CLINIC+2*, CLINIC+3, AGE+5
DOB XIT+4!
DR XIT+4!
>> DUOUT BD+1, ED+1, CLINIC+2
G XIT+1!
I XIT+4!
IOF APCLNJ2+4
LKPRINT XIT+4!
POP XIT+1!
SEX XIT+4!
X ED+4, LOC1+1*, TYPE1+1*, SC1+1*, CLINIC1+1*, XIT+4!
>> X1 ED+4*
>> X2 ED+4*
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y BD+3, ED+1*, ED+3, LOC+6, LOC1+1, LOC1+2, TYPE+6, TYPE1+1, TYPE1+2, SC+5
, SC1+1, SC1+2, CLINIC+4, CLINIC1+1, CLINIC1+2, AGE+6, AGER+3, AGER+4, AGER+5, XIT!
, XIT+3!
ZTQUEUED XIT!
ZTSK XIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All