Routine: APSPQ1

Information

APSPQ1 ; IHS/DSD/ENM - BHAM ISC/JrR/EnM - CREATE/EDIT DUE ANSWER FILE ENTRY ; [ 09/03/97 1:30 PM ]

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPQ

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	CREATE+5
FILE^DICN	LOOP+1
DQ^DICQ	STUFF+12
^DIE	DIE+1, 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: EP+1
Function Call: WRITE	Prompt: !,"SEQUENCE NUMBER: ",PSA Line Location: EP+3
Function Call: WRITE	Prompt: !,"Rx #: ",PSONEW("RX #") Line Location: EP+5
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: *7,!,"TRYING TO LOCK ^PS(50.0731,0)" Line Location: NEW+0
Function Call: WRITE	Prompt: !,*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+11
Function Call: WRITE	Prompt: *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+1 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(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, 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	EP1+4, CREATE1+6
DIE	EP1+5, CREATE1+7
EP1	EP+7
EXIT	EP1+4, CHECK1, CREATE1+6
LOOP	LOOP
NEW	EP+2, CREATE+2, NEW, LOOP+4, CREATE1+2
QAIRE	EP1+3, QAIRE+2, CREATE1+5
STUFF	EP1+3, 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+12*!
DA	EXIT!, DIE+1!, QAIRE!, MOVE+4!, STUFF+4!, DELETE+1
DD	LOOP+1!
DIC	CREATE+4, CREATE+5!, EXIT!, LOOP+1!, LOOP+2!, STUFF+12*!
DIC("A"	CREATE+4*
DIC("DR"	LOOP+1*
DIC("S"	STUFF+12*
DIC(0	CREATE+4, LOOP+1, STUFF+12*
DIE	EXIT!, DIE+1!, 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!, STUFF+4!
DTOUT	EXIT!, ASK+10, QAIRE+1
DUOUT	EXIT!, ASK+10, QAIRE+1
DUZ	LOOP+1
DZ	EXIT+1!, STUFF+12*!
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!
POP	EXIT+1!, GETQUES, ASK, ASK+10
PSA	EP+3, 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	EP+6*, EXIT+1!, STUFF+4, STUFF+6
PSDIG	EXIT+1!, ASK+3*, ASK+5, QUES2+2
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
>> PSODFN	EP+6
>> PSODRUG("IEN"	STUFF+4, STUFF+5, STUFF+7, STUFF+8
>> PSONEW("IRXN"	STUFF+4, CHECK+1, CHECK1
>> PSONEW("PROVIDER"	STUFF+4
>> PSONEW("RX #"	, EP+5
>> PSOSITE	STUFF+4, CHECK1
>> PSOST	CHECK1*
>> PSOSTE	CHECK1*
PSPROV	EXIT+2!
PSQ	EXIT+2!, GETQUES*, ASK+2, ASK+3
PSQA	EP1+4, 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!
RX0	EXIT+2!, CHECK1, CREATE1+4
RXM	EXIT+2!, CREATE1+4*
RXN	EXIT+2!, CHECK1*, CREATE1+4
X	EXIT+2!, ASK+11, ASK+12, NEW+1, LOOP*, LOOP+1
Y	EP+3, CREATE+3, EXIT+2!, ASK+11, LOOP+3, QAIRE+2, QAIRE+3, QAIRE+4, STUFF+5, STUFF+6 , CREATE1+3
Y(0	ASK+11

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPQ1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: