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: PSSPOIMN

Package: Pharmacy Data Management

Routine: PSSPOIMN


Information

PSSPOIMN ;BIR/RTR/WRT - Orderable Item manual create ;09/01/98

Source Information

Source file <PSSPOIMN.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
MAS
END
REM
TMP
DISP
DISPO
MCH ;
MCHA
MCHAN
LOOK ;
COM
SET ;
SETX ;
MORE ;Show Additives and Solutions
MOREZ ;
MOREH ;
MODT ;
CKDUPVOL(OIIEN,DRUGIEN) ; Checks OI to see if it will have duplicate IV Solution Volumes
; Input: OIIEN - PHARMACY ORDERABLE ITEM File (#50.7) IEN
; DRUGIEN - DRUG File (#50) IEN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",!
  • Line Location: PSSPOIMN+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this one."
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !!,PSNAME," is already matched to",!!,?5,$P($G(^PS(50.7,POINT,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^"),!
  • Line Location: MAS+4
Function Call: WRITE
  • Prompt: !,"This Orderable Item has an Inactive Date. *** "_Y,!,"To modify the Orderable Item, use the 'Edit Orderable Item' option."
  • Line Location: MAS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MAS+8
Function Call: WRITE
  • Prompt: !,TT," ",$P($G(^PS(50.7,SPT,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^")
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,?3,"Dispense Drug -> ",PSNAME,!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPO+0
Function Call: WRITE
  • Prompt: !!,?5,"INVALID NUMBER"
  • Line Location: DISPO+1
Function Call: WRITE
  • Prompt: !?3,"Dosage Form -> ",DOSEFORM,!!
  • Line Location: MCHA+0
Function Call: WRITE
  • Prompt: !!?3,"Dose Form -> ",$G(Y(0,0))
  • Line Location: MCHA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MCHA+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: MCHAN+0
Function Call: WRITE
  • Prompt: !,"VA Generic Name -> ",VAGEN,!
  • Line Location: MCHAN+0
Function Call: WRITE
  • Prompt: !,?3,"Dosage Form -> ",DOSEFORM,!,?3,"Dispense Drug -> ",PSNAME,!!
  • Line Location: MCHAN+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"??"
  • Line Location: MCHAN+4
Function Call: WRITE
  • Prompt: !!!?3,"Enter ?? for Pharmacy Orderable Item List!",!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !,"Match Complete!",!
  • Line Location: COM+0
Function Call: WRITE
  • Prompt: !!!,"There are "_$S('$G(PSSMORS):"IV Additives",'$G(PSSMORA):"IV Solutions",1:"IV Additives and IV Solutions")_" tied to this Dispense Drug."
  • Line Location: MORE+7
Function Call: WRITE
  • Prompt: !,"By rematching the Dispense Drug to a new Pharmacy Orderable Item, all of these",!,$S('$G(PSSMORS):"IV Additives",'$G(PSSMORA):"IV Solutions",1:"IV Additives and IV Solutions")_" will also be rematched to the new Orderable Item.",!
  • Line Location: MORE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MORE+10
Function Call: WRITE
  • Prompt: !,$S('$G(PSSMORA):"IV Solutions",'$G(PSSMORS):"IV Additives",1:"IV Additives/Solutions"),!,"------------"
  • Line Location: MORE+11
Function Call: WRITE
  • Prompt: "----------"
  • Line Location: MORE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: MOREZ+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MOREH+2
Function Call: WRITE
  • Prompt: ?50,$G(Y)
  • Line Location: MODT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(50.7 - [#50.7] Classic Fileman Calls,  GET1^DIQ
^PS(52.7 - [#52.7] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call