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

Package: Scheduling

Routine: SDECSTSQ


Information

SDECSTSQ ; ALB/WTC - VISTA SCHEDULING GUI; 21 Aug 2019 7:10 AM ; 13 Nov 2019 9:28 AM

Source Information

Source file <SDECSTSQ.m>

Entry Points

Name Comments DBIA/ICR reference
FIND ;
FIND0 ;
FIND1 ;
FIND2 ;
FIND3 ;
FIND4 ; Entry point for queued report printing
LINE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Generate report showing status of patient appointment, encounter or appointment file entries for a single status triple.",!
  • Line Location: FIND+4
Function Call: WRITE
  • Prompt: !,"Select starting date to check",!
  • Line Location: FIND0+23
Function Call: WRITE
  • Prompt: !
  • Line Location: FIND0+24
Function Call: READ
  • Formatting: !
  • Prompt: "Select patient appointment status: "
  • Variable: X
  • Timeout: $S($G(DTIME):DTIME,1:300)
  • Line Location: FIND1+1
Function Call: WRITE
  • Prompt: !!,"Enter a code from the list below or enter NULL",!
  • Line Location: FIND1+3
Function Call: WRITE
  • Prompt: $P(FIELD,":",1)," - ",$P(FIELD,":",2),!
  • Line Location: FIND1+5
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: FIND1+8
Function Call: WRITE
  • Prompt: " - ",$$SETCODES^SDECSTSR(2.98,3,X)
  • Line Location: FIND1+9
Function Call: READ
  • Formatting: !
  • Prompt: "Select encounter status: "
  • Variable: X
  • Timeout: $S($G(DTIME):DTIME,1:300)
  • Line Location: FIND2+1
Function Call: WRITE
  • Prompt: !!,"Enter a status from the list below or enter NULL or NONE",!
  • Line Location: FIND2+2
Function Call: WRITE
  • Prompt: X,!
  • Line Location: FIND2+3
Function Call: READ
  • Formatting: !
  • Prompt: "Select appointment file status: "
  • Variable: X
  • Timeout: $S($G(DTIME):DTIME,1:300)
  • Line Location: FIND3+1
Function Call: WRITE
  • Prompt: !!,"Enter a code from the list below or enter NONE or NULL",!
  • Line Location: FIND3+2
Function Call: WRITE
  • Prompt: $P(FIELD,":",1)," - ",$P(FIELD,":",2),!
  • Line Location: FIND3+4
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: FIND3+7
Function Call: WRITE
  • Prompt: " - ",$$SETCODES^SDECSTSR(409.84,.17,X)
  • Line Location: FIND3+8
Function Call: WRITE
  • Prompt: $S($D(ZTSK):"...Task queued",1:"...Task cancelled"),!
  • Line Location: FIND3+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FIND4+4
Function Call: WRITE
  • Prompt: "-------------------------------------------------------------------------------",!
  • Line Location: LINE+2
Info |  Source |  Entry Points |  Interaction Calls