Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 5 ^DIC  UPDATE^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
List Manager 3 EN^VALM  (FULL,PAUSE)^VALM1  CLEAN^VALM10  
Outpatient Pharmacy 3 (EDITALL,EDITGEN,EDITRRRC,EDITTRC)^PSOBPSS2  (EN,GETDATA,RRRMSG,TRCMSG)^PSOBPSSL  ^PSOLSET  
Kernel 2 $$UP^XLFSTR  DISP^XQORM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Outpatient Pharmacy 10 PSO BPS SITE PARAMS CHGDIV  PSO BPS SITE PARAMS COPYSP  PSO BPS SITE PARAMS DISPLAY  PSO BPS SITE PARAMS EDITALL  PSO BPS SITE PARAMS EDITGEN  PSO BPS SITE PARAMS EDITRRRC  PSO BPS SITE PARAMS EDITTRC  PSO EPHARM SITE PARAMS  
PSO ePHARM SITE PARAMETERS  PSOBPSS2  
Kernel 2 ^DIC(19  ^ORD(101  

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

External References

Name Field # of Occurrence
^DIC GETDIV+6, CPYSITES+30
UPDATE^DIE COPYSP+72, COPYSP+80, COPYSP+89
^DIK COPYSP+63
$$GET1^DIQ HDR+1, CPYSITES+35, COPYSP+27, COPYSP+28, COPYSP+45, CHGDIV+25
GETS^DIQ COPYSP+57
^DIR COPYSP+53
EDITALL^PSOBPSS2 EDITALL+4
EDITGEN^PSOBPSS2 EDITGEN+4
EDITRRRC^PSOBPSS2 EDITRRRC+4
EDITTRC^PSOBPSS2 EDITTRC+4
EN^PSOBPSSL DIVLIST+6
GETDATA^PSOBPSSL BLDLIST+16
RRRMSG^PSOBPSSL EN+19
TRCMSG^PSOBPSSL EN+19
^PSOLSET DIV+4
EN^VALM EN+21
FULL^VALM1 COPYSP+24, CHGDIV+10, DIVLIST+3
PAUSE^VALM1 EN+11
CLEAN^VALM10 BLDLIST+12
$$UP^XLFSTR CPYSITES+33
DISP^XQORM1 HELP+1

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
Routine Call
  • DIC
  • Line Location:
    • GETDIV+6
    • CPYSITES+30
Routine Call
  • DIE
  • Line Location:
    • COPYSP+72
    • COPYSP+80
    • COPYSP+89
Routine Call
  • DIR
  • Line Location:
    • COPYSP+53
Routine Call
  • VALM
  • Line Location:
    • EN+21

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.86 - [#52.86] EN+7, EN+16, EN+22, COPYSP+62
^PS(59 - [#59] CPYSITES+34
^TMP("PSOBPSSP" EXIT+2!, BLDLIST+13

Label References

Name Line Occurrences
BLDLIST RBUILD+7
CPYSITES COPYSP+37
DIV EN+15
EXITCPY COPYSP+40, COPYSP+54
GETDIV INIT+3, CHGDIV+19
RBUILD INIT+5, EXITCPY+1, CHGDIV+24, CHGDIV+27, DIVLIST+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CDIV CPYSITES~, CPYSITES+34, CPYSITES+41, CPYSITES+44, COPYSP+15~, COPYSP+62*, COPYSP+63, COPYSP+72*, COPYSP+78, COPYSP+79
, COPYSP+87, COPYSP+88
CPDIV COPYSP+15~, COPYSP+27*, COPYSP+37
CPNAME COPYSP+15~, COPYSP+28*, COPYSP+31, COPYSP+45*, COPYSP+46
CPYDIVS COPYSP+15~, COPYSP+37, COPYSP+40
CPYDIVS( COPYSP+50, COPYSP+59
CPYFDA COPYSP+15~, COPYSP+66!, COPYSP+77!, COPYSP+86!
CPYFDA( COPYSP+67*, COPYSP+68*, COPYSP+69*, COPYSP+71*, COPYSP+78*, COPYSP+79*, COPYSP+87*, COPYSP+88*
CTR CPYSITES~, CPYSITES+18*, CPYSITES+33*, CPYSITES+35*, CPYSITES+47*
DA COPYSP+18~, COPYSP+63*
DIC GETDIV+5~, GETDIV+6*, CPYSITES+10~, CPYSITES+25*
DIC("A" GETDIV+6*, CPYSITES+26*, CPYSITES+50*
DIC("B" CPYSITES+50!
DIC("S" CPYSITES+27*
DIC(0 GETDIV+6*, CPYSITES+25*
DIK COPYSP+18~, COPYSP+63*
DIR COPYSP+21~
DIR("A" COPYSP+53*
DIR("B" COPYSP+53*
DIR(0 COPYSP+53*
DIROUT COPYSP+21~
DIRUT COPYSP+21~
DIV GETDIV~, GETDIV+8*, BLDLIST~, BLDLIST+16
DIVCT COPYSP+15~, COPYSP+37, COPYSP+40, COPYSP+47
DIVS CPYSITES~, CPYSITES+25!, CPYSITES+33!*, CPYSITES+38!*, CPYSITES+53*
DIVS( CPYSITES+35*, CPYSITES+44, CPYSITES+47*
DLAYGO GETDIV+5~, GETDIV+6*
DTOUT GETDIV+5~, GETDIV+7, CPYSITES+10~, CPYSITES+38, COPYSP+21~, COPYSP+54
DUOUT GETDIV+5~, GETDIV+7, CPYSITES+10~, CPYSITES+38, COPYSP+21~, COPYSP+54
IROOT COPYSP+15~, COPYSP+72!
IROOT(1 COPYSP+72
LINECT BLDLIST+6~, BLDLIST+9*, BLDLIST+16, BLDLIST+17
LMARRAY BLDLIST+6~, BLDLIST+13*, BLDLIST+16
PARAMS COPYSP+15~
PARAMS( COPYSP+68, COPYSP+69, COPYSP+70, COPYSP+71, COPYSP+76, COPYSP+78, COPYSP+79, COPYSP+85, COPYSP+87, COPYSP+88
PSOBPSDV EN+14~, HDR+1, INIT+3!, INIT+4, EXIT+2!, COPYSP+27, COPYSP+28, COPYSP+45, COPYSP+57, COPYSP+68
, COPYSP+69, COPYSP+70, COPYSP+71, CHGDIV+13, CHGDIV+16!, CHGDIV+19, CHGDIV+22, CHGDIV+23*, CHGDIV+25, RBUILD+7
PSODIV EN+14~, EXIT+2!
PSOI CPYSITES+16~, CPYSITES+34*, CPYSITES+35, COPYSP+15~, COPYSP+50*, COPYSP+59*, COPYSP+62, COPYSP+67
PSOJ COPYSP+15~, COPYSP+76*, COPYSP+78, COPYSP+79, COPYSP+85*, COPYSP+87, COPYSP+88
PSOPAR EN+14~, DIV+4
PSOSITE EN+14~, EN+16, DIV+4
QT CPYSITES+16~, CPYSITES+18*, CPYSITES+30, CPYSITES+33*, CPYSITES+38*
SCR CPYSITES~, CPYSITES+27
TMPDIV CHGDIV+7~, CHGDIV+13*, CHGDIV+23
U GETDIV+8, CPYSITES+44, CPYSITES+47
>> VALMBCK RBUILD+9*
>> VALMBG CHGDIV+26*
>> VALMCNT BLDLIST+17*
>> VALMHDR(1 HDR+1*, CHGDIV+25*
>> VALMQUIT INIT+4*
X HELP+1*, GETDIV+5~, CPYSITES+10~, CPYSITES+30, CPYSITES+33, COPYSP+21~
Y GETDIV+5~, GETDIV+7, GETDIV+8, CPYSITES+10~, CPYSITES+41, CPYSITES+44, CPYSITES+47, COPYSP+21~, COPYSP+54
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All