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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOERXH1

Package: Outpatient Pharmacy

Routine: PSOERXH1


Information

PSOERXH1 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm

Source Information

Source file <PSOERXH1.m>

Entry Points

Name Comments DBIA/ICR reference
HOLD ;
NSTAT(IEN,STAT,COMM) ;
HDIR(HTYP) ;
UNHOLD ;
UHSTS(ERXIEN) ; Returns the eRx status after it's un-held
; Input: ERXIEN - Pointer to the eRx being worked on (Pointer to #52.49)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Cannot hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
  • Line Location: HOLD+9
Function Call: WRITE
  • Prompt: !!,"Cannot hold a renewal response record that is in 'Complete', 'Processed', or 'Error' status.",!
  • Line Location: HOLD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HOLD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HOLD+24
Function Call: WRITE
  • Prompt: !!,"Hold Reason required. eRx not placed in a 'Hold' status."
  • Line Location: HOLD+26
Function Call: WRITE
  • Prompt: !,"eRx NOT placed on hold."
  • Line Location: HOLD+28
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The eRx will be un-held automatically on the date you enter below and placed"
  • Line Location: HOLD+29
Function Call: WRITE
  • Prompt: !,"in '",$$GET1^DIQ(52.45,$$GET1^DIQ(52.49,PSOIEN,1,"I"),.02),"' status.",$G(IOINORM)
  • Line Location: HOLD+30
Function Call: WRITE
  • Prompt: !
  • Line Location: HOLD+31
Function Call: WRITE
  • Prompt: !,"eRx NOT placed on hold."
  • Line Location: HOLD+36
Function Call: WRITE
  • Prompt: !!,"Hold Reason required. eRx not placed in a 'Hold' status."
  • Line Location: HOLD+48
Function Call: WRITE
  • Prompt: !,"eRx NOT placed on hold."
  • Line Location: HOLD+50
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The eRx will be un-held automatically on the date you enter below and placed"
  • Line Location: HOLD+51
Function Call: WRITE
  • Prompt: !,"in '",$$GET1^DIQ(52.45,$$GET1^DIQ(52.49,PSOIEN,1,"I"),.02),"' status.",$G(IOINORM)
  • Line Location: HOLD+52
Function Call: WRITE
  • Prompt: !
  • Line Location: HOLD+53
Function Call: WRITE
  • Prompt: !
  • Line Location: HOLD+57
Function Call: WRITE
  • Prompt: !,"Updating..."
  • Line Location: HOLD+60
Function Call: WRITE
  • Prompt: "done.",$C(7)
  • Line Location: HOLD+62
Function Call: WRITE
  • Prompt: !!,"Cannot un-hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
  • Line Location: UNHOLD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: UNHOLD+9
Function Call: WRITE
  • Prompt: !,"eRx removed from hold status, and moved to '"_$$SENTENCE^XLFSTR($$GET1^DIQ(52.45,RXSTATI,.02,"E"))_"'."
  • Line Location: UNHOLD+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.45 - [#52.45] Classic Fileman Calls,  GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call