Routine: AMHRNSIG

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK
Mental Health Social Services	4	$$DATE^AMHESIG $$CTR^AMHLEIN ($$ALLOWP,$$ALLOWVI,$$PPINT,$$PPNAME,DBHUSR,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS Patient	1	($$HRN,KILL)^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SORT	;
ZIS	;
HEADER	;EP
BROWSE	;
PROV	;
PRINT	;EP - called from xbdbque
PRINT1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
START	;EP - called from option
PROC	;EP - called from xbdbque
GETDATES	;
XIT	;
ED	;get ending date
PROG	;
HEADER1	;
DEMO	;
SORTVAL(R,V)	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4, PROC+4
$$DATE^AMHESIG	START+10, BD+1
$$CTR^AMHLEIN	START+3, HEADER1+8, HEADER1+9
$$ALLOWP^AMHUTIL	PROC+12
$$ALLOWVI^AMHUTIL	PROC+10
$$PPINT^AMHUTIL	PROC+9
$$PPNAME^AMHUTIL	SORTVAL+5, PRINT1+8
DBHUSR^AMHUTIL	START+13
XTMP^AMHUTIL	PROC+3
$$DEMO^AMHUTIL1	PROC+13
DEMOCHK^AMHUTIL1	DEMO+1
$$HRN^AUPNPAT	PRINT1+8
KILL^AUPNPAT	XIT+2
^DIC	PROV+5
^DIR	BD+1, ED+1, PROG+2, PROG+5, PROV+2, SORT+2, ZIS+1, HEADER+2
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRINT1+9, PRINT1+10
$$EXTSET^XBFUNC	HEADER1+8
EN^XBVK	XIT+1
$$FMTE^XLFDT	START+11, PRINT1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR^AMHLEIN(X,80) Line Location: START+3
Function Call: WRITE	Prompt: !!,"This report will display a list of all encounter records containing" Line Location: START+4
Function Call: WRITE	Prompt: !,"unsigned SOAP/Progress Notes in a date range specified by the user. After" Line Location: START+5
Function Call: WRITE	Prompt: !,"the report is displayed, the user will have the option of affixing an" Line Location: START+6
Function Call: WRITE	Prompt: !,"electronic signature to an unsigned SOAP/Progress Note." Line Location: START+7
Function Call: WRITE	Prompt: !!,"Electronic Signature is not turned on at your facilty. You",!,"cannot run this report.",! Line Location: START+8
Function Call: WRITE	Prompt: !!,"An Electronic Signature start date has not been recorded. You",!,"cannot run this report.",! Line Location: START+9
Function Call: WRITE	Prompt: !!,"ESIG was implemented on ",$$FMTE^XLFDT(D),". Only visits after this date will" Line Location: START+11
Function Call: WRITE	Prompt: !,"display on this report.",! Line Location: START+12
Function Call: WRITE	Prompt: !!,"Please enter the range of dates for the Unsigned visits" Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"There were no Unsigned Encounter Records during the time period.",! Line Location: PRINT1+2
Function Call: WRITE	Prompt: !!,"Total # of Unsigned Visits: ",AMHTOT,! Line Location: PRINT1+14
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",AMHPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?(80-$L(AMHTEXT)/2),AMHTEXT,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: ?(80-$L(AMHTEXT)/2),AMHTEXT,! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR^AMHLEIN(X,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $$CTR^AMHLEIN(X,80),! Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?27,"HRN",?34,"DATE/TIME",?53,"PROVIDER",?73,"PG",?76,"GRP" Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEADER1+11
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: BD+1 ED+1 PROG+2 PROG+5 PROV+2 SORT+2 ZIS+1 HEADER+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROC+7, PROC+8, PROC+11, PROC+15, SORTVAL+3, SORTVAL+6, PRINT1+7, PRINT1+8
^AMHREC("B"	PROC+5, PROC+6
^DIC(4 - [#4]	HEADER1+3
^DPT - [#2]	SORTVAL+3, PRINT1+8
^VA(200 - [#200]	HEADER1+9
^XTMP("AMHRNSIG"	PROC+16*, PRINT+2!, PRINT1+2, PRINT1+4, PRINT1+5

Label References

Name	Line Occurrences
$$SORTVAL	PROC+16
BD	ED+2
BROWSE	ZIS+3
GETDATES	PROG+3
HEADER	PRINT1+2, PRINT1+3, PRINT1+6, PRINT1+13
HEADER1	HEADER+1
PRINT1	PRINT+1
PROG	PROG+6, PROG+7, PROV+3
PROV	PROG+4, PROV+7, SORT+3
SORT	PROV+4, DEMO+2
XIT	START+1, BD+2, ZIS+2, ZIS+3, ZIS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBD	BD+3*, ED+1, ED+4, PROC+4
>> AMHBDD	ED+4*, HEADER1+6
>> AMHBT	PROC+2*, PROC+16, PRINT+2, PRINT1+2, PRINT1+4, PRINT1+5
>> AMHDEMO	DEMO+1, DEMO+2, PROC+13
>> AMHED	ED+3*, ED+4, PROC+5
>> AMHEDD	ED+4*, HEADER1+6
>> AMHJOB	PROC+2*, PROC+16, PRINT+2, PRINT1+2, PRINT1+4, PRINT1+5
>> AMHODAT	PROC+5*, PROC+6
>> AMHPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+3
>> AMHPROG	PROG+1, PROG+8, PROC+7, HEADER1+8
>> AMHPROV	PROV+1, PROV+8, PROC+9, HEADER1+9
>> AMHPTOT	PROC+2*
AMHQ	PRINT1+1!, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+12, PRINT1+13, HEADER+2*
>> AMHR	PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+15, PROC+16, PRINT1+5, PRINT1+7 , PRINT1+8, PRINT1+9, PRINT1+10
>> AMHSD	ED+4, PROC+4, PROC+5
>> AMHSORT	SORT+1, SORT+4, PROC+16, PRINT1+4*, PRINT1+5
>> AMHTEXT	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
>> AMHTOT	PROC+2, PROC+16, PRINT1+14
>> D	START+10*, START+11
DA	PROG+2!, PROG+5!, PROV+2!, PROV+6!, SORT+2!, ZIS+1!
>> DFN	PROC+11, PROC+12, PROC+13, PRINT1+7, PRINT1+8
DIC	PROV+5*, PROV+6!
DIC("A"	PROV+5*
DIC(0	PROV+5*
DIR	BD+1!, ED+1!, PROG+2!, PROG+5!, PROV+2!, SORT+2!, ZIS+1!, HEADER+2!
DIR("A"	BD+1, ED+1, PROG+2, PROG+5, PROV+2, SORT+2, ZIS+1*
DIR("B"	PROG+2, PROV+2, SORT+2, ZIS+1
DIR(0	BD+1, ED+1, PROG+2, PROG+5, PROV+2, SORT+2, ZIS+1, HEADER+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+3, PROG+6, PROV+3, SORT+3, ZIS+2
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1
DUZ	PROC+10, PROC+12
DUZ(2	PRINT1+8, HEADER1+3
G	SORTVAL+1~, SORTVAL+2, SORTVAL+3, SORTVAL+4, SORTVAL+5*
IO	HEADER+2
IO(0	HEADER+2
IOF	START+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT1+6, PRINT1+13
IOST	HEADER+2
R	SORTVAL~, SORTVAL+3, SORTVAL+5, SORTVAL+6
U	PROC+7, PROC+8, PROC+11, PROC+15, SORTVAL+3, SORTVAL+6, PRINT1+7, PRINT1+8, HEADER1+3, HEADER1+9
V	SORTVAL~, SORTVAL+2, SORTVAL+5, SORTVAL+6
X	START+3, ED+4, PROG+7, PROC+4, CTR~, CTR+1, HEADER1+8, HEADER1+9*
>> X1	ED+4, PROC+4
>> X2	ED+4, PROC+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	BD+3, ED+1, ED+3, ED+4, PROG+4, PROG+8, PROV+4, PROV+7, PROV+8, SORT+4 , ZIS+3, CTR~, CTR+1, HEADER+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRNSIG

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: