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

Package: IHS HIV Management System

Routine: BKMVQCRA


Information

BKMVQCRA ;PRXM/HC/BWF - BKMV Quality of Care Report; [ 1/19/2005 7:16 PM ] ; 13 Jun 2005 3:41 PM

Source Information

Source file <BKMVQCRA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS HIV Management System 4 (HDR,HDR3)^BKMIMRP1  ($$BKMIEN,$$BKMREG,$$PAUSE)^BKMIXX3  $$PAD^BKMIXX4  $$HRN^BKMVA1  
VA Fileman 2 NOW^%DTC  $$GET1^DIQ  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
DISP ;
HDR ;
WP(CAT,TYPE) ;
PATHDR ;
WC(TYPE) ;
PAT(BKMPATN,BKMDFN) ;
PRINT ; EP - Print report.

External References

Name Field # of Occurrence
NOW^%DTC PRINT+5
HDR^BKMIMRP1 PRINT+120, PRINT+165, HDR+2, HDR+3, HDR+4, HDR+5, HDR+6, HDR+8
HDR3^BKMIMRP1 HDR+9
$$BKMIEN^BKMIXX3 PAT+8
$$BKMREG^BKMIXX3 PAT+10
$$PAUSE^BKMIXX3 PRINT+25, PRINT+38, PRINT+54, PRINT+73, PRINT+84, PRINT+97, PRINT+116, PRINT+143, PRINT+161, PRINT1+1
$$PAD^BKMIXX4 HDR+1
$$HRN^BKMVA1 PAT+5
$$GET1^DIQ PRINT+7, PRINT+152, PAT+6, PAT+7, PAT+12, PAT+13, PAT+14, HDR+1
$$FMTE^XLFDT PRINT+6, PRINT+8, PAT+13, PAT+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"No Data to Report",!!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?1,"Total Patients Reviewed: "_TOTPTS,!!
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?50,"#",?60,"%",!!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?1,"Gender: Male"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?1," Female"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: " Unspecified"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?1,"Age <15 yrs"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?1," 15-44 yrs"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?1," 45-64 yrs"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?1," >64 yrs"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?1,"LABORATORY EXAMS",!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?1,"# w/ CD4 count in last six months"
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?1," most recent<50"
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: ?1," most recent 50-199"
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: ?1," most recent=>200"
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: ?1," Undetermined"
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: ?1,"# w/ Viral Load in last six months"
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?1," <100,000 copies/ml"
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: ?1," =>100,000 copies/ml"
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: ?1,"# w/ RPR (Syphilis Test) in the last 12 months"
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: ?1," Reactive"
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: ?1," Non-Reactive"
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: ?1," Refused"
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: ?1," NMI"
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: ?1," Undetermined"
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: ?1,"# w/ Chlamydia Screen in the last 12 months"
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: ?1," Positive"
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: ?1," Negative"
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: ?1," Refused"
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: ?1," NMI"
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: ?1," Undetermined"
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: ?1,"# w/ Gonorrhea Screen in the last 12 months"
  • Line Location: PRINT+56
Function Call: WRITE
  • Prompt: ?1," Positive"
  • Line Location: PRINT+57
Function Call: WRITE
  • Prompt: ?1," Negative"
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: ?1," Refused"
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: ?1," NMI"
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: ?1," Undetermined"
  • Line Location: PRINT+61
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+64
Function Call: WRITE
  • Prompt: ?1,"# w/ Tuberculosis test needed"
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: ?1," PPD Received"
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: ?1," PPD+"
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?1," w/ Treatment Given"
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: ?1," PPD-"
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: ?1," PPD Refused"
  • Line Location: PRINT+70
Function Call: WRITE
  • Prompt: ?1," PPD Status Unknown"
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+72
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+74
Function Call: WRITE
  • Prompt: ?1,"VACCINATION",!
  • Line Location: PRINT+75
Function Call: WRITE
  • Prompt: ?1,"# w/ Pneumovax in last 5 years (or 2 ever)"
  • Line Location: PRINT+76
Function Call: WRITE
  • Prompt: ?1,"# w/ Tetanus in past 10 years"
  • Line Location: PRINT+77
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+78
Function Call: WRITE
  • Prompt: ?1,"EXAMS - Yearly",!
  • Line Location: PRINT+79
Function Call: WRITE
  • Prompt: ?1,"Dilated Eye Exam"
  • Line Location: PRINT+80
Function Call: WRITE
  • Prompt: ?1,"Dental Exam"
  • Line Location: PRINT+81
Function Call: WRITE
  • Prompt: ?1,"Pap Smear"
  • Line Location: PRINT+82
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+83
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+85
Function Call: WRITE
  • Prompt: ?1,"TREATMENT (past 6 months)",!
  • Line Location: PRINT+86
Function Call: WRITE
  • Prompt: ?1,"ARV Therapy given"
  • Line Location: PRINT+87
Function Call: WRITE
  • Prompt: ?1," HAART"
  • Line Location: PRINT+88
Function Call: WRITE
  • Prompt: ?1," Mono Therapy"
  • Line Location: PRINT+89
Function Call: WRITE
  • Prompt: ?1," Other Combination"
  • Line Location: PRINT+90
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+91
Function Call: WRITE
  • Prompt: ?1,"PCP Prophylaxis given if ANY CD4 =>50 and <200 in last six months",!
  • Line Location: PRINT+92
Function Call: WRITE
  • Prompt: ?1,"MAC Prophylaxis given if ANY CD4 <50 in last six months",!
  • Line Location: PRINT+94
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+96
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+98
Function Call: WRITE
  • Prompt: ?1,"RISK FACTORS",!
  • Line Location: PRINT+99
Function Call: WRITE
  • Prompt: ?1,"Tobacco Use Screening"
  • Line Location: PRINT+100
Function Call: WRITE
  • Prompt: ?1," Current Tobacco User"
  • Line Location: PRINT+101
Function Call: WRITE
  • Prompt: ?1," If Yes, Counseled"
  • Line Location: PRINT+102
Function Call: WRITE
  • Prompt: ?1," Not a Current User"
  • Line Location: PRINT+103
Function Call: WRITE
  • Prompt: ?1," Not Documented"
  • Line Location: PRINT+104
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+105
Function Call: WRITE
  • Prompt: ?1,"Substance Abuse Screening"
  • Line Location: PRINT+106
Function Call: WRITE
  • Prompt: ?1," Current User"
  • Line Location: PRINT+107
Function Call: WRITE
  • Prompt: ?1," I/V - Yes"
  • Line Location: PRINT+109
Function Call: WRITE
  • Prompt: ?49,"Unavailable",!
  • Line Location: PRINT+110
Function Call: WRITE
  • Prompt: " Not a Current User"
  • Line Location: PRINT+111
Function Call: WRITE
  • Prompt: ?49,"Unavailable",!
  • Line Location: PRINT+112
Function Call: WRITE
  • Prompt: " Not Documented"
  • Line Location: PRINT+113
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+114
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+117
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+118
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+119
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+121
Function Call: WRITE
  • Prompt: ?1,"This report includes all patients who meet the following criteria:"
  • Line Location: PRINT+122
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+123
Function Call: WRITE
  • Prompt: ?5,"* Register Status = Active"
  • Line Location: PRINT+124
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+125
Function Call: WRITE
  • Prompt: ?5,"* Current Diagnosis =",$S($P(DENPOP,":",2)=" All":" HIV and AIDS",1:$P(DENPOP,":",2))
  • Line Location: PRINT+126
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+127
Function Call: WRITE
  • Prompt: ?5,"* First (oldest) Diagnosis Date is at least 182 days (6 months) prior to"
  • Line Location: PRINT+128
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+129
Function Call: WRITE
  • Prompt: ?5," Report End Date"
  • Line Location: PRINT+130
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+131
Function Call: WRITE
  • Prompt: ?1,"Total Patients Reviewed: "_TOTPTS,!!
  • Line Location: PRINT+136
Function Call: WRITE
  • Prompt: ?1,"The following patients are included in this report: "
  • Line Location: PRINT+137
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+138
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+144
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+147
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+162
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+164
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+166
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?47,$J(VAL,3)
  • Line Location: WC+4
Function Call: WRITE
  • Prompt: ?55,$J(VAL/TOTPTS*100,5,1),"%",!
  • Line Location: WC+5
Function Call: WRITE
  • Prompt: ?47,$J(VAL,3)
  • Line Location: WP+4
Function Call: WRITE
  • Prompt: ?55,$J(PERC,5,1),"%",!
  • Line Location: WP+6
Function Call: WRITE
  • Prompt: ?1,$G(BKMPATN)
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: ?32,$$HRN^BKMVA1(BKMDFN)
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: ?39,$$GET1^DIQ(2,BKMDFN,".033","E")
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: ?43,$$GET1^DIQ(2,BKMDFN,".02","I")
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: ?47,$$GET1^DIQ(90451.01,BKMREG_","_BKMIEN_",","2.3","E")
  • Line Location: PAT+12
Function Call: WRITE
  • Prompt: ?52,$$FMTE^XLFDT($$GET1^DIQ(90451.01,BKMREG_","_BKMIEN_",","5","I"),"5Z")
  • Line Location: PAT+13
Function Call: WRITE
  • Prompt: ?64,$$FMTE^XLFDT($$GET1^DIQ(90451.01,BKMREG_","_BKMIEN_",","5.5","I"),"5Z")
  • Line Location: PAT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+15
Function Call: WRITE
  • Prompt: ?1,"Patient Name"
  • Line Location: PATHDR+3
Function Call: WRITE
  • Prompt: ?32,"HRN"
  • Line Location: PATHDR+4
Function Call: WRITE
  • Prompt: ?39,"Age"
  • Line Location: PATHDR+5
Function Call: WRITE
  • Prompt: ?43,"Sex"
  • Line Location: PATHDR+6
Function Call: WRITE
  • Prompt: ?47,"Dx"
  • Line Location: PATHDR+7
Function Call: WRITE
  • Prompt: ?52,"Init HIV Dx"
  • Line Location: PATHDR+8
Function Call: WRITE
  • Prompt: ?64,"Init AIDS Dx"
  • Line Location: PATHDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PATHDR+10
Function Call: WRITE
  • Prompt: ?1,$E(BKMHDR,1,30)
  • Line Location: PATHDR+11
Function Call: WRITE
  • Prompt: ?32,$E(BKMHDR,1,6)
  • Line Location: PATHDR+12
Function Call: WRITE
  • Prompt: ?39,$E(BKMHDR,1,3)
  • Line Location: PATHDR+13
Function Call: WRITE
  • Prompt: ?43,$E(BKMHDR,1,3)
  • Line Location: PATHDR+14
Function Call: WRITE
  • Prompt: ?47,$E(BKMHDR,1,4)
  • Line Location: PATHDR+15
Function Call: WRITE
  • Prompt: ?52,$E(BKMHDR,1,11)
  • Line Location: PATHDR+16
Function Call: WRITE
  • Prompt: ?64,$E(BKMHDR,1,12)
  • Line Location: PATHDR+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PATHDR+18
Function Call: WRITE
  • Prompt: !!,?30,"***WARNING***",!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: ?21,"***RESTRICTED INFORMATION***",!
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?1,"* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *",!
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: ?1,"* All information in this system is protected by the Privacy Act of *",!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?1,"* 1974. If you elect to proceed, you will be required to prove you have *",!
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: ?1,"* a need to know. Access of data in this system is tracked, and your *",!
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: ?1,"* station Security Officer may contact you for your justification. *",!
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: ?1,"* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *",!
  • Line Location: DISP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
90451.01 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("BKMVQCR" PRINT+12, PRINT+18, PRINT+151, PRINT+154*, PRINT+157, PRINT+159, WC+3, WP+3, WP+5

Label References

Name Line Occurrences
DISP HDR+7
HDR PRINT+11, PRINT+26, PRINT+39, PRINT+55, PRINT+64, PRINT+74, PRINT+85, PRINT+98, PRINT+117, PRINT+144
, PRINT+162
PAT PRINT+163
PATHDR PRINT+145, PRINT+162
PRINT1 PRINT+13
WC PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22, PRINT+23
WP PRINT+28, PRINT+29, PRINT+30, PRINT+31, PRINT+32, PRINT+34, PRINT+35, PRINT+36, PRINT+40, PRINT+41
, PRINT+42, PRINT+43, PRINT+44, PRINT+45, PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRINT+52
, PRINT+56, PRINT+57, PRINT+58, PRINT+59, PRINT+60, PRINT+61, PRINT+65, PRINT+66, PRINT+67, PRINT+68
, PRINT+69, PRINT+70, PRINT+71, PRINT+76, PRINT+77, PRINT+80, PRINT+81, PRINT+82, PRINT+87, PRINT+88
, PRINT+89, PRINT+90, PRINT+93, PRINT+95, PRINT+100, PRINT+101, PRINT+102, PRINT+103, PRINT+104, PRINT+106
, PRINT+107, PRINT+113

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BKMDFN PRINT+150*, PRINT+151*, PRINT+152, PRINT+154, PRINT+158*, PRINT+159*, PRINT+163, PAT~, PAT+2, PAT+5
, PAT+6, PAT+7, PAT+8
BKMHDR PATHDR+1~, PATHDR+2*, PATHDR+11, PATHDR+12, PATHDR+13, PATHDR+14, PATHDR+15, PATHDR+16, PATHDR+17
BKMIEN PAT+1~, PAT+8*, PAT+9, PAT+10, PAT+12, PAT+13, PAT+14
BKMPATN PRINT+152*, PRINT+153*, PRINT+154, PRINT+156*, PRINT+157*, PRINT+159, PRINT+163, PAT~, PAT+2, PAT+4
BKMREG PAT+1~, PAT+10*, PAT+11, PAT+12, PAT+13, PAT+14
BKMRTN PRINT+1~, PRINT+141*, PRINT+142, PRINT+143*, PRINT+156*, PRINT+157, PRINT+158*, PRINT+159, PRINT+160, PRINT+161*
CAT WP~, WP+3, WP+5
CONFE PRINT+1~, PRINT+3*, PRINT+165
CONFS PRINT+1~, PRINT+2*, HDR+8
>> DENPOP PRINT+126, HDR+5
DUZ HDR+1
DUZ(2 PRINT+7
>> EDATE PRINT+8
EXDT PRINT+1~, PRINT+6*, HDR+1
HDRST PRINT+1~, HDR+1*, HDR+2
HEEXT PRINT+1~, PRINT+8*, HDR+6
INST PRINT+1~, PRINT+7*, HDR+3
IO PRINT+4
IOF PRINT+10, PRINT+26, PRINT+39, PRINT+55, PRINT+64, PRINT+74, PRINT+85, PRINT+98, PRINT+117, PRINT+144
, PRINT+162, PRINT1+2
IOSL PRINT+142, PRINT+160
IOST PRINT+10, PRINT+25, PRINT+26, PRINT+38, PRINT+39, PRINT+54, PRINT+55, PRINT+63, PRINT+64, PRINT+73
, PRINT+74, PRINT+84, PRINT+85, PRINT+97, PRINT+98, PRINT+116, PRINT+143, PRINT+161, PRINT1+1, PRINT1+2
, HDR+7
PAGE PRINT+1~, PRINT+9*, HDR+1, HDR+7, HDR+10*
PERC WP+1~, WP+5*, WP+6
TOTPTS PRINT+1~, PRINT+12*, PRINT+13, PRINT+14, PRINT+136, WC+5
TYPE WC~, WC+2, WC+3, WP~, WP+2, WP+3, WP+5
VAL WC+1~, WC+3*, WC+4, WC+5, WP+1~, WP+3*, WP+4
>> X PRINT+6
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