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 Total: 15

Package Total Call Graph
Outpatient Pharmacy 8 ^PSOBING1  CAN^PSOCAN  ICN^PSODPT  EN^PSOHLUP  ^PSOPRF  Q^PSORXL  (,QUES,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

Caller Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
RESET ;
MAILS
PRF
PAT
BC
BEG
DEAD
NAM
QUES
PAUSE ;
EXIT
CHKDEAD
STR
MAIL
TEST
PSOINST
DIV
CKDIV

External References

Name Field # of Occurrence
NOW^%DTC PAT+2
^DIC NAM
^DIE BEG, MAILS, MAILS+2, MAILS+3, RESET+9, RESET+10
^DIK BEG
^DIR PAT+2, BC, CKDIV+1, PAUSE+1
^PSOBING1 NAM+13
CAN^PSOCAN DEAD
ICN^PSODPT BC+3
EN^PSOHLUP NAM+1
^PSOPRF PRF
Q^PSORXL NAM+9, NAM+14
^PSOSUPRX PAT+2
QUES^PSOSUPRX QUES
WIND^PSOSUPRX NAM+9
EX^PSOSUTL BEG+1
PSOL^PSSLOCK BEG+4
PSOUL^PSSLOCK EXIT+1
DEM^VADPT CHKDEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+0
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: !!,"LABEL(S) ARE QUEUED TO PRINT",!
  • Line Location: NAM+6
Function Call: WRITE
  • Prompt: !!,"PROFILE(S) ARE QUEUED TO PRINT"
  • Line Location: NAM+10
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: !!,"Rx: "_$P($G(^PSRX(PSOALRX,0)),"^")_" cannot be pulled from suspense.",!,$P($G(PSOMSG),"^",2),!
  • Line Location: BEG+5
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
  • DIE
  • Line Location:
    • BEG
    • MAILS
    • MAILS+2
    • MAILS+3
    • RESET+9
    • RESET+10
Routine Call
  • DIC
  • Line Location:
    • NAM
Routine Call
  • DIR
  • Line Location:
    • PAT+2
    • BC
    • 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] TEST, CHKDEAD+2, DIV, BEG+2, BEG+3, BEG+4, BEG+9, BEG+10, BEG+11, RESET+3
, RESET+4, RESET+6*
^PS(55 - [#55] NAM+1, NAM+2, TEST, CHKDEAD+2
^PSRX - [#52] BC+1, BC+2, BC+4, TEST, DIV, CKDIV, CKDIV+1, BEG, BEG+3, BEG+5
, BEG+6, STR, PSOINST, MAIL*, MAILS+1, RESET+8*, RESET+11*

Label References

Name Line Occurrences
BC BC+5
BEG TEST
CHKDEAD TEST
CKDIV DIV
DEAD CHKDEAD+2
DIV TEST
EXIT NAM+3
PAT BC, NAM
PAUSE BEG, BEG+3, BEG+4
PRF NAM+9
PSOINST BC+1
RESET NAM+3, NAM+17
STR BEG+10
TEST NAM+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAT+2, EXIT+2!
%W EXIT+2!
%Y EXIT+2!
%Y1 EXIT+2!
ACT EXIT!
ASKED PAT!, NAM+2*
BBRX NAM+13!
BBRX(1 NAM+9*
BBRX(2 NAM+12*
BC PAT!, PAT+2*, BC, NAM
BCNUM BC*, BC+1, EXIT!
BINGRTE NAM+13!
CBD NAM+2*, EXIT!, TEST
CNT EXIT!
COM EXIT!, DEAD*
DA EXIT!, CHKDEAD+2*, DEAD*, BEG*!, BEG+9*, BEG+10, BEG+11, MAILS*, MAILS+2*, MAILS+3*
, RESET+1~, RESET+9*, RESET+10*
DA(1 MAILS*, MAILS+3*, RESET+9*
DEAD EXIT!, TEST, CHKDEAD*, CHKDEAD+1*, DEAD*
DEL EXIT!
DELCNT PAT!, NAM+2*, EXIT!
DFN BC+2*, BC+3, NAM*, NAM+2, EXIT!, TEST, CHKDEAD+2, PRF*
DIC NAM*!
DIC("S" NAM*
DIC(0 NAM*
DIE BEG*!, MAILS*!, MAILS+2*, MAILS+3*, MAILS+4!, RESET+9*!, RESET+10*!
DIK BEG*!
DIR PAT+2!, BC!, CKDIV+1!, PAUSE+1!
DIR("?" PAT+1*, BC*
DIR("A" PAT*, BC*, CKDIV+1*, PAUSE+1*
DIR("B" CKDIV+1*
DIR(0 PAT*, BC*, CKDIV+1*, PAUSE+1*
DIRUT PAT+2, BC, EXIT!, CKDIV+1
>> DISGROUP NAM+13
DR EXIT!, BEG*, MAILS*, MAILS+2*, MAILS+3*, RESET+9*, RESET+10*
DT BEG
DTOUT NAM, EXIT!
DTTM EXIT!
DUOUT NAM, EXIT!
DUZ NAM+8, NAM+14
GG EXIT!
GGGG NAM+7*, EXIT+2!
HDSFN EXIT!, QUES*
HOLD EXIT!, DEAD*!, PRF*
HOLDPPL NAM+9*, EXIT!
HOLDPROF EXIT!
MW BC+1*, NAM*, EXIT+2!, MAILS, MAILS+2, MAILS+3
OUT BC*, BC+1, BC+4*, BC+5, EXIT!, PSOINST*, PSOINST+1*
PDUZ NAM+8*, NAM+14*, EXIT+2!
>> POP PAT*, BC*
PPL NAM+8!, NAM+9*, NAM+14*, EXIT+2!
PPLHOLD PAT!, NAM+9, EXIT!, BEG+10*
PPLHOLDX PAT!, NAM+12, NAM+14, EXIT!, BEG+11*
PRF EXIT+2!
PRF( PRF*
PRFILL RESET+1~, RESET+5*, RESET+7, RESET+9, RESET+10
PRFILLN RESET+1~, RESET+5*, RESET+8, RESET+9
PRMP RESET+1~, RESET+5*, RESET+8, RESET+11
PRMW RESET+1~, RESET+5*, RESET+6
PRPSRX RESET+1~, RESET+5*, RESET+8, RESET+9, RESET+10
PRSDA RESET+1~, RESET+2*, RESET+3, RESET+5, RESET+8, RESET+9, RESET+10, RESET+11
PRSP RESET+1~, RESET+3*, RESET+4, RESET+6
PSDDDATE EXIT!, CHKDEAD+2*, DEAD
PSDNAME EXIT!, CHKDEAD*, DEAD
>> PSNP NAM+14*
PSOAL PAT!, BEG+2!
PSOALRX PAT~, EXIT+1*, BEG+4*!, BEG+5, BEG+6, BEG+7, BEG+8!
PSOALRXS PAT~
PSOALRXS( EXIT+1, BEG+7*
PSODBQ NAM+9*, NAM+14*, EXIT!
>> PSODFN BC+2*, NAM*, NAM+1
>> PSODIV TEST
PSOGET EXIT+2!
PSOGETF EXIT+2!
PSOGETFN EXIT+2!
>> PSOINST PSOINST+1
PSOLOUD NAM+1*!
PSOMSG BEG+4!, BEG+5, BEG+8!
PSONOPRT NAM+8*, EXIT!
>> PSOPAR NAM+10, PRF
PSOPROFL PAT!, NAM+10, EXIT+2!, STR*, PRF
PSOPULL PAT!, NAM+9*, NAM+14*, EXIT!
PSOQFLAG PAT!, NAM+3, NAM+9*, NAM+13, NAM+14, NAM+17, TEST
>> PSOQGLAG NAM+12
>> PSOSITE DIV
>> PSOSYS CKDIV, CKDIV+1
PSOWIN PAT!, EXIT!, MAIL
PSOWINEN PAT!, EXIT!, MAIL
PSPOP EXIT+2!, TEST*, CKDIV*, CKDIV+1*
REA DEAD*!
RF EXIT+2!
RFCNT EXIT+2!, MAILS+1*, MAILS+2, MAILS+3, MAILS+4!
RR EXIT!, MAILS+1*, MAILS+4!
RTE BC+1!, NAM!
RX BC+1*, BC+2, BC+4, EXIT+2!
RXFL PAT!, EXIT!
RXFL( BEG+9*
RXLTOP NAM+9*, EXIT+2!
RXP PAT!, NAM+8!
RXPR PAT!, EXIT+2!
RXPR( NAM+7!, NAM+15*, BEG+9*, BEG+11!, STR, MAILS, MAILS+2, MAILS+3
RXPR1 EXIT+2!
RXPR1( NAM+15, BEG+11*, STR
RXREC EXIT+2!, TEST*, CHKDEAD+2*, DEAD, DIV*, CKDIV, CKDIV+1, BEG, STR, MAIL
, MAILS, MAILS+1, MAILS+2, MAILS+3
RXRP PAT!, EXIT!
RXRP( NAM+16*, BEG+10*
RXRP1 EXIT!
RXRP1( NAM+16, BEG+11*
RXRR PAT!, EXIT!
RXRR( RESET+2, RESET+5
SFN EXIT+2!, TEST*, DIV, BEG, BEG+2, BEG+3, BEG+4, BEG+9, BEG+10, BEG+11
, QUES
STOP EXIT+2!
SUB EXIT+2!
>> SUSROUTE NAM+9, NAM+12
>> TM PAT+2*
>> TM1 PAT+2*
VADM EXIT+2!
VADM(1 CHKDEAD
VADM(6 CHKDEAD+1, CHKDEAD+2
WARN PAT!, NAM+2*, EXIT+2!, DEAD*
WWWW NAM+16*, EXIT!
X EXIT+2!
>> XXX NAM+15*
Y PAT+2, BC, NAM, 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