Routine: AMHPDSM

Entry Points

Name	Comments	DBIA/ICR reference
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEAD
ZIS	;CALL TO XBDBQUE
HEAD1	;
INFORM	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
START	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
XIT	;EP
PRINT	;EP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"**** PRINT/LIST PROBLEM/DSM CODE TABLE ****",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report will print either to a printer or the screen, a list of all" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"active Problem/DSM codes. It will list the code, narrative, the 2 digit" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"problem code it is mapped to and the ICD9-Diagnosis code it is" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"mapped to." Line Location: INFORM+6
Function Call: WRITE	Prompt: !?9,^UTILITY($J,"W",0,X,0) Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?40,$$FMTE^XLFDT(DT),?68,"Page ",AMHPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$$CTR("******** BEHAVIORAL HEALTH PROBLEM/DSM CODES ********",80),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"CODE",?9,"NARRATIVE",?65,"PROBLEM",?73,"ICD-9",!,?65,"CODE",?73,"CODE" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD1+5
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIR Line Location: ZIS+1 HEAD+1 EOP+7

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	PRINT+5, PRINT+6, PRINT+8, PRINT+9
^AMHPROB("D"	PRINT+3, PRINT+4
^DIC(4 - [#4]	LOC+1
^UTILITY($J	PRINT+8!, PRINT+9, PRINT+10, PRINT+11, PRINT+13!
^VA(200 - [#200]	HEAD1+2, USR+1

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

Name	Field # of Occurrence
>> AMHPG	PRINT+1, HEAD, HEAD1+1, HEAD1+2
AMHQUIT	PRINT+2!, PRINT+3, PRINT+4, PRINT+7, HEAD+1*
>> AMHX	PRINT+3*, PRINT+4
>> AMHY	PRINT+4*, PRINT+5, PRINT+6, PRINT+8, PRINT+9
DA	ZIS+1!
DFOUT	EOP+5!
DIR	ZIS+1!, HEAD+1!, EOP+4~
DIR("A"	ZIS+1, EOP+7
DIR("B"	ZIS+1*
DIR(0	ZIS+1, HEAD+1, EOP+7*
DIRUT	ZIS+2, EOP+5!
>> DIWL	PRINT+8*
>> DIWR	PRINT+8*
DLOUT	EOP+5!
DT	HEAD1+2
DTOUT	HEAD+1, EOP+5!
DUOUT	EOP+5!
DUZ	HEAD1+2, USR+1
DUZ(2	LOC+1
IO	HEAD+1, EOP+2
IO("S"	EOP+3
IO(0	HEAD+1, EOP+2
IOF	INFORM+1, HEAD1+1
IOM	CTR+1
IOSL	PRINT+7
IOST	HEAD+1, EOP+1
>> IOT	EOP+3
U	PRINT+5, PRINT+6, PRINT+8, PRINT+9, HEAD1+2, USR+1, LOC+1
X	PRINT+8, PRINT+11, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	ZIS+3, HEAD+1, CTR~, CTR+1
>> ZTQUEUED	EOP+3