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

Package: Patient Care Component

Routine: APCDALGR


Information

APCDALGR ; IHS/CMI/LAB - PRINT ALLERGY LIST FROM PROBLEM LIST ;

Source Information

Source file <APCDALGR.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Kernel 2 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 2 DD^%DT  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
Patient Care Component Reports 1 $$START1^APCLDF  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
HEAD
ZIS ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
PROC1 ;
USR() ;EP - Return name of current user from ^VA(200.
START ;
CTR(X,Y) ;EP - Center X in a field Y wide.
GETDATES ;
XIT ;
HEAD1 ;
XTMP(N,T) ;EP
PRINT ;
DONE ;
PROC ;EP - entry point for processing
LASTVD(P,BDATE,EDATE) ;

External References

Name Field # of Occurrence
DD^%DT PRINT+2
HOME^%ZIS START+2
$$START1^APCLDF LASTVD+3
$$DOB^AUPNPAT PRINT+8
$$HRN^AUPNPAT PRINT+8
^DIR BD+2, HEAD+1
$$ICDDX^ICDEX PROC1+5
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PRINT+12
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMADD^XLFDT BD+6, XTMP+2
$$FMTE^XLFDT LASTVD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "******* LIST OF PATIENTS WITH ALLERGIES ON PROBLEM LIST *******",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: "This report will produce a list of patients who have an allergy or NKA",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: "entered on the PCC Problem List.",!,"The pharmacy staff can use this list to add these allergies "
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"into the Allergy Tracking module. When you have finished processing this list"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"you can then run the Option 'List Patients w/Allergies entered in a Date Range'"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,"to pick up any allergies entered onto the Problem list after you"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"ran this report. Deceased patients and patients with inactive charts"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"are not included on this list."
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!,"This list can be very long at sites with many patients and whose"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"providers have been maintaining up to date problem lists."
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !,"In order to make the list more manageable at those sites you will be"
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,"able to limit the list to just those patients seen in the past N years.",!!
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,"The report should list all patients seen in the past N years.",!,"Enter the number of years."
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $P(^VA(200,DUZ,0),U,2),?72,"Page ",APCDPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: "PATIENT NAME",?31,"CHART #",?45,"DOB",!,APCD80D
  • Line Location: HEAD1+6
Routine Call
  • %ZIS
  • Line Location:
    • START+2
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PROC+4
^AUPNPROB - [#9000011] PROC1+3, PROC1+7, PROC1+8, PROC1+26
^AUPNPROB("AC" PROC1+2
^AUPNVPRV("AD" LASTVD+9
^AUPNVSIT - [#9000010] LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11
^AUPNVSIT("AC" LASTVD+1
^AUTNPOV - [#9999999.27] PROC1+26
^DIC(4 - [#4] LOC+1, HEAD1+3
^DPT - [#2] PRINT+8
^TMP($J LASTVD+2!, LASTVD+4, LASTVD+5
^VA(200 - [#200] USR+1, HEAD1+2
^XTMP( XTMP+2*
^XTMP("APCDALGR" PROC1+2*, PRINT+4, PRINT+6, PRINT+11, DONE+1!

Label References

Name Line Occurrences
$$CTR HEAD1+4, HEAD1+5
$$LASTVD PROC1+1
DONE PRINT+4
HEAD PRINT+4, PRINT+5, PRINT+7
HEAD1 HEAD
PROC1 PROC+4
XIT START+1, BD+3
XTMP PROC+2

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LASTVD+3*
>> APCD80D PRINT+1*, HEAD1+6
>> APCDBD BD+6*, PROC1+1, PRINT+2
>> APCDBDD PRINT+2*, HEAD1+5
>> APCDBT PROC+1*
APCDBTH PROC+1*, PROC1+2, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDED BD+5*, PROC1+1, PRINT+2
>> APCDEDD PRINT+2*, HEAD1+5
>> APCDET PROC+3*
>> APCDICD PROC1+5*, PROC1+6, PROC1+10, PROC1+11, PROC1+12, PROC1+13, PROC1+14, PROC1+15, PROC1+16, PROC1+17
, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PROC1+22, PROC1+23, PROC1+24
APCDJOB PROC+1*, PROC1+2, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDP PROC1+3*, PROC1+4, PROC1+5, PRINT+11*, PRINT+12
>> APCDPG PRINT+3*, HEAD, HEAD1+1*, HEAD1+2
>> APCDQ PRINT+6, PRINT+7, PRINT+11, HEAD+1*
>> APCDSNKA PROC1+9*, PROC1+26*
>> APCDTOT PROC+1*
>> APCDX PROC1+2*, PROC1+3, PROC1+7, PROC1+8, PROC1+26
>> APCDYR BD+4*
>> B LASTVD+3*
BDATE LASTVD~, LASTVD+3
DA BD+2!
>> DFN PROC+4*, PROC1+1, PROC1+2, PRINT+6*, PRINT+8, PRINT+11
DIR BD+2!, HEAD+1!
DIR("A" BD+2*
DIR("B" BD+2*
DIR(0 BD+2*, HEAD+1*
>> DIRUT BD+3
DT BD+5, BD+6, XTMP+2
>> DTOUT HEAD+1
DUZ USR+1, HEAD1+2
DUZ(2 PRINT+8, LOC+1, HEAD1+3
>> E LASTVD+3*
EDATE LASTVD~, LASTVD+3
>> G PROC1+2*, PROC1+10*, PROC1+11*, PROC1+12*, PROC1+13*, PROC1+14*, PROC1+15*, PROC1+16*, PROC1+17*, PROC1+18*
, PROC1+19*, PROC1+20*, PROC1+21*, PROC1+22*, PROC1+23*, PROC1+24*, PROC1+26*, LASTVD+5*, LASTVD+12*, LASTVD+14
IO HEAD+1
IO(0 HEAD+1
IOF START+2, START+3, HEAD1+1
IOM CTR+1
IOSL PRINT+7
IOST HEAD+1
N XTMP~, XTMP+1, XTMP+2, PROC1+26*
P LASTVD~, LASTVD+1, LASTVD+3
T XTMP~, XTMP+2
U XTMP+2, PROC1+3, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+26, LASTVD+5, LASTVD+7, LASTVD+8
, LASTVD+10, LASTVD+11, PRINT+8, USR+1, LOC+1, HEAD1+2, HEAD1+3
>> V LASTVD+5*, LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+9, LASTVD+10, LASTVD+11
X LASTVD+5*, CTR~, CTR+1, HEAD1+4*, HEAD1+5*
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+4, BD+6, PRINT+2*, CTR~, CTR+1, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All