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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSODEM

Package: Outpatient Pharmacy

Routine: PSODEM


Information

PSODEM ;BHAM ISC/SAB - PATIENT DEMOGRAPHICS ;30-Oct-2013 23:38;PLS

Source Information

Source file <PSODEM.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Adverse Reaction Tracking 1 ^GMRADPT  
IHS Changes To Pharmacy 1 ($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC  
Registration 1 (6,ELIG,KVA,PID)^VADPT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Outpatient Pharmacy 13 PSODSPL  PSOORUT2  PSOP  PSOPAT  PSOPMP1  PSOPTPST  PSOREF1  PSORX1  
PSORXEDT  PSORXVW  PSOSD1  PSOSD2  PSOTPRX1  
IHS Changes To Pharmacy 2 APSPLIST  APSQFAS  
Medicine 1 MCPSOP  

Entry Points

Name Comments DBIA/ICR reference
Q
RE ; IHS/CIA/PLS - 12/11/03 - Changed to call PCC Vitals
GMRA
MA
GET

External References

Name Field # of Occurrence
$$VITALF^APSPFUNC RE+4, RE+5
$$VITCHT^APSPFUNC RE+5
$$VITCWT^APSPFUNC RE+4
^DIR MA+4, GMRA+3, GMRA+5
^GMRADPT GMRA
6^VADPT GET
ELIG^VADPT RE+9
KVA^VADPT Q
PID^VADPT GET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1),?40,"ID#: "_VA("PID")
  • Line Location: GET+0
Function Call: WRITE
  • Prompt: !?5,"(TEMP ADDRESS from "_$P(VAPA(9),"^",2)_" till "_$S($P(VAPA(10),"^",2)]"":$P(VAPA(10),"^",2),1:"(no end date)")_")"
  • Line Location: GET+1
Function Call: WRITE
  • Prompt: !,VAPA(1),?40,"DOB: ",$S(+VADM(3):$P(VADM(3),"^",2),1:"UNKNOWN")
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,VAPA(4),?40,"PHONE: "_VAPA(8),!,$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),?40,"ELIG: "_$P(VAEL(1),"^",2)
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: !?40,"SC%: "_$P(VAEL(3),"^",2)
  • Condition for execution: +VAEL(3)
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: !,"CANNOT USE SAFETY CAPS."
  • Condition for execution: $P(^(0),"^",2)
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: ?40,"DIALYSIS PATIENT."
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: !!?5,"Pharmacy Narrative: "
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L($P(X," ",I))+$L(" ")>IOM
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: $P(X," ",I)," "
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !!,"WEIGHT(Kg): "
  • Line Location: RE+7
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: RE+7
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: RE+7
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: RE+7
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2)
  • Line Location: RE+9
Function Call: WRITE
  • Prompt: ?$X+5,"SC%: "_$P(VAEL(3),"^",2)
  • Condition for execution: +VAEL(3)
  • Line Location: RE+9
Function Call: WRITE
  • Prompt: !,"DISABILITIES: "
  • Line Location: MA+0
Function Call: WRITE
  • Prompt: PSDIS,"-",PSCNT,"% (",$S($P(I1,"^",3):"SC",1:"NSC"),"), "
  • Line Location: MA+3
Function Call: WRITE
  • Prompt: @IOF,?13
  • Line Location: MA+4
Function Call: WRITE
  • Prompt: !?11
  • Condition for execution: $X+$L(DR)+$L(", ")>IOM
  • Line Location: GMRA+2
Function Call: WRITE
  • Prompt: DR_", "
  • Line Location: GMRA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRA+3
Function Call: WRITE
  • Prompt: @IOF,?18
  • Line Location: GMRA+3
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L(DR)+$L(", ")>IOM
  • Line Location: GMRA+4
Function Call: WRITE
  • Prompt: DR_", "
  • Line Location: GMRA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRA+5
Function Call: WRITE
  • Prompt: @IOF,?18
  • Line Location: GMRA+5
Function Call: WRITE
  • Prompt: !!,AD
  • Line Location: GMRA+6
Function Call: WRITE
  • Prompt: "_"
  • Line Location: GMRA+6
Function Call: WRITE
  • Prompt: !!,"ALLERGIES: NKA",!!,"ADVERSE REACTIONS:"
  • Line Location: GMRA+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRA+8
Routine Call
  • DIR
  • Line Location:
    • MA+4
    • GMRA+3
    • GMRA+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] MA+2
^DPT - [#2] RE+8, MA+1
^PS(55 - [#55] GET+4, GET+5
^TMP($J GMRA!, GMRA+1*, GMRA+2, GMRA+4, GMRA+8!

Label References

Name Line Occurrences
GMRA MA+5
MA RE+8

Naked Globals

Name Field # of Occurrence
^(0 GET+4, MA+1, MA+2
^(1 GET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD GMRA+6*, GMRA+8!
ADL GMRA+6*, GMRA+8!
AL Q!
D GMRA+2*, GMRA+4*, GMRA+8!
>> DA GET
>> DFN GET*, GET+4, GET+5, RE+4, RE+5, RE+8, MA+1
DIR MA+4!, GMRA+3!, GMRA+5!
DIR("A" MA+4*, GMRA+3*, GMRA+5*
DIR(0 MA+4*, GMRA+3*, GMRA+5*
DR GMRA+1*, GMRA+2*, GMRA+4*, GMRA+8!
DTOUT MA+4!, GMRA+3!, GMRA+5!
GMRA GMRA*, GMRA+8!
GMRAL GMRA, GMRA+6, GMRA+7, GMRA+8!
GMRAL( GMRA+1
HT RE+1*, RE+5*, RE+7!
I GET+5*, MA+1*, Q!, GMRA+2*, GMRA+4*, GMRA+8!
I1 MA+1*, MA+2, MA+3, Q!
IO GET
IOF GET, MA+4, GMRA+3, GMRA+5
IOM GET+5, MA+3, GMRA+2, GMRA+4, GMRA+6
IOSL MA+4, GMRA+3, GMRA+5
IOST MA+4, GMRA+3, GMRA+5
>> POERR RE+6
PSCNT MA+2*, MA+3, Q!
PSDIS MA+2*, MA+3, Q!
PSLC RE+8*, RE+9*, MA*, Q!
>> PSOFROM GMRA+6
>> PSOPTPST MA+5
>> PSTYPE MA+4, Q, GMRA+3, GMRA+5
SC MA!, Q!
TY GMRA+2*, GMRA+4*, GMRA+8!
U RE+4, RE+5
>> VA("PID" GET
>> VADM(1 GET
>> VADM(3 GET+2
>> VAEL(1 GET+3, RE+9
>> VAEL(3 GET+3, RE+9
>> VAPA(1 GET+2
>> VAPA(10 GET+1
>> VAPA(11 GET+3
>> VAPA(2 GET+2
>> VAPA(3 GET+2
>> VAPA(4 GET+3
>> VAPA(5 GET+3
>> VAPA(6 GET+3
>> VAPA(8 GET+3
>> VAPA(9 GET+1
VAROOT Q!
VM RE+7!
WT RE+1*, RE+4*, RE+7!
X GET+5*, Q!
Y Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All