Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  (,C,NOW)^%DTC  EN^DDIOL  ^DIR  
Kernel 3 ($$FMADD,$$FMTE)^XLFDT  $$PATCH^XPDUTL  EN^XUTMDEVQ  

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

External References

Name Field # of Occurrence
^%DT GETDATE+8
^%DTC DTC+3
C^%DTC GETDATE+6
NOW^%DTC INIT+4
EN^DDIOL START+2
^DIR FORMAT+4, HD+4
$$FMADD^XLFDT RESETDT+2
$$FMTE^XLFDT DISP2+9, DISP2+10, ORDOUT+5, ORDOUT+6, ORDOUT+7, GETVITAL+2, GETDATE+7, HD+10
$$PATCH^XPDUTL START+2
EN^XUTMDEVQ EN+9

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
Routine Call
  • DIR
  • Line Location:
    • FORMAT+4
    • HD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GETVITAL+1
^PS(52.6 - [#52.6] GETIV+10
^PS(52.7 - [#52.7] GETIV+17
^PS(55 - [#55] START+7, GETUD+2, GETUD+4, GETUD+5, GETUD+6, GETUD+7, GETIV+2, GETIV+4, GETIV+5, GETIV+8
, GETIV+9, GETIV+15, GETIV+16, ORDOUT+1
^PS(56 - [#56] CHKINACT+2
^PSDRUG - [#50] GETUD+8, GETIV+11, GETIV+18
^PSNDF(50.68 - [#50.68] ORDOUT+2
^TMP("PSN PSNJ54" START+6!
^TMP("PSN PSNJ54I" START+6!, INACTOUT+4, INACTOUT+5, INACTOUT+6, INACTOUT+7, INACTOUT+8, INACTOUT+10, CHKINACT+6*
^UTILITY($J INIT+1!
^XTMP("PSNINT" START+3, PROCESS+6, GETUD+9, GETIV+12, GETIV+19, DISP+3, DISP+4, INACTOUT+14, RESETDT+1, RESETDT+2*

Label References

Name Line Occurrences
CHK PROCESS+7
CHKINACT DISP+6
DISP CHK+13, CHK+14
DISP2 DISP+7, INACTOUT+15
DTC GETDATE+10
DTM GETDATE+8
FORMAT EN+5
GETDATE EN+4
GETIV PROCESS+3
GETUD PROCESS+2
GETVITAL CHK+5, INACTOUT+15
HD START+4, START+8, DISP+2, DISP2+4
INACTOUT START+9
INIT EN+3
ORDOUT DISP2+11, DISP2+12
PROCESS START+7
RESETDT INIT+6

Naked Globals

Name Field # of Occurrence
^( INACTOUT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INIT+4
ADD GETIV+1~, GETIV+9*, GETIV+10
ADDRUG GETIV+1~, GETIV+10*, GETIV+11
ADSEQ GETIV+1~, GETIV+7*, GETIV+8*, GETIV+9
BEGDT EN+1~, START+6, GETDATE+10*
BEGDTF START+5~, START+6*, PROCESS+2, PROCESS+3
CNT PROCESS+1~, DISP+2!, DISP2+1*, DISP2+3
>> D GETDATE+6*, GETDATE+7*, GETDATE+8
DATA INACTOUT+3~, INACTOUT+11*, INACTOUT+12, INACTOUT+13
DD DTC+1~*, DTC+3*, DTC+4
DDRUG GETUD+1~, GETUD+6*, GETUD+8
DDSEQ GETUD+1~, GETUD+5*, GETUD+6
DFN START+5~, START+7*, GETUD+2, GETUD+4, GETUD+5, GETUD+6, GETUD+7, GETIV+2, GETIV+4, GETIV+5
, GETIV+8, GETIV+9, GETIV+15, GETIV+16, CHK+5, DISP2+11, DISP2+12, INACTOUT+3~, INACTOUT+4*, INACTOUT+5
, INACTOUT+6, INACTOUT+7, INACTOUT+8, INACTOUT+10, INACTOUT+15, ORDOUT~, ORDOUT+1, GETVITAL~, GETVITAL+1, CHKINACT+6
DIR FORMAT+1~, HD+4!
DIR("A" FORMAT+3*, HD+3*
DIR("B" FORMAT+2*
DIR(0 FORMAT+2*, HD+2*
DIRUT EN+5, START+5~, START+7, PROCESS+4, PROCESS+5, PROCESS+6, CHK+6, CHK+7, CHK+8, CHK+9
, DISP+2, DISP+3, DISP2+2, INACTOUT+3~, INACTOUT+4, INACTOUT+5, INACTOUT+6, INACTOUT+7, INACTOUT+8, INACTOUT+10
, FORMAT+4, HD+5
DOB EN+1~, DISP2+3, DISP2+5, GETVITAL+1*, GETVITAL+2*
DONE PROCESS+1~
DPT0 EN+1~, GETVITAL+1*, GETVITAL+2
DT START+4, START+6, CHK+4~, GETDATE+6, GETDATE+10, INIT+2, INIT+5, RESETDT+2
DTIME GETDATE+8, INIT+2
>> DTOUT INIT+5*
DUZ EN+3, INIT+2
ENDT EN+1~, START+6, GETDATE+10*, DTC+4*
ENDTF START+5~, START+6*, GETUD+2, GETIV+2
EXIT EN+1~, EN+4*, GETDATE+8*, GETDATE+9
>> G EN+8*
>> I FORMAT+13*
IIEN CHKINACT~, CHKINACT+2
INACT CHK+10~*, DISP+6, DISP2+9, DISP2+10, INACTOUT+11*, CHKINACT+7*
INACTDT CHKINACT+1~, CHKINACT+2*, CHKINACT+3, CHKINACT+4, CHKINACT+5
INACTFLG EN+2~, START+9*, HD+7
INTCNT DISP+1~, DISP+3*, DISP+4, DISP+6, INACTOUT+3~, INACTOUT+9*, INACTOUT+10*, INACTOUT+11, INACTOUT+14
INTDATA DISP+1~, DISP+4*, DISP+5, DISP2+6, INACTOUT+14*
INTER PROCESS+1~
INTIEN DISP+1~, DISP+5*, DISP+6
INTNAM DISP+1~, DISP2+6*, DISP2+8, DISP2+10
IOF HD+6
IOSL DISP+2, DISP2+4
IOST HD+2, HD+6
MM DTC+1~*, DTC+2*
>> ND0 ORDOUT+1*
NEXT GETDATE+1~*
ORD CHK+4~
ORD1 CHK+7*, CHK+11, DISP2+11, INACTOUT+3~, INACTOUT+7*, INACTOUT+8, INACTOUT+10, CHKINACT+6
ORD2 CHK+9*, CHK+12, DISP2+12, INACTOUT+3~, INACTOUT+8*, INACTOUT+10, CHKINACT+6
ORDER ORDOUT~, ORDOUT+1, ORDOUT+4, ORDOUT+6
ORTYP EN+1~, PROCESS+2*, PROCESS+3*, GETUD+10, GETIV+13, GETIV+20
OUTFORM EN+1~, START+8, DISP2+2, DISP2+5, DISP2+8, DISP2+10, DISP2+13, INACTOUT+2, ORDOUT+3, FORMAT+5*
, FORMAT+6, HD+1
PID EN+1~, DISP2+3, DISP2+5, GETVITAL+1*, GETVITAL+2*, GETVITAL+3*
PNAME EN+1~, START+5~, DISP2+3, DISP2+5, GETVITAL+1*
PR1 CHK~, CHK+6, CHK+7, CHK+11, DISP+3, DISP+4, DISP2+11, INACTOUT+3~, INACTOUT+5*, INACTOUT+6
, INACTOUT+7, INACTOUT+8, INACTOUT+10, INACTOUT+14, CHKINACT+6
PR2 CHK~, CHK+8, CHK+9, CHK+12, DISP+3, DISP+4, DISP2+12, INACTOUT+3~, INACTOUT+6*, INACTOUT+7
, INACTOUT+8, INACTOUT+10, INACTOUT+14, CHKINACT+6
PROD PROCESS+1~, PROCESS+4*, PROCESS+5, PROCESS+6, PROCESS+7
PROD( PROCESS+4, PROCESS+5, GETUD+10*, GETIV+13*, GETIV+20*, CHK+6, CHK+7, CHK+8, CHK+9, CHK+11
, CHK+12
PRODNAM EN+2~, ORDOUT+2*, ORDOUT+4, ORDOUT+6
PRODUCT ORDOUT~, ORDOUT+2
>> PSGDT INIT+4*
PSGORD EN+2~, GETUD+1~, GETUD+3*, GETUD+4*, GETUD+5, GETUD+6, GETUD+7, GETUD+10, GETIV+3*, GETIV+4*
, GETIV+5, GETIV+8, GETIV+9, GETIV+13, GETIV+15, GETIV+16, GETIV+20
>> PSJDT PROCESS+2*, PROCESS+3*, GETUD+2*, GETUD+4, GETIV+2*, GETIV+4
>> PSJPG START+4*, HD+2, HD+9, HD+14*
RUNDT EN+1~, START+4*, START+6*, HD+10, INIT+5*
SCHTYP EN+2~, ORDOUT+1*, ORDOUT+5, ORDOUT+6
SEVER DISP+1~, DISP2+6*, DISP2+7*, DISP2+8, DISP2+10
SOL GETIV+1~, GETIV+16*, GETIV+17
SOLDRUG EN+2~, GETIV+17*, GETIV+18
SOLSEQ GETIV+1~, GETIV+14*, GETIV+15*, GETIV+16
START DISP~, DISP+6, ORDOUT~, ORDOUT+5, ORDOUT+6, CHKINACT~, CHKINACT+4
START1 CHK+4~, CHK+11*, CHK+13, CHK+14, DISP2+11, INACTOUT+12*, CHKINACT+5
START2 CHK+4~, CHK+12*, CHK+13, CHK+14, DISP2+12, INACTOUT+12*, CHKINACT+5
STDT EN+1~, GETUD+1~, GETUD+7*, GETUD+10, GETIV+5*, GETIV+6*, GETIV+13, GETIV+20
STOP ORDOUT~, ORDOUT+5, ORDOUT+7
STOP1 CHK+4~, CHK+11*, CHK+14, DISP2+11, INACTOUT+3~, INACTOUT+13*, CHKINACT+5
STOP2 CHK+4~, CHK+12*, CHK+13, DISP2+12, INACTOUT+3~, INACTOUT+13*, CHKINACT+5
STPDT EN+2~, GETUD+7*, GETUD+10, GETIV+6*, GETIV+13, GETIV+20
STRING CHKINACT+5*, CHKINACT+6, FORMAT+1~, FORMAT+6*, FORMAT+7*, FORMAT+8*, FORMAT+9*, FORMAT+10*, FORMAT+11*, FORMAT+13
TCNT START+5~*, START+10, DISP2+1*
TYP CHK+4~
TYP1 EN+2~, CHK+6*, CHK+7, CHK+11, DISP2+11, INACTOUT+3~, INACTOUT+11*, CHKINACT+5
TYP2 EN+2~, CHK+8*, CHK+9, CHK+12, DISP2+12, INACTOUT+3~, INACTOUT+11*, CHKINACT+5
TYPE ORDOUT~, ORDOUT+1, ORDOUT+4, ORDOUT+6
VAPROD EN+2~, PROCESS+5*, PROCESS+6, PROCESS+7, GETUD+1~, GETUD+8*, GETUD+9, GETUD+10, GETIV+1~, GETIV+11*
, GETIV+12, GETIV+13, GETIV+18*, GETIV+19, GETIV+20
>> X GETDATE+6, GETDATE+8*, RESETDT+1*, RESETDT+2*, DTC+3
>> X1 GETDATE+6*, DTC+2*
>> X2 GETDATE+6*, DTC+2*
XTMPCNT CHKINACT~, CHKINACT+5, CHKINACT+6
>> Y GETDATE+8*, GETDATE+10, FORMAT+5, HD+13*, DTC+1, DTC+2, DTC+4
>> ZTDESC EN+6*, EN+9
>> ZTRTN EN+7*, EN+9
>> ZTSAVE EN+9
>> ZTSAVE( EN+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All