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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDCLAS1

Package: Scheduling

Routine: SDCLAS1


Information

SDCLAS1 ;ALB/TMP,MRY - Clinic Assignment Listing ; 12/23/02

Source Information

Source file <SDCLAS1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 1 CLOSE^DGUTQ  
Scheduling 1 DTS^SDUTL  
VA FileMan 1 ^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDCLAS  

Entry Points

Name Comments DBIA/ICR reference
MTINIT
PATIENT
PRT
DAYS
HDR
HDR1
TOT
PRT1
PRT2
CKHDR
END
AGE

External References

Name Field # of Occurrence
^%DTC DAYS, AGE
CLOSE^DGUTQ END+1
DTS^SDUTL PRT+7, HDR1, HDR1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SDCLAS1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !,?0,SDFLG,SDNAM,?32,$P(Y1,"^")
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?45,$S($P(Y,"^",6)="O":"OPT",$P(Y,"^",6)="A":"AC",1:"")
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?87,X
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?96,Y
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?110,Y
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: ?124,SDAGE
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?52,SDCAT
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !,?2,"As of Date: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: Y,?53,"CLINIC ASSIGNMENT LISTING",?92,"Page ",PG,?106,"Stop Code ",SDSTOP,!,?2,"Print Date: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: Y,?53,"CLINIC ASSIGNMENT LISTING",?92,"Page ",PG,?106,"Stop Code ",SDSTOP,!,?2,"Print Date: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?X,"FOR ",SDCLNAM
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?X,SDIV
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: SDL
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,?83,"Number of",?98,"Date of",?108,"Date of",!,?43,"Patient",?65,"Elig",?83,"Days",?98,"Last",?108,"Next",!,?12,"Name",?35,"SSN",?43,"Status",?65,"Code",?83,"Enrolled"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: ?98,"Visit",?108,"Appointment",?124,"Age",!
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,?1,"+ = Enrolled as of ",Y," with no future appts."
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,SDL,!
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,?3,"NUMBER OF ACTIVE PATIENTS : ",$J(+$G(^UTILITY($J,"SDACT",SDIFN)),5)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !,?3,"NUMBER OF ENROLLED PATIENTS",!,?5,"(NO FUTURE APPOINTMENTS) : ",$J(+$G(^UTILITY($J,"SDENR",SDIFN)),5)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !!,?3,"Eligibility Code Totals: ",SDCLNAM,!!
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !!,?3,"Means Test Category Totals: ",SDCLNAM,!!
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: ?X1,$S(SDEL'>0:"Unknown",1:$P(^DIC(8,SDEL,0),"^",1)) S:SDEL'>0
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: ?(X1+30),": ",$S($D(SDELIG(SDEL)):$J(SDELIG(SDEL),5),1:$J("0",5))
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X1=93
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: ?X1,$S(SDMT["A":"NSC MT COPAY EXEMPT",SDMT["B":"CATEGORY B",SDMT["C":"MT COPAY REQUIRED",SDMT["G":"GMT COPAY REQUIRD",SDMT["N":"NON-VETERAN",SDMT["U":"REQUIRED (NOT DONE)",SDMT["X":"NOT APPLICABLE",1:"UNKNOWN")
  • Line Location: PRT2+0
Function Call: WRITE
  • Prompt: ?(X1+19),": ",$S($D(SDMT1(SDMT)):$J(SDMT1(SDMT),5),1:$J("0",5))
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X1=49
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CKHDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CKHDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] HDR
^DIC(40.7 - [#40.7] HDR
^DIC(8 - [#8] PRT+4, TOT+4, PRT1
^SC - [#44] HDR, TOT
^UTILITY($J SDCLAS1+4, PATIENT, PRT+1, TOT+1, TOT+2, END+1!

Label References

Name Line Occurrences
AGE PRT+8
CKHDR TOT+1, TOT+2, TOT+4, TOT+6
DAYS PRT+6
END SDCLAS1+5
HDR SDCLAS1+4, PRT
HDR1 TOT, CKHDR
MTINIT SDCLAS1+4
PATIENT SDCLAS1+4
PRT PATIENT
PRT1 TOT+4
PRT2 TOT+6
TOT SDCLAS1+4

Naked Globals

Name Field # of Occurrence
^(0 PRT+4, HDR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%IS END!
%T END!
%Y END!
%ZIS END+1!
A TOT+6*, END!
A1 END!
A2 END!
A3 END!
ALL END!
DFN SDCLAS1+2!, PATIENT*, PRT+1, END!
DG1 END!
DGA1 END!
DGT END!
DGX END!
DIC SDCLAS1+2!
DIV END!
DT HDR1
I SDCLAS1+2!, SDCLAS1+4*, END!
I1 SDCLAS1+2!, MTINIT*, PATIENT*, END!
I2 MTINIT*, END!
I3 END!
IOF SDCLAS1+4, PRT, TOT, CKHDR
IOSL PRT, TOT, CKHDR
ONE SDCLAS1+2!
PG SDCLAS1+3*, HDR1*, END!
PG1 SDCLAS1+3*, HDR1*, END!
PGM END!
POP END!
SD END!
SD02 END+1!
SD1 END!
SDACT PRT+2*, END+1!
SDAGE PRT+8, END!, AGE*
SDAPPT SDCLAS1+2!
>> SDCAT PRT+9*
SDCL SDCLAS1+2!, SDCLAS1+4*, PATIENT, PRT+1, HDR, END!
SDCLIN SDCLAS1+3*, SDCLAS1+4*, PATIENT, PRT+1, END!
SDCLNAM HDR*, HDR1+1, TOT+3, TOT+5, END!
SDCNTY END!
SDEL PRT+4*, TOT+4*, PRT1*, END!
SDEL1 PRT+4*, END!
SDELIG SDCLAS1+2!, TOT+7!
SDELIG( PRT+4*, PRT1
SDEN END!
SDENR END+1!
SDFAST HDR1+6, TOT+2, END+1!
SDFLG PRT+2*, PRT+3, END+1!
SDHX END!
SDI END!
SDIFN SDCLAS1+2!, SDCLAS1+4*, TOT, TOT+1, TOT+2, END!
SDIV HDR*, HDR1+2, END!
SDL HDR1+3*, HDR1+7, END+1!
SDLAST SDCLAS1+2!
SDMT SDCLAS1+2!, PRT+5*, PRT+9, TOT+6*, PRT2, PRT2+1, END+1!
SDMT1 SDCLAS1+2!, TOT+7!
SDMT1( PRT+5*, TOT+6, PRT2+1
SDNAM SDCLAS1+4*, PATIENT*, PRT+1, PRT+3, END!
SDNEXT SDCLAS1+2!
SDSAV END!
SDSRT END!
SDSTAT END!
SDSTOP HDR*, HDR1, END!
SDT SDCLAS1+2!
SDTS PRT+8, DAYS, HDR1, HDR1+6, END+1!
SDTT SDCLAS1+2!, HDR1+4, TOT*, TOT+7!, END!
SDY PRT+7*, END!
SDZ END!
SDZIP END!
VAL END!
VAR END!
X PRT+6*, DAYS, HDR1+1*, HDR1+2*, END!, AGE
X1 PRT+8*, DAYS*, HDR*, TOT+3*, TOT+4*, TOT+5*, TOT+6*, PRT1, PRT2, PRT2+1
, END!
X2 PRT+8*, DAYS*, END!
Y SDCLAS1+2!, PRT+1*, PRT+2, PRT+3, PRT+6, PRT+7*, HDR1*, HDR1+6*, END!
Y1 PRT+1*, PRT+3, PRT+4, PRT+5, PRT+8, END!
Z1 END!
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All