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

Package: Outpatient Pharmacy

Routine: PSORENW3


Information

PSORENW3 ;IHS/DSD/JCM - EDIT TEMPLATE FOR RENEW RX ORDER ENTRY ;Dec 22, 2021@07:12:33

Source Information

Source file <PSORENW3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Outpatient Pharmacy 6 PROV^PSODIR  REFILL^PSODIR1  (CLERK,CLINIC,EXP,FILLDT,ISSDT,MW,RMK)^PSODIR2  EN^PSOFSIG  SIG^PSOHELP  $$TITRX^PSOUTL  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Outpatient Pharmacy 8 PSODIR  PSODIR1  PSODIR2  PSODIR3  PSOORRNW  PSORENW0  PSORENW2  PSORENW4  

Entry Points

Name Comments DBIA/ICR reference
START ;
1
2
3
4
5
6
7
8
9
END ;
INIT ;
INITX
JUMP ;
DSPLY ;called from PSORENW0
DSPLYX

External References

Name Field # of Occurrence
^DIR DSPLY+18
PROV^PSODIR 3
REFILL^PSODIR1 4+1
CLERK^PSODIR2 8
CLINIC^PSODIR2 9
EXP^PSODIR2 7
FILLDT^PSODIR2 2
ISSDT^PSODIR2 1
MW^PSODIR2 6
RMK^PSODIR2 5
EN^PSOFSIG INIT+34
SIG^PSOHELP INIT+42
$$TITRX^PSOUTL INIT+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,PSORENW("NRX #"),?12," ",$P(^PSDRUG(PSORENW("DRUG IEN"),0),"^"),?46," QTY: ",$S($G(PSORENW("QTY")):PSORENW("QTY"),1:$P(PSORENW("RX0"),"^",7))
  • Line Location: DSPLY+2
Function Call: WRITE
  • Prompt: !,"# OF REFILLS: "_$S($G(PSORENW("# OF REFILLS")):PSORENW("# OF REFILLS"),1:$P(PSORENW("RX0"),"^",9))
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: " ISSUED: "_$S(DT>PSORENW("FILL DATE"):$E(PSORENW("FILL DATE"),4,5)_"-"_$E(PSORENW("FILL DATE"),6,7)_"-"_$E(PSORENW("FILL DATE"),2,3),1:$E(DT,4,5)_"-"_$E(DT,6,7)_"-"_$E(DT,2,3))
  • Line Location: DSPLY+4
Function Call: WRITE
  • Prompt: SIG(D),!
  • Line Location: DSPLY+10
Function Call: WRITE
  • Prompt: " SIG: "_PSORENW("SIG")_" "
  • Line Location: DSPLY+13
Function Call: WRITE
  • Prompt: "FILLED: "_$E(PSORENW("FILL DATE"),4,5)_"-"_$E(PSORENW("FILL DATE"),6,7)_"-"_$E(PSORENW("FILL DATE"),2,3)
  • Line Location: DSPLY+14
Function Call: WRITE
  • Prompt: !,"ROUTING: "_$S($G(PSORENW("MAIL/WINDOW"))["W":"WINDOW",$E($G(PSORENW("MAIL/WINDOW")))="P":"PARK",1:"MAIL")
  • Line Location: DSPLY+16
Function Call: WRITE
  • Prompt: " PHYS: "_PSORX("PROVIDER NAME"),!
  • Line Location: DSPLY+17
Routine Call
  • DIR
  • Line Location:
    • DSPLY+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INIT+9
^PS(52.41 - [#52.41] INIT+35, INIT+39
^PS(53 - [#53] INIT+12
^PS(55 - [#55] INIT+22
^PSDRUG - [#50] DSPLY+2
^PSRX - [#52] INIT+18, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+29, INIT+37, INIT+38, INIT+41
, INIT+42, DSPLY+8, DSPLY+11
^SC - [#44] INIT+8
^VA(200 - [#200] INIT+11, INIT+17

Label References

Name Line Occurrences
@( 1+1, 2+1, 3+1, 4+2, 5+1, 6+1, 7+1, 8+1, 9+1
END 1+1, 2+1, 3+1, 4+2, 5+1, 6+1, 7+1, 8+1, 9+1
INIT START+1
INITX INIT+4

Naked Globals

Name Field # of Occurrence
^("SIG" INIT+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D INIT+23*, DSPLY+8*, DSPLY+10*
>> DFN DSPLY+1*
DIR DSPLY+18!
DIR("A" DSPLY+18*
DIR(0 DSPLY+18*
DIRUT DSPLY+18!
DOSE INIT+24*, INIT+25, INIT+26, INIT+27, INIT+28, INIT+30!
DR DSPLY+5*, DSPLY+6, DSPLY+7, DSPLY+9!
DT INIT+5, DSPLY+4
DTOUT DSPLY+18!
DUOUT DSPLY+18!
DUR1 DSPLY+6*, DSPLY+7, DSPLY+9!
DUZ INIT+17
DUZ("AG" 7, 8
>> I INIT+24*, INIT+29, INIT+35*, INIT+38*, INIT+39*, DSPLY+11*
>> INS1 INIT+42
>> OR0 INIT+5, INIT+7
>> ORD INIT+35, INIT+39
>> PSODFN INIT+22
>> PSOFDR INIT+7
>> PSOORRNW INIT+32, INIT+39
>> PSORENW 1, 2, 3, 4+1, 5, 6, 7, 8, 9, INIT+34
>> PSORENW("# OF REFILLS" , 4+1!, INIT+13*, DSPLY+3
>> PSORENW("CLINIC" INIT+6*, INIT+7*, INIT+8
>> PSORENW("CONJUNCTION" INIT+27*
>> PSORENW("DAYS SUPPLY" , 4*, INIT+2*
>> PSORENW("DFLG" 1+1, 2+1, 3+1, 4+2, 5+1, 6+1, 7+1, 8+1, 9+1, INIT+3*
, DSPLY+12*, DSPLY+18
>> PSORENW("DOSE ORDERED" , INIT+26*
>> PSORENW("DOSE" INIT+24, INIT+25*
>> PSORENW("DRUG IEN" , DSPLY+2
>> PSORENW("DURATION" INIT+27*, DSPLY+5, DSPLY+6, DSPLY+7*
>> PSORENW("EDIT" END+1*, INIT+4
>> PSORENW("ENT" INIT+25*, INIT+26, INIT+27, INIT+28, INIT+29, DSPLY+5
>> PSORENW("FIELD" 1+1, 2+1, 3+1, 4+2, 5+1, 6+1, 7+1, 8+1, 9+1, INIT+3*
, JUMP+1*
>> PSORENW("FILL DATE" , INIT+5, INIT+9, DSPLY+4, DSPLY+14
>> PSORENW("FLD" 1*, 2*, 3*, 4*, 5*, 6*, 7*, 8*, 9*, JUMP+1
>> PSORENW("IND" INIT+20*
>> PSORENW("INDF" INIT+21*
>> PSORENW("INDO" INIT+22*
>> PSORENW("INS" INIT+18*
>> PSORENW("ISSU E DATE" , INIT+5*
>> PSORENW("MAIL/WINDOW" DSPLY+16
>> PSORENW("NOUN" INIT+28*
>> PSORENW("NRX #" , DSPLY+2
>> PSORENW("ODOSE" INIT+29*
>> PSORENW("OIRXN" INIT+18, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+29, INIT+32, INIT+37, INIT+38
, INIT+41, INIT+42, DSPLY+8, DSPLY+11
>> PSORENW("PROV IDER NAME" , INIT+11*
>> PSORENW("PROVIDER" INIT+10*, INIT+11
>> PSORENW("PSODFN" DSPLY+1
>> PSORENW("PTST NODE" , INIT+12*
>> PSORENW("QTY" INIT+1*, DSPLY+2
>> PSORENW("REMARKS" INIT+14*
>> PSORENW("ROUTE" INIT+26*
>> PSORENW("RX0" 4, INIT+1, INIT+2, INIT+6, INIT+10, INIT+12, INIT+13, INIT+14, INIT+16, DSPLY+2
, DSPLY+3
>> PSORENW("SCHEDULE" INIT+27*
>> PSORENW("SIG" INIT+23*, INIT+43*, DSPLY+8*, DSPLY+13
>> PSORENW("UNITS" INIT+26*
>> PSORENW("VERB" INIT+28*
PSORENW3 END+1!, INIT+3*
>> PSORX("CLERK CODE" , INIT+17*
>> PSORX("CLINIC" INIT+8*
>> PSORX("FILL D ATE" , INIT+9*
>> PSORX("MAIL/WINDOW" INIT+16*
>> PSORX("PROVID ER NAME" , DSPLY+17
>> SIG( INIT+35*, INIT+38*, INIT+39*, DSPLY+10, DSPLY+11*
>> SIG(0 INIT+35, INIT+36, INIT+37, INIT+39, INIT+40, INIT+41, INIT+43, DSPLY+10, DSPLY+12
>> SIG(1 INIT+36*, INIT+40*, INIT+42*, INIT+43*, DSPLY+12*
>> SIG(2 DSPLY+12*
>> SIGOK INIT+33*, INIT+37*, INIT+41*, DSPLY+10
>> SPEED DSPLY+18
>> X INIT+42*
Y INIT+9*!, JUMP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All