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

Package: Mental Health Social Services

Routine: AMHRPPA


Information

AMHRPPA ; IHS/CMI/LAB - TALLY PREVENTION ACTIVITIES ;

Source Information

Source file <AMHRPPA.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS VA Utilities 5 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  $$EXTSET^XBFUNC  EN^XBVK  
VA Fileman 4 DD^%DT  COMMA^%DTC  ^DIC  ^DIR  
Kernel 3 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  ($$REPEAT,$$STRIP,$$UP)^XLFSTR  
Mental Health Social Services 2 ($$ALLOWVI,$$PPINT,DBHUSR,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
DATES
DEMO ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE
D(D) ;
PRINT ;EP - called from xbdbque
PRINT1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;inform user what this report is all about
OPRV ;one PROVIDER
HEAD ;EP;HEADER
PAGEHEAD ;
ZIS ;call xbdbque
DRIVER ;EP entry point for taskman
START ;
XIT ;
C(X,X2,X3) ;
HEAD1 ;
PROCESS ;
PROV ;
SPRV ;taxonomy of PROVIDERS
PROG ;

External References

Name Field # of Occurrence
DD^%DT PRINT+1
COMMA^%DTC C+1
HOME^%ZIS START+2
$$ALLOWVI^AMHUTIL PROCESS+10
$$PPINT^AMHUTIL PROCESS+13
DBHUSR^AMHUTIL INFORM+7
XTMP^AMHUTIL PROCESS+1
$$DEMO^AMHUTIL1 PROCESS+11
DEMOCHK^AMHUTIL1 DEMO+1
PEP^AMQQGTX0 SPRV+2
^DIC OPRV+1, SPRV+1
^DIR DATES+2, DATES+4, PROG+2, PROG+5, PROV+6, DONE+2, HEAD+2, EOP+5
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PROCESS+16, PROCESS+21, PROCESS+22
^XBFMK XIT+3
$$EXTSET^XBFUNC HEAD1+8
EN^XBVK XIT+2
$$FMADD^XLFDT DATES+8
$$FMTE^XLFDT HEAD1+2
$$REPEAT^XLFSTR HEAD1+4, HEAD1+6, HEAD1+10
$$STRIP^XLFSTR C+2
$$UP^XLFSTR PROCESS+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"Please enter the Providers whose Prevention activities you want to tally."_$G(IORVOFF),!
  • Line Location: PROV+2
Function Call: WRITE
  • Prompt: !!,"RUN TIME (H.M.S): ",AMHDVH,".",AMHDVM,".",AMHDVS
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !!,"There are no visits with Prevention Activities Recorded."
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !!,"Total # Visits w/Prevention Activity: ",?45,$$C(AMHGRTA,0)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !,"Total # of Prevention Activities recorded: ",?45,$$C(AMHGTPA,0)
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !!,"TARGET TOTALS",!
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(DT),?70,"Page: ",AMHPG
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?29,"Behavioral Health"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$$CTR($$REPEAT^XLFSTR("*",36),80)
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,$$CTR("* TALLY OF PREVENTION ACTIVITIES *",80)
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,$$CTR($$REPEAT^XLFSTR("*",36),80)
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,$$CTR(X,80),!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !?5,"PREVENTION ACTIVITY",?45,"# of visits",?60,"% of visits"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !!,$$CTR("BEHAVIORAL HEALTH PREVENTION ACTIVITIES")
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This report will produce a count of all visits with a prevention"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"activity entered. It will also produce a tally/count of those"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"prevention activities with Target Audience subtotals."
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: SPRV+1
Function Call: WRITE
  • Prompt: !!,"**** all PROVIDERS will be included ****",!
  • Line Location: SPRV+4
Routine Call
  • %ZIS
  • Line Location:
    • START+2
Routine Call
  • DIC
  • Line Location:
    • OPRV+1
    • SPRV+1
Routine Call
  • DIR
  • Line Location:
    • DATES+2
    • DATES+4
    • PROG+2
    • PROG+5
    • PROV+6
    • DONE+2
    • HEAD+2
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AMQQ(5 - [#9009075] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] PROCESS+7, PROCESS+12
^AMHREC("B" PROCESS+5, PROCESS+6
^AMHRPA("AD" PROCESS+9, PROCESS+20
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$C PRINT1+3, PRINT1+4, PRINT1+8, PRINT1+13, PRINT1+19
$$CTR HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8, INFORM+1, INFORM+2
$$LOC INFORM+1
@( PROV+10
DATES DATES+6, PROG+3
DEMO PROV+9
HEAD PRINT1+1, PRINT1+6, PRINT1+10, PRINT1+15, PRINT1+18
HEAD1 HEAD+1
INFORM START+4
PRINT1 PRINT+4
PROCESS DRIVER+1
PROG PROG+6, PROG+7, PROV+7
PROV PROG+4, PROV+11, DEMO+2
XIT START+1, DATES+2, DATES+4, ZIS+3, SPRV+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
AMHBD DATES!, DATES+2*, DATES+6, DATES+8, PROCESS+3, PRINT+1
>> AMHBDD PRINT+1*, HEAD1+7
>> AMHBT PROCESS+2*, DONE
>> AMHBTH PROCESS+2*
>> AMHDEMO DEMO+1, DEMO+2, PROCESS+11
>> AMHDVH DONE*, DONE+1
>> AMHDVM DONE+1*
>> AMHDVS DONE+1*
>> AMHDVTS DONE*, DONE+1*
AMHED DATES!, DATES+4*, DATES+6, PROCESS+5, PRINT+1
>> AMHEDD PRINT+1*, HEAD1+7
>> AMHET DRIVER+2*, PROCESS+29*, DONE
>> AMHGRTA PROCESS+4*, PROCESS+19*, PRINT1+3, PRINT1+8
>> AMHGRTT PROCESS+4*, PROCESS+17*, PROCESS+18*, PRINT1+19
>> AMHGTPA PROCESS+4*, PROCESS+26*, PRINT1+4
>> AMHJOB PROCESS+2*
>> AMHPG PRINT+2*, HEAD+1, HEAD1+1*, HEAD1+2
AMHPRAT PROCESS+4!, PRINT1+2
AMHPRAT( PROCESS+23*, PROCESS+24*, PROCESS+25*, PRINT1+5, PRINT1+7, PRINT1+9, PRINT1+12
>> AMHPROG PROG+1*, PROG+8*, PROCESS+12, HEAD1+8
AMHPRVS PROV+4!, PROCESS+14, PROCESS+15, SPRV+3, SPRV+4!
AMHPRVS( PROCESS+15, OPRV+3*
AMHPRVS("*" SPRV+4
>> AMHPRVT PROV+3*, PROV+8*, PROV+9, PROV+10, SPRV+4*
AMHQ PROV+1!, PROV+11, OPRV+2*, SPRV+3*
AMHQUIT PRINT+3!, PRINT1+5, PRINT1+6, PRINT1+9, PRINT1+10, PRINT1+14, PRINT1+15, PRINT1+17, PRINT1+18, HEAD+2*
>> AMHRCNT PROCESS+5*
>> AMHS PRINT1+5*, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+12
>> AMHSD DATES+8*, PROCESS+3*, PROCESS+5*, PROCESS+6
>> AMHTAR PROCESS+16*, PROCESS+17, PROCESS+18, PROCESS+24, PROCESS+25
AMHTARG PROCESS+4!
AMHTARG( PROCESS+17*, PRINT1+17, PRINT1+19
AMHTARG("NOT RECORDED" , PROCESS+18*
>> AMHV0 PROCESS+7*, PROCESS+8, PROCESS+11
>> AMHVIEN PROCESS+5*, PROCESS+6*, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+16, PROCESS+20
>> AMHVPP PROCESS+13*, PROCESS+14, PROCESS+15
>> AMHX PROCESS+20*, PROCESS+21, PROCESS+22, PRINT1+7*, PRINT1+8, PRINT1+13, PRINT1+17*, PRINT1+19
>> AMHY PRINT1+9*, PRINT1+11, PRINT1+12
>> AMHZ PRINT1+12*, PRINT1+13
D D~, D+1, D+2
DA PROG+2!, PROG+5!, PROV+6!, SPRV+1!
DFOUT EOP+4!
DIC OPRV+1*!, SPRV+1*!
DIC("A" OPRV+1*
DIC("S" SPRV+1*
DIC(0 OPRV+1*, SPRV+1*
DIR DATES+1!, DATES+3!, PROG+2!, PROG+5!, PROV+6!, XIT+1!, DONE+2!, HEAD+2!, EOP+3~
DIR("A" DATES+1*, DATES+3*, PROG+2*, PROG+5*, PROV+5*, PROV+6*, EOP+5*
DIR("B" PROG+2*, PROV+5*, PROV+6*
DIR(0 DATES+1*, DATES+3*, PROG+2*, PROG+5*, PROV+5*, DONE+2*, HEAD+2*, EOP+5*
DIRUT PROG+3, PROG+6, PROV+7, EOP+4!
DLOUT EOP+4!
DT HEAD1+2
DTOUT HEAD+2, EOP+4!
DUOUT EOP+4!
DUZ PROCESS+10, USR+1
DUZ(2 LOC+1
IO DONE+2, HEAD+2
IO("S" EOP+2
IO(0 DONE+2, HEAD+2
IOF START+2, START+3, DONE+3, HEAD1+1
IOM CTR+1
>> IORVOFF PROV+2
>> IORVON PROV+2
IOSL PRINT1+6, PRINT1+10, PRINT1+15, PRINT1+18
IOST DONE+2, HEAD+2, EOP+1
>> IOT EOP+2
U PROCESS+11, PROCESS+12, USR+1, LOC+1
X PROG+7, PROCESS+21*, PROCESS+22*, PROCESS+23, PROCESS+24, PROCESS+25, HEAD1+7*, HEAD1+8*, C~, C+2
, CTR~, CTR+1, SPRV+1*
X2 C~
X3 C~
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y DATES+2, DATES+4, PROG+4, PROG+8, PROV+8, PROCESS+22*, PRINT+1*, HEAD+2, CTR~, CTR+1
, OPRV+2, OPRV+3, SPRV+1, SPRV+2
>> ZTQUEUED EOP+2
Info |  Source |  Call 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