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

Package: Drug Accountability

Routine: PSAENTO


Information

PSAENTO ;BIR/LTL,JMB-Set Up/Edit a Pharmacy Location - CONT'D ;7/23/97

Source Information

Source file <PSAENTO.m>

Entry Points

Name Comments DBIA/ICR reference
OP
DAVEB
OPC
ED
QUES
LOOP
ITEM
FIND
DRUGS
IV
IV1
QUIT
UNLINK ;Unlink IV Rooms

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Outpatient site selection affects the collection of dispensing data.",!
  • Line Location: OPC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: IV+0
Function Call: WRITE
  • Prompt: @IOF,!?((80-PSALEN)/2),$P($G(^PS(59,+PSAOSIT,0)),"^")_" Outpatient Site",!!
  • Line Location: IV1+0
Function Call: WRITE
  • Prompt: ?27,PSANOW,!
  • Line Location: IV1+4
Function Call: WRITE
  • Prompt: !!,"Enter the IV rooms that receive IVs from the outpatient site.",!
  • Line Location: IV1+6
Function Call: WRITE
  • Prompt: !!,"<< "_Y(0,0)_" is already linked to the "_$P($G(^PS(59,+$P($G(^PSD(58.8,PSALOC,0)),"^",10),0)),"^"),!?4,"outpatient site in the "_$P($G(^PSD(58.8,PSALOC,0)),"^")_" pharmacy location. >>",!
  • Line Location: IV1+10
Function Call: WRITE
  • Prompt: !!,"<< "_Y(0,0)_" is already linked to this outpatient site. >>",!
  • Line Location: IV1+11
Function Call: WRITE
  • Prompt: !!,"<< No IV rooms were selected to be linked to the Outpatient site. >>",!
  • Line Location: IV1+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IV1+14
Function Call: WRITE
  • Prompt: !?((80-PSALEN)/2),$P($G(^PS(59,+PSAOSIT,0)),"^")_" Outpatient Site",!!,"IV rooms to be linked:"
  • Line Location: IV1+14
Function Call: WRITE
  • Prompt: ?23,PSAIV,!
  • Line Location: IV1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: IV1+18
Function Call: WRITE
  • Prompt: !,"Linking IV rooms"
  • Line Location: IV1+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: IV1+20
Function Call: WRITE
  • Prompt: !,"The IV rooms were linked successfully."
  • Line Location: IV1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: UNLINK+1
Function Call: WRITE
  • Prompt: @IOF,!?((80-PSALEN)/2),$P($G(^PS(59,+PSAOSIT,0)),"^")_" Outpatient Site",!!
  • Line Location: UNLINK+4
Function Call: WRITE
  • Prompt: !,"To be unlinked:"
  • Line Location: UNLINK+5
Function Call: WRITE
  • Prompt: ?16,PSANOW,!
  • Line Location: UNLINK+6
Function Call: WRITE
  • Prompt: !,"No IV rooms were unlinked."
  • Line Location: UNLINK+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: UNLINK+9
Function Call: WRITE
  • Prompt: !,"IV rooms unlinked."
  • Line Location: UNLINK+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
^PSD(58.81 - [#58.81] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls
^PS(59.5 - [#59.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call