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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHPWHR

Package: Patient Care Component

Routine: APCHPWHR


Information

APCHPWHR ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;

Source Information

Source file <APCHPWHR.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Kernel 3 ($$FMADD,$$FMTE)^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
IHS Patient 1 $$HRN^AUPNPAT  
Patient Care Component 1 $$DATE^APCHSMU  
Patient Care Component Reports 1 ($$DEMO,DEMOCHK)^APCLUTL  
Registration 1 (CLEAR,FULL)^VALM1  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOCT ;
PROVT1 ;
S(T) ;
USR() ;EP - Return name of current user from ^VA(200.
HELP ;EP -- help code
PRINT ;
HDR ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HDR1 ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
LMEXIT ; -- exit code
SORT ;
LOCT1 ;
EN ;
ZIS ;EP
ED ;get ending date
N ;
HEADER ;
PROVT ;
TYPE1 ;
EXIT1 ;
HEAD1 ;
LIST ;
EXPND ; -- expand code
GETDATES ;
EXIT ;
TYPE ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
$$DATE^APCHSMU PRINT+29
$$DEMO^APCLUTL EN+11
DEMOCHK^APCLUTL ZIS+1
$$HRN^AUPNPAT PRINT+28
^DIC TYPE1+1, LOCT1+1, PROVT1+1
^DIR BD+1, ED+1, TYPE+2, LOCT+2, PROVT+3, LIST+2, SORT+3, ZIS+3, HEADER+2, HDR+2
CLEAR^VALM1 EXIT1+1, LMEXIT+2
FULL^VALM1 EXIT1+2, LMEXIT+3
^XBDBQUE ZIS+8, BROWSE+2
$$VAL^XBDIQ1 PRINT+16, PRINT+18, PRINT+19, PRINT+20, PRINT+28, PRINT+29, PRINT+30, EN+16, EN+17, EN+18
$$VALI^XBDIQ1 PRINT+17, PRINT+28, PRINT+29, PRINT+30
^XBFMK EXIT+4, EXIT1+5
EN^XBVK EXIT+2, EXIT1+3
$$FMADD^XLFDT EN+4
$$FMTE^XLFDT HEAD1+3, HEAD1+4, HDR1+3, HDR1+5
$$REPEAT^XLFSTR HEAD1+6
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will tally the number of Patient Wellness Handouts given to"
  • Line Location: APCHPWHR+4
Function Call: WRITE
  • Prompt: !,"patients. The user will be able to tally based on handout type, location"
  • Line Location: APCHPWHR+5
Function Call: WRITE
  • Prompt: !,"date the handout was generated and user/provider who generated the handout."
  • Line Location: APCHPWHR+6
Function Call: WRITE
  • Prompt: !,"Optionally, the user can produce a list of patients receiving the handout."
  • Line Location: APCHPWHR+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: APCHPWHR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE1+1
Function Call: WRITE
  • Prompt: !,"No handout types selected."
  • Line Location: TYPE1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCT1+1
Function Call: WRITE
  • Prompt: !,"No locations selected."
  • Line Location: LOCT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVT1+1
Function Call: WRITE
  • Prompt: !,"No providers selected."
  • Line Location: PROVT1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+3
Function Call: WRITE
  • Prompt: !!,"No data to report.",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"No data to report.",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: N+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********",!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"Patient Wellness Handout",?45,"Report Date: ",$$FMTE^XLFDT(DT),?72,"Page: ",APCHPG,!,$TR($J("",(IOM-2))," ","-"),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"HRN",?8,"Patient Name",?30,"Date",?39,"Type",?60,"Provider",?75,"Loc"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********",!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: $$CTR("PATIENT WELLNESS HANDOUT TALLY",80),!
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: $$CTR("Date Range: "_$$FMTE^XLFDT(APCHBD)_" - "_$$FMTE^XLFDT(APCHED)),!
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: "--------------------------------------------------------------------",!
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: "LOCATION",?55,"#",!
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: "--------------------------------------------------------------------",!
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • TYPE1+1
    • LOCT1+1
    • PROVT1+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • TYPE+2
    • LOCT+2
    • PROVT+3
    • LIST+2
    • SORT+3
    • ZIS+3
    • HEADER+2
    • HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^APCHPWHT - [#9001026] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHPWHL - [#9001027] EN+9, EN+10
^APCHPWHL("AC" EN+7, EN+8
^APCHPWHT - [#9001026] HDR1+6
^DIC(4 - [#4] LOC+1, HDR1+8
^VA(200 - [#200] HEAD1+3, USR+1, HDR1+3, HDR1+10
^XTMP("APCHPWHR" PRINT+3, PRINT+13, PRINT+22*, PRINT+25, PRINT+26, EN+3!, EN+4*, EN+19*

Label References

Name Line Occurrences
$$CTR HDR1+4, HDR1+5
BD ED+2
BROWSE ZIS+6
EXIT BD+2, LIST+3, SORT+4, ZIS+4, ZIS+6
EXIT1 ZIS+9
GETDATES TYPE+3
HDR PRINT+4, PRINT+6, PRINT+8
HDR1 HDR+1
HEAD1 HEADER+1
HEADER PRINT+3, PRINT+24, PRINT+27
LIST PROVT+5, PROVT1+3, ZIS+2
LOCT TYPE+4, TYPE1+3, PROVT+4, PROVT1+2
LOCT1 LOCT1+5
N PRINT+23
PROVT LOCT+4, LOCT1+3
PROVT1 PROVT1+5
S EN+22, EN+23, EN+25, EN+26, EN+27
TYPE TYPE1+2, LOCT+3, LOCT1+2
TYPE1 TYPE1+5
ZIS LIST+5

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCHBD BD+3*, ED+1, ED+4, HDR1+5
>> APCHCNT EN+1*, S+1*, S+2
>> APCHDEMO ZIS+1, ZIS+2, EN+11
>> APCHED ED+3*, EN+7, HDR1+5
>> APCHH APCHPWHR+9*, PRINT+3, PRINT+13, PRINT+22, PRINT+25, PRINT+26, EN+3, EN+19
>> APCHIEN PRINT+13*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+26*, PRINT+28, PRINT+29
, PRINT+30, EN+8*, EN+9, EN+10, EN+16, EN+17, EN+18, EN+19
>> APCHJ APCHPWHR+9*, PRINT+3, PRINT+13, PRINT+22, PRINT+25, PRINT+26, EN+3, EN+19
>> APCHLIST LIST+1*, LIST+4*, LIST+5, PRINT+3, PRINT+23
APCHLOCT LOCT+1!, LOCT+5!, LOCT1+2, LOCT1+3, EN+14, HDR1+9
APCHLOCT( LOCT1+4*, EN+14, HDR1+8
APCHN EN+5~, EN+9*, EN+12, EN+13, EN+14, EN+15
>> APCHOPT ZIS+5*
>> APCHPG PRINT+1*, HEADER+1, HEAD1+2*, HEAD1+4, HDR+1, HDR1+2*
APCHPRVT PROVT+2!, PROVT+6!, PROVT1+2, PROVT1+3, EN+15, HDR1+11
APCHPRVT( PROVT1+4*, EN+15, HDR1+10
>> APCHPWHC PRINT+4, EN+1*, EN+19*
APCHPWHT EN+2!, LMEXIT+1!
APCHPWHT( PRINT+7, PRINT+9, S+2*
APCHQUIT PRINT+2!, PRINT+8, PRINT+11, PRINT+25, PRINT+26, PRINT+27, HEADER+2*, HDR+2*
>> APCHSD ED+4*, EN+7*, EN+8
>> APCHSORT LIST+5*, SORT+1*, SORT+5*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20
>> APCHSV PRINT+25*, PRINT+26
APCHT EN+2!, LMEXIT+1!
APCHT( EN+16*, EN+17*, EN+18*, EN+21, EN+23, EN+24, EN+25, EN+26, EN+27
APCHTYPE TYPE+1!, TYPE1+2, TYPE1+3, EN+13, HDR1+7
APCHTYPE( TYPE1+4*, EN+13, HDR1+6
>> APCHX PRINT+7*, PRINT+9
DA TYPE+2!, LOCT+2!, PROVT+3!, LIST+2!, SORT+3!, ZIS+3!
DFN EXIT+3!, EXIT1+4!
DIC TYPE1+1*, LOCT1+1*!, PROVT1+1*!
DIC("A" TYPE1+1*, LOCT1+1*, PROVT1+1*
DIC(0 TYPE1+1*, LOCT1+1*, PROVT1+1*
DIR BD+1!, ED+1!, TYPE+2!, LOCT+2!, PROVT+3!, LIST+2!, SORT+3!, ZIS+3!, HEADER+2!, HDR+2!
DIR("A" BD+1*, ED+1*, TYPE+2*, LOCT+2*, PROVT+3*, LIST+2*, SORT+2*, ZIS+3*
DIR("B" TYPE+2*, LOCT+2*, PROVT+3*, LIST+2*, SORT+3*, ZIS+3*
DIR(0 BD+1*, ED+1*, TYPE+2*, LOCT+2*, PROVT+3*, LIST+2*, SORT+2*, ZIS+3*, HEADER+2*, HDR+2*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, TYPE+3, LOCT+3, PROVT+4, LIST+3, SORT+4, ZIS+4
DT HEAD1+3, HEAD1+4, EN+4, HDR1+3
>> DTOUT HEADER+2, HDR+2
>> DUOUT BD+1, ED+1
DUZ HEAD1+3, USR+1, HDR1+3
DUZ(2 PRINT+28, LOC+1
IO HEADER+2, HDR+2
IO(0 HEADER+2, HDR+2
IOF APCHPWHR+3, HEAD1+1, HDR1+1
IOM HEAD1+4, CTR+1
IOSL PRINT+8, PRINT+27
IOST HEADER+2, HDR+2
L EN+5~, EN+21*, EN+23, EN+24, EN+25, EN+26, EN+27
P EN+5~, EN+10*, EN+11, EN+26*, EN+27
T EN+5~, EN+24*, EN+25, EN+26, EN+27, S~, S+2
U HEAD1+3, USR+1, LOC+1, EN+10, EN+12, EN+13, EN+14, EN+15, HDR1+3, HDR1+6
, HDR1+8, HDR1+10
>> V PRINT+15*, PRINT+16*, PRINT+17*, PRINT+18*, PRINT+19*, PRINT+20*, PRINT+21*, PRINT+22
X ED+4, CTR~, CTR+1, EN+5~, HDR1+6*, HDR1+8*, HDR1+10*, HELP+1*
>> X1 ED+4*
>> X2 ED+4*
>> XBIOP BROWSE+2*
>> XBNS ZIS+7*
>> XBRC ZIS+7*, BROWSE+2*
>> XBRP ZIS+7*, BROWSE+1*
>> XBRX ZIS+7*, BROWSE+2*
Y BD+3, ED+1*, ED+3, TYPE+4, TYPE1+2, TYPE1+3, TYPE1+4, LOCT+4, LOCT1+2, LOCT1+3
, LOCT1+4, PROVT+5, PROVT1+2, PROVT1+3, PROVT1+4, LIST+4, SORT+5, ZIS+5, ZIS+6, HEADER+2
, CTR~, CTR+1, EN+5~, EN+23*, EN+25*, EN+27*, HDR+2, HDR1+6*, HDR1+7, HDR1+8*
, HDR1+9, HDR1+10*, HDR1+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All