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 |  Caller 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: AMHRPEC

Package: Mental Health Social Services

Routine: AMHRPEC


Information

AMHRPEC ; IHS/CMI/LAB - ACTIVE CLIENT LIST ;

Source Information

Source file <AMHRPEC.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  $$EXTSET^XBFUNC  EN^XBVK  
VA Fileman 4 DD^%DT  (C,COMMA)^%DTC  ^DIC  ^DIR  
Kernel 3 HOME^%ZIS  ($$FMADD,$$FMDIFF)^XLFDT  ($$REPEAT,$$STRIP)^XLFSTR  
Mental Health Social Services 3 $$ALLOWCD^AMHLCD  ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
IHS Patient 1 $$HRN^AUPNPAT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health Social Services 3 AMHGOM  AMHPHQO  AMHRGADO  

Entry Points

Name Comments DBIA/ICR reference
DATES
DEMO ;
DONE ;
D(D) ;EP
CD(O,C,WO,WC) ;
PRINT ;
PRINT1 ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PIH
HEAD
ZIS ;
START ;
XIT ;
C(X,X2,X3) ;
WHICH ;
PROC1 ;
HEAD1 ;
PROV ;
PROG ;
PROC ;EP - entry point for processing
PAGE ;

External References

Name Field # of Occurrence
DD^%DT PRINT+2
C^%DTC PRINT+1
COMMA^%DTC C+1
HOME^%ZIS START+1
$$ALLOWCD^AMHLCD PROC1+1
$$ALLOWP^AMHUTIL PROC1+10
DBHUSRP^AMHUTIL START+16
XTMP^AMHUTIL PROC+3
$$DEMO^AMHUTIL1 PROC1+11
DEMOCHK^AMHUTIL1 DEMO+1
$$HRN^AUPNPAT PRINT1+4
^DIC PROV+6
^DIR DATES+2, DATES+4, WHICH+3, PROG+2, PROG+5, PROV+3, PAGE+1, DEMO+3, HEAD+1
^XBDBQUE DEMO+7, BROWSE+2
$$VAL^XBDIQ1 PROC1+15, PRINT1+8, PRINT1+9
$$EXTSET^XBFUNC HEAD1+7
EN^XBVK XIT+1
$$FMADD^XLFDT DATES+8
$$FMDIFF^XLFDT PROC1+13, PROC1+16, PROC1+17
$$REPEAT^XLFSTR PIH+2
$$STRIP^XLFSTR C+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "********** DURATION OF CARE REPORT **********",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "This report will produce a list of all closed cases in a date"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"range that you specify. In order to be included in this report"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"the case must have both a case open and a case closed date."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"The duration of care is calculated by counting the number of days"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"from the case open date to the case closed date."
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!,"Cases may be selected based on Open date, Closed date or both."
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"Only those cases falling within the specified time frame will be"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"counted."
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+12
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: !
  • Line Location: PROV+1
Function Call: WRITE
  • Prompt: !!,"NO CASES TO REPORT"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"Total Number of Cases: ",AMHTOT,!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: "Average Duration of Care: ",$J((AMHTDAYS/AMHTOT),8,2)," days",!!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?18,$$HRN^AUPNPAT(DFN,DUZ(2))
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?25,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?35,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?47,^XTMP("AMHRPEC",AMHJOB,AMHBTH,"CASES",AMHPROV,AMHDATE,AMHCASE)_" days"
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: ?57,$$VAL^XBDIQ1(9002011.58,AMHCASE,.09)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?65,$E($$VAL^XBDIQ1(9002011.58,AMHCASE,.08),1,14)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • 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: $$CTR(X,80),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR(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,"CASE OPEN",?35,"CASE CLOSED",?47,"DURATION",?57,"POV",?65,"PROVIDER"
  • Line Location: PIH+0
Function Call: WRITE
  • Prompt: !?18,"NUMBER",?25,"DATE",?35,"DATE"
  • Line Location: PIH+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80),!
  • Line Location: PIH+2
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIC
  • Line Location:
    • PROV+6
Routine Call
  • DIR
  • Line Location:
    • DATES+2
    • DATES+4
    • WHICH+3
    • PROG+2
    • PROG+5
    • PROV+3
    • PAGE+1
    • DEMO+3
    • 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] PROC+4, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+8, PRINT1+2
^AMHSITE - [#9002013] START+13
^DIC(4 - [#4] HEAD1+4
^DPT - [#2] PRINT1+4
^VA(200 - [#200] HEAD1+3
^XTMP("AMHRPEC" PROC1+16*, PRINT+5, PRINT+7, PRINT+10, PRINT+11, DONE+1!, PRINT1+7

Label References

Name Line Occurrences
$$CD PROC1+7
$$CTR HEAD1+2, HEAD1+5, HEAD1+6, HEAD1+7
BROWSE DEMO+5
DATES DATES+6, WHICH+4
DONE PRINT+5, PRINT+15
HEAD PRINT+9, PRINT+12, PRINT+16, PRINT1+1
HEAD1 HEAD
PAGE PROV+5
PRINT1 PRINT+11
PROC1 PROC+4
PROG PROG+6, PROG+7
PROV PROG+4, PROV+8, PAGE+2, DEMO+2
WHICH PROG+3
XIT START+17, DATES+2, DATES+4, PROV+4, DEMO+4, DEMO+5
ZIS PROV+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMH80D PRINT+3*
AMHBD DATES!, DATES+2*, DATES+6, DATES+8, CD+1, CD+2, PRINT+1*, PRINT+2
>> AMHBDD PRINT+2*, HEAD1+5
>> AMHBT PROC+1*
AMHBTH PROC+1*, PROC1+16, PRINT+5, PRINT+7, PRINT+10, PRINT+11, DONE+1!, PRINT1+7
AMHCASE PROC+1*, PROC+4*, PROC+6!, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+8
, PROC1+15, PROC1+16, PRINT+11*, PRINT1+2, PRINT1+7, PRINT1+8, PRINT1+9
>> AMHCD PROC1+6*, PROC1+7, PROC1+13, PROC1+16, PROC1+17
>> AMHCLOSE WHICH+1*, WHICH+6*, WHICH+7*, PROC1+7
>> AMHCNT PRINT+6*, PRINT+8*, PRINT+9
>> AMHDATE PRINT+10*, PRINT+11, PRINT1+7
>> AMHDEMO DEMO+1, DEMO+2, PROC1+11
AMHED DATES!, DATES+4*, DATES+6, CD+1, CD+2, PRINT+1*, PRINT+2
>> AMHEDD PRINT+2*, HEAD1+5
>> AMHET PROC+5*
AMHJOB PROC+1*, PROC1+16, PRINT+5, PRINT+7, PRINT+10, PRINT+11, DONE+1!, PRINT1+7
>> AMHNPAG PAGE+1*, PAGE+3*, PRINT+9
>> AMHOD PROC1+5*, PROC1+7, PROC1+13, PROC1+16, PROC1+17
>> AMHOPEN WHICH+1*, WHICH+5*, WHICH+7*, PROC1+7
>> AMHPG PRINT+4*, HEAD, HEAD1+1*, HEAD1+3
>> AMHPROG PROG+1*, PROG+8*, PROC1+4, HEAD1+7
>> AMHPROV PROV+2*, PROV+9*, PROC1+3, PRINT+7*, PRINT+10, PRINT+11, PRINT+13, PRINT+14, PRINT1+7
AMHQ PRINT+6!, PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+15, PRINT+16, PRINT1+1, HEAD+1*
>> AMHSD DATES+8*
AMHSUB PROC+2!, PRINT+8*
AMHSUB( PROC1+17*, PRINT+13, PRINT+14
>> AMHSUBD( PROC1+17*, PRINT+14
>> AMHTDAYS PROC+1*, PROC1+14*, PRINT+18
>> AMHTOT PROC+1*, PROC1+12*, PRINT+17, PRINT+18
>> AMHX PROC1+15*, PROC1+16, PROC1+17, PRINT1+2*, PRINT1+3, PRINT1+5, PRINT1+6
C CD~, CD+2
D D~, D+1, D+2
DA WHICH+3!, PROG+2!, PROG+5!, PROV+3!, PROV+7!, PAGE+1!, DEMO+3!
>> DFN PROC1+8*, PROC1+9, PROC1+10, PROC1+11, PRINT1+3*, PRINT1+4
DIC PROV+6*, PROV+7!
DIC("A" PROV+6*
DIC(0 PROV+6*
DIR DATES+1!, DATES+3!, WHICH+3!, PROG+2!, PROG+5!, PROV+3!, PAGE+1!, DEMO+3!, HEAD+1!
DIR("A" DATES+1*, DATES+3*, WHICH+3*, PROG+2*, PROG+5*, PROV+3*, PAGE+1*, DEMO+3*
DIR("B" WHICH+3*, PROG+2*, PROV+3*, PAGE+1*, DEMO+3*
DIR(0 DATES+1*, DATES+3*, WHICH+2*, PROG+2*, PROG+5*, PROV+3*, PAGE+1*, DEMO+3*, HEAD+1*
>> DIRUT WHICH+4, PROG+3, PROG+6, PROV+4, PAGE+2, DEMO+4
DT PRINT+1
>> DTOUT HEAD+1
DUZ START+13, PROC1+1, PROC1+10, HEAD1+3
DUZ(2 START+13, PRINT1+4, HEAD1+4
IO HEAD+1
IO(0 HEAD+1
IOF START+1, START+2, HEAD1+1
IOM CTR+1
IOSL PRINT+12, PRINT+16, PRINT1+1
IOST HEAD+1
O CD~, CD+1
U PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+8, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6
, HEAD1+3, HEAD1+4
WC CD~, CD+2
WO CD~, CD+1
X PROG+7, PROC1+13*, PROC1+14, PRINT+1, HEAD1+2*, HEAD1+5*, HEAD1+6*, HEAD1+7*, C~, C+2
, CTR~, CTR+1
>> X1 PRINT+1*
X2 PRINT+1*, C~
X3 C~
>> XBIOP BROWSE+2*
>> XBNS DEMO+6*, BROWSE+2*
>> XBRC DEMO+6*, BROWSE+2*
>> XBRP DEMO+6*, BROWSE+1*
>> XBRX DEMO+6*, BROWSE+2*
Y DATES+2, DATES+4, WHICH+5, WHICH+6, WHICH+7, PROG+4, PROG+8, PROV+5, PROV+8, PROV+9
, PAGE+3, DEMO+5, PRINT+2*, PRINT1+5*, PRINT1+6*, HEAD+1, CTR~, CTR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All