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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YSASCSB

Package: Mental Health

Routine: YSASCSB


Information

YSASCSB ;692/DCL-ASI MISSING COMPOSITE SCORES ;1/23/97 11:39

Source Information

Source file <YSASCSB.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$LN^XLFMTH  
Mental Health 1 EN^YSASCSC  
VA FileMan 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
IF(YSASIEN,YSASFLD,YSASFLG) ;pass ien and field - return content
C(X,Y,Z) ;return score/msg - pass data in X, Item # in Y and optional comment in Z.
EM(X) ;Error Message
SM(X) ;Score Message
EN(YSASDA) ;Entry point
QTEP ;Queued Task Entry Point
CSMS ;Composit Score for Medical Status
CSES ;Composit Score for Employment Status
CSA ;Composit Score for Alcohol
CSD ;Composit Score for Drug
FF() ;Form Feed
HDR ;Header

External References

Name Field # of Occurrence
^%ZIS EN+3
HOME^%ZIS EN+11
^%ZISC QTEP+4
^%ZTLOAD EN+10
$$GET1^DIQ IF+4
$$LN^XLFMTH CSES+13, CSA+19
EN^YSASCSC QTEP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Fields for Medical Composite Scores"
  • Line Location: CSMS+3
Function Call: WRITE
  • Prompt: !,"-----------------------------------",!
  • Line Location: CSMS+4
Function Call: WRITE
  • Prompt: !,$$C(YSASA,"M6")
  • Line Location: CSMS+7
Function Call: WRITE
  • Prompt: !,$$C(YSASB,"M7")
  • Line Location: CSMS+9
Function Call: WRITE
  • Prompt: !,$$C(YSASC,"M8")
  • Line Location: CSMS+11
Function Call: WRITE
  • Prompt: !!,$$EM("Medical")
  • Line Location: CSMS+12
Function Call: WRITE
  • Prompt: !!,$$SM("Medical"),$J((YSASA/90)+(YSASB/12)+(YSASC/12),6,4)
  • Line Location: CSMS+13
Function Call: WRITE
  • Prompt: !!!,"Items for Employment Composite Scores"
  • Line Location: CSES+1
Function Call: WRITE
  • Prompt: !,"-------------------------------------",!
  • Line Location: CSES+2
Function Call: WRITE
  • Prompt: !,$$C(YSASA,"E4")
  • Line Location: CSES+5
Function Call: WRITE
  • Prompt: !,$$C(YSASB,"E5")
  • Line Location: CSES+7
Function Call: WRITE
  • Prompt: !,$$C(YSASC,"E11")
  • Line Location: CSES+9
Function Call: WRITE
  • Prompt: !,$$C(YSASD,"E12")
  • Line Location: CSES+11
Function Call: WRITE
  • Prompt: !!,$$EM("Employment")
  • Line Location: CSES+12
Function Call: WRITE
  • Prompt: !!,$$SM("Employment"),$J(1.000-(YSASA+YSASB+YSASC+YSASD),6,4)
  • Line Location: CSES+15
Function Call: WRITE
  • Prompt: !!!,"Items for Alcohol Composite Scores"
  • Line Location: CSA+3
Function Call: WRITE
  • Prompt: !,"----------------------------------",!
  • Line Location: CSA+4
Function Call: WRITE
  • Prompt: !,$$C(YSASA,"D1")
  • Line Location: CSA+7
Function Call: WRITE
  • Prompt: !,$$C(YSASB,"D2")
  • Line Location: CSA+9
Function Call: WRITE
  • Prompt: !,$$C(YSASC,"D26")
  • Line Location: CSA+11
Function Call: WRITE
  • Prompt: !,$$C(YSASD,"D28")
  • Line Location: CSA+13
Function Call: WRITE
  • Prompt: !,$$C(YSASE,"D30")
  • Line Location: CSA+15
Function Call: WRITE
  • Prompt: !,$$C(YSASF,"D23")
  • Line Location: CSA+17
Function Call: WRITE
  • Prompt: !!,$$EM("Alcohol")
  • Line Location: CSA+18
Function Call: WRITE
  • Prompt: !!,$$SM("Alcohol"),$J(YSASA+YSASB+YSASC+YSASD+YSASE+YSASF,6,4)
  • Line Location: CSA+22
Function Call: WRITE
  • Prompt: !!!,"Items for Drug Composite Scores"
  • Line Location: CSD+3
Function Call: WRITE
  • Prompt: !,"-------------------------------",!
  • Line Location: CSD+4
Function Call: WRITE
  • Prompt: !,$$C(YSASA,"D3")
  • Line Location: CSD+7
Function Call: WRITE
  • Prompt: !,$$C(YSASB,"D4")
  • Line Location: CSD+9
Function Call: WRITE
  • Prompt: !,$$C(YSASC,"D5")
  • Line Location: CSD+11
Function Call: WRITE
  • Prompt: !,$$C(YSASD,"D6")
  • Line Location: CSD+13
Function Call: WRITE
  • Prompt: !,$$C(YSASE,"D7")
  • Line Location: CSD+15
Function Call: WRITE
  • Prompt: !,$$C(YSASF,"D8")
  • Line Location: CSD+17
Function Call: WRITE
  • Prompt: !,$$C(YSASG,"D9")
  • Line Location: CSD+19
Function Call: WRITE
  • Prompt: !,$$C(YSASH,"D10")
  • Line Location: CSD+21
Function Call: WRITE
  • Prompt: !,$$C(YSASI,"D11")
  • Line Location: CSD+23
Function Call: WRITE
  • Prompt: !,$$C(YSASJ,"D13")
  • Line Location: CSD+25
Function Call: WRITE
  • Prompt: !,$$C(YSASK,"D27")
  • Line Location: CSD+27
Function Call: WRITE
  • Prompt: !,$$C(YSASL,"D29")
  • Line Location: CSD+29
Function Call: WRITE
  • Prompt: !,$$C(YSASM,"D31")
  • Line Location: CSD+31
Function Call: WRITE
  • Prompt: !!,$$EM("Drug")
  • Line Location: CSD+32
Function Call: WRITE
  • Prompt: !!,$$SM("Drug"),$J(YSASA+YSASB+YSASC+YSASD+YSASE+YSASF+YSASG+YSASH+YSASI+YSASJ+YSASK+YSASL+YSASM,6,4)
  • Line Location: CSD+37
Function Call: WRITE
  • Prompt: !!,"<press <cr> to continue>"
  • Line Location: FF+4
Function Call: WRITE
  • Prompt: !,$$IF(YSASDA,.02)," ASI interview date: ",$$IF(YSASDA,.05)
  • Line Location: HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSTX(604 - [#604] GET1^DIQ

Label References

Name Line Occurrences
$$C CSMS+7, CSMS+9, CSMS+11, CSES+5, CSES+7, CSES+9, CSES+11, CSA+7, CSA+9, CSA+11
, CSA+13, CSA+15, CSA+17, CSD+7, CSD+9, CSD+11, CSD+13, CSD+15, CSD+17, CSD+19
, CSD+21, CSD+23, CSD+25, CSD+27, CSD+29, CSD+31
$$EM CSMS+12, CSES+12, CSA+18, CSD+32
$$FF QTEP+3, CSA+1, CSD+1
$$IF CSMS+6, CSMS+8, CSMS+10, CSES+4, CSES+6, CSES+8, CSES+10, CSA+6, CSA+8, CSA+10
, CSA+12, CSA+14, CSA+16, CSD+6, CSD+8, CSD+10, CSD+12, CSD+14, CSD+16, CSD+18
, CSD+20, CSD+22, CSD+24, CSD+26, CSD+28, CSD+30, HDR+1
$$SM CSMS+13, CSES+15, CSA+22, CSD+37
CSA QTEP+1
CSD QTEP+1
CSES QTEP+1
CSMS QTEP+1
HDR CSMS+2, CSA+2, CSD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, EN+2*
DIERR IF+3~
DTIME FF+5
IO EN+13
IO("Q" EN+5
IOF CSMS+1, FF+6
IOST CSMS+1, CSA+2, CSD+2, FF+1
POP EN+1~, EN+4
X C~, C+1, C+2, EM~, EM+1, SM~, SM+1, FF+3~, FF+5*, FF+7
Y C~, C+1, C+2
YSASA CSMS+5~, CSMS+6*, CSMS+7, CSMS+12, CSMS+13, CSES+3~, CSES+4*, CSES+5, CSES+12, CSES+14*
, CSES+15, CSA+5~, CSA+6*, CSA+7, CSA+18, CSA+20*, CSA+22, CSD+5~, CSD+6*, CSD+7
, CSD+32, CSD+33*, CSD+37
YSASB CSMS+5~, CSMS+8*, CSMS+9, CSMS+12, CSMS+13, CSES+3~, CSES+6*, CSES+7, CSES+12, CSES+14*
, CSES+15, CSA+5~, CSA+8*, CSA+9, CSA+18, CSA+20*, CSA+22, CSD+5~, CSD+8*, CSD+9
, CSD+32, CSD+33*, CSD+37
YSASC CSMS+5~, CSMS+10*, CSMS+11, CSMS+12, CSMS+13, CSES+3~, CSES+8*, CSES+9, CSES+12, CSES+14*
, CSES+15, CSA+5~, CSA+10*, CSA+11, CSA+18, CSA+20*, CSA+22, CSD+5~, CSD+10*, CSD+11
, CSD+32, CSD+33*, CSD+37
YSASD CSES+3~, CSES+10*, CSES+11, CSES+12, CSES+13*, CSES+14*, CSES+15, CSA+5~, CSA+12*, CSA+13
, CSA+18, CSA+20*, CSA+22, CSD+5~, CSD+12*, CSD+13, CSD+32, CSD+33*, CSD+37
YSASDA EN~, CSMS+6, CSMS+8, CSMS+10, CSES+4, CSES+6, CSES+8, CSES+10, CSA+6, CSA+8
, CSA+10, CSA+12, CSA+14, CSA+16, CSD+6, CSD+8, CSD+10, CSD+12, CSD+14, CSD+16
, CSD+18, CSD+20, CSD+22, CSD+24, CSD+26, CSD+28, CSD+30, HDR+1
YSASE CSA+5~, CSA+14*, CSA+15, CSA+18, CSA+21*, CSA+22, CSD+5~, CSD+14*, CSD+15, CSD+32
, CSD+34*, CSD+37
YSASF CSA+5~, CSA+16*, CSA+17, CSA+18, CSA+19*, CSA+21*, CSA+22, CSD+5~, CSD+16*, CSD+17
, CSD+32, CSD+34*, CSD+37
YSASFLD IF~, IF+2, IF+4
YSASFLG IF~, IF+4
YSASG CSD+5~, CSD+18*, CSD+19, CSD+32, CSD+34*, CSD+37
YSASH CSD+5~, CSD+20*, CSD+21, CSD+32, CSD+34*, CSD+37
YSASI CSMS+5~, CSES+3~, CSD+5~, CSD+22*, CSD+23, CSD+32, CSD+35*, CSD+37
YSASIEN IF~, IF+1, IF+4
YSASJ CSD+5~, CSD+24*, CSD+25, CSD+32, CSD+35*, CSD+37
YSASK CSD+5~, CSD+26*, CSD+27, CSD+32, CSD+35*, CSD+37
YSASL CSD+5~, CSD+28*, CSD+29, CSD+32, CSD+35*, CSD+37
YSASM CSD+5~, CSD+30*, CSD+31, CSD+32, CSD+36*, CSD+37
YSASQUIT EN+1~, FF+2, FF+7*
Z C~, C+1, C+2
ZTDESC EN+6~, EN+8*
ZTRTN EN+6~, EN+7*
ZTSAVE EN+6~
ZTSAVE("YSASDA" EN+9*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All