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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSODEMSB

Package: Outpatient Pharmacy

Routine: PSODEMSB


Information

PSODEMSB ;EPIP/RTW - PSODEM subroutines ; 7/29/17 3:24pm

Source Information

Source file <PSODEMSB.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIE  LOCK^DILF  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  $$NS^XUAF4  
Scheduling 2 $$GETALL^SCAPMCA  $$OUTPTTM^SDUTL3  
Order Entry Results Reporting 1 VST^ORWCV  
Registration 1 SDA^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO CLINICAL ALERT ENTER/EDIT  PSODEM  

Entry Points

Name Comments DBIA/ICR reference
DEMOG(PSODFN) ;
; Extend patient demographics with PC Team, Current Facility
; Remarks, and Clinical Alerts, pause the screen until <Enter>
; Input:
; DFN ; Required ; IEN of Patient file (#2) entry
CA(PSODFN) ; Print PHARMACY PATIENT CLINICAL ALERTS multiple field (#2)
; Input:
; DFN ; Required ; IEN of Patient file (#2) entry
HDR(HDR) ;
CURRFAC(PSODFN) ; Return: The Assigned/Recent Facility INSTITUTION for the Patient's DFN
; Input:
; DFN ; Required ; IEN of Patient file (#2) entry
PCTEAM(PSODFN) ; Display current PC TEAM, PC Provider, and phone.
; Input:
; DFN ; Required ; IEN of Patient file (#2) entry
REMARKS(PSODFN) ; Display PATIENT file (#2) REMARKS field (#.091)
; Input:
; DFN ; Required ; IEN of Patient file (#2) entry
ENTER ; PSO CLINICAL ENTER/EDIT OPTION ENTRY POINT.
PROMPT ;
START ;
EXIT ;
EDITCA(PSODFN) ; Edit the CLINICAL ALERTS multiple (#109) of file (#55)
; Input:
; DFN ; Patient file (#2) entry internal entry number
PATIENT() ; Extrinsic, prompt for 'Select PHARMACY PATIENT: '
; Output:
; IEN^Name ; Of the selected Pharmacy Patient file #55 entry
; Return null if no patient selected
APPT() ; get appointments up to +/-2 yrs from now
; return null or name of institution
; ICR# 10061 - VADPT supported
; ICR# 10040 - FM read of file 44, field 3 supported
; ICR# 2171 - $$NS^XUAF4

External References

Name Field # of Occurrence
^DIC PATIENT+11
^DIE EDITCA+12
LOCK^DILF EDITCA+9
$$GET1^DIQ CA+16, CA+17, CURRFAC+8, CURRFAC+16, CURRFAC+36, CURRFAC+43, CURRFAC+59, CURRFAC+60, PCTEAM+25, PCTEAM+26
, PCTEAM+27, PCTEAM+32, REMARKS+4, EDITCA+11, APPT+25
^DIR DEMOG+10, DEMOG+21, HDR+5
VST^ORWCV CURRFAC+22
$$GETALL^SCAPMCA PCTEAM+10
$$OUTPTTM^SDUTL3 CURRFAC+13
SDA^VADPT APPT+10
$$NOW^XLFDT APPT+7
$$NS^XUAF4 APPT+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMOG+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEMOG+14
Function Call: WRITE
  • Prompt: !?1,"Assigned/Recent Facility: ",$$CURRFAC(PSODFN)
  • Line Location: DEMOG+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMOG+20
Function Call: WRITE
  • Prompt: !!,"Clinical Alerts:"
  • Line Location: CA+14
Function Call: WRITE
  • Prompt: !!,?2,$$GET1^DIQ(55.0109,PSODATER_","_PSODFN,.01)
  • Line Location: CA+16
Function Call: WRITE
  • Prompt: " ",$$GET1^DIQ(55.0109,PSODATER_","_PSODFN,1)
  • Line Location: CA+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: HDR,?70,"Page: ",PAGE,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PCTEAM+29
Function Call: WRITE
  • Prompt: !," Primary Care Team: ",TEAM
  • Line Location: PCTEAM+31
Function Call: WRITE
  • Prompt: ?52," Phone: ",$$GET1^DIQ(404.51,TEAMI,.02)
  • Line Location: PCTEAM+32
Function Call: WRITE
  • Prompt: !," PC Provider: ",PCPROV
  • Line Location: PCTEAM+34
Function Call: WRITE
  • Prompt: ?52,"Position: ",$E(PCPOS,1,18)
  • Line Location: PCTEAM+35
Function Call: WRITE
  • Prompt: !?13,"Pager: ",PAGER
  • Line Location: PCTEAM+37
Function Call: WRITE
  • Prompt: ?52," Phone: ",PHONE
  • Line Location: PCTEAM+38
Function Call: WRITE
  • Prompt: !?11,"Remarks: ",$$GET1^DIQ(2,PSODFN_",",.091)
  • Line Location: REMARKS+4
Function Call: WRITE
  • Prompt: @IOF,!?1,"*** CLINICAL ALERT ENTER/EDIT ***"
  • Line Location: PROMPT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $C(7),!?4
  • Line Location: EDITCA+10
Function Call: WRITE
  • Prompt: "Patient ",$$GET1^DIQ(2,DA,.01)," is being edited by another user."
  • Line Location: EDITCA+11
Routine Call
  • DIC
  • Line Location:
    • PATIENT+11
Routine Call
  • DIE
  • Line Location:
    • EDITCA+12
Routine Call
  • DIR
  • Line Location:
    • DEMOG+10
    • DEMOG+21
    • HDR+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SCTM(404.51 - [#404.51] GET1^DIQ
^SC - [#44] GET1^DIQ
^PS(55 - [#55] Classic Fileman Calls
55.0109 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] CA+7, CA+13, CA+18, EDITCA+9, EDITCA+13
^TMP("SDPLIST" PCTEAM+12, PCTEAM+16, PCTEAM+21
^UTILITY("VASD" APPT+6

Label References

Name Line Occurrences
$$CURRFAC DEMOG+16
$$PATIENT START+2
CA DEMOG+17
EDITCA START+3
EXIT START+2
HDR DEMOG+14, CA+18, PCTEAM+29
PCTEAM DEMOG+13
REMARKS DEMOG+15
START START+4

Naked Globals

Name Field # of Occurrence
^( APPT+21, APPT+24*
^("E" APPT+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDITCA+4~, PATIENT+5~
%H PATIENT+5~
%I PATIENT+5~
%X EDITCA+4~, PATIENT+5~
%Y EDITCA+4~, PATIENT+5~
APPT APPT+22~, APPT+23*, APPT+24, APPT+26, APPT+28, APPT+29, APPT+31, APPT+33, APPT+34
C PATIENT+5~
CL APPT+22~, APPT+23*
D EDITCA+4~, PATIENT+5~
D0 EDITCA+4~, PATIENT+5~
D1 EDITCA+4~
DA EDITCA+4~, EDITCA+6*, EDITCA+9, EDITCA+11, EDITCA+13, PATIENT+5~
DATA CURRFAC+4~, CURRFAC+33~, CURRFAC+34*, CURRFAC+35, CURRFAC+37, CURRFAC+55~, CURRFAC+57*, CURRFAC+58, PCTEAM+5~, PCTEAM+16*
, PCTEAM+17, PCTEAM+18, PCTEAM+21*, PCTEAM+22, PCTEAM+23, PCTEAM+24
DATE APPT+22~, APPT+24*
DDH PATIENT+5~
DG EDITCA+4~, PATIENT+5~
DI EDITCA+4~
DIC EDITCA+4~, PATIENT+5~, PATIENT+9*
DIC(0 PATIENT+10*
DIDEL EDITCA+4~
DIE EDITCA+4~, EDITCA+7*
DIERR EDITCA+4~
DILN PATIENT+5~
DINUM PATIENT+5~
DIPGM PATIENT+5~
DIR DEMOG+7~, HDR+1~
DIR("A" DEMOG+10*, DEMOG+21*, HDR+5*
DIR("T" DEMOG+10*, DEMOG+21*, HDR+5*
DIR(0 DEMOG+10*, DEMOG+21*, HDR+5*
DIRUT DEMOG+7~, DEMOG+18, CA+13, HDR+5
DIV APPT+5~
DIV("F" APPT+27, APPT+28*, APPT+29*, APPT+32*, APPT+33*, APPT+34*, APPT+40
DIV("P" APPT+32, APPT+33, APPT+34, APPT+38, APPT+41
DIW EDITCA+4~
DIY PATIENT+5~
DLAYGO PATIENT+6~
DQ EDITCA+4~
DR EDITCA+4~, EDITCA+7*
DT CURRFAC+13, CURRFAC+20, CURRFAC+21, PCTEAM+10, APPT+8, APPT+9
DTBEG CURRFAC+4~, CURRFAC+20*, CURRFAC+22
DTEND CURRFAC+4~, CURRFAC+21*, CURRFAC+22
DTIME DEMOG+10, DEMOG+21, HDR+5
DTOUT EDITCA+4~, PATIENT+6~
DUOUT PATIENT+6~
F4 APPT+5~, APPT+21*, APPT+27*, APPT+37, APPT+39*, APPT+40*, APPT+41*, APPT+43*, APPT+45
FLAGQ CURRFAC+4~, CURRFAC+29*, CURRFAC+32, CURRFAC+44*
GL APPT+5~, APPT+6*, APPT+21, APPT+24, APPT+44
HDR HDR~, HDR+8
I PATIENT+6~, APPT+5~, APPT+21*, APPT+37*, APPT+38*
IEN4 CURRFAC+4~, CURRFAC+36*, CURRFAC+40, CURRFAC+41, CURRFAC+42, CURRFAC+43, CURRFAC+55~, CURRFAC+59*, CURRFAC+60
IEN4( CURRFAC+40*, CURRFAC+41*, CURRFAC+42
INST APPT+22~, APPT+25*, APPT+27, APPT+28, APPT+29, APPT+32, APPT+33, APPT+34
IO DEMOG+8, DEMOG+19, HDR+5
IO(0 DEMOG+8, DEMOG+19, HDR+5
IOF HDR+8, PROMPT+1
IOSL CA+18
IOST DEMOG+8, DEMOG+19, HDR+5
NOW APPT+5~, APPT+7*, APPT+26, APPT+31
>> OPT HDR+2*, HDR+7*
ORVISIT CURRFAC+4~, CURRFAC+22
ORVISIT( CURRFAC+32, CURRFAC+34, CURRFAC+57
ORVISIT(":" CURRFAC+56
>> PAGE CA+18, HDR+7*, HDR+8*
PAGER PCTEAM+5~, PCTEAM+25*, PCTEAM+26*, PCTEAM+37
PCPOS PCTEAM+5~, PCTEAM+24*, PCTEAM+35
PCPROV PCTEAM+5~, PCTEAM+23*, PCTEAM+34
PCPROVI PCTEAM+5~, PCTEAM+22*, PCTEAM+25, PCTEAM+26, PCTEAM+27
PCTEAM CURRFAC+4~, CURRFAC+13*, CURRFAC+15, CURRFAC+16
PCTM PCTEAM+5~, PCTEAM+8*, PCTEAM+9, PCTEAM+10, PCTEAM+40
PG DEMOG+7~, DEMOG+12*, HDR+5
PHONE PCTEAM+5~, PCTEAM+27*, PCTEAM+38
PREVSCDT CURRFAC+4~, CURRFAC+30*, CURRFAC+39, CURRFAC+46*
PSOCLINA DEMOG+7~, CA+9*
PSODATER CA+4~, CA+12*, CA+13*, CA+16, CA+17, CA+18
PSODFN DEMOG~, DEMOG+13, DEMOG+15, DEMOG+16, DEMOG+17, CA~, CA+6, CA+7, CA+13, CA+16
, CA+17, CA+18, CURRFAC~, CURRFAC+8, CURRFAC+13, CURRFAC+22, PCTEAM~, PCTEAM+10, PCTEAM+12, PCTEAM+16
, PCTEAM+21, REMARKS~, REMARKS+4, ENTER+1~, START+2*, START+3, EDITCA~, EDITCA+6
PSOFLAG1 CA+4~, CA+9*, CA+14*
PSOTEAM DEMOG+7~, DEMOG+14, PCTEAM+4*, PCTEAM+15*, PCTEAM+29
RETURN CURRFAC+4~, CURRFAC+6*, CURRFAC+8, CURRFAC+15, CURRFAC+16*, CURRFAC+43*, CURRFAC+54, CURRFAC+60*, CURRFAC+62, PATIENT+6~
, PATIENT+8*, PATIENT+11*, PATIENT+13
SC CURRFAC+33~, CURRFAC+35*, CURRFAC+36, CURRFAC+55~, CURRFAC+58*, CURRFAC+59, APPT+25
SCDT CURRFAC+33~, CURRFAC+37*, CURRFAC+38*, CURRFAC+39, CURRFAC+46
SCDT2 PCTEAM+6~
SCP PCTEAM+6~
SDI PCTEAM+6~, PCTEAM+10*, PCTEAM+11*, PCTEAM+12*, PCTEAM+16, PCTEAM+21
SUB CURRFAC+4~, CURRFAC+31*, CURRFAC+32*, CURRFAC+34, CURRFAC+55~, CURRFAC+56*, CURRFAC+57
TEAM PCTEAM+6~, PCTEAM+18*, PCTEAM+31
TEAMI PCTEAM+6~, PCTEAM+17*, PCTEAM+32
U CA+7, CURRFAC+35, CURRFAC+37, CURRFAC+58, PCTEAM+17, PCTEAM+18, PCTEAM+22, PCTEAM+23, PCTEAM+24, APPT+23
, APPT+28, APPT+29, APPT+33, APPT+34, APPT+40, APPT+41, APPT+43
VAERR APPT+5~
>> VASD("F" APPT+8*
>> VASD("T" APPT+9*
VAST APPT+5~
X DEMOG+7~, EDITCA+4~, PATIENT+6~, APPT+5~, APPT+37*, APPT+38*, APPT+39, APPT+40*, APPT+41*
XE APPT+5~, APPT+21*
XI APPT+5~, APPT+21*, APPT+23
>> XQORNOD(0 DEMOG+6
>> XQY0 DEMOG+8, DEMOG+19, HDR+2, HDR+6, HDR+7
Y DEMOG+7~, PATIENT+6~, PATIENT+11, APPT+5~, APPT+27*, APPT+28, APPT+32*, APPT+37*, APPT+38*, APPT+39
Y(0 PATIENT+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All