Routine: PSODLKP

Package	Total	Call Graph
VA Fileman	7	^DIC FILE^DICN DQ^DICQ ^DIE (,IX)^DIK Y^DIQ ^DIR
Outpatient Pharmacy	1	WRAP^PSODEDT

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOD CREATE ANSWER SHEET PSODEDT

Entry Points

External References

Name	Field # of Occurrence
^DIC	CREATE+5
FILE^DICN	LOOP+1
DQ^DICQ	STUFF+11
^DIE	DIE+2, STUFF+4
^DIK	DELETE+1
IX^DIK	MOVE+4
Y^DIQ	STUFF+5, STUFF+6
^DIR	ASK+9, QAIRE
WRAP^PSODEDT	ASK+1, QUES2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CREATE+1
Function Call: WRITE	Prompt: !,"SEQUENCE NUMBER: ",PSA Line Location: CREATE+3
Function Call: WRITE	Prompt: !! Line Location: EXIT+4
Function Call: WRITE	Prompt: !,"Entry is being edited by another user. Try Later!" Line Location: DIE+1
Function Call: WRITE	Prompt: $C(7),!,"Trying to Lock ^PS(50.0731,0)" Line Location: NEW+0
Function Call: WRITE	Prompt: !,$C(7)," REQUIRED!" Line Location: QAIRE+2
Function Call: WRITE	Prompt: !!," Sorry, that Questionnaire is incomplete.",!," Please review it before proceeding!" Line Location: QAIRE+3
Function Call: WRITE	Prompt: !?5,"This Drug requires the following Active Questionnaires:" Line Location: STUFF+10
Function Call: WRITE	Prompt: $C(7),!,"Deleting SEQUENCE NUMBER: ",PSA Line Location: DELETE+0
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 '^' to bypass." Line Location: QUES2+3
Function Call: WRITE	Prompt: !! Line Location: CREATE1+1
Function Call: WRITE	Prompt: !,"SEQUENCE NUMBER: ",PSA Line Location: CREATE1+3
Routine Call	DIE Line Location: DIE+2 STUFF+4
Routine Call	DIC Line Location: CREATE+5
Routine Call	DIR Line Location: ASK+9 QAIRE

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	DIE+1, NEW
^DD(50.0731	STUFF+5, STUFF+6
^PS(50.073 - [#50.073]	QAIRE+3, MOVE+1, MOVE+2*, STUFF+7, STUFF+8, STUFF+9, CHECK+1, CHECK1
^PS(50.0731 - [#50.0731]	DIE+1, DIE+2, GETQUES, ASK+8, ASK+12, NEW, NEW+1, LOOP, LOOP+1, QAIRE+4 , MOVE+1, MOVE+2
^PS(50.0732 - [#50.0732]	GETQUES, MOVE+1*
^PSRX - [#52]	CHECK+1, CHECK1, CREATE1+4

Label References

Name	Line Occurrences
ASK	GETQUES
CHECK1	CHECK+1
CREATE1	CHECK1
DELETE	CREATE+6, CREATE+9, CREATE1+6
DIE	CREATE+10, CREATE1+7
EXIT	CREATE+6, CREATE+9, CHECK1, CREATE1+6
LOOP	LOOP
NEW	CREATE+2, NEW, LOOP+4, CREATE1+2
QAIRE	CREATE+8, QAIRE+2, CREATE1+5
STUFF	CREATE+8, CREATE1+5

Naked Globals

Name	Field # of Occurrence
^(	GETQUES, MOVE+1
^(0	GETQUES, QAIRE+3, MOVE+1, CREATE1+4
^(1	ASK+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	STUFF+5, STUFF+6
CNT	EXIT!, STUFF+8*, STUFF+9
D	EXIT!, STUFF+11*!
DA	EXIT!, DIE+1!, DIE+2!, QAIRE!, MOVE+4!, STUFF+4!, DELETE+1
DD	LOOP+1!
DIC	CREATE+4, CREATE+5!, EXIT!, LOOP+1!, LOOP+2!, STUFF+11*!
DIC("A"	CREATE+4*
DIC("DR"	LOOP+1*
DIC("S"	STUFF+11*
DIC(0	CREATE+4, LOOP+1, STUFF+11*
DIE	EXIT!, DIE+1!, DIE+2!, STUFF+4!
DIK	EXIT!, MOVE+4!, DELETE+1
DINUM	EXIT!, LOOP+1*, LOOP+2!
DIR	EXIT!, ASK+9!, QAIRE!
DIR("??"	ASK+4*
DIR("A"	ASK+4*
DIR("B"	ASK+7!, ASK+8, STUFF+9
DIR(0	ASK+5, ASK+6, QAIRE*
DIROUT	EXIT!
DIRUT	EXIT!
DLAYGO	EXIT!, LOOP+1*, LOOP+2!
DO	LOOP+1!
DR	EXIT!, DIE+1!, DIE+2!, STUFF+4!
DTOUT	CREATE+6, EXIT!, ASK+10, QAIRE+1
DUOUT	CREATE+6, EXIT!, ASK+10, QAIRE+1
DUZ	LOOP+1
DZ	EXIT+1!, STUFF+11*!
FLAG	EXIT+1!, MOVE, MOVE+1, MOVE+2, MOVE+5!
I	EXIT+1!, MOVE+1*
K	EXIT+1!
L	EXIT+1!, STUFF+8*
LL	EXIT+1!, STUFF+8*, STUFF+9
PID	EXIT+3!
PSA	CREATE+3, EXIT+1!, DIE+1!, GETQUES, ASK+8, ASK+12, QAIRE+4, MOVE+1, MOVE+2, MOVE+4 , STUFF+4, DELETE, DELETE+1, CREATE1+3
PSDFN	EXIT+1!, STUFF+3*, STUFF+4, STUFF+6
PSDIG	EXIT+1!, ASK+3*, ASK+5, QUES2+2
PSDRUG	EXIT+1!, STUFF+3*, STUFF+4, STUFF+5, STUFF+7, STUFF+8
PSHI	EXIT+1!, ASK+2*, ASK+5, QUES2+2
PSKIP	EXIT+3!, STUFF!, STUFF+2*
PSLEN	EXIT+1!, ASK+3*, ASK+5, QUES2+1
PSLO	EXIT+1!, ASK+2*, ASK+5, QUES2+2
PSMARG	EXIT+1!
>> PSODDRG	CHECK+1*, CHECK1
>> PSONEW("IRXN"	CHECK+1, CHECK1
>> PSOSITE	STUFF+4, CHECK1
>> PSOST	CHECK1*
>> PSOSTE	CHECK1*
PSPROV	EXIT+2!, STUFF+3*, STUFF+4
PSQ	EXIT+2!, GETQUES*, ASK+2, ASK+3
PSQA	CREATE+9, EXIT+2!, QAIRE!, QAIRE+4*, MOVE+1, MOVE+2, CREATE1+6
PSQN	EXIT+2!, GETQUES*, ASK+8, ASK+12
PSQNUM	EXIT+2!, GETQUES*
PSQP	EXIT+2!, GETQUES*
PSTXT	EXIT+2!
PSTYP	EXIT+2!, ASK+2*, ASK+5, QUES2, QUES2+1, QUES2+2
PSWRAP	EXIT+2!
PZPOP	EXIT+1!, GETQUES, ASK, ASK+10
RX0	CREATE+7, EXIT+2!, STUFF+3, CHECK1, CREATE1+4*
RXM	CREATE+7, EXIT+2!, CREATE1+4
RXN	CREATE+7, EXIT+2!, STUFF+1, STUFF+4, CHECK1, CREATE1+4
X	EXIT+2!, ASK+11, ASK+12, NEW+1, LOOP*, LOOP+1
Y	CREATE+3, CREATE+7, EXIT+2!, ASK+11, LOOP+3, QAIRE+2, QAIRE+3, QAIRE+4, STUFF+5, STUFF+6 , CREATE1+3
Y(0	CREATE+7, ASK+11

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODLKP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DIE	;Enter here from PSODLKP,PSODEDT. Edit the DUE Answer sheet
CREATE	;Create a new DUE ANSWER entry
MOVE
QAIRE
CHECK	;CHECK FOR DRUG MATCH FROM ORDER ENTRY
CREATE1	;Create a new DUE ANSWER entry
STUFF
EXIT
QUES2
ASK
NEW
CHECK1
GETQUES
LOOP
DELETE