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

Package: Mental Health Social Services

Routine: AMHRC4


Information

AMHRC4 ; IHS/CMI/LAB - ACTIVE CLIENT LIST - OPEN NOT SEEN IN N DAYS 03 Jun 2009 12:08 PM ;

Source Information

Source file <AMHRC4.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  $$EXTSET^XBFUNC  EN^XBVK  
Mental Health Social Services 4 $$ALLOWCD^AMHLCD  PAUSE^AMHLEA  ($$ALLOWP,$$ALLOWVI,$$PPNAME,DBHUSR,DBHUSRP,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
Kernel 3 HOME^%ZIS  ($$FMADD,$$FMTE)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
DATES
DEMO ;
VS(P,BD,ED,R,W) ;
DONE ;
D(D) ;
PRINT ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PRN ;
HEAD
ZIS ;
START ;
XIT ;
PROC1 ;
PROC2 ;
HEAD1 ;
PROV ;
DAYS ;
NS(V) ;
PROG ;
PROC ;EP - entry point for processing
LASTDX(V) ;

External References

Name Field # of Occurrence
HOME^%ZIS START+1
$$ALLOWCD^AMHLCD PROC2+16
PAUSE^AMHLEA START+14
$$ALLOWP^AMHUTIL PROC2+6
$$ALLOWVI^AMHUTIL PROC2+2, VS+9
$$PPNAME^AMHUTIL PRN+9
DBHUSR^AMHUTIL START+14
DBHUSRP^AMHUTIL START+14
XTMP^AMHUTIL PROC+3
$$DEMO^AMHUTIL1 PROC2+7
DEMOCHK^AMHUTIL1 DEMO+1
KILL^AUPNPAT XIT+2
^DIC PROV+5
^DIR DATES+2, DATES+4, PROG+5, PROV+2, DAYS+2, ZIS+1, HEAD+1
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 LASTDX+5
$$EXTSET^XBFUNC HEAD1+7
EN^XBVK XIT+1
$$FMADD^XLFDT DATES+8, VS+4
$$FMTE^XLFDT HEAD1+6
$$CJ^XLFSTR HEAD1+5, HEAD1+6
$$REPEAT^XLFSTR HEAD1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "******* CLIENTS SEEN AT LEAST X TIMES WITH NO CASE OPEN DATE *******",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "This report will produce a list of patients, in a date range specified"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"by the user, who have been seen a certain number of times but do not"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"have open cases. The user, based on their program's standards"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"of care, specifies when a case is to be opened. For example,"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"a case will be opened if a patient has been seen at least (3) times."
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !,"Bye..."
  • Line Location: DAYS+3
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"Total Number of Patients: ",AMHPCNT,!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?18,AMHHRCN
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: ?26,$P(^DPT(DFN,0),U,2)
  • Line Location: PRN+4
Function Call: WRITE
  • Prompt: ?28,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PRN+4
Function Call: WRITE
  • Prompt: ?38,$P(^XTMP("AMHRC4",AMHJOB,AMHBTH,"HITS",AMHNAME,DFN),U,1)
  • Line Location: PRN+5
Function Call: WRITE
  • Prompt: ?45,$$D($P(^XTMP("AMHRC4",AMHJOB,AMHBTH,"HITS",AMHNAME,DFN),U,3))
  • Line Location: PRN+6
Function Call: WRITE
  • Prompt: ?56,$$LASTDX(V)
  • Line Location: PRN+8
Function Call: WRITE
  • Prompt: ?65,$E($$PPNAME^AMHUTIL(V),1,14)
  • Line Location: PRN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",AMHPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(X,80),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(X,80),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?18,"CHART",?25,"SEX",?31,"DOB",?38,"#",?45,"LAST VISIT",?56,"LAST",?63,"PROVIDER"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !?18,"NUMBER",?38,"VISITS",?56,"DX"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80),!
  • Line Location: HEAD1+10
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIC
  • Line Location:
    • PROV+5
Routine Call
  • DIR
  • Line Location:
    • DATES+2
    • DATES+4
    • PROG+5
    • PROV+2
    • DAYS+2
    • ZIS+1
    • HEAD+1

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] PROC2+17
^AMHPCASE("C" PROC2+15
^AMHPROB - [#9002012.2] NS+4, NS+5, NS+6, NS+7, NS+8, NS+9
^AMHREC - [#9002011] PROC2+1, PROC2+4, VS+8
^AMHREC("AF" VS+5, VS+6
^AMHREC("B" PROC+4, PROC1+1
^AMHREC("C" VS+1
^AMHRPRO - [#9002011.01] NS+4, NS+5, NS+6, NS+7, NS+8, NS+9
^AMHRPRO("AD" NS+3, LASTDX+3
^AMHRPROV - [#9002011.02] VS+12
^AMHRPROV("AD" VS+12
^AMHSITE - [#9002013] START+11
^AUPNPAT - [#9000001] PRN+2
^DIC(4 - [#4] HEAD1+4
^DPT - [#2] PROC2+21, PRN+3, PRN+4
^VA(200 - [#200] HEAD1+3
^XTMP("AMHRC4" PROC2+8, PROC2+21*, PROC2+22*, PRINT+3, PRINT+5, PRINT+6, DONE+1!, PRN+5, PRN+6, PRN+7

Label References

Name Line Occurrences
$$CTR HEAD1+7
$$D PRN+6
$$LASTDX PRN+8
$$NS VS+7
$$VS PROC2+9
BROWSE ZIS+3
DATES DATES+6, PROG+6, PROG+7
DAYS PROV+4, DEMO+2
DONE PRINT+3, PRINT+7
HEAD PRINT+2, PRN+1
HEAD1 HEAD
PRN PRINT+6
PROC1 PROC+4
PROC2 PROC1+1
PROV PROV+7
XIT DATES+2, DATES+4, PROV+3, DAYS+3, DAYS+4, ZIS+2, ZIS+3

Naked Globals

Name Field # of Occurrence
^(0 PRN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A VS+2~, VS+12*
>> AMH80D PRINT+1*
AMHBD DATES!, DATES+2*, DATES+6, DATES+8, PROC2+9, HEAD1+6
>> AMHBT PROC+2*
AMHBTH PROC+2*, PROC2+8, PROC2+21, PROC2+22, PRINT+3, PRINT+5, PRINT+6, DONE+1!, PRN+5, PRN+6
, PRN+7
AMHCASE PROC+6!
>> AMHCCNT PROC+1*
>> AMHCV PROC2+14*, PROC2+21
>> AMHDAYS DAYS+1*, DAYS+5*, PROC2+10, HEAD1+5
>> AMHDEMO DEMO+1, DEMO+2, PROC2+7
AMHED DATES!, DATES+4*, DATES+6, PROC+4, PROC2+9, HEAD1+6
>> AMHET PROC+5*
>> AMHHRCN PRN+2*, PRN+3
AMHJOB PROC+2*, PROC2+8, PROC2+21, PROC2+22, PRINT+3, PRINT+5, PRINT+6, DONE+1!, PRN+5, PRN+6
, PRN+7
>> AMHLASTD PROC2+12*, PROC2+17, PROC2+21
>> AMHLASTV PROC2+13*, PROC2+21
>> AMHNAME PRINT+5*, PRINT+6, PRN+5, PRN+6, PRN+7
>> AMHODAT PROC+4*, PROC1+1
>> AMHPCNT PROC+1*, PROC2+21*, PRINT+8
>> AMHPG PRINT+2*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPROG PROG+1*, PROG+8*, PROC2+9, HEAD1+7
>> AMHPROV PROV+1*, PROV+8*, PROC2+9
AMHQ PRINT+4!, PRINT+5, PRINT+6, PRINT+7, PRN+1, HEAD+1*
>> AMHSD DATES+8*, PROC+4
>> AMHVIEN PROC1+1*, PROC2+1, PROC2+2, PROC2+4
B VS+2~
BD VS~, VS+4
C VS+2~, VS+3*, VS+13*, VS+16
D D~, D+1, D+2
DA PROG+5!, PROV+2!, PROV+6!, DAYS+2!, ZIS+1!
>> DFN PROC2+4*, PROC2+5, PROC2+6, PROC2+7, PROC2+8, PROC2+9, PROC2+15, PROC2+21, PROC2+22, PRINT+4*
, PRINT+6*, PRN+2, PRN+3, PRN+4, PRN+5, PRN+6, PRN+7
DIC PROV+5*, PROV+6!
DIC("A" PROV+5*
DIC(0 PROV+5*
DIR DATES+1!, DATES+3!, PROG+5!, PROV+2!, DAYS+2!, ZIS+1!, HEAD+1!
DIR("A" DATES+1*, DATES+3*, PROG+5*, PROV+2*, DAYS+2*, ZIS+1*
DIR("B" PROV+2*, ZIS+1*
DIR(0 DATES+1*, DATES+3*, PROG+5*, PROV+2*, DAYS+2*, ZIS+1*, HEAD+1*
>> DIRUT PROG+6, PROV+3, DAYS+3, ZIS+2
DNKA NS+1~, NS+2*, NS+3, NS+4*, NS+5*, NS+6*, NS+7*, NS+8*, NS+9*, NS+11
>> DTOUT HEAD+1
DUZ START+11, PROC2+2, PROC2+6, PROC2+16, VS+9, HEAD1+3
DUZ(2 START+11, PRN+2, HEAD1+4
ED VS~, VS+5
>> G PROC2+15*, PROC2+18*, PROC2+20, VS+10, VS+11*, VS+12*
H NS+1~, NS+3*, NS+4, NS+5, NS+6, NS+7, NS+8, NS+9
I NS+1~
IO HEAD+1
IO(0 HEAD+1
IOF START+1, START+2, HEAD1+1
IOM CTR+1
IOSL PRN+1
IOST HEAD+1
J NS+1~
K NS+1~
P VS~, VS+1, VS+5, VS+6
R VS~, VS+8
S VS+2~, VS+4*, VS+5*, VS+6, VS+13
U PROC2+4, PROC2+10, PROC2+12, PROC2+13, PROC2+14, PROC2+17, PROC2+21, VS+8, VS+12, VS+16
, NS+4, NS+5, NS+6, NS+7, NS+8, NS+9, PRN+2, PRN+3, PRN+4, PRN+5
, PRN+6, PRN+7, HEAD1+3, HEAD1+4
V NS~, NS+3, PRN+7*, PRN+8, PRN+9, LASTDX~, LASTDX+3
W VS~, VS+10, VS+12
X PROG+7, PROC2+9*, PROC2+10, PROC2+12, PROC2+13, PROC2+14, PROC2+15*, PROC2+16, PROC2+17, VS+2~
, VS+6*, VS+7, VS+8, VS+9, VS+12, VS+13, LASTDX+2~, LASTDX+3*, LASTDX+4, LASTDX+5
, HEAD1+5*, HEAD1+6*, HEAD1+7*, CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y DATES+2, DATES+4, PROG+8, PROV+4, PROV+7, PROV+8, DAYS+4, DAYS+5, ZIS+3, VS+2~
, VS+3*, VS+13*, VS+16, PRN+4*, HEAD+1, CTR~, CTR+1
Z VS+2~, VS+3*, VS+13*, VS+16
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