Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | FileMan Files Accessed Via FileMan Db Call | Label References | Local Variables | All

Print Page as PDF

Routine: PSONEW3

Package: Outpatient Pharmacy

Routine: PSONEW3

Information

PSONEW3 ;IHS/DSD/JCM - EDIT TEMPLATE DURING NEW RX ORDER ENTRY ;04-Jun-2013 12:36;DU

Source Information

Source file <PSONEW3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Outpatient Pharmacy	4	PROV^PSODIR (COPIES,DAYS,PTSTAT,QTY,REFILL,SIG)^PSODIR1 (CLERK,CLINIC,FILLDT,ISSDT,MW,RMK)^PSODIR2 ^PSODRG
IHS Changes To Pharmacy	1	($$TRPDCLS,AWP,BST,CASHDUE,CM,COST,DSCMED,EXPDATE,INSURER,LOT,MANUF,NDC,SUBS,TRIP)^APSPDIR
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSODIR PSODIR1 PSODIR2 PSODIR3 PSONEW2
IHS Changes To Pharmacy	1	APSQFUTI

Entry Points

Name	Comments	DBIA/ICR reference
115	; IHS/CIA/PLS - 01/02/04 - Billing Status
117	; IHS/CIA/PLS - 01/02/04 - Get Insurer info
53	; IHS/MSC/PLS - 01/23/09 - Get Cash Due
40	; IHS/CIA/PLS - 01/02/04 - Get NDC Number
1
3
2
5
4
7
6
9
8
521	; IHS/MSC/PLS - 06/04/13 - Get Discharge Medication
END	;
120	; IHS/CIA/PLS - 01/02/04 - Get Chronic Med data
START	;
101	; IHS/CIA/PLS - 01/02/04 - Branching logic
11
10
13
12
15
14	;I $G(DUZ("AG"))="I" S PSONEW("FLD")=14 D EXP^PSODIR2(.PSONEW) ; Get Expiration Date - Indian Health Service ONLY
55	; IHS/CIA/PLS - 01/02/04 - Get Lot #
54	; IHS/CIA/PLS - 01/02/04 - Get Manufacturer data
57	; IHS/CIA/PLS - 01/02/04 - Get Expiration Date
51	; IHS/CIA/PLS - 01/02/04 - Get Cost of Drug
50	; IHS/CIA/PLS - 01/02/04 - Get AWP Price
35	; IHS/CIA/PLS - 01/02/04 - Get Triplicate number
52	; IHS/MSC/PLS - 03/13/08 - Get SUBSTITUTION
JUMP	;

External References

Name	Field # of Occurrence
$$TRPDCLS^APSPDIR	35+1
AWP^APSPDIR	50+2
BST^APSPDIR	115+1
CASHDUE^APSPDIR	53+2
CM^APSPDIR	120+1
COST^APSPDIR	51+2
DSCMED^APSPDIR	521+2
EXPDATE^APSPDIR	57+1
INSURER^APSPDIR	117+1
LOT^APSPDIR	55+1
MANUF^APSPDIR	54+1
NDC^APSPDIR	40+2
SUBS^APSPDIR	52+2
TRIP^APSPDIR	35+2
$$GET1^DIQ	53+1
PROV^PSODIR	4
COPIES^PSODIR1	11
DAYS^PSODIR1	8
PTSTAT^PSODIR1	3+1
QTY^PSODIR1	7
REFILL^PSODIR1	9
SIG^PSODIR1	10
CLERK^PSODIR2	15
CLINIC^PSODIR2	5
FILLDT^PSODIR2	2
ISSDT^PSODIR2	1
MW^PSODIR2	12
RMK^PSODIR2	13
^PSODRG	6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APSPCTRL - [#9009033]	GET1^DIQ

Label References

Name	Line Occurrences
120	101+1
4	53+4
57	53+4
@(	1+1, 2+1, 3+3, 35+1, 40+1, 50+1, 51+1, 52+1, 521+1, 53+1 , 54+2, 55+2, 57+2, 4+1, 115+2, 117+2, 120+2, 5+1, 6+1, 7+1 , 8+2, 9+2, 10+1, 11+1, 12+1, 13+1, 15+1
END	1+1, 2+1, 3+3, 35+1, 40+1, 50+1, 51+1, 52+1, 521+1, 53+1 , 54+2, 55+2, 57+2, 4+1, 115+2, 117+2, 120+2, 5+1, 6+1, 7+1 , 8+2, 9+2, 10+1, 11+1, 12+1, 13+1, 15+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSPCMP	120+1
>> APSPMAN	53+4
>> POERR	3
>> PSOAWP	50+1
>> PSOBILRX	101+1
>> PSOBILST	101+1
>> PSOCOST	51+1
>> PSODRUG("DEA"	35+1
>> PSOID	3
>> PSONDC	40+1
>> PSONEW	1, 2, 3+1, 35+2, 40+2, 50+2, 51+2, 52+2, 521+2, 53+2 , 54+1, 55+1, 57+1, 4, 115+1, 117+1, 120+1, 5, 7, 8 , 9, 10, 11, 12, 13, 15
>> PSONEW("AWP"	40+3!
>> PSONEW("BST"	101+1*
>> PSONEW("COST"	40+3!
>> PSONEW("DFLG"	START+1*, 1+1, 2+1, 3+3, 35+1, 40+1, 50+1, 51+1, 52+1, 521+1 , 53+1, 54+2, 55+2, 57+2, 4+1, 115+2, 117+2, 120+2, 5+1, 6+1 , 7+1, 8+2, 9+2, 10+1, 11+1, 12+1, 13+1, 15+1
>> PSONEW("FIELD"	START+1, 1+1, 2+1, 3+3, 35+1, 40+1, 50+1, 51+1, 52+1, 521+1 , 53+1, 54+2, 55+2, 57+2, 4+1, 115+2, 117+2, 120+2, 5+1, 6+1 , 7+1, 8+2, 9+2, 10+1, 11+1, 12+1, 13+1, 15+1, JUMP+1, JUMP+5*
>> PSONEW("FLD"	1, 2, 3+1, 35+2, 40+2, 50+2, 51+2, 52+2, 521+2, 53+2 , 54+1, 55+1, 57+1, 4, 115+1, 117+1, 120+1, 5, 6, 7 , 8, 9, 10, 11, 12, 13, 15*, JUMP+1
>> PSONEW("ISSUE	DATE" , 3*
PSONEW3	START+1*, END+1!
>> PSOSITE	53+1
>> PSOTRIP	35+1
>> Y	JUMP+1, JUMP+5

Info | Source | Call Graph | Caller Graph | Entry Points | External References | FileMan Files Accessed Via FileMan Db Call | Label References | Local Variables | All