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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SCDXSUP

Package: Scheduling

Routine: SCDXSUP


Information

SCDXSUP ;RENO/KEITH ALB/SCK - Consistency checker for Ambulatory Care Reporting Project (ACRP); 02/26/97

Source Information

Source file <SCDXSUP.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ($$DT,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA FileMan 2 ^DIE  ^DIR  
Scheduling 1 ($$CRTXMIT,STREEVNT,XMITFLAG)^SCDXFU01  

Entry Points

Name Comments DBIA/ICR reference
CQ ;Queue re-calculation of OUTPATIENT ENCOUNTER checkout status
CQ1
CQAPI(SCBG,SCED,SCPFLG) ; API entry point for re-calculation of OUTPATIENT ENCOUNTER checkout status
; INPUT:
; SCBG - Beginning date, if passed in, use it
; SCED - Ending date, if passed in, use it
; SCPFLG - Print Report flag
; 1 - Print report
; 0 - Do not print report
CALC ;Update Checkout Status
CRTX ;
NEXT1 ;
EXIT ;
EVAL(SC0,OEIN,SDT) ;Evaluate checkout status
; ** If the encounter appt. status is CHECKED OUT, and the check out process is
; completed, but there is no entry for the encounter in the Transmitted
; Outpatient Encounter file, then process the encounter into the Transmitted
; Outpatient Encounter File, #409.73
HDR ; Header
PRT(SC0) ;Print appointment
ASKDT(TXT) ; Enter beginning date for searching outpatient encounter file
NEWPAGE() ; Check device and display prompt for terminals

External References

Name Field # of Occurrence
^DIE EVAL+25, EVAL+32
^DIR ASKDT+4, NEWPAGE+4
$$CRTXMIT^SCDXFU01 EVAL+26, EVAL+35
STREEVNT^SCDXFU01 EVAL+27, EVAL+36
XMITFLAG^SCDXFU01 EVAL+27, EVAL+36
$$DT^XLFDT ASKDT+3
$$FMTE^XLFDT CALC+21, CALC+22, CALC+23, PRT+5, ASKDT+3
$$NOW^XLFDT CALC+21
EN^XUTMDEVQ CQ1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will check outpatient encouters with a status of 'CHECKED OUT'"
  • Line Location: CQ+13
Function Call: WRITE
  • Prompt: !,"for a entry in the TRANSMITTED OUTPATIENT ENCOUNTER file."
  • Line Location: CQ+14
Function Call: WRITE
  • Prompt: !,"If no entry exists, and the encounter is for a COUNT Clinic, then "
  • Line Location: CQ+15
Function Call: WRITE
  • Prompt: !,"a transmission entry will be added."
  • Line Location: CQ+16
Function Call: WRITE
  • Prompt: !!,"This may take a while, please queue to a printer!",!
  • Line Location: CQ+17
Function Call: WRITE
  • Prompt: !!,"Ending date cannot be earlier than the Beginning date!",!
  • Line Location: CQ1+3
Function Call: WRITE
  • Prompt: !!,"No encounters with missing transmission records found."
  • Line Location: CRTX+4
Function Call: WRITE
  • Prompt: !!,SCCT," transmission record",$S(SCCT=1:"",1:"s")," created."
  • Line Location: CRTX+12
Function Call: WRITE
  • Prompt: !!,"No Count Clinic encounters found needing retransmission."
  • Line Location: NEXT1+7
Function Call: WRITE
  • Prompt: !!,SCCT," Count clinic encounters marked for retransmission."
  • Line Location: NEXT1+14
Function Call: WRITE
  • Prompt: !,SCLINE,!,?(IOM-($L(SCHD)+10)\2),"<*> ",SCHD," <*>",!,SCLINE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"For date range ",SCBDT," to ",SCEDT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Date printed: ",SCPNOW,?(IOM-7-$L(PAGE)),"Page: ",PAGE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Patient",?21,"SSN",?33,"Appointment",?56,"Clinic",!,SCLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$E($P(SCPT0,U),1,18),?21,$P(SCPT0,U,9)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?33,$P($$FMTE^XLFDT($P(SC0,U)),":",1,2)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: ?56,$E($P($G(^SC(+$P(SC0,U,4),0)),U),1,(IOM-56))
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWPAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPAGE+5
Routine Call
  • DIE
  • Line Location:
    • EVAL+25
    • EVAL+32
Routine Call
  • DIR
  • Line Location:
    • ASKDT+4
    • NEWPAGE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCE - [#409.68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRT+3
^SC - [#44] EVAL+23, EVAL+30, PRT+6
^SCE - [#409.68] CALC+10
^SCE("B" CALC+8, CALC+9, CALC+14!
^SD(409.73 - [#409.73] EVAL+22, EVAL+33
^TMP("SCMSC" CALC+4!, CRTX+3, CRTX+7, CRTX+8, CRTX+9, NEXT1+6, NEXT1+10, NEXT1+11, NEXT1+12, EXIT+2!
, EVAL+27*, EVAL+36*

Label References

Name Line Occurrences
$$ASKDT CQ+20, CQ1
$$NEWPAGE CRTX+11, NEXT1+2, PRT+2
CQ1 CQ1+2
EVAL CALC+15
EXIT CALC+17, NEXT1+6
HDR CRTX+2, CRTX+11, NEXT1+5, NEXT1+14, PRT+2
NEXT1 CRTX+3
PRT CRTX+9, NEXT1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS CQ1+6~, CQ1+7*, CQ1+8, EXIT+1!
>> DA EVAL+24*, EVAL+31*
DIE EVAL+24*, EVAL+25!, EVAL+31*, EVAL+32!
DIR ASKDT+4!, NEWPAGE+1~
DIR("?" ASKDT+2*
DIR("A" ASKDT+1*
DIR("B" ASKDT+3*
DIR(0 ASKDT+1*, NEWPAGE+4*
DIRUT ASKDT+5, ASKDT+6!
DR EVAL+24*, EVAL+25!, EVAL+31*, EVAL+32!
IOF NEXT1+4, HDR+1, NEWPAGE+5
IOM CALC+20, HDR+2, HDR+4, PRT+6
IOSL CRTX+11, NEXT1+14, PRT+2
IOST NEXT1+4, NEWPAGE+2
OEIN CALC+2~, CALC+9*, CALC+10, CALC+14, CALC+15, CRTX+8*, CRTX+9, NEXT1+11*, NEXT1+12, EVAL~
, EVAL+22, EVAL+24, EVAL+26, EVAL+27, EVAL+31, EVAL+33, EVAL+35, EVAL+36
PAGE CALC+24*, NEXT1+3*, EXIT+1!, HDR+1, HDR+4, HDR+7*
SC0 EVAL~, EVAL+22, EVAL+23, EVAL+27, EVAL+29, EVAL+30, EVAL+36, PRT~, PRT+3, PRT+5
, PRT+6
SCABRT CALC+2~, CRTX+7, CRTX+8, NEXT1+2, NEXT1+10, NEXT1+11, PRT+2, NEWPAGE+4*, NEWPAGE+5
SCBDT CQ+19~, CQ+20*, CQ+21, CQ1+2, CQAPI+8*, CALC+7, CALC+22*, EXIT+1!, HDR+3
SCBG CQAPI~, CQAPI+8
SCCT CALC+2~, CALC+24*, CRTX+6*, CRTX+12, NEXT1+9*, NEXT1+14, PRT+3*
SCDT CALC+2~, CALC+7*, CALC+8*, CALC+9, CALC+14, CALC+15, CRTX+6*, CRTX+7*, CRTX+8, CRTX+9
NEXT1+9*, NEXT1+10*, NEXT1+11, NEXT1+12
SCE0 CALC+2~, CALC+10*, CALC+13, CALC+15, CRTX+9*, NEXT1+12*
SCED CQAPI~, CQAPI+9
SCEDT CQ+19~, CQ1*, CQ1+1, CQ1+2, CQAPI+9*, CALC+8, CALC+23*, EXIT+1!, HDR+3
SCHD CRTX+1*, NEXT1+1*, EXIT+1!, HDR+2
SCLINE CALC+2~, CALC+20*, HDR+2, HDR+6
SCOK NEWPAGE+1~, NEWPAGE+5*, NEWPAGE+6
SCPFLG CQ+19~, CQ1+5*, CQAPI~, CALC+17
SCPNOW CALC+2~, CALC+21*, HDR+4
SCPT0 EXIT+1!, PRT+3*, PRT+4
SCTOE EVAL+21~, EVAL+26*, EVAL+27, EVAL+33*, EVAL+34, EVAL+35*, EVAL+36
SDT EVAL~, EVAL+27, EVAL+36
TXT ASKDT~, ASKDT+1
U CALC+15, EVAL+22, EVAL+23, EVAL+29, EVAL+30, PRT+3, PRT+4, PRT+5, PRT+6
>> X NEXT1+2*
>> Y ASKDT+5*, ASKDT+7, NEWPAGE+4
ZTSAVE CQ1+6~, CQ1+8
ZTSAVE("SCBDT" CQ1+7*
ZTSAVE("SCEDT" CQ1+7*
ZTSAVE("SCPFLG" CQ1+7*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All