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

Package: Patient Care Component

Routine: APCHS9M4


Information

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

Source Information

Source file <APCHS9M4.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 ;
REF ;
PRTTXT2
GETMEDS ;
DATE(D) ;EP
CLN ;GET CLINIC FOR V MEDICATION
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+14
C^%DTC EP2+16, MEDDSP1+16
$$HRN^AUPNPAT HEAD1+5
^DIR EP+3, HEADER+2
$$VAL^XBDIQ1 PROV+2, CLN+1
$$VALI^XBDIQ1 SIG+2
$$FMADD^XLFDT GETMEDS+2, MEDDSP+5
$$FMDIFF^XLFDT GETMEDS+21
$$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: !!!,"DISPENSE UNTIL NEXT SCHEDULED EVALUATION: ________",!!,"SIGNATURE: _______________________________ DATE: ________________",!
  • Line Location: GETMEDS+49
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+7, MEDDSP1+1, MEDDSP1+19, DC+1, DC+2, CHRONIC+2, CHRONIC+4
^AUPNVMED("AA" GETMEDS+5, GETMEDS+6
^AUPNVMED("AC" EP+2, GETMEDS+4
^AUPNVSIT - [#9000010] MEDDSP1+26, 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+9, GETMEDS+13, MEDDSP1+9, MEDDSP1+17
^PSRX - [#52] DC+6, DC+11, REF+3, PROV+3
^PSRX("APCC" MEDDSP1+2, MEDDSP1+4, DC+4, CHRONIC+5
^TMP($J EP2+2!, EP2+3!, EP2+4!, EP2+5!, GETMEDS+15*, GETMEDS+16, GETMEDS+17*, GETMEDS+19, GETMEDS+20*, GETMEDS+22
, GETMEDS+23*, GETMEDS+25, GETMEDS+27, GETMEDS+28!, GETMEDS+29, GETMEDS+30!, GETMEDS+39!, GETMEDS+41, GETMEDS+42, GETMEDS+43
, GETMEDS+44, GETMEDS+45*, GETMEDS+50!, GETMEDS+51!, GETMEDS+52!, GETMEDS+53!, MEDDSP+2, MEDDSP+6, MEDDSP+7, MEDDSP+8
, MEDDSP+9, WRITE+13, WRITE+15
^VA(200 - [#200] PROV+4

Label References

Name Line Occurrences
$$CHRONIC GETMEDS+18
$$DATE GETMEDS+17, MEDDSP1+16, WRITE+6
$$DC GETMEDS+28, GETMEDS+30
CLN MEDDSP1+28
EOJ WR+5
EP2 WR+3
GETFRAG PRTTXT2
GETMEDS SETARRAY+1
HEAD1 HEADER+1
HEADER GETMEDS+46, WRITE+4
MEDDSP GETMEDS+48
MEDDSP1 MEDDSP+9
PROV MEDDSP1+27
PRTTXT WRITE+8
PRTTXT2 PRTTXT+2
REF MEDDSP1+24
SETARRAY EP2+18
SIG MEDDSP1+23
SITE MEDDSP1+29
W MEDDSP+3, MEDDSP+4, WRITE+6, WRITE+7, WRITE+11, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+21
, PRTTXT2
WRITE MEDDSP1+30

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+7, CLN+1*
APCHDATM EOJ+1!, GETMEDS+10*, GETMEDS+21
APCHDIEN EOJ+1!, GETMEDS+14*, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23, MEDDSP+7*
, MEDDSP+8, MEDDSP+9, MEDDSP1+13*, MEDDSP1+17, WRITE+13, WRITE+15
APCHIPRV EOJ+1!, PROV+3*, PROV+4
APCHMIEN EOJ+1!, GETMEDS+6*, GETMEDS+7, GETMEDS+18, GETMEDS+20, GETMEDS+23, MEDDSP+9*, MEDDSP1+1, MEDDSP1+2, MEDDSP1+4
, MEDDSP1+19, PROV+2
APCHNARC EOJ+1!, MEDDSP1+17*, WRITE+19, WRITE+20
APCHPAGE WR+2*, EOJ+1!, HEADER+1, HEAD1+1*, HEAD1+4
APCHPROV EOJ+1!, WRITE+7, PROV+1*, PROV+2*, PROV+4*
APCHQUIT WR+1!, WR+2*, WR+4, EOJ+1!, HEADER+2*, GETMEDS+49, MEDDSP+6, MEDDSP+7, MEDDSP+8, WRITE+1
, WRITE+5
APCHRTN EOJ+1!, MEDDSP1+19*, MEDDSP1+20, MEDDSP1+21, MEDDSP1+22!
>> APCHRXRF MEDDSP1+3*, MEDDSP1+4*, PROV+3
APCHSBEG EOJ+1!
APCHSCRN EOJ+1!, GETMEDS+48*
>> APCHSCVD MEDDSP1+20, MEDDSP1+21
APCHSDC EOJ+1!, GETMEDS+11*, MEDDSP1+7*, MEDDSP1+20, MEDDSP1+21
APCHSDLM EOJ+1!, EP2+6*, EP2+7*, EP2+8*, EP2+9, EP2+10*, EP2+11*, EP2+12*, EP2+15*, EP2+16*
, GETMEDS+42
APCHSDLS EP2+9*, EP2+10*, EP2+11*, EP2+13*, EP2+14!
APCHSDOO EOJ+1!, PRTTXT+3!
APCHSDTM EOJ+1!, MEDDSP1+5*, MEDDSP1+14, MEDDSP1+16, WRITE+6
APCHSDYS EOJ+1!, GETMEDS+12*, GETMEDS+21, MEDDSP1+8*, MEDDSP1+16, WRITE+7
APCHSED EOJ+1!
APCHSEXP EOJ+1!, MEDDSP1+15*, MEDDSP1+16*, MEDDSP1+20*, MEDDSP1+21*, WRITE+6
>> APCHSFOR EP2+7
>> APCHSHDR HEAD1+3
APCHSICL EOJ+2!, WRITE+8*!, PRTTXT+1, PRTTXT2*
APCHSIG EOJ+2!, MEDDSP1+11*, MEDDSP1+23*, WRITE+8, SIG+2, SIG+3, SIG+4
APCHSITE EOJ+2!, MEDDSP1+26*, WRITE+11, SITE+1*, SITE+2*, SITE+4*
APCHSIVD EOJ+2!, GETMEDS+5*, GETMEDS+6, GETMEDS+10, GETMEDS+17, GETMEDS+20, GETMEDS+23, MEDDSP+8*, MEDDSP+9, MEDDSP1+5
APCHSM0 EOJ+2!, GETMEDS+7*, GETMEDS+8, GETMEDS+9, GETMEDS+11, GETMEDS+12, GETMEDS+13, GETMEDS+14, MEDDSP1+1*, MEDDSP1+7
, MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+13
APCHSMSD EOJ+3!, EP2+17*
APCHSMSI EOJ+3!, EP2+17*, GETMEDS+2
APCHSNAM EOJ+2!, GETMEDS+13*, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23, MEDDSP+6*
, MEDDSP+7, MEDDSP+8, MEDDSP+9, MEDDSP1+9*, WRITE+6, WRITE+13, WRITE+15
APCHSNRQ EOJ+2!, WRITE+8*!, PRTTXT+2*
APCHSP EOJ+2!, WRITE+8!, SIG+3*, SIG+4
>> APCHSPAT EP+1, EP+2, HEAD1+5, GETMEDS+4, GETMEDS+5, GETMEDS+6
>> APCHSQIT EP+3*, WR+4*
APCHSQTY EOJ+2!, MEDDSP1+10*, WRITE+7
APCHSREF EOJ+2!, MEDDSP1+25*, WRITE+17, REF+2*, REF+3*, REF+4*
APCHSRFL EOJ+2!, REF+3*, REF+4
APCHSRX EOJ+2!, MEDDSP1+2*, MEDDSP1+4, REF+2, REF+3, PROV+2, PROV+3
APCHSSGY EOJ+2!, MEDDSP1+23, SIG+2*, SIG+3*, SIG+5*
APCHSTEX EOJ+2!
APCHSTOB EOJ+2!
APCHSTOP EOJ+2!, GETMEDS+2*, GETMEDS+3*, GETMEDS+5, MEDDSP+5*
APCHSTXT EOJ+2!, WRITE+8*, 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+48*, MEDDSP+2, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+7, MEDDSP+8, MEDDSP+9
APCHVIEN EOJ+2!, MEDDSP1+12*, MEDDSP1+26, SITE+2, SITE+3, SITE+4, CLN+1
APCHX EOJ+2!
APCHXRX EOJ+2!, MEDDSP1+2*
APCHY EOJ+2!
B EOJ+4!
C EOJ+4!, W~, W+7
D EOJ+4!, GETMEDS+27*, GETMEDS+28, GETMEDS+29*, GETMEDS+30, GETMEDS+42*, GETMEDS+43, GETMEDS+44, GETMEDS+45, 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+21, MEDDSP+5, MEDDSP1+14
>> 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+27*, GETMEDS+28, GETMEDS+29*, GETMEDS+30, WRITE+15*
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+28*, GETMEDS+30*, GETMEDS+45*
N EOJ+4!, GETMEDS+27*, GETMEDS+28, GETMEDS+29*, GETMEDS+30, GETMEDS+43*, GETMEDS+44, GETMEDS+45, 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+8, GETMEDS+9, GETMEDS+11, GETMEDS+12, GETMEDS+13, GETMEDS+14, GETMEDS+15, GETMEDS+16
, GETMEDS+17, MEDDSP1+7, MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+17, MEDDSP1+19, MEDDSP1+26
, WRITE+13, WRITE+15, SITE+2, SITE+3, SITE+4, DC+2, DC+6, DC+11, REF+3, CHRONIC+4
V EOJ+4!, DC~, DC+1, DC+2
W EOJ+4!
X EOJ+4!, EP2+16, EP2+17, GETMEDS+16*, GETMEDS+17, GETMEDS+21*, GETMEDS+41*, GETMEDS+42, GETMEDS+43, GETMEDS+44
, GETMEDS+45, MEDDSP+1*, MEDDSP+3*, MEDDSP+4*, MEDDSP1+16, WRITE+6*, WRITE+7*, WRITE+11*, WRITE+12*, WRITE+14*
, WRITE+15*, WRITE+16, WRITE+17*, WRITE+18*, WRITE+19*, 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+14*, MEDDSP1+16*
X2 EOJ+4!, EP2+16*!, MEDDSP1+14*, MEDDSP1+16*
Y EOJ+4!, HEADER+2, GETMEDS+44*, GETMEDS+45, MEDDSP1+5*, MEDDSP1+20*, MEDDSP1+21*, WRITE+13*, WRITE+14, 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