Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSORENW2

Package: Outpatient Pharmacy

Routine: PSORENW2


Information

PSORENW2 ;IHS/DSD/JCM - displays renew rx information for edit ; 12/09/92 10:14 am

Source Information

Source file <PSORENW2.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
EN
END
DISPLAY ;
ASK ;
ASKX
EDIT ;
EOJ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Rx # ",PSORENW("NRX #")
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: ?23,$E(PSORENW("FILL DATE"),4,5),"/",$E(PSORENW("FILL DATE"),6,7),"/",$E(PSORENW("FILL DATE"),2,3)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,$G(PSORX("NAME")),?30,"#",PSORENW("QTY")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,$E($G(INS1),2,250),!!,$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:PSODRUG("NAME"))
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,PSORENW("PROVIDER NAME"),?25,PSORX("CLERK CODE")
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"# of Refills: ",PSORENW("# OF REFILLS"),!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !!,$C(7),Y_" fill date is greater than possible expiration date of "
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: Y_".",!
  • Line Location: ASK+10
Info |  Source |  Entry Points |  Interaction Calls