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")
REFSCRN ;refresh the screen
PAUSE(PSOQ) ; pause screen display
; Input:
; PSOQ - var used to quit report processing to user CRT
; Output:
; PSOQ - passed by reference - 0 = Continue, 1 = Quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$TITLELN("PHARMACY INFORMATION")
  • Line Location: PRINTQ+121
Function Call: WRITE
  • Prompt: !,$$TITLELN("PRESCRIBER INFORMATION")
  • Line Location: PRINTQ+141
Function Call: WRITE
  • Prompt: !,"Name: "_PRLNM_", "_PRFNM_" "_PRMNM
  • Line Location: PRINTQ+142
Function Call: WRITE
  • Prompt: !,"Clinic: ",CLINIC
  • Line Location: PRINTQ+143
Function Call: WRITE
  • Prompt: !,"Address: "_PRAD1
  • Line Location: PRINTQ+144
Function Call: WRITE
  • Prompt: !," "_PRAD2
  • Line Location: PRINTQ+145
Function Call: WRITE
  • Prompt: !," "_PRCTY_", "_PRST_" "_PRZIP
  • Line Location: PRINTQ+146
Function Call: WRITE
  • Prompt: !,"NPI: "_PRNPI,?20,"DEA: "_PRDEA,?40,"State Lic: "_PRSTL
  • Line Location: PRINTQ+147
Function Call: WRITE
  • Prompt: !,"Primary Phone: "_$G(PRTEL),?40,"Fax: "_$G(PRFAX)
  • Line Location: PRINTQ+148
Function Call: WRITE
  • Prompt: !,$$TITLELN("PATIENT INFORMATION")
  • Line Location: PRINTQ+151
Function Call: WRITE
  • Prompt: !," "_PTAD2
  • Line Location: PRINTQ+157
Function Call: WRITE
  • Prompt: !,PHW
  • Line Location: PRINTQ+161
Function Call: WRITE
  • Prompt: !,$$TITLELN("PRESCRIPTION INFORMATION")
  • Line Location: PRINTQ+163
Function Call: WRITE
  • Prompt: !,"Prescriber Order #: "_$$GET1^DIQ(52.49,PSOIEN,.09)
  • Line Location: PRINTQ+165
Function Call: WRITE
  • Prompt: !,"eRx Drug: "_$$GET1^DIQ(52.49,PSOIEN,3.1,"E")_" "_$P($$ERXDRSCH^PSOERXUT(+PSOIENS),"^",2)
  • Line Location: PRINTQ+166
Function Call: WRITE
  • Prompt: !,$$DRUGCODE(PSOIEN,+$G(MEDIEN))
  • Line Location: PRINTQ+167
Function Call: WRITE
  • Prompt: ?20,"Written Date: "_$$FMTE^XLFDT(ERXWDATE,"2D")
  • Line Location: PRINTQ+169
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+173
Function Call: WRITE
  • Prompt: ?45,"Refills: "_REFILL
  • Line Location: PRINTQ+183
Function Call: WRITE
  • Prompt: !,"Code List Qualifier: "_$$GET1^DIQ(52.49,PSOIEN,5.2,"E")
  • Line Location: PRINTQ+184
Function Call: WRITE
  • Prompt: !,"Drug Form: "_$$GET1^DIQ(52.49,PSOIEN,41,"E")
  • Line Location: PRINTQ+189
Function Call: WRITE
  • Prompt: !,"Strength: "_$$GET1^DIQ(52.49,PSOIEN,43,"E")
  • Line Location: PRINTQ+190
Function Call: WRITE
  • Prompt: !,"Substitutions?: "_ERXDSUB
  • Line Location: PRINTQ+194
Function Call: WRITE
  • Prompt: !,"SIG: "_$$GET1^DIQ(52.49,PSOIEN,7,"E")
  • Line Location: PRINTQ+200
Function Call: WRITE
  • Prompt: !,"Provider Comments: ",PRVNOTES
  • Line Location: PRINTQ+207
Function Call: WRITE
  • Prompt: !,$$TITLELN("PRESCRIBER DRUG USE EVALUATION")
  • Line Location: PRINTQ+214
Function Call: WRITE
  • Prompt: !,"Co-Agent: "_$P(DUEINFO(DUECNT),"^",8)
  • Line Location: PRINTQ+216
Function Call: WRITE
  • Prompt: !,"Reason: "_REASON
  • Line Location: PRINTQ+218
Function Call: WRITE
  • Prompt: !,"Result: "_RESULT
  • Line Location: PRINTQ+220
Function Call: WRITE
  • Prompt: !,"Override: "_$P(DUEINFO(DUECNT),"^",9)
  • Line Location: PRINTQ+221
Function Call: WRITE
  • Prompt: !,DDOT
  • Line Location: PRINTQ+222
Function Call: WRITE
  • Prompt: !,$$TITLELN("DIAGNOSIS INFORMATION")
  • Line Location: PRINTQ+228
Function Call: WRITE
  • Prompt: !,$S($P(ICDZ,"^")="P":"Primary",1:"Secondary")_" Dx:"
  • Line Location: PRINTQ+231
Function Call: WRITE
  • Prompt: !,$P(ICDZ,"^",2)_" "_$P(ICDZ,"^",3)
  • Line Location: PRINTQ+232
Function Call: WRITE
  • Prompt: !,$P(ICDZ,"^",4)
  • Line Location: PRINTQ+233
Function Call: WRITE
  • Prompt: !,DDOT
  • Line Location: PRINTQ+234
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+238
Function Call: WRITE
  • Prompt: LTXT
  • Line Location: PRINTQ+239
Function Call: WRITE
  • Prompt: !,$$TITLELN("END OF eRx")
  • Line Location: PRINTQ+269
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: PAUSE+11
Function Call: WRITE
  • Prompt: XX
  • Line Location: PAUSE+12
Function Call: WRITE
  • Prompt: $C(8)
  • Line Location: PAUSE+13
Function Call: WRITE
  • Prompt: #
  • Line Location: PAUSE+14

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