Routine: PSSDEE

Information

PSSDEE ;BIR/WRT-MASTER DRUG ENTER/EDIT ROUTINE ;25-Mar-2016 12:59;DU

Source Information

Source file <PSSDEE.m>

Call Graph

Call Graph Total: 24

Package	Total	Call Graph
Pharmacy Data Management	15	^PSSCLDRG PKIND^PSSDDUT2 (CKIV,DSPY,MESSAGE,OIKILL,ORDITM,RSET)^PSSDEE1 ^PSSDEE2 DRG^PSSDGUPD DOSN^PSSDOS (,COMPND)^PSSGIU EN2^PSSHL1 DRG^PSSHUIDG ^PSSLAB (BLD,PICK2,TEXT)^PSSMARK EN^PSSPOIDT ^PSSREF (EN1,EN2)^PSSUTIL (ENA,ENS)^PSSVIDRG
VA Fileman	5	IX^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR
National Drug File	2	$$PSJDF^PSNAPIS REACT1^PSNOUT
IHS Changes To Pharmacy	1	SQUERY^APSPRCUI
Kernel	1	$$UP^XLFSTR

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Pharmacy Data Management	4	PSS DRUG ENTER/EDIT PSSCLDRG PSSLAB PSSVIDRG
Pharmacy Barcode Scan	1	BPBSUPD1

Entry Points

External References

Name	Field # of Occurrence
SQUERY^APSPRCUI	ONE+3
IX^DIC	ASK+2
YN^DICN	ASKND
^DIE	COMMON, OP+4, UD, WS, DACCT, PRIM1, OPEI1+2
$$GET1^DIQ	ASK+14, ASK+15, NORM
^DIR	CHOOSE+16, IV1+1, ASKCMOP+1, ASKCLOZ+1, MONCLOZ
$$PSJDF^PSNAPIS	CKDF
REACT1^PSNOUT	ASKND+4
^PSSCLDRG	CLOZ
PKIND^PSSDDUT2	CKDF+1
CKIV^PSSDEE1	ZAPIT
DSPY^PSSDEE1	CK
MESSAGE^PSSDEE1	ASKND
OIKILL^PSSDEE1	COMMON+1
ORDITM^PSSDEE1	COMMON1
RSET^PSSDEE1	ASKND+4
^PSSDEE2	BEGIN, DONE
DRG^PSSDGUPD	ASK+16
DOSN^PSSDOS	COMMON1
^PSSGIU	OP+2, UD, IV, CS, NVM, COMPND
COMPND^PSSGIU	COMPND
EN2^PSSHL1	MF, MFA, MFS, MFDD
DRG^PSSHUIDG	ASK+17
^PSSLAB	MONCLOZ
BLD^PSSMARK	ASKCMOP+2
PICK2^PSSMARK	ASKCMOP+2
TEXT^PSSMARK	ASKCMOP+2
EN^PSSPOIDT	MF, MFA, MFS, MFDD
^PSSREF	CKCMOP, DSH+2
EN1^PSSUTIL	ASKND+4
EN2^PSSUTIL	ONE+1
ENA^PSSVIDRG	IV1+1
ENS^PSSVIDRG	IV1+1
$$UP^XLFSTR	CHOOSE+16, CHOOSE+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !,$C(7),"Another person is editing this one." Line Location: ASK+6
Function Call: WRITE	Prompt: !,"Just a reminder...you are editing ",$P(^PSDRUG(DISPDRG,0),"^"),"." Line Location: COMMON1+0
Function Call: WRITE	Prompt: !!,"Do you wish to match/rematch to NATIONAL DRUG file" Line Location: ASKND+0
Function Call: WRITE	Prompt: !,"If you answer ""yes"", you will attempt to match to NDF." Line Location: ASKND+1
Function Call: WRITE	Prompt: !,"You have just VERIFIED this match and MERGED the entry." Line Location: ONE+1
Function Call: WRITE	Prompt: !!,"MARK THIS DRUG AND EDIT IT FOR: " Line Location: APP+0
Function Call: WRITE	Prompt: !,"O - Outpatient" Line Location: CHOOSE+0
Function Call: WRITE	Prompt: !,"U - Unit Dose" Line Location: CHOOSE+1
Function Call: WRITE	Prompt: !,"I - IV" Line Location: CHOOSE+2
Function Call: WRITE	Prompt: !,"W - Ward Stock" Line Location: CHOOSE+3
Function Call: WRITE	Prompt: !,"D - Drug Accountability" Line Location: CHOOSE+4
Function Call: WRITE	Prompt: !,"C - Controlled Substances" Line Location: CHOOSE+5
Function Call: WRITE	Prompt: !,"X - Non-VA Med" Line Location: CHOOSE+6
Function Call: WRITE	Prompt: !,"Z - Compounding" Line Location: CHOOSE+8
Function Call: WRITE	Prompt: !,"A - ALL" Line Location: CHOOSE+10
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+11
Function Call: WRITE	Prompt: !,"You do not have the proper keys to continue. Sorry, this concludes your editing session.",! Line Location: CHOOSE+12
Function Call: WRITE	Prompt: !?43,C," - " Line Location: CHECK+4
Function Call: WRITE	Prompt: "Outpatient" Line Location: CHECK+5
Function Call: WRITE	Prompt: "Unit Dose" Line Location: CHECK+6
Function Call: WRITE	Prompt: "IV" Line Location: CHECK+7
Function Call: WRITE	Prompt: "Ward Stock" Line Location: CHECK+8
Function Call: WRITE	Prompt: "Drug Accountability" Line Location: CHECK+9
Function Call: WRITE	Prompt: "Controlled Substances" Line Location: CHECK+10
Function Call: WRITE	Prompt: "Non-VA Med" Line Location: CHECK+11
Function Call: WRITE	Prompt: "Compounding" Line Location: CHECK+13
Function Call: WRITE	Prompt: "Invalid Entry",$C(7) Line Location: CHECK+14
Function Call: WRITE	Prompt: !," You are NOW editing OUTPATIENT fields. " Line Location: OP+1
Function Call: WRITE	Prompt: !," You are NOW editing UNIT DOSE fields. " Line Location: UD+0
Function Call: WRITE	Prompt: !," You are NOW editing IV fields. " Line Location: IV+0
Function Call: WRITE	Prompt: !," You are NOW editing WARD STOCK fields. " Line Location: WS+0
Function Call: WRITE	Prompt: !," You are NOW editing DRUG ACCOUNTABILITY fields. " Line Location: DACCT+0
Function Call: WRITE	Prompt: !," You are NOW Marking/Unmarking for CONTROLLED SUBS. " Line Location: CS+0
Function Call: WRITE	Prompt: !," You are NOW Marking/Unmarking for NON-VA MEDS. " Line Location: NVM+0
Function Call: WRITE	Prompt: !," You are NOW adding ingredients to this product for compounding. ",! Line Location: NVM+4
Function Call: WRITE	Prompt: !!,"Do you wish to mark to transmit to CMOP? " Line Location: ASKCMOP+0
Function Call: WRITE	Prompt: !!,"Do you wish to mark/unmark as a LAB MONITOR or CLOZAPINE DRUG? " Line Location: ASKCLOZ+0
Function Call: WRITE	Prompt: !,"Mark/Unmark for Lab Monitor or Clozapine: " Line Location: MONCLOZ+0
Function Call: WRITE	Prompt: !," You are NOW editing CLOZAPINE fields. " Line Location: CLOZ+0
Function Call: WRITE	Prompt: !! Line Location: USE+2
Function Call: WRITE	Prompt: "*" Line Location: USE+2
Function Call: WRITE	Prompt: !," NONE" Line Location: USE1+6
Function Call: WRITE	Prompt: !!,"You need to match this drug to ""PRIMARY DRUG"" file as well.",! Line Location: PRIM1+0
Function Call: WRITE	Prompt: !!,"****************************************************************************" Line Location: DSH+0
Function Call: WRITE	Prompt: !,"This entry contains a ""1"" or a ""2"" in the ""DEA, SPECIAL HDLG""",!,"field, therefore this item has been UNMARKED for CMOP transmission." Line Location: DSH+1
Function Call: WRITE	Prompt: !,"****************************************************************************",! Line Location: DSH+2
Routine Call	DIE Line Location: COMMON OP+4 UD WS DACCT PRIM1 OPEI1+2
Routine Call	DIR Line Location: CHOOSE+16 IV1+1 ASKCMOP+1 ASKCLOZ+1 MONCLOZ
Routine Call	DIC Line Location: ASK+2

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls, GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ASKND+4, OP+5
^PS(52.6 - [#52.6]	MFA
^PS(52.7 - [#52.7]	MFS
^PS(59 - [#59]	ASK+13
^PS(59.7 - [#59.7]	PRIMDRG, MF, MFA, MFS
^PSDRUG - [#50]	ASK+6, ASK+17, LONG+1, COMMON, COMMON1, ASKND+4, ONE, CKDF, NOPE, NOPE+1 , NOPE+2, CKCMOP, ASKCMOP+2, FLASH, USE, PRIMDRG, MF, MFDD, OPEI+1, DEA+1 , DSH+2, VANDC+3
^PSDRUG("AQ"	CKCMOP!, DSH+2!
^PSDRUG(5182	COMPND
^PSNDF(50.68 - [#50.68]	OPEI+5, VANDC+4, VANDC+5
^TMP($J	ASK+5!
^XMB("NETNAME"	WR
^XUSEC("PSA ORDERS"	CHOOSE+4
^XUSEC("PSAMGR"	CHOOSE+4
^XUSEC("PSDMGR"	CHOOSE+5
^XUSEC("PSGWMGR"	CHOOSE+3
^XUSEC("PSJI MGR"	CHOOSE+2
^XUSEC("PSJU MGR"	CHOOSE+1
^XUSEC("PSNMGR"	ASKND
^XUSEC("PSORPH"	CHOOSE, CHOOSE+6
^XUSEC("PSXCMOPMGR"	CHOOSE, ASKCMOP

Label References

Name	Line Occurrences
$$CHECK	CHOOSE+16
APP	COMMON1
ASK	BEGIN
ASKCLOZ	OP+5
ASKCMOP	OP+4
ASKND	COMMON+1, ASKND+1
BRANCH	CHOOSE+17
BRANCH1	CHOOSE+17
CHOOSE	APP
CK	COMMON+1
CKCMOP	OP+6
CKDF	ONE+1
CLOZ	MONCLOZ
COMMON	ASK+9
COMMON1	COMMON+1
COMPND	BRANCH+3
CS	BRANCH+1, BRANCH1
DACCT	BRANCH+1, BRANCH1
DEA	ASK+9, COMMON+1
DFNULL	NOPE, NOPE+1, NOPE+2
DSH	DEA+1
FLASH	MONCLOZ
IV	BRANCH, BRANCH1
IV1	IV, IV1+1
LONG	ASK+9
MF	ASK+9
MFDD	MFA, MFS
MONCLOZ	ASKCLOZ+2
NOPE	ASK+9
NVM	BRANCH+1, BRANCH1
ONE	ASKND+4
OP	BRANCH, BRANCH1
OPEI	OP+4
OPEI1	OPEI+4, OPEI+5
PRIM1	PRIMDRG
UD	BRANCH, BRANCH1
USE	ASK+9, COMMON1
USE1	USE+4
WR	ONE+1
WS	BRANCH, BRANCH1

Name	Field # of Occurrence
^(0	DEA+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKND*, ASKND+1, ASKND+2, ASKND+3, ASKND+4, OP+3, UD, IV, DSH+2~
C	CHECK+1~, CHECK+4*, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11, CHECK+13
CHECK	CHECK+1~, CHECK+2, CHECK+14, CHECK+15
CLFALG	FLASH!
>> CLFLAG	FLASH, FLASH+1
D	ASK+2*!
DA	BEGIN!, ASK+6, LONG+1, COMMON, COMMON1, ASKND+4, ONE, ONE+3, CKDF, NOPE , NOPE+1, NOPE+2, OP+2, CKCMOP, UD, IV, CS, NVM, COMPND, ASKCMOP+2 , PRIM1, OPEI1+1, DSH+2*, NORM~, VANDC~, VANDC+3
DIC	ASK+2*!
DIC("T"	ASK+2*
DIC(0	ASK+2*
>> DIE	COMMON, OP+4, UD, WS, DACCT, PRIM1, OPEI1+1*
DIR	CHOOSE+14!, OP+4!, IV1+1!, ASKCMOP!, ASKCLOZ!, MONCLOZ!
DIR("?"	ASKCMOP, ASKCLOZ
DIR("A"	CHOOSE+15*
DIR(0	CHOOSE+14, IV1+1, ASKCMOP, ASKCLOZ, MONCLOZ*
DIRUT	CHOOSE+12!, CHECK+2, IV1+1, ASKCMOP+1!, ASKCLOZ+1!, MONCLOZ, CLOZ
>> DISPDRG	ASK+6*, ASK+16, ASK+17, COMMON1, ASKND+4, ONE+1, CKDF, CKCMOP, FLASH, USE , PRIMDRG, PRIM1, MF, OPEI+1, OPEI1+1, DEA+1, DSH+2
>> DLAYGO	ASK+2*
DMFU	ASK+12~, ASK+14*, ASK+16
DNSNAM	ASK+12~, ASK+15*, ASK+16
DNSPORT	ASK+12~, ASK+15*, ASK+16
>> DR	COMMON, OP+4, UD, WS, DACCT, PRIM1, OPEI1+1*
>> DR(2	UD, DACCT
DT	ONE
>> DTOUT	COMMON, CLOZ
>> DUOUT	CLOZ
DUZ	ASKND, CHOOSE, CHOOSE+1, CHOOSE+2, CHOOSE+3, CHOOSE+4, CHOOSE+5, CHOOSE+6, ASKCMOP
DVER	ASK+12~, ASK+14*, ASK+16
>> ENTRY	MFA, MFS
>> FLAG	ASK+5, CHOOSE+9, CHOOSE+10, BRANCH1
>> FLG1	ASK+5, CHOOSE, CHOOSE+9, CHOOSE+12, CHECK+5, OP, OP+6
>> FLG2	ASK+5, CHOOSE+1, CHOOSE+9, CHOOSE+12, CHECK+6, UD
FLG3	ASK+5, ASK+17!, CHOOSE+2, CHOOSE+9, CHOOSE+12, CHECK+7, IV
>> FLG4	ASK+5, CHOOSE+3, CHOOSE+9, CHOOSE+12, CHECK+8, WS
>> FLG5	ASK+5, CHOOSE+4, CHOOSE+9, CHOOSE+12, CHECK+9, DACCT
>> FLG6	ASK+5, CHOOSE+5, CHOOSE+9, CHOOSE+12, CHECK+10, CS
>> FLG7	ASK+5, CHOOSE+6, CHOOSE+12, CHECK+11, NVM
>> FLG8	ASK+5, CHOOSE+8, CHOOSE+9, CHECK+13, COMPND
>> FLGKY	ASK+5, CHOOSE+12, CHOOSE+13
>> FLGMTH	ASKND
>> FLGNDF	CK, ONE+1, ZAPIT
>> FLGOI	ASK+5, OP+5, UD, IV
I	CHECK+1~, CHECK+3*, CHECK+4
>> K	CKDF*
LMFLAG	FLASH!, FLASH+2
ND	VANDC+1~, VANDC+3*, VANDC+4, VANDC+5
NDC	VANDC+1~, VANDC+2, VANDC+5, VANDC+6*, VANDC+7
>> NEWDF	ONE+1, CKDF*, ZAPIT, WR
>> NFLAG	ASKCLOZ+2*, CLOZ
>> NWND	CKDF*
>> NWPC1	CKDF*
>> NWPC3	CKDF*
>> OLDDF	ONE+1, DFNULL, ZAPIT, WR
PACK	USE!*, USE+1, USE1, USE1+1, USE1+2, USE1+4, USE1+5, USE1+6
PSDRUGND	OPEI~, OPEI+1*, OPEI+2, OPEI+3, OPEI+4, OPEI+5
>> PSIUDA	OP+2, UD, IV, CS, NVM, COMPND
>> PSIUX	OP+2, UD, IV, CS, NVM, COMPND
>> PSNP	ONE*
>> PSSANS	CHOOSE+17*, BRANCH, BRANCH+1, BRANCH+3, BRANCH1
>> PSSASK	IV1+1*
PSSAST	MONCLOZ!*
>> PSSDA	IV*
>> PSSDD	MFA, MFS, MFDD
PSSFLAG	BEGIN, DONE!, ASK+2
PSSHUIDG	ASK+9*!
PSSIVOUT	IV1!, IV1+1, IV1+2!
PSSK	CKDF+1~
PSSNEW	ASK+9*, ASK+16, ASK+17!, LONG+1
>> PSSOR	MF, MFA, MFS, MFDD
PSSVVDA	COMMON1*!
>> PSSXX	BEGIN*
>> PSSZ	BEGIN*
>> PSXBT	ASKCMOP+2*
>> PSXF	ASKCMOP+2*
>> PSXFL	ASKCMOP+2*
>> PSXGOOD	ASKCMOP+2*
>> PSXLOC	ASKCMOP+2*
PSXUDA	ASKCMOP+2~*
>> PSXUM	ASKCMOP+2*
>> SPSIUDA	COMPND*
U	LONG+1
VAR	PRIMDRG*, PRIM1!
WHICH	FLASH!*, FLASH+1, FLASH+2
X	ASKND+2!, ASKND+3!, ASKND+4, CKDF, CHOOSE+12!, CHOOSE+16, CHOOSE+17, CHECK~, CHECK+2, CHECK+3 , CHECK+4, OP+5*, ASKCMOP+1!, ASKCMOP+2, ASKCLOZ+1!, ASKCLOZ+2
XX	ASK+12~, ASK+13, ASK+14, ASK+15, USE+2~*
Y	ASK+2, ASK+6, ASK+9, COMMON, ASKND+2!, ASKND+3!, CHECK+2, ASKCMOP+1!, ASKCLOZ+1!
Y(0	IV1+1, MONCLOZ
>> ZAPFLG	NOPE, DFNULL, ZAPIT

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSDEE

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
USE
FLASH
ASKCMOP
DONE
IV1
DEA	;
PRIMDRG
MONCLOZ
DACCT
CLOZ
MFA
BEGIN
DFNULL
CHECK(X)	; Validates Application Use response
ZAPIT
LONG	;EP -
ONE
VANDC(DA)	;Find product NDC code
MFS
PRIM1
COMMON
ASK	;FIND DRUG
COMPND
ASKND
WS
MFDD
CK
CKDF
USE1
CKCMOP
IV
DSH
CS
WR
ASKCLOZ
MF
BRANCH1
OPEI
APP
COMMON1
NORM(DA)
CHOOSE
BRANCH
OPEI1	;
UD
NVM
NOPE
OP