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
Print Page as PDF
Routine: PSNJP54

Package: National Drug File

Routine: PSNJP54


Information

PSNJP54 ;BIR/JCH-INPATIENT REPORT ;20 Nov 01 / 10:15 AM

Source Information

Source file <PSNJP54.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
START ; Begin processing
PROCESS ; Begin processing a single patient
GETUD ; Build VA Products from Unit Dose Orders into PROD array
GETIV ; Build VA Products from IV Orders into PROD array
CHK(PR1,PR2) ; Given two VA PRODUCTS known to interact (exist in ^XTMP)
; find specific interactions within a single patient's orders
; based on overlapping START/STOP dates.
DISP(START) ; Display an interaction between two VA PRODUCTS
DISP2 ;
INACTOUT ;
ORDOUT(DFN,PRODUCT,TYPE,ORDER,START,STOP) ; Print an individual order
GETVITAL(DFN) ;
CHKINACT(START,IIEN,XTMPCNT) ;
GETDATE ; Prompt for "Stop Date" to begin search
DTM
FORMAT ; Prompt for "Report" or "Spreadsheet" format
HD ; Continue prompt, print header
INIT ; Check for DT,DUZ,etc.
RESETDT ;
DTC ;Date format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The primary data for this report does not exist",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?12,"END OF ACTIVE DRUG INTERACTIONS",!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!?10,"** No Missed Drug Interactions Found **"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,PNAME,?25,"DOB: ",DOB,?41,"PID: ",PID
  • Line Location: DISP2+3
Function Call: WRITE
  • Prompt: !,PNAME,"^",DOB,"^",PID,"^"
  • Line Location: DISP2+5
Function Call: WRITE
  • Prompt: !?1,"Interaction: ",INTNAM,?49," Severity: ",SEVER
  • Line Location: DISP2+8
Function Call: WRITE
  • Prompt: !?1,"Interaction Inactivation Date: ",$$FMTE^XLFDT(INACT,2)
  • Line Location: DISP2+9
Function Call: WRITE
  • Prompt: INTNAM_"^"_SEVER_"^"
  • Line Location: DISP2+10
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(INACT,2)
  • Condition for execution: INACT
  • Line Location: DISP2+10
Function Call: WRITE
  • Prompt: "^"
  • Line Location: DISP2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: INACTOUT+2
Function Call: WRITE
  • Prompt: ")"
  • Line Location: ORDOUT+4
Function Call: WRITE
  • Prompt: ORDER,"^",TYPE,"^",PRODNAM,"^",SCHTYP,"^",$$FMTE^XLFDT(START\1,2),"^"
  • Line Location: ORDOUT+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(STOP\1,2)
  • Line Location: ORDOUT+7
Function Call: WRITE
  • Prompt: !?5,"This report searches Inpatient Medications orders by"
  • Line Location: GETDATE+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GETDATE+8
Function Call: WRITE
  • Prompt: !,"No starting date chosen"
  • Line Location: GETDATE+9
Function Call: WRITE
  • Prompt: !!,"Enter the Order Stop Date to begin searching from: "
  • Line Location: DTM+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DTM+1
Function Call: WRITE
  • Prompt: !,I,") ",?5,$P(STRING,"^",I)
  • Line Location: FORMAT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?22,"Inpatient Drug Interaction Report"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !?1,"Order",?8,"VA Product Name"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?33,"Sch Type",?44,"Start",?54,"Stop"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+14
Info |  Source |  Entry Points |  Interaction Calls