Routine: PSONEW1

Information

PSONEW1 ;BIR/DSD - new Rx order entry ;04-Jun-2013 12:32;DU

Source file <PSONEW1.m>

Package	Total	Call Graph
Outpatient Pharmacy	7	EN^PSODIAG (DOSE,INS,PROV,SINS)^PSODIR (COPIES,DAYS,PTSTAT,QTY,REFILL)^PSODIR1 (CLERK,CLINIC,FILLDT,ISSDT,MW,RMK)^PSODIR2 ^PSODRG EN^PSOFSIG MANUAL^PSONRXN
IHS Changes To Pharmacy	2	($$TRPDCLS,AWP,BST,CASHDUE,CM,COST,DSCMED,EXPDATE,INSURER,LOT,MANUF,NDC,SUBS,TRIP)^APSPDIR ($$AWP,$$COST)^APSQDAWP
VA Fileman	1	$$GET1^DIQ

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

Name	Comments	DBIA/ICR reference
216
214
215
212
213
211
218	; IHS/MSC/PLS - 03/13/08 - Get Substitution
219	; IHS/MSC/PLS - 06/04/13 - Get Discharge Medication
115	; IHS/CIA/PLS - 01/02/04 - Billing Status
117	; IHS/CIA/PLS - 01/02/04 - Get Insurer info
53	; IHS/CIA/PLS - 01/02/04 - Get Manufacturer data
67
40	; IHS/CIA/PLS - 01/02/04 - Get NDC Number
1
3
2
4
220	; IHS/MSC/PLS - 01/23/09 - Get Cash Due
END	; ; IHS/CIA/PLS - 01/06/04 - Set AWP and COST array variables
120	; IHS/CIA/PLS - 01/02/04 - Get Chronic Med data
76
75
100	;Q:$G(DUZ("AG"))'="I" S PSONEW("FLD")=10 D EXP^PSODIR2(.PSONEW) ; Get Expiration Date - Indian Health Service ONLY
101	; IHS/CIA/PLS - 01/02/04 - Branching logic
79
78
JUMP	; IHS/CIA/PLS - 04/15/04 - Modified line labels
START	;
55	; IHS/CIA/PLS - 01/02/04 - Get Lot #
32
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
31

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Incomplete Dosaging Data!",! Line Location: 32+0
Function Call: WRITE	Prompt: !,$C(7),"Cannot jump ahead ..",! Line Location: JUMP+7