Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call