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 |  Local Variables |  All
Print Page as PDF
Routine: AMHLETR3

Package: Mental Health Social Services

Routine: AMHLETR3


Information

AMHLETR3 ; IHS/CMI/LAB - print report of tps needing resolved ;

Source Information

Source file <AMHLETR3.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Mental Health Social Services 5 $$LVD^AMHDPEE  $$ALLOWCD^AMHLCD  $$ALLOWTP^AMHLETP  ($$ALLOWP,DBHUSRP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  $$EXTSET^XBFUNC  EN^XBVK  
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Kernel 2 HOME^%ZIS  $$REPEAT^XLFSTR  
IHS Patient 1 $$HRN^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
DEMO ;
HEAD ;
DONE ;
D(D) ;
PRINT ;EP
THER ;
PRT2 ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
SORT ;
C ;
ZIS ;
ED ;get ending date
TP(DATE,PAT,PROV,PRG) ;
N ;
P ;
XIT ;
PROC1 ;
HEAD1 ;EP
GETDATES ;
PROG ;
PROC ;EP - entry point for processing

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4
C^%DTC ED+4
HOME^%ZIS AMHLETR3+5
$$LVD^AMHDPEE PRT2+7
$$ALLOWCD^AMHLCD PROC1+1
$$ALLOWTP^AMHLETP TP+7
$$ALLOWP^AMHUTIL PROC1+5
DBHUSRP^AMHUTIL AMHLETR3+14
$$DEMO^AMHUTIL1 PROC1+4
DEMOCHK^AMHUTIL1 DEMO+1
$$HRN^AUPNPAT PRT2+4
^DIC THER+5
^DIR BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2, ZIS+1, HEAD+3
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRT2+5, PRT2+6
$$EXTSET^XBFUNC HEAD1+9
EN^XBVK XIT+1
$$REPEAT^XLFSTR HEAD1+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: AMHLETR3+6
Function Call: WRITE
  • Prompt: "********** LIST CASES OPENED WITH NO TREATMENT PLAN IN PLACE **********",!!
  • Line Location: AMHLETR3+7
Function Call: WRITE
  • Prompt: "This report will list all patients who have a case open date,"
  • Line Location: AMHLETR3+8
Function Call: WRITE
  • Prompt: !,"no case closed date and no treatment plan in place."
  • Line Location: AMHLETR3+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AMHLETR3+10
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the case was opened.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"You can limit the report output to cases opened by one or all Programs",!
  • Line Location: PROG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROG+2
Function Call: WRITE
  • Prompt: !!,"You can limit the report output to cases opened by one or all Providers",!
  • Line Location: THER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: THER+2
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page 1 ",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: $$CTR(X),!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?23,"HRN",?31,"CASE OPEN",?41,"PROGRAM",?53,"PROVIDER",?70,"LAST VISIT"
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !?31,"DATE",!
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",80),!
  • Line Location: HEAD1+11
Routine Call
  • %ZIS
  • Line Location:
    • AMHLETR3+5
Routine Call
  • DIC
  • Line Location:
    • THER+5
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • PROG+2
    • PROG+5
    • THER+2
    • SORT+2
    • ZIS+1
    • HEAD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPCASE - [#9002011.58] PROC+2, PROC1+2, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+11, P+1, N+1, C+1
, PRT2+3, PRT2+5
^AMHPTXP - [#9002011.56] TP+5, TP+6, TP+8, TP+9, TP+10
^AMHPTXP("AC" TP+1, TP+4
^AMHSITE - [#9002013] AMHLETR3+11
^DIC(4 - [#4] HEAD1+5
^DPT - [#2] N+3, PRT2+4
^VA(200 - [#200] P+2, HEAD1+4, HEAD1+8
^XTMP("AMHLETR3" PROC1+17*, PRINT+3, PRINT+4, PRT2+1, DONE+1!

Label References

Name Line Occurrences
$$CTR HEAD1+6, HEAD1+7, HEAD1+8, HEAD1+9
$$D PRT2+5, PRT2+7
$$TP PROC1+15
@( PROC1+16
BD ED+2, PROG+3
BROWSE ZIS+3
DONE PRINT+3, PRINT+5
HEAD PRINT+2, PRT2+2
HEAD1 HEAD+1
PROC1 PROC+2
PROG PROG+6
PRT2 PRINT+4
SORT THER+4, DEMO+2
THER PROG+4, THER+6, THER+7, SORT+3
XIT BD+3, THER+3, ZIS+2, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHBD BD+4*, ED+1, ED+4, PROC1+12
>> AMHBDD ED+4*, HEAD1+7
>> AMHBT PROC+1*
AMHBTH PROC+1*, PROC1+17, PRINT+3, PRINT+4, PRT2+1, DONE+1!
AMHCASE PROC+1*, PROC+2*, PROC+4!, PROC1+1, PROC1+2, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+11
, PROC1+17, P+1, N+1, C+1, PRT2+1*, PRT2+3, PRT2+5, PRT2+6
>> AMHCPRG PROC1+9*, PROC1+10, PROC1+15
>> AMHCPRV PROC1+8*, PROC1+15
>> AMHDEMO DEMO+1, DEMO+2, PROC1+4
>> AMHED ED+3*, ED+4, PROC1+13
>> AMHEDD ED+4*, HEAD1+7
>> AMHET PROC+3*
AMHJOB PROC+1*, PROC1+17, PRINT+3, PRINT+4, PRT2+1, DONE+1!
>> AMHOD PROC1+11*, PROC1+12, PROC1+13, PROC1+15
>> AMHPG PRINT+1*, HEAD+1, HEAD1+1*
>> AMHPROG PROG+2*, PROG+7*, PROC1+10, HEAD1+9
>> AMHPROV THER+2*, THER+8*, PROC1+7, HEAD1+8
>> AMHQUIT PRINT+1*, PRINT+4, PRT2+1, PRT2+2, HEAD+3*
>> AMHSD ED+4*
>> AMHSORT SORT+1*, SORT+4*, PROC1+16
>> AMHSORTV PROC1+17, P+1*, P+2*, P+3*, N+3*, N+4*, C+1*, C+2*, PRINT+4*, PRT2+1
>> AMHSORVT N+2*
>> AMHTOT PROC+1*
C TP+2~
D D~, D+1, D+2
DA PROG+2!, PROG+5!, THER+2!, THER+5!, SORT+2!, ZIS+1!
DATE TP~, TP+8, TP+9
DFN XIT+2!, PROC1+2*, PROC1+3, PROC1+4, PROC1+5, PROC1+15, PRT2+3*, PRT2+4, PRT2+7
DIC THER+5*!
DIC("A" THER+5*
DIC(0 THER+5*
DIR BD+2!, ED+1!, PROG+2!, PROG+5!, THER+2!, SORT+2!, ZIS+1!, HEAD+3!
DIR("A" BD+2*, ED+1*, PROG+2*, PROG+5*, THER+2*, SORT+2*, ZIS+1*
DIR("B" PROG+2*, THER+2*, SORT+2*, ZIS+1*
DIR(0 BD+2*, ED+1*, PROG+2*, PROG+5*, THER+2*, SORT+2*, ZIS+1*, HEAD+3*
>> DIRUT BD+2*, BD+3, ED+1*, ED+2, PROG+3, PROG+6, THER+3, SORT+3, ZIS+2
>> DTOUT HEAD+3
>> DUOUT BD+2, ED+1
DUZ AMHLETR3+11, PROC1+1, PROC1+5, TP+7, HEAD1+4
DUZ(2 AMHLETR3+11, PRT2+4, HEAD1+5
G TP+2~, TP+3*, TP+11*, TP+13
IO HEAD+3
IO(0 HEAD+3
IOF AMHLETR3+5, AMHLETR3+6, HEAD1+2
IOM CTR+1
IOSL PRT2+2
IOST HEAD+3
>> P N+1*, N+2, N+3
PAT TP~, TP+1, TP+4
PRG TP~, TP+5
PROV TP~, TP+6
U PROC1+2, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+11, TP+5, TP+6, TP+8, TP+9
, TP+10, P+1, P+2, N+1, N+3, C+1, PRT2+3, PRT2+4, PRT2+5, HEAD1+4
, HEAD1+5, HEAD1+8
X ED+4, THER+6, TP+2~, TP+4*, TP+5, TP+6, TP+7, TP+8, TP+9, TP+10
, CTR~, CTR+1, HEAD+2~, HEAD1+6*, HEAD1+7*, HEAD1+8*, HEAD1+9*
>> X1 ED+4*
>> X2 ED+4*
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y BD+4, ED+1*, ED+3, ED+4*, PROG+4, PROG+7, THER+4, THER+7, THER+8, SORT+4
, ZIS+3, CTR~, CTR+1, HEAD+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All