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

Package: Outpatient Pharmacy

Routine: PSONVAR1


Information

PSONVAR1 ;BHM/MFR - Non-VA Med Usage Report ;Mar 13, 2020@16:01:15

Source Information

Source file <PSONVAR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN
DATE
DFN
ORD
NEXT ; - If not Sorting (already printed), SKIP, otherwise, print the report
NDTP
CLOSE
END
PRINT(DFN,ORD) ; - Print a Non-VA Med Order
PRTDDR ;Print Dispense Drug item(s) including complex orders with conjunctions from SIG multiple
; This multiple replaces using the parent 0 node fields DD, DOSE, MED RTE, & SCHED for printing, However,
; if OLD recorsd found, i.e. no new 55.516 multiple, then use OLD print method for backwards compatibility
TEXT(TEXT,STR,L) ; Formats STR into TEXT array, lines lenght = L
HDR ; - Prints the Header
SRT(ST) ; - Convert the "1,2,4" (example) to "PATIENT,ORDERABLE ITEM,STATUS"
DT(DT) ; - Convert FM Date to MM/DD/YYYY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: SP2
  • Line Location: NEXT+12
Function Call: WRITE
  • Prompt: SP1
  • Line Location: NEXT+13
Function Call: WRITE
  • Prompt: !!?18,"********** NO DATA TO PRINT **********"
  • Line Location: NDTP+0
Function Call: WRITE
  • Prompt: SP1
  • Line Location: NDTP+2
Function Call: WRITE
  • Prompt: !,"Total: ",PCNT," patient",$S(PCNT>1:"s",1:"")
  • Line Location: NDTP+3
Function Call: WRITE
  • Prompt: " and ",OCNT," order",$S(OCNT>1:"s",1:""),"."
  • Line Location: NDTP+4
Function Call: WRITE
  • Prompt: !,PNAM," (ID:",$S(PSSN:$P(PSSN,"-",3),1:"0000"),")"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?46,"Patient Phone #: ",$E($P(VAPA(8),"^"),1,16)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?5,"Non-VA Med: ",OINAM
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?49,"CPRS Order #: ",$P(XX,"^",8)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !?2,"Documented By: ",$E($$GET1^DIQ(200,+$P(XX,"^",11),.01),1,29)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?46,"Documented Date: ",$$DT($P(XX,"^",10))
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !?9,"Clinic: "
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: $E($P(XX,"^",12)_" - "_CLNAM,1,33)
  • Condition for execution: $P(XX,"^",12)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?51,"Start Date: ",$$DT($P(XX,"^",9)),!
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?5,"Indication: ",$P($G(^PS(55,DFN,"NVA",ORD,2)),"^"),!
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: ?1,"Order Check #",I,": "
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: ?17,TXT(K),!
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?23,TXT(K),!
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: ?6,"Override Provider: "
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: $$GET1^DIQ(200,+PRV,.01)
  • Condition for execution: PRV
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !,"Statement/Explanation/Comments: "
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: ?32,TXT(K),!
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !?2,"Dispense Drug: ",$E(DGNAM,1,37)
  • Line Location: PRTDDR+7
Function Call: WRITE
  • Prompt: ?55,"Dosage: ",$E($P(XX,"^",3),1,16)
  • Line Location: PRTDDR+8
Function Call: WRITE
  • Prompt: !?7,"Schedule: "
  • Line Location: PRTDDR+9
Function Call: WRITE
  • Prompt: SCH
  • Line Location: PRTDDR+10
Function Call: WRITE
  • Prompt: ?52,"Med Route: ",$E($P(XX,"^",4),1,35)
  • Line Location: PRTDDR+11
Function Call: WRITE
  • Prompt: !?16,$E($P(XX,"^",5),$L(SCH)+1,99)
  • Line Location: PRTDDR+13
Function Call: WRITE
  • Prompt: !?2,"Dispense Drug: ",$E(DGNAM,1,37),?55,"Dosage: ",$E($$GET1^DIQ(55.516,DDR15,"DOSAGE"),1,16)
  • Line Location: PRTDDR+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDDR+19
Function Call: WRITE
  • Prompt: !?7,"Schedule: ",SCH,?52,"Med Route: ",$E($$GET1^DIQ(55.516,DDR15,"MEDICATION ROUTE"),1,35)
  • Line Location: PRTDDR+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDDR+21
Function Call: WRITE
  • Prompt: !?16,$E(SCHX,$L(SCH)+1,99)
  • Line Location: PRTDDR+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDDR+23
Function Call: WRITE
  • Prompt: !?7,"Duration: ",$E($$GET1^DIQ(55.516,DDR15,"DURATION"),1,37),?50,"Conjunction: ",$E($$GET1^DIQ(55.516,DDR15,"CONJUNCTION"),1,16)
  • Line Location: PRTDDR+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDDR+26
Function Call: WRITE
  • Prompt: @IOF,"Non-VA Meds Usage Report",?70,"Page: ",$J(PAG,3)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Sorted by",$$SRT(PSOSRT)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Date Range: "_$$DT(PSOSD+1\1)_" - "_$$DT(PSOED\1)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?48,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT())
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
55.05 GET1^DIQ
55.516 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call