Routine: APSPRT

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
IHS Changes To Pharmacy	1	(,EN)^APSPRT1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO PREPACK LOG

Entry Points

Name	Comments	DBIA/ICR reference
BODY	;
END
DISPLAY	;Displays labels
PRINT	;
ASKX	;Exit point for ASK subroutine
SETVARX	;
ADDX	;Exit point for ADD subroutine
START	;
ADD	;
EOJ	;Clean up variables
YESX	;
ASK	;Asks if label is correct
YES	;
DIE	;
SETVAR	;Displays labels
PRINTX	;

External References

Name	Field # of Occurrence
^APSPRT1	START+1
EN^APSPRT1	BODY+5
^DIC	ADD+5
YN^DICN	ASK+4, PRINT+4
^DIE	ADD+9, DIE+2
^DIK	ADD+13, ASK+7
^DIR	PRINT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Last Prepack Number : ",APSP("LASTP") Line Location: ADD+2
Function Call: WRITE	Prompt: " Last Unit Dose Number : ",APSP("LASTU"),!! Line Location: ADD+3
Function Call: WRITE	Prompt: !!,"DELETED !" Line Location: ADD+13
Function Call: WRITE	Prompt: !!!,"IS THIS CORRECT (Y/N) " Line Location: ASK+3
Function Call: WRITE	Prompt: !,"Enter a 'Y' if you accept this log entry, a 'N' if not and",!,"you wish to continue to edit it. You may also enter a '^' if you want to",!,"delete this entry." Line Location: ASK+6
Function Call: WRITE	Prompt: !!!,$E(APSP("LINE1"),1,APSP(22)),!,APSP("SIG") Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !,APSP("DRUG"),?(APSP(22)-$L(APSP("QTY"))),APSP("QTY") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,APSP("CNTL#"),?(APSP(22)-$L(APSPRT("EXPDATE"))),APSPRT("EXPDATE") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !!,"Do you wish to print the labels (Y/N) " Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"If you wish the labels to be printed enter a 'Y',",!,"if not enter a 'N'. The prepack or unit dose is still recorded." Line Location: PRINT+5
Function Call: WRITE	Prompt: !! Line Location: PRINT+7
Routine Call	DIE Line Location: ADD+9 DIE+2
Routine Call	DIC Line Location: ADD+5
Routine Call	DIR Line Location: PRINT+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APSPP(31 - [#9009031]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPP(31 - [#9009031]	ADD+10, ADD+13, YES+5*, SETVAR+1, SETVAR+2, SETVAR+4
^APSPP(31.1 - [#9009031.1]	SETVAR+2
^DD("DD"	SETVAR+6
^DD(9009031.1	SETVAR+11
^PSDRUG - [#50]	SETVAR+4

Label References

Name	Line Occurrences
@(	PRINT+12
ADD	BODY+1
ADDX	ADD+6, ADD+10
ASK	BODY+3, ASK+6, ASK+9
ASKX	ASK+5, ASK+7
BODY	BODY+2, BODY+4, BODY+7
DIE	ASK+8
DISPLAY	ASK+2
END	START+2, BODY+2
EOJ	BODY+2, BODY+4, END, PRINTX+1
PRINT	BODY+6, PRINT+5
PRINTX	PRINT+6, PRINT+10
SETVAR	ASK+1
SETVARX	SETVAR+10
YES	ASK+5
YESX	YES+2

Naked Globals

Name	Field # of Occurrence
^("TN"	SETVAR+1!, SETVAR+4
^(0	SETVAR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK+4, PRINT+2, PRINT+5, PRINT+6, PRINT+12, EOJ+4!
%Y	ASK+5, ASK+6, ASK+7, EOJ+4!
%ZIS	EOJ+6!
APSP	EOJ+3!
APSP("CNTL#"	YES+3, YES+4, SETVAR+5*, SETVAR+7, DISPLAY+4, EOJ+2!
APSP("COPIES"	YES+1, SETVAR+3, PRINT+7, PRINT+11*, EOJ+2!
APSP("DRUG"	SETVAR+4*, DISPLAY+3, EOJ+1!
APSP("EXPDATE"	SETVAR+5*, SETVAR+6
APSP("LASTP"	ADD+2, YES+3*, YES+5
APSP("LASTU"	ADD+3, YES+4*, YES+5
APSP("LINE1"	DISPLAY+1
APSP("LINE2"	DISPLAY+5
APSP("PRT"	PRINT+1*, PRINT+12
APSP("QTY"	SETVAR+3*, DISPLAY+3, EOJ+1!
APSP("QTYFLG"	EOJ+4!
APSP("SIG"	SETVAR+11*, DISPLAY+1
APSP("TYPE"	BODY+5, YES+1, YES+3, YES+4, SETVAR+8*, SETVAR+9, SETVAR+10, DISPLAY+1, DISPLAY+2, DISPLAY+5 , PRINT+1, EOJ+2!
APSP(22	SETVAR+7, DISPLAY+1, DISPLAY+3, DISPLAY+4, DISPLAY+5
APSP(29	YES+1
APSPDR	EOJ+6!
APSPDR1	EOJ+6!
APSPGC	EOJ+5!
APSPGY	EOJ+5!
APSPIG	EOJ+2!
APSPLBL	SETVAR+2*, SETVAR+4, SETVAR+11, EOJ+1!
APSPLOG	SETVAR+2*, SETVAR+3, SETVAR+5, SETVAR+8, EOJ+1!
APSPRT	EOJ+3!
APSPRT("ADD"	ADD+1!, ADD+8*, ADD+13, ASK+7, YES+2, EOJ+4!
APSPRT("DA"	ADD+7*, ADD+10, ADD+13, ASK+7
APSPRT("EXPDATE"	SETVAR+6, SETVAR+7, SETVAR+9*, DISPLAY+4, EOJ+2!
APSPRT("QUIT"	START+2, BODY+2, BODY+4, ADD+6, ADD+10, ADD+13, ASK+7, EOJ+3, EOJ+4!
APSPZLA	EOJ+5!
APSPZM	EOJ+5!
APSPZZL	EOJ+5!
DA	ADD+7, ADD+13, ASK+7*, SETVAR+1, SETVAR+2, SETVAR+4, EOJ+1!
DIC	ADD+4*, ADD+7, EOJ+1!, EOJ+5!
DIC("A"	ADD+4*
DIC(0	ADD+4*
DIE	ADD+7*, EOJ+1!, EOJ+5!
DIK	ADD+13, ASK+7, EOJ+5!
DIR	PRINT+8!
DIR("A"	PRINT+7*
DIR(0	PRINT+8*
DR	ADD+7, DIE+1, EOJ+5!
DUOUT	ADD+6, EOJ+5!
II	EOJ+5!
IOP	EOJ+5!
POP	EOJ+5!
U	ADD+7, ADD+8, ADD+13, YES+5, SETVAR+2, SETVAR+3, SETVAR+4, SETVAR+5, SETVAR+8, SETVAR+11
X	ADD+6, SETVAR+11*, PRINT+10, PRINT+11, EOJ+4!
Y	ADD+6, ADD+7, ADD+8, SETVAR+6*, SETVAR+7, SETVAR+9, EOJ+4!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPRT

Information

Source Information

Call Graph

Call Graph Total: 6

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: