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

Package: IHS Uniform Data System

Routine: BUDCRP6P


Information

BUDCRP6P ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;

Source Information

Source file <BUDCRP6P.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Uniform Data System 3 BUDCRP6B  BUDCRP6I  BUDCRP6J  

Entry Points

Name Comments DBIA/ICR reference
PAP2L1 ;
PAP1L ;EP
S(V) ;
PAUSE ;
PAP1H ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
PAP2HD ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PAP1H1 ;
PAP1HD ;
USR() ;EP - Return name of current user from ^VA(200.
GENI ;general introductions
PAP2L ;EP
PAP1L1 ;
PAP1 ;EP
PAP2H ;
PAP2H1 ;
PAP2 ;EP

External References

Name Field # of Occurrence
$$AGE^AUPNPAT PAP1L1+11, PAP2L1+11
$$HRN^AUPNPAT PAP1L1+7, PAP1L1+11, PAP2L1+7, PAP2L1+11
^DIR PAUSE+1, GENI+4, PAP1H+3, PAP2H+3
$$FMTE^XLFDT PAP1HD+3, PAP1HD+7, PAP1H1+3, PAP1H1+7, PAP2HD+3, PAP2HD+7, PAP2H1+3, PAP2H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your"
  • Line Location: GENI+1
Function Call: WRITE
  • Prompt: !,"patient population. It is recommended that you run these reports at night and"
  • Line Location: GENI+2
Function Call: WRITE
  • Prompt: !,"print to an electronic file, not directly to a printer.",!
  • Line Location: GENI+3
Function Call: WRITE
  • Prompt: !!,"This Patient List option documents the individual patients and visits"
  • Line Location: GENI+5
Function Call: WRITE
  • Prompt: !,"that are counted and summarized on each Table report (main menu"
  • Line Location: GENI+6
Function Call: WRITE
  • Prompt: !,"option REP). The summary Table report is included at the beginning of each"
  • Line Location: GENI+7
Function Call: WRITE
  • Prompt: !,"List report."
  • Line Location: GENI+8
Function Call: WRITE
  • Prompt: !,"UDS searches your database to find all visits and related patients"
  • Line Location: GENI+9
Function Call: WRITE
  • Prompt: !,"during the time period selected. Based on the UDS definition, to be counted"
  • Line Location: GENI+10
Function Call: WRITE
  • Prompt: !,"as a patient, the patient must have had at least one visit meeting the "
  • Line Location: GENI+11
Function Call: WRITE
  • Prompt: !,"following criteria:"
  • Line Location: GENI+12
Function Call: WRITE
  • Prompt: !?4,"- must be to a location specified in your visit location setup"
  • Line Location: GENI+13
Function Call: WRITE
  • Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day"
  • Line Location: GENI+14
Function Call: WRITE
  • Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), "
  • Line Location: GENI+15
Function Call: WRITE
  • Prompt: !?6,"or In-Hospital (I) visit"
  • Line Location: GENI+16
Function Call: WRITE
  • Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)"
  • Line Location: GENI+17
Function Call: WRITE
  • Prompt: !?4,"- must have a primary provider and a coded purpose of visit"
  • Line Location: GENI+18
Function Call: WRITE
  • Prompt: !?4,"- the patient must NOT have a gender of 'Unknown'"
  • Line Location: GENI+19
Function Call: WRITE
  • Prompt: !
  • Line Location: GENI+20
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PAP1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: PAP1+3
Function Call: WRITE
  • Prompt: !!,"All Female Patients w/Pap Test (Table 6B)",!
  • Line Location: PAP1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all female patients ages 24-64 who have not"
  • Line Location: PAP1+7
Function Call: WRITE
  • Prompt: !,"had a hysterectomy, had a medical visit during the report period, were"
  • Line Location: PAP1+8
Function Call: WRITE
  • Prompt: !,"first seen in the clinic by their 65th birthday, and had a Pap test in the"
  • Line Location: PAP1+9
Function Call: WRITE
  • Prompt: !,"past three years OR received a pap test accompanied with an HPV test done"
  • Line Location: PAP1+10
Function Call: WRITE
  • Prompt: !,"during the measurement year or the four years prior for women over 30 "
  • Line Location: PAP1+11
Function Call: WRITE
  • Prompt: !,"years of age."
  • Line Location: PAP1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PAP1+13
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS WITH PAP TEST: ",BUDTOT,!
  • Line Location: PAP1L+6
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?68,BUDAGE,!
  • Line Location: PAP1L1+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?19,$P(BUDALL,U,2),?35,$P(BUDALL,U,3),?45,$P(BUDALL,U,4),?53,$E($P(BUDALL,U,5),1,11),?65,$E($P(BUDALL,U,6),1,15)
  • Line Location: PAP1L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAP1H+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: PAP1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: PAP1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: PAP1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section D, With Pap Test",80),!
  • Line Location: PAP1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: PAP1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PAP1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PAP1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: PAP1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?68,"AGE"
  • Line Location: PAP1H1+17
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION"
  • Line Location: PAP1H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: PAP1H1+19
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC,80)
  • Line Location: PAP2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: PAP2+3
Function Call: WRITE
  • Prompt: !!,"All Female Patients w/o Pap Test (Table 6B)",!
  • Line Location: PAP2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all female patients ages 24-64 who have not"
  • Line Location: PAP2+7
Function Call: WRITE
  • Prompt: !,"had a hysterectomy, had a medical visit during the report period, were"
  • Line Location: PAP2+8
Function Call: WRITE
  • Prompt: !,"first seen in the clinic by their 65th birthday, and did not have a Pap test"
  • Line Location: PAP2+9
Function Call: WRITE
  • Prompt: !,"in the past three years OR the four years prior to the report period"
  • Line Location: PAP2+10
Function Call: WRITE
  • Prompt: !,"for women age 30-64 when an HPV test is accompanied with the pap test."
  • Line Location: PAP2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PAP2+12
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS WITHOUT PAP TEST: ",BUDTOT,!
  • Line Location: PAP2L+6
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?68,BUDAGE,!
  • Line Location: PAP2L1+7
Function Call: WRITE
  • Prompt: ?5,$P(BUDALL,U,1),?19,$P(BUDALL,U,2),?35,$P(BUDALL,U,3),?45,$P(BUDALL,U,4),?53,$E($P(BUDALL,U,5),1,11),?65,$E($P(BUDALL,U,6),1,15)
  • Line Location: PAP2L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAP2H+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: PAP2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: PAP2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: PAP2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section D, Without Pap Test",80),!
  • Line Location: PAP2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: PAP2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PAP2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: PAP2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: PAP2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?68,"AGE"
  • Line Location: PAP2H1+17
Function Call: WRITE
  • Prompt: !?5,"VISIT DATE",?19,"DX OR SVC CD",?35,"PROV TYPE",?45,"SVC CAT",?53,"CLINIC",?65,"LOCATION"
  • Line Location: PAP2H1+18
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: PAP2H1+19
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
    • GENI+4
    • PAP1H+3
    • PAP2H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1, PAP1HD+6, PAP1H1+6, PAP2HD+6, PAP2H1+6
^DPT - [#2] PAP1L1+7, PAP1L1+11, PAP2L1+7, PAP2L1+11
^TMP($J S+2*
^VA(200 - [#200] USR+1, PAP1HD+3, PAP1H1+3, PAP2HD+3, PAP2H1+3
^XTMP("BUDCRP6B" PAP1L+3, PAP1L1+2, PAP1L1+3, PAP1L1+4, PAP1L1+5, PAP1L1+9, PAP2L+3, PAP2L1+2, PAP2L1+3, PAP2L1+4
, PAP2L1+5, PAP2L1+9

Label References

Name Line Occurrences
$$CTR PAP1+2, PAP1+3, PAP1H1+4, PAP1H1+5, PAP1H1+6, PAP1H1+7, PAP1H1+8, PAP2+2, PAP2+3, PAP2H1+4
, PAP2H1+5, PAP2H1+6, PAP2H1+7, PAP2H1+8
$$LOC PAP1+2, PAP2+2
GENI PAP1+5, PAP2+5
PAP1H PAP1L+2, PAP1L+5, PAP1L1+1, PAP1L1+6
PAP1H1 PAP1H+2
PAP1HD PAP1H+1
PAP1L1 PAP1L+4
PAP2H PAP2L+2, PAP2L+5, PAP2L1+1, PAP2L1+6
PAP2H1 PAP2H+2
PAP2HD PAP2H+1
PAP2L1 PAP2L+4
PAUSE PAP1+6, PAP2+6
S PAP1L+3, PAP1L+7, PAP1L1+12, PAP1HD+1, PAP1HD+2, PAP1HD+3, PAP1HD+4, PAP1HD+5, PAP1HD+6, PAP1HD+7
, PAP1HD+8, PAP1HD+9, PAP1HD+10, PAP1HD+11, PAP1HD+12, PAP1HD+13, PAP1HD+14, PAP1HD+15, PAP1HD+16, PAP1HD+17
, PAP2L+3, PAP2L+7, PAP2L1+12, PAP2HD+1, PAP2HD+2, PAP2HD+3, PAP2HD+4, PAP2HD+5, PAP2HD+6, PAP2HD+7
, PAP2HD+8, PAP2HD+9, PAP2HD+10, PAP2HD+11, PAP2HD+12, PAP2HD+13, PAP2HD+14, PAP2HD+15, PAP2HD+16, PAP2HD+17

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDAGE PAP1L1+2*, PAP1L1+3, PAP1L1+4, PAP1L1+5, PAP1L1+7, PAP1L1+9, PAP2L1+2*, PAP2L1+3, PAP2L1+4, PAP2L1+5
, PAP2L1+7, PAP2L1+9
>> BUDALL PAP1L1+9*, PAP1L1+10, PAP1L1+12, PAP2L1+9*, PAP2L1+10, PAP2L1+12
>> BUDBD PAP1HD+7, PAP1H1+7, PAP2HD+7, PAP2H1+7
>> BUDCAD PAP1L1+11, PAP2L1+11
>> BUDCEN PAP1HD+8, PAP1H1+8, PAP2HD+8, PAP2H1+8
>> BUDCOM PAP1L1+4*, PAP1L1+5, PAP1L1+7, PAP1L1+9, PAP1L1+11, PAP2L1+4*, PAP2L1+5, PAP2L1+7, PAP2L1+9, PAP2L1+11
>> BUDDECNT S+1*, S+2
>> BUDED PAP1HD+7, PAP1H1+7, PAP2HD+7, PAP2H1+7
>> BUDGPG PAP1H+2, PAP1H1+1*, PAP1H1+3, PAP2H+2, PAP2H1+1*, PAP2H1+3
>> BUDH PAP1L+3, PAP1L1+2, PAP1L1+3, PAP1L1+4, PAP1L1+5, PAP1L1+9, PAP2L+3, PAP2L1+2, PAP2L1+3, PAP2L1+4
, PAP2L1+5, PAP2L1+9
>> BUDJ PAP1L+3, PAP1L1+2, PAP1L1+3, PAP1L1+4, PAP1L1+5, PAP1L1+9, PAP2L+3, PAP2L1+2, PAP2L1+3, PAP2L1+4
, PAP2L1+5, PAP2L1+9
>> BUDNAME PAP1L1+3*, PAP1L1+4, PAP1L1+5, PAP1L1+9, PAP2L1+3*, PAP2L1+4, PAP2L1+5, PAP2L1+9
>> BUDP PAP1L+1*, PAP1H1+10, PAP1H1+20*, PAP2L+1*, PAP2H1+10, PAP2H1+20*
>> BUDQUIT PAP1L+1*, PAP1L+2, PAP1L+5, PAP1L1+1, PAP1L1+2, PAP1L1+3, PAP1L1+4, PAP1L1+5, PAP1L1+6, PAP1H+3*
, PAP2L+1*, PAP2L+2, PAP2L+5, PAP2L1+1, PAP2L1+2, PAP2L1+3, PAP2L1+4, PAP2L1+5, PAP2L1+6, PAP2H+3*
>> BUDROT PAP1L+3, PAP1L+5, PAP1L+6, PAP1L+7, PAP1L1+1, PAP1L1+6, PAP1L1+7, PAP1L1+10, PAP1L1+11, PAP1H+1
, PAP2L+3, PAP2L+5, PAP2L+6, PAP2L+7, PAP2L1+1, PAP2L1+6, PAP2L1+7, PAP2L1+10, PAP2L1+11, PAP2H+1
>> BUDSITE PAP1L1+7, PAP1L1+11, PAP1HD+6, PAP1H1+6, PAP2L1+7, PAP2L1+11, PAP2HD+6, PAP2H1+6
>> BUDTOT PAP1L+1*, PAP1L+6, PAP1L+7, PAP1L1+8*, PAP2L+1*, PAP2L+6, PAP2L+7, PAP2L1+8*
DA PAUSE+1!
>> DFN PAP1L1+5*, PAP1L1+7, PAP1L1+9, PAP1L1+11, PAP2L1+5*, PAP2L1+7, PAP2L1+9, PAP2L1+11
DIR PAUSE+1!, GENI+4!, PAP1H+3!, PAP2H+3!
DIR("A" PAUSE+1*, GENI+4*
DIR(0 PAUSE+1*, GENI+4*, PAP1H+3*, PAP2H+3*
DT PAP1HD+3, PAP1H1+3, PAP2HD+3, PAP2H1+3
>> DTOUT PAP1H+3, PAP2H+3
DUZ USR+1, PAP1HD+3, PAP1H1+3, PAP2HD+3, PAP2H1+3
DUZ(2 LOC+1, PAP1L1+7, PAP1L1+11, PAP2L1+7, PAP2L1+11
IO PAP1H+3, PAP2H+3
IO(0 PAP1H+3, PAP2H+3
IOF PAP1+1, PAP1H1+1, PAP2+1, PAP2H1+1
IOM CTR+1
IOSL PAP1L+5, PAP1L1+1, PAP1L1+6, PAP2L+5, PAP2L1+1, PAP2L1+6
IOST PAP1H+3, PAP2H+3
U USR+1, LOC+1, PAP1L1+7, PAP1L1+10, PAP1L1+11, PAP1L1+12, PAP1HD+3, PAP1HD+6, PAP1H1+3, PAP1H1+6
, PAP2L1+7, PAP2L1+10, PAP2L1+11, PAP2L1+12, PAP2HD+3, PAP2HD+6, PAP2H1+3, PAP2H1+6
V S~, S+2
X CTR~, CTR+1, PAP1L1+11*, PAP1L1+12*, PAP1HD+7*, PAP1HD+8*, PAP1H1+7*, PAP1H1+8*, PAP2L1+11*, PAP2L1+12*
, PAP2HD+7*, PAP2HD+8*, PAP2H1+7*, PAP2H1+8*
Y CTR~, CTR+1, PAP1H+3, PAP2H+3
>> ZTQUEUED PAP1H+3, PAP2H+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All