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

Package: Scheduling

Routine: SDECSTP


Information

SDECSTP ;ALB/BNT - SCHEDULING ENHANCEMENTS STOP CODES ;11/04/2012

Source Information

Source file <SDECSTP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 WAIT^DICD  ^DIR  
Toolkit 1 (EN,GETLST)^XPAR  

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

Package Total Caller Graph
Scheduling 2 SDCED  SDECXUTL  

Entry Points

Name Comments DBIA/ICR reference
LST ; Display the SCHEDULING STOP CODES Parameters
LSTCLN ; Display all Hospital Locations with SCHEDULING Stop Codes
GETCLNS(SDECARR) ; Get all Scheduling Hospital Location Clinics
; Input: SDECARR = Array passed by ref to return clinics
; Output: SDECARR(Report Type,Clinic Name)=Hospital Location IEN^Stop Code^Stop Code Name
ADD(SDECPARM) ;
HDR(SDECPAGE,LST,SDECNOW) ; Write the header
; Define SDECDATA - Tells whether data has been displayed for a screen
HDLN1 ;
HDLN2 ;
CHKP(SDECLNS,LST,SDECNOW) ; Check for End of Page
; Input variables -> SDECLNS -> Number of lines from bottom
;
; Output variable -> SDECDATA -> 0 -> New screen, no data displayed yet
; 1 -> Data displayed on current screen
WRDESC(LINE) ; Write the description line
WRLN1(CLSTP,CLSCAT) ; Write the SDEC Stop Codes
WRLN2(HLOC,CAT,CLSTP) ; Write the Clinic Location, Category and Stop Code
ULINE(X) ;Print one line of characters
RJ(SDECST,SDECLEN)
PAUSE
PAUSE2
DEVICE ;
EXIT ;
FLTCL(LOC) ; Filter the Clinic Hospital Locations
; Input = Hospital Location file #44 IEN
; Returns 0 = Invalid SQWM Clinic Stop
; 1^STOP CODE NAME^Clinic Name
FLTCLSTP(CLST) ; Filter the CLINIC STOP codes
; Filter SCHEDULING STOP CODES Parameters
;
; Returns 0 = Invalid Clinic Stop
; 1^Parameter Category^STOP CODE^STOP CODE NAME = Valid Clinic Stop
; Parameter Categories are (P=Primary Care, S=Specialty Care, M=Mental Health)

External References

Name Field # of Occurrence
^%ZIS DEVICE+3
HOME^%ZIS DEVICE+17
^%ZTLOAD DEVICE+15
WAIT^DICD LSTCLN+6
^DIR ADD+6, ADD+12, ADD+20, ADD+25
$$FMTE^XLFDT LST+4, LSTCLN+3
EN^XPAR ADD+22, ADD+26
GETLST^XPAR LST+9, ADD+9, FLTCLSTP+9, FLTCLSTP+13, FLTCLSTP+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LSTCLN+6
Function Call: WRITE
  • Prompt: !!,?5,"Total Clinics: ",SDECTOT
  • Line Location: LSTCLN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!,SDECNAME_" is an existing "_SDECAT_" Clinic Stop Code."
  • Line Location: ADD+17
Function Call: WRITE
  • Prompt: !!,SDECNAME_" removed from "_SDECAT_" Clinic Stop Code parameter list."
  • Line Location: ADD+23
Function Call: WRITE
  • Prompt: !!,SDECNAME_" added to "_SDECAT_" Clinic Stop Code parameter list."
  • Line Location: ADD+27
Function Call: WRITE
  • Prompt: !!,"There was an error editing this Stop Code"
  • Line Location: ADD+28
Function Call: WRITE
  • Prompt: !,"Error Code-Description: "_ERR
  • Line Location: ADD+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Print Date: "_$G(SDECNOW),$$RJ("Page: "_SDECPAGE,40)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?1,"Category",?20,"Clinic Stop Code"
  • Line Location: HDLN1+1
Function Call: WRITE
  • Prompt: !,"Clinic Service/Location",?33,"Category",?43,"Clinic Stop Code"
  • Line Location: HDLN2+1
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: WRDESC+1
Function Call: WRITE
  • Prompt: !,?1,CLSCAT,?20,CLSTP
  • Line Location: WRLN1+1
Function Call: WRITE
  • Prompt: !,HLOC,?33,CAT,?43,CLSTP
  • Line Location: WRLN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ULINE+2
Function Call: WRITE
  • Prompt: $G(X,"-")
  • Line Location: ULINE+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, '^' to exit:"
  • Line Location: PAUSE+1
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue:"
  • Line Location: PAUSE2+1
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: PAUSE2+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+16
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+17
Routine Call
  • DIR
  • Line Location:
    • ADD+6
    • ADD+12
    • ADD+20
    • ADD+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] LST+14, FLTCLSTP+10, FLTCLSTP+14, FLTCLSTP+18
^SC - [#44] GETCLNS+11, FLTCL+7, FLTCL+9, FLTCL+17
^SC("B" GETCLNS+9, GETCLNS+10, FLTCL+7

Label References

Name Line Occurrences
$$CHKP LST+18, LSTCLN+14
$$FLTCL GETCLNS+12
$$FLTCLSTP FLTCL+17
$$RJ HDR+6
ADD LST+10
DEVICE LST+5, LSTCLN+10
EXIT ADD+16, ADD+20, ADD+25, DEVICE+7
GETCLNS LSTCLN+8
HDLN1 HDR+10
HDLN2 HDR+11
HDR LST+7, LSTCLN+11, CHKP+9
PAUSE CHKP+9
ULINE HDR+8, HDR+12
WRLN1 LST+19
WRLN2 LSTCLN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1~, DEVICE+2*
ARR LST+1~
CAT WRLN2~, WRLN2+1
CLSCAT WRLN1~, WRLN1+1
CLST LSTCLN+1~, FLTCLSTP~, FLTCLSTP+8, FLTCLSTP+10, FLTCLSTP+14, FLTCLSTP+18
CLSTIEN LST+1~, LST+9~, LST+13*, LST+14
CLSTP WRLN1~, WRLN1+1, WRLN2~, WRLN2+1
DIR ADD+1~, ADD+18~, ADD+24~
DIR("A" ADD+5*, ADD+12*, ADD+19*, ADD+24*
DIR("B" ADD+18*, ADD+24*
DIR("S" ADD+12*
DIR(0 ADD+4*, ADD+12*, ADD+18*, ADD+24*
DIROUT ADD+1~, ADD+6, ADD+13, ADD+20, ADD+25
DIRUT ADD+1~, ADD+6, ADD+13, ADD+20, ADD+25
DT LST+4, LSTCLN+3, FLTCL+15
DTIME PAUSE+2, PAUSE2+2
DTOUT ADD+1~, ADD+6, ADD+13, ADD+20, ADD+25
DUOUT ADD+1~, ADD+6, ADD+13, ADD+20, ADD+25
ERR ADD+1~, ADD+2*, ADD+22~, ADD+23, ADD+26, ADD+27, ADD+29
HLOC LSTCLN+1~, GETCLNS+6~, GETCLNS+9*, GETCLNS+10, GETCLNS+14, WRLN2~, WRLN2+1
HLOCIEN LSTCLN+1~, GETCLNS+6~, GETCLNS+10*, GETCLNS+11, GETCLNS+12, GETCLNS+14
I ULINE+1~, ULINE+2*
IDATE FLTCL+5~, FLTCL+9*, FLTCL+11, FLTCL+13
IO PAUSE+3, PAUSE2+3, DEVICE+18
IO("Q" DEVICE+10
IO(0 PAUSE+1, PAUSE2+1
IOF HDR+4
ION DEVICE+12
IOSL CHKP+9
IOST DEVICE+9
LINE WRDESC~, WRDESC+1
LIST LST+1~, LST+9~, LST+10, ADD+1~, ADD+9, FLTCLSTP+6~, FLTCLSTP+9, FLTCLSTP+10, FLTCLSTP+12~, FLTCLSTP+13
, FLTCLSTP+14, FLTCLSTP+16~, FLTCLSTP+17, FLTCLSTP+18
LIST( LST+12, LST+13, LST+15, ADD+16, FLTCLSTP+10, FLTCLSTP+14, FLTCLSTP+18
LOC FLTCL~, FLTCL+4, FLTCL+7*, FLTCL+9, FLTCL+17
LST HDR~, HDR+10, HDR+11, CHKP~, CHKP+9
NP LST+1~, LST+3*, LST+18*, LSTCLN+1~, LSTCLN+2*, LSTCLN+14*
OK FLTCL+5~*, FLTCL+11*, FLTCL+13*, FLTCL+15*, FLTCL+16, FLTCLSTP+6~, FLTCLSTP+7*, FLTCLSTP+8, FLTCLSTP+10*, FLTCLSTP+11
, FLTCLSTP+14*, FLTCLSTP+15, FLTCLSTP+18*, FLTCLSTP+19
POP DEVICE+1~, DEVICE+4
RDATE FLTCL+5~, FLTCL+9*, FLTCL+13, FLTCL+15
SCIEN LST+1~
SDECARR LST+2~, LST+9~, LSTCLN+1~, LSTCLN+8, GETCLNS~, GETCLNS+7!
SDECARR( LST+15*, LST+17, LST+19, LSTCLN+13, LSTCLN+15, GETCLNS+14*
SDECAT ADD+1~, ADD+8*, ADD+12, ADD+17, ADD+19, ADD+23, ADD+24, ADD+27
SDECCNT LSTCLN+1~, LSTCLN+2*, GETCLNS+6~, GETCLNS+7*, GETCLNS+13*
SDECDATA LST+2~, LST+3*, LSTCLN+1~, LSTCLN+2*, HDR+2*, CHKP+7*, CHKP+8*
SDECDESC LST+3*, LSTCLN+1~, LSTCLN+2*, HDR+9
SDECL RJ+1~, RJ+2*, RJ+3
SDECLEN RJ~, RJ+2, RJ+4
SDECLN LSTCLN+1~, LSTCLN+13*, LSTCLN+15
SDECLNS LST+2~, LST+3*, LSTCLN+1~, LSTCLN+2*, CHKP~, CHKP+5*, CHKP+6*, CHKP+9
SDECNAME ADD+1~, ADD+15*, ADD+17, ADD+19, ADD+23, ADD+24, ADD+27
SDECNOW LST+2~, LST+4*, LST+7, LST+18, LSTCLN+1~, LSTCLN+3*, LSTCLN+11, LSTCLN+14, HDR~, HDR+6
, CHKP~, CHKP+9
SDECPAGE LST+1~, LST+3*, LST+7, LSTCLN+1~, LSTCLN+2*, LSTCLN+11, HDR~, HDR+3*, HDR+6, CHKP+9
SDECPARM LST+2~, LST+8*, LST+9, LST+10, LST+19, ADD~, ADD+3, ADD+7*, ADD+8, ADD+9
, ADD+22, ADD+26
SDECQ LST+1~, LST+3*, LST+5, LST+8, LST+17, LST+18, LSTCLN+1~, LSTCLN+2*, LSTCLN+10, LSTCLN+11
, LSTCLN+13, LSTCLN+14, LSTCLN+16, GETCLNS+6~, HDR+8, CHKP+9, PAUSE+2*, PAUSE2+2*, DEVICE+4*, DEVICE+7
, DEVICE+10*
SDECSCR LST+2~, LST+3*, LSTCLN+1~, LSTCLN+2*, CHKP+6, CHKP+7, CHKP+9, DEVICE+9*
SDECST RJ~, RJ+2, RJ+3, RJ+4
SDECSTP LST+9~, LST+14*, LST+15, LSTCLN+1~, GETCLNS+6~, GETCLNS+12*, GETCLNS+14, ADD+1~, ADD+15*, ADD+16
, ADD+22, ADD+26
SDECTOT LSTCLN+1~, LSTCLN+2*, LSTCLN+16, GETCLNS+13*
SDECTYPE LST+1~
SDQ ADD+1~, ADD+2*, ADD+3, ADD+6*
SDRT LSTCLN+1~, LSTCLN+13*, LSTCLN+15
U LST+13, LST+14, LST+15, LSTCLN+15, GETCLNS+14, ADD+15, ADD+16, FLTCL+9, FLTCL+17, FLTCLSTP+10
, FLTCLSTP+14, FLTCLSTP+18
X LST+9~, LST+12*, LST+13, LST+15, LST+17*, LST+19, ADD+1~, ADD+4~, ADD+12~, ADD+16*
, ULINE~, ULINE+2, PAUSE~, PAUSE+2*, PAUSE2~, PAUSE2+2*, FLTCLSTP+6~, FLTCLSTP+10*, FLTCLSTP+12~, FLTCLSTP+14*
, FLTCLSTP+16~, FLTCLSTP+18*
Y ADD+1~, ADD+4~, ADD+7, ADD+12~, ADD+14, ADD+15, ADD+21, ADD+26, ADD+27
ZTDESC DEVICE+1~, DEVICE+14*
ZTIO DEVICE+1~, DEVICE+12*
ZTQUEUED LST+2~, EXIT+1
ZTREQ LST+2~, EXIT+1*
ZTRTN DEVICE+1~, DEVICE+11*
ZTSAVE DEVICE+1~
ZTSAVE("*" DEVICE+13*
ZTSK DEVICE+1~, DEVICE+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All