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

Package: IHS Changes To Pharmacy

Routine: APSPMED2


Information

APSPMED2 ; IHS/DSD/ENM - PATIENT DEMOGRAPHICS ; [ 09/03/97 1:30 PM ]

Source Information

Source file <APSPMED2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Adverse Reaction Tracking 1 ^GMRADPT  
Registration 1 (6,ELIG,PID)^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Pharmacy 2 APSPMED  APSPMED1  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC HDR+1
^GMRADPT GMRA
6^VADPT GET
ELIG^VADPT RE+1
PID^VADPT GET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GET+1
Function Call: WRITE
  • Prompt: "Medication Profile",?35,Y,?65,"(Page "_APSPAGE_")"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Chart #: ",APSPCN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,VADM(1),?40,"ID#: "_VA("PID")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?5,"(TEMP ADDRESS from "_$P(VAPA(9),"^",2)_" till "_$P(VAPA(10),"^",2)_")"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,VAPA(1),?40,"DOB: ",$S(+VADM(3):$P(VADM(3),"^",2),1:"UNKNOWN")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,VAPA(4),?40,"PHONE: "_VAPA(8),!,$P(VAPA(5),"^",2)_" "_VAPA(6),?40,"ELIG: "_$P(VAEL(1),"^",2)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"CANNOT USE SAFETY CAPS."
  • Condition for execution: $P(^(0),"^",2)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?40,"DIALYSIS PATIENT."
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?5,"Pharmacy narrative: "
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: $P(X," ",I)," "
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2)
  • Line Location: RE+1
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+1
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: I1
  • Line Location: GMRA+0
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $X+$L(AL)>75
  • Line Location: GMRA+0
Function Call: WRITE
  • Prompt: AL
  • Line Location: GMRA+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] HDR+2
^DD("DD" HDR+1
^DIC(31 - [#31] MA+1
^DPT - [#2] RE, MA+1
^PS(55 - [#55] HDR+7, HDR+8

Label References

Name Line Occurrences
GMRA MA+2
MA RE

Naked Globals

Name Field # of Occurrence
^( RE, MA+1
^(0 HDR+7, MA+1
^(1 HDR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AL Q!, GMRA*
>> APSPAGE HDR+1*
>> APSPCN HDR+2*
>> DA GET
>> DFN GET*, HDR+2, HDR+7, HDR+8, RE, MA+1
DUZ(2 HDR+2
GMRA GMRA+1!
GMRAL GMRA+1!
GMRAL( GMRA
I HDR+8*, MA+1*, Q!, GMRA*
I1 MA+1*, Q!, GMRA*
IO GET+1
IOF GET+1
PSCNT MA+1*, Q!
PSDIS MA+1*, Q!
PSLC RE*, RE+1*, MA*, Q!
>> PSOPTPST MA+2
SC MA!, Q!
U HDR+2
>> VA("PID" HDR+3
>> VADM(1 HDR+3
>> VADM(3 HDR+5
>> VAEL(1 HDR+6, RE+1
>> VAPA(1 HDR+5
>> VAPA(10 HDR+4
>> VAPA(2 HDR+5
>> VAPA(3 HDR+5
>> VAPA(4 HDR+6
>> VAPA(5 HDR+6
>> VAPA(6 HDR+6
>> VAPA(8 HDR+6
>> VAPA(9 HDR+4
VAROOT Q!
X HDR+1, HDR+8*, Q!
Y HDR+1*, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All