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

Package: Outpatient Pharmacy

Routine: PSOSUPRX


Information

PSOSUPRX ;BIR/RTR - Suspense pull early ;3/1/96

Source Information

Source file <PSOSUPRX.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Outpatient Pharmacy 17 ^PSOBING1  ($$LSTRFL,ECMESND)^PSOBPSU1  CAN^PSOCAN  ICN^PSODPT  EN^PSOHLUP  ^PSOLSET  ^PSOPRF  $$TRIC^PSOREJP1  
$$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  Q^PSORXL  ($$PRINTED,REMOVE)^PSOSULBL  (,CKDIV,MAIL,PSOINST,RESET)^PSOSUPAT  GETMW^PSOSUPOE  EX^PSOSUTL  
NEXT^PSOUTIL  
VA FileMan 5 NOW^%DTC  ^DIC  ^DIE  ^DIK  ^DIR  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 3 PSO PNDRX  PSOSUPAT  PSOSUPOE  

Entry Points

Name Comments DBIA/ICR reference
UNLK ;Unlock prescription
PRF
LIST
BEG
DEAD
ST
PRTQUES(RX,RFL) ;
; Prompt if the user wants to continue when a label has been printed already
; Input:
; RX - Prescription (#52) file IEN
; RFL - Fill Number
; Output:
; 0 - Do not continue (user said No)
; 1 - Continue (user said Yes)
; -1 - Up-arrow, time-out, invalid parameter or any other non-YES/NO response
QUES ;
; Ask Routing, method of pickup, and whether to continue. Also update RX and RX Suspense records with new values. Save off old
; values in case we need to reset them later.
LU
EXIT
CHKDEAD
NEXT
WIND ;

External References

Name Field # of Occurrence
NOW^%DTC LU
^DIC LU+4, LIST
^DIE BEG+1, QUES+6, NEXT+1
^DIK BEG+1
^DIR ST+3, LU+3, LU+6, QUES+3, QUES+7, PRTQUES+16
^PSOBING1 BEG+27
$$LSTRFL^PSOBPSU1 QUES+13, PRTQUES+11
ECMESND^PSOBPSU1 QUES+14
CAN^PSOCAN DEAD
ICN^PSODPT BEG+15
EN^PSOHLUP LU+10
^PSOLSET ST
^PSOPRF PRF
$$TRIC^PSOREJP1 QUES+17
$$PSOET^PSOREJP3 QUES+16
$$HDLG^PSOREJU1 QUES+18
$$FIND^PSOREJUT QUES+18
Q^PSORXL BEG+19
$$PRINTED^PSOSULBL BEG+10
REMOVE^PSOSULBL BEG+12
^PSOSUPAT ST+3
CKDIV^PSOSUPAT LU+11
MAIL^PSOSUPAT QUES+5
PSOINST^PSOSUPAT LU+3
RESET^PSOSUPAT LU+12
GETMW^PSOSUPOE QUES+4
EX^PSOSUTL BEG+2
NEXT^PSOUTIL NEXT
PSOL^PSSLOCK LU+6
PSOUL^PSSLOCK UNLK+2
DEM^VADPT CHKDEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LU+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LU+4
Function Call: WRITE
  • Prompt: !,$P($G(PSOMSG),"^",2),!
  • Line Location: LU+7
Function Call: WRITE
  • Prompt: !?10,"PATIENT UNKNOWN"
  • Line Location: CHKDEAD+0
Function Call: WRITE
  • Prompt: !,">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")," ALREADY PRINTED FROM SUSPENSE.",!,?5,"USE THE REPRINT OPTION TO REPRINT LABEL.",!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !,"Rx # "_$P(^PSRX(RXREC,0),"^")_" has expired!"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !,"This prescription will not be pulled but will be left on suspense."
  • Line Location: BEG+13
Function Call: WRITE
  • Prompt: !!,"LABEL QUEUED TO PRINT",!
  • Line Location: BEG+20
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !!?5,"Nothing pulled from suspense!",!
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: $C(7),!!?5,"Nothing pulled from suspense!",!
  • Line Location: QUES+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!,"Label for Rx#",$P($G(^PSRX(RX,0)),"^")," Fill#",RFL," has already been printed"
  • Line Location: PRTQUES+14
Routine Call
  • DIE
  • Line Location:
    • BEG+1
    • QUES+6
    • NEXT+1
Routine Call
  • DIC
  • Line Location:
    • LU+4
    • LIST
Routine Call
  • DIR
  • Line Location:
    • ST+3
    • LU+3
    • LU+6
    • QUES+3
    • QUES+7
    • PRTQUES+16

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] LU+11, CHKDEAD+2, BEG, BEG+3, BEG+9, BEG+16, BEG+17, BEG+18, QUES+4, QUES+5*
, PRF
^PS(55 - [#55] LU+10, CHKDEAD+2
^PSRX - [#52] LU+4, BEG, BEG+1, BEG+15, QUES+4, QUES+6, QUES+19, PRF, WIND+4, WIND+5
, WIND+6, WIND+7, WIND+8, PRTQUES+14

Label References

Name Line Occurrences
$$PRTQUES BEG+11
BEG LU+12
CHKDEAD LU+12
DEAD CHKDEAD+2
EXIT ST+3
LU LU+3, LU+4, LU+6, LU+11, LU+12
PRF BEG+21
QUES BEG+18
ST ST, LU+3, LU+4
UNLK LU+11, LU+12
WIND BEG+19

Naked Globals

Name Field # of Occurrence
^("STA" BEG+1
^(0 CHKDEAD+2, BEG, BEG+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LU
ASKED EXIT!
BBRX ST+1~, LU+1!, BEG+27!
BBRX(1 BEG+26*
BINGRTE BEG+27!, WIND+2*, WIND+4, WIND+5*, WIND+7*, WIND+8*
CBD EXIT!
CNT EXIT!
COM EXIT!, DEAD*
CONT BEG+11~*, BEG+12, BEG+13
DA EXIT!, CHKDEAD+2*, DEAD*, BEG+1*!, BEG+17*, QUES+6*, NEXT+1*
DEAD LU+12, EXIT!, CHKDEAD*, CHKDEAD+1*, DEAD*
DEL EXIT!
DFN EXIT!, CHKDEAD*, CHKDEAD+2, PRF*
DIC LU+4!*, LIST*!
DIC("S" LU+5*, LIST*
DIC(0 LU+4*, LIST*
DIE BEG+1*!, QUES+6*, NEXT+1*!
DIK BEG+1*!
DIR ST+3!, LU+3!, LU+6!, QUES+3!, QUES+7!, PRTQUES+13~
DIR("?" ST+2*, LU+2*, QUES+8*, QUES+9*
DIR("??" LU+2*
DIR("A" ST+1*, LU+2*, LU+6*, QUES+3*, QUES+7*, PRTQUES+15*
DIR("B" QUES+3*, QUES+7*, PRTQUES+15*
DIR(0 ST+1*, LU+2*, LU+6*, QUES+3*, QUES+7*, PRTQUES+15*
DIROUT PRTQUES+13~
DIRUT ST+3, LU+3, EXIT!, PRTQUES+13~
>> DISGROUP BEG+27
DR EXIT!, BEG+1*, QUES+6*, NEXT+1*
DT BEG+1
DTOUT LU+4, EXIT!, QUES+3, QUES+6, LIST, NEXT+1, PRTQUES+13~
DUOUT LU+4, EXIT!, NEXT+1
DUZ CHKDEAD+2, BEG, BEG+12
HDSFN EXIT!, BEG+17*, QUES+10*
HOLD DEAD*!
HOLDDFN EXIT!, PRF*!
JJ EXIT!
JJJJ WIND+1~, WIND+4*
MW LU+2*, EXIT!, QUES+3*, QUES+5
NEXT NEXT*, NEXT+1, NEXT+2!
OLD EXIT!
OUT LU+3*, EXIT!
PDUZ EXIT!, CHKDEAD+2*, BEG*
>> POP LU+3*
PPL EXIT+1!, BEG+17*, BEG+19*, BEG+24*, BEG+26, WIND+3, WIND+4
PRF LU+2!, EXIT+1!
PRF( PRF*
PRNTED BEG+8~, BEG+10*, BEG+11, BEG+12
PSDDDATE LU+12, EXIT+2!, CHKDEAD+2*, DEAD
PSDNAME LU+12, EXIT+2!, CHKDEAD*
PSINTRX WIND+1~, WIND+4*, WIND+5, WIND+6, WIND+7, WIND+8
>> PSLION ST+1*
>> PSOCLC CHKDEAD+2*
PSODBQ EXIT+1!, BEG+19*
PSODFN EXIT!, CHKDEAD*
>> PSODIV LU+11
PSOE LU+2!, BEG+1*, BEG+3!
PSOGET EXIT!, QUES+4*
PSOGETF EXIT!, QUES+4
PSOGETFN EXIT!, QUES+4
>> PSOLAP ST+1
PSOLOUD LU+10*!
PSOMSG LU+6!, LU+7, LU+9!
PSONOPRT BEG+19*, BEG+23!
>> PSOPAR ST, QUES+6, PRF
PSOPLLRX ST~, LU+6*!, UNLK+1, UNLK+2, UNLK+3!
PSOPRFLG LU+11!, EXIT+2!, BEG+22*
PSOPROFL LU+2!, EXIT+1!, BEG+22, PRF*
PSOPSO WIND+1~, WIND+6*, WIND+7, WIND+8
PSOPULL LU+12!, EXIT+1!, BEG+19*
PSOQFLAG ST+1*, LU+12!, EXIT+1!, BEG+18, BEG+20, BEG+21*, BEG+27, QUES+3*, QUES+5, QUES+6*
, QUES+7*, QUES+16*, QUES+18*, QUES+19*
PSOSAV LU+11*!
PSOSAVO LU+11*!
>> PSOSITE LU+11
PSOSPINT LU+4!, LU+5*
PSOTRIC QUES+17~*
PSOWIN LU+2!, EXIT+1!, QUES+6*
PSOWINEN LU+2!, EXIT+1!, QUES+6*
PSOX NEXT, NEXT+2!
PSOX("IRXN" NEXT*
PSOX("RX3" NEXT
PSPOP LU+11*, EXIT+1!
REA DEAD*!
REFILL BEG+8~, BEG+9*, BEG+10, BEG+11, BEG+12
RF EXIT+1!
RFCNT EXIT+1!
RFL QUES+13~*, QUES+14, QUES+16, QUES+17, QUES+18, PRTQUES~, PRTQUES+11*, PRTQUES+14
RRT WIND+1~, WIND+3*, WIND+4
RRTT WIND+1~, WIND+3*
RTETEST WIND+1~, WIND+5*, WIND+7*, WIND+8*
RX EXIT+1!, BEG+20!, NEXT, NEXT+1, PRTQUES~, PRTQUES+10, PRTQUES+11, PRTQUES+14
RXFL LU+1!, EXIT+1!
RXFL( BEG+16*, QUES+13
RXLTOP EXIT!, BEG+19*
RXP LU+1!
RXP1 LU+2!, EXIT+1!, BEG+17*, BEG+23!, PRF
RXPR LU+1!, LU+2!, EXIT+1!, BEG+23!
RXPR( BEG+17*, WIND+5
RXREC LU+4*, LU+6, EXIT+1!, CHKDEAD+2*, DEAD, BEG+1, BEG+10, BEG+11, BEG+12, BEG+15
, BEG+16, BEG+17, BEG+18, BEG+19, BEG+24, QUES+4, QUES+6, QUES+13, QUES+14, QUES+16
, QUES+17, QUES+18, QUES+19, PRF
RXRP LU+1!, EXIT+2!
RXRP( BEG+18*
RXRR LU+1!, EXIT!
RXRR( QUES+4*
SA ST+3*, EXIT+1!
SFN LU+4*, LU+11, EXIT+1!, BEG, BEG+1, BEG+3, BEG+9, BEG+10, BEG+12, BEG+16
, BEG+17, BEG+18, QUES+4, QUES+5, QUES+10, PRF
SSSS WIND+1~, WIND+6*
STOP EXIT+1!
SUSPT ST+1*, EXIT+1!
SUSROUTE ST+1~, LU+1!, BEG+26, QUES+5*
TM LU*, EXIT!
TM1 LU*, EXIT!
VADM EXIT+1!
VADM(1 CHKDEAD
VADM(6 CHKDEAD+1, CHKDEAD+2
X LU+4*, LU+5, LU+6!, EXIT+2!, LIST*
XXXX WIND+1~, WIND+3*
Y ST+3, LU+3, LU+4*!, LU+6!, LU+11*, EXIT+2!, QUES+3, QUES+6, QUES+7, LIST
, PRTQUES+13~, PRTQUES+17, PRTQUES+18
Y(0 LU+4, LU+10, LU+11*, CHKDEAD
Z EXIT+2!
ZTSK EXIT+1!
ZZZZ EXIT+2!, CHKDEAD+2*
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