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

Package: Patient Care Component

Routine: APCHS73


Information

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

Source Information

Source file <APCHS73.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Care Component 5 DISPREF^APCHS3C  (HOLDDSP,MEDRU)^APCHS7  $$CHRONIC^APCHS72  NONVA^APCHS74  PRTTXT^APCHSUTL  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^%DTC  

Entry Points

Name Comments DBIA/ICR reference
MEDBLD ;BUILD ARRAY OF MEDICATIONS
CONT ; <SETUP>
MEDSNDUP ; ************* ALL, NON DUPLICATED *************
MEDSCURR ; ************** CURRENT MEDICATIONS * 9000010.14 ********
ALL ;all meds included
SITE ;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP ;
CHRONIC ;chronic meds only
MEDDSP ;DISPLAY MEDICATION
MEDSCHRN ; ************* CHRONIC MEDCICATIONS ************
NODUP ;
MEDSALL ; **************** ALL MEDICATIONS * 9000010.14 **********
CURR ; current meds only
MEDX
REF ;DETERMINE THE NUMBER OF REFILLS REMAINING
SIG ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG

External References

Name Field # of Occurrence
^%DTC CURR+2, MEDDSP+10
DISPREF^APCHS3C CONT+26
HOLDDSP^APCHS7 CONT+23
MEDRU^APCHS7 CONT+27
$$CHRONIC^APCHS72 MEDBLD+10
NONVA^APCHS74 CONT+13
PRTTXT^APCHSUTL MEDDSP+30, NVADSP+10
$$FMTE^XLFDT CONT+10, CONT+16, MEDDSP+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !,"MEDICATIONS DISPENSED SINCE ",$$FMTE^XLFDT((9999999-APCHSDLM)),!
  • Line Location: CONT+16
Function Call: WRITE
  • Prompt: "(C) - Chronic Medication, (CRx) - Controlled Drug",!!
  • Line Location: CONT+17
Function Call: WRITE
  • Prompt: APCHSDAT,?9,$S(APCHSCRN:"(C) ",1:""),$S(APCHCRX:"(CRx)",1:""),?19,APCHSMED
  • Line Location: MEDDSP+26
Function Call: WRITE
  • Prompt: " #",APCHSQTY
  • Condition for execution: APCHSQTY
  • Line Location: MEDDSP+26
Function Call: WRITE
  • Prompt: " (",APCHSDYS," days) "
  • Condition for execution: APCHSDYS
  • Line Location: MEDDSP+27
Function Call: WRITE
  • Prompt: APCHSEXP,!
  • Line Location: MEDDSP+27
Function Call: WRITE
  • Prompt: ?19,"Dispensed at: ",APCHSITE,!
  • Line Location: MEDDSP+28
Function Call: WRITE
  • Prompt: ?21,"Most recent issue date: ",$$FMTE^XLFDT($P(^PSRX(APCHSRX,0),U,13),5),!
  • Line Location: MEDDSP+32
Function Call: WRITE
  • Prompt: ?21,"# times prev filled: ",Y-1
  • Line Location: MEDDSP+36
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP+36
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP+36
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+37
Function Call: WRITE
  • Prompt: APCHSDAT,?19,APCHSMED," ",APCHSEXP,!
  • Line Location: NVADSP+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED - [#9000010.14] CONT+7, MEDBLD+4, MEDBLD+5, MEDDSP+4, MEDDSP+14, MEDDSP+18
^AUPNVMED("AA" CONT+5, CONT+12
^AUPNVSIT - [#9000010] MEDDSP+18, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4] SITE+4
^PS(51 - [#51] SIG+2
^PS(55 - [#55] CHRONIC+3, MEDDSP+7
^PSDRUG - [#50] MEDBLD+6, MEDBLD+9, MEDDSP+12, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24
^PSRX - [#52] MEDDSP+32, REF+2
^PSRX("APCC" CHRONIC+2, MEDDSP+6
^TMP($J CONT+4!, CONT+8*, CONT+9, CONT+10*, CONT+11!, CONT+18, MEDX+2!, CURR+1, CURR+3*, ALL+1*
, NODUP+3*, NODUP+4, NODUP+5*, CHRONIC+1, CHRONIC+5*, MEDDSP+2, MEDDSP+33, MEDDSP+36, NVADSP+3, NVADSP+4
, NVADSP+6

Label References

Name Line Occurrences
@( MEDBLD+11
CONT MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD CONT+12
MEDDSP CONT+18
MEDX CONT+15
NVADSP MEDDSP+3
REF MEDDSP+17
SIG MEDDSP+16
SITE MEDDSP+19

Naked Globals

Name Field # of Occurrence
^( CHRONIC+2, MEDDSP+6
^(21 SITE+2
^(9 SIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCHCRX MEDDSP+20*, MEDDSP+21*, MEDDSP+22*, MEDDSP+23*, MEDDSP+24*, MEDDSP+26
>> APCHORTS MEDDSP+14*, MEDDSP+15
>> APCHQUIT MEDDSP+31
APCHSALL MEDX+1!
>> APCHSBRK CONT+2
>> APCHSCC CONT+18*
>> APCHSCHR MEDBLD+10*, NODUP+3, NODUP+5
>> APCHSCKP CONT+2, CONT+15, MEDDSP+25, MEDDSP+29, MEDDSP+31, MEDDSP+35, NVADSP+7, NVADSP+9
APCHSCRN MEDX+1!, MEDDSP+7*, MEDDSP+26
>> APCHSCVD MEDDSP+8, MEDDSP+13, NVADSP+2, NVADSP+5
APCHSDAT MEDX!, MEDDSP+8*, MEDDSP+26, NVADSP+2*, NVADSP+8
APCHSDC MEDX!, MEDBLD+8*, CURR+3, ALL+1, NODUP+5, CHRONIC+5, MEDDSP+9*, MEDDSP+13, MEDDSP+15, NVADSP+3*
, NVADSP+5
>> APCHSDLM CONT+5, CONT+12, CONT+16
APCHSDLU MEDX!
APCHSDRG MEDX+1!
APCHSDTM MEDX!, MEDBLD+7*, CURR+2, MEDDSP+8*, MEDDSP+10, NVADSP+2*
APCHSDYS MEDX!, MEDBLD+8*, CURR+2, MEDDSP+9*, MEDDSP+27
APCHSEXP MEDX!, MEDDSP+11*, MEDDSP+13*, MEDDSP+15*, MEDDSP+27, NVADSP+1*, NVADSP+5*, NVADSP+8
APCHSFN CONT+26*, CONT+28!
APCHSICL MEDDSP+30*!, NVADSP+10*!
APCHSIEN MEDX!, MEDDSP+5*, MEDDSP+33, MEDDSP+36
APCHSIG MEDX!, MEDDSP+9*, MEDDSP+16*, MEDDSP+17*, MEDDSP+18*, MEDDSP+30, SIG+1, SIG+2, NVADSP+6*, NVADSP+10
APCHSITE MEDX+1!, MEDDSP+28, SITE+1*, SITE+2*, SITE+4*
APCHSIVD CONT+5*, CONT+10, CONT+12*, CONT+18*, MEDX!, MEDBLD+7, CURR+3, ALL+1, NODUP+3, NODUP+5
, CHRONIC+5, MEDDSP+2, MEDDSP+8, NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6
APCHSMED MEDX!, MEDDSP+12*, MEDDSP+26, NVADSP+4*, NVADSP+8
APCHSMFX MEDX!, MEDBLD+9*, CURR+1, CURR+3, ALL+1, NODUP+3, NODUP+4, NODUP+5, CHRONIC+1, CHRONIC+5
, MEDDSP+9*, MEDDSP+12, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24
APCHSMTS MEDX!
APCHSMTY MEDSCURR+1*, MEDSALL+1*, MEDSCHRN+1*, MEDSNDUP+1*, MEDX+1!, MEDBLD+11
APCHSMX CONT+5*, CONT+7, CONT+12*, MEDX!, MEDBLD+4, MEDBLD+5, MEDBLD+10, CURR+3, ALL+1, NODUP+3
, NODUP+5, CHRONIC+2, CHRONIC+5, MEDDSP+2*, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+14, MEDDSP+18
APCHSN MEDX!, MEDBLD+5*, MEDBLD+6, MEDBLD+8, MEDBLD+9, MEDDSP+4*, MEDDSP+5, MEDDSP+9, MEDDSP+12
APCHSNAB MEDX+1!
APCHSNFL MEDX+1!
APCHSNON MEDX!
>> APCHSNPG CONT+2
APCHSNRQ MEDDSP+30*!, NVADSP+10*!
APCHSNSH MEDX+1!
APCHSP MEDX!, MEDDSP+30!, SIG+1*, SIG+2, NVADSP+10!
>> APCHSPAT CONT+5, CONT+12, CHRONIC+3, MEDDSP+7
>> APCHSQ CONT+12*, CONT+18*
>> APCHSQIT CONT+2, CONT+15, CONT+24, MEDDSP+25, MEDDSP+29, MEDDSP+35, NVADSP+7, NVADSP+9
APCHSQTY MEDX!, MEDDSP+9*, MEDDSP+26
APCHSREF MEDX+1!, MEDDSP+17, REF+1*, REF+2*, REF+3*
APCHSRFL MEDX+1!, REF+2*, REF+3
APCHSRX MEDX+1!, MEDDSP+6*, MEDDSP+7, MEDDSP+32, REF+1, REF+2
APCHSSGY MEDX!, MEDDSP+16, SIG+1*, SIG+3*
APCHST CONT+26*, CONT+28!
APCHSTXT MEDX+1!, MEDDSP+30*, NVADSP+10*
APCHSVDF MEDX!, MEDDSP+9*, SITE+2, SITE+3, SITE+4
APCHSVSC MEDX+1!
DT CURR+2, MEDDSP+10
DUZ(2 SITE+4
>> I MEDDSP+36*
>> M CONT+7*, CONT+8, CONT+9, CONT+10
U CONT+8, CONT+9, CONT+10, CONT+18, MEDBLD+6, MEDBLD+8, MEDBLD+9, MEDDSP+2, MEDDSP+3, MEDDSP+9
, MEDDSP+12, MEDDSP+14, MEDDSP+18, MEDDSP+21, MEDDSP+22, MEDDSP+23, MEDDSP+24, MEDDSP+32, MEDDSP+33, MEDDSP+36
, REF+2, SITE+2, SITE+3, SITE+4, NVADSP+3, NVADSP+4, NVADSP+6
>> V MEDDSP+18*
X CONT+9*, CONT+10, MEDX+3!, CURR+2, CHRONIC+2*, CHRONIC+3, SIG+1*, SIG+2*, SIG+3
X1 MEDX+3!, CURR+2*, MEDDSP+10*
X2 MEDX+3!, CURR+2*, MEDDSP+10*
Y MEDX+3!, CHRONIC+3*, CHRONIC+4, MEDDSP+8*, MEDDSP+13*, MEDDSP+15, MEDDSP+33*, MEDDSP+34, MEDDSP+36, SIG+2*
, NVADSP+2*, NVADSP+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All