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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMHRGADO

Package: Mental Health Social Services

Routine: AMHRGADO


Information

AMHRGADO ; IHS/CMI/LAB - BROWSE VISITS ;

Source Information

Source file <AMHRGADO.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 3 $$FMTE^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
Mental Health Social Services 3 PAUSE^AMHLEA  $$D^AMHRPEC  ($$ALLOWP,$$ALLOWVI,$$PPINT,$$PPNAME,$$SSN,DBHUSR,NALLOWP)^AMHUTIL  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBVK  
Registration 2 EN^VALM  (CLEAR,FULL)^VALM1  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 (,$$HRN)^AUPNPAT  
PCC Medical Query 1 PEP^AMQQGTX0  
Patient Care Component Reports 1 $$PRIMPROV^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health Social Services 1 AMHRGADM  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
HDR ; -- header code
S1 ;
EP(DFN) ;EP to list for one patient
CLIN ;
EXPND ; -- expand code
FF ;EP
PRINT ;EP - called from xbdbque
HELP ; -- help code
PRINT1 ;
CP ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
HASGAD(V) ;EP - does this visit have a GAD measurement
INIT ; -- init variables and list array
A ;all visits
END ;
D ;date range
L ;get patients last visit
S(Y,F,C,T) ;EP - set up array
N ;patients last N visits
P ;
R ;on program
WHICH ;
HASGADV(V) ;EP
START ;
PROV ;
GATHER ;
EXIT ; -- exit code

External References

Name Field # of Occurrence
PAUSE^AMHLEA PAT+6
$$D^AMHRPEC GATHER+46, GATHER+60
$$ALLOWP^AMHUTIL PAT+6
$$ALLOWVI^AMHUTIL L+4, R+5, P+5
$$PPINT^AMHUTIL P+5
$$PPNAME^AMHUTIL GATHER+54
$$SSN^AMHUTIL FF+4
DBHUSR^AMHUTIL START+5
NALLOWP^AMHUTIL PAT+6
PEP^AMQQGTX0 CLIN+2, PROV+2
$$PRIMPROV^APCLV GATHER+68
^AUPNPAT PAT+5, EP+8
$$HRN^AUPNPAT GATHER+5
^DIC PAT+2, CLIN+1, PROV+1
^DIR WHICH+6, CP+3, N+2, R+2, D+3, D+5, P+2, FF+1
EN^VALM BROWSE+3
CLEAR^VALM1 BROWSE+5
FULL^VALM1 BROWSE+6, EP+2
$$VAL^XBDIQ1 HASGAD+3, HASGADV+3, GATHER+48, GATHER+55, GATHER+57, GATHER+62, GATHER+69, GATHER+71
EN^XBVK START+2
$$FMTE^XLFDT PAT+7, GATHER+4, FF+4
$$REPEAT^XLFSTR GATHER+8
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR("GAD-2 and GAD-7 Generalized Anxiety Disorder Outcomes - Scores for One Patient",80),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"This option is used to list GAD2 and GAD7 Scores for one patient within",!,"a date range specified by the user.",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"No Patient Selected."
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !!,"Please note: Only visits with GAD2 and GAD7 scores recorded will",!,"display on this list.",!
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: $$CTR("GAD Scores",80)
  • Line Location: EP+7
Function Call: WRITE
  • Prompt: !!,"No visits on file for this patient.",!
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: D+8
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLIN+1
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: PROV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Function Call: WRITE
  • Prompt: !!,$TR($J(" ",79)," ","*"),!,$P(^DPT($P(AMHR0,U,8),0),U),?32,"HRN: "
  • Line Location: FF+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • BROWSE+3
Routine Call
  • DIC
  • Line Location:
    • PAT+2
    • CLIN+1
    • PROV+1
Routine Call
  • DIR
  • Line Location:
    • WHICH+6
    • CP+3
    • N+2
    • R+2
    • D+3
    • D+5
    • P+2
    • FF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMQQ(5 - [#9009075] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] R+5, P+5, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+22, GATHER+45
^AMHREC("AE" L+4, R+5
^AMHREC("AF" P+5
^AMHREC("AVISIT" GATHER+27
^AMHREC("C" GATHER+10
^AMHRMSR - [#9002011.12] GATHER+49, GATHER+50
^AMHRMSR("AD" HASGAD+3, GATHER+48
^AMHRPRO("AD" GATHER+56
^AMHRPROV - [#9002011.02] GATHER+18
^AMHRPROV("AD" GATHER+17
^AUPNPAT - [#9000001] FF+3
^AUPNVMSR - [#9000010.01] GATHER+63, GATHER+64
^AUPNVMSR("AD" HASGADV+3, GATHER+62
^AUPNVPOV("AD" GATHER+70
^AUPNVPRV - [#9000010.06] GATHER+34
^AUPNVPRV("AD" GATHER+33
^AUPNVSIT - [#9000010] GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+38, GATHER+60
^AUPNVSIT("AC" GATHER+25
^DPT - [#2] WHICH+6, GATHER+4, FF+2, FF+4
^TMP("AMHRGADO" BROWSE+1!, BROWSE+4!, PRINT+5!, PRINT1+3, PRINT1+5, GATHER+1!, S1+2*, INIT+1
^VA(200 - [#200] P+2

Label References

Name Line Occurrences
$$CTR START+3, EP+7
$$HASGAD GATHER+11
$$HASGADV GATHER+26
@( WHICH+9
BROWSE CP+6
CLIN CP+7
CP CP+7, CP+8
D D+7
FF PRINT1+4
GATHER BROWSE+2, PRINT+3
PAT PAT+6, EP+5
PRINT1 PRINT+4
PROV CP+8
S GATHER+4, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GATHER+58, GATHER+72, GATHER+73
S1 S+4, S+6, S+9
WHICH CP+4, EP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+7*, S+8*
AMHBD WHICH+4*, EP+1~, N+4*, A+2*, D+1!, D+3*, D+7, GATHER+12, GATHER+28
AMHC GATHER+2~, GATHER+3*, S1+1*, S1+2
AMHCLN CP+6!, CP+7, CLIN+3, CLIN+4!, GATHER+14, GATHER+15, GATHER+30, GATHER+31
AMHCLN( GATHER+15, GATHER+31
AMHCLN("*" CLIN+4
>> AMHCNT GATHER+39*, GATHER+40, GATHER+41, GATHER+42*, GATHER+43, GATHER+73
>> AMHCP CP+1*, CP+5*, CP+6, CP+7, CP+8
AMHD GATHER+2~, GATHER+9*, GATHER+39*, GATHER+40, GATHER+41
AMHED WHICH+4*, EP+1~, N+4*, A+3*, D+1!, D+5*, D+7, GATHER+13, GATHER+29
AMHI GATHER+2~
AMHJ GATHER+2~
>> AMHNUM WHICH+4*, N+1*, N+4*, A+1*, D+9*, GATHER+39, GATHER+40, GATHER+41, GATHER+43
AMHP END+1!
AMHPROV CP+6!, CP+8, PROV+3, PROV+4!, GATHER+16, GATHER+32
AMHPROV( GATHER+20, GATHER+36
AMHPROV("*" PROV+4
AMHQUIT WHICH+2*, WHICH+9, END+1!, N+3*, R+3*, D+3*, D+5*, P+3*, PRINT+1*, PRINT1+3
, PRINT1+4, FF+1*
AMHR0 EP+1~, GATHER+45*, GATHER+46, FF+2, FF+3, FF+4
>> AMHRCNT GATHER+9*, GATHER+21*, GATHER+22*, GATHER+38*
>> AMHT GATHER+40*, GATHER+41, GATHER+44, GATHER+59
AMHV END+1!, EP+1~, EP+4!, GATHER+9*, GATHER+10*, GATHER+11, GATHER+12, GATHER+13, GATHER+14, GATHER+15
, GATHER+17, GATHER+22, GATHER+25*, GATHER+26, GATHER+27, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+33
, GATHER+38, GATHER+41*, GATHER+45, GATHER+48, GATHER+54, GATHER+55, GATHER+56, GATHER+60, GATHER+62, GATHER+68
, GATHER+69, GATHER+70
AMHV( L+4*, R+5*, P+5*, GATHER+22*, GATHER+38*, GATHER+39, GATHER+40, GATHER+41
AMHW WHICH+3*, WHICH+8*, WHICH+9, END+1!
AMHX EP+1~, PRINT1+2~, PRINT1+3*, PRINT1+5, GATHER+2~, GATHER+46*, GATHER+51*, GATHER+52*, GATHER+53*, GATHER+54*
, GATHER+55*, GATHER+57*, GATHER+58, GATHER+60*, GATHER+65*, GATHER+66*, GATHER+67*, GATHER+68*, GATHER+69*, GATHER+71*
, GATHER+72
AMHY EP+1~, GATHER+2~
AMHZ GATHER+2~
AUPNDAYS EP+1~
AUPNDOB EP+1~
AUPNDOD PAT+7, EP+1~
AUPNPAT EP+1~
AUPNSEX EP+1~
C L+4*, S~, S+6
D EP+3~, L+4*, R+5*, P+5*
DA PAT+2!, WHICH+6!, CP+3!, N+2!, R+2!, P+2!, CLIN+1!, PROV+1!
DFN PAT+1*, PAT+4*, PAT+5, PAT+6, WHICH+6, EP~, EP+5, EP+8, L+4, R+5
, P+5, GATHER+4, GATHER+5, GATHER+10, GATHER+25
DIADD PAT+2!
DIC PAT+2*!, CLIN+1*!, PROV+1*!
DIC("S" CLIN+1*, PROV+1*
DIC(0 PAT+2*, CLIN+1*, PROV+1*
DIR WHICH+5!, WHICH+6!, CP+3!, N+2!, R+2!, D+2!, D+4!, P+2!, FF+1!
DIR("A" WHICH+6*, CP+2*, N+2*, R+2*, D+2*, D+4*, P+2*
DIR("B" WHICH+6*, CP+3*, N+2*, R+2*, P+2*
DIR(0 WHICH+5*, CP+2*, N+2*, R+2*, D+2*, D+4*, P+2*, FF+1*
>> DIRUT WHICH+7, CP+4, N+3, R+3, P+3
DLAYGO PAT+2!
DR PAT+2!
DT N+4, A+3
>> DTOUT FF+1
DUZ PAT+6, L+4, R+5, P+2, P+5
DUZ(2 GATHER+5, FF+3
F S~, S+1*, S+4*
>> G GATHER+16*, GATHER+21*, GATHER+32*, GATHER+37*
>> H FF+3*, FF+4
IO FF+1
IO(0 FF+1
IOF START+1, EP+6, PRINT1+1, FF+5
IOM CTR+1
IOSL PRINT1+4
IOST FF+1, FF+2
>> J GATHER+47*, GATHER+53, GATHER+61*, GATHER+67
>> L S+6*
>> N R+1*, R+4*, R+5, P+1*, P+4*, P+5, GATHER+47*, GATHER+50*, GATHER+52, GATHER+61*
, GATHER+64*, GATHER+66
R EP+3~
T S~, S+2*, S+6*, S+7, S+8
U WHICH+6, R+5, P+2, P+5, GATHER+4, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+18
, GATHER+22, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+34, GATHER+38, GATHER+46, GATHER+49, GATHER+50
, GATHER+60, GATHER+63, GATHER+64, FF+2, FF+3, FF+4
V L+4*, R+5*, P+5*, HASGAD~, HASGAD+3, HASGADV~, HASGADV+3
>> VALMCNT INIT+1*
X CLIN+1*, PROV+1*, HASGAD+1~, HASGAD+2*, HASGAD+3*, HASGADV+1~, HASGADV+2*, HASGADV+3*, GATHER+4*, GATHER+5*
, GATHER+6*, GATHER+7*, GATHER+8*, GATHER+17*, GATHER+18, GATHER+33*, GATHER+34, GATHER+47*, GATHER+48*, GATHER+49
, GATHER+50, GATHER+56*, GATHER+57, GATHER+61*, GATHER+62*, GATHER+63, GATHER+64, GATHER+70*, GATHER+71, GATHER+73*
, CTR~, CTR+1, S+4*, S+5*, S+7*, S+8*, S1+2, HELP+1*
Y PAT+3, PAT+4, PAT+5*, WHICH+8, CP+5, EP+8*, N+4, R+4, D+3, D+5
, P+4, CLIN+1, CLIN+2, PROV+1, PROV+2, HASGAD+1~, HASGAD+3*, HASGADV+1~, HASGADV+3*, GATHER+18*
, GATHER+19, GATHER+20, GATHER+34*, GATHER+35, GATHER+36, GATHER+48*, GATHER+49, GATHER+50, GATHER+62*, GATHER+63
, GATHER+64, CTR~, CTR+1, FF+1, S~, S+5, S+6, S+8
Z HASGAD+1~, HASGAD+2*, HASGAD+3*, HASGAD+4, HASGADV+1~, HASGADV+2*, HASGADV+3*, HASGADV+4, GATHER+47*, GATHER+49*
, GATHER+51, GATHER+61*, GATHER+63*, GATHER+65
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All