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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLAL3P

Package: Patient Care Component Reports

Routine: APCLAL3P


Information

APCLAL3P ; IHS/CMI/LAB - list refusals ; 10 Dec 2009 3:10 PM

Source Information

Source file <APCLAL3P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$STRIP^XLFSTR  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
DT(D) ;EP
TOT() ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
PRINT1 ;
G ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
COVPAGE ;EP
PTOT() ;
A
C ;
PAUSE ;
D ;
ENDL() ;
SHOW ;
H ;
N ;
P ;
R ;
T ;
END() ;
HEADER ;EP
LIST ;EP - called from xbdbque
COM(X,X2,X3) ;
HEADER1 ;

External References

Name Field # of Occurrence
COMMA^%DTC COM+1
$$HRN^AUPNPAT LIST+16, H+1, T+1
^DIR HEADER+2, EOP+7, PAUSE+3
$$VAL^XBDIQ1 LIST+23, LIST+28
$$FMTE^XLFDT HEADER1+2, HEADER1+4, SHOW+1
$$STRIP^XLFSTR COM+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No data to report.",!
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !," Total Number of Visits with Screening",?40,$J($$COM(APCRTOT,0),8)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !," Total Number of Patients Screened",?40,$J($$COM(APCRPTOT,0),8)
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCRPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** ALCOHOL SCREENING VISIT LISTING FOR SELECTED PATIENTS ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?55,"CLINIC"
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Function Call: WRITE
  • Prompt: !?3,"Comment: ",$P(APCRY,U,12)
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: !?3,"DXs: "
  • Line Location: LIST+20
Function Call: WRITE
  • Prompt: ?8,$$VAL^XBDIQ1(9000010.07,APCRX,.01),?17,$E($$VAL^XBDIQ1(9000010.07,APCRX,.04),1,60)
  • Line Location: LIST+23
Function Call: WRITE
  • Prompt: !?3,"DXs: "
  • Line Location: LIST+25
Function Call: WRITE
  • Prompt: ?8,$$VAL^XBDIQ1(9002011.01,APCRX,.01),?17,$E($$VAL^XBDIQ1(9002011.01,APCRX,.04),1,60)
  • Line Location: LIST+28
Function Call: WRITE
  • Prompt: !,$$CTR("********** ALCOHOL SCREENING FOR SELECTED PATIENTS **********",80)
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"The following report contains an ALCOHOL screening report based on the",!,"following criteria:"
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !!?6,"Patient must have had a screening between ",$$FMTE^XLFDT(APCRBD)," and ",$$FMTE^XLFDT(APCRED),!
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?6,"Gender: ",$S(APCRSEX="F":"FEMALES ONLY",APCRSEX="M":"MALES ONLY",APCRSEX="U":"UNKNOWN",APCRSEX="MFU":"ALL GENDERS",1:"")
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !?6,"Age of Patients included: ",$P(APCRAGET,"-")," to ",$P(APCRAGET,"-",2)
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !?6,"All Ages included"
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !?6,"Patients must have had a screening during the time period with one of ",!?6,"the following screening results:"
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: ?8,"NEGATIVE"
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: " ","POSITIVE"
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: " ","REFUSED"
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: " ","UNABLE TO SCREEN"
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: !?8,"SCREENINGS WITH NO RECORDED RESULT"
  • Line Location: SHOW+12
Function Call: WRITE
  • Prompt: !,"Screenings done in the following clinics are included:"
  • Line Location: SHOW+13
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(40.7,X,0),U)," ("_$P(^DIC(40.7,X,0),U,2)_")"
  • Line Location: SHOW+14
Function Call: WRITE
  • Prompt: !,"Screenings done in ALL clinics included"
  • Line Location: SHOW+15
Function Call: WRITE
  • Prompt: !,"Behavioral Health Clinics excluded."
  • Line Location: SHOW+16
Function Call: WRITE
  • Prompt: !,"Only patients whose Designated Mental Health Provider",!?6,$P(^VA(200,APCRDESP,0),U)," are included"
  • Line Location: SHOW+17
Function Call: WRITE
  • Prompt: !,"Only patients whose Designated Social Services Provider",!?6,$P(^VA(200,APCRSSP,0),U)," are included"
  • Line Location: SHOW+18
Function Call: WRITE
  • Prompt: !,"Only patients whose Designated ASA/CD Provider",!?6,$P(^VA(200,APCRCDP,0),U)," are included"
  • Line Location: SHOW+19
Function Call: WRITE
  • Prompt: !,"Only patients who had a visit on which a screeening was done",!?6,"but the primary provider on the visit was UNKNOWN are included."
  • Line Location: SHOW+20
Function Call: WRITE
  • Prompt: !,"Only patients who had a visit on which a screeening was done",!?6,"but the screening provider on the visit was UNKNOWN are included."
  • Line Location: SHOW+21
Function Call: WRITE
  • Prompt: !,"Visits to any Primary Provider are included"
  • Line Location: SHOW+22
Function Call: WRITE
  • Prompt: !,"Visits on which any provider did the screening are included"
  • Line Location: SHOW+23
Function Call: WRITE
  • Prompt: !,"Only screenings on which ",$P(^VA(200,APCRPROV,0),U)," was the primary provider",!?6,"on the visit are included"
  • Line Location: SHOW+24
Function Call: WRITE
  • Prompt: !,"Only screenings on which ",$P(^VA(200,APCRSPRV,0),U)," was the primary provider",!?6,"on the visit are included"
  • Line Location: SHOW+25
Routine Call
  • DIR
  • Line Location:
    • HEADER+2
    • EOP+7
    • PAUSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHRPRO("AD" LIST+24, LIST+26
^AUPNVPOV("AD" LIST+19, LIST+21
^DIC(4 - [#4] LOC+1
^DIC(40.7 - [#40.7] SHOW+14
^DPT - [#2] LIST+16, N+1
^TMP($J DONE+1!, LIST+4!, LIST+10*, LIST+12, LIST+13, LIST+15
^VA(200 - [#200] HEADER1+2, USR+1, COVPAGE+3, SHOW+17, SHOW+18, SHOW+19, SHOW+24, SHOW+25
^XTMP("APCLAL3" PRINT1+3, PTOT+3, TOT+3, DONE+2!, LIST+6

Label References

Name Line Occurrences
$$COM PRINT1+9, PRINT1+10
$$CTR HEADER1+3, HEADER1+4, COVPAGE+2
$$DT LIST+16
$$END PRINT1+5
$$ENDL LIST+14
$$PTOT PRINT1+8
@( LIST+8
COVPAGE PRINT1+4
DONE PRINT+2, PRINT1+3
EOP DONE+3
HEADER PRINT1+3, PRINT1+6, END+2, ENDL+2, LIST+3
HEADER1 HEADER+1
LIST PRINT1+11
PAUSE SHOW+26
PRINT1 PRINT+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % T+1*, T+2*, T+3
>> APCLEXBH SHOW+15, SHOW+16
>> APCRAGET SHOW+4, SHOW+5
>> APCRBD HEADER1+4, SHOW+1
>> APCRC LIST+20*, LIST+22*, LIST+23, LIST+25*, LIST+27*, LIST+28
>> APCRCDP SHOW+19
>> APCRCLNT SHOW+13, SHOW+15
>> APCRCLNT( SHOW+14
>> APCRCNT PRINT1+7
>> APCRDESP SHOW+17
>> APCRED HEADER1+4, SHOW+1
>> APCRH PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
>> APCRJ PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
APCRLSTP PRINT1+2!, LIST+2*
>> APCRPG PRINT1+1*, HEADER+1, HEADER1+1*, HEADER1+2, LIST+1*
>> APCRPPUN SHOW+20
>> APCRPROV SHOW+22, SHOW+24
>> APCRPTOT PRINT1+8*, PRINT1+10
APCRQUIT PRINT1+1!, END+3, ENDL+3, HEADER+2*, LIST+1!, LIST+12, LIST+13, LIST+21, LIST+26, PAUSE+4*
>> APCRREST( SHOW+7
>> APCRSEX SHOW+3
>> APCRSORT LIST+8
>> APCRSORV LIST+9*, LIST+10, LIST+12*, LIST+13, LIST+15, H+1*, N+1*, P+1*, R+1*, D+1*
, A*, G+1*, C+1*, T+3*
>> APCRSPRV SHOW+23, SHOW+25
>> APCRSPUN SHOW+21
>> APCRSSP SHOW+18
>> APCRTOT PRINT1+7*, PRINT1+9
>> APCRV LIST+19*, LIST+21, LIST+24*, LIST+26
>> APCRX LIST+6*, LIST+7, LIST+10, LIST+21*, LIST+23, LIST+26*, LIST+28
>> APCRY LIST+6*, LIST+10, LIST+15*, LIST+16, LIST+17, LIST+18, LIST+19, LIST+24, LIST+29, LIST+30
, P+1, R+1, D+1, A, G+1, C+1
C PTOT+1~, PTOT+2*, PTOT+3*, PTOT+4, TOT+1~, TOT+2*, TOT+3*, TOT+4
D DT~, DT+1, DT+2
DA PAUSE+3!
>> DFN LIST+7*, LIST+13*, LIST+15, LIST+16, H+1, N+1, T+1
DFOUT EOP+5!
DIR HEADER+2!, EOP+4~, PAUSE+3!
DIR("A" EOP+7*, PAUSE+3*
DIR(0 HEADER+2*, EOP+7*, PAUSE+3*
DIRUT EOP+5!, PAUSE+4
DLOUT EOP+5!
DT HEADER1+2
DTOUT HEADER+2, EOP+5!
DUOUT EOP+5!
DUZ HEADER1+2, USR+1, COVPAGE+3
DUZ(2 LOC+1, LIST+16, H+1, T+1
IO HEADER+2, EOP+2, PAUSE+2
IO("S" EOP+3
IO(0 HEADER+2, EOP+2, PAUSE+2
IOF HEADER1+1, COVPAGE+1, PAUSE+5
IOM CTR+1
IOSL END+1, ENDL+1
IOST HEADER+2, EOP+1, PAUSE+1
>> IOT EOP+3
U HEADER1+2, USR+1, LOC+1, LIST+16, LIST+17, LIST+18, LIST+19, LIST+24, LIST+29, LIST+30
, N+1, P+1, R+1, D+1, A, G+1, C+1, COVPAGE+3, SHOW+14, SHOW+17
, SHOW+18, SHOW+19, SHOW+24, SHOW+25
X COM~, COM+2, PTOT+1~, PTOT+3*, TOT+1~, TOT+3*, HEADER1+4*, CTR~, CTR+1, SHOW+7*
, SHOW+8, SHOW+9, SHOW+10, SHOW+11, SHOW+12, SHOW+14*
X2 COM~
X3 COM~
Y HEADER+2, CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All