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

Package: Mental Health Social Services

Routine: AMHRE1


Information

AMHRE1 ; IHS/CMI/LAB - ;

Source Information

Source file <AMHRE1.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Mental Health Social Services 4 $$LVD^AMHDPEE  PAUSE^AMHLEA  ($$ALLOWP,$$ALLOWVI,$$PPINI,DBHUSR,DBHUSRP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
VA Fileman 3 DD^%DT  ^DIC  ^DIR  
Kernel 2 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
DEMO ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
D(D) ;
PRINT ;EP - called from xbdbque
PROB2 ;
PROB1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PROBCODE ;
INFORM ;inform user what this report is all about
HEADER1 ;
ZIS ;
ED ;get ending date
START ;
XIT ;
PROC1 ;
HEADER ;EP
TYPE ; type of problem code
GETDATES ;
PROBLIST ;get problem list
PROC ;EP - called from xbdbque

External References

Name Field # of Occurrence
DD^%DT ED+1
HOME^%ZIS START+2
$$LVD^AMHDPEE PRINT+10
PAUSE^AMHLEA INFORM+4
$$ALLOWP^AMHUTIL PROC1+3
$$ALLOWVI^AMHUTIL PROC1+1
$$PPINI^AMHUTIL PRINT+10
DBHUSR^AMHUTIL INFORM+4
DBHUSRP^AMHUTIL INFORM+4
$$DEMO^AMHUTIL1 PROC1+4
DEMOCHK^AMHUTIL1 DEMO+1
$$DOB^AUPNPAT PRINT+7
$$HRN^AUPNPAT PRINT+7
^DIC PROB1+1, PROB2+1
^DIR TYPE+2, BD+2, ED+1, ZIS+1, EOP+5, DONE+1, HEADER+2
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRINT+16, PRINT+17, PRINT+18
^XBFMK XIT+1
EN^XBVK XIT+1
$$FMADD^XLFDT ED+4, PROC+2
$$FMTE^XLFDT HEADER1+2, HEADER1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PROB1+1
Function Call: WRITE
  • Prompt: !!,"No problems selected. Exiting."
  • Line Location: PROB1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PROB2+1
Function Call: WRITE
  • Prompt: !!,"No problems selected. Exiting."
  • Line Location: PROB2+2
Function Call: WRITE
  • Prompt: !!,"The following Problem/Diagnosis codes will be included: "
  • Line Location: PROB2+5
Function Call: WRITE
  • Prompt: " ",$P(^AMHPROB(X,0),U)
  • Line Location: PROB2+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !,"You have selected the following Problem/Diagnosis Codes"
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !?5,$P(^AMHPROB(X,0),U),?13,$P(^AMHPROB(X,0),U,2)
  • Line Location: GETDATES+2
Function Call: WRITE
  • Prompt: !!!,"Please enter the date range during which the patient should have been seen ",!,"with one of these problems.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"This report will list all patients who have been seen for a diagnosis/problem",!,"selected by the user in the date range selected by the user. For example,"
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !,"you may enter all suicide problem codes (39, 40, 41) and you will get a list",!,"of all patients seen for suicide and can then use this report",!,"to assist in follow up activities.",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"The report will list Designated Provider, Patient Name, date seen for",!,"this problem, and date last seen.",!!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?47,$$PPINI^AMHUTIL(AMHR),?52,$P(^AMHPROB(AMHP,0),U),?62,$$D($P(^AMHREC(AMHR,0),U)),?72,$$D($$LVD^AMHDPEE(DFN,"ID"))
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?3,"Designated MH Prov: ",$E($$VAL^XBDIQ1(9002011.55,DFN,.02),1,20)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?3,"Designated SS Prov: ",$E($$VAL^XBDIQ1(9002011.55,DFN,.03),1,20)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?$S(AMHS:42,1:3),"Desginated CD Prov: ",$E($$VAL^XBDIQ1(9002011.55,DFN,.04),1,20)
  • Line Location: PRINT+18
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 ",AMHPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("PATIENTS SEEN WITH SELECTED DIAGNOSES/PROBLEMS",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?27,"HRN",?34,"DOB",?43,"SEX",?47,"PROV",?52,"DX",?62,"DATE SEEN",?72,"LAST VIS"
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+6
Routine Call
  • %ZIS
  • Line Location:
    • START+2
Routine Call
  • DIC
  • Line Location:
    • PROB1+1
    • PROB2+1
Routine Call
  • DIR
  • Line Location:
    • TYPE+2
    • BD+2
    • ED+1
    • ZIS+1
    • EOP+5
    • DONE+1
    • HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHPROB - [#9002012.2] Classic Fileman Calls
^AMHPROBC - [#9002012.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATR - [#9002011.55] PRINT+16, PRINT+17, PRINT+18
^AMHPROB - [#9002012.2] PROB2+6, GETDATES+2, PRINT+10, PRINT+12
^AMHPROB("AC" PROB2+6
^AMHREC - [#9002011] PROC+7, PRINT+10, PRINT+12
^AMHREC("B" PROC+6, PROC+7
^AMHRPRO - [#9002011.01] PROC1+7
^AMHRPRO("AD" PROC1+5, PROC1+7
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC1+8, PROC1+9, PRINT+7
^VA(200 - [#200] USR+1, HEADER1+2
^XTMP("AMHRE1" PROC+2*, PROC+4!, PROC1+8, PROC1+9*, PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+9, DONE+4!

Label References

Name Line Occurrences
$$CTR HEADER1+3, HEADER1+4
$$D PRINT+7, PRINT+10, PRINT+12
BD ED+2
BROWSE ZIS+3
DONE PRINT+2
GETDATES PROB1+3, PROB1+4, PROB2+3, PROB2+4, DEMO+2
HEADER PRINT+1, PRINT+6, PRINT+11, PRINT+15
HEADER1 HEADER+1
INFORM START+6
PROB1 PROB1+6
PROB2 PROB2+7
PROBCODE TYPE+5
PROC1 PROC+7
XIT START+1, TYPE+3, PROB1+2, PROB2+2, BD+3, ZIS+2, ZIS+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHBD BD+4*, ED+1, ED+4, HEADER1+4
>> AMHBT PROC+1*
>> AMHC PROBLIST+1*, PROB1+1, PROB1+5*, PROBCODE+1*, PROB2+1, PROB2+6*, PRINT+8*, PRINT+10*
>> AMHCNT PROC+3*
>> AMHDEMO DEMO+1, DEMO+2, PROC1+4
>> AMHED ED+3*, PROC+6, HEADER1+4
AMHET PROC+8*, DONE+3!
>> AMHFOUND PROC1+7*
AMHH PROC+3*, PROC+4, PROC1+8, PROC1+9, PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+9, DONE+4!
AMHJ PROC+3*, PROC+4, PROC1+8, PROC1+9, PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+9, DONE+4!
AMHM DONE+3!
>> AMHNAME PRINT+4*, PRINT+5, PRINT+7, PRINT+8, PRINT+9
>> AMHP PRINT+8*, PRINT+9, PRINT+10, PRINT+12
>> AMHPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
AMHPROB PROBLIST+1!, PROB1+2, PROBCODE+1!, PROB2+2
AMHPROB( PROB1+5*, PROB2+6*, GETDATES+2, PROC1+7
AMHPROB(0 PROB1+3, PROB1+4, PROB2+3, PROB2+4
>> AMHPTYPE TYPE+1*, TYPE+4*, TYPE+5
AMHQ START+4!, PRINT+3!, PRINT+4, PRINT+5, PRINT+6, PRINT+8, PRINT+11, PRINT+15, HEADER+2*
>> AMHR PROC+7*, PROC1+1, PROC1+5, PROC1+7, PROC1+9, PRINT+9*, PRINT+10, PRINT+12
>> AMHR0 PROC+7*, PROC1+2
>> AMHRCNT PROC+7*
AMHS PRINT+17*, PRINT+18, DONE+3!
>> AMHSD ED+4*, PROC+6*, PROC+7
>> AMHSORT PROC1+7*
AMHTS DONE+3!
D D~, D+1, D+2
DA TYPE+2!, ZIS+1!
>> DFN PROC1+2*, PROC1+3, PROC1+4, PROC1+8, PROC1+9, PRINT+3*, PRINT+5*, PRINT+7, PRINT+8, PRINT+9
, PRINT+10, PRINT+16, PRINT+17, PRINT+18
DFOUT EOP+4!
DIC PROB1+1!*, PROB2+1!*
DIC("A" PROB1+1*, PROB2+1*
DIC(0 PROB1+1*, PROB2+1*
DIR TYPE+2!, BD+2!, ED+1!, ZIS+1!, EOP+3~, DONE+1!, HEADER+2!
DIR("A" TYPE+2*, BD+2*, ED+1*, ZIS+1*, EOP+5*, DONE+1*
DIR("B" TYPE+2*, ZIS+1*
DIR(0 TYPE+2*, BD+2*, ED+1*, ZIS+1*, EOP+5*, DONE+1*, HEADER+2*
DIRUT TYPE+3, BD+2*, BD+3, ED+1*, ED+2, ZIS+2, EOP+4!, DONE+1*
DLOUT EOP+4!
DT PROC+2, HEADER1+2
DTOUT EOP+4!, HEADER+2
DUOUT BD+2, ED+1, EOP+4!, DONE+1
DUZ PROC1+1, PROC1+3, USR+1, HEADER1+2
DUZ(2 START+5, LOC+1, PRINT+7
IO DONE+1, HEADER+2
IO("S" EOP+2
IO(0 DONE+1, HEADER+2
IOF START+2, START+3, GETDATES+1, DONE+2, HEADER1+1
IOM CTR+1
IOSL PRINT+6, PRINT+11, PRINT+15
IOST EOP+1, DONE+1, HEADER+2
>> IOT EOP+2
>> P PROC1+7*, PROC1+8, PROC1+9
U PROB2+6, GETDATES+2, PROC+7, PROC1+2, PROC1+7, PROC1+8, PROC1+9, USR+1, LOC+1, PRINT+7
, PRINT+10, PRINT+12, PRINT+16, PRINT+17, PRINT+18, HEADER1+2
X PROB1+4, PROB2+4, PROB2+6*, GETDATES+2*, PROC1+7*, CTR~, CTR+1, HEADER1+4*
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y TYPE+4, PROB1+2, PROB1+3, PROB1+5, PROB2+2, PROB2+3, PROB2+6, BD+4, ED+1*, ED+3
, ZIS+3, CTR~, CTR+1, HEADER+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