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

Package: Mental Health Social Services

Routine: AMHRC3


Information

AMHRC3 ; IHS/CMI/LAB - TIME IN GRP REPORT ;

Source Information

Source file <AMHRC3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Mental Health Social Services 4 ^AMHEKL  DONE^AMHLEIN  ($$ALLOWP,$$ALLOWVI,$$PPINT,DBHUSR,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
VA Fileman 3 DD^%DT  C^%DTC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PIH
VSTS ; process visits
PROC1 ;
ZIS ;
HEAD1 ;
BROWSE ;
DEMO ;
DFN ;
HEAD
START ;
GETDATES ;
XIT
ED ;get ending date
PRINT ;
DONE
PROC ;EP - entry point for processing

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4, PRINT+2
C^%DTC ED+4
HOME^%ZIS START+1
^AMHEKL DONE
DONE^AMHLEIN DONE
$$ALLOWP^AMHUTIL PROC1+6
$$ALLOWVI^AMHUTIL PROC1+2
$$PPINT^AMHUTIL PROC1+8
DBHUSR^AMHUTIL START+5
XTMP^AMHUTIL PROC+2
$$DEMO^AMHUTIL1 PROC1+7
DEMOCHK^AMHUTIL1 DEMO+1
^DIR BD+2, ED+1, ZIS+1, HEAD+1
^XBDBQUE ZIS+5, BROWSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "********** LISTING OF PATIENTS WHO HAVE SPENT TIME IN GROUP **********",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "This report will produce a list of patients who have spent time in a group.",!,"It will list the patient, the primary provider, diagnoses and time",!,"spent in the group for a date range you enter.",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the patient should be seen",!,"in a group.",!
  • 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: !!,$E($P(^DPT(DFN,0),U),1,15),?18,AMHHRCN
  • Line Location: DFN+3
Function Call: WRITE
  • Prompt: ?26,$P(^DPT(DFN,0),U,2)
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: ?30,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: VSTS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: VSTS+7
Function Call: WRITE
  • Prompt: ?49,$E($P(^VA(200,AMHPROV,0),U),1,15)
  • Line Location: VSTS+9
Function Call: WRITE
  • Prompt: ?49,AMHPROV
  • Line Location: VSTS+10
Function Call: WRITE
  • Prompt: !?10,"Total for patient ",$E($P(^DPT(DFN,0),U,1),1,20),?50,^XTMP("AMHRC3",AMHJOB,AMHBTH,"TOTAL",DFN)
  • Line Location: VSTS+18
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: ?22,"PATIENTS SEEN IN GROUPS WITH TIME SPENT IN GROUP",!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?20,"DATES: ",AMHBDD," TO ",AMHEDD,!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?18,"HRN",?25,"SEX",?30,"DOB",?40,"DATE",?49,"PROVIDER",?65,"PROBLEM",?74,"TIME",!,AMH80D
  • Line Location: PIH+0
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • ZIS+1
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] VSTS+12
^AMHREC - [#9002011] PROC1+3, PROC1+4, PROC1+5, PROC1+11
^AMHREC("B" PROC+4, PROC1+1
^AMHRPRO - [#9002011.01] PROC1+10
^AMHRPRO("AD" PROC1+9
^AUPNPAT - [#9000001] DFN+2
^DIC(4 - [#4] HEAD1+4
^DPT - [#2] PROC1+12, DFN+3, DFN+4, VSTS+18
^VA(200 - [#200] VSTS+9, VSTS+16, HEAD1+3
^XTMP("AMHRC3" PROC1+12*, PROC1+13*, PROC1+14*, PRINT+4, PRINT+6, PRINT+7, DONE+1!, VSTS+1, VSTS+5, VSTS+8
, VSTS+11, VSTS+13, VSTS+15, VSTS+16, VSTS+18

Label References

Name Line Occurrences
BD ED+2, DEMO+2
BROWSE ZIS+3
DFN PRINT+7
DONE PRINT+4, PRINT+8
HEAD PRINT+3, DFN+1
HEAD1 HEAD
PROC1 PROC+4
XIT BD+3, ZIS+2, ZIS+3

Naked Globals

Name Field # of Occurrence
^(0 DFN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMH80D XIT!, PRINT+1*, PIH
AMHBD BD+4*, ED+1, ED+4, XIT!, PRINT+2
AMHBDD ED+4*, XIT+1!, PRINT+2*, HEAD1+6
AMHBDO XIT+1!
AMHBT XIT+1!, PROC+1*
AMHBTH XIT!, PROC+1*, PROC1+12, PROC1+13, PROC1+14, PRINT+4, PRINT+6, PRINT+7, DONE+1!, VSTS+1
, VSTS+5, VSTS+8, VSTS+11, VSTS+13, VSTS+15, VSTS+16, VSTS+18
>> AMHC VSTS+5*, VSTS+6*, VSTS+7
>> AMHDATE VSTS+1*, VSTS+4, VSTS+5, VSTS+8, VSTS+11, VSTS+13
>> AMHDEMO DEMO+1, DEMO+2, PROC1+7
>> AMHDX PROC1+9*, PROC1+10*, PROC1+12, VSTS+11*, VSTS+12, VSTS+13
AMHED ED+3*, ED+4, XIT!, PROC+4, PRINT+2
AMHEDD ED+4*, XIT+1!, PRINT+2*, HEAD1+6
AMHEDO XIT+1!
>> AMHET PROC+5*
AMHFOUN XIT!
AMHFOUND XIT+1!
AMHHIT XIT+1!
AMHHRCN XIT!, DFN+2*, DFN+3
AMHID XIT+1!
AMHJOB XIT!, PROC+1*, PROC1+12, PROC1+13, PROC1+14, PRINT+4, PRINT+6, PRINT+7, DONE+1!, VSTS+1
, VSTS+5, VSTS+8, VSTS+11, VSTS+13, VSTS+15, VSTS+16, VSTS+18
AMHLENG XIT!
AMHLINE XIT+1!
>> AMHNAME PRINT+6*, PRINT+7, VSTS+1, VSTS+5, VSTS+8, VSTS+11, VSTS+13
AMHNUM XIT!
AMHP XIT+1!
AMHPCNT XIT!
AMHPG XIT!, PRINT+3*, HEAD, HEAD1+1*, HEAD1+3
AMHPOV XIT!
AMHPRNM XIT+1!
AMHPRNT XIT+1!
AMHPROB XIT+1!
>> AMHPROV PROC1+8*, PROC1+12, PROC1+13, VSTS+8*, VSTS+9, VSTS+10, VSTS+11, VSTS+13, VSTS+15*, VSTS+16
AMHPRV XIT+1!
AMHQ PRINT+5!, PRINT+6, PRINT+7, PRINT+8, DFN+1, VSTS+1, VSTS+5, VSTS+14, VSTS+15, VSTS+17
, HEAD+1*
AMHR XIT+1!, PROC1+1*, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+8, PROC1+9, PROC1+11, PROC1+12
, VSTS+5*, VSTS+8, VSTS+11, VSTS+13
AMHRA XIT!
>> AMHRC VSTS+1*, VSTS+2*, VSTS+3
AMHRCNT XIT+1!
AMHRLOC XIT+1!
AMHRX XIT!
AMHRY XIT!
AMHSD ED+4*, XIT+1!, PROC+3*, PROC+4*, PROC1+1, PROC1+12
AMHTOT XIT+1!, PROC+1*
>> AMHTSG PROC1+11*, PROC1+12, PROC1+13, PROC1+14
AMHX XIT!
D XIT!
DA ZIS+1!
DFN XIT!, PROC+1*, PROC+6!, PROC1+5*, PROC1+6, PROC1+7, PROC1+12, PROC1+13, PROC1+14, PRINT+5*
, PRINT+7*, DFN+2, DFN+3, DFN+4, VSTS+1, VSTS+5, VSTS+8, VSTS+11, VSTS+13, VSTS+15
, VSTS+16, VSTS+18
DIC XIT!
DIR BD+2!, ED+1!, ZIS+1!, XIT!, HEAD+1!
DIR("A" BD+2*, ED+1*, ZIS+1*
DIR("B" ZIS+1*
DIR(0 BD+2*, ED+1*, ZIS+1*, HEAD+1*
DIRUT BD+2*, BD+3, ED+1*, ED+2, ZIS+2, XIT!
DTOUT XIT!, HEAD+1
DUOUT BD+2, ED+1, XIT!
DUZ PROC1+2, PROC1+6, HEAD1+3
DUZ(2 DFN+2, HEAD1+4
IO HEAD+1
IO("Q" XIT!
IO(0 HEAD+1
IOF START+1, START+2, HEAD1+1
IOSL DFN+1
IOST HEAD+1
U PROC1+3, PROC1+4, PROC1+5, PROC1+10, PROC1+11, PROC1+12, DFN+2, DFN+3, DFN+4, VSTS+9
, VSTS+12, VSTS+16, VSTS+18, HEAD1+3, HEAD1+4
>> X ED+4
>> X1 ED+4*
>> X2 ED+4*
>> XBIOP BROWSE+2*
XBNS ZIS+4*, XIT!, BROWSE+2*
XBRC ZIS+4*, XIT!, BROWSE+2*
XBRP ZIS+4*, XIT!, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
XBTX XIT!
Y BD+4, ED+1*, ED+3, ED+4*, ZIS+3, XIT!, PRINT+2*, DFN+4*, HEAD+1
ZTSK XIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All