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

Package: Outpatient Pharmacy

Routine: PSOORNW1


Information

PSOORNW1 ;ISC BHAM/SAB - continuation of finish of new order ;Jun 25, 2018@13:38

Source Information

Source file <PSOORNW1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 6 DAYS^PSODIR1  POST^PSODRG  $$ERXIEN^PSOERXUT  MP1^PSOOREDX  DSPL^PSOORFI1  $$MAXNUMRF^PSOUTIL  
VA FileMan 3 EN^DDIOL  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 2 $$GETNDC^PSSNDCUT  $$MXDAYSUP^PSSUTIL1  

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 PSOORED4  PSOORED6  PSOORNE1  PSOORNE6  PSOORNEW  PSOORNW2  

Entry Points

Name Comments DBIA/ICR reference
2
CT1
ETX
TX
EX
URX
REF ;
; Retrieving the Maximum Number of Refills allowed
EDNEW ;
STATDAY
EDSTAT
OERF
REFX
KV

External References

Name Field # of Occurrence
EN^DDIOL 2+31
$$GET1^DIQ 2+13, CT1+7
^DIR 2+20, 2+27, 2+33, URX+1, OERF+3
DAYS^PSODIR1 CT1+13
POST^PSODRG CT1+10
$$ERXIEN^PSOERXUT 2
MP1^PSOOREDX EX
DSPL^PSOORFI1 CT1+10
$$MAXNUMRF^PSOUTIL REF+2, EDNEW+1
$$GETNDC^PSSNDCUT CT1+6
$$MXDAYSUP^PSSUTIL1 CT1+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($$ERXIEN^PSOERXUT(ORD_"P"):"eRx ",1:""),"Instructions: "
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!,"The following Drug(s) are available for selection:"
  • Line Location: 2+6
Function Call: WRITE
  • Prompt: !,PSDC_". "_$P(^PSDRUG(PSI,0),"^")_$S($P(^(0),"^",9):" (N/F)",1:"")
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: !!," This Dispense Drug is now Inactive. You may select a"
  • Line Location: 2+15
Function Call: WRITE
  • Prompt: !," new Orderable Item, or you can enter a new Order with"
  • Line Location: 2+16
Function Call: WRITE
  • Prompt: !," an Active Drug.",!
  • Line Location: 2+17
Function Call: WRITE
  • Prompt: !!,"No drugs available!",!
  • Line Location: 2+18
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+25
Function Call: WRITE
  • Prompt: !,$C(7),PSRF_" refills are greater than "_PTRF_" allowed for "_$P(PTST,"^")_" Rx Patient Status.",!
  • Line Location: EDSTAT+0
Routine Call
  • DIR
  • Line Location:
    • 2+20
    • 2+27
    • 2+33
    • URX+1
    • OERF+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.41 - [#52.41] 2+1, 2+12
^PS(53 - [#53] STATDAY
^PSDRUG - [#50] 2+7, 2+8, 2+23, 2+29, 2+31, CT1, CT1+4, CT1+5, CT1+6, CT1+9
^PSDRUG("ASP" 2+7
^PSRX - [#52] STATDAY
^TMP("PSORXPO" CT1+2*, URX+2*
^YSCL(603.01 - [#603.01] CT1

Label References

Name Line Occurrences
EDSTAT EDNEW+5
ETX 2+21
EX 2+28, CT1+14
KV 2+25, 2+29, TX, URX
REF ETX
REFX OERF+3
TX EX+1

Naked Globals

Name Field # of Occurrence
^("I" 2+7
^("ND" CT1+4, CT1+5
^(0 2+8, STATDAY

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLOZPAT REF+2, EDNEW+1
>> DA STATDAY
DEA REFX+1!
DEFAULT 2+5~, 2+6*, 2+9*, 2+26
DIR 2+19!, 2+20!, 2+32!, 2+33!, KV!
DIR("?" 2+19*, 2+32*, OERF+2*
DIR("A" 2+19*, 2+27*, 2+32*, URX*, OERF*
DIR("B" 2+26*, URX*, OERF+1*
DIR(0 2+19*, 2+26*, 2+32*, URX*, OERF*
DIRUT 2+28, URX+1*, OERF+3, KV!
DRG 2+11~, 2+12*, 2+13
DT 2+7, 2+14
DTOUT KV!
DUOUT KV!
INST 2+1*, 2+4!
INST( 2+1*
IOM 2+2
LST CT1+10~
MAXRF REF+2~*, REF+3, REF+6, EDNEW+1~*, EDNEW+2, EDNEW+3, EDNEW+4
MIG 2+1*, 2+2, 2+4!
>> NEWEDT CT1+10
>> OR0 2+3
>> ORD 2, 2+1, 2+12, 2+30, CT1+2, URX+2
>> ORSV 2
>> OUT 2+28*, CT1+14*
>> POERR OERF+1
>> PSDAYS EDNEW+3, EDNEW+4, STATDAY*
PSDC 2+6*, 2+8*, 2+9, 2+10, 2+21, 2+22, 2+26, CT1+1!, ETX, TX!
PSDC( 2+9*, 2+29
PSDY REFX+1!
PSDY1 REFX+1!
PSFMAX EDNEW+4*, STATDAY!
PSFMAX("DAYS" EDNEW+4*
PSFMAX("MAX" EDNEW+4*
PSFMAX("RF" EDNEW+4*
PSI 2+6*, 2+7*, 2+8, 2+9, TX!
PSMAX EDNEW+4*, STATDAY!
PSMAX("DAYS" EDNEW+4*
PSMAX("MAX" EDNEW+4*
PSMAX("RF" EDNEW+4*
>> PSOAC 2+31*, CT1+10
PSOBDR 2+21*, EX!
PSOBDR("IEN" 2+30
PSOBDR("NAME" 2+31
PSOBDRG 2+21, EX!
>> PSOCOPY CT1+10
>> PSOCSIG 2+29*, 2+31*
>> PSODFN CT1
PSODRUG 2+21, CT1+10!, CT1+14!, EX*
PSODRUG("CLN" CT1+5*
PSODRUG("COST" CT1+9*
PSODRUG("DAW" CT1+7*, CT1+8*
PSODRUG("DEA" CT1+5*
PSODRUG("EXPI RATION DATE" , CT1+9*
PSODRUG("IEN" 2+23, 2+24!, CT1+3*, REF+2, EDNEW+1
PSODRUG("MAXDOSE" CT1+5*
PSODRUG("NAME" 2+24!, CT1+3*
PSODRUG("NDC" CT1+6*
PSODRUG("NDF" CT1+4*
PSODRUG("OI" 2+3*, 2+7, 2+23
PSODRUG("SIG" CT1+6*
PSODRUG("STKLVL" CT1+6*
PSODRUG("UNIT" CT1+9*
PSODRUG("VA C LASS" , CT1+3*
>> PSOFIN CT1+10
PSOMSG 2+31~
PSOMSG(1 2+31*
PSOMSG(2 2+31*
>> PSONEW CT1+13
>> PSONEW("# OF REFILLS" , REF+3, REF+4, REF+6*, OERF+1, OERF+4*, REFX*
>> PSONEW("DAYS SUPPLY" , CT1+13, REF+2, EDNEW+1
>> PSONEW("DFLG" CT1+14
>> PSONEW("N# RE F" , REF+4*, REF+6*, OERF+1, OERF+4*, REFX
>> PSONEW("PATIE NT STATUS" , REF+2, EDNEW+1
>> PSOQFLG ETX*, EX*
>> PSORX("DFLG" CT1+10
>> PSORXED("DRUG IEN" , 2+9
>> PSOSITE CT1+6
PSOX OERF, OERF+1, REFX, REFX+1!
PSOX1 CT1+9*, TX!, OERF+1, REFX, REFX+1!
PSOY 2+29!*, 2+30, 2+31, CT1, CT1+1!, CT1+3, CT1+4, CT1+5, CT1+6, CT1+7
, CT1+9, CT1+13, TX!
PSOY(0 2+29*, CT1+3, CT1+5, CT1+6
>> PSRF EDNEW+2, EDNEW+3, EDNEW+4, STATDAY*, EDSTAT
PSRMAX STATDAY!
PSTMAX EDNEW+5!, STATDAY!, EDSTAT*
PSTMAX("PSRF" EDSTAT*
PSTMAX("PT" EDSTAT*
PSTMAX("PTRF" EDSTAT*
>> PTDY STATDAY*
>> PTRF STATDAY*, EDSTAT
>> PTST STATDAY*, EDSTAT
SG 2+2*, 2+4!
TY 2+4!
>> VALMBCK CT1+1*, CT1+10*, ETX*, EX*
>> VALMSG CT1+1*, ETX*
X 2+11~, 2+13*, 2+14, TX!, STATDAY, REFX+1!
Y 2+29, TX!, URX+1, URX+2, OERF+4, REFX+1!
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