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

Package: Patient Care Component

Routine: APCDALGQ


Information

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

Source Information

Source file <APCDALGQ.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
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  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
HEAD
PROC1 ;
ZIS ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
ED ;get ending date
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 ED+1, ED+4, PRINT+2
C^%DTC ED+4
HOME^%ZIS START+2
$$START1^APCLDF LASTVD+3
$$DOB^AUPNPAT PRINT+8
$$DOD^AUPNPAT PROC1+1
$$HRN^AUPNPAT PRINT+8
^DIR BD+2, ED+1, 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 ENTERED ONTO THE *******",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: " ******* PCC PROBLEM LIST IN A SPECIFIED TIME PERIOD *******"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"This report will produce a list of patients who have had allergies entered"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"onto their problem list in a specified date range. If you are using"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"this list to populate the Allergy Tracking module you should"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,"first run the Option 'List all patients with Allergies on their"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"problem list'. You would use that report to enter the allergies"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"into the Allergy tracking module. When you have finished that list"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,"you can use this list to pick up any allergies entered onto the problem"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"list after you have ran and processed that list.",!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,"Please enter the date range for which allergies have been entered",!,"onto the problem list.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+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
    • ED+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PROC+4, PROC1+2
^AUPNPROB - [#9000011] PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+12, PROC1+30
^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+30
^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("APCDALGQ" PROC1+4*, PRINT+4, PRINT+6, PRINT+11, DONE+1!

Label References

Name Line Occurrences
$$CTR HEAD1+4, HEAD1+5
BD ED+2
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+4*, ED+1, ED+4, PROC1+5, PRINT+2
>> APCDBDD ED+4*, PRINT+2*, HEAD1+5
>> APCDBT PROC+1*
APCDBTH PROC+1*, PROC1+4, PRINT+4, PRINT+6, PRINT+11, DONE+1!
>> APCDED ED+3*, ED+4, PROC1+6, PRINT+2
>> APCDEDD ED+4*, PRINT+2*, HEAD1+5
>> APCDET PROC+3*
>> APCDICD PROC1+10*, PROC1+11, PROC1+14, PROC1+15, 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
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*
>> APCDSD ED+4*
>> APCDSNKA PROC1+13*, PROC1+30*
>> APCDTOT PROC+1*
>> APCDX PROC1+4*, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+12, PROC1+30
>> B LASTVD+3*
BDATE LASTVD~, LASTVD+3
>> DFN PROC+4*, PROC1+1, PROC1+2, PROC1+4, PRINT+6*, PRINT+8, PRINT+11
DIR BD+2!, ED+1!, HEAD+1!
DIR("A" BD+2*, ED+1*
DIR(0 BD+2*, ED+1*, HEAD+1*
>> DIRUT BD+2*, BD+3, ED+1*, ED+2
DT XTMP+2
>> DTOUT HEAD+1
>> DUOUT BD+2, ED+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+14*, PROC1+15*, 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+30*, 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+30*
P LASTVD~, LASTVD+1, LASTVD+3
T XTMP~, XTMP+2
U XTMP+2, PROC1+2, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+10, PROC1+12, PROC1+30, 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 ED+4, LASTVD+5*, CTR~, CTR+1, HEAD1+4*, HEAD1+5*
>> X1 ED+4*
>> X2 ED+4*
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+4, ED+1*, ED+3, ED+4*, 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