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 ; 03/28/93 20:59

Source Information

Source file <PSORENW3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Outpatient Pharmacy 4 PROV^PSODIR  REFILL^PSODIR1  (CLERK,CLINIC,EXP,FILLDT,ISSDT,MW,RMK)^PSODIR2  SIG^PSOHELP  
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+17
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
SIG^PSOHELP INIT+31

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",1:"MAIL")
  • Line Location: DSPLY+15
Function Call: WRITE
  • Prompt: " PHYS: "_PSORX("PROVIDER NAME"),!
  • Line Location: DSPLY+16
Routine Call
  • DIR
  • Line Location:
    • DSPLY+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INIT+9
^PS(52.41 - [#52.41] INIT+28
^PS(53 - [#53] INIT+12
^PSDRUG - [#50] DSPLY+2
^PSRX - [#52] INIT+17, INIT+18, INIT+19, INIT+24, INIT+26, INIT+27, INIT+30, INIT+31, DSPLY+8, DSPLY+11
^SC - [#44] INIT+8
^VA(200 - [#200] INIT+11, INIT+16

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+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D INIT+18*, DSPLY+8*, DSPLY+10*
>> DFN DSPLY+1*
DIR DSPLY+17!
DIR("A" DSPLY+17*
DIR(0 DSPLY+17*
DIRUT DSPLY+17!
DOSE INIT+19*, INIT+20, INIT+21, INIT+22, INIT+23, INIT+25!
DR DSPLY+5*, DSPLY+6, DSPLY+7, DSPLY+9!
DT INIT+5, DSPLY+4
DTOUT DSPLY+17!
DUOUT DSPLY+17!
DUR1 DSPLY+6*, DSPLY+7, DSPLY+9!
DUZ INIT+16
DUZ("AG" 7, 8
>> I INIT+19*, INIT+24, INIT+27*, INIT+28*, DSPLY+11*
>> INS1 INIT+31
>> OR0 INIT+5, INIT+7
>> ORD INIT+28
>> PSOFDR INIT+7
>> PSOORRNW INIT+28
>> PSORENW 1, 2, 3, 4+1, 5, 6, 7, 8, 9
>> PSORENW("# OF REFILLS" , 4+1!, INIT+13*, DSPLY+3
>> PSORENW("CLINIC" INIT+6*, INIT+7*, INIT+8
>> PSORENW("CONJUNCTION" INIT+22*
>> 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+17
>> PSORENW("DOSE ORDERED" , INIT+21*
>> PSORENW("DOSE" INIT+19, INIT+20*
>> PSORENW("DRUG IEN" , DSPLY+2
>> PSORENW("DURATION" INIT+22*, DSPLY+5, DSPLY+6, DSPLY+7*
>> PSORENW("EDIT" END+1*, INIT+4
>> PSORENW("ENT" INIT+20*, INIT+21, INIT+22, INIT+23, INIT+24, 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("INS" INIT+17*
>> PSORENW("ISSU E DATE" , INIT+5*
>> PSORENW("MAIL/WINDOW" DSPLY+15
>> PSORENW("NOUN" INIT+23*
>> PSORENW("NRX #" , DSPLY+2
>> PSORENW("ODOSE" INIT+24*
>> PSORENW("OIRXN" INIT+17, INIT+18, INIT+19, INIT+24, INIT+26, INIT+27, INIT+30, INIT+31, 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+21*
>> PSORENW("RX0" 4, INIT+1, INIT+2, INIT+6, INIT+10, INIT+12, INIT+13, INIT+14, INIT+15, DSPLY+2
, DSPLY+3
>> PSORENW("SCHEDULE" INIT+22*
>> PSORENW("SIG" INIT+18*, INIT+32*, DSPLY+8*, DSPLY+13
>> PSORENW("UNITS" INIT+21*
>> PSORENW("VERB" INIT+23*
PSORENW3 END+1!, INIT+3*
>> PSORX("CLERK CODE" , INIT+16*
>> PSORX("CLINIC" INIT+8*
>> PSORX("FILL D ATE" , INIT+9*
>> PSORX("MAIL/WINDOW" INIT+15*
>> PSORX("PROVID ER NAME" , DSPLY+16
>> SIG( INIT+27*, INIT+28*, DSPLY+10, DSPLY+11*
>> SIG(0 INIT+26, INIT+28, INIT+29, INIT+30, INIT+32, DSPLY+10, DSPLY+12
>> SIG(1 INIT+29*, INIT+31*, INIT+32*, DSPLY+12*
>> SIG(2 DSPLY+12*
>> SIGOK INIT+26*, INIT+30*, DSPLY+10
>> SPEED DSPLY+17
>> X INIT+31*
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