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

Package: Pharmacy Data Management

Routine: PSSPOIM2


Information

PSSPOIM2 ;BIR/RTR/WRT-Orderable Item manual create - initial create ; 09/01/98 7:12

Source Information

Source file <PSSPOIM2.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ;
CHECK
START
TMP
DISP
DISPO
MCH
MCHA
MCHAN
LOOK
COM
OTHER
WOOPS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,$S($P($G(^(80)),"^",2)<2:"Orderable Item Auto-Create has not been completed!",1:"Manual matching process complete!"),!!
  • Line Location: PSSPOIM2+3
Function Call: WRITE
  • Prompt: !!?3,"NOW MATCHING DISPENSE DRUGS!",!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!!?5,"Dispense Drug -> ",PSNAME
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!?3,"Now editing Orderable Item:",!?3,$P($G(^PS(50.7,PSPOI,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^")
  • Line Location: START+5
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,"Dose Form -> ",DOSEFORM,!!
  • Line Location: MCHA+0
Function Call: WRITE
  • Prompt: !!?3,"Dose Form -> ",$G(Y(0,0))
  • Line Location: MCHA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MCHA+3
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,"Dose 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+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: !,"There are other Dispense Drugs with the same VA Generic Name and same Dose",!,"Form already matched to orderable items. Choose a number to match, or enter",!,"'^' to enter a new one.",!!?6,"Disp. drug -> ",PSNAME,!
  • Line Location: OTHER+0

FileMan Files Accessed Via FileMan Db Call

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