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

Package: Patient Care Component

Routine: APCHS79


Information

APCHS79 ; IHS/CMI/LAB - HEALTH SUMMARY COMPONENT FOR ALLERGY FILE (PATIENT ALLERGY) ;

Source Information

Source file <APCHS79.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$CJ^XLFSTR  
Patient Care Component Reports 1 ($$LASTALR,$$LASTALU,$$LASTNAA)^APCLAPI6  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Care Component 2 APCHPALG  APCHS70  
IHS View Patient Record 1 BVPENV  

Entry Points

Name Comments DBIA/ICR reference
INACTIVE(%) ;EP - is ALLERGY INACTIVE? 1- yes, 0- no
END ;CLEAN UP
EN ;START HERE
REV ;get date last reviewed and display
TEST(CHECKIT) ;CHECK IF VERIFED AND NOT ENTERED IN ERROR

External References

Name Field # of Occurrence
$$LASTALR^APCLAPI6 REV+1
$$LASTALU^APCLAPI6 REV+4
$$LASTNAA^APCLAPI6 REV+7
$$FMTE^XLFDT EN+8, EN+14, EN+57, REV+3, REV+6, REV+10
$$CJ^XLFSTR EN+8, EN+9, EN+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("WARNING: ENTRIES EXIST FOR DRUGS NOT VERIFIED",80),!
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: $S(APCHMEC="A":"ALLERGIES:",APCHMEC="P":"ADVERSE REACTIONS:",1:"UNSPECIFIED:"),!
  • Line Location: EN+51
Function Call: WRITE
  • Prompt: $S(APCHMEC="A":"ALLERGIES:",APCHMEC="P":"ADVERSE REACTIONS:",APCHMEC="W":"UNVERIFIED:",1:"UNSPECIFIED:"),!
  • Line Location: EN+52
Function Call: WRITE
  • Prompt: $S(APCHMEC="A":"ALLERGIES:",APCHMEC="P":"ADVERSE REACTIONS:",1:"UNSPECIFIED:"),!
  • Line Location: EN+53
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+59
Function Call: WRITE
  • Prompt: !,"Allergy List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),!
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: "Allergy List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+6
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),!
  • Line Location: REV+6
Function Call: WRITE
  • Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+9
Function Call: WRITE
  • Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),!
  • Line Location: REV+9
Function Call: WRITE
  • Prompt: "No Active Allergies Documented On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+10
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),!
  • Line Location: REV+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] EN+6, EN+10, EN+11, EN+12, EN+16, EN+20, EN+33, EN+34, EN+36, TEST+4
, INACTIVE+2, INACTIVE+5, INACTIVE+6, INACTIVE+7
^GMR(120.86 - [#120.86] EN+7, EN+8
^GMRD(120.83 - [#120.83] EN+35
^VA(200 - [#200] REV+3, REV+6, REV+10

Label References

Name Line Occurrences
$$INACTIVE EN+19
$$TEST EN+18
END EN+5, REV+11
REV EN+6, EN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INACTIVE~, INACTIVE+1, INACTIVE+2, INACTIVE+5, INACTIVE+6, INACTIVE+7
APCHALG EN+16*, EN+18, EN+19, EN+20, EN+33, EN+34, EN+36, EN+43, EN+49*, EN+50
, EN+57, END+1!
>> APCHCNT EN+38*, EN+41
APCHDATA EN+32!, EN+38*, EN+40*, EN+41*, EN+43
APCHDATA( EN+35*, EN+36*, EN+38, EN+41
APCHDATE EN+31*, EN+43, EN+48*, EN+49, EN+50, EN+57, END+1!
APCHDFN EN+1*, EN+3, EN+6!, EN+7, EN+8, EN+10, EN+11, EN+16
>> APCHDRUG EN+27*, EN+28*, EN+29*, EN+43
APCHENT END+1!
APCHENT( EN+43*, EN+47, EN+48, EN+49, EN+50, EN+57
APCHMEC EN+24*, EN+43, EN+47*, EN+48, EN+49, EN+50, EN+53, EN+54, EN+57, END+1!
>> APCHNKAD EN+12*, EN+14
APCHNKAI EN+2!, EN+11*, EN+12, EN+15
>> APCHNN EN+37*, EN+39*, EN+40
>> APCHPEC EN+20*, EN+21, EN+22, EN+24, EN+26, EN+27, EN+31
APCHPREV EN+46*, EN+53, EN+54*, END+1!
>> APCHREC EN+33*, EN+34, EN+36
>> APCHRNUM EN+34*, EN+35, EN+36
>> APCHSBRK EN+5
>> APCHSCKP EN+5, EN+58, EN+59, REV+2, REV+5, REV+8
>> APCHSNPG EN+5, EN+59
>> APCHSPAT EN+1, REV+1, REV+4, REV+7
APCHSPCE EN+29*, END+2!
>> APCHSQIT EN+5, EN+16, EN+47, EN+48, EN+49, EN+58, EN+59, REV+2, REV+5, REV+8
>> APCHSX REV+1*, REV+3, REV+4*, REV+6, REV+7*, REV+10
APCHVER EN+17*, EN+26*, EN+43, END+2!
APCHWARN END+1!
CHECK TEST+1~, TEST+2*, TEST+4*, TEST+7
CHECKIT TEST~, TEST+4
DT REV+1, REV+4, REV+7
INACT INACTIVE+3~, INACTIVE+6*, INACTIVE+8
INZ INACTIVE+3~, INACTIVE+4*, INACTIVE+8*, INACTIVE+9
IOM EN+9
REACT INACTIVE+3~, INACTIVE+7*, INACTIVE+8
U EN+7, EN+8, EN+12, EN+22, EN+24, EN+26, EN+27, EN+31, EN+35, EN+36
, REV+3, REV+6, REV+10, TEST+4, INACTIVE+6, INACTIVE+7
Z INACTIVE+3~, INACTIVE+5*, INACTIVE+6, INACTIVE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All