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

Package: Patient Care Component

Routine: APCDALGP


Information

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

Source Information

Source file <APCDALGP.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
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
HOME^%ZIS START+2
$$START1^APCLDF LASTVD+3
$$DOB^AUPNPAT PRINT+8
$$DOD^AUPNPAT PROC1+1
$$HRN^AUPNPAT PRINT+8
^DIR GETDATES+2, GETDATES+6, HEAD+1
$$ICDDX^ICDEX PROC1+10
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PRINT+12
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMADD^XLFDT 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: !,"prompted to enter the beginning and ending first character of "
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,"the last name the patient. You can then print all patients whose last"
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,"name begins with A through C the first time and D through H the second, etc."
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,"If you want all patients then when prompted to do so enter A and Z as the"
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !,"beginning and ending characters.",!!
  • Line Location: START+19
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:
    • GETDATES+2
    • GETDATES+6
    • HEAD+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CTR HEAD1+4, HEAD1+5
DONE PRINT+4
HEAD PRINT+4, PRINT+5, PRINT+7
HEAD1 HEAD
PROC1 PROC+4
XIT START+1, GETDATES+3, GETDATES+7
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
>> APCDBC GETDATES+1*, GETDATES+4*, PROC1+6, HEAD1+5
>> APCDBT PROC+1*
APCDBTH PROC+1*, PROC1+4, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDEC GETDATES+5*, GETDATES+8*, PROC1+7, HEAD1+5
>> APCDET PROC+3*
>> APCDICD PROC1+10*, PROC1+11, PROC1+16, PROC1+17, PROC1+18, PROC1+19, PROC1+20, PROC1+21, PROC1+22, PROC1+23
, PROC1+24, PROC1+25, PROC1+26, PROC1+27, PROC1+28, PROC1+29, PROC1+30
APCDJOB PROC+1*, PROC1+4, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDP PROC1+8*, PROC1+9, PROC1+10, PRINT+11*, PRINT+12
>> APCDPG PRINT+3*, HEAD, HEAD1+1*, HEAD1+2
>> APCDQ PRINT+6, PRINT+7, PRINT+11, HEAD+1*
>> APCDSNKA PROC1+15*, PROC1+32*
>> APCDTOT PROC+1*
>> APCDX PROC1+4*, PROC1+8, PROC1+12, PROC1+13, PROC1+14, PROC1+32
>> B LASTVD+3*
BDATE LASTVD~, LASTVD+3
>> C PROC1+5*, PROC1+6, PROC1+7
DA GETDATES+2!, GETDATES+6!
>> DFN PROC+4*, PROC1+1, PROC1+2, PROC1+4, PROC1+5, PRINT+6*, PRINT+8, PRINT+11
DIR GETDATES+2!, GETDATES+6!, HEAD+1!
DIR("A" GETDATES+2*, GETDATES+6*
DIR(0 GETDATES+2*, GETDATES+6*, HEAD+1*
>> DIRUT GETDATES+3, GETDATES+7
DT XTMP+2
>> DTOUT HEAD+1
DUZ USR+1, HEAD1+2
DUZ(2 PROC1+2, PRINT+8, LOC+1, HEAD1+3
>> E LASTVD+3*
EDATE LASTVD~, LASTVD+3
>> G PROC1+4*, PROC1+16*, PROC1+17*, PROC1+18*, PROC1+19*, PROC1+20*, PROC1+21*, PROC1+22*, PROC1+23*, PROC1+24*
, PROC1+25*, PROC1+26*, PROC1+27*, PROC1+28*, PROC1+29*, PROC1+30*, PROC1+32*, 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+32*
P LASTVD~, LASTVD+1, LASTVD+3
T XTMP~, XTMP+2
U XTMP+2, PROC1+2, PROC1+8, PROC1+10, PROC1+12, PROC1+13, PROC1+14, PROC1+32, 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 GETDATES+4, GETDATES+8, 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