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

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)

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
Info |  Source |  Entry Points |  Interaction Calls