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

Package: Drug Accountability

Routine: PSALOCO


Information

PSALOCO ;BIR/MNT,DB-Set Up/Edit a Pharmacy Location ;7/23/97

Source Information

Source file <PSALOCO.m>

Entry Points

Name Comments DBIA/ICR reference
PSAOPT
OPTASK
1
2
ASK2
3
INP
INPQ ;End loop through inpatient file
QUIT3
4
OPASK ;get Outpatient site(s)
QUIT4
5
QUIT5
6
EDTWRD ;Edit Wards
WARDLP
WARDASK
WARD1 ;not currently assigned
WARDQ ;
7
8
81
82
811
83
9
10
PSA10
HLP
EOP
Q
HDR
NXT
OPSITES ;
ADD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"<<<< PHARMACY LOCATION OPTION SCREEN >>>>",!
  • Line Location: PSAOPT+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: PSAOPT+0
Function Call: WRITE
  • Prompt: !!,"# OPTION NAME",!,"---------------",!,"1. CHANGE LOCATION TYPE",!,"2. CHANGE LOCATION NAME",!,"3. INPATIENT SITE SELECTION (not available for Outpatient locations)"
  • Line Location: PSAOPT+1
Function Call: WRITE
  • Prompt: !,"4. OUTPATIENT SITE SELECTION (not available for Inpatient locations)"
  • Line Location: PSAOPT+2
Function Call: WRITE
  • Prompt: !,"5. IV ROOM SETUP ",!,"6. WARD SETUP"
  • Line Location: PSAOPT+3
Function Call: WRITE
  • Prompt: !,"7. INACTIVATE PHARMACY LOCATION",!,"8. ADD/EDIT DRUGS",!,"9. SET MAINTAIN REORDER LEVELS FLAG"
  • Line Location: PSAOPT+4
Function Call: WRITE
  • Prompt: !,"10. REACTIVATE A PHARMACY LOCATION."
  • Line Location: PSAOPT+5
Function Call: WRITE
  • Prompt: !,"11. CREATE NEW PHARMACY LOCATION"
  • Line Location: PSAOPT+6
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: OPTASK+0
Function Call: WRITE
  • Prompt: !!,"Select Option Number: "
  • Line Location: OPTASK+0
Function Call: WRITE
  • Prompt: !,"Please enter a number between 1 & 11."
  • Line Location: OPTASK+0
Function Call: WRITE
  • Prompt: !,"The new location name must at least contain : "
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: PSACHKR
  • Line Location: 2+1
Function Call: READ
  • Formatting: !
  • Prompt: "Please enter the new name : "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: " ??? "
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: !,"Sorry, the new name must start with "_PSACHKR
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !,"Sorry, this name is already setup."
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !!,"Sorry, Inpatient Site association is not permitted for an Outpatient Location"
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !,"Inpatient Site : ",$P($G(^PS(59.4,$P($G(PSALOCA(PSALOCN,PSALOC)),"^"),0)),"^")
  • Line Location: 3+5
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !,"Change this site? NO// "
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !,"Answer 'Y' for yes to change which Inpatient Site is associated with this",!,"pharmacy location.",!
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: !,"An Inpatient Site has not been identified for AR/WS.",!,"AR/WS dispensing data cannot be gathered"
  • Line Location: INPQ+1
Function Call: WRITE
  • Prompt: !,"Sorry, but this is the only inpatient site in the Inpatient Site file ? ",!
  • Line Location: INPQ+3
Function Call: WRITE
  • Prompt: !,"Already Assigned to : "_$P($G(^PSD(58.8,PSALOCI,0)),"^")
  • Line Location: INPQ+10
Function Call: WRITE
  • Prompt: !!,"Sorry, Outpatient Site association is not permitted for an Inpatient Location.",!
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !!,"Outpatient site selection affects the collection of dispensing data.",!,"When a prescription is released through Outpatient pharmacy, the data is stored "
  • Line Location: 4+4
Function Call: WRITE
  • Prompt: !,"then retrieved by the Drug Accountability back-ground job that runs each night.",!!
  • Line Location: 4+5
Function Call: WRITE
  • Prompt: !,"Primary Outpatient Site : ",$S($G(PSAOSIT)="":"Unknown",1:$G(PSAOSIT(1)))
  • Line Location: OPASK+2
Function Call: WRITE
  • Prompt: ?34,$P($G(^PS(59,PSAOSIT(X),0)),"^"),!
  • Line Location: OPASK+3
Function Call: WRITE
  • Prompt: !!,"Sorry, I cannot find an Inpatient Site associated with this location.",!
  • Line Location: 6+2
Function Call: WRITE
  • Prompt: !,"No wards are currently assigned to this location."
  • Line Location: 6+3
Function Call: WRITE
  • Prompt: !,PSALOCN," is set up to gather AR/WS dispensing data for : ",!!,$P($G(^PS(59.4,+PSAISIT,0)),U),","
  • Line Location: 6+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+10>IOM
  • Line Location: 6+5
Function Call: WRITE
  • Prompt: $P($G(^DIC(42,+PSA(3),0)),U),$S($O(^PSD(58.8,+PSALOC,3,+PSA(3))):", ",1:".")
  • Line Location: 6+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to add/edit the wards accociated with this location? NO // "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: EDTWRD+1
Function Call: WRITE
  • Prompt: !,"Answer Yes, and we'll loop through the ward file, and either add new wards,",!,"or delete wards already associated with this location. "
  • Line Location: EDTWRD+2
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(42,PSAWARD,0)),"^")
  • Line Location: WARDLP+0
Function Call: READ
  • Formatting: ?25
  • Prompt: "Remove association with location? NO // "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: WARDASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: WARDASK+2
Function Call: WRITE
  • Prompt: ?(IOM-9),"removed"
  • Line Location: WARDASK+3
Function Call: WRITE
  • Prompt: ?30,"This ward is already associated with : "_$P($G(^PSD(58.8,$O(^PSD(58.8,"AB",PSAWARD,0)),0)),"^")
  • Line Location: WARD1+1
Function Call: READ
  • Formatting: ?40
  • Prompt: "Add to location ? NO // : "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: WARD1+2
Function Call: WRITE
  • Prompt: !,"Do you want to add this ward to this location?"
  • Line Location: WARD1+3
Function Call: WRITE
  • Prompt: ?(IOM-7),"Adding"
  • Line Location: WARD1+5
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to transfer drugs from another location? NO// "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: 81+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es to transfer all the drugs from another location to this location.",!,"Please note that the drugs will be inactivated in the old location."
  • Line Location: 81+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: 82+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Y'es to transfer all the current information about the drug to the new",!," location.",!!
  • Line Location: 82+1
Function Call: WRITE
  • Prompt: !!,"Sorry, that is the current location."
  • Line Location: 811+0
Function Call: WRITE
  • Prompt: !,$P($G(^PSDRUG(X1,0)),"^")
  • Line Location: 811+1
Function Call: WRITE
  • Prompt: !,$P(^PSD(58.8,DA,0),"^")," Reactivated."
  • Line Location: 10+2
Function Call: WRITE
  • Prompt: @IOF,!,PSAHDR_" SCREEN",!
  • Line Location: PSA10+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: PSA10+0
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !!,"Display help for which item # ?"
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+0
Function Call: WRITE
  • Prompt: @IOF,!,PSAHDR_" for : "_PSALOCN,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$S($G(X6)>0:"Ok, addition completed.",1:"error in adding users ? "),!
  • Line Location: ADD+1

FileMan Files Accessed Via FileMan Db Call

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