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

Package: IHS Uniform Data System

Routine: BUDCRP61


Information

BUDCRP61 ; IHS/CMI/LAB - UDS REPORT PROCESSOR ;

Source Information

Source file <BUDCRP61.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Uniform Data System 3 EN1^BUDCRP6B  GENI^BUDCRP6I  $$LOC^BUDCRP6S  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS VA Utilities 1 EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Uniform Data System 2 BUDCRP6B  BUDCRP6I  

Entry Points

Name Comments DBIA/ICR reference
DS2H ;
S(V) ;
PAUSE ;
DS1HD ;
DS1H ;
DS1L1 ;
GENI ;EP
DS1L ;EP
DS2HD ;
DS1 ;EP
DS1H1 ;
CTR(X,Y) ;
DS2 ;EP
EOJ ;
DS2L1 ;
DS2L ;EP
DS2H1 ;
DSLIST2 ;EP
DSLIST1 ;EP

External References

Name Field # of Occurrence
$$AGE^AUPNPAT DS1L1+11, DS2L1+11
$$HRN^AUPNPAT DS1L1+7, DS1L1+11, DS2L1+7, DS2L1+11
EN1^BUDCRP6B DSLIST1+4, DSLIST2+4
GENI^BUDCRP6I GENI+1
$$LOC^BUDCRP6S DS1+2, DS2+2
^DIR DS1H+3, DS2H+3, PAUSE+1
EN^XBVK EOJ+1
$$FMTE^XLFDT DS1HD+3, DS1HD+8, DS1H1+3, DS1H1+7, DS2HD+3, DS2HD+8, DS2H1+3, DS2H1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC^BUDCRP6S,80)
  • Line Location: DS1+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: DS1+3
Function Call: WRITE
  • Prompt: !!,"All Patients 6-9 w/first Molar Sealant (Table 6B)",!
  • Line Location: DS1+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 6-9 years who had an oral "
  • Line Location: DS1+7
Function Call: WRITE
  • Prompt: !,"assessment, were determined to be at moderate or high risk for caries"
  • Line Location: DS1+8
Function Call: WRITE
  • Prompt: !,"and had a sealant placed on a first molar during the reporing period."
  • Line Location: DS1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DS1+10
Function Call: WRITE
  • Prompt: !,"TOTAL PATIENTS WITH SEALANT: ",BUDTOT,!
  • Line Location: DS1L+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),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: DS1L1+7
Function Call: WRITE
  • Prompt: ?35,"Sealant: ",BUDALL
  • Line Location: DS1L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DS1H+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: DS1H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: DS1H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: DS1H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section M,",80),!,$$CTR("Patients Screened for DSression and Followed Up if Appropriate",80),!
  • Line Location: DS1H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: DS1H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: DS1H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: DS1H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: DS1H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: DS1H1+15
Function Call: WRITE
  • Prompt: !?5,"SEALANT DATE"
  • Line Location: DS1H1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: DS1H1+17
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC^BUDCRP6S,80)
  • Line Location: DS2+2
Function Call: WRITE
  • Prompt: !,$$CTR("UDS 2015",80)
  • Line Location: DS2+3
Function Call: WRITE
  • Prompt: !!,"All Patients 6-9 years of age at risk w/o sealant on first molar (Table 6B)",!
  • Line Location: DS2+4
Function Call: WRITE
  • Prompt: !!,"This report provides a list of all patients 6-9 years who had an oral "
  • Line Location: DS2+7
Function Call: WRITE
  • Prompt: !,"assessment, were determined to be at moderate or high risk for caries"
  • Line Location: DS2+8
Function Call: WRITE
  • Prompt: !,"and did not have a sealant placed on a first molar during the reporing period."
  • Line Location: DS2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DS2+10
Function Call: WRITE
  • Prompt: !,"TOTAL PATIENTS AT RISK W/O SEALANT: ",BUDTOT,!
  • Line Location: DS2L+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),?70,$P(^DPT(DFN,0),U,2),?75,BUDAGE,!
  • Line Location: DS2L1+7
Function Call: WRITE
  • Prompt: ?35,"Follow-up: "
  • Line Location: DS2L1+10
Function Call: WRITE
  • Prompt: $P(BUD2,U,2),": ",$$FMTE^XLFDT($P(BUD2,U,1),5)
  • Line Location: DS2L1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DS2H+3
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: DS2H1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,!
  • Line Location: DS2H1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** RPMS Uniform Data System (UDS) ***",80)
  • Line Location: DS2H1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Patient List for Table 6B, Section N,",80),!,$$CTR("Patients 6-9 at Risk without dental sealant on first molar",80),!
  • Line Location: DS2H1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),!
  • Line Location: DS2H1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: DS2H1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: DS2H1+8
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: DS2H1+9
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE"
  • Line Location: DS2H1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: DS2H1+16
Routine Call
  • DIR
  • Line Location:
    • DS1H+3
    • DS2H+3
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DS1HD+7, DS1H1+6, DS2HD+7, DS2H1+6
^DPT - [#2] DS1L1+7, DS1L1+11, DS2L1+7, DS2L1+11
^TMP($J S+2*
^VA(200 - [#200] DS1HD+3, DS1H1+3, DS2HD+3, DS2H1+3
^XTMP("BUDCRP6B" DS1L+3, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L+3, DS2L1+2, DS2L1+3, DS2L1+4
, DS2L1+5, DS2L1+9

Label References

Name Line Occurrences
$$CTR DS1+2, DS1+3, DS1H1+4, DS1H1+5, DS1H1+6, DS1H1+7, DS1H1+8, DS2+2, DS2+3, DS2H1+4
, DS2H1+5, DS2H1+6, DS2H1+7, DS2H1+8
DS1 DSLIST1+3
DS1H DS1L+2, DS1L+5, DS1L1+1, DS1L1+6
DS1H1 DS1H+2
DS1HD DS1H+1
DS1L1 DS1L+4
DS2 DSLIST2+3
DS2H DS2L+2, DS2L+5, DS2L1+1, DS2L1+6
DS2H1 DS2H+2
DS2HD DS2H+1
DS2L1 DS2L+4
EOJ DSLIST1+1, DSLIST2+1
GENI DS1+5, DS2+5
PAUSE DS1+6, DS2+6
S DS1L+3, DS1L+7, DS1L1+12, DS1HD+1, DS1HD+2, DS1HD+3, DS1HD+4, DS1HD+5, DS1HD+6, DS1HD+7
, DS1HD+8, DS1HD+9, DS1HD+10, DS1HD+11, DS1HD+12, DS1HD+13, DS1HD+14, DS1HD+15, DS2L+3, DS2L+7
, DS2L1+13, DS2HD+1, DS2HD+2, DS2HD+3, DS2HD+4, DS2HD+5, DS2HD+6, DS2HD+7, DS2HD+8, DS2HD+9
, DS2HD+10, DS2HD+11, DS2HD+12, DS2HD+13, DS2HD+14, DS2HD+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUDAGE DS1L1+2*, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+7, DS1L1+9, DS2L1+2*, DS2L1+3, DS2L1+4, DS2L1+5
, DS2L1+7, DS2L1+9
>> BUDALL DS1L1+9*, DS1L1+10, DS1L1+12, DS2L1+9*
>> BUDBD DS1HD+8, DS1H1+7, DS2HD+8, DS2H1+7
>> BUDCAD DS1L1+11, DS2L1+11
>> BUDCEN DS1HD+9, DS1H1+8, DS2HD+9, DS2H1+8
>> BUDCOM DS1L1+4*, DS1L1+5, DS1L1+7, DS1L1+9, DS1L1+11, DS2L1+4*, DS2L1+5, DS2L1+7, DS2L1+9, DS2L1+11
>> BUDDECNT S+1*, S+2
>> BUDDS1L DSLIST1+2*
>> BUDDS2L DSLIST2+2*
>> BUDED DS1HD+8, DS1H1+7, DS2HD+8, DS2H1+7
>> BUDGPG DS1H+2, DS1H1+1*, DS1H1+3, DS2H+2, DS2H1+1*, DS2H1+3
>> BUDH DS1L+3, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L+3, DS2L1+2, DS2L1+3, DS2L1+4
, DS2L1+5, DS2L1+9
>> BUDJ DS1L+3, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L+3, DS2L1+2, DS2L1+3, DS2L1+4
, DS2L1+5, DS2L1+9
>> BUDNAME DS1L1+3*, DS1L1+4, DS1L1+5, DS1L1+9, DS2L1+3*, DS2L1+4, DS2L1+5, DS2L1+9
>> BUDP DS1L+1*, DS1H1+10, DS1H1+18*, DS2L+1*, DS2H1+10, DS2H1+17*
>> BUDQUIT DS1L+1*, DS1L+2, DS1L+5, DS1L1+1, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+6, DS1H+3*
, DS2L+1*, DS2L+2, DS2L+5, DS2L1+1, DS2L1+2, DS2L1+3, DS2L1+4, DS2L1+5, DS2L1+6, DS2H+3*
>> BUDROT DS1L+3, DS1L+5, DS1L+6, DS1L+7, DS1L1+1, DS1L1+6, DS1L1+7, DS1L1+10, DS1L1+11, DS1H+1
, DS2L+3, DS2L+5, DS2L+6, DS2L+7, DS2L1+1, DS2L1+6, DS2L1+7, DS2L1+11, DS2H+1
>> BUDSITE DS1L1+7, DS1L1+11, DS1HD+7, DS1H1+6, DS2L1+7, DS2L1+11, DS2HD+7, DS2H1+6
>> BUDTOT DS1L+1*, DS1L+6, DS1L+7, DS1L1+8*, DS2L+1*, DS2L+6, DS2L+7, DS2L1+8*
DA PAUSE+1!
>> DFN DS1L1+5*, DS1L1+7, DS1L1+9, DS1L1+11, DS2L1+5*, DS2L1+7, DS2L1+9, DS2L1+11
DIR DS1H+3!, DS2H+3!, PAUSE+1!
DIR("A" PAUSE+1*
DIR(0 DS1H+3*, DS2H+3*, PAUSE+1*
DT DS1HD+3, DS1H1+3, DS2HD+3, DS2H1+3
>> DTOUT DS1H+3, DS2H+3
DUZ DS1HD+3, DS1H1+3, DS2HD+3, DS2H1+3
DUZ(2 DS1L1+7, DS1L1+11, DS2L1+7, DS2L1+11
IO DS1H+3, DS2H+3
IO(0 DS1H+3, DS2H+3
IOF DS1+1, DS1H1+1, DS2+1, DS2H1+1
IOM CTR+1
IOSL DS1L+5, DS1L1+1, DS1L1+6, DS2L+5, DS2L1+1, DS2L1+6
IOST DS1H+3, DS2H+3
U DS1L1+7, DS1L1+11, DS1L1+12, DS1HD+3, DS1HD+7, DS1H1+3, DS1H1+6, DS2L1+7, DS2L1+11, DS2HD+3
, DS2HD+7, DS2H1+3, DS2H1+6
V S~, S+2
X DS1L1+11*, DS1L1+12*, DS1HD+8*, DS1HD+9*, DS1H1+7*, DS1H1+8*, DS2L1+11*, DS2L1+13, DS2HD+8*, DS2HD+9*
, DS2H1+7*, DS2H1+8*, CTR~, CTR+1
Y DS1H+3, DS2H+3, CTR~, CTR+1
>> ZTQUEUED DS1H+3, DS2H+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All