Routine: PSODEDT

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE EN^DIQ1 ^DIR
Outpatient Pharmacy	1	DIE^PSODLKP

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOD EDIT ANSWER SHEET PSODACT PSODLKP
IHS Changes To Pharmacy	1	APSPQ1

Entry Points

External References

Name	Field # of Occurrence
^DIC	SEQNUM
^DIE	EDIT+1
EN^DIQ1	DISPLAY+2
^DIR	ASK+1, DISPLAY
DIE^PSODLKP	EDIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: SEQNUM+4
Function Call: WRITE	Prompt: !,"Entry is being edited by another user. Try Later!" Line Location: EDIT+0
Function Call: WRITE	Prompt: !!!!!,"If you do not know the Sequence Number, you may search by any or all of the",!,"following fields: " Line Location: SEARCH+1
Function Call: WRITE	Prompt: !!?5,"QUESTIONNAIRE",!?5,"DRUG",!?5,"PROVIDER",!!?5,"Type '^' to exit.",! Line Location: SEARCH+2
Function Call: WRITE	Prompt: !!?5,"No Matches Found!!!",!! Line Location: SEARCH+10
Function Call: WRITE	Prompt: !! Line Location: SEARCH+11
Function Call: WRITE	Prompt: !!?2,"CHOOSE FROM...",!! Line Location: CHOICES+0
Function Call: WRITE	Prompt: !,PSQNUM,"." Line Location: WRAP+3
Function Call: WRITE	Prompt: ?($L(PSQNUM)+2),PSWRAP(K),! Line Location: W1+1
Function Call: WRITE	Prompt: !!,?5,"Enter Y for YES, N for NO, U for UNKNOWN." Line Location: QUES2+0
Function Call: WRITE	Prompt: !!,?5,"Enter a FREE TEXT answer from 1 to ",PSLEN," characters." Line Location: QUES2+1
Function Call: WRITE	Prompt: !!,?5,"Enter a number between ",PSLO," and ",PSHI,!,?5,"with a maximum of ",PSDIG," decimal digits." Line Location: QUES2+2
Function Call: WRITE	Prompt: !?5,"Enter carriage return to bypass." Line Location: QUES2+3
Function Call: WRITE	Prompt: !?5,"Enter '^' to exit." Line Location: QUES2+4
Routine Call	DIE Line Location: EDIT+1
Routine Call	DIC Line Location: SEQNUM
Routine Call	DIR Line Location: ASK+1 DISPLAY

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	CHOICES+2, DISPLAY
^DD("DILOCKTM"	EDIT
^PS(50.0731 - [#50.0731]	EDIT, EDIT+1, EDIT+3, SEARCH+8, SEARCH+9, GETN
^TMP("PSOD"	EXIT!, SEARCH!, SEARCH+8, SEARCH+9, SEARCH+10, SEARCH+11, CHOICES+3

Label References

Name	Line Occurrences
ASK	SEARCH+4
DISPLAY	CHOICES+3
EXIT	SEQNUM+1, EDIT, EDIT+2
GETIXN	SEARCH+8, SEARCH+9, GETN
GETN	SEARCH+8
PSODEDT	EDIT+4
SEARCH	SEQNUM+3
SEQNUM	SEQNUM+3, SEQNUM+4
W1	W1
WRAP	DISPLAY+4, QUES2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDIT, EDIT+1!, EXIT+1!, ASK!, DISPLAY+1, DISPLAY+3
DIC	SEQNUM!, EXIT+1!, CHOICES+1, CHOICES+4!
DIC("A"	SEQNUM*
DIC(0	SEQNUM*
DIE	EDIT*, EDIT+1!, EXIT+1!
DIQ	EXIT+1!, CHOICES+1*, CHOICES+4!
DIQ(0	CHOICES+1*
DIR	EXIT+1!, SEARCH!, ASK+1!
DIR(0	SEARCH+4, DISPLAY
DIROUT	EXIT+1!
DIRUT	EXIT+1!
DR	EDIT, EDIT+1!, EXIT+1!, CHOICES+1
DTOUT	SEQNUM+1, EXIT+1!, SEARCH!, SEARCH+4
DUOUT	EXIT+1!, SEARCH!, SEARCH+4
DX	EXIT+1!, CHOICES+2, DISPLAY
DY	EXIT+1!, CHOICES+2, DISPLAY
FLD	EXIT+1!, SEARCH+4, SEARCH+7, ASK+2
I	EXIT+1!, GETN, WRAP+2~, W1
ID	EXIT+1!, DISPLAY+3*
IOM	WRAP+4
IOSL	CHOICES+2
IX	EXIT+1!, SEARCH+8, SEARCH+9, GETN*, GETIXN
IXN	EXIT+1!, SEARCH+8, SEARCH+9, GETN, GETIXN*
IXS	EXIT+2!, SEARCH+6, SEARCH+7, SEARCH+8, SEARCH+9, GETN
K	WRAP+2~, W1+1*
N	EXIT+2!, SEARCH+8, SEARCH+9, CHOICES+3*, GETN, DISPLAY+1
PID	EXIT+2!, SEARCH!
PID(	DISPLAY+3
PSA	SEQNUM+2, SEQNUM+3, SEQNUM+4, EDIT, EDIT+3, EXIT+2!, SEARCH+11, CHOICES+5*
PSCH	EXIT+2!, SEARCH!
PSCH(	SEARCH+7, SEARCH+8, SEARCH+9, ASK+2*, GETN
PSDIG	EXIT+2!, QUES2+2
PSDPOP	EXIT+2!, SEARCH+12, CHOICES+3, DISPLAY
PSEED	EXIT+2!, SEARCH+8*
PSFLAG	EXIT+2!, SEARCH+3, SEARCH+5, ASK+2
PSHI	EXIT+2!, QUES2+2
PSHIT	EXIT+2!, SEARCH+8, GETN
PSIX	EXIT+2!, SEARCH!
PSL	EXIT+2!, CHOICES+2*, DISPLAY
PSLEN	EXIT+2!, QUES2+1
PSLO	EXIT+3!, QUES2+2
PSMARG	EXIT+3!, WRAP+4*, W1
PSODUEL	EDIT*, EDIT+1!
>> PSORM	WRAP+4
PSQ	EXIT+3!, DISPLAY+1, DISPLAY+3, WRAP+3
PSQN	EXIT+3!
PSQNUM	EXIT+3!, DISPLAY+1*, WRAP+3, W1+1
PSQP	EXIT+3!
PSTXT	EXIT+3!, WRAP+3, W1
PSTYP	EXIT+3!, QUES2, QUES2+1, QUES2+2
PSWRAP	EXIT+3!, WRAP+4, W1, W1+1
PSWRAP(	W1*, W1+1
X	SEQNUM+1, SEQNUM+3, EXIT+3!
Y	SEQNUM+2, EDIT+2, EXIT+3!, ASK+2, DISPLAY

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODEDT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: