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

Package: Outpatient Pharmacy

Routine: PSOBPSSP


Information

PSOBPSSP ;BIRM/LE - ePharmacy Site Parameters Definition ;04/28/08

Source Information

Source file <PSOBPSSP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Prompt for ePharmacy Site Parameters
HDR ; -- header code -- PSO EPHARM SITE PARAMS
INIT ; -- init variables and list array -- PSO EPHARM SITE PARAMS
; PSOBPSDV is the IEN of the current division being edited. (NEWed in EN)
; Get the division number
HELP ; -- help code -- PSO EPHARM SITE PARAMS
EXIT ; -- exit code
EXPND ; -- expand code
GETDIV(DIV) ; Gets a single division. If it does not exist, the new division is created
; and the user is prompted for worklist days.
; Called by INIT on entry and when Change Division action is selected
; DIV - ePharmacy site parameter IEN - Parameters for division pointed to in .01 field
BLDLIST(DIV) ; Rebuilds the List Manager array
DIV ; Establish the PSO Site information - Also called by PSOBPSSL Division/Site selection
CPYSITES(DIVS,CTR,CDIV,SCR) ; Procedure for picking sites for the copy function.
; Cloned from SEL^PSOREJU1 with changes for Site Parameter Copy action
;
; Input Parameters
; DIVS - passed by reference and will hold the divisions to process
; CTR - passed by reference, returns the number of divisions picked.
; CDIV - source site parameter pharmacy division IEN (ptr to file 59).
; SCR - Screen to prevent source division from being selected.
COPYSP ; Action for CP Copy Parameters
; From EN
; PSOBPSDV - source site parameter IEN of 52.86 - defined in EN
EXITCPY ;
CHGDIV ; Action for CD Change Division
DIVLIST ; Action for DP Display site parameters
RBUILD ; rebuild the list and then exit with a refresh
EDITALL ; Action for EA Edit All Parameters
EDITGEN ; Action for EG Edit General Parameters
EDITTRC ; Action for ET Edit Transfer Reject Code
EDITRRRC ; Action for ER Edit Reject Resolution Required Code

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?2,"Sorry, another user is currently using the ePharmacy Site Parameters option."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?2,"Please try again later."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",!
  • Line Location: DIV+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIV+5
Function Call: WRITE
  • Prompt: !,"You may select a single or multiple Pharmacy Divisions,"
  • Line Location: CPYSITES+21
Function Call: WRITE
  • Prompt: !,"or enter ^ALL to select all Pharmacy Divisions.",!
  • Line Location: CPYSITES+22
Function Call: WRITE
  • Prompt: !,"The source Pharmacy Division cannot be copied to itself."
  • Line Location: CPYSITES+41
Function Call: WRITE
  • Prompt: $P(Y,U,2)_" is already selected."
  • Line Location: CPYSITES+44
Function Call: WRITE
  • Prompt: !
  • Line Location: CPYSITES+50
Function Call: WRITE
  • Prompt: !!,"The parameters will be copied from "_CPNAME_" Division.",!
  • Line Location: COPYSP+31
Function Call: WRITE
  • Prompt: !,"Select the Pharmacy Division(s) to overwrite."
  • Line Location: COPYSP+32
Function Call: WRITE
  • Prompt: !!,"The parameters from Pharmacy Division "_CPNAME
  • Line Location: COPYSP+46
Function Call: WRITE
  • Prompt: !,"will overwrite the parameters in Pharmacy Division"_$S(DIVCT>1:"s:",1:":")
  • Line Location: COPYSP+47
Function Call: WRITE
  • Prompt: !,CPYDIVS(PSOI)
  • Line Location: COPYSP+50
Function Call: WRITE
  • Prompt: !!
  • Line Location: COPYSP+53

FileMan Files Accessed Via FileMan Db Call

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