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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLVL01

Package: Patient Care Component Reports

Routine: APCLVL01


Information

APCLVL01 ; IHS/CMI/LAB - SCREEN LOGIC ;

Source Information

Source file <APCLVL01.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 DD^%DT  (C,YX)^%DTC  (,IX)^DIC  ^DIR  
PCC Medical Query 1 PEP^AMQQGTX0  

Caller Graph

Caller Graph Total: 33

Package Total Caller Graph
Patient Care Component Reports 28 APCLAL1  APCLAL2  APCLAL3  APCLAL4  APCLAL5  APCLDE1  APCLDE2  APCLDE3  
APCLDE4  APCLDE5  APCLEM1  APCLEM2  APCLFPC  APCLFPCP  APCLFPR  APCLFPRP  
APCLGV  APCLRPL  APCLSIL3  APCLSILO  APCLSTMP  APCLTEN  APCLTENP  APCLVL  
APCLVL0  APCLVL03  APCLVLP1  APCLVLS  
Patient Care Component Surveillance 3 APCSCERT  APCSSILI  APCSSLAB  
IHS Designated Provider 1 BDPNODP  
Referred Care Information System 1 BMCPXTEN  

Entry Points

Name Comments DBIA/ICR reference
Q1
PLDXS1 ;
ADD1 ;
LABL4 ;
LABL1 ;
LABL2 ;
LABL3 ;
PLDOOED ;get ending date
APPTS ;EP - Appointments
LABLOINC ;EP
APPCLNS1 ;
APPTBD ;get beginning date
INFORM ;EP
INFORMQ
Q11
FAMHXR ;EP - family history with relation
SETPLDOO ;
C ;EP
PAUSE ;EP
SETAPPT ;
J ;EP - JUST A HIT
PLDXS ;
N ;EP
LABLIST ;
PLDOO ;EP - Appointments
Y ;EP - called from apclvl0
APPTED ;get ending date
LABL ;
ADD ;EP
PLDOOBD ;get beginning date
S ;EP
APPCLNS ;
GETREL ;
GETREG ;EP

External References

Name Field # of Occurrence
DD^%DT APPTED+1, PLDOOED+1
C^%DTC APPTED+4, PLDOOED+4
YX^%DTC ADD1+2
PEP^AMQQGTX0 FAMHXR+7, PLDXS1+5
^DIC ADD1+2, LABL2+1, LABL4+1, GETREG+3, FAMHXR+5, PLDXS1+3
IX^DIC ADD+8
^DIR ADD+5, PAUSE+2, N+3, Y+1, C+3, LABL+4, LABL1+2, LABL3+2, GETREL+2, APPTBD+1
, APPTED+1, APPCLNS+3, APPCLNS1+1, PLDOOBD+1, PLDOOED+1, PLDXS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?((80-$L(APCLLHDR))/2),APCLLHDR
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"This report will list or count "_$S(APCLPTVS="V":"visits",1:"patients")_" based on selection criteria"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"entered by the user. You will be asked, in three separate steps, to identify"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"your selection criteria, what you wish displayed for each "_$S(APCLPTVS="V":"visit",1:"patient")_", and the ",!,"sorting order for your list. You may save the logic used to produce the report "
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !,"for future use. If you design a report that is 80 characters or less in width,",!,"it can be displayed on your screen or printed. If your report is 81-132"
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !,"characters wide, it must be printed - and only on a printer capable of ",!,"producing 132 character lines. You may limit the "_$S(APCLPTVS="V":"visits",1:"patients")_" in your report to",!,"pre-established Search"
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: " Templates you have created in QMan, Case Management, or",!,"other RPMS tools. If your"
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: " template was created in Case Management or in QMan,",!,"using Patients as the Search Subject, this is a Search Template of Patients.",!
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: "If your template was created in QMan using Visits as the Search Subject, this is",!,"a Search Template of Visits."
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !,"Select one of the following and then proceed to the Date Range and"
  • Line Location: INFORM+14
Function Call: WRITE
  • Prompt: !,"Selection Criteria screens:"
  • Line Location: INFORM+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!"
  • Line Location: ADD1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!,"No numeric range entered. All numerics will be included."
  • Line Location: N+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: N+5
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: N+6
Function Call: WRITE
  • Prompt: !!,"Enter a string which will be searched for in the narrative text.",!,"The system will check for any narrative that contains this string.",!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !!,"No range entered. All ",APCLTEXT," will be included."
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter an free text range in the format AAA:AAA. E.g. 94-01:94-200,CA:CZ, A:Z."
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !,"This selection item allows you to search for visits on which selected"
  • Line Location: LABLOINC+2
Function Call: WRITE
  • Prompt: !,"lab test were done. You can search by selected lab test names, a taxonomy"
  • Line Location: LABLOINC+3
Function Call: WRITE
  • Prompt: !,"of lab test names, by selected loinc codes, by a taxonomy of LOINC codes,"
  • Line Location: LABLOINC+4
Function Call: WRITE
  • Prompt: !,"or by any combination of the above."
  • Line Location: LABLOINC+5
Function Call: WRITE
  • Prompt: !,"Please select which of the items below you want to use to search"
  • Line Location: LABL+2
Function Call: WRITE
  • Prompt: !,"for lab tests:"
  • Line Location: LABL+3
Function Call: WRITE
  • Prompt: !,"Please enter an '^' when you are finished selecting lab tests"
  • Line Location: LABL1+1
Function Call: WRITE
  • Prompt: !,"Please enter an '^' when you are finished selecting lab tests"
  • Line Location: LABL3+1
Function Call: WRITE
  • Prompt: !!,"So far you have selected the following lab tests and/or LOINC Codes:"
  • Line Location: LABLIST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LABLIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LABLIST+11
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: FAMHXR+5
Function Call: WRITE
  • Prompt: !!,$C(7),"** No ",$P(^APCLVSTS(APCLCRIT,0),U)," selected, all will be included."
  • Line Location: FAMHXR+8
Function Call: WRITE
  • Prompt: !!,"All diagnosis will be included."
  • Line Location: FAMHXR+9
Function Call: WRITE
  • Prompt: !!,"No relationships selected, ANY non-null relationship will be included."
  • Line Location: FAMHXR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: APPTBD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: APPTED+1
Function Call: WRITE
  • Prompt: !!,"No Clinics chosen....item will not be used as a selection item..."
  • Line Location: APPCLNS+4
Function Call: WRITE
  • Prompt: !!,"No clinics chosen...."
  • Line Location: APPCLNS1+2
Function Call: WRITE
  • Prompt: !!,"No clinics chosen...."
  • Line Location: APPCLNS1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PLDOOBD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PLDOOED+1
Function Call: WRITE
  • Prompt: !!,"No dx chosen....item will not be used as a selection item..."
  • Line Location: PLDXS+4
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: PLDXS1+3
Function Call: WRITE
  • Prompt: !!,$C(7),"** No ",$P(^APCLVSTS(APCLCRIT,0),U)," selected."
  • Line Location: PLDXS1+6
Function Call: WRITE
  • Prompt: !!,"*** All items selected, if you want all then choose ANY diagnosis."
  • Line Location: PLDXS1+7
Routine Call
  • DIC
  • Line Location:
    • ADD1+2
    • LABL2+1
    • LABL4+1
    • GETREG+3
    • FAMHXR+5
    • PLDXS1+3
Routine Call
  • DIR
  • Line Location:
    • ADD+5
    • PAUSE+2
    • N+3
    • Y+1
    • C+3
    • LABL+4
    • LABL1+2
    • LABL3+2
    • GETREL+2
    • APPTBD+1
    • APPTED+1
    • APPCLNS+3
    • APPCLNS1+1
    • PLDOOBD+1
    • PLDOOED+1
    • PLDXS+3
Routine Call
  • DIC
  • Line Location:
    • ADD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCLVRPT - [#9001003.8] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls
^ATXLAB - [#9002228] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^AMQQ(5 - [#9009075] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLVRPT - [#9001003.8] ADD+12*, ADD+13, ADD1+6!, N+1!, N+7*, N+8*, N+9*, J+1*, J+2*, Y+4*
, Y+5*, C+2!, C+7*, C+8*, LABLIST+15*, LABLIST+16*, GETREG+6*, GETREG+7*, FAMHXR+14*, FAMHXR+17*
, FAMHXR+19*, FAMHXR+22*, FAMHXR+24*, SETAPPT+2*, SETAPPT+3*, SETAPPT+4*, SETAPPT+5*, SETAPPT+6*, SETPLDOO+1*, SETPLDOO+2*
, SETPLDOO+3*, SETPLDOO+4*
^APCLVSTS - [#9001003.7] N+2, N+5, N+6, S+2, FAMHXR+8, PLDXS1+6
^ATXAX - [#9002226] LABL4+3
^ATXLAB - [#9002228] LABL2+3
^LAB(60 - [#60] LABLIST+6
^LAB(95.3 - [#95.3] LABL3+4
^UTILITY("AMQQ TAX" FAMHXR+4!, PLDXS1+2!
^VA(200 - [#200] ADD1+2
^XTMP("APCLVL" FAMHXR+4!, FAMHXR+8, FAMHXR+9!, FAMHXR+15, FAMHXR+21, Q1+1!, PLDXS1+2!, PLDXS1+6, PLDXS1+7!, PLDXS1+8
, Q11+1!

Label References

Name Line Occurrences
ADD1 ADD+3, ADD+4, ADD+7
APPCLNS APPCLNS1+2, APPCLNS1+3
APPCLNS1 APPCLNS1+4
APPTBD APPTED+2
GETREL FAMHXR+12, GETREL+7
INFORMQ INFORM+12
LABL LABL+12
LABL1 LABL+8, LABL1+5
LABL2 LABL+9, LABL2+4
LABL3 LABL+10, LABL3+6
LABL4 LABL+11, LABL4+4
LABLIST LABL+1
N N+5, N+6
PAUSE FAMHXR+8, FAMHXR+9, FAMHXR+13, APPCLNS+4, PLDXS+4
PLDOOBD PLDOOED+2
PLDXS PLDXS1+6, PLDXS1+7
Q1 FAMHXR+15
SETAPPT APPCLNS+5
SETPLDOO PLDXS+5

Naked Globals

Name Field # of Occurrence
^(0 ADD+12
^(25 N+5
^(26 N+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H ADD1+2*
AMQQSQNM Q1!, Q11!
AMQQTAXN FAMHXR+3!, Q1!, PLDXS1+1!, Q11!
>> APCLBD ADD+12
APCLBDAT APPTS+3~, APPTBD+3*, APPTED+1, APPTED+4, SETAPPT+4, SETAPPT+6, PLDOO+3~, PLDOOBD+3*, PLDOOED+1, PLDOOED+4
, SETPLDOO+3, SETPLDOO+4
APCLCAND ADD+1!, ADD+10*
>> APCLCH LABL+7*, LABL+8, LABL+9, LABL+10, LABL+11
APCLCLN APPTS+3~, APPCLNS+1!, APPCLNS+7!, SETAPPT+1!, PLDOO+3~
APCLCLN( APPCLNS1+4*, SETAPPT+5
APCLCLN(0 APPCLNS1+2, APPCLNS1+3
>> APCLCNT C+8*, SETAPPT+3*, SETAPPT+6, SETPLDOO+2*, SETPLDOO+4
>> APCLCRIT N+1, N+2, N+5, N+6, N+7, N+8, N+9, J+1, J+2, Y+4
, Y+5, C+2, C+7, C+8, S+2, LABLIST+15, LABLIST+16, GETREG+6, GETREG+7, FAMHXR+8
, FAMHXR+14, FAMHXR+17, FAMHXR+19, FAMHXR+22, FAMHXR+24, SETAPPT+2, SETAPPT+3, SETAPPT+4, SETAPPT+5, SETAPPT+6
, PLDXS1+6, SETPLDOO+1, SETPLDOO+2, SETPLDOO+3, SETPLDOO+4
>> APCLCTYP ADD+12*
>> APCLED ADD+12
APCLEDAT APPTS+3~, APPTED+3*, SETAPPT+4, PLDOO+3~, PLDOOED+3*, SETPLDOO+3
>> APCLEP1 ADD+4, ADD+8
APCLEXRG GETREG+2!, GETREG+5*
APCLLABT LABLOINC+6!, LABL+1, LABLIST+14
APCLLABT("LAB" LABL1+4*, LABL2+3*, LABLIST+2
APCLLABT("LOINC" LABL3+5*, LABL4+3*, LABLIST+8
>> APCLLHDR INFORM+3*, INFORM+4
>> APCLNCAN ADD+3
APCLPDOO PLDXS+1!, PLDXS+7!
APCLPDOO( PLDXS1+8*
>> APCLPTVS INFORM+3, INFORM+5, INFORM+7, INFORM+9, INFORM+12, Y+1
APCLQMAN FAMHXR+6*, FAMHXR+7, Q1!, PLDXS1+4*, PLDXS1+5, Q11!
>> APCLQUIT ADD+6*, ADD+9*, ADD1+2*
APCLREL FAMHXR+12!, FAMHXR+17, FAMHXR+22, Q1+2!
APCLREL( FAMHXR+18, FAMHXR+23, GETREL+6*
APCLREL(0 FAMHXR+13
>> APCLRPT ADD+10*, ADD+12, ADD+13, ADD1+3*, ADD1+6, N+1, N+7, N+8, N+9, J+1
, J+2, Y+4, Y+5, C+2, C+7, C+8, LABLIST+15, LABLIST+16, GETREG+6, GETREG+7
, FAMHXR+14, FAMHXR+17, FAMHXR+19, FAMHXR+22, FAMHXR+24, SETAPPT+2, SETAPPT+3, SETAPPT+4, SETAPPT+5, SETAPPT+6
, SETPLDOO+1, SETPLDOO+2, SETPLDOO+3, SETPLDOO+4
APCLSDAT APPTS+3~, APPTED+4*, PLDOO+3~, PLDOOED+4*
>> APCLSEAT ADD+4
>> APCLSORT ADD+12*
>> APCLSORV ADD+12*
>> APCLSPAG ADD+12*
APCLT APPTS+3~, APPCLNS+2*, PLDOO+3~, PLDXS+2*
>> APCLTCW INFORM+1*, ADD+13*
>> APCLTEXT Y+1, C+4
>> C LABLIST+2*, LABLIST+3*, LABLIST+4*, LABLIST+5, LABLIST+6, LABLIST+8*, LABLIST+9*, LABLIST+10*, LABLIST+11, LABLIST+12
, SETAPPT+5*
>> D ADD+8*
DA ADD+8!, ADD1+2!, ADD1+4!, LABL+4!, LABL1+2!, LABL3+2!, FAMHXR+5!, APPCLNS+3!, APPCLNS1+1!, PLDXS+3!
, PLDXS1+3!
DD ADD1+4!, FAMHXR+5!, PLDXS1+3!
DIADD ADD1+2*!, ADD1+4!, LABL2+1!, LABL4+1!
DIC ADD+8*!, ADD1+2*!, ADD1+4!, LABL2+1!*, LABL4+1!*, GETREG+3*!, FAMHXR+5!*, FAMHXR+11!, PLDXS1+3!*
DIC("A" ADD+8*, GETREG+3*
DIC("DR" ADD1+2*
DIC("S" ADD+8*, LABL4+1*, FAMHXR+5*, PLDXS1+3*
DIC(0 ADD+8*, ADD1+2*, LABL2+1*, LABL4+1*, GETREG+3*, FAMHXR+5*, PLDXS1+3*
DICR FAMHXR+5!, PLDXS1+3!
DINUM ADD1+4!, FAMHXR+5!, PLDXS1+3!
DIR ADD+5!, PAUSE+2!, N+3!, Y+1!, C+3!, LABL+4!, LABL1+2!, LABL3+2!, Q1+2!, GETREL+1!
, GETREL+2!, APPTBD+1!, APPTED+1!, APPCLNS+3!, APPCLNS1+1!, PLDOOBD+1!, PLDOOED+1!, PLDXS+3!
DIR("?" N+2*
DIR("A" ADD+5*, PAUSE+2*, N+2*, Y+1*, C+3*, LABL+4*, LABL1+2*, LABL3+2*, GETREL+2*, APPTBD+1*
, APPTED+1*, APPCLNS+3*, APPCLNS1+1*, PLDOOBD+1*, PLDOOED+1*, PLDXS+3*
DIR("B" ADD+5*, Y+1*, APPTED+1*, APPCLNS+3*, PLDOOED+1*, PLDXS+3*
DIR(0 ADD+5*, PAUSE+2*, N+2*, Y+1*, C+3*, LABL+4*, LABL1+2*, LABL3+2*, GETREL+2*, APPTBD+1*
, APPTED+1*, APPCLNS+3*, APPCLNS1+1*, PLDOOBD+1*, PLDOOED+1*, PLDXS+3*
>> DIRUT ADD+5*, ADD+6, PAUSE+2*, N+3*, Y+1*, Y+2, C+3*, LABL+5, LABL1+3, LABL3+3
, GETREL+2*, GETREL+3, APPTBD+1*, APPTBD+2, APPTED+1*, APPTED+2, APPCLNS+4, APPCLNS1+2, PLDOOBD+1*, PLDOOBD+2
, PLDOOED+1*, PLDOOED+2, PLDXS+4
DLAYGO ADD1+2*!, ADD1+4!, LABL2+1!, LABL4+1!
DR ADD+8!, ADD1+2!, ADD1+4!
>> DUOUT ADD+5, PAUSE+2, N+3, Y+1, C+3, GETREL+2, APPTBD+1, APPTED+1, PLDOOBD+1, PLDOOED+1
DUZ ADD1+2
IO PAUSE+1
IO(0 PAUSE+1
IOF INFORM+2
IOST PAUSE+1
U ADD+12, ADD+13, ADD1+2, N+9, LABL2+3, LABL3+4, LABL4+3, LABLIST+6, FAMHXR+8, SETAPPT+4
, SETAPPT+5, PLDXS1+6, SETPLDOO+3
V Q1!, Q11!
X ADD+13*, ADD1+2*, ADD1+4!, N+5*, C+8, LABL2+3*, LABL4+3*, LABLIST+2*, LABLIST+6, LABLIST+8*
, LABLIST+12, FAMHXR+5!*, FAMHXR+16*, FAMHXR+17, FAMHXR+19, FAMHXR+21*, FAMHXR+22, FAMHXR+24, Q1!, APPTED+4
, SETAPPT+5*, PLDOOED+4, PLDXS1+3!*, PLDXS1+8*, Q11!
>> X1 APPTED+4*, PLDOOED+4*
>> X2 APPTED+4*, PLDOOED+4*
Y ADD+7, ADD+9, ADD+10, ADD1+2, ADD1+3, ADD1+4!, N+4, N+5, N+6, N+8
, N+9, Y+3, Y+5, C+4, LABL+6, LABL+7, LABL1+4, LABL2+2, LABL2+3, LABL3+4
, LABL4+2, LABL4+3, GETREG+4, GETREG+5, GETREG+7, FAMHXR+5!, FAMHXR+6, FAMHXR+17*, FAMHXR+19*, FAMHXR+21*
, FAMHXR+22*, FAMHXR+24*, Q1!, GETREL+4, GETREL+5, GETREL+6, APPTBD+3, APPTED+1*, APPTED+3, APPCLNS+5
, APPCLNS1+3, APPCLNS1+4, PLDOOBD+3, PLDOOED+1*, PLDOOED+3, PLDXS+5, PLDXS1+3!, PLDXS1+4, PLDXS1+8*, Q11!
Z LABL2+3*, LABL3+4*, LABL3+5, LABL4+3*, FAMHXR+17*, FAMHXR+18*, FAMHXR+19, FAMHXR+22*, FAMHXR+23*, FAMHXR+24
, Q1!, Q11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All