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

Package: Outpatient Pharmacy

Routine: PSOSUPAT


Information

PSOSUPAT ;BIR/RTR - Pull all Rx's from suspense for a patient ;03/01/96

Source Information

Source file <PSOSUPAT.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Outpatient Pharmacy 15 ^PSOBING1  ($$LSTRFL,ECMESND)^PSOBPSU1  CAN^PSOCAN  ICN^PSODPT  EN^PSOHLUP  ^PSOPRF  $$TRIC^PSOREJP1  $$PSOET^PSOREJP3  
$$HDLG^PSOREJU1  $$FIND^PSOREJUT  Q^PSORXL  ($$PRINTED,REMOVE)^PSOSULBL  GETMW^PSOSUPOE  (,$$PRTQUES,WIND)^PSOSUPRX  EX^PSOSUTL  
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

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

Package Total Caller Graph
Outpatient Pharmacy 6 PSOCAN  PSOCAN1  PSOSUCHG  PSOSUDPR  PSOSUPOE  PSOSUPRX  

Entry Points

Name Comments DBIA/ICR reference
PAT
BC
NAM
EXIT
TEST
CHKDEAD
DEAD
DIV
CKDIV
BEG
PRF
PSOINST
MAIL
MAILS
RESET ;
; Reset Mail/Window value for all prescriptions in the RXRR array
RESETRX(RX) ;
; Reset fields in RX Suspense and Prescription files
; Input:
; RX: Prescription IEN
PAUSE ;

External References

Name Field # of Occurrence
NOW^%DTC PAT+4
^DIC NAM
^DIE BEG, MAILS, MAILS+1, MAILS+3, MAILS+4, RESETRX+16, RESETRX+17
^DIK BEG
^DIR PAT+4, BC, NAM+16, NAM+21, NAM+29, CKDIV+1, PAUSE+1
^PSOBING1 NAM+66
$$LSTRFL^PSOBPSU1 NAM+35
ECMESND^PSOBPSU1 NAM+36
CAN^PSOCAN DEAD
ICN^PSODPT BC+3
EN^PSOHLUP NAM+1
^PSOPRF PRF
$$TRIC^PSOREJP1 NAM+38
$$PSOET^PSOREJP3 NAM+37
$$HDLG^PSOREJU1 NAM+39
$$FIND^PSOREJUT NAM+39
Q^PSORXL NAM+62, NAM+67
$$PRINTED^PSOSULBL BEG+9
REMOVE^PSOSULBL BEG+11
GETMW^PSOSUPOE NAM+50
^PSOSUPRX PAT+4
$$PRTQUES^PSOSUPRX BEG+10
WIND^PSOSUPRX NAM+62
EX^PSOSUTL BEG+1
PSOL^PSSLOCK BEG+17
PSOUL^PSSLOCK EXIT+1
DEM^VADPT CHKDEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BC+0
Function Call: WRITE
  • Prompt: " ",$P($G(^DPT(DFN,0)),"^")
  • Line Location: BC+2
Function Call: WRITE
  • Prompt: !,$C(7),"NO PRESCRIPTION RECORD FOR THIS BARCODE."
  • Line Location: BC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+0
Function Call: WRITE
  • Prompt: !!,"There are no prescriptions left to process - exiting!"
  • Line Location: NAM+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+15
Function Call: WRITE
  • Prompt: !!,"Nothing pulled from suspense!"
  • Line Location: NAM+17
Function Call: WRITE
  • Prompt: !!,"Nothing pulled from suspense!"
  • Line Location: NAM+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: NAM+24
Function Call: WRITE
  • Prompt: $C(7),!!,"Nothing pulled from suspense!"
  • Line Location: NAM+30
Function Call: WRITE
  • Prompt: !!,"LABEL(S) ARE QUEUED TO PRINT",!
  • Line Location: NAM+59
Function Call: WRITE
  • Prompt: !!,"PROFILE(S) ARE QUEUED TO PRINT"
  • Line Location: NAM+63
Function Call: WRITE
  • Prompt: !?10,"PATIENT NAME UNKNOWN"
  • Line Location: CHKDEAD+0
Function Call: WRITE
  • Prompt: !!?10,$C(7),"Rx # ",$P(^PSRX(RXREC,0),"^")," is not a valid choice. (Different Division)"
  • Line Location: CKDIV+0
Function Call: WRITE
  • Prompt: !!,"Rx #"_$P(^PSRX(RXREC,0),"^")_" has expired!"
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,$C(7),">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")_" has already been printed from suspense.",!,?5,"Use the reprint routine under the rx option to produce a label."
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !,"This prescription will not be pulled but will be left on suspense."
  • Line Location: BEG+12
Function Call: WRITE
  • Prompt: !!,"Rx: "_$P($G(^PSRX(PSOALRX,0)),"^")_" cannot be pulled from suspense.",!,$P($G(PSOMSG),"^",2),!
  • Line Location: BEG+18
Function Call: WRITE
  • Prompt: !!,$C(7),"Non-existent prescription"
  • Line Location: PSOINST+0
Function Call: WRITE
  • Prompt: !!,$C(7),"The prescription is not from this institution."
  • Line Location: PSOINST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • DIC
  • Line Location:
    • NAM
Routine Call
  • DIE
  • Line Location:
    • BEG
    • MAILS
    • MAILS+1
    • MAILS+3
    • MAILS+4
    • RESETRX+16
    • RESETRX+17
Routine Call
  • DIR
  • Line Location:
    • PAT+4
    • BC
    • NAM+16
    • NAM+21
    • NAM+29
    • CKDIV+1
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BC+2
^PS(52.5 - [#52.5] NAM+44, NAM+45, NAM+46, NAM+51, NAM+54*, TEST, CHKDEAD+2, DIV, BEG+2, BEG+3
, BEG+8, BEG+14, RESETRX+7, RESETRX+9, RESETRX+13*
^PS(55 - [#55] NAM+1, NAM+8, TEST, CHKDEAD+2
^PSRX - [#52] BC+1, BC+2, BC+4, NAM+40, NAM+47, NAM+51, TEST, DIV, CKDIV, CKDIV+1
, BEG, BEG+3, BEG+18, BEG+19, PSOINST, MAIL*, MAILS+2, RESETRX+15*, RESETRX+18*

Label References

Name Line Occurrences
BC BC+5
BEG TEST
CHKDEAD TEST
CKDIV DIV
DEAD CHKDEAD+2
DIV TEST
EXIT NAM+9, NAM+12, NAM+17, NAM+21, NAM+30
MAIL NAM+55
PAT BC, NAM
PAUSE NAM+12, NAM+17, NAM+21, NAM+30, BEG, BEG+3, BEG+12, BEG+17
PRF NAM+62
PSOINST BC+1
RESET NAM+70
RESETRX RESET+3
TEST NAM+8

Naked Globals

Name Field # of Occurrence
^( TEST
^("STA" BEG
^(0 NAM+44, TEST, CHKDEAD+2, BEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAT+4, EXIT+2!
%W EXIT+2!
%Y EXIT+2!
%Y1 EXIT+2!
ACT EXIT!
ASKED PAT+1!, NAM+7*
BBRX NAM+66!
BBRX(1 NAM+62*
BBRX(2 NAM+65*
BC PAT+1!, PAT+4*, BC, NAM
BCNUM BC*, BC+1, EXIT!
BINGRTE NAM+66!
CBD NAM+8*, EXIT!, TEST
CNT EXIT!
COM EXIT!, DEAD*
CONT BEG+10~*, BEG+11, BEG+12
DA NAM+44*, NAM+45, NAM+46, EXIT!, CHKDEAD+2*, DEAD*, BEG*!, MAILS*, MAILS+1*, MAILS+3*
, MAILS+4*, RESETRX+6~, RESETRX+16*, RESETRX+17*
DA(1 MAILS*, MAILS+1*, MAILS+4*, RESETRX+16*
DEAD EXIT!, TEST, CHKDEAD*, CHKDEAD+1*, DEAD*
DEL EXIT!
DELCNT PAT+1!, NAM+7*, EXIT!
DFN BC+2*, BC+3, NAM*, NAM+8, EXIT!, TEST, CHKDEAD+2, PRF*
DIC NAM*!
DIC("S" NAM*
DIC(0 NAM*
DIE BEG*!, MAILS*!, MAILS+1*!, MAILS+3*, MAILS+4*, MAILS+5!, RESETRX+6~, RESETRX+16*!, RESETRX+17*!
DIK BEG*!
DIR PAT+4!, BC!, NAM+16!, NAM+21!, NAM+25!, CKDIV+1!, PAUSE+1!
DIR("?" PAT+3*, BC*, NAM+27*, NAM+28*
DIR("A" PAT+2*, BC*, NAM+16*, NAM+26*, CKDIV+1*, PAUSE+1*
DIR("B" NAM+16*, NAM+26*, CKDIV+1*
DIR(0 PAT+2*, BC*, NAM+16*, NAM+21*, NAM+26*, CKDIV+1*, PAUSE+1*
DIRUT PAT+4, BC, EXIT!, CKDIV+1
>> DISGROUP NAM+66
DR EXIT!, BEG*, MAILS*, MAILS+1*, MAILS+3*, MAILS+4*, RESETRX+6~, RESETRX+16*, RESETRX+17*
DT BEG
DTOUT NAM, NAM+16!, NAM+17, NAM+21!, EXIT!, RESETRX+6~
DTTM EXIT!
DUOUT NAM, NAM+21!, EXIT!
DUZ NAM+61, NAM+67, BEG+11
GG EXIT!
GGGG NAM+60*, EXIT+2!
HOLD EXIT!, DEAD*!, PRF*
HOLDPPL NAM+62*, EXIT!
HOLDPROF EXIT!
MW NAM+16*, NAM+18, NAM+21, NAM+54, EXIT+2!, MAILS, MAILS+1, MAILS+3, MAILS+4
OUT BC*, BC+1, BC+4*, BC+5, EXIT!, PSOINST*, PSOINST+1*
PDUZ NAM+61*, NAM+67*, EXIT+2!
>> POP PAT+1*, BC*
PPL NAM+61!, NAM+62*, NAM+67*, EXIT+2!
PPLHOLD PAT+1!, NAM+45*, NAM+46, NAM+62, EXIT!
PPLHOLDX PAT+1!, NAM+46*, NAM+65, NAM+67, EXIT!
PRF EXIT+2!
PRF( PRF*
PRFILL RESETRX+6~, RESETRX+11*, RESETRX+14, RESETRX+16, RESETRX+17
PRFILLN RESETRX+6~, RESETRX+11*, RESETRX+15, RESETRX+16
PRMP RESETRX+6~, RESETRX+10*, RESETRX+15, RESETRX+18
PRMW RESETRX+6~, RESETRX+10*, RESETRX+13
PRNTED BEG+7~, BEG+9*, BEG+10, BEG+11
PRPSRX RESETRX+6~, RESETRX+12*, RESETRX+15, RESETRX+16, RESETRX+17
PRSDA RESET+2~, RESET+3*
PSDDDATE EXIT!, CHKDEAD+2*, DEAD
PSDNAME EXIT!, CHKDEAD*, DEAD
>> PSNP NAM+67*
PSOAL PAT+1!, BEG+2!
PSOALRX PAT~, EXIT+1*, BEG+14*, BEG+17!, BEG+18, BEG+19, BEG+22, BEG+23!
PSOALRXS PAT~, NAM+12
PSOALRXS( NAM+33, NAM+35, NAM+43, EXIT+1, BEG+22*
PSODBQ NAM+62*, NAM+67*, EXIT!
>> PSODFN BC+2*, NAM*, NAM+1
>> PSODIV TEST
PSOGET NAM+50*, NAM+51, EXIT+2!
PSOGETF NAM+51, EXIT+2!
PSOGETFN NAM+51, EXIT+2!
>> PSOINST PSOINST+1
PSOLOUD NAM+1*!
PSOMSG BEG+17!, BEG+18, BEG+23!
PSONOPRT NAM+61*, EXIT!
>> PSOPAR NAM+21, NAM+63, PRF
PSOPROFL PAT+1!, NAM+47*, NAM+63, EXIT+2!, PRF
PSOPULL PAT+1!, NAM+62*, NAM+67*, EXIT!
PSOQFLAG PAT+1!, NAM+9, NAM+62*, NAM+66, NAM+67, NAM+70, TEST
>> PSOQGLAG NAM+65
>> PSOSITE DIV
>> PSOSYS CKDIV, CKDIV+1
PSOTRIC NAM+38~*
PSOWIN PAT+1!, NAM+21*, EXIT!, MAIL
PSOWINEN PAT+1!, NAM+21*, EXIT!, MAIL
PSPOP EXIT+2!, TEST*, CKDIV*, CKDIV+1*
REA DEAD*!
REFILL BEG+7~, BEG+8*, BEG+9, BEG+10, BEG+11, BEG+22
RF EXIT+2!
RFCNT EXIT+2!, MAILS+2*, MAILS+3, MAILS+4, MAILS+5!
RFL NAM+35~*, NAM+36, NAM+37, NAM+38, NAM+39
RR EXIT!, MAILS+2*, MAILS+5!
RX BC+1*, BC+2, BC+4, EXIT+2!, RESETRX~, RESETRX+5, RESETRX+7, RESETRX+10, RESETRX+11, RESETRX+12
, RESETRX+15, RESETRX+16, RESETRX+17, RESETRX+18
RXFL PAT+1!, EXIT!
RXFL( NAM+44*
RXLTOP NAM+62*, EXIT+2!
RXP PAT+1!, NAM+61!
RXPR PAT+1!, EXIT+2!
RXPR( NAM+44*, NAM+46!, NAM+47, NAM+60!, NAM+68*, MAILS
RXPR1 EXIT+2!
RXPR1( NAM+46*, NAM+47, NAM+68, MAILS+1
RXREC NAM+33*, NAM+35, NAM+36, NAM+37, NAM+38, NAM+39, NAM+40, NAM+43, NAM+47, NAM+51
, EXIT+2!, TEST*, CHKDEAD+2*, DEAD, DIV*, CKDIV, CKDIV+1, BEG, BEG+9, BEG+10
, BEG+11, MAIL, MAILS, MAILS+1, MAILS+2, MAILS+3, MAILS+4
RXRP PAT+1!, EXIT!
RXRP( NAM+45*, NAM+69*
RXRP1 EXIT!
RXRP1( NAM+46*, NAM+69
RXRR PAT+1!, EXIT!
RXRR( NAM+51*, RESET+3, RESETRX+10, RESETRX+11, RESETRX+12
SFN NAM+43*, NAM+44, NAM+45, NAM+46, NAM+51, NAM+54, EXIT+2!, TEST*, DIV, BEG
, BEG+2, BEG+3, BEG+8, BEG+9, BEG+11, BEG+14, BEG+22, RESETRX+6~, RESETRX+7*, RESETRX+8
, RESETRX+9, RESETRX+13
STOP EXIT+2!
SUB EXIT+2!
>> SUSROUTE NAM+18*, NAM+62, NAM+65
>> TM PAT+4*
>> TM1 PAT+4*
U NAM+35, NAM+43, MAILS+1
VADM EXIT+2!
VADM(1 CHKDEAD
VADM(6 CHKDEAD+1, CHKDEAD+2
WARN PAT+1!, NAM+7*, EXIT+2!, DEAD*
WWWW NAM+69*, EXIT!
X EXIT+2!
>> XXX NAM+68*
Y PAT+4, BC, NAM, NAM+16, NAM+17, NAM+21, NAM+30, EXIT+2!, CKDIV+1, PSOINST
, PSOINST+1
Y(0 EXIT+2!
ZTSK EXIT!
ZZZZ EXIT!, 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