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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOORNE1

Package: Outpatient Pharmacy

Routine: PSOORNE1


Information

PSOORNE1 ;BIR/SAB - Display new orders from backdoor ;03/06/95 10:30am

Source Information

Source file <PSOORNE1.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Outpatient Pharmacy 20 (1,10,11,12,13,2,3,4,5,6,7,8,9,INS)^PSOBKDED  ^PSOBUILD  SINS^PSODIR  DOSCK^PSODOSUT  POST^PSODRG  (SIG,SIGONE)^PSOHELP  $$INSCHK^PSOHELP3  ^PSOLMPO2  
HLDHDR^PSOLMUTL  EN^PSON52  NOOR^PSONEW  (DCORD,DISPLAY)^PSONEW2  ^PSONEWG  NCPDP^PSOORED6  M3^PSOOREDX  DSPL^PSOORNE3  
(RDSPL,RXNCHK)^PSOORNE5  2^PSOORNW1  MARK^PSOOTMRX  (NPSOSD,PROV)^PSOUTIL  
VA FileMan 2 EN^DIQ1  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  

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 LM BACKDOOR ACCEPT  PSO LM BACKDOOR EDIT  PSOLMUTL  PSONEW2  PSOORED1  PSOORFIN  PSOORNEW  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
M3
SUMMCL ;
SUMM ;print break down of orders to be finished
ACP
RDSPL
SUMMQ
1
3
2
5
4
7
6 ;D INS^PSOBKDED Q:$G(PSONEW("DFLG")) I $P($G(^PS(55,PSODFN,"LAN")),"^") D SINS^PSODIR(.PSONEW) ;*422
9
8
EN(PSONEW)
VER
RXNCHK
11
10
13
12
14
EDTSEL
CLDIR
EDT

External References

Name Field # of Occurrence
EN^DIQ1 SUMM+4, SUMM+14
^DIR EDT, ACP+8, SUMM+3, SUMM+12, SUMM+18, SUMMCL+4, SUMMCL+27, CLDIR
1^PSOBKDED 3
10^PSOBKDED 1+1, 5+1
11^PSOBKDED 13
12^PSOBKDED 10
13^PSOBKDED 14
2^PSOBKDED 4
3^PSOBKDED 2
4^PSOBKDED 12
5^PSOBKDED 11
6^PSOBKDED 1+7
7^PSOBKDED 8
8^PSOBKDED 7
9^PSOBKDED 9
INS^PSOBKDED 6+3, 6+8
^PSOBUILD ACP+24
SINS^PSODIR 6+9
DOSCK^PSODOSUT VER+13
POST^PSODRG VER+10
SIG^PSOHELP 6+11
SIGONE^PSOHELP VER+6
$$INSCHK^PSOHELP3 6+12
^PSOLMPO2 EN
HLDHDR^PSOLMUTL EDTSEL+1
EN^PSON52 ACP+14
NOOR^PSONEW ACP+2
DCORD^PSONEW2 ACP+11
DISPLAY^PSONEW2 ACP+5
^PSONEWG ACP+6
NCPDP^PSOORED6 ACP+12
M3^PSOOREDX M3
DSPL^PSOORNE3 EN, EDTSEL+1, EDTSEL+4, ACP+10, 1+1, 1+7
RDSPL^PSOORNE5 RDSPL
RXNCHK^PSOORNE5 RXNCHK
2^PSOORNW1 VER, 1+1, 5
MARK^PSOOTMRX ACP+17
NPSOSD^PSOUTIL ACP+23
PROV^PSOUTIL VER+9
FULL^VALM1 EDTSEL+3, VER, VER+4, VER+10, VER+15
PAUSE^VALM1 VER+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "..."
  • Line Location: ACP+11
Function Call: WRITE
  • Prompt: !,"Dosing Instruction Missing!!",!
  • Line Location: VER+2
Function Call: WRITE
  • Prompt: !,"Drug: "_PSODRUG("NAME")
  • Line Location: VER+4
Function Call: WRITE
  • Prompt: !,SIG(I)
  • Line Location: VER+5
Function Call: WRITE
  • Prompt: !,$E($G(INS1),2,250)
  • Line Location: VER+6
Function Call: WRITE
  • Prompt: !!,$C(7),Y_" fill date is greater than possible expiration date of "
  • Line Location: VER+17
Function Call: WRITE
  • Prompt: Y_"."
  • Line Location: VER+17
Function Call: WRITE
  • Prompt: !!,"Drug: "_PSODRUG("NAME")
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMM+10
Function Call: WRITE
  • Prompt: !?20,"Pending Outpatient Medication Orders",!
  • Line Location: SUMM+10
Function Call: WRITE
  • Prompt: !?20,"Pending Outpatient Medication Orders",!
  • Line Location: SUMM+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMM+12
Function Call: WRITE
  • Prompt: !?20,"Pending Outpatient Medication Orders",!
  • Line Location: SUMM+13
Function Call: WRITE
  • Prompt: ?20,"(signed in under "_$G(PSOINPRT)_")",!
  • Line Location: SUMM+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMMCL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMMCL+18
Function Call: WRITE
  • Prompt: !?20,"Pending Outpatient Medication Orders"
  • Line Location: SUMMCL+18
Function Call: WRITE
  • Prompt: !?20,"Pending Outpatient Medication Orders"
  • Line Location: SUMMCL+18
Function Call: WRITE
  • Prompt: !,"Clinic: "_$P($G(^SC(PSCXL,0)),"^")_" cont."
  • Condition for execution: $G(PSOCAG)
  • Line Location: SUMMCL+25
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(PCCNT)>0
  • Line Location: SUMMCL+25
Function Call: WRITE
  • Prompt: ?16,$P($G(^PS(59.8,PSCSORT,0)),"^")
  • Line Location: SUMMCL+25
Function Call: WRITE
  • Prompt: ?16,"*** NO CLINIC SORT GROUPS ***"
  • Line Location: SUMMCL+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLDIR+1
Routine Call
  • DIR
  • Line Location:
    • EDT
    • ACP+8
    • SUMM+3
    • SUMM+12
    • SUMM+18
    • SUMMCL+4
    • SUMMCL+27
    • CLDIR

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" VER+17
^PS(52.41 - [#52.41] SUMM+5, SUMM+6, SUMM+9, SUMMCL+8, SUMMCL+9
^PS(55 - [#55] 6+3, 6+4
^PS(59.8 - [#59.8] SUMMCL+24, SUMMCL+25
^PSRX - [#52] VER+6
^SC - [#44] SUMMCL+21, SUMMCL+25
^TMP("PSOBEDT" ACP+20*, ACP+21*, ACP+22*
^TMP($J SUMM+1!, SUMM+7*, SUMM+8*, SUMM+9*, SUMM+11, SUMM+17, SUMM+19!, SUMMCL+7!, SUMMCL+13*, SUMMCL+14*
, SUMMCL+15*, SUMMCL+16*, SUMMCL+17, SUMMCL+19, SUMMCL+22, SUMMQ!
^UTILITY("DIQ1" SUMM+4!, SUMM+14!

Label References

Name Line Occurrences
5 VER+7, 1+3
6 VER+8, 1+4
8 1+5
@( EDTSEL+2
CLDIR SUMMCL+20, SUMMCL+25
M3 VER+7, VER+8
RDSPL EDTSEL+4, ACP+3, 1+1, 1+7
RXNCHK ACP+3
SUMMCL SUMM+5
SUMMQ SUMMCL+17
VER ACP

Naked Globals

Name Field # of Occurrence
^("CLIN" SUMM+17
^("MAIL" SUMM+17
^("WIN" SUMM+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BINGCRT VER+15*
>> BINGRTE VER+15*
>> COPY EDTSEL, ACP+13, ACP+26, VER+9
DA SUMM+4*!, SUMM+14*!
DIC SUMM+4*!, SUMM+14*!
DIQ SUMM+4!, SUMM+14!
DIQ(0 SUMM+4*, SUMM+14*
DIR EDT!, ACP!, ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, SUMM+1!
, SUMM+3!, SUMM+12!, SUMM+18!, SUMMCL+2!, SUMMCL+4!, SUMMCL+27!, CLDIR!
DIR("?" SUMM+18*, SUMMCL+2*, SUMMCL+3*, SUMMCL+27*, CLDIR*
DIR("A" EDT*, ACP+8*, SUMM+2*, SUMM+18*, SUMMCL+2*, SUMMCL+27*, CLDIR*
DIR("B" ACP+8*, SUMM+2*, SUMMCL+2*
DIR(0 EDT*, ACP+8*, SUMM+2*, SUMM+12*, SUMM+18*, SUMMCL+2*, SUMMCL+27*, CLDIR*
DIRUT EDT!, ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, SUMM+1!, SUMM+3!
DR SUMM+4*!, SUMM+14*!
DT ACP+14
DTOUT EDT!, ACP+2!, ACP+4!, ACP+6!, ACP+9!, ACP+10!, ACP+11!, SUMMCL+4
DUOUT EDT!, ACP+2!, ACP+4!, ACP+6!, ACP+9!, ACP+10!, ACP+11!, SUMM+1!, SUMMCL+4
FIELDLST EDT~, EDTSEL+1*, EDTSEL+2, 1+3, 1+4, 1+5
FLD EDT~, EDTSEL+2*
>> I VER+5*
>> INS1 VER+6, 6+11
IOF SUMM+10, SUMM+13, SUMMCL+18, CLDIR+1
IOSL SUMM+12, SUMMCL+20, SUMMCL+25
>> NCPDPFLG ACP+12
PAT SUMM+1!
PCCNT SUMMCL+7~, SUMMCL+24*, SUMMCL+25*
PHI ACP+13!
PIN SUMM+6*, SUMM+9, SUMM+19!
>> POERR("DFLG" VER+11
PRC ACP+13!
PSCIN SUMMCL+7~, SUMMCL+8*, SUMMCL+9
PSCLOUT SUMMCL+7~, SUMMCL+19, SUMMCL+20, SUMMCL+24, SUMMCL+25, SUMMCL+27, CLDIR*
PSCNDE SUMMCL+7~, SUMMCL+9*, SUMMCL+10, SUMMCL+11, SUMMCL+12
PSCPT SUMMCL+7~, SUMMCL+8*
PSCSFLAG SUMMCL+7~, SUMMCL+24*, SUMMCL+25*, SUMMCL+26
>> PSCSORT SUMMCL+24*, SUMMCL+25
PSCX SUMMCL+7~, SUMMCL+8*
PSCXL SUMMCL+7~, SUMMCL+19*, SUMMCL+21, SUMMCL+22, SUMMCL+24, SUMMCL+25
>> PSEXDT VER+14, VER+16, VER+17
PSI SUMM+6*, SUMM+8, SUMM+19!
PSID SUMM+6*, SUMM+7, SUMM+8, SUMM+9, SUMM+19!
PSLX SUMMCL+7~, SUMMCL+8*
PSNCL SUMMCL+7~, SUMMCL+12*, SUMMCL+13, SUMMCL+14, SUMMCL+15, SUMMCL+16
PSNPAT SUMMCL+7~, SUMMCL+12*, SUMMCL+13, SUMMCL+15, SUMMCL+16
PSOAC VER, 1+1*!
PSOANSQ ACP+6!, ACP+9!, ACP+10!
PSOANSQD ACP+6!, ACP+9!, ACP+11!
>> PSOBEDT ACP+19
PSOCAG SUMMCL+7~, SUMMCL+24*, SUMMCL+25*
PSOCLSUM SUMM+5~, SUMMCL+4*, SUMMCL+6*
>> PSOCPZ("DFLG" ACP+6!, ACP+7!
PSODELINS 6+1~, 6+5*, 6+9
>> PSODFN ACP+20, ACP+21, ACP+22, 6+3, 6+4
>> PSODIR("DFLG" EDTSEL+2, 1+3, 1+4, 1+5
>> PSODIR("QFLG" EDTSEL+2, 1+3, 1+4, 1+5
PSODONE 6+5~*, 6+6, 6+9, 6+11*, 6+13*
PSODOSD VER+10~, VER+12
>> PSODRUG("IEN" 1+2, 5
>> PSODRUG("NAME" VER, VER+1, VER+4, 5+1
>> PSOEDIT EDTSEL*
>> PSOID ACP+14*
PSOINL SUMM+11*, SUMM+14, SUMM+17, SUMM+19!
PSOINPRT SUMM+4!*, SUMM+5!, SUMM+10, SUMM+13, SUMM+19!, SUMMCL+18
PSOINPRX SUMM+14!*, SUMM+16, SUMM+19!
PSOINSCH 6+1~, 6+12*, 6+13
>> PSOMTFLG 1, 1+2
PSONEW EN~, ACP+14, ACP+23, 6+9, 6+12
PSONEW("# OF REFILLS" , ACP+25!
PSONEW("DAYS SUPPLY" , ACP+25!
PSONEW("DFLG" EDTSEL*, ACP+2*, ACP+4*, ACP+6*, ACP+9*, ACP+26*, VER+2, VER+7, VER+8, VER+9
, VER+11*, VER+12*, 6+3, 6+7!, 6+9, 6+11!
PSONEW("ENT" VER+2
PSONEW("FIELD" EDTSEL*
PSONEW("FILL DATE" , VER+17
PSONEW("INS" 6+2, 6+11
PSONEW("IRXN" ACP+17
PSONEW("MAIL/WINDOW" ACP+20, ACP+22, VER+15
PSONEW("OIRXN" VER+6
PSONEW("POE" ACP+14*
PSONEW("QFLG" ACP+4
PSONEW("RX #" , RXNCHK
PSONEW("SIG" 6+11*
PSONEW("SINS" 6+2
PSONEW2 ACP!
PSONEW2("QFLG" ACP, VER+1*, VER+2*, VER+9*, VER+11*, VER+12*, VER+18*
>> PSONEW3 EDTSEL*
PSONOBCK ACP+1~*
PSONOOR VER+13!
PSOOEINS 6+2*, 6+15!
PSOORRNW VER+3*, VER+7!
PSOOSINS 6+2*, 6+15!
>> PSOPINST SUMM+4
>> PSORENW VER+9
>> PSORX("DFLG" EDTSEL+1, ACP!, VER+13, 1+1
>> PSORX("FN" ACP+14*
>> PSORX("QFLG" EDTSEL+1
>> PSORXED("DRUG IEN" , 1+2
>> PSORXED("IRXN" ACP+20, ACP+21
>> PSOSIGFL ACP+1, ACP+13, VER+10, 1
>> PSZCNT SUMM+10, SUMM+13, SUMMCL+18
PSZLQUIT SUMM+1!, SUMM+11, SUMM+12*, SUMM+19!
PZA SUMM+7*, SUMM+19!
PZROUT SUMM+9*, SUMM+19!
RT SUMM+1!, SUMM+19!
SDA ACP+25!
SEG1 ACP+25!
>> SIG( VER+5
>> SIG(0 VER+5
SSN1 ACP+25!
STA ACP+25!
>> VALMBCK EDT*, EDTSEL+1*, EDTSEL+3*, ACP*, ACP+10*, ACP+24*, VER+13*, VER+18*
VALMSG ACP!, VER+1*, VER+4!, 5*
X ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, VER+6*, 6+11*!, SUMM+3!
Y EDTSEL+1, ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, VER+17*, 6+11*!
, SUMM+3!, SUMM+12, SUMMCL+5, CLDIR
Z4 ACP+25!
ZDA ACP+25!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All