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

Package: Patient Care Component

Routine: APCHS7R


Information

APCHS7R ; IHS/CMI/LAB - PART 7 OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS7R.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Care Component 2 $$CHRONIC^APCHS72  GETMEDS^APCHSMU1  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
VA Fileman 1 ^DIWP  

Entry Points

Name Comments DBIA/ICR reference
DISP ;DISPLAY MEDS
CONT ; <SETUP>
CS(D) ;
SIG ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
D(D) ;
REF ;DETERMINE THE NUMBER OF REFILLS REMAINING
PENDING ;
SET ;
CTR(X,Y) ;EP - Center X in a field Y wide.
EXPIRED ;
OUT ;OUTSIDE MEDICATIONS
MEDDSP ;DISPLAY MEDICATION
SITE ;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
SUSPEND ;
GETNVA ;NVA from file 55
HOLD ;HOLD MEDICATIONS
MEDDSPP ;DISPLAY MEDICATION
DISCONT ;
MEDDSPN ;
MEDDSPO ;DISPLAY MEDICATION
GETPEND ;
MEDX ;
MEDRCON ; ************* MEDS BY PRESCRIPTION STATUS *************

External References

Name Field # of Occurrence
$$CHRONIC^APCHS72 CONT+32
GETMEDS^APCHSMU1 CONT+8
^DIWP MEDDSPP+5, MEDDSPO+8, MEDDSPN+7, MEDDSP+8
$$VAL^XBDIQ1 GETPEND+4
$$VALI^XBDIQ1 CONT+25
$$FMADD^XLFDT CONT+8
$$FMDIFF^XLFDT CONT+35, CONT+41, CONT+48
$$FMTE^XLFDT MEDDSPN+13, MEDDSP+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: "ACTIVE MEDICATIONS",!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: "--------------------",!
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: "OUTSIDE MEDICATIONS",!
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: "--------------------",!
  • Line Location: HOLD+3
Function Call: WRITE
  • Prompt: "ACTIVE NOT DISPENSED MEDICATIONS",!
  • Line Location: HOLD+4
Function Call: WRITE
  • Prompt: !,"--------------------",!
  • Line Location: SUSPEND+3
Function Call: WRITE
  • Prompt: "SUSPENDED MEDICATIONS",!
  • Line Location: SUSPEND+4
Function Call: WRITE
  • Prompt: "--------------------",!
  • Line Location: PENDING+2
Function Call: WRITE
  • Prompt: "PENDING MEDICATIONS",!
  • Line Location: PENDING+3
Function Call: WRITE
  • Prompt: "--------------------",!
  • Line Location: EXPIRED+3
Function Call: WRITE
  • Prompt: "CHRONIC AND RECENTLY EXPIRED MEDICATIONS",!
  • Line Location: EXPIRED+4
Function Call: WRITE
  • Prompt: "--------------------",!
  • Line Location: DISCONT+3
Function Call: WRITE
  • Prompt: "RECENTLY DISCONTINUED MEDICATIONS",!
  • Line Location: DISCONT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSPP+3
Function Call: WRITE
  • Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),!
  • Line Location: MEDDSPP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSPO+4
Function Call: WRITE
  • Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),!
  • Line Location: MEDDSPO+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSPN+3
Function Call: WRITE
  • Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),!
  • Line Location: MEDDSPN+9
Function Call: WRITE
  • Prompt: !?19,"DATE DISCONTINUED: ",$$FMTE^XLFDT($P(APCHZ,U,9))
  • Line Location: MEDDSPN+13
Function Call: WRITE
  • Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),!
  • Line Location: MEDDSP+10
Function Call: WRITE
  • Prompt: ?6,"Last Filled: ",$$D(9999999-APCHDT)
  • Line Location: MEDDSP+16
Function Call: WRITE
  • Prompt: " ---",APCHSORT," ",$$FMTE^XLFDT($P(^AUPNVMED(APCHM,0),U,8),"2D")
  • Line Location: MEDDSP+18
Function Call: WRITE
  • Prompt: ?30,"Expired: ",$$D(E)
  • Line Location: MEDDSP+19
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+20
Function Call: WRITE
  • Prompt: ?6,"Hold Reason: "
  • Line Location: MEDDSP+21
Function Call: WRITE
  • Prompt: $P($G(^PSRX($P(APCHZ,U,1),"H")),U,1)
  • Line Location: MEDDSP+21
Function Call: WRITE
  • Prompt: ?6,"Discontinued: "
  • Line Location: MEDDSP+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED - [#9000010.14] CONT+17, CONT+18, CONT+46, GETNVA+2, MEDDSPO+1, MEDDSPO+6, MEDDSP+1, MEDDSP+6, MEDDSP+17, MEDDSP+18
, MEDDSP+23, REF+1
^AUPNVMED("AC" CONT+1
^AUPNVSIT - [#9000010] CONT+20, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4] SITE+4
^PS(50.606 - [#50.606] GETPEND+3
^PS(50.7 - [#50.7] GETNVA+11, GETPEND+3
^PS(51 - [#51] SIG+2
^PS(52.41 - [#52.41] CONT+1, GETPEND+2, GETPEND+5
^PS(55 - [#55] CONT+1, GETNVA+1, GETNVA+2, GETNVA+5, GETNVA+9, GETNVA+11, GETNVA+12
^PSDRUG - [#50] CONT+19, GETNVA+11, GETPEND+3, CS+1, CS+2
^PSRX - [#52] SET+3, CONT+24, CONT+31, CONT+47, MEDDSP+19, MEDDSP+21, MEDDSP+24, REF+2
^PSRX("APCC" CONT+22
^UTILITY($J MEDDSPP+5!, MEDDSPP+6, MEDDSPP+7, MEDDSPP+9, MEDDSPP+10!, MEDDSPO+8!, MEDDSPO+10, MEDDSPO+11, MEDDSPO+13, MEDDSPO+14!
, MEDDSPN+7!, MEDDSPN+9, MEDDSPN+10, MEDDSPN+12, MEDDSPN+14!, MEDDSP+8!, MEDDSP+10, MEDDSP+11, MEDDSP+13, MEDDSP+14!

Label References

Name Line Occurrences
$$D MEDDSP+16, MEDDSP+19, MEDDSP+25
DISCONT EXPIRED+1
EXPIRED PENDING+1
HOLD OUT+1
MEDDSP DISP+10, HOLD+8, SUSPEND+8, EXPIRED+8, DISCONT+8
MEDDSPN OUT+12
MEDDSPO OUT+7
MEDDSPP PENDING+6
MEDX DISCONT+1
OUT DISP+3
PENDING SUSPEND+1
REF SET+2
SET CONT+20, CONT+23, CONT+24, CONT+26, CONT+27, CONT+28, CONT+39, CONT+44, CONT+50
SIG MEDDSPO+6, MEDDSPN+5, MEDDSP+6
SUSPEND HOLD+1

Naked Globals

Name Field # of Occurrence
^(21 SITE+2
^(9 SIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCHCNT CONT+4~, CONT+6*, DISP+5*, MEDDSPP+1*, MEDDSPP+3, MEDDSPO+2*, MEDDSPO+4, MEDDSPN+1*, MEDDSPN+3, MEDDSP+2*
, MEDDSP+4
APCHD CONT+4~, GETPEND+2*, GETPEND+3
APCHDI CONT+4~, DISP+8*, DISP+9, DISP+10, OUT+5*, OUT+6, OUT+7, OUT+10*, OUT+11, OUT+12
, HOLD+6*, HOLD+7, HOLD+8, SUSPEND+6*, SUSPEND+7, SUSPEND+8, PENDING+5*, PENDING+6, EXPIRED+6*, EXPIRED+7
, EXPIRED+8, DISCONT+6*, DISCONT+7, DISCONT+8
APCHDT CONT+4~, DISP+9*, DISP+10, OUT+6*, OUT+7, OUT+11*, OUT+12, HOLD+7*, HOLD+8, SUSPEND+7*
, SUSPEND+8, EXPIRED+7*, EXPIRED+8, DISCONT+7*, DISCONT+8, MEDDSP+16
APCHI CONT+4~, GETPEND+2*, GETPEND+3
APCHM CONT+4~, DISP+10*, OUT+7*, HOLD+8*, SUSPEND+8*, EXPIRED+8*, DISCONT+8*, MEDDSPO+1, MEDDSPO+6, MEDDSP+1
, MEDDSP+6, MEDDSP+17, MEDDSP+18, MEDDSP+23
APCHMDSP CONT+4~, CONT+7!
APCHMDSP( SET+4*, CONT+38, CONT+43, CONT+49
APCHMEDS CONT+4~, CONT+7!, CONT+8
APCHMEDS( CONT+12, CONT+14, CONT+15, CONT+16
APCHN CONT+4~, GETPEND+3*, GETPEND+4, GETPEND+6, DISP+7*, DISP+8, DISP+9, DISP+10, OUT+4*, OUT+5
, OUT+6, OUT+7, OUT+9*, OUT+10, OUT+11, OUT+12, HOLD+5*, HOLD+6, HOLD+7, HOLD+8
, SUSPEND+5*, SUSPEND+6, SUSPEND+7, SUSPEND+8, PENDING+4*, PENDING+5, PENDING+6, EXPIRED+5*, EXPIRED+6, EXPIRED+7
, EXPIRED+8, DISCONT+5*, DISCONT+6, DISCONT+7, DISCONT+8, MEDDSPP+3, MEDDSPO+4, MEDDSPN+3, MEDDSP+4
>> APCHSBRK CONT+2
>> APCHSCKP CONT+2, DISP+2, MEDDSPP+2, MEDDSPP+4, MEDDSPP+8, MEDDSPO+3, MEDDSPO+5, MEDDSPO+9, MEDDSPO+12, MEDDSPN+2
, MEDDSPN+4, MEDDSPN+8, MEDDSPN+11, MEDDSP+3, MEDDSP+5, MEDDSP+9, MEDDSP+12, MEDDSP+15
APCHSIG CONT+4~, MEDDSPO+6*, MEDDSPN+5*, MEDDSP+6*, SIG+1, SIG+2
>> APCHSITE SITE+1*, SITE+2*, SITE+4*
APCHSN CONT+4~, MEDDSPO+1*, MEDDSP+1*
>> APCHSNPG CONT+2
>> APCHSORT MEDDSP+17*, MEDDSP+18
>> APCHSP SIG+1*, SIG+2
>> APCHSPAT CONT+1, CONT+8, GETNVA+1, GETNVA+2, GETNVA+5, GETNVA+9, GETNVA+11, GETNVA+12, GETPEND+2
>> APCHSQIT CONT+2, DISP+2, DISP+7, DISP+8, DISP+9, DISP+10, OUT+4, OUT+5, OUT+6, OUT+7
, OUT+9, OUT+10, OUT+11, HOLD+5, HOLD+6, HOLD+7, HOLD+8, SUSPEND+5, SUSPEND+6, SUSPEND+7
, SUSPEND+8, PENDING+4, PENDING+5, EXPIRED+5, EXPIRED+6, EXPIRED+7, EXPIRED+8, DISCONT+5, DISCONT+6, DISCONT+7
, DISCONT+8, MEDDSPP+2, MEDDSPP+4, MEDDSPP+7, MEDDSPP+8, MEDDSPO+3, MEDDSPO+5, MEDDSPO+9, MEDDSPO+11, MEDDSPO+12
, MEDDSPN+2, MEDDSPN+4, MEDDSPN+8, MEDDSPN+10, MEDDSPN+11, MEDDSP+3, MEDDSP+5, MEDDSP+9, MEDDSP+11, MEDDSP+12
, MEDDSP+15
>> APCHSREF SET+2*, SET+3, REF+1*, REF+2*, REF+3*
>> APCHSRFL REF+2*, REF+3
>> APCHSRX SET+2*, REF+1, REF+2
APCHSSGY CONT+4~, MEDDSPO+7, MEDDSPN+6, MEDDSP+7, SIG+1*, SIG+3*
APCHST CONT+4~
APCHSTAT CONT+4~, CONT+11!
APCHSTAT( SET+3*
APCHSTAT("ACT IVE MEDICATIONS" , DISP+3, DISP+7, DISP+8, DISP+9, DISP+10
APCHSTAT("DIS CONTINUED MEDICATIONS" , DISCONT+1, DISCONT+5, DISCONT+6, DISCONT+7, DISCONT+8
APCHSTAT("EXP IRED MEDICATIONS" , EXPIRED+1, EXPIRED+5, EXPIRED+6, EXPIRED+7, EXPIRED+8
APCHSTAT("HOL D MEDICATIONS" , HOLD+1, HOLD+5, HOLD+6, HOLD+7, HOLD+8
APCHSTAT("NVA" GETNVA+12*, OUT+1, OUT+9, OUT+10, OUT+11, OUT+12
APCHSTAT("OUT SIDE MEDICATIONS" , OUT+1, OUT+4, OUT+5, OUT+6, OUT+7
APCHSTAT("PENDING" GETPEND+4*, GETPEND+6*, PENDING+1, PENDING+4, PENDING+5, PENDING+6
APCHSTAT("SUS PEND MEDICATIONS" , SUSPEND+1, SUSPEND+5, SUSPEND+6, SUSPEND+7, SUSPEND+8
>> APCHSVDF SITE+2, SITE+3, SITE+4
>> APCHT DISP+6*, HOLD+2*, SUSPEND+2*, EXPIRED+2*, DISCONT+2*, MEDDSP+16, MEDDSP+17, MEDDSP+19, MEDDSP+21, MEDDSP+22
APCHZ CONT+4~, DISP+10*, OUT+7*, OUT+12*, HOLD+8*, SUSPEND+8*, PENDING+6*, EXPIRED+8*, DISCONT+8*, MEDDSPP+3
, MEDDSPP+5, MEDDSPO+4, MEDDSPN+5, MEDDSPN+13, MEDDSP+4, MEDDSP+19, MEDDSP+21, MEDDSP+24
C SET+3, CONT+5~, CONT+20*, CONT+23*, CONT+24*, CONT+26*, CONT+27*, CONT+28*, CONT+39*, CONT+44*
, CONT+50*, GETPEND+5*
D SET+3, SET+4, CONT+5~, CONT+17*, CONT+19, CONT+38, CONT+43, CONT+49, GETNVA+9*, GETNVA+10*
, GETNVA+11, GETNVA+12, D~, D+1, D+2, CS~, CS+1, CS+2
>> DIWL MEDDSPP+5*, MEDDSPO+8*, MEDDSPN+7*, MEDDSP+8*
>> DIWR MEDDSPP+5*, MEDDSPO+8*, MEDDSPN+7*, MEDDSP+8*
DT CONT+8, CONT+35, CONT+41, CONT+48
DUZ(2 SITE+4
E CONT+5~, CONT+31*, CONT+35, CONT+41, CONT+46*, CONT+47*, CONT+48, MEDDSP+19*, MEDDSP+23*, MEDDSP+24*
, MEDDSP+25
F SET+3, SET+4, CONT+5~, CONT+14*, CONT+38, CONT+43, CONT+49, MEDDSPP+7*, MEDDSPP+9, MEDDSPO+11*
, MEDDSPO+13, MEDDSPN+10*, MEDDSPN+12, MEDDSP+11*, MEDDSP+13
IOM CTR+1
J CONT+5~, CONT+35*, CONT+36, CONT+41*, CONT+42
>> L GETNVA+5*, GETNVA+6*, GETNVA+12
M SET+3, CONT+5~, CONT+15*, CONT+17, CONT+18, CONT+22, CONT+32, CONT+46, REF+1
N SET+3, SET+4, CONT+5~, CONT+18*, CONT+19*, CONT+38, CONT+43, CONT+49, GETNVA+11*, GETNVA+12
ORD GETPEND+1~, GETPEND+2*
P SET+2, SET+3, CONT+5~, CONT+13*, CONT+22*, CONT+23, CONT+24*, CONT+25, CONT+31, CONT+47
PEN GETPEND+1~, GETPEND+2*, GETPEND+4, GETPEND+5, GETPEND+6
R CONT+5~, CONT+32*, CONT+33
S CONT+5~, CONT+25*, CONT+26, CONT+27, CONT+28, CONT+29, CONT+45
U SET+3, CONT+14, CONT+15, CONT+16, CONT+17, CONT+18, CONT+19, CONT+20, CONT+31, CONT+46
, CONT+47, GETNVA+2, GETNVA+5, GETNVA+9, GETNVA+11, GETNVA+12, GETPEND+6, MEDDSPP+3, MEDDSPP+5, MEDDSPO+4
, MEDDSPO+6, MEDDSPN+5, MEDDSPN+13, MEDDSP+4, MEDDSP+6, MEDDSP+17, MEDDSP+18, MEDDSP+19, MEDDSP+21, MEDDSP+23
, MEDDSP+24, REF+1, REF+2, SITE+2, SITE+3, SITE+4, CS+1, CS+2
V CONT+5~, CONT+16*
X CONT+5~, CONT+12*, CONT+14, CONT+15, CONT+16, CONT+20, GETNVA+1*, GETNVA+2, GETNVA+5, GETNVA+9
, GETNVA+11, GETNVA+12, GETPEND+5*, GETPEND+6, MEDDSPP+5*, MEDDSPO+7*, MEDDSPN+6*, MEDDSP+7*, SIG+1*, SIG+2*
, SIG+3, CTR~, CTR+1
Y SIG+2*, CS+2~*, CS+4, CS+5, CS+6, CS+7, CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All