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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSONEW1

Package: Outpatient Pharmacy

Routine: PSONEW1


Information

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

Source Information

Source file <PSONEW1.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 6

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

Entry Points

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

External References

Name Field # of Occurrence
$$TRPDCLS^APSPDIR 35+1
AWP^APSPDIR 50+2
BST^APSPDIR 115+1
CASHDUE^APSPDIR 220+1
CM^APSPDIR 120+1
COST^APSPDIR 51+2
DSCMED^APSPDIR 219+1
EXPDATE^APSPDIR 57+1
INSURER^APSPDIR 117+1
LOT^APSPDIR 55+1
MANUF^APSPDIR 53+1
NDC^APSPDIR 40+2
SUBS^APSPDIR 218+1
TRIP^APSPDIR 35+2
$$AWP^APSQDAWP END+2
$$COST^APSQDAWP END+3
$$GET1^DIQ 220+1
EN^PSODIAG 3+1
DOSE^PSODIR 31
INS^PSODIR 32+1
PROV^PSODIR 79
SINS^PSODIR 32+3
COPIES^PSODIR1 76
DAYS^PSODIR1 67
PTSTAT^PSODIR1 2
QTY^PSODIR1 75
REFILL^PSODIR1 78
CLERK^PSODIR2 216
CLINIC^PSODIR2 211
FILLDT^PSODIR2 215
ISSDT^PSODIR2 214
MW^PSODIR2 212
RMK^PSODIR2 213
^PSODRG 3
EN^PSOFSIG 4
MANUAL^PSONRXN 1+1

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] 32+3

Label References

Name Line Occurrences
120 101+1
211 79+2
31 32
4 51+5
57 51+5
@( 1+2, 2+1, 3+2, 31+1, 32+2, 35+1, 40+1, 50+1, 51+1, 53+2
, 55+2, 57+2, 67+1, 75+1, 76+1, 78+1, 79+1, 115+2, 117+2, 120+2
, 211+1, 212+1, 213+1, 214+1, 215+1, 216+1, 218+2, 219+2, 220+2
END 1+2, 2+1, 3+1, 3+2, 31+1, 32+2, 35+1, 40+1, 50+1, 51+1
, 53+2, 55+2, 57+2, 67+1, 75+1, 76+1, 78+1, 79+1, 115+2, 117+2
, 120+2, 211+1, 212+1, 213+1, 214+1, 215+1, 216+1, 218+2, 219+2, 220+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSPCMP 120+1
>> APSPMAN 51+5
DIRUT 32!
DUZ("AG" 79+2
>> PSOAWP 50+1
>> PSOBILRX 101+1
>> PSOBILST 101+1
>> PSOCOST 51+1
>> PSODFN 32+3
>> PSODRUG("DEA" 35+1
>> PSODRUG("IEN" END+2, END+3
>> PSODRUG("NDC" END+2, END+3
>> PSONDC 40+1
>> PSONEW 2, 31, 32+1, 32+3, 35+2, 40+2, 50+2, 51+2, 53+1, 55+1
, 57+1, 4, 67, 75, 76, 78, 79, 115+1, 117+1, 120+1
, 211, 212, 213, 214, 215, 216, 218+1, 219+1, 220+1
>> PSONEW("AWP" 40+3!, END+2*
>> PSONEW("BST" 101+1*
>> PSONEW("COST" 40+3!, END+3*
>> PSONEW("DFLG" START+1*, 1+2, 2+1, 3+1, 3+2, 31+1, 32+2, 35+1, 40+1, 50+1
, 51+1, 53+2, 55+2, 57+2, 67+1, 75+1, 76+1, 78+1, 79+1, 115+2
, 117+2, 120+2, 211+1, 212+1, 213+1, 214+1, 215+1, 216+1, 218+2, 219+2
, 220+2, END+2, END+3
>> PSONEW("ENT" 32
>> PSONEW("FIELD" START+1*, 1*, 1+2, 2+1, 3+2, 31+1, 32+2, 35+1, 40+1, 50+1
, 51+1, 53+2, 55+2, 57+2, 67+1, 75+1, 76+1, 78+1, 79+1, 115+2
, 117+2, 120+2, 211+1, 212+1, 213+1, 214+1, 215+1, 216+1, 218+2, 219+2
, 220+2, JUMP+2*, JUMP+6*, JUMP+7*
>> PSONEW("FLD" 1*, 2*, 3*, 31*, 32+1*, 35+2*, 40+2*, 50+2*, 51+2*, 53+1*
, 55+1*, 57+1*, 67*, 75*, 76*, 78*, 79*, 115+1*, 117+1*, 120+1*
, 211*, 212*, 213*, 214*, 215*, 216*, 218+1*, 219+1*, 220+1*, JUMP+2
, JUMP+7
>> PSONEW("NDC" END+2, END+3
>> PSONEW("QFLG" 1+2, END+2, END+3
PSONEW1 START+1*, END+4!
>> PSOPAR 1+1, 76
>> PSOSITE 220+1
>> PSOTRIP 35+1
>> SIG(0 4
>> SIGOK 4*
>> TALK END+2, END+3
>> Y JUMP+2, JUMP+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All