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

Package: Patient Care Component

Routine: APCHS7C


Information

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

Source Information

Source file <APCHS7C.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Patient Care Component 3 MEDRU^APCHS7  $$CHRONIC^APCHS72  PRTTXT^APCHSUTL  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^%DTC  

Entry Points

Name Comments DBIA/ICR reference
MEDBLD ;BUILD ARRAY OF MEDICATIONS
CONT ; <SETUP>
CTR(X,Y) ;EP - Center X in a field Y wide.
MEDSNDUP ; ************* ALL, NON DUPLICATED *************
NODUP ;
SITE ;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
CS(D) ;
NVADSP ;
SIG ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
MEDDSP ;DISPLAY MEDICATION
MEDX
NONVA ;EP ;quit if chronic
REF ;EP - DETERMINE THE NUMBER OF REFILLS REMAINING

External References

Name Field # of Occurrence
^%DTC MEDDSP+11
MEDRU^APCHS7 CONT+32
$$CHRONIC^APCHS72 MEDBLD+9
PRTTXT^APCHSUTL MEDDSP+31, NVADSP+11
$$VAL^XBDIQ1 CONT+12
$$VALI^XBDIQ1 MEDDSP+15
$$FMTE^XLFDT CONT+12, MEDDSP+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: APCHSDAT,?10,?14,APCHSMED
  • Line Location: MEDDSP+24
Function Call: WRITE
  • Prompt: " #",APCHSQTY
  • Condition for execution: APCHSQTY
  • Line Location: MEDDSP+24
Function Call: WRITE
  • Prompt: " (",APCHSDYS," days) "
  • Condition for execution: APCHSDYS
  • Line Location: MEDDSP+25
Function Call: WRITE
  • Prompt: APCHSEXP
  • Line Location: MEDDSP+25
Function Call: WRITE
  • Prompt: "(expires "_APCHEXPD_")"
  • Line Location: MEDDSP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+27
Function Call: WRITE
  • Prompt: ?14,"Dispensed at: ",APCHSITE,!
  • Line Location: MEDDSP+28
Function Call: WRITE
  • Prompt: ?14,"("_APCHSALT_")",!
  • Line Location: MEDDSP+29
Function Call: WRITE
  • Prompt: ?16,"Previous fill dates:",!
  • Line Location: MEDDSP+35
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+41
Function Call: WRITE
  • Prompt: APCHSDAT,?10,$S(APCHSCRX:"CRX",1:""),?14,APCHSMED," ",APCHSEXP,!
  • Line Location: NVADSP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED - [#9000010.14] CONT+6, CONT+7, CONT+12, NONVA+3, MEDBLD+3, MEDBLD+4, MEDBLD+5, MEDDSP+5, MEDDSP+14, MEDDSP+17
, MEDDSP+21
^AUPNVMED("AA" CONT+5, CONT+14
^AUPNVSIT - [#9000010] MEDDSP+21, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4] SITE+4
^PS(50.7 - [#50.7] NONVA+15
^PS(51 - [#51] SIG+2
^PS(55 - [#55] NONVA+1, NONVA+3, NONVA+6, NONVA+11, NONVA+15, NONVA+18, NONVA+20, MEDDSP+8
^PSDRUG - [#50] CONT+8, NONVA+15, MEDBLD+6, MEDBLD+9, MEDDSP+13, CS+1, CS+2
^PSRX - [#52] REF+2
^PSRX("APCC" MEDDSP+7
^TMP($J CONT+4!, CONT+10*, CONT+11, CONT+12*, CONT+13!, CONT+18, CONT+20, CONT+22, CONT+24, MEDX+2!
, NONVA+18*, NONVA+19, NONVA+20*, NODUP+3*, NODUP+4, NODUP+5*, MEDDSP+2, MEDDSP+4, MEDDSP+32, MEDDSP+36
, MEDDSP+38, MEDDSP+39, MEDDSP+40, NVADSP+3, NVADSP+4, NVADSP+5, NVADSP+7

Label References

Name Line Occurrences
$$CS CONT+9, NONVA+13, NONVA+14, MEDBLD+7, MEDBLD+10
@( MEDBLD+11
MEDBLD CONT+14
MEDDSP CONT+19, CONT+21, CONT+23, CONT+25
NONVA CONT+15
NVADSP MEDDSP+3
REF MEDDSP+20
SIG MEDDSP+19
SITE MEDDSP+22

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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