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

Package: Patient Care Component Reports

Routine: APCLYV3


Information

APCLYV3 ; IHS/CMI/LAB - CLINIC VISITS BY DATE RANGE WITH POV ;

Source Information

Source file <APCLYV3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  
Taxonomy 1 LST^ATXAPI  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC ;
END
ZIS
ED ;get ending date
LOC1 ;enter location
ICD ;
CLINIC ;
GETDATES ;
PROV ;
LKUP ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
LST^ATXAPI LKUP+13
^DIC CLINIC+5, LKUP+4, LKUP+8, LKUP+9, LOC1+1, PROV+4
^DIR BD+1, ED+1, CLINIC+1, ICD+3, LOC+1, PROV+1
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: APCLYV3+4
Function Call: WRITE
  • Prompt: !!?20,"LISTING OF CLINIC VISITS WITH ICD CODES",!!
  • Line Location: APCLYV3+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ICD+1
Function Call: WRITE
  • Prompt: !,"You must enter the coding system from which you want to enter a code,",!,"or range of codes.",!
  • Line Location: LKUP+3
Function Call: WRITE
  • Prompt: $C(7),!,"Ending code must be greater than or equal to beginning code"
  • Line Location: LKUP+11
Function Call: WRITE
  • Prompt: !!,"Invalid range. Try again."
  • Line Location: LKUP+14
Routine Call
  • DIC
  • Line Location:
    • CLINIC+5
    • LKUP+4
    • LKUP+8
    • LKUP+9
    • LOC1+1
    • PROV+4
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CLINIC+1
    • ICD+3
    • LOC+1
    • PROV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICDS - [#80.4] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(9000010.06 PROV+4

Label References

Name Line Occurrences
BD ED+2, LOC+2
CLINIC CLINIC+6, ICD+4
END BD+2
GETDATES CLINIC+2
ICD CLINIC+3, CLINIC+4, LKUP+5, LKUP+8, LKUP+10
LKUP LKUP+14
LOC ICD+6, LOC1+1, PROV+2, PROV+4
PROV LOC+3
ZIS PROV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END!, END+1!
%T END+1!
%Y END+1!
>> APCDSYS LKUP+2*
APCL65 END+1!
APCLAGE END+1!
APCLARR ICD+2!, LKUP+12!
APCLARR( LKUP+15, LKUP+16
APCLARR("" LKUP+14
APCLARRC ICD+2!, LKUP+12!
APCLARRC( LKUP+16*
APCLBD BD+3*, ED+1, ED+4, END!, END+1!
APCLBICD ICD+6*, LKUP+9*, LKUP+13, END!, END+5!
APCLBT END!
APCLCL CLINIC+3*, CLINIC+4*, CLINIC+6*, END!, END+4!
APCLCLS END+1!
APCLCLX END+4!
APCLDFN END!
APCLED ED+3*, END!, END+1!
APCLEICD ICD+6*, LKUP+10*, LKUP+13, END!, END+5!
APCLFLG END+5!
APCLFOUN END!
APCLFPV END+1!
APCLFVS END+1!
APCLHRCN END+4!
APCLICD ICD+5*, ICD+6, LKUP+4, LKUP+7, LKUP+13, END!, END+5!
APCLIOM END+1!
APCLJOB END!
APCLLOC LOC+3*, LOC1+2*, END!
APCLMCR END+1!
APCLNAME END+2!
APCLNAR END+2!
APCLPAGE END+5!
APCLPGRD END+4!
APCLPRC END+2!, END+5!
APCLPROV PROV+3*, PROV+5*, END!
APCLPRV END+2!
APCLPS END+2!
APCLPTOT END+2!
APCLPV END+2!, END+5!
APCLSD ED+4*, END!
APCLSTOP END+3!
APCLSTR END+2!, END+4!
>> APCLSYS LKUP+6*, LKUP+8, LKUP+9, LKUP+13
APCLVDFN END+3!
APCLVDT END+3!
APCLVGRA END+5!
APCLVPOV END+3!
APCLVPRC END+3!
APCLVRV END+3!
APCLVTOT END+3!
DA LOC1+1!, PROV+4!, END+1!
DFN END+1!
DIC CLINIC+5!*, LKUP+4!*, LKUP+7!*, LOC1+1*!, PROV+4*!, END+4!
DIC("A" CLINIC+5*, LKUP+8*, LKUP+9*, LOC1+1*, PROV+4*
DIC("S" LKUP+4*
DIC(0 CLINIC+5*, LKUP+4*, LKUP+7*, LOC1+1*, PROV+4*
DIR BD+1!, ED+1!, CLINIC+1!, ICD+3!, LOC+1!, PROV+1!
DIR("?" LOC+1*, PROV+1*
DIR("A" BD+1*, ED+1*, CLINIC+1*, ICD+3*, LOC+1*, PROV+1*
DIR(0 BD+1*, ED+1*, CLINIC+1*, ICD+3*, LOC+1*, PROV+1*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, CLINIC+1*, CLINIC+2, ICD+3*, ICD+4, LOC+2, PROV+2
DOB END+4!
DR END+4!
>> DUOUT BD+1, ED+1, CLINIC+1, ICD+3
G END+1!
I END+4!
>> ICDSYS LKUP+8*, LKUP+9*
IOF APCLYV3+4
LKPRINT END+4!
POP END+1!
SEX END+4!
SFX END+4!
U LKUP+16, PROV+4
X ED+4, LKUP+15*, LKUP+16, END+4!
>> X1 ED+4*
>> X2 ED+4*
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+3, ED+1*, ED+3, CLINIC+3, CLINIC+4, CLINIC+6, ICD+5, LKUP+5, LKUP+6, LKUP+8
, LKUP+10, LOC+3, LOC1+1, LOC1+2, PROV+3, PROV+4, PROV+5, END!, END+3!
Y(0 LKUP+9, LKUP+10
ZTQUEUED END!
ZTSK END!
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