Routine: APSPMAN1

Information

APSPMAN1 ; IHS/DSD/ENM - MANUFACTURER DATA FOR REFILL RX'S ; [ 02/20/2001 1:48 PM ]

Source Information

Source file <APSPMAN1.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR
IHS Changes To Pharmacy	1	(ASK,MAN2,NOMAN)^APSPMAN

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSORXPR

Entry Points

Name	Comments	DBIA/ICR reference
DTCK	;MFG DATE CHECK FOR CHANGE
OUT1	;SET VARIABLES FOR GLOBAL SET
DTO	;EP FOR REFILL RX (W/mfg 'date only' set) IHS/DSD/ENM 01/29/96
ZPAR	;GET MFG DATA FOR PARTIAL RX OPT
DCQX
ACT1	;EP
WR1
ALLCK
EP1	;ENTRY POINT FOR EDIT RX OPT
EXIT	;K APSPN,APSPL,APSPM,APSPMM,APSPD,PSONEW("LOT #"),PSONEW("MANUFACTURER"),PSONEW("EXPIRATION DATE")
WR
ACT
LAST	;CK MAN DATA IN LAST REFILL
NMFG	;EP FOR REFILL RX (W/no mfg set) IHS/DSD/ENM 02/15/96
DCQ	;CHECK FOR CHNG'ed DATA AFTER EDITING AN RX
EP	;ENTRY POINT - FOR REFILL RX (W/edit 'all' mfg data set to 'yes')
OUT	;SET VARIABLES FOR PSOR52 GLOBAL SET

External References

Name	Field # of Occurrence
ASK^APSPMAN	ACT, ACT1+1
MAN2^APSPMAN	ACT+1, ACT1+5
NOMAN^APSPMAN	ACT1+4
^DIE	DTO+2, ALLCK+6, DTCK+2
^DIR	ACT, ACT1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Manufacturer: ",APSPMM,?30,"Lot #: ",APSPL,?50,"Mfg Expiration Date: "_$E(APSPD,4,5)_"/"_$E(APSPD,2,3) Line Location: WR+0
Function Call: WRITE	Prompt: !,"Manufacturer: ",APSPMM,?30,"Lot #: ",APSPL,?50,"Mfg Expiration Date: "_$E(APSPD,4,5)_"/"_$E(APSPD,2,3) Line Location: WR1+0
Routine Call	DIE Line Location: DTO+2 ALLCK+6 DTCK+2
Routine Call	DIR Line Location: ACT ACT1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(52	ALLCK+3, ALLCK+4, ALLCK+5, DTCK+2
^PSDRUG - [#50]	DTO+4
^PSRX - [#52]	EP+4, LAST+1, DTO+1

Label References

Name	Line Occurrences
ACT	EP+7
ACT1	EP1+7
ALLCK	DCQ+3
DCQX	DCQ+3
DTCK	DCQ+4
EXIT	OUT+4, OUT1+3, OUT1+4, OUT1+6
LAST	EP+4
OUT	ACT
OUT1	ACT1+1
WR	EP+5, EP+8
WR1	EP1+7

Naked Globals

Name	Field # of Occurrence
^(0	EP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSP("PD"	ACT1+2
>> APSP("PL"	ACT1+2
>> APSP("PM"	ACT1+2
>> APSPD	EP+2, EP+5, EP+8, LAST+2, WR, EP1+2, EP1+3, EP1+4, EP1+5*, WR1
>> APSPDY	DTO+7, DTO+8, NMFG+5, OUT+3, OUT1+3, OUT1+4, OUT1+5*
>> APSPL	EP+2, EP+5, EP+8, LAST+2, WR, EP1+2, EP1+3, EP1+4, EP1+5*, WR1
>> APSPLOT	DTO+6, NMFG+4, OUT+3, OUT1+3, OUT1+4, OUT1+5
>> APSPLRF	LAST+1*, LAST+2
>> APSPLTYP	EP+6*, EP1+2, EP1+3, EP1+7
>> APSPMAN	EP+1, ACT, EP1+1, ACT1+1, ACT1+4, ACT1+5, OUT1+3, OUT1+4, DCQ+1, DCQ+3 , DCQ+4
>> APSPMF	DTO+6, NMFG+4, OUT+3, OUT1+3, OUT1+4, OUT1+5
>> APSPMM	EP+2, EP+5, EP+8, LAST+2, WR, EP1+2, EP1+3, EP1+4, EP1+5*, WR1
>> APSPRXX	DTO+1, DTO+2, DTO+4, ACT, ACT+1*
>> APSPXED	DCQ+2, ALLCK, ALLCK+3, DTCK+1*, DTCK+2
>> APSPXLT	DCQ+2, ALLCK+1, ALLCK+4
>> APSPXMF	DCQ+2, ALLCK+2, ALLCK+5
>> APSPYN	ACT1+1*, ACT1+2
>> COM	ALLCK+3, ALLCK+4, ALLCK+5, DTCK+2
DA	DTO+2, ALLCK+6!, DTCK+2*!
DIE	DTO+2, ALLCK+6!, DTCK+2*!
DIR	ACT!, ACT1+1!
DIR("?"	ACT, ACT1+1
DIR("A"	ACT, ACT1+1
DIR("B"	ACT, ACT1+1
DIR(0	ACT, ACT1+1
DR	DTO+2, ALLCK+3, ALLCK+4, ALLCK+5, ALLCK+6!, DTCK+2*!
>> LASTRF	EP+4*, LAST+1
>> PS	ACT1+2
>> PSONEW("EXPIR	ATION DATE" , OUT+1, OUT+3, ACT1+2*, OUT1+1, OUT1+4, OUT1+5, ALLCK
>> PSONEW("LOT #	" , OUT+1, OUT+3, ACT1+2*, OUT1+1, OUT1+5, ALLCK+1
>> PSONEW("MANUFACTURER"	OUT+1, OUT+3, ACT1+2*, OUT1+1, OUT1+5, ALLCK+2
>> PSOREF("EXPIR	ATION DATE" , DTO+4, DTO+7, DTO+8, NMFG+2, OUT+1, OUT1+1, DTCK+1
>> PSOREF("IRXN"	EP+4, LAST+1, DTO+1
>> PSOREF("LOT #	" , DTO+4, NMFG+2, OUT+1, OUT1+1
>> PSOREF("MANUFACTURER"	DTO+4, NMFG+2, OUT+1, OUT1+1
>> PSOREF("RX0"	ACT, ACT+1
>> PSOREF("RX2"	EP+7, EP+8
>> PSORXED("IRXN"	ALLCK+6, DTCK+2
>> PSORXED("RX2"	EP1+4, EP1+5, ALLCK, ALLCK+1, ALLCK+2, DTCK+1
>> RX2	EP1+2, EP1+3
U	ACT, ACT+1
X	ALLCK+6!, DTCK+2!
Y	ACT, ACT1+1, ALLCK+6!, DTCK+2!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPMAN1

Call Graph Total: 3

Caller Graph Total: 1