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

Package: Outpatient Pharmacy

Routine: PSODEMSB


Information

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

Source Information

Source file <PSODEMSB.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call