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

Package: Inpatient Medications

Routine: PSJDIN


Information

PSJDIN ;BIR/MV - National Formulary Indicator Utility ;4 MAR 2000/ 4:27 PM

Source Information

Source file <PSJDIN.m>

Entry Points

Name Comments DBIA/ICR reference
DINIV(FIL,DRGTMP)
DIN(PSJOI,PSJDRG)
TXD(N1) ;
HLD ;
NFIV(FIL,PSJIVIEN,PSJNF)
DINFLIV(DRG)
DINFLUD(PSJOI,PSJDDA) ;
DINHIDE(PSJDFN,PSJORD) ;
IV ;
UD ;
NEWUD ;*New backdoor order doesn't have an order# yet.
DINOI(PSJOI,COL)
DINDD(PSJDD,COL)
OINF(PSJOI)
DDNF(PSJDD)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Dispense Drug Text:"
  • Line Location: DIN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+11
Function Call: WRITE
  • Prompt: !!,"Orderable Item Text:"
  • Line Location: DIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: TXD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HLD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HLD+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IV+7
Function Call: WRITE
  • Prompt: !,"Drug restriction/guideline info:"
  • Line Location: IV+8
Function Call: WRITE
  • Prompt: !!,"IV "_$S(FIL="AD":"Additive",1:"Solution")_": "_NAME
  • Line Location: IV+18
Function Call: WRITE
  • Prompt: $G(PSJNF("NF"))_$S(FIL="AD":" Additive Strength: "_$G(STRUN),1:""),!
  • Line Location: IV+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UD+4
Function Call: WRITE
  • Prompt: !,"Drug restriction/guideline info:"
  • Line Location: UD+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWUD+4
Function Call: WRITE
  • Prompt: !,"Drug restriction/guideline info:"
  • Line Location: NEWUD+5
Function Call: WRITE
  • Prompt: !!,?COL,"Orderable Item: "_$$OINAME^PSJLMUTL(PSJOI)_$$OINF(PSJOI),!
  • Line Location: DINOI+6
Function Call: WRITE
  • Prompt: !,?10,"No information available",!
  • Line Location: DINOI+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DINOI+8
Function Call: WRITE
  • Prompt: !,?COL,"Dispense drug: "_$$DDNAME^PSJLMUTL(+PSJDD)_$$DDNF(PSJDD),!
  • Line Location: DINDD+6
Function Call: WRITE
  • Prompt: !?10,"No information available",!
  • Line Location: DINDD+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DINDD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.6 - [#52.6] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call