Routine: AMHRGADM

Package	Total	Call Graph
Mental Health Social Services	4	($$CTR,$$D)^AMHLEIN ($$HASGAD,$$HASGADV)^AMHRGADO ($$ALLOWVI,$$PPINT,$$PPNAME,DBHUSR,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
VA Fileman	2	^DIC ^DIR
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	($$PRIMPROV,$$VD)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
DATES	;
ZIS	;
HEADER	;EP
BROWSE	;
PROV	;
CLINIC1	;
START	;
CLINIC	;
PROV1	;
XIT	;
WHICH	;
DEMO	;
PRINT	;EP - called from xbdbque
DONE	;
HEADER1	;
PROC	;

External References

Name	Field # of Occurrence
$$CTR^AMHLEIN	START+3, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$D^AMHLEIN	PRINT1+3, PRINT1+4
$$HASGAD^AMHRGADO	PROC+10
$$HASGADV^AMHRGADO	PROC+26
$$ALLOWVI^AMHUTIL	PROC+11
$$PPINT^AMHUTIL	PROC+13
$$PPNAME^AMHUTIL	PRINT1+18
DBHUSR^AMHUTIL	WHICH+2
XTMP^AMHUTIL	PROC+2
$$DEMO^AMHUTIL1	PROC+12
DEMOCHK^AMHUTIL1	DEMO+1
PEP^AMQQGTX0	CLINIC1+2, PROV1+2
$$PRIMPROV^APCLV	PROC+30, PRINT1+22
$$VD^APCLV	PRINT1+4
$$HRN^AUPNPAT	PRINT1+2
^DIC	CLINIC1+1, PROV1+1
^DIR	DATES+3, DATES+7, CLINIC+2, PROV+2, ZIS+1, DONE+2, HEADER+2
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRINT1+8, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+22, PRINT1+24
EN^XBVK	START+2, XIT+2
$$FMADD^XLFDT	DATES+13, PROC+23
$$FMTE^XLFDT	HEADER1+2, HEADER1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR^AMHLEIN("GAD-2 and GAD-7 Generalized Anxiety Disorder Outcomes - Scores ",80),$$CTR^AMHLEIN("for Multiple Patients",80),!! Line Location: START+3
Function Call: WRITE	Prompt: !,"This option is used to list GAD-2, and GAD-7 Scores for multiple " Line Location: START+4
Function Call: WRITE	Prompt: !,"patients sorted by patient.",! Line Location: START+5
Function Call: WRITE	Prompt: !!,"Please note: Only visits with GAD-2, and GAD-7 scores recorded will display",!,"on this list.",! Line Location: WHICH+1
Function Call: WRITE	Prompt: ! Line Location: DATES+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+12
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC1+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: PROV1+1
Function Call: WRITE	Prompt: !!,"NO PATIENTS/GAD SCORES TO REPORT" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$E(AMHNAME,1,15),?17,$$HRN^AUPNPAT(DFN,DUZ(2)) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?24,$$D^AMHLEIN($P($P(^AMHREC(AMHV,0),U,1),".")) Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?24,$$D^AMHLEIN($$VD^APCLV(AMHV)) Line Location: PRINT1+4
Function Call: WRITE	Prompt: ?34,T,?40,Z Line Location: PRINT1+16
Function Call: WRITE	Prompt: ?65,$$VAL^XBDIQ1(9002011.01,X,.01)_"-"_$E($$VAL^XBDIQ1(9002011.01,X,.04),1,6) Line Location: PRINT1+20
Function Call: WRITE	Prompt: ?65,$$VAL^XBDIQ1(9000010.07,X,.01)_"-"_$E($$VAL^XBDIQ1(9000010.07,X,.04),1,6) Line Location: PRINT1+24
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^AMHLEIN("GAD-2, and GAD-7 SCORES FOR MULTIPLE PATIENTS",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR^AMHLEIN(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR^AMHLEIN(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR^AMHLEIN(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,"PATIENT NAME",?17,"HRN",?24,"Date",?33,"GAD2",?40,"GAD7",?48,"Provider",?58,"CLINIC",?65,"Diagnosis/POV" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+9
Routine Call	DIC Line Location: CLINIC1+1 PROV1+1
Routine Call	DIR Line Location: DATES+3 DATES+7 CLINIC+2 PROV+2 ZIS+1 DONE+2 HEADER+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROC+6, PROC+16, PRINT1+3
^AMHREC("AVISIT"	PROC+27
^AMHREC("B"	PROC+4, PROC+5
^AMHRMSR - [#9002011.12]	PRINT1+9, PRINT1+10
^AMHRMSR("AD"	PRINT1+7
^AMHRPRO("AD"	PRINT1+19
^AUPNVMSR - [#9000010.01]	PRINT1+14, PRINT1+15
^AUPNVMSR("AD"	PRINT1+12
^AUPNVPOV("AD"	PRINT1+23
^AUPNVSIT - [#9000010]	PROC+28, PROC+33
^AUPNVSIT("B"	PROC+24, PROC+25
^DPT - [#2]	PROC+19, PROC+36
^VA(200 - [#200]	HEADER1+2
^XTMP("AMHRGADM"	PROC+19, PROC+36, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1!

Label References

Name	Line Occurrences
BROWSE	ZIS+3
CLINIC	CLINIC1+3, PROV+3, PROV1+3
DATES	DATES+8, DATES+11, CLINIC+3
DEMO	PROV+4
DONE	PRINT+2
HEADER	PRINT+1, PRINT1+1
HEADER1	HEADER+1
PRINT1	PRINT+7
PROV	CLINIC+4, DEMO+2
XIT	DATES+4, CLINIC1+1, PROV1+1, ZIS+2, ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHBD	DATES+1!, DATES+5*, DATES+11, DATES+13, XIT+1!, PROC+23, HEADER1+4
>> AMHBT	PROC+3*
AMHBTH	PROC+3*, PROC+19, PROC+36, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1!
>> AMHDATE	PRINT+5*, PRINT+6, PRINT+7
>> AMHDEMO	DEMO+1, DEMO+2, PROC+12
AMHED	DATES+1!, DATES+9*, DATES+11, XIT+1!, PROC+4, PROC+24, HEADER1+4
AMHJOB	PROC+3*, PROC+19, PROC+36, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1!
>> AMHNAME	PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT1+2
>> AMHPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
AMHPROVT	PROV+1!, PROV+4!, PROV1+3, PROV1+4!, PROC+14, PROC+15, PROC+31, PROC+32, HEADER1+6
AMHPROVT(	PROC+15, PROC+32
AMHPROVT("*"	PROV1+4
AMHQ	PRINT+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT1+1, HEADER+2*
AMHRCLNT	CLINIC+1!, CLINIC+4!, CLINIC1+3, CLINIC1+4!, PROC+17, PROC+18, PROC+34, PROC+35, HEADER1+5
AMHRCLNT(	PROC+18, PROC+35
AMHRCLNT("*"	CLINIC1+4
>> AMHSD	DATES+13, PROC+4, PROC+5, PROC+19, PROC+23, PROC+24, PROC+25, PROC+36
>> AMHT	PRINT+6*, PRINT+7, PRINT1+3, PRINT1+4, PRINT1+6, PRINT1+11, PRINT1+17, PRINT1+21
>> AMHV	PRINT+7*, PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+12, PRINT1+18, PRINT1+19, PRINT1+22, PRINT1+23
>> AMHV0	PROC+6*, PROC+7, PROC+8
>> AMHVCC	PROC+16, PROC+17, PROC+18, PROC+33, PROC+34, PROC+35
>> AMHVIEN	PROC+5, PROC+6, PROC+10, PROC+11, PROC+13, PROC+16, PROC+19, PROC+25, PROC+26, PROC+27 , PROC+28, PROC+30, PROC+33, PROC+36
>> AMHVPP	PROC+13, PROC+14, PROC+15, PROC+30, PROC+31, PROC+32
DA	CLINIC+2!, CLINIC1+1!, PROV+2!, PROV1+1!, ZIS+1!
>> DFN	PROC+8, PROC+9, PROC+12, PROC+19, PROC+28, PROC+29, PROC+36, PRINT+4*, PRINT+5, PRINT+6 , PRINT+7, PRINT1+2
DIC	CLINIC1+1!, PROV1+1!
DIC("S"	CLINIC1+1, PROV1+1
DIC(0	CLINIC1+1, PROV1+1
DIR	DATES+2!, DATES+6!, CLINIC+2!, PROV+2!, ZIS+1!, DONE+2!, HEADER+2!
DIR("A"	DATES+2, DATES+6, CLINIC+2, PROV+2, ZIS+1, DONE+2
DIR("B"	CLINIC+2, PROV+2, ZIS+1*
DIR(0	DATES+2, DATES+6, CLINIC+2, PROV+2, ZIS+1, DONE+2, HEADER+2*
>> DIRUT	DATES+4, DATES+8, CLINIC+3, PROV+3, ZIS+2, DONE+2*
DT	HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	DONE+2
DUZ	PROC+11, HEADER1+2
DUZ(2	PRINT1+2
IO	DONE+2, HEADER+2
IO("Q"	XIT+1!
IO(0	DONE+2, HEADER+2
IOF	START+1, HEADER1+1
IOSL	PRINT1+1
IOST	DONE+2, HEADER+2
>> J	PRINT1+5*
>> T	PRINT1+5, PRINT1+9, PRINT1+14*, PRINT1+16
U	PROC+8, PROC+16, PROC+19, PROC+28, PROC+33, PROC+36, PRINT1+3, PRINT1+9, PRINT1+10, PRINT1+14 , PRINT1+15, HEADER1+2
>> X	CLINIC1+1, PROV1+1, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+12, PRINT1+13, PRINT1+14 , PRINT1+15, PRINT1+19, PRINT1+20, PRINT1+23, PRINT1+24, HEADER1+4, HEADER1+5, HEADER1+6
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	DATES+5, DATES+9, CLINIC+4, CLINIC1+1, CLINIC1+2, PROV+4, PROV1+1, PROV1+2, ZIS+3, XIT+1! , PRINT1+5, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+13*, PRINT1+14, PRINT1+15, HEADER+2
>> Z	PRINT1+5, PRINT1+10, PRINT1+15*, PRINT1+16
ZTSK	XIT+1!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRGADM

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: