Prompt: !!!,"Total Number of Suicide Forms: ",AMHRCNT
Line Location: PROC+9
Function Call: WRITE
Prompt: !!,"Total Patients: ",AMHPTCT
Line Location: PROC+10
Function Call: WRITE
Prompt: !!,"SUB-TOTAL for ",AMHSORV," ",AMHSRTR,": ",AMHSCNT
Line Location: V+18
Function Call: WRITE
Prompt: " # of PATIENTS: ",$S($D(^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV)):^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV),1:0)
Line Location: V+18
Function Call: WRITE
Prompt: !,?10,$E(AMHSRTR,1,30),?45,$J(AMHSCNT,8)," (V)",?60,$S($D(^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV)):$J(^XTMP("AMHRL",AMHJOB,AMHBTH,"SUB PAT COUNT",AMHSRTV),8),1:" 0")," (P)"