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

Package: Scheduling

Routine: SDSCCHK


Information

SDSCCHK ;ALB/JAM/RBS - Check Encounters for Inclusion in ASCD ; 4/30/07 4:46pm

Source Information

Source file <SDSCCHK.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Scheduling 5 $$GETOE^SDOE  $$SC^SDSCAPI  (ELIG,GETDATE1)^SDSCOMP  RPTEND^SDSCRPT1  $$NCTCL^SDSCUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Integrated Billing 2 $$INSUR^IBBAPI  ($$FIRST,$$THIRD)^IBRSUTL  
Registration 2 (DEM,KVA)^VADPT  $$SITE^VASITE  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ^DIR  

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 SDSC CHECK COMPILE  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
PRT ; Print results
BEG ; Begin report
EXIT ;
FND ; Find errors with encounters
HDR ; Header
; Do not ask 'RETURN' before first page on CRT.
STORE ; Store the encounter for later use.
STORED ; Store the diagnosis encounter for detail
NBFP() ; Is first-party non-billable based on either clinic, stop code, or patient?
NBTP() ; Is third-party non-billable based on either clinic, stop code, or patient?

External References

Name Field # of Occurrence
^%ZIS EN+16
HOME^%ZIS EN+3
^%ZTLOAD EN+20
^DIR EN+13, HDR+2
$$INSUR^IBBAPI NBTP+2
$$FIRST^IBRSUTL NBFP+1
$$THIRD^IBRSUTL NBTP+1
$$GETOE^SDOE FND+5
$$SC^SDSCAPI FND+27
ELIG^SDSCOMP PRT+3
GETDATE1^SDSCOMP EN+11
RPTEND^SDSCRPT1 BEG+25
$$NCTCL^SDSCUTL FND+23
DEM^VADPT FND+11, STORED+3
KVA^VADPT STORED+3
$$SITE^VASITE EN+6
$$FMADD^XLFDT EN+10
$$FMTE^XLFDT HDR+10, STORE+4, STORED+4
$$GET^XPAR EN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,$J(^TMP("SDSCCHK",$J,"TOTAL",SDTXT),8),?10,SDTXT
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: BEG+13
Function Call: WRITE
  • Prompt: !,$J(TOTAL,8),?10,"TOTAL Encounters"
  • Line Location: BEG+14
Function Call: WRITE
  • Prompt: !!,"* Third Party=TP; Means Test=MT",!
  • Line Location: BEG+15
Function Call: WRITE
  • Prompt: !,$P(SDDATA,U,1),?12,$P(SDDATA,U,2),?24,$E($P(SDDATA,U,3),1,19),?44,$E($P(SDDATA,U,4),1,16)
  • Line Location: BEG+21
Function Call: WRITE
  • Prompt: ?62,$E($P(^TMP("SDSCCHK",$J,"DX",SDTXT),U,5),1,18),!,?10,$P($P(^TMP("SDSCCHK",$J,"DX",SDTXT),U,6),"(",1)
  • Line Location: BEG+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: SDHDR,?67,"PAGE: ",P
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?5,"For Encounters Dated ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?2,"# Enc",?10,"Reason"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !!,"Note: The Detail report will ONLY list additional encounter information ",!," for the Diagnosis code related Reasons.",!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"Enc #",?12,"Visit #",?24,"Clinic",?42,"Encounter Date/Time",?62,"Patient Name",!,?10,"Reason"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+15
Routine Call
  • %ZIS
  • Line Location:
    • EN+16
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • EN+13
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] FND+21, FND+23, STORE+4, STORED+4
^SCE("B" PRT+5, PRT+7
^SDSC(409.48 - [#409.48] FND+3
^TMP("SDSCCHK" PRT+2!, BEG+8, BEG+9, BEG+11, BEG+19, BEG+20, BEG+22, EXIT+3!, STORE+2*, STORE+3*
, STORE+4*, STORE+5*, STORED+4*, STORED+5*

Label References

Name Line Occurrences
$$NBFP FND+25
$$NBTP FND+25
EXIT EN+11, EN+14, EN+16, EN+17, BEG+6, BEG+17
FND PRT+7
HDR BEG+3, BEG+12, BEG+17, BEG+24
STORE FND+5, FND+10, FND+13, FND+15, FND+17, FND+19, FND+21, FND+23, FND+25
STORED FND+29, FND+32, FND+33, FND+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+16!*
DFN EXIT+2!, FND+1~, FND+11*, FND+27, STORED+1~, STORED+3*
DIR EN+13!, HDR+2~
DIR("B" EN+12*
DIR(0 EN+12*, HDR+2*
DT EN+10
DTOUT EN+14, EXIT+3!
DUOUT EN+14, EXIT+3!
I BEG+10*, BEG+13*, EXIT+2!, HDR+15*
IO BEG+5, HDR+7
IO("Q" EN+17, EN+20!
IOC EN+16!
IOF HDR+4
IOP EN+16!
IOSL BEG+12, BEG+24
IOST HDR+2, HDR+4
L PRT+1~, BEG+1*, BEG+9*, BEG+12, BEG+23*, BEG+24, HDR+5*
P PRT+1~, BEG+1*, HDR+2, HDR+4, HDR+5*, HDR+9
POP EN+1~, EN+16, EXIT+2!
QUE EXIT+2!
SDABRT BEG+1*, BEG+6, BEG+8, BEG+12, BEG+17, BEG+19, BEG+24, EXIT+1!, HDR+2*
SDANS EN+15*, BEG+2*, BEG+17*, EXIT+1!, HDR+6, HDR+11, HDR+12
SDCLIN EXIT+1!, FND+1~, FND+8*, FND+19, FND+21, FND+23, STORE+4, STORED+4
SDCST FND+1~, FND+21*
SDCT PRT+1~, PRT+4*, STORE+1*, STORE+2, STORE+3, STORE+4
SDDATA BEG+20*, BEG+21, EXIT+2!
SDDCT PRT+1~, PRT+4*, STORED+2*, STORED+4
SDEC FND+1~, FND+15*, FND+17
SDEDT PRT+5, EXIT+1!, HDR+10
SDFILEOK FND+1~, FND+27*, FND+29, FND+31, FND+32
SDFPTX EXIT+1!, FND+25, NBFP+1*, NBTP+1*, NBTP+2*
SDHDR EXIT+1!, HDR+6*, HDR+9
SDLIST EXIT+1!
SDLIST( FND+17
SDNWPV EXIT+1!, HDR+8*
SDOANS PRT+1~, BEG+1*, BEG+2*, BEG+17
SDOE PRT+1~, PRT+6*, PRT+7*, FND+3, FND+5, FND+27, STORE+2, STORE+3, STORED+4, NBFP+1
, NBTP+1
SDOEDAT FND+1~, FND+5*, FND+7, FND+8, FND+10, FND+13, FND+15, FND+21, STORE+2, STORE+4
, STORED+4
SDOEDT PRT+1~, PRT+4*, PRT+5*, PRT+7, NBTP+2
SDOEX EXIT+1!
SDPAT FND+1~, FND+10*, FND+11, STORE+3, STORED+3, NBTP+2
SDPNAM FND+1~, FND+11*, STORE+4, STORED+1~, STORED+3*, STORED+4
SDPOV EXIT+1!
SDSCBDT EN+1~, EN+5*, EN+10*
SDSCDAY EN+1~, EN+5*, EN+7*, EN+9*, EN+10
SDSCEDT EN+5*, EN+10*, EXIT+2!
SDSCITE EN+1~, EN+6*, EN+7
SDSCTDT EN+11, PRT+4, EXIT+2!, HDR+10
SDSCTXT EXIT+2!, FND+5*, FND+10*, FND+13*, FND+15*, FND+17*, FND+19*, FND+21*, FND+23*, FND+25*
, FND+29*, FND+32*, FND+33*, FND+35*, STORE+2, STORE+3, STORE+4, STORE+5, STORED+4, STORED+5
SDTXT PRT+1~, BEG+7*, BEG+8*, BEG+9, BEG+10, BEG+11, BEG+18*, BEG+19*, BEG+20, BEG+22
SDV0 FND+1~, FND+13*, STORED+4
TOTAL PRT+1~, BEG+1*, BEG+11*, BEG+14
U EN+6, BEG+21, BEG+22, FND+7, FND+8, FND+10, FND+13, FND+15, FND+21, FND+23
, STORE+4, STORED+4, NBFP+1, NBTP+1
VADM FND+11~
VADM(1 FND+11, STORED+3
X EXIT+2!
Y EN+15, EXIT+2!, HDR+2
ZTDESC EN+1~, EN+18*
ZTDTH EN+1~, EN+18*
ZTIO EN+16!
ZTQUEUED EN+1~
ZTRTN EN+1~, EN+18*
ZTSAVE EN+1~
ZTSAVE("SDANS" EN+19*
ZTSAVE("SDEDT" EN+19*
ZTSAVE("SDSCTDT" EN+19*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All