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

Package: Outpatient Pharmacy

Routine: PSOERX1C


Information

PSOERX1C ;ALB/BWF - eRx Utilities ; 11/27/2019 10:20am

Source Information

Source file <PSOERX1C.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT(PSOIEN,OP) ;
PRINTQ(PSOIEN,OP) ;
TITLELN(TITLE) ; Title Line (Formats with _ around it, centered)
DISPCHK(CANREQ,LINE,S2017) ;
DRUGCODE(PSOIEN,MEDIEN) ; Returns the Drug Code (Print format: e.g.: "NDC: 1939994449")

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$TITLELN("PHARMACY INFORMATION")
  • Line Location: PRINTQ+119
Function Call: WRITE
  • Prompt: !,$$TITLELN("PRESCRIBER INFORMATION")
  • Line Location: PRINTQ+138
Function Call: WRITE
  • Prompt: !,"Name: "_PRLNM_", "_PRFNM_" "_PRMNM
  • Line Location: PRINTQ+139
Function Call: WRITE
  • Prompt: !,"Clinic: ",CLINIC
  • Line Location: PRINTQ+140
Function Call: WRITE
  • Prompt: !,"Address: "_PRAD1
  • Line Location: PRINTQ+141
Function Call: WRITE
  • Prompt: !," "_PRAD2
  • Line Location: PRINTQ+142
Function Call: WRITE
  • Prompt: !," "_PRCTY_", "_PRST_" "_PRZIP
  • Line Location: PRINTQ+143
Function Call: WRITE
  • Prompt: !,"NPI: "_PRNPI,?20,"DEA: "_PRDEA,?40,"State Lic: "_PRSTL
  • Line Location: PRINTQ+144
Function Call: WRITE
  • Prompt: !,"Primary Phone: "_$G(PRTEL),?40,"Fax: "_$G(PRFAX)
  • Line Location: PRINTQ+145
Function Call: WRITE
  • Prompt: !,$$TITLELN("PATIENT INFORMATION")
  • Line Location: PRINTQ+147
Function Call: WRITE
  • Prompt: !," "_PTAD2
  • Line Location: PRINTQ+153
Function Call: WRITE
  • Prompt: !,PHW
  • Line Location: PRINTQ+157
Function Call: WRITE
  • Prompt: !,$$TITLELN("PRESCRIPTION INFORMATION")
  • Line Location: PRINTQ+158
Function Call: WRITE
  • Prompt: !,"eRx Drug: "_$$GET1^DIQ(52.49,PSOIEN,3.1,"E")_" "_$P($$ERXDRSCH^PSOERXUT(+PSOIENS),"^",2)
  • Line Location: PRINTQ+160
Function Call: WRITE
  • Prompt: !,$$DRUGCODE(PSOIEN,+$G(MEDIEN))
  • Line Location: PRINTQ+161
Function Call: WRITE
  • Prompt: ?20,"Written Date: "_$$FMTE^XLFDT(ERXWDATE,"2D")
  • Line Location: PRINTQ+163
Function Call: WRITE
  • Prompt: !,"Qty: ",$$GET1^DIQ(52.49,PSOIEN,5.1,"E"),?20,"Days Supply: ",$$GET1^DIQ(52.49,PSOIEN,5.5,"E")
  • Line Location: PRINTQ+167
Function Call: WRITE
  • Prompt: ?45,"Refills: "_REFILL
  • Line Location: PRINTQ+177
Function Call: WRITE
  • Prompt: !,"Code List Qualifier: "_$$GET1^DIQ(52.49,PSOIEN,5.2,"E")
  • Line Location: PRINTQ+178
Function Call: WRITE
  • Prompt: !,"Drug Form: "_$$GET1^DIQ(52.49,PSOIEN,41,"E")
  • Line Location: PRINTQ+183
Function Call: WRITE
  • Prompt: !,"Strength: "_$$GET1^DIQ(52.49,PSOIEN,43,"E")
  • Line Location: PRINTQ+184
Function Call: WRITE
  • Prompt: !,"Substitutions?: "_ERXDSUB
  • Line Location: PRINTQ+188
Function Call: WRITE
  • Prompt: !,"SIG: "_$$GET1^DIQ(52.49,PSOIEN,7,"E")
  • Line Location: PRINTQ+194
Function Call: WRITE
  • Prompt: !,"Provider Comments: ",PRVNOTES
  • Line Location: PRINTQ+201
Function Call: WRITE
  • Prompt: !,$$TITLELN("PRESCRIBER DRUG USE EVALUATION")
  • Line Location: PRINTQ+207
Function Call: WRITE
  • Prompt: !,"Co-Agent: "_$P(DUEINFO(DUECNT),"^",8)
  • Line Location: PRINTQ+209
Function Call: WRITE
  • Prompt: !,"Reason: "_REASON
  • Line Location: PRINTQ+211
Function Call: WRITE
  • Prompt: !,"Result: "_RESULT
  • Line Location: PRINTQ+213
Function Call: WRITE
  • Prompt: !,"Override: "_$P(DUEINFO(DUECNT),"^",9)
  • Line Location: PRINTQ+214
Function Call: WRITE
  • Prompt: !,DDOT
  • Line Location: PRINTQ+215
Function Call: WRITE
  • Prompt: !,$$TITLELN("DIAGNOSIS INFORMATION")
  • Line Location: PRINTQ+221
Function Call: WRITE
  • Prompt: !,$S($P(ICDZ,"^")="P":"Primary",1:"Secondary")_" Dx:"
  • Line Location: PRINTQ+224
Function Call: WRITE
  • Prompt: !,$P(ICDZ,"^",2)_" "_$P(ICDZ,"^",3)
  • Line Location: PRINTQ+225
Function Call: WRITE
  • Prompt: !,$P(ICDZ,"^",4)
  • Line Location: PRINTQ+226
Function Call: WRITE
  • Prompt: !,DDOT
  • Line Location: PRINTQ+227
Function Call: WRITE
  • Prompt: !!,"eRx Reference #: ",$$GET1^DIQ(52.49,PSOIEN,.01,"E")," Message ID: ",$$GET1^DIQ(52.49,PSOIEN,25,"E")
  • Line Location: PRINTQ+230
Function Call: WRITE
  • Prompt: LTXT
  • Line Location: PRINTQ+231
Function Call: WRITE
  • Prompt: !,$$TITLELN("END OF eRx")
  • Line Location: PRINTQ+259

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.46 - [#52.46] GETS^DIQ
^PS(52.47 - [#52.47] GETS^DIQ
^PS(52.48 - [#52.48] GET1^DIQ,  GETS^DIQ
52.483 GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ,  GETS^DIQ
52.49311 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call