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

Package: Mental Health Social Services

Routine: AMHGAFS


Information

AMHGAFS ; IHS/CMI/MAW - GAF - MULTIPLE PATS 03 Jun 2009 11:28 AM ;

Source Information

Source file <AMHGAFS.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  $$EXTSET^XBFUNC  EN^XBVK  
Mental Health Social Services 3 ($$CTR,$$D)^AMHLEIN  ($$ALLOWVI,$$PPINT,$$PPNAME,DBHUSR,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
DATES ;
ZIS ;
HEADER ;EP
BROWSE ;
DEMO ;
PRINT ;EP - called from xbdbque
START ;
HEADER1 ;
XIT ;
WHICH ;
PROV ;
PROG ;
DONE ;
PROC ;

External References

Name Field # of Occurrence
$$CTR^AMHLEIN START+3, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
$$D^AMHLEIN PRINT1+2
$$ALLOWVI^AMHUTIL PROC+11
$$PPINT^AMHUTIL PROC+14
$$PPNAME^AMHUTIL PRINT1+4
DBHUSR^AMHUTIL WHICH+2
XTMP^AMHUTIL PROC+2
$$DEMO^AMHUTIL1 PROC+12
DEMOCHK^AMHUTIL1 DEMO+1
$$HRN^AUPNPAT PRINT1+2
^DIC PROV+5
^DIR DATES+3, DATES+7, PROG+2, PROG+5, PROV+2, ZIS+1, DONE+1, HEADER+2
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRINT1+6
$$EXTSET^XBFUNC HEADER1+5
EN^XBVK START+2, XIT+2
$$FMADD^XLFDT DATES+13
$$FMTE^XLFDT HEADER1+2, HEADER1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR^AMHLEIN("GAF OUTCOME MEASURE - GAF Scores for Multiple Patients",80),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"This option is used to list GAF Scores for multiple patients sorted"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"by patient.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"Please note: Only visits with GAF scores recorded will display on this",!,"list.",!
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+12
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS/GAF SCORES TO REPORT"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$E(AMHNAME,1,15),?17,$$HRN^AUPNPAT(DFN,DUZ(2)),?24,$$D^AMHLEIN((9999999-AMHDATE))
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?33,$P(^AMHREC(AMHV,0),U,14),?37,$E($P($G(^AMHREC(AMHV,11)),U,15),1,7)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?45,$E($$PPNAME^AMHUTIL(AMHV),1,9),?55,$P(^AMHREC(AMHV,0),U,2)
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?58,$$VAL^XBDIQ1(9002011.01,X,.01)_"-"_$E($$VAL^XBDIQ1(9002011.01,X,.04),1,13)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",AMHPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR^AMHLEIN("GAF SCORES FOR MULTIPLE PATIENTS",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR^AMHLEIN(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR^AMHLEIN(X,80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR^AMHLEIN(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR^AMHLEIN(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $$CTR^AMHLEIN(X,80),!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?17,"HRN",?24,"Date",?33,"GAF",?37,"TYPE",?45,"Provider",?55,"PG",?58,"Diagnosis/POV"
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+10
Routine Call
  • DIC
  • Line Location:
    • PROV+5
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+7
    • PROG+2
    • PROG+5
    • PROV+2
    • ZIS+1
    • DONE+1
    • HEADER+2

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)
^AMHREC - [#9002011] PROC+6, PROC+17, PRINT1+3, PRINT1+4
^AMHREC("B" PROC+4, PROC+5
^AMHRPRO("AD" PRINT1+5
^DPT - [#2] PROC+17
^VA(200 - [#200] HEADER1+2, HEADER1+8
^XTMP("AMHGAFS" PROC+17*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, DONE+2!

Label References

Name Line Occurrences
BROWSE ZIS+3
DATES DATES+8, DATES+11, PROG+3
DEMO PROV+4
DONE PRINT+2
HEADER PRINT+1, PRINT1+1
HEADER1 HEADER+1
PRINT1 PRINT+6
PROG PROG+6, PROG+7
PROV PROG+4, PROV+7, DEMO+2
XIT DATES+4, PROV+3, ZIS+2, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHBD DATES+1!, DATES+5*, DATES+11, DATES+13, XIT+1!, HEADER1+4
>> AMHBT PROC+3*
AMHBTH PROC+3*, PROC+17, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, DONE+2!
>> AMHDATE PRINT+5*, PRINT+6, PRINT1+2
>> AMHDEMO DEMO+1, DEMO+2, PROC+12
AMHED DATES+1!, DATES+9*, DATES+11, XIT+1!, PROC+4, HEADER1+4
AMHJOB PROC+3*, PROC+17, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, DONE+2!
>> AMHNAME PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT1+2
>> AMHPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> AMHPROG PROG+1*, PROG+8*, PROC+13, HEADER1+5, HEADER1+6
>> AMHPROV PROV+1*, PROV+8*, PROC+15, PROC+16, HEADER1+7, HEADER1+8
AMHQ PRINT+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT1+1, HEADER+2*
>> AMHSD DATES+13*, PROC+4*, PROC+5
>> AMHV PRINT+6*, PRINT1+3, PRINT1+4, PRINT1+5
>> AMHV0 PROC+6*, PROC+7, PROC+8, PROC+10, PROC+13
>> AMHVIEN PROC+5*, PROC+6, PROC+11, PROC+14, PROC+17
>> AMHVPP PROC+14*, PROC+15, PROC+16
DA PROG+2!, PROG+5!, PROV+2!, PROV+6!, ZIS+1!
>> DFN PROC+8*, PROC+9, PROC+12, PROC+17, PRINT+4*, PRINT+5, PRINT+6, PRINT1+2
DIC PROV+5*, PROV+6!
DIC("A" PROV+5*
DIC(0 PROV+5*
DIR DATES+2!, DATES+6!, PROG+2!, PROG+5!, PROV+2!, ZIS+1!, DONE+1!, HEADER+2!
DIR("A" DATES+2*, DATES+6*, PROG+2*, PROG+5*, PROV+2*, ZIS+1*, DONE+1*
DIR("B" PROG+2*, PROV+2*, ZIS+1*
DIR(0 DATES+2*, DATES+6*, PROG+2*, PROG+5*, PROV+2*, ZIS+1*, DONE+1*, HEADER+2*
>> DIRUT DATES+4, DATES+8, PROG+3, PROG+6, PROV+3, ZIS+2, DONE+1*
DT HEADER1+2
>> DTOUT HEADER+2
>> DUOUT DONE+1
DUZ PROC+11, HEADER1+2
DUZ(2 PRINT1+2
IO DONE+1, HEADER+2
IO("Q" XIT+1!
IO(0 DONE+1, HEADER+2
IOF START+1, HEADER1+1
IOSL PRINT1+1
IOST DONE+1, HEADER+2
U PROC+8, PROC+10, PROC+13, PROC+17, PRINT1+3, PRINT1+4, HEADER1+2, HEADER1+8
>> X PROG+7, PRINT1+5*, PRINT1+6, HEADER1+4*, HEADER1+5*, HEADER1+6*, HEADER1+7*, HEADER1+8*
>> 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+5, DATES+9, PROG+4, PROG+8, PROV+4, PROV+7, PROV+8, ZIS+3, XIT+1!, HEADER+2
ZTSK XIT+1!
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