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

Package: Outpatient Pharmacy

Routine: PSOCAN1


Information

PSOCAN1 ;BIR/BHW - modular rx cancel with speed cancel ability ;2/22/93

Source Information

Source file <PSOCAN1.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Outpatient Pharmacy 14 ^PSOBUILD  (,CAN,CHK,DIV,ULP)^PSOCAN  (KILL,REINS)^PSOCAN2  (KCAN,KCAN1)^PSOCAN3  NOOR^PSOCAN4  ICN^PSODPT  ^PSODSPL  EXP^PSOHELP1  
EN^PSOHLSN  EN^PSOHLUP  DCORD^PSONEW2  LOCK^PSOORCPY  ADR^PSOPKIV1  PSOINST^PSOSUPAT  
VA FileMan 5 NOW^%DTC  ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL)^PSSLOCK  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSOCAN  PSOCAN2  PSOCAN3  PSOCAN4  PSOREJU1  

Entry Points

Name Comments DBIA/ICR reference
PAT
BC
NAM
LINE
PSPEED
SHOW
PSHOW
SHOW1 ;S LC=LC+3 I LC>20 R !,"Press return to continue",X:DTIME G:X'="" SHOW1 S LC=0
SPEED1
AREC
SPEED
ASK
ACT
INVALD
LISTPAT
COM ;
; PSO*7*508 - if this is an eRx, set the comments and nature of order and quit - no user interaction
KILL
PEN ;discontinue pending orders
RTEST ;
RTESTA ;
ONOFF ;

External References

Name Field # of Occurrence
NOW^%DTC NAM+13, AREC+2
^DIC NAM, LISTPAT
FILE^DIE NAM+17
$$GET1^DIQ COM+3
^DIR PAT+2, BC, NAM+7, LINE+2, SHOW1+1, ASK, INVALD+2, COM+13
^PSOBUILD NAM+3
^PSOCAN PAT+2
CAN^PSOCAN ACT+1
CHK^PSOCAN NAM+3
DIV^PSOCAN SPEED1
ULP^PSOCAN NAM+7, NAM+8, NAM+20, LINE+2, LINE+6
KILL^PSOCAN2 KILL
REINS^PSOCAN2 ACT
KCAN^PSOCAN3 NAM
KCAN1^PSOCAN3 BC
NOOR^PSOCAN4 COM+15
ICN^PSODPT BC+3
^PSODSPL NAM+3
EXP^PSOHELP1 AREC+4
EN^PSOHLSN PEN+3
EN^PSOHLUP NAM
DCORD^PSONEW2 ACT
LOCK^PSOORCPY NAM+5
ADR^PSOPKIV1 AREC+3
PSOINST^PSOSUPAT BC+1
$$L^PSSLOCK NAM+5
PSOL^PSSLOCK NAM+21, SPEED+2, ASK+2
PSOUL^PSSLOCK NAM+21, SPEED+2, ASK+2

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(PSODFN,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+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !?53,$C(7),"INVALID LINE NUMBER(S)."
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: !,$P(^PSRX(DA,0),"^")," ",DRG,?52,$S($D(^DPT(+$P(^PSRX(DA,0),"^",2),0)):$P(^(0),"^"),1:"PATIENT UNKNOWN")
  • Line Location: PSHOW+0
Function Call: WRITE
  • Prompt: !?25,"Rx to be Discontinued",!
  • Line Location: PSHOW+1
Function Call: WRITE
  • Prompt: !?21,"*** Rx to be Reinstated ***",!
  • Line Location: PSHOW+2
Function Call: READ
  • Formatting: !
  • Prompt: "Press return to continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: SHOW1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: INVALD+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: INVALD+0
Function Call: WRITE
  • Prompt: $C(7),!!,"The Following Rx Number(s) Are Invalid Choices, Expired, "_$S($G(PKI):"Digitally Signed",1:""),!,"Discontinued by Provider, or Marked As Deleted:"
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !?10,II
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+8
Routine Call
  • DIC
  • Line Location:
    • NAM
    • LISTPAT
Routine Call
  • DIE
  • Line Location:
    • NAM+17
Routine Call
  • DIR
  • Line Location:
    • PAT+2
    • BC
    • NAM+7
    • LINE+2
    • SHOW1+1
    • ASK
    • INVALD+2
    • COM+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PS(52.49 - [#52.49] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BC+2, PSHOW
^PS(52.41 - [#52.41] PEN+2!*, PEN+3, RTEST+7, RTESTA+4
^PS(55 - [#55] NAM
^PSDRUG - [#50] SHOW
^PSRX - [#52] BC+1, BC+2, BC+4, PSPEED, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+3, SPEED1+4
, AREC, AREC+1, AREC+2*, SPEED+3, ACT, RTEST+6, RTESTA+3

Label References

Name Line Occurrences
ACT ASK+2
ASK NAM+20
BC BC+5, LINE+6
COM NAM+8, SPEED
INVALD SPEED+4, ASK, ASK+1, ASK+3
KILL LINE+2, INVALD+3
LINE NAM+8, LINE+2
NAM NAM+3, NAM+8, LINE+6
ONOFF NAM+4
PAT BC, NAM, NAM+5, NAM+7, NAM+20
PEN NAM+21, SPEED+2
PSPEED NAM+19
RTEST LINE+6
RTESTA NAM+8
SHOW SPEED+4
SHOW1 PSHOW+1
SPEED LINE+6
SPEED1 PSPEED, SPEED+3

Naked Globals

Name Field # of Occurrence
^("STA" SPEED1+4
^(0 SHOW, PSHOW, SPEED+3, RTESTA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NAM+16, AREC+2
>> ACNT AREC*, AREC+2, AREC+3
>> ACOM AREC+2*
>> ALL NAM+8*
ASKED PAT!
BC PAT!, PAT+2*, BC, NAM, LINE+6
>> BCNUM BC*, BC+1
>> CNT LINE+3*, LINE+4*, LINE+5*
>> DA NAM+10*, NAM+21*, PSPEED*, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+3, SPEED1+5, AREC
, AREC+1, AREC+2, SPEED*, SPEED+1*, SPEED+2, SPEED+3, SPEED+4*, ACT*, PEN+1, PEN+2
, PEN+3, PEN+4*
>> DEAD NAM+3, AREC
DELCNT PAT!
DIC NAM*!, LISTPAT*!
DIC(0 NAM*, LISTPAT*
DIR PAT+2!, BC!, NAM+7!, LINE+2!, SHOW1+1!, ASK!, INVALD+2!, COM+13!, COM+14!
DIR("?" PAT+1*, BC*, NAM+7*, LINE*, LINE+1*, LINE+2*, SHOW1+1*, COM+11*
DIR("A" PAT*, BC*, NAM+6*, LINE*, SHOW1+1*, ASK*, INVALD+2*, COM+10*
DIR("B" ASK*, COM+12*
DIR(0 PAT*, BC*, NAM+6*, LINE*, SHOW1+1*, ASK*, INVALD+2*, COM+10*
DIRUT PAT+2, BC, NAM+7, NAM+8, LINE+2, SHOW1+1!, SPEED, ASK, INVALD+2!, COM+13
, COM+14!
>> DRG NAM+9*, NAM+10, LINE+3*, LINE+4*, PSPEED, SHOW*, PSHOW
>> DRUG NAM+9*
DTOUT NAM, SHOW1+1!, INVALD+2!, COM+13!, COM+14!
DUOUT NAM, SHOW1+1!, INVALD+2!, COM+13!, COM+14!
DUZ AREC+2
>> ERXDCIEN COM+2, COM+3
>> I INVALD*
>> II NAM+9*, SPEED*, SPEED+4*, ACT*, INVALD+1*
>> IN NAM+9*, LINE+3*, LINE+5*, SPEED
>> INCOM NAM+8, AREC+2, SPEED, COM+3*, COM+4*, COM+12, COM+14*, PEN+2, PEN+3
IOF SHOW1+1
IOSL SHOW1+1
J AREC+3~*
>> LC PSHOW*
>> LINE LINE+3*, LINE+5, RTEST+1, RTEST+3
MSG AREC+2, COM+9!
>> OUT BC*, BC+1, BC+4*, BC+5
PCIN RTEST+2~, RTEST+3*
PCINFLAG RTEST+2~, RTEST+3*, RTEST+6*, RTEST+7*, RTEST+8
PCINX RTEST+2~, RTEST+3*, RTEST+4, RTEST+5, RTEST+6, RTEST+7
PENCAN NAM+9!, NAM+20!, NAM+21*
PFIN RTESTA+1~, RTESTA+2*, RTESTA+3, RTESTA+4
PFINFLAG RTESTA+1~, RTESTA+2*, RTESTA+3*, RTESTA+4*, RTESTA+5
PFINZ RTESTA+1~, RTESTA+2*, RTESTA+3, RTESTA+4
PKI SPEED1+3*, SPEED~, INVALD+1
>> PKIR AREC+3, COM+10, COM+14*
>> PLINE LINE+5*
PSCAN LINE+3!, SPEED!, SPEED+4, ASK, ASK+1!, INVALD!
PSCAN( SPEED1+5*, AREC, SPEED+4, ASK+2, ACT
>> PSFROM NAM+3*
PSINV SPEED!, INVALD, INVALD+2!
PSINV( PSPEED, SPEED1+3*, SPEED1+4*, SPEED+3*, INVALD+1
PSOCAN LINE+3!
PSOCAN( LINE+4*, LINE+5, RTEST+5, RTEST+6, RTEST+7
PSOCANPN NAM+9!, NAM+18*, NAM+20!
>> PSOCANRA NAM*
>> PSOCANRD RTEST+6*, RTEST+7*, RTESTA+3*, RTESTA+4*
>> PSOCANRZ RTEST+8*, RTESTA+5*
PSODAPND PEN+1*, PEN+4!
PSODFN PAT!, BC+2*, BC+3, NAM*, NAM+1, NAM+5, NAM+15, NAM+16, ACT*
>> PSODIV SPEED1
>> PSOERR INVALD+2
>> PSOHI LINE
PSOLOUD NAM*!
PSOMSG NAM+21, SPEED+2, ASK+2, KILL+1!
PSONEW NAM+3~
>> PSONOOR PEN+3
>> PSOODOSP NAM+1*
>> PSOOI NAM+15, NAM+16
>> PSOONOFO NAM+2*
>> PSOONOR COM+6*
>> PSOOPT NAM+3*
PSOPLCK NAM+5*!, KILL+1!
PSOREINF NAM+1!, NAM+2, ONOFF+1, ONOFF+2*
PSORX NAM+3~
PSORX("DFLG" ACT
PSORX("DOSING INFO" , NAM+2, ONOFF+1*, ONOFF+2,  OFF" , NAM+1!
PSOSD NAM+3!, LINE
PSOSD( NAM+9, NAM+10, LINE+4, PSPEED, RTESTA+2, RTESTA+3, RTESTA+4
PSOSDX NAM+9!, NAM+20!
PSOSDX( NAM+10*, NAM+21
PSOSDX(0 NAM+20, ASK, ASK+1
PSOSDXY NAM+9!, NAM+20!, ASK*, ASK+1*
>> PSOSITE SPEED1
PSOULRX KILL+1!
PSOWUN KILL+1!
>> PSPOP PSPEED, SPEED1*, SPEED1+4, SPEED1+5
>> REA NAM+20, PSPEED+1, PSHOW+1, SPEED1+1*, SPEED1+2, SPEED1+3, SPEED1+4, SPEED1+5, AREC*, AREC+2
, SPEED+4*, ASK, ACT*
>> RF AREC+1*
>> RFCNT AREC+1*, AREC+2
>> RX BC+1*, BC+2, BC+4, PSPEED*, SPEED1+3, SPEED1+4, SPEED1+5, SPEED+3*, ASK+2*, ACT
>> RXCNT PAT*, SPEED1+5*, SPEED+4*, ASK
SPEED NAM+9*, NAM+20!, PSPEED+1, SPEED1, SPEED1+2, INVALD+2
>> STA NAM+9*, NAM+10, NAM+12, LINE+3*, LINE+4*, PSPEED
STAT SPEED1+1!*
>> SUB AREC*
TMP NAM+14~
TMP( NAM+15*, NAM+16*
WARN PAT!
X PAT!, LISTPAT*
Y PAT+2, BC, NAM, NAM+8, LINE+2, LINE+3, ASK+1, COM+13!, COM+14
>> YY PSPEED*, SPEED1+4, SPEED+3*
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