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

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  
Kernel 2 $$UP^XLFSTR  DISP^XQORM1  
Outpatient Pharmacy 2 (EN,GETDATA,RRRMSG,TRCMSG)^PSOBPSSL  ^PSOLSET  

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

Package Total Caller Graph
Outpatient Pharmacy 9 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  

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 ;
EDITALL ; Action for EA Edit All Parameters
EDITGEN(RETURN) ; Action for EG Edit General Parameters
EDITTRC(RETURN)
EDITRRRC(RETURN)
CHGDIV ; Action for CD Change Division
DIVLIST ; Action for DP Display site parameters
RBUILD ; rebuild the list and then exit with a refresh

External References

Name Field # of Occurrence
^DIC GETDIV+6, CPYSITES+30, EDITTRC+38, EDITRRRC+38
^DIE EDITGEN+12, EDITGEN+20, EDITGEN+25, EDITTRC+66, EDITTRC+83, EDITTRC+88, EDITTRC+94, EDITTRC+105, EDITRRRC+66, EDITRRRC+83
, EDITRRRC+88, EDITRRRC+94, EDITRRRC+105
UPDATE^DIE COPYSP+72, COPYSP+80, COPYSP+89, EDITTRC+56, EDITRRRC+56
^DIK COPYSP+63
$$GET1^DIQ HDR+1, CPYSITES+35, COPYSP+27, COPYSP+28, COPYSP+45, EDITGEN+18, EDITTRC+87, EDITTRC+92, EDITRRRC+87, EDITRRRC+92
CHGDIV+25
GETS^DIQ COPYSP+57
^DIR COPYSP+53
EN^PSOBPSSL DIVLIST+6
GETDATA^PSOBPSSL BLDLIST+16
RRRMSG^PSOBPSSL EN+19, EDITRRRC+19
TRCMSG^PSOBPSSL EN+19, EDITTRC+19
^PSOLSET DIV+4
EN^VALM EN+21
FULL^VALM1 COPYSP+24, EDITGEN+9, EDITTRC+13, EDITRRRC+13, 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
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITTRC+38
Function Call: WRITE
  • Prompt: !!?3,"You are entering a new transfer reject code - "_REJCODE_"."
  • Line Location: EDITTRC+64
Function Call: WRITE
  • Prompt: !!?3,"You are editing an existing transfer reject code - "_REJCODE_"."
  • Line Location: EDITTRC+65
Function Call: WRITE
  • Prompt: !!?3,"You selected a duplicate reject code. Code '"_REJCODE_"' has been restored."
  • Line Location: EDITTRC+84
Function Call: WRITE
  • Prompt: !!?3,"Code '79/RTS' is not valid here. Code '"_REJCODE_"' has been restored."
  • Line Location: EDITTRC+89
Function Call: WRITE
  • Prompt: !!?3,"Reject code '88/DUR' is not valid here. Code '"_REJCODE_"' has been restored."
  • Line Location: EDITTRC+93
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITRRRC+38
Function Call: WRITE
  • Prompt: !!?3,"You are entering a new reject resolution required code - "_REJCODE_"."
  • Line Location: EDITRRRC+64
Function Call: WRITE
  • Prompt: !!?3,"You are editing an existing reject resolution required code - "_REJCODE_"."
  • Line Location: EDITRRRC+65
Function Call: WRITE
  • Prompt: !!?3,"You selected a duplicate reject code. Code '"_REJCODE_"' has been restored."
  • Line Location: EDITRRRC+84
Function Call: WRITE
  • Prompt: !!?3,"Code '79/RTS' is not valid here. Code '"_REJCODE_"' has been restored."
  • Line Location: EDITRRRC+89
Function Call: WRITE
  • Prompt: !!?3,"Reject code '88/DUR' is not valid here. Code '"_REJCODE_"' has been restored."
  • Line Location: EDITRRRC+93
Routine Call
  • DIC
  • Line Location:
    • GETDIV+6
    • CPYSITES+30
    • EDITTRC+38
    • EDITRRRC+38
Routine Call
  • DIE
  • Line Location:
    • EDITGEN+12
    • EDITGEN+20
    • EDITGEN+25
    • EDITTRC+66
    • EDITTRC+83
    • EDITTRC+88
    • EDITTRC+94
    • EDITTRC+105
    • EDITRRRC+66
    • EDITRRRC+83
    • EDITRRRC+88
    • EDITRRRC+94
    • EDITRRRC+105
Routine Call
  • DIE
  • Line Location:
    • COPYSP+72
    • COPYSP+80
    • COPYSP+89
    • EDITTRC+56
    • EDITRRRC+56
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
^BPSF(9002313.93 - [#9002313.93] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.86 - [#52.86] EN+7, EN+16, EN+22, COPYSP+62, EDITTRC+48, EDITTRC+60, EDITTRC+74, EDITTRC+81, EDITRRRC+48, EDITRRRC+60
, EDITRRRC+74, EDITRRRC+81, EDITRRRC+107, EDITRRRC+108*
^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
EDITGEN EDITALL+7
EDITRRRC EDITALL+15
EDITTRC EDITALL+11
EXITCPY COPYSP+40, COPYSP+54
GETDIV INIT+3, CHGDIV+19
RBUILD INIT+5, EXITCPY+1, EDITALL+8, EDITALL+12, EDITALL+17, EDITGEN+28, EDITTRC+112, EDITRRRC+115, CHGDIV+24, CHGDIV+27
DIVLIST+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD EDITTRC+31~, EDITTRC+45*, EDITTRC+51*, EDITTRC+64, EDITRRRC+31~, EDITRRRC+45*, EDITRRRC+51*, EDITRRRC+64
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*, EDITTRC+78~, EDITTRC+80*, EDITTRC+81*, EDITTRC+82, EDITRRRC+78~
, EDITRRRC+80*, EDITRRRC+81*, EDITRRRC+82
DA COPYSP+18~, COPYSP+63*, EDITGEN+6~, EDITGEN+12*, EDITGEN+20*, EDITGEN+25*, EDITTRC+24~, EDITTRC+60*, EDITTRC+68, EDITTRC+74*
, EDITRRRC+24~, EDITRRRC+60*, EDITRRRC+68, EDITRRRC+74*, EDITRRRC+107, EDITRRRC+108
DA(1 EDITTRC+61*, EDITTRC+62, EDITTRC+102*, EDITTRC+103, EDITRRRC+61*, EDITRRRC+62, EDITRRRC+102*, EDITRRRC+103
DEF EDITGEN+6~, EDITGEN+18*, EDITGEN+19*, EDITGEN+20
DIC GETDIV+5~, GETDIV+6*, CPYSITES+10~, CPYSITES+25*, EDITGEN+6~, EDITTRC+24~, EDITTRC+35*, EDITRRRC+24~, EDITRRRC+35*
DIC("A" GETDIV+6*, CPYSITES+26*, CPYSITES+50*, EDITTRC+34*, EDITRRRC+34*
DIC("B" CPYSITES+50!
DIC("S" CPYSITES+27*, EDITTRC+37*, EDITRRRC+37*
DIC(0 GETDIV+6*, CPYSITES+25*, EDITTRC+36*, EDITRRRC+36*
DIE EDITGEN+6~, EDITGEN+12*, EDITGEN+20*, EDITGEN+25*, EDITTRC+24~, EDITTRC+62*, EDITTRC+103*, EDITRRRC+24~, EDITRRRC+62*, EDITRRRC+103*
DIK COPYSP+18~, COPYSP+63*
DIR COPYSP+21~, EDITTRC+24~, EDITRRRC+24~
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*
DR EDITGEN+12*, EDITGEN+20*, EDITGEN+25*, EDITTRC+24~, EDITTRC+63*, EDITTRC+83*, EDITTRC+88*, EDITTRC+94*, EDITTRC+104*, EDITRRRC+24~
, EDITRRRC+63*, EDITRRRC+83*, EDITRRRC+88*, EDITRRRC+94*, EDITRRRC+104*
DTOUT GETDIV+5~, GETDIV+7, CPYSITES+10~, CPYSITES+38, COPYSP+21~, COPYSP+54, EDITGEN+6~, EDITGEN+14, EDITGEN+17!, EDITGEN+22
, EDITGEN+27, EDITTRC+24~, EDITTRC+41, EDITTRC+69, EDITTRC+107, EDITRRRC+24~, EDITRRRC+41, EDITRRRC+69, EDITRRRC+107, EDITRRRC+110
DUOUT GETDIV+5~, GETDIV+7, CPYSITES+10~, CPYSITES+38, COPYSP+21~, COPYSP+54, EDITGEN+6~, EDITGEN+17!, EDITTRC+24~, EDITTRC+41
, EDITRRRC+24~, EDITRRRC+41
IEN EDITTRC+78~, EDITTRC+80*, EDITTRC+81*, EDITRRRC+78~, EDITRRRC+80*, EDITRRRC+81*
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
NEWCDPTR EDITTRC+31~, EDITTRC+74*, EDITTRC+75, EDITTRC+81, EDITTRC+85*, EDITTRC+87, EDITTRC+90*, EDITTRC+92, EDITTRC+95*, EDITTRC+99
, EDITRRRC+31~, EDITRRRC+74*, EDITRRRC+75, EDITRRRC+81, EDITRRRC+85*, EDITRRRC+87, EDITRRRC+90*, EDITRRRC+92, EDITRRRC+95*, EDITRRRC+99
PARAMS COPYSP+15~
PARAMS( COPYSP+68, COPYSP+69, COPYSP+70, COPYSP+71, COPYSP+76, COPYSP+78, COPYSP+79, COPYSP+85, COPYSP+87, COPYSP+88
PASS1 EDITTRC+15~, EDITTRC+16*, EDITTRC+34*, EDITRRRC+15~, EDITRRRC+16*, EDITRRRC+34*
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, EDITGEN+12, EDITGEN+18, EDITGEN+20, EDITGEN+25, EDITTRC+48, EDITTRC+54, EDITTRC+55
, EDITTRC+60, EDITTRC+61, EDITTRC+74, EDITTRC+81, EDITTRC+102, EDITRRRC+48, EDITRRRC+54, EDITRRRC+55, EDITRRRC+60, EDITRRRC+61
, EDITRRRC+74, EDITRRRC+81, EDITRRRC+102, EDITRRRC+107, EDITRRRC+108, 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*, EDITTRC+15~, EDITTRC+16*, EDITTRC+22, EDITTRC+41*, EDITTRC+42*
, EDITTRC+69*, EDITTRC+70*, EDITTRC+107*, EDITTRC+108*, EDITRRRC+15~, EDITRRRC+16*, EDITRRRC+22, EDITRRRC+41*, EDITRRRC+42*, EDITRRRC+69*
, EDITRRRC+70*, EDITRRRC+110*, EDITRRRC+111*
REJCODE EDITTRC+31~, EDITTRC+44*, EDITTRC+64, EDITTRC+65, EDITTRC+84, EDITTRC+89, EDITTRC+93, EDITRRRC+31~, EDITRRRC+44*, EDITRRRC+64
, EDITRRRC+65, EDITRRRC+84, EDITRRRC+89, EDITRRRC+93
REJIEN EDITTRC+31~, EDITTRC+44*, EDITTRC+48, EDITTRC+54, EDITTRC+60, EDITTRC+75, EDITTRC+83, EDITTRC+88, EDITTRC+94, EDITRRRC+31~
, EDITRRRC+44*, EDITRRRC+48, EDITRRRC+54, EDITRRRC+60, EDITRRRC+75, EDITRRRC+83, EDITRRRC+88, EDITRRRC+94
RET EDITALL+4~*, EDITALL+7, EDITALL+8, EDITALL+11, EDITALL+12
RETURN EDITGEN~, EDITGEN+14*, EDITGEN+22*, EDITGEN+27*, EDITTRC~, EDITTRC+41*, EDITTRC+69*, EDITTRC+70*, EDITTRC+107*, EDITTRC+108*
, EDITRRRC~, EDITRRRC+41*, EDITRRRC+69*, EDITRRRC+70*, EDITRRRC+110*, EDITRRRC+111*
RRRCFDA EDITRRRC+50~
RRRCFDA( EDITRRRC+54*, EDITRRRC+55*
SCR CPYSITES~, CPYSITES+27
TMPDIV CHGDIV+7~, CHGDIV+13*, CHGDIV+23
TRCFDA EDITTRC+50~
TRCFDA( EDITTRC+54*, EDITTRC+55*
U GETDIV+8, CPYSITES+44, CPYSITES+47, EDITALL+8, EDITALL+12, EDITTRC+41, EDITTRC+44, EDITTRC+69, EDITTRC+70, EDITTRC+74
, EDITTRC+107, EDITTRC+108, EDITRRRC+41, EDITRRRC+44, EDITRRRC+69, EDITRRRC+70, EDITRRRC+74, EDITRRRC+108, EDITRRRC+110, EDITRRRC+111
>> VALMBCK RBUILD+9*
>> VALMBG EDITTRC+111*, EDITRRRC+114*, 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~, EDITTRC+24~, EDITRRRC+24~
Y GETDIV+5~, GETDIV+7, GETDIV+8, CPYSITES+10~, CPYSITES+41, CPYSITES+44, CPYSITES+47, COPYSP+21~, COPYSP+54, EDITGEN+14
, EDITGEN+22, EDITGEN+27, EDITTRC+24~, EDITTRC+42, EDITTRC+44, EDITTRC+70, EDITTRC+108, EDITRRRC+24~, EDITRRRC+42, EDITRRRC+44
, EDITRRRC+70, EDITRRRC+111
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