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

Package: Pharmacy Data Management

Routine: PSSLOOK


Information

PSSLOOK ;BIR/WRT - Drug file lookup ;Nov 27, 2018@10:04

Source Information

Source file <PSSLOOK.m>

Entry Points

Name Comments DBIA/ICR reference
START
DONE
PICK
NDDATA
NDF
IT
NDF1
INACT
GETDATA
TWOA
NOD66
SYN
SYN1
SYN2
IFCAP
FORMAT ; BEGIN WRITING
LDT
KILL
OITXT
FULL
FSCRN
IDATE
UNCALC ;
LPDNW ;Display Dose Unit and Numeric Dose fields, added with patch PSS*1*147

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PICK+0
Function Call: WRITE
  • Prompt: ?14,SYNM,?55,INT,!
  • Line Location: SYN1+0
Function Call: WRITE
  • Prompt: ?16,SYNM,?57,INT,!
  • Line Location: SYN2+0
Function Call: WRITE
  • Prompt: @IOF,"DRUG NAME: ",GN," (IEN: ",IFN,")",!
  • Line Location: FORMAT+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: FORMAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+9
Function Call: WRITE
  • Prompt: !,"ORDERABLE ITEM TEXT: ",!
  • Line Location: FORMAT+11
Function Call: WRITE
  • Prompt: !,"SYNONYM(S): "
  • Line Location: FORMAT+13
Function Call: WRITE
  • Prompt: !,"MESSAGE: ",MESS,!
  • Line Location: FORMAT+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FORMAT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+15
Function Call: WRITE
  • Prompt: "DEA, SPECIAL HDLG: ",DEA,?48,"NDC: ",?63,NDC
  • Line Location: FORMAT+16
Function Call: WRITE
  • Prompt: !,"DAW CODE: ",DAW," - ",$$DAWEXT^PSSDAWUT(DAW)
  • Line Location: FORMAT+19
Function Call: WRITE
  • Prompt: !,"CS FEDERAL SCHEDULE: ",$G(CSF),?39
  • Line Location: FORMAT+20
Function Call: WRITE
  • Prompt: ?39,"RESTRICT FOR ONEVA PHARMACY: ",NOONEVA
  • Line Location: FORMAT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+25
Function Call: WRITE
  • Prompt: !," Primary EPA Code: ",PSSPEPAC
  • Line Location: FORMAT+30
Function Call: WRITE
  • Prompt: !," Waste Sort Code: ",PSSWSC
  • Line Location: FORMAT+31
Function Call: WRITE
  • Prompt: !," DOT Shipping Name: "
  • Line Location: FORMAT+39
Function Call: WRITE
  • Prompt: !," "
  • Line Location: FORMAT+40
Function Call: WRITE
  • Prompt: !," DOT Shipping Name: ",PSSDOTSN
  • Line Location: FORMAT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+44
Function Call: WRITE
  • Prompt: !,"INACTIVE DATE: ",ACT
  • Line Location: FORMAT+46
Function Call: WRITE
  • Prompt: ?19,"NO SUCH WARNING LABEL"
  • Line Location: FORMAT+48
Function Call: WRITE
  • Prompt: !,"WARNING LABEL SOURCE is "
  • Line Location: FORMAT+52
Function Call: WRITE
  • Prompt: "set to 'NEW'"
  • Line Location: FORMAT+53
Function Call: WRITE
  • Prompt: !,"NEW WARNING LABEL:"
  • Line Location: FORMAT+56
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+60
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FORMAT+60
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+61
Function Call: WRITE
  • Prompt: "ORDER UNIT: ",?27
  • Line Location: FORMAT+62
Function Call: WRITE
  • Prompt: OU
  • Condition for execution: $D(OU)
  • Line Location: FORMAT+62
Function Call: WRITE
  • Prompt: ?40,"PRICE/ORDER UNIT: ",?67,PPOU
  • Line Location: FORMAT+62
Function Call: WRITE
  • Prompt: !,"DISPENSE UNIT: ",?27,DU
  • Line Location: FORMAT+63
Function Call: WRITE
  • Prompt: ?40,"VA DISPENSE UNIT: ",?67,VADU
  • Condition for execution: $D(VADU)
  • Line Location: FORMAT+63
Function Call: WRITE
  • Prompt: !,"DISPENSE UNITS/ORDER UNIT: ",?21,DUPOU,?40,"PRICE/DISPENSE UNIT: ",?67,PPDU
  • Line Location: FORMAT+64
Function Call: WRITE
  • Prompt: !,"DATE PRICE/DISPENSE UNIT LAST CHANGED: ",?27,PSSDT
  • Line Location: FORMAT+66
Function Call: WRITE
  • Prompt: !,"BY: ",PSSUSR,?27,"VALUE: ",PSSVAL
  • Line Location: FORMAT+67
Function Call: WRITE
  • Prompt: !,"NCPDP DISPENSE UNIT: ",$$GET1^DIQ(50,IFN,82),?40,"NCPDP QUANTITY MULTIPLIER: ",?67,$J($$GET1^DIQ(50,IFN,83),10,5)
  • Line Location: FORMAT+68
Function Call: WRITE
  • Prompt: !,"MAXIMUM DAYS SUPPLY: ",$$GET1^DIQ(50,IFN,66)
  • Line Location: FORMAT+69
Function Call: WRITE
  • Prompt: !,"ePharmacy Billable: ",$$GET1^DIQ(50,IFN,84)
  • Line Location: FORMAT+70
Function Call: WRITE
  • Prompt: !?2,"ePharmacy Billable (TRICARE): ",$$GET1^DIQ(50,IFN,85)
  • Line Location: FORMAT+71
Function Call: WRITE
  • Prompt: ?40,"ePharmacy Billable (CHAMPVA): ",$$GET1^DIQ(50,IFN,86)
  • Line Location: FORMAT+71
Function Call: WRITE
  • Prompt: !,"Sensitive Diagnosis Drug: ",$$GET1^DIQ(50,IFN,87)
  • Line Location: FORMAT+72
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+72
Function Call: WRITE
  • Prompt: ?13,APPL
  • Line Location: FORMAT+79
Function Call: WRITE
  • Prompt: !,"STRENGTH: ",$S($E($P(PSSNODE,U),1)=".":"0",1:"")_$P(PSSNODE,U),?35,"UNIT: ",$G(PSSCALC)
  • Line Location: FORMAT+82
Function Call: WRITE
  • Prompt: !,"POSSIBLE DOSAGES:"
  • Line Location: FORMAT+83
Function Call: WRITE
  • Prompt: !," DISPENSE UNITS PER DOSE: ",$S($E($P(POSDOS,U),1)=".":"0",1:"")_$P(POSDOS,U),?40,"DOSE: ",$S($E($P(POSDOS,U,2),1)=".":"0",1:"")_$P(POSDOS,U,2),?55,"PACKAGE: ",$P(POSDOS,U,3)
  • Line Location: FORMAT+86
Function Call: WRITE
  • Prompt: !," BCMA UNITS PER DOSE: ",$P(POSDOS,U,4)
  • Line Location: FORMAT+87
Function Call: WRITE
  • Prompt: !,"LOCAL POSSIBLE DOSAGES:"
  • Line Location: FORMAT+88
Function Call: WRITE
  • Prompt: !," LOCAL POSSIBLE DOSAGE: "
  • Line Location: FORMAT+91
Function Call: WRITE
  • Prompt: $P(LPDOS,U),?55,"PACKAGE: ",$P(LPDOS,U,2)
  • Line Location: FORMAT+92
Function Call: WRITE
  • Prompt: !,?10,$P(LPDOS,U),!,?55,"PACKAGE: ",$P(LPDOS,U,2)
  • Line Location: FORMAT+93
Function Call: WRITE
  • Prompt: !," BCMA UNITS PER DOSE: ",$P(LPDOS,U,3)
  • Line Location: FORMAT+94
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+95
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FORMAT+95
Function Call: WRITE
  • Prompt: !,"VA CLASS: ",$G(CLASS)
  • Line Location: FORMAT+96
Function Call: WRITE
  • Prompt: !,"LOCAL NON-FORMULARY: ",$G(NF)," ","VISN NON-FORMULARY: ",$G(VNF)
  • Line Location: FORMAT+97
Function Call: WRITE
  • Prompt: !,"National Formulary Indicator: "_$S($G(XX1)=1:"YES",$G(XX1)=0:"NO",1:"Not Matched to NDF")
  • Line Location: FORMAT+101
Function Call: WRITE
  • Prompt: ?26,$P($G(^PSDRUG(LDFPTR,0)),"^"),!
  • Line Location: FORMAT+103
Function Call: WRITE
  • Prompt: !,"Copay Tier: ",$P(PSSTIER,"^",1)
  • Line Location: FORMAT+106
Function Call: WRITE
  • Prompt: !,"Copay Effective Date: "
  • Line Location: FORMAT+107
Function Call: WRITE
  • Prompt: Y
  • Line Location: FORMAT+107
Function Call: WRITE
  • Prompt: !,LIST(XX2,0)
  • Line Location: FORMAT+108
Function Call: WRITE
  • Prompt: !,"Local Drug Text: ",!
  • Line Location: FORMAT+110
Function Call: WRITE
  • Prompt: WPT,!
  • Line Location: LDT+0
Function Call: WRITE
  • Prompt: TEXT,!
  • Line Location: OITXT+0
Function Call: WRITE
  • Prompt: !?5,"NUMERIC DOSE: "_PSSLKL3,?38,"DOSE UNIT: "_PSSLKL4
  • Line Location: LPDNW+6
Function Call: WRITE
  • Prompt: !?5,"NUMERIC DOSE: "_PSSLKL3
  • Line Location: LPDNW+7
Function Call: WRITE
  • Prompt: !?38,"DOSE UNIT: "_PSSLKL4
  • Line Location: LPDNW+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
50.095 GETS^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call