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 ; 02/17/93 12:29

Source Information

Source file <PSODEM.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Outpatient Pharmacy 2 DEMOG^PSODEMSB  $$CRCL^PSOORUT2  
Adverse Reaction Tracking 1 ^GMRADPT  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Pharmacy Data Management 1 $$BSA^PSSDSAPI  
Registration 1 (6,ELIG,KVA,PID)^VADPT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Outpatient Pharmacy 12 PSOORUT2  PSOP  PSOPAT  PSOPMP1  PSOPTPST  PSOREF1  PSORX1  PSORXEDT  
PSORXVW  PSOSD1  PSOSD2  PSOTPRX1  
Medicine 1 MCPSOP  

Entry Points

Name Comments DBIA/ICR reference
MA
GET
GMRA
Q
RE ;
CRCL

External References

Name Field # of Occurrence
^DIR MA+4, GMRA+3, GMRA+5
^GMRADPT GMRA
EN6^GMRVUTL RE+3
DEMOG^PSODEMSB RE+1
$$CRCL^PSOORUT2 CRCL+1
$$BSA^PSSDSAPI CRCL
6^VADPT GET
ELIG^VADPT CRCL+11
KVA^VADPT Q
PID^VADPT GET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1)
  • 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+6
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: RE+6
Function Call: WRITE
  • Prompt: !,$G(ZDSPL),?40," BSA (m2): ",PSOBSA
  • Line Location: CRCL+8
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2)
  • Line Location: CRCL+11
Function Call: WRITE
  • Prompt: ?$X+5,"SC%: "_$P(VAEL(3),"^",2)
  • Condition for execution: +VAEL(3)
  • Line Location: CRCL+11
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)
^%ZOSF("TEST" RE+2
^DIC(31 - [#31] MA+2
^DPT - [#2] CRCL+10, 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 CRCL+10

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+1, CRCL, CRCL+1, CRCL+10, 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
>> GMRVSTR RE+3*
HT RE+2*, RE+4*, RE+6!
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+5
PSCNT MA+2*, MA+3, Q!
PSDIS MA+2*, MA+3, Q!
PSLC CRCL+10*, CRCL+11*, MA*, Q!
PSOBSA CRCL*, CRCL+8!
>> PSOFROM GMRA+6
>> PSOPTPST MA+5
>> PSTYPE MA+4, Q, GMRA+3, GMRA+5
RSLT CRCL+1*, CRCL+4, CRCL+5, CRCL+6, CRCL+7, CRCL+8!
SC MA!, Q!
TY GMRA+2*, GMRA+4*, GMRA+8!
>> VADM(1 GET
>> VADM(3 GET+2
>> VAEL(1 GET+3, CRCL+11
>> VAEL(3 GET+3, CRCL+11
>> 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+3*, RE+6!
WT RE+2*, RE+4*, RE+6!
X GET+5*, RE+2*, RE+3, RE+4*, Q!
Y RE+4*, Q!
ZDSPL CRCL+4*, CRCL+5*, CRCL+6*, CRCL+7*, CRCL+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All