Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YSASGPH

Package: Mental Health

Routine: YSASGPH


Information

YSASGPH ;ALB/ASF,HIOFO/FT - ASI MULTIPLE OUTPUT ;1/30/13 11:20pm

Source Information

Source file <YSASGPH.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for YSAS ASI COMPOSITE SCORES option
ENQ ;queue task entry
PT ;patient lookup
TLD ;load ASI list
GR ;LOOP OUTPUT
GR1 ;output loop
GR2 ;change scores
TLP ; print list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No ASIs found for this patient.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Date Medical Emp/Sup Alcohol Drug Legal Family Psych"
  • Line Location: GR+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($P(G,U,2),"5ZD")
  • Line Location: GR1+2
Function Call: WRITE
  • Prompt: $S($P(G,U,I)?.E1N.E:$J($P(G,U,I),9,2),1:$J("--",9))
  • Line Location: GR1+3
Function Call: WRITE
  • Prompt: !!,"Change "
  • Line Location: GR2+2
Function Call: WRITE
  • Prompt: $S(G1=""!(G2=""):$J("--",9),1:$J(G1-G2,9,2))
  • Line Location: GR2+5
Function Call: WRITE
  • Prompt: !,VADM(1)," ","xxx-xx-"_$E($P(VADM(2),U,2),8,11),?$X+5,"ASI Composite Scores",!
  • Line Location: TLP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^YSTX(604 - [#604] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call