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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSSADDIT

Package: Pharmacy Data Management

Routine: PSSADDIT


Information

PSSADDIT ;BIR/RTR/WRT-Manual match Additives to Orderable Items; 09/01/98 7:06

Source Information

Source file <PSSADDIT.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Pharmacy Data Management 5 EN2^PSSHL1  (EN,REST)^PSSPOIDT  DIR^PSSPOIM3  (,REMAT,SELIV)^PSSSOLIT  MAT^PSSSUTIL  
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
National Drug File 1 $$PSJDF^PSNAPIS  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Pharmacy Data Management 4 PSSPOIM2  PSSPOIM3  PSSSUTIL  PSSVIDRG  

Entry Points

Name Comments DBIA/ICR reference
MAS ;Entry point for Master Enter/Edit
EN
END
PASS
SYN
XDIR
ADD ;
ENTER
NEW
INACT
SEL
INPUT
CHECK

External References

Name Field # of Occurrence
^DIC EN+1, SYN, ADD+4
FILE^DICN NEW+3
^DIE ENTER+4, INACT, SYN+2, NEW+6
^DIR PSSADDIT+5, SEL, ENTER+2, PASS+2, PASS+3, XDIR+3, XDIR+8, NEW+2
$$PSJDF^PSNAPIS ADD+2
EN2^PSSHL1 ENTER+4, SYN+1, SYN+3, NEW+11
EN^PSSPOIDT ENTER+4, NEW+11
REST^PSSPOIDT INACT+2
DIR^PSSPOIM3 NEW+9
^PSSSOLIT SEL+1
REMAT^PSSSOLIT EN+1
SELIV^PSSSOLIT ENTER+2
MAT^PSSSUTIL PASS+3, XDIR+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",!
  • Line Location: PSSADDIT+5
Function Call: WRITE
  • Prompt: !!,"This option enables you to match IV Additives or IV Solutions to the Pharmacy",!,"Orderable Item File."
  • Line Location: PSSADDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this additive."
  • Line Location: MAS+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"This IV Additive does not point to the Dispense Drug File (#50)",!?5,"it cannot be matched to an Orderable Item!",!
  • Line Location: MAS+2
Function Call: WRITE
  • Prompt: !!,"IV ADDITIVE -> ",PSANAME,!," is already matched to:",!,PSOINAME," ",$P($G(^PS(50.606,PSOIDOSE,0)),"^")
  • Line Location: ENTER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INACT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SYN+2
Function Call: WRITE
  • Prompt: !?3,"*** Dose Form from NDF: ",$P($G(^PS(50.606,PSDOSPTR,0)),"^")
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: $C(7),!!,"There is already an Orderable Item named:",!?5,$P($G(^PS(50.7,ZZFLAG,0)),"^")," ",$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^"),!
  • Line Location: PASS+1
Function Call: WRITE
  • Prompt: !!,"Matching: ",PSANAME,!," to",!,$P($G(^PS(50.7,+ZZFLAG,0)),"^")_" "_PSDOSNM
  • Line Location: PASS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PASS+3
Function Call: WRITE
  • Prompt: $C(7),!!?5,"You must create a new Orderable Item Name for this IV Additive, since a",!?5,"duplicate already exists with another IV Additive matched to it!",!
  • Line Location: PASS+4
Function Call: WRITE
  • Prompt: !!,"Additive Name -> ",$G(PSANAME),!,"Dose Form -> ",$G(PSDOSNM),!
  • Line Location: XDIR+0
Function Call: WRITE
  • Prompt: $C(7),!!,?2,"A duplicate Name and Dose Form entry already exists in the Orderable Item",!,?2,"File, with a corresponding matched IV Additive. You must select another name!"
  • Line Location: XDIR+7
Function Call: WRITE
  • Prompt: !!,"Matching: ",PSANAME,!," to",!,$P($G(^PS(50.7,PFLAGOI,0)),"^")_" "_$G(PSDOSNM)
  • Line Location: XDIR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: XDIR+8
Function Call: WRITE
  • Prompt: !!,"Matching: ",PSANAME,!," to",!,HOLDOI_" "_$G(PSDOSNM)
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: !!?5,"UNABLE TO CREATE ENTRY, TRY AGAIN!",!
  • Line Location: NEW+4
Function Call: WRITE
  • Prompt: !!?3,"Now editing Orderable Item:",!?3,$P(^PS(50.7,PSNEWOI,0),"^")," ",$P($G(^PS(50.606,+$P(^(0),"^",2),0)),"^")
  • Line Location: NEW+9
Function Call: WRITE
  • Prompt: $C(7),!?5,"??",!
  • Line Location: INPUT+0
Routine Call
  • DIE
  • Line Location:
    • ENTER+4
    • INACT
    • SYN+2
    • NEW+6
Routine Call
  • DIC
  • Line Location:
    • EN+1
    • SYN
    • ADD+4
Routine Call
  • DIR
  • Line Location:
    • PSSADDIT+5
    • SEL
    • ENTER+2
    • PASS+2
    • PASS+3
    • XDIR+3
    • XDIR+8
    • NEW+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(50.7 - [#50.7] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] ENTER+1, ADD+3, PASS, PASS+1, NEW+9
^PS(50.7 - [#50.7] ENTER+1, INACT, SYN*, SYN+1!, CHECK, PASS+1, PASS+3, XDIR+6, XDIR+8, NEW+7*
, NEW+8*, NEW+9
^PS(52.6 - [#52.6] EN, MAS+1, CHECK, END, XDIR+7, XDIR+8, XDIR+9, NEW+5
^PS(59.7 - [#59.7] PSSADDIT+5
^PSDRUG - [#50] ADD+1

Label References

Name Line Occurrences
@( ENTER+2
ADD ENTER, ENTER+4
CHECK PASS
EN MAS+2, SYN+1, SYN+4, ADD+4, PASS+2, PASS+3, XDIR+3, XDIR+8, NEW+12
END PSSADDIT+6, SEL, EN+1, SYN+1, SYN+4
INACT NEW+9
INPUT XDIR+1, XDIR+5
PASS ADD+3
SYN SYN+2
XDIR XDIR+5, XDIR+7, XDIR+8, NEW+2, NEW+4

Naked Globals

Name Field # of Occurrence
^( NEW+5, NEW+8
^(0 MAS+1, ENTER+1, CHECK, PASS+1, NEW+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ENTER+4*, INACT*, SYN+2*, END+2!, ADD+1*, ADD+2, NEW+6*
DA(1 SYN*, SYN+2*
DD NEW+3!
DIC EN+1!*, SYN!*, END+2!, ADD+4!*, NEW+3!*
DIC("A" EN+1*, SYN*, ADD+4*
DIC("DR" NEW+3*
DIC(0 EN+1*, SYN*, ADD+4*, NEW+3*
DIE ENTER+4!*, INACT!*, SYN+2*!, NEW+6!*
>> DILOCKTM MAS+1
DIR PSSADDIT+5!, SEL!, ENTER+2!, PASS+2!, PASS+3!, XDIR+2!, XDIR+3!, XDIR+8!, NEW+2!
DIR("A" PSSADDIT+5*, SEL*, ENTER+2*, PASS+2*, PASS+3*, XDIR+2*, XDIR+8*, NEW+2*
DIR("B" ENTER+2*, PASS+2*, PASS+3*, XDIR+2*, XDIR+8*, NEW+2*
DIR(0 PSSADDIT+5*, SEL*, ENTER+2*, PASS+2*, PASS+3*, XDIR+2*, XDIR+8*, NEW+2*
>> DLAYGO SYN*
DO NEW+3!
DR ENTER+4*, INACT*, SYN+2*, END+2!, NEW+6*
DTOUT SEL, EN+1, SYN+1, END+2!, ADD+4, PASS+2, PASS+3, XDIR+3, XDIR+8
>> DUOUT SEL, EN+1, SYN+1, ADD+4, XDIR+3
HOLDOI END+2!, XDIR+4*, NEW+1, NEW+3
INFLAG END+2!, XDIR+2, XDIR+5, INPUT*
>> K ADD+1*, ADD+2
LL END+2!, NEW+8*
NEWFLAG SYN+1, SYN+3, END+2!, NEW+9*!, NEW+10!
PANS END+2!, PASS+3*
PFLAG END+2!, XDIR+6*, XDIR+7, XDIR+8, XDIR+9
PFLAGOI END+2!, XDIR+6*, XDIR+7, XDIR+8, XDIR+9
PSAFTER INACT*, INACT+1, INACT+3!
PSAIEN EN, MAS+1*, ENTER+3, ENTER+4, END, END+2!, NEW+5, NEW+6
PSANAME MAS+1*, ENTER+1, END+2!, PASS, PASS+3, XDIR, XDIR+1, XDIR+2, XDIR+5, XDIR+8
, NEW+1, NEW+2
PSBEFORE INACT*, INACT+1, INACT+3!
PSDELADD ENTER+3*, END+1!
PSDELFLG EN+1, ENTER+3*, END+1!
PSDELOIT ENTER+3*, END+1!
PSDISP MAS+1*, MAS+2, END+2!, ADD+1
PSDOSNM END+2!, PASS*, PASS+3, XDIR, XDIR+8, NEW+1
PSDOSPTR END+2!, ADD+1!, ADD+2*, ADD+3, ADD+5*, PASS
PSINORDE INACT*, INACT+1*, INACT+2, INACT+3!
PSJOUT EN+1!
>> PSMASTER EN+1
PSND END+2!, ADD+1*
PSND1 END+2!, ADD+1*, ADD+2
PSND3 END+2!, ADD+1*, ADD+2
PSNDOSE END+2!
PSNEWOI END+2!, NEW+5*, NEW+6, NEW+7, NEW+8, NEW+9, NEW+11
PSOIDOSE ENTER+1*, ENTER+4!, CHECK, END+2!, PASS*, XDIR+6, NEW+3
PSOINAME ENTER+1*, ENTER+4!, END+2!
PSONEW END+2!
PSPOI MAS+1*, ENTER, ENTER+1, ENTER+3, ENTER+4!, INACT, INACT+2, SYN, SYN+1, SYN+2
, SYN+3, END+2!, NEW+9*, NEW+11
PSSDIR NEW+9, NEW+10!
PSSITE PSSADDIT+5*!, PSSADDIT+6!
>> PSSIVOUT ENTER+2
>> PSSJI ENTER+2
PSSSSS SEL*, EN+1, SYN+1, SYN+3, END+1!, NEW+11
QQ END+2!, XDIR+6*
SCLAST END+2!
SCOUNT END+2!, NEW+5*, NEW+7, NEW+8
SS END+2!, NEW+5*
SYN END+2!
SYN( NEW+5*, NEW+7
SYN1 END+2!
SYNNAM END+2!, NEW+8*
TT END+2!
VV CHECK*, END+2!
VVV END+2!
WW END+2!, NEW+7*
X END+2!, ADD+2*, XDIR+1*, XDIR+4, XDIR+5*, XDIR+6, NEW+2*, NEW+3*, INPUT
XXX CHECK, END+2!, PASS*
Y SEL, SEL+1, EN+1, MAS+1, ENTER+2, SYN+1, SYN+2, END+2!, ADD+4, ADD+5
, PASS+2, PASS+3, XDIR+3, XDIR+8, NEW+2, NEW+4, NEW+5
ZZFLAG CHECK*, END+2!, PASS+1, PASS+3, XDIR+9*
ZZXFLAG CHECK*, END+2!, PASS+1, PASS+3, PASS+4, XDIR+2
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 |  Naked Globals |  Local Variables |  All