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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOSUPOE

Package: Outpatient Pharmacy

Routine: PSOSUPOE


Information

PSOSUPOE ;BIR/RTR - Suspense pull via Listman ;3/1/96

Source Information

Source file <PSOSUPOE.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 11 ($$LSTRFL,ECMESND)^PSOBPSU1  $$STATUS^PSOBPSUT  $$TRIC^PSOREJP1  $$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$ECMECHK^PSOREJU3  $$FIND^PSOREJUT  ($$PRINTED,REMOVE)^PSOSULBL  
MAILS^PSOSUPAT  $$PRTQUES^PSOSUPRX  EX^PSOSUTL  
VA FileMan 4 ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Outpatient Pharmacy 7 PSO PULL ONE RX FROM SUSPENSE  PSO SPEED PULL SUSPENSE  PSORX1  PSORXL  PSOSUPAT  PSOSUPRX  PSOTPRX1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
RESET ;
PPLADD ;
; This function will move entries from the RXRS array (which has RXs that were pulled
; from supense via the PP action on the Medication profile) to the list of RXs that
; will get a label (PPL variable and possible PSORX array).
; Note that arrays RXRS and PSORX and variable PPL are pre-existing
END
EHOLD ;
BBADD ;
BEG ;
CKDIV ;
ULRX ;
GETMW ;
ADD ;Add Rx to SPSORX array
SELONE ;Pull one Rx through Listman
WIND ;
SEL
SELQ
DIR ;
BEGQ

External References

Name Field # of Occurrence
^DIE BEGQ+5, RESET+9, RESET+10
^DIK BEGQ+5
$$GET1^DIQ SELONE+8, EHOLD+2, EHOLD+4
^DIR SEL+2, SELQ+1, SELQ+2, SELQ+3, DIR+1, CKDIV+2, EHOLD+7
$$LSTRFL^PSOBPSU1 BEGQ+28
ECMESND^PSOBPSU1 BEGQ+29
$$STATUS^PSOBPSUT BEGQ+35
$$TRIC^PSOREJP1 BEGQ+35
$$PSOET^PSOREJP3 BEGQ+31
$$HDLG^PSOREJU1 BEGQ+33
$$ECMECHK^PSOREJU3 PPLADD+19
$$FIND^PSOREJUT BEGQ+33
$$PRINTED^PSOSULBL BEGQ+14
REMOVE^PSOSULBL BEGQ+17
MAILS^PSOSUPAT BEGQ+41
$$PRTQUES^PSOSUPRX BEGQ+16
EX^PSOSUTL BEGQ+6
PSOL^PSSLOCK BEGQ+1
PSOUL^PSSLOCK ULRX+2
FULL^VALM1 SELQ, EHOLD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Rx# ",$P(^PSRX(RXREC,0),"^")," is not on Suspense!"
  • Line Location: BEGQ+2
Function Call: WRITE
  • Prompt: !,">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")," ALREADY PRINTED FROM SUSPENSE.",!,?5,"USE THE REPRINT OPTION TO REPRINT LABEL."
  • Line Location: BEGQ+4
Function Call: WRITE
  • Prompt: !,"Rx # "_$P(^PSRX(RXREC,0),"^")_" has expired!"
  • Line Location: BEGQ+5
Function Call: WRITE
  • Prompt: !!,"A reprint has already been requested for Rx # ",$P($G(^PSRX(RXREC,0)),"^")
  • Line Location: BEGQ+7
Function Call: WRITE
  • Prompt: !!,"A partial has already been requested for Rx # ",$P($G(^PSRX(RXREC,0)),"^")
  • Line Location: BEGQ+8
Function Call: WRITE
  • Prompt: !,"This prescription will not be pulled but will be left on suspense."
  • Line Location: BEGQ+18
Function Call: WRITE
  • Prompt: !!,"Pull early cannot be done for non-billable TRICARE/CHAMPVA Rx on the worklist"
  • Line Location: BEGQ+31
Function Call: WRITE
  • Prompt: !!,"Pull early cannot be done for IN PROGRESS TRICARE/CHAMPVA Rx"
  • Line Location: BEGQ+35
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+1
Function Call: WRITE
  • Prompt: !!?10,"Rx # ",$P(^PSRX(RXREC,0),"^")," is not a valid choice (Different Division)"
  • Line Location: CKDIV+1
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: SELONE+1
Function Call: WRITE
  • Prompt: !,"This is an ePharmacy billable fill which is Suspended until "_$$GET1^DIQ(52.5,ESIEN,10)_", based"
  • Line Location: EHOLD+4
Function Call: WRITE
  • Prompt: !,"on the 3/4 Days rule.",!
  • Line Location: EHOLD+5
Routine Call
  • DIE
  • Line Location:
    • BEGQ+5
    • RESET+9
    • RESET+10
Routine Call
  • DIR
  • Line Location:
    • SEL+2
    • SELQ+1
    • SELQ+2
    • SELQ+3
    • DIR+1
    • CKDIV+2
    • EHOLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(52.5 - [#52.5] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] BEGQ+3, BEGQ+4, BEGQ+9, BEGQ+13, BEGQ+37, BEGQ+38, BEGQ+39, BEGQ+41*, PPLADD+13, PPLADD+15
, SELONE+7, RESET+3, RESET+4, RESET+6*, GETMW+3
^PSRX - [#52] BEGQ, BEGQ+1, BEGQ+2, BEGQ+4, BEGQ+5, BEGQ+7, BEGQ+8, BEGQ+39, BEGQ+41*, WIND+3
, WIND+4, WIND+5, WIND+6, CKDIV+1, CKDIV+2, SELONE+5, SELONE+10, SELONE+12, RESET+8*, RESET+11*
, GETMW+4, GETMW+5, GETMW+6, GETMW+7

Label References

Name Line Occurrences
BEG SELQ+7
BEGQ SELONE+12
CKDIV BEGQ+9
DIR BEGQ+1, BEGQ+2, BEGQ+3, BEGQ+4, BEGQ+5, BEGQ+7, BEGQ+8, BEGQ+9, BEGQ+19, BEGQ+31
, BEGQ+35
EHOLD SELONE+8
END SELQ+1, SELQ+2, SELQ+3
GETMW BEGQ+39
SELQ SELONE+10
ULRX BEGQ+2, BEGQ+3, BEGQ+4, BEGQ+5, BEGQ+7, BEGQ+8, BEGQ+9, BEGQ+19, BEGQ+27, BEGQ+44

Naked Globals

Name Field # of Occurrence
^("STA" BEGQ+5
^(0 BEGQ+4, BEGQ+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AAA BEGQ+6~
ACTION BEGQ+26~*, BEGQ+27, BEGQ+31*, BEGQ+33*, BEGQ+35*
>> BBRX( BBADD+3, BBADD+4*, BBADD+5*
>> BBRX(1 BBADD+2*
CONT BEGQ+16~*, BEGQ+17, BEGQ+18
DA BEGQ+5*!, RESET+1~, RESET+9*, RESET+10*
DA(1 RESET+9*
DIE BEGQ+5*!, RESET+9*!, RESET+10*!
DIK BEGQ+5*!
DIR SEL+2!, SELQ+1!, SELQ+2!, SELQ+3!, DIR+1!, CKDIV+2!, EHOLD+6!, EHOLD+7!
DIR("?" SELQ+4*, SELQ+5*
DIR("A" SEL+2*, SELQ+1*, SELQ+2*, SELQ+3*, DIR+1*, CKDIV+2*, EHOLD+6*
DIR("B" SELQ+1*, SELQ+3*, CKDIV+2*
DIR(0 SEL+2*, SELQ+1*, SELQ+2*, SELQ+3*, DIR+1*, CKDIV+2*, EHOLD+6*
>> DIRUT CKDIV+2, EHOLD+7
>> DR BEGQ+5*, RESET+9*, RESET+10*
DT BEGQ+5
DTOUT SEL+2!, SELQ+1, SELQ+2
DUOUT SEL+2!, SELQ+1, SELQ+2
DUZ BEGQ+4, BEGQ+17
EHOLDQ SELONE+7~, SELONE+8, SELONE+9!, EHOLD+6*, EHOLD+7*
ERXIEN SELONE+7~*, SELONE+9!, EHOLD+1, EHOLD+2
ESIEN SELONE+7~*, SELONE+8, SELONE+9!, EHOLD+4
GETCNT GETMW+1~, GETMW+6*
GETPAR GETMW+1~, GETMW+3*, GETMW+4
GETRX GETMW+1~, GETMW+6*, GETMW+7
JJJJ WIND+1~
LSFN PPLADD+5~, PPLADD+13*, PPLADD+14, PPLADD+15
MW SEL+1~, BEGQ+41*, SELONE+2~
ORD SEL+1~, SELONE+2~
ORN SEL+1~, SELONE+4, SELONE+5, SELONE+6, SELONE+7, SELONE+10, SELONE+11
>> PBINGRTE WIND+2*, WIND+3*, WIND+5*, WIND+6*
PDUZ SEL+1~, BEGQ+4*, SELONE+2~
>> PPL PPLADD+6*, PPLADD+11, PPLADD+21*, PPLADD+22*
PRNTED BEGQ+12~, BEGQ+14*, BEGQ+16, BEGQ+17
PSCOU BEGQ+6~
PSINTRX WIND+1~, WIND+2*, WIND+3, WIND+4, WIND+5, WIND+6
PSLST SEL+1~, SEL+3*, SELQ+7, SELONE+2~
>> PSOBEDT SELONE+1
>> PSOCNT SEL, SEL+2
>> PSODFN BEGQ+38
>> PSODIV BEGQ+9
PSOEXPI BEGQ+6~
PSOGET SEL+1~, BEGQ+39*, BEGQ+40, BEGQ+44!, GETMW+4*, GETMW+5*, GETMW+7*
PSOGETF SEL+1~, BEGQ+40, BEGQ+44!, GETMW+2*, GETMW+4*, GETMW+7*
PSOGETFN SEL+1~, BEGQ+40, GETMW+2*, GETMW+4*, GETMW+7*
>> PSOLST( SELQ+7, BEG+1, SELONE+4, SELONE+5, SELONE+6, SELONE+7, SELONE+10, SELONE+11
PSOMSG BEGQ+1!, BEGQ+2!
>> PSOPAR SELQ+2
PSOPRT BEGQ+6~
PSOPSO WIND+1~, WIND+4*, WIND+5, WIND+6
>> PSORX("PSOL" PPLADD+23*, PPLADD+24, PPLADD+25*, PPLADD+26*
>> PSOSITE BEGQ+9
PSOSQ SEL+1~, SELQ+9, BEGQ+42*, SELONE+2~, SELONE+12
PSOSQMTH SEL+1~, SELQ+2*, BEGQ+41, SELONE+2~
PSOSQRTE SEL+1~, SELQ+2*, BEGQ+41, SELONE+2~
>> PSOSYS CKDIV+1, CKDIV+2
PSOX1 SEL+1~, ADD+2*, BBADD+1~, BBADD+3*, SELONE+2~
PSOX2 SEL+1~, ADD+2*, ADD+3, ADD+4, BBADD+1~, BBADD+3*, BBADD+4, BBADD+5, SELONE+2~
PSPOP SEL+1~, BEGQ+9*, CKDIV+1*, CKDIV+2*, SELONE+2~
PULLONE SELQ+6, END*, SELONE+2~, SELONE+3*, SELONE+10
QQQ BEGQ+6~
RFCNT BEGQ+41~
RFL BEGQ+12~, BEGQ+13*, BEGQ+14, BEGQ+16, BEGQ+17, BEGQ+28~*, BEGQ+29, BEGQ+31, BEGQ+33, BEGQ+35
RR BEGQ+41~
RRT WIND+1~
RRTT WIND+1~
RSDA RESET+1~, RESET+2*, RESET+3, RESET+5, RESET+8, RESET+9, RESET+10, RESET+11
RTETEST WIND+1~, WIND+3*, WIND+5*, WIND+6*
RXFILL RESET+1~, RESET+5*, RESET+7, RESET+9, RESET+10
RXFILLN RESET+1~, RESET+5*, RESET+8, RESET+9
>> RXFL( BEGQ+28, BEGQ+38*
RXLTOP SEL+1~, BEGQ+38*, SELONE+2~
RXMP RESET+1~, RESET+5*, RESET+8, RESET+11
RXMW RESET+1~, RESET+5*, RESET+6
>> RXPR( BEGQ+8, BEGQ+27, BEGQ+37*, WIND+3
RXPSRX RESET+1~, RESET+5*, RESET+8, RESET+9, RESET+10
RXR RESET+1~
RXREC SEL+1~, BEG+1*, BEGQ, BEGQ+1, BEGQ+2, BEGQ+3, BEGQ+5, BEGQ+7, BEGQ+8, BEGQ+14
, BEGQ+16, BEGQ+17, BEGQ+27, BEGQ+28, BEGQ+29, BEGQ+31, BEGQ+33, BEGQ+35, BEGQ+37, BEGQ+38
, BEGQ+39, BEGQ+40, BEGQ+41, WIND+2, WIND+3, ADD+1, ADD+3, ADD+4, BBADD+2, BBADD+4
, BBADD+5, CKDIV+1, CKDIV+2, SELONE+2~, SELONE+11*, SELONE+12, GETMW+4, GETMW+5, GETMW+6, GETMW+7
, ULRX+1, ULRX+2
>> RXRP( BEGQ+7, BEGQ+37*
>> RXRS( BEGQ+38*, BEGQ+39*, BEGQ+40*, PPLADD+9, SELONE+6, RESET+2, RESET+5
RXSP RESET+1~, RESET+3*, RESET+4, RESET+6
SFN SEL+1~, BEGQ+3*, BEGQ+4, BEGQ+5, BEGQ+9, BEGQ+13, BEGQ+14, BEGQ+17, BEGQ+37, BEGQ+38
, BEGQ+39, BEGQ+41, SELONE+2~, GETMW+3
SORD SEL+1~, SELQ+7*, SELONE+2~
SORN SEL+1~, SELQ+7*, BEG+1, SELONE+2~
>> SPSORX("PSOL" ADD+1*, ADD+2, ADD+3*, ADD+4*
SPSOX1 PPLADD+5~, PPLADD+24*
SPSOX2 PPLADD+5~, PPLADD+24*, PPLADD+25, PPLADD+26
SSSS WIND+1~, WIND+4*
SZZ PPLADD+5~, PPLADD+9*, PPLADD+11, PPLADD+13, PPLADD+19, PPLADD+21, PPLADD+22, PPLADD+23, PPLADD+25, PPLADD+26
U BEGQ+35
>> VALMBCK SEL*, SEL+2*, SELQ+8*, END*, SELONE+1*, SELONE+4*, SELONE+5*, SELONE+6*, SELONE+13*, EHOLD+8*
VALMCNT SEL+1~, SELONE+2~
>> VALMSG SEL*, SEL+2*, SELQ+9*, END*, SELONE+1*, SELONE+5*, SELONE+6*, SELONE+10*, SELONE+12*, EHOLD+8*
VVV BEGQ+6~
XXXX WIND+1~
>> Y SEL+2, SEL+3, SELQ+1, SELQ+2, SELQ+3, CKDIV+2, EHOLD+7
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 |  Naked Globals |  Local Variables |  All