Routine: PSONEW3

Information

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

Source file <PSONEW3.m>

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

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

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	;

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