Routine: PSODUE

Package

Total

Call Graph

^DIC ^DIE ^DIR

QOUT^PSODACT

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOD BATCH PRINT QUESTIONNAIRE PSOD DUE BUILD QUESTIONNAIRE

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry is being edited by another user. Try Later!",! Line Location: B2+1
Function Call: WRITE	Prompt: @IOF,?(IOM\2-($L(PSOQM)\2)-4),"* ",PSOQM," *",! Line Location: OUT+1
Function Call: WRITE	Prompt: !,"DRUG: __________________________" Line Location: OUT+2
Function Call: WRITE	Prompt: !! Condition for execution: (IOM-$X)<($L(X)+4) Line Location: X+0
Function Call: WRITE	Prompt: ?(TAB),X Line Location: X+0
Routine Call	DIE Line Location: B2+2
Routine Call	DIC Line Location: B2 PRINT+1
Routine Call	DIR Line Location: PRINT+4
Routine Call	%ZIS Line Location: PRINT+7

FileNo	Call Tags
^PS(50.073 - [#50.073]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	B2+1
^PS(50.073 - [#50.073]	B2+1, B2+2, OUT

Name	Field # of Occurrence
%ZIS	PRINT+7!*
DA	B2+1*, EXITB!
DIC	B2!, EXITB!, PRINT+1!
DIC(0	B2, PRINT+1
DIE	B2+1*, EXITB!
DIR	PRINT+4!
DIR("?"	PRINT+4*
DIR("A"	PRINT+4*
DIR(0	PRINT+4*
DIROUT	EXITP+2!
DIRUT	EXITP+2!
>> DLAYGO	B2*
DR	B2+1*, EXITB!
DTOUT	EXITP+1!
DUOUT	EXITP+1!
IO	START+1
IO("Q"	PRINT+8!
IOF	OUT+1
IOM	OUT+1, X
ION	PRINT+7
IOP	PRINT+7!*
POP	PRINT+7, EXITP+2!
PSDASH	EXITP+1!, OUT+9!
PSI	START+2*, EXITP+2!
PSIGN	EXITP+1!
PSLOCK	EXITB!, EXITP+2!
PSMARG	EXITP+2!
PSODUEL	B2+1*, B2+2!
PSOION	PRINT+7*!, PRINT+8!
PSOQ	START+2*, OUT, OUT+9!
PSOQAIR	PRINT+3*, START+2, EXITP+1!
PSOQL	EXITP+2!
PSOQM	EXITP+1!, OUT*, OUT+1, OUT+9!
PSOQN	EXITP+1!
PSQ	EXITP+1!
PSQA	EXITP+1!
PSQCNT	PRINT+6*, START+2, EXITP+1!
PSQNUM	EXITP+1!
PSQTYP	EXITB!, EXITP+2!
PSQUEST	EXITB!, EXITP+2!
PSRC	B2+2!
PSTXT	EXITP+1!
PSWRAP	EXITP+1!
TAB	EXITP+2!, X*
X	EXITB!, EXITP+2!, OUT+3, OUT+4, OUT+5, OUT+6, OUT+7*, X
Y	B2, B2+1, EXITB!, PRINT+2, PRINT+3, PRINT+5, PRINT+6, EXITP+2!
>> ZTDESC	PRINT+8*
ZTDTH	PRINT+7!
>> ZTRTN	PRINT+8*
ZTSAVE	PRINT+7!
ZTSAVE("PSOQAIR"	PRINT+8*
ZTSAVE("PSQCNT"	PRINT+8*
ZTSAVE("ZTREQ"	PRINT+8*
ZTSK	PRINT+7!, PRINT+8!

Information

Name	Comments	DBIA/ICR reference
EXITP
START	;Start here when print is queued
BUILD	;Build/Edit a DUE Survey Questionnaire
B2
EXITB
PRINT	;Batch print a Due Questionnaire
X
OUT