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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHS9M5

Package: Patient Care Component

Routine: APCHS9M5


Information

APCHS9M5 ; IHS/CMI/LAB - MEDICATION TURN AROUND SUPPLEMENT ;

Source Information

Source file <APCHS9M5.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 (,C)^%DTC  ^DIR  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PRTTXT ; GENERALIZED TEXT PRINTER
EOJ ;
W(Y,F,C,T) ;set up array
SIG ;
WR ;write out array
SETARRAY ;set up array containing dm care summary
MEDDSP1 ;;D ^BOMB
REF ;
PRTTXT2
GETMEDS ;
DATE(D) ;EP
CLN ;GET CLINIC FOR V MEDICATION
RXN ;Get Rx number from File 52 if not in V Med File
MEDDSP ;
SITE ;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
GETFRAG
WRITE ;
HEADER ;
CHRONIC(N) ;
EP ;EP - called from component
HEAD1 ;
DC(V) ;is this d/c'ed
PROV ;GET THE PROVIDER FOR ORIGINAL RX OR REFILL
EP2 ;PEP - PASS DFN get back array of patient care summary

External References

Name Field # of Occurrence
^%DTC MEDDSP1+15
C^%DTC EP2+16
$$HRN^AUPNPAT HEAD1+5
^DIR EP+3, HEADER+2
$$VAL^XBDIQ1 PROV+2, CLN+1
$$VALI^XBDIQ1 MEDDSP1+29, SIG+2
$$FMADD^XLFDT GETMEDS+2
$$FMDIFF^XLFDT GETMEDS+22
$$FMTE^XLFDT HEAD1+4, EP2+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,APCHSHDR,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"MEDICATION REORDER DOCUMENT Date: "_$$FMTE^XLFDT(DT)_" Page: "_APCHPAGE
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"Patient: ",$P(^DPT(APCHSPAT,0),U)," HRN: ",$$HRN^AUPNPAT(APCHSPAT,DUZ(2)),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !!!,"No Chronic Medication Data to Display",!!
  • Line Location: GETMEDS+50
Function Call: WRITE
  • Prompt: !!!,"Refill all meds ____ times, or ____ until next scheduled evaluation",!!,"SIGNATURE: _______________________________ DATE: ________________",!
  • Line Location: GETMEDS+51
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP1+26
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP1+27
Function Call: WRITE
  • Prompt: !,X
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: W+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: W+10
Routine Call
  • DIR
  • Line Location:
    • EP+3
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHSCTL - [#9001015] EP2+7
^AUPNVMED - [#9000010.14] GETMEDS+8, MEDDSP1+1, MEDDSP1+2, MEDDSP1+20, DC+1, DC+2, CHRONIC+2, CHRONIC+4
^AUPNVMED("AA" GETMEDS+6, GETMEDS+7
^AUPNVMED("AC" EP+2, GETMEDS+5
^AUPNVSIT - [#9000010] MEDDSP1+28, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4] SITE+4
^DPT - [#2] HEAD1+5
^PS(51 - [#51] SIG+4
^PS(55 - [#55] CHRONIC+6
^PSDRUG - [#50] GETMEDS+10, GETMEDS+14, MEDDSP1+10, MEDDSP1+18
^PSRX - [#52] DC+6, DC+11, REF+3, RXN+2, PROV+3
^PSRX("APCC" MEDDSP1+3, MEDDSP1+5, DC+4, CHRONIC+5
^TMP($J EP2+2!, EP2+3!, EP2+4!, EP2+5!, GETMEDS+16*, GETMEDS+17, GETMEDS+18*, GETMEDS+20, GETMEDS+21*, GETMEDS+23
, GETMEDS+24*, GETMEDS+26, GETMEDS+28, GETMEDS+29!, GETMEDS+30, GETMEDS+31!, GETMEDS+40!, GETMEDS+42, GETMEDS+43, GETMEDS+44
, GETMEDS+45, GETMEDS+46*, GETMEDS+52!, GETMEDS+53!, GETMEDS+54!, GETMEDS+55!, MEDDSP+2, MEDDSP+6, MEDDSP+7, MEDDSP+8
, MEDDSP+9, WRITE+15, WRITE+17
^VA(200 - [#200] PROV+4

Label References

Name Line Occurrences
$$CHRONIC GETMEDS+19
$$DATE GETMEDS+18, WRITE+6
$$DC GETMEDS+29, GETMEDS+31
CLN MEDDSP1+32
EOJ WR+5
EP2 WR+3
GETFRAG PRTTXT2
GETMEDS SETARRAY+1
HEAD1 HEADER+1
HEADER GETMEDS+47, WRITE+4
MEDDSP GETMEDS+49
MEDDSP1 MEDDSP+9
PROV MEDDSP1+31
PRTTXT WRITE+9
PRTTXT2 PRTTXT+2
REF MEDDSP1+25
RXN MEDDSP1+30
SETARRAY EP2+18
SIG MEDDSP1+24
SITE MEDDSP1+33
W MEDDSP+3, MEDDSP+4, WRITE+6, WRITE+8, WRITE+10, WRITE+13, WRITE+21, PRTTXT2
WRITE MEDDSP1+34

Naked Globals

Name Field # of Occurrence
^( DC+4, CHRONIC+5
^(21 SITE+2
^(9 SIG+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% W+3~, W+8*, W+9*
A EOJ+4!
APCHCLN EOJ+1!, WRITE+8, CLN+1*
APCHDATM EOJ+1!, GETMEDS+11*, GETMEDS+22
APCHDIEN EOJ+1!, GETMEDS+15*, GETMEDS+16, GETMEDS+17, GETMEDS+18, GETMEDS+20, GETMEDS+21, GETMEDS+23, GETMEDS+24, MEDDSP+7*
, MEDDSP+8, MEDDSP+9, MEDDSP1+14*, MEDDSP1+18, WRITE+15, WRITE+17
APCHIPRV EOJ+1!, PROV+3*, PROV+4
APCHMIEN EOJ+1!, GETMEDS+7*, GETMEDS+8, GETMEDS+19, GETMEDS+21, GETMEDS+24, GETMEDS+50, GETMEDS+51, MEDDSP+9*, MEDDSP1+1
, MEDDSP1+2, MEDDSP1+3, MEDDSP1+5, MEDDSP1+20, MEDDSP1+29, PROV+2
APCHNARC EOJ+1!, MEDDSP1+18*, WRITE+21
>> APCHNMBR MEDDSP1+29*, MEDDSP1+30, WRITE+10, RXN+1*, RXN+2*, RXN+3*
APCHPAGE WR+2*, EOJ+1!, HEADER+1, HEAD1+1*, HEAD1+4
APCHPROV EOJ+1!, WRITE+8, PROV+1*, PROV+2*, PROV+4*
APCHQUIT WR+1!, WR+2*, WR+4, EOJ+1!, HEADER+2*, MEDDSP+6, MEDDSP+7, MEDDSP+8, WRITE+1, WRITE+5
APCHRTN EOJ+1!, MEDDSP1+20*, MEDDSP1+21, MEDDSP1+22, MEDDSP1+23!
>> APCHRXRF MEDDSP1+4*, MEDDSP1+5*, PROV+3
APCHSBEG EOJ+1!
APCHSCRN EOJ+1!, GETMEDS+49*
>> APCHSCVD MEDDSP1+21, MEDDSP1+22
APCHSDC EOJ+1!, GETMEDS+12*, MEDDSP1+8*, MEDDSP1+21, MEDDSP1+22
APCHSDLM EOJ+1!, EP2+6*, EP2+7*, EP2+8*, EP2+9, EP2+10*, EP2+11*, EP2+12*, EP2+15*, EP2+16*
, GETMEDS+43
APCHSDLS EP2+9*, EP2+10*, EP2+11*, EP2+13*, EP2+14!
APCHSDOO EOJ+1!, PRTTXT+3!
APCHSDTM EOJ+1!, MEDDSP1+6*, MEDDSP1+15, WRITE+6
APCHSDYS EOJ+1!, GETMEDS+13*, GETMEDS+22, MEDDSP1+9*, WRITE+8
APCHSED EOJ+1!
APCHSEXP EOJ+1!, MEDDSP1+16*, MEDDSP1+21*, MEDDSP1+22*, WRITE+6
>> APCHSFOR EP2+7
>> APCHSHDR HEAD1+3
APCHSICL EOJ+2!, WRITE+9*!, PRTTXT+1, PRTTXT2*
APCHSIG EOJ+2!, MEDDSP1+12*, MEDDSP1+24*, WRITE+9, SIG+2, SIG+3, SIG+4
APCHSITE EOJ+2!, MEDDSP1+28*, WRITE+13, SITE+1*, SITE+2*, SITE+4*
APCHSIVD EOJ+2!, GETMEDS+6*, GETMEDS+7, GETMEDS+11, GETMEDS+18, GETMEDS+21, GETMEDS+24, MEDDSP+8*, MEDDSP+9, MEDDSP1+6
APCHSM0 EOJ+2!, GETMEDS+8*, GETMEDS+9, GETMEDS+10, GETMEDS+12, GETMEDS+13, GETMEDS+14, GETMEDS+15, MEDDSP1+1*, MEDDSP1+8
, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+13, MEDDSP1+14
>> APCHSM11 MEDDSP1+2*, MEDDSP1+27
APCHSMSD EOJ+3!, EP2+17*, MEDDSP+4
APCHSMSI EOJ+3!, EP2+17*, GETMEDS+2
APCHSNAM EOJ+2!, GETMEDS+14*, GETMEDS+16, GETMEDS+17, GETMEDS+18, GETMEDS+20, GETMEDS+21, GETMEDS+23, GETMEDS+24, MEDDSP+6*
, MEDDSP+7, MEDDSP+8, MEDDSP+9, MEDDSP1+10*, WRITE+6, WRITE+15, WRITE+17
APCHSNRQ EOJ+2!, WRITE+9*!, PRTTXT+2*
APCHSP EOJ+2!, WRITE+9!, SIG+3*, SIG+4
>> APCHSPAT EP+1, EP+2, HEAD1+5, GETMEDS+5, GETMEDS+6, GETMEDS+7
>> APCHSQIT EP+3*, WR+4*
APCHSQTY EOJ+2!, MEDDSP1+11*, WRITE+8
APCHSREF EOJ+2!, MEDDSP1+26*, MEDDSP1+27*, WRITE+10, REF+2*, REF+3*, REF+4*
APCHSRFL EOJ+2!, REF+3*, REF+4
APCHSRX EOJ+2!, MEDDSP1+3*, MEDDSP1+5, REF+2, REF+3, RXN+1, RXN+2, PROV+2, PROV+3
APCHSSGY EOJ+2!, MEDDSP1+24, SIG+2*, SIG+3*, SIG+5*
APCHSTEX EOJ+2!
APCHSTOB EOJ+2!
APCHSTOP EOJ+2!, GETMEDS+2*, GETMEDS+3*, GETMEDS+6
APCHSTXT EOJ+2!, WRITE+9*, PRTTXT+2*, PRTTXT+3!, GETFRAG*, GETFRAG+1, GETFRAG+2*
>> APCHSTYP EP2+7, SIG+2
APCHSUPI EOJ+2!
APCHTC EOJ+2!, PRTTXT+3!, GETFRAG+1*, GETFRAG+2
APCHTDLT PRTTXT+1*, PRTTXT+3!, PRTTXT2*
APCHTF PRTTXT+3!, PRTTXT2, GETFRAG*, GETFRAG+2*
APCHTILN EOJ+2!, PRTTXT+1*, PRTTXT+3!, PRTTXT2*, GETFRAG, GETFRAG+1
APCHTOB EOJ+2!
APCHTOBN EOJ+2!
APCHTQ EOJ+2!, PRTTXT+2*
APCHTXRF EOJ+1!
APCHTYPE EOJ+2!, GETMEDS+49*, MEDDSP+2, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+7, MEDDSP+8, MEDDSP+9
APCHVIEN EOJ+2!, MEDDSP1+13*, MEDDSP1+28, SITE+2, SITE+3, SITE+4, CLN+1
APCHX EOJ+2!
APCHXRX EOJ+2!, MEDDSP1+3*
APCHY EOJ+2!
B EOJ+4!
C EOJ+4!, W~, W+7
D EOJ+4!, GETMEDS+28*, GETMEDS+29, GETMEDS+30*, GETMEDS+31, GETMEDS+43*, GETMEDS+44, GETMEDS+45, GETMEDS+46, DATE~
, DATE+1, DATE+2
DIR EP+3!, EOJ+4!, HEADER+2!
DIR("A" EP+3*
DIR(0 EP+3*, HEADER+2*
>> DIRUT EP+3
DT HEAD1+4, EP2+16, GETMEDS+22, MEDDSP1+15
>> DTOUT HEADER+2
DUZ(2 HEAD1+5, SITE+4
E EOJ+4!
F EOJ+4!, W~, W+1*, W+5*
G EOJ+4!
H EOJ+4!
I EOJ+4!, GETMEDS+28*, GETMEDS+29, GETMEDS+30*, GETMEDS+31, WRITE+17*
IO EP+3, HEADER+2
IO(0 EP+3, HEADER+2
IOF HEAD1+2
IOSL WRITE+1
IOST EP+3, HEADER+2
J EOJ+4!
K EOJ+4!
L EOJ+4!, W+7*
M EOJ+4!, GETMEDS+29*, GETMEDS+31*, GETMEDS+46*
N EOJ+4!, GETMEDS+28*, GETMEDS+29, GETMEDS+30*, GETMEDS+31, GETMEDS+44*, GETMEDS+45, GETMEDS+46, DC+4, CHRONIC~
, CHRONIC+1, CHRONIC+2, CHRONIC+4, CHRONIC+5
O EOJ+4!
P EOJ+4!, DC+3~, DC+4*, DC+5, DC+6, DC+11, CHRONIC+3~, CHRONIC+4*, CHRONIC+6
Q EOJ+4!
R EOJ+4!
S EOJ+4!, DC+3~
T EOJ+4!, W~, W+2*, W+7*, W+8, W+9
U HEAD1+5, EP2+7, GETMEDS+9, GETMEDS+10, GETMEDS+12, GETMEDS+13, GETMEDS+14, GETMEDS+15, GETMEDS+16, GETMEDS+17
, GETMEDS+18, MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+13, MEDDSP1+18, MEDDSP1+20, MEDDSP1+27
, MEDDSP1+28, WRITE+15, WRITE+17, SITE+2, SITE+3, SITE+4, DC+2, DC+6, DC+11, REF+3
, RXN+2, CHRONIC+4
V EOJ+4!, DC~, DC+1, DC+2
W EOJ+4!
X EOJ+4!, EP2+16, EP2+17, GETMEDS+17*, GETMEDS+18, GETMEDS+22*, GETMEDS+42*, GETMEDS+43, GETMEDS+44, GETMEDS+45
, GETMEDS+46, MEDDSP+1*, MEDDSP+3*, MEDDSP+4*, WRITE+6*, WRITE+8*, WRITE+10*, WRITE+13*, WRITE+14*, WRITE+16*
, WRITE+17*, WRITE+20*, WRITE+21*, DC+6*, DC+7, DC+8, DC+9, DC+10, DC+11*, DC+12
, DC+13, DC+14, DC+15, SIG+3*, SIG+4*, SIG+5, CHRONIC+3~, CHRONIC+5*, CHRONIC+6, W+3~
, W+5*, W+6*, W+7, W+8*, W+9*, W+10, PRTTXT2*
X1 EOJ+4!, EP2+16*!, MEDDSP1+15*
X2 EOJ+4!, EP2+16*!, MEDDSP1+15*
Y EOJ+4!, HEADER+2, GETMEDS+45*, GETMEDS+46, MEDDSP1+6*, MEDDSP1+21*, MEDDSP1+22*, WRITE+15*, WRITE+16, SIG+4*
, CHRONIC+3~, CHRONIC+6*, CHRONIC+7, W~, W+6, W+7, W+9
Z EOJ+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All