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

Package: Mental Health Social Services

Routine: AMHRGADM


Information

AMHRGADM ; IHS/CMI/LAB - GAD - MULTIPLE PATS 10 Dec 2008 9:28 AM ;

Source Information

Source file <AMHRGADM.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Mental Health Social Services 4 ($$CTR,$$D)^AMHLEIN  ($$HASGAD,$$HASGADV)^AMHRGADO  ($$ALLOWVI,$$PPINT,$$PPNAME,DBHUSR,XTMP)^AMHUTIL  ($$DEMO,DEMOCHK)^AMHUTIL1  
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
PCC Medical Query 1 PEP^AMQQGTX0  
Patient Care Component Reports 1 ($$PRIMPROV,$$VD)^APCLV  

Entry Points

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

External References

Name Field # of Occurrence
$$CTR^AMHLEIN START+3, HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$D^AMHLEIN PRINT1+3, PRINT1+4
$$HASGAD^AMHRGADO PROC+10
$$HASGADV^AMHRGADO PROC+26
$$ALLOWVI^AMHUTIL PROC+11
$$PPINT^AMHUTIL PROC+13
$$PPNAME^AMHUTIL PRINT1+18
DBHUSR^AMHUTIL WHICH+2
XTMP^AMHUTIL PROC+2
$$DEMO^AMHUTIL1 PROC+12
DEMOCHK^AMHUTIL1 DEMO+1
PEP^AMQQGTX0 CLINIC1+2, PROV1+2
$$PRIMPROV^APCLV PROC+30, PRINT1+22
$$VD^APCLV PRINT1+4
$$HRN^AUPNPAT PRINT1+2
^DIC CLINIC1+1, PROV1+1
^DIR DATES+3, DATES+7, CLINIC+2, PROV+2, ZIS+1, DONE+2, HEADER+2
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PRINT1+8, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+22, PRINT1+24
EN^XBVK START+2, XIT+2
$$FMADD^XLFDT DATES+13, PROC+23
$$FMTE^XLFDT HEADER1+2, HEADER1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR^AMHLEIN("GAD-2 and GAD-7 Generalized Anxiety Disorder Outcomes - Scores ",80),$$CTR^AMHLEIN("for Multiple Patients",80),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"This option is used to list GAD-2, and GAD-7 Scores for multiple "
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"patients sorted by patient.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"Please note: Only visits with GAD-2, and GAD-7 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: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLINIC1+1
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: PROV1+1
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS/GAD SCORES TO REPORT"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$E(AMHNAME,1,15),?17,$$HRN^AUPNPAT(DFN,DUZ(2))
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?24,$$D^AMHLEIN($P($P(^AMHREC(AMHV,0),U,1),"."))
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?24,$$D^AMHLEIN($$VD^APCLV(AMHV))
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?34,T,?40,Z
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: ?65,$$VAL^XBDIQ1(9002011.01,X,.01)_"-"_$E($$VAL^XBDIQ1(9002011.01,X,.04),1,6)
  • Line Location: PRINT1+20
Function Call: WRITE
  • Prompt: ?65,$$VAL^XBDIQ1(9000010.07,X,.01)_"-"_$E($$VAL^XBDIQ1(9000010.07,X,.04),1,6)
  • Line Location: PRINT1+24
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("GAD-2, and GAD-7 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: !,"PATIENT NAME",?17,"HRN",?24,"Date",?33,"GAD2",?40,"GAD7",?48,"Provider",?58,"CLINIC",?65,"Diagnosis/POV"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+9
Routine Call
  • DIC
  • Line Location:
    • CLINIC1+1
    • PROV1+1
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+7
    • CLINIC+2
    • PROV+2
    • ZIS+1
    • DONE+2
    • HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] PROC+6, PROC+16, PRINT1+3
^AMHREC("AVISIT" PROC+27
^AMHREC("B" PROC+4, PROC+5
^AMHRMSR - [#9002011.12] PRINT1+9, PRINT1+10
^AMHRMSR("AD" PRINT1+7
^AMHRPRO("AD" PRINT1+19
^AUPNVMSR - [#9000010.01] PRINT1+14, PRINT1+15
^AUPNVMSR("AD" PRINT1+12
^AUPNVPOV("AD" PRINT1+23
^AUPNVSIT - [#9000010] PROC+28, PROC+33
^AUPNVSIT("B" PROC+24, PROC+25
^DPT - [#2] PROC+19, PROC+36
^VA(200 - [#200] HEADER1+2
^XTMP("AMHRGADM" PROC+19*, PROC+36*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1!

Label References

Name Line Occurrences
BROWSE ZIS+3
CLINIC CLINIC1+3, PROV+3, PROV1+3
DATES DATES+8, DATES+11, CLINIC+3
DEMO PROV+4
DONE PRINT+2
HEADER PRINT+1, PRINT1+1
HEADER1 HEADER+1
PRINT1 PRINT+7
PROV CLINIC+4, DEMO+2
XIT DATES+4, CLINIC1+1, PROV1+1, 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!, PROC+23, HEADER1+4
>> AMHBT PROC+3*
AMHBTH PROC+3*, PROC+19, PROC+36, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1!
>> AMHDATE PRINT+5*, PRINT+6, PRINT+7
>> AMHDEMO DEMO+1, DEMO+2, PROC+12
AMHED DATES+1!, DATES+9*, DATES+11, XIT+1!, PROC+4, PROC+24, HEADER1+4
AMHJOB PROC+3*, PROC+19, PROC+36, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1!
>> AMHNAME PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT1+2
>> AMHPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
AMHPROVT PROV+1!, PROV+4!, PROV1+3, PROV1+4!, PROC+14, PROC+15, PROC+31, PROC+32, HEADER1+6
AMHPROVT( PROC+15, PROC+32
AMHPROVT("*" PROV1+4
AMHQ PRINT+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT1+1, HEADER+2*
AMHRCLNT CLINIC+1!, CLINIC+4!, CLINIC1+3, CLINIC1+4!, PROC+17, PROC+18, PROC+34, PROC+35, HEADER1+5
AMHRCLNT( PROC+18, PROC+35
AMHRCLNT("*" CLINIC1+4
>> AMHSD DATES+13*, PROC+4*, PROC+5, PROC+19, PROC+23*, PROC+24*, PROC+25, PROC+36
>> AMHT PRINT+6*, PRINT+7, PRINT1+3, PRINT1+4, PRINT1+6, PRINT1+11, PRINT1+17, PRINT1+21
>> AMHV PRINT+7*, PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+12, PRINT1+18, PRINT1+19, PRINT1+22, PRINT1+23
>> AMHV0 PROC+6*, PROC+7, PROC+8
>> AMHVCC PROC+16*, PROC+17, PROC+18, PROC+33*, PROC+34, PROC+35
>> AMHVIEN PROC+5*, PROC+6, PROC+10, PROC+11, PROC+13, PROC+16, PROC+19, PROC+25*, PROC+26, PROC+27
, PROC+28, PROC+30, PROC+33, PROC+36
>> AMHVPP PROC+13*, PROC+14, PROC+15, PROC+30*, PROC+31, PROC+32
DA CLINIC+2!, CLINIC1+1!, PROV+2!, PROV1+1!, ZIS+1!
>> DFN PROC+8*, PROC+9, PROC+12, PROC+19, PROC+28*, PROC+29, PROC+36, PRINT+4*, PRINT+5, PRINT+6
, PRINT+7, PRINT1+2
DIC CLINIC1+1*!, PROV1+1*!
DIC("S" CLINIC1+1*, PROV1+1*
DIC(0 CLINIC1+1*, PROV1+1*
DIR DATES+2!, DATES+6!, CLINIC+2!, PROV+2!, ZIS+1!, DONE+2!, HEADER+2!
DIR("A" DATES+2*, DATES+6*, CLINIC+2*, PROV+2*, ZIS+1*, DONE+2*
DIR("B" CLINIC+2*, PROV+2*, ZIS+1*
DIR(0 DATES+2*, DATES+6*, CLINIC+2*, PROV+2*, ZIS+1*, DONE+2*, HEADER+2*
>> DIRUT DATES+4, DATES+8, CLINIC+3, PROV+3, ZIS+2, DONE+2*
DT HEADER1+2
>> DTOUT HEADER+2
>> DUOUT DONE+2
DUZ PROC+11, HEADER1+2
DUZ(2 PRINT1+2
IO DONE+2, HEADER+2
IO("Q" XIT+1!
IO(0 DONE+2, HEADER+2
IOF START+1, HEADER1+1
IOSL PRINT1+1
IOST DONE+2, HEADER+2
>> J PRINT1+5*
>> T PRINT1+5*, PRINT1+9*, PRINT1+14*, PRINT1+16
U PROC+8, PROC+16, PROC+19, PROC+28, PROC+33, PROC+36, PRINT1+3, PRINT1+9, PRINT1+10, PRINT1+14
, PRINT1+15, HEADER1+2
>> X CLINIC1+1*, PROV1+1*, PRINT1+5*, PRINT1+7*, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+12*, PRINT1+13, PRINT1+14
, PRINT1+15, PRINT1+19*, PRINT1+20, PRINT1+23*, PRINT1+24, HEADER1+4*, HEADER1+5*, HEADER1+6*
>> 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, CLINIC+4, CLINIC1+1, CLINIC1+2, PROV+4, PROV1+1, PROV1+2, ZIS+3, XIT+1!
, PRINT1+5*, PRINT1+8*, PRINT1+9, PRINT1+10, PRINT1+13*, PRINT1+14, PRINT1+15, HEADER+2
>> Z PRINT1+5*, PRINT1+10*, PRINT1+15*, PRINT1+16
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