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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDSCNSCP

Package: Scheduling

Routine: SDSCNSCP


Information

SDSCNSCP ;ALB/JAM - ASCD NSC Encounters Purge ; 4/24/07 4:29pm

Source Information

Source file <SDSCNSCP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
Scheduling 3 $$GETOE^SDOE  GETDATE^SDSCOMP  (DIV,TYPE)^SDSCUTL  
VA FileMan 3 ^DIK  $$GET1^DIQ  ^DIR  
PCE Patient Care Encounter 1 $$PRIMVPRV^PXUTL1  
Registration 1 (DEM,KVA)^VADPT  

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 PURGE NSC ENC  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point
BEG ; Begin report
FND ; Find records and delete
HDR ; Print report
EXIT ;clean up variables before exiting option

External References

Name Field # of Occurrence
^%ZIS EN+22
^%ZTLOAD EN+27
^DIK FND+23
$$GET1^DIQ FND+17, FND+21
^DIR EN+7, EN+19
$$PRIMVPRV^PXUTL1 FND+21
$$GETOE^SDOE FND+8
GETDATE^SDSCOMP EN+4
DIV^SDSCUTL EN+6
TYPE^SDSCUTL EN+12
DEM^VADPT FND+19
KVA^VADPT FND+24
$$FMTE^XLFDT FND+22, HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You do not have privileges to run this report."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"This option will permanently remove the outpatient encounters that are at a"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"NEW status when both the Encounter SC value and the ASCD value are 'NO' from"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"the SDSC SERVICE CONNECTED CHANGES file (#409.48).",!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED"
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,"Grand total of NSC Records Purged: ",SDGTOT
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(SDOEDT,2),?16,SDOE,?30,$E(VADM(1),1,25),?55,$E(SDPRV,1,19),?75,SCVST
  • Line Location: FND+22
Function Call: WRITE
  • Prompt: !!,"Number of NSC Records Purged: ",SDCNT," for "_SDSCDNM
  • Line Location: FND+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: SDHDR,?67,"PAGE: ",SDPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?5,"For Encounters Dated ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)," For Division: ",SDSCDNM,!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "Encounter Date",?16,"Encounter No.",?30,"Patient Name",?55,"Provider",?73,"SC Val"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+22
Routine Call
  • DIR
  • Line Location:
    • EN+7
    • EN+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^SDSC(409.48 - [#409.48] Classic Fileman Calls
^AUPNVSIT - [#9000010] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] BEG+7
^SDSC(409.48 - [#409.48] FND+5, FND+7, FND+8

Label References

Name Line Occurrences
EXIT EN+4, EN+8, EN+20, EN+22, EN+23, BEG+4, BEG+10
FND BEG+4, BEG+8
HDR FND+3, FND+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+22!*
DA FND+1~, FND+23*
DFN FND+1~, FND+19*
DIK FND+1~, FND+23*
DIR EN+1~, EN+10!
DIR("?" EN+18*
DIR("A" EN+17*
DIR("B" EN+17*
DIR(0 EN+17*
DTOUT EN+2~, EN+8, EN+20
DUOUT EN+2~, EN+8, EN+20
I HDR+1~, HDR+7*
IO("Q" EN+23, EN+27!
IOC EN+22!
IOF HDR+3
ION EN+26
IOP EN+22!
IOSL FND+25
IOST FND+25
POP EN+1~, EN+22
SCLN EN+9, EN+10!
SCVST FND+1~, FND+17*, FND+18, FND+20*, FND+22
SDCNT FND+1~, FND+4*, FND+20*, FND+26
SDEDIV FND+1~, FND+12*, FND+13
SDEDT FND+5, HDR+5, EXIT+1!
SDGTOT BEG+1~, BEG+2*, BEG+9, FND+20*
SDHDR HDR+1~, HDR+2*, HDR+4
SDI BEG+1~, BEG+6*
SDL FND+1~, FND+4*, FND+21*, FND+25
SDOE FND+1~, FND+6*, FND+7*, FND+8, FND+22, FND+23
SDOE0 FND+1~, FND+8*, FND+9, FND+17, FND+19
SDOEDT FND+1~, FND+4*, FND+5*, FND+7, FND+22
SDOPT EXIT+1!
SDPG BEG+1~, BEG+2*, HDR+4, HDR+8*
SDPRV FND+1~, FND+21*, FND+22
SDSCBDT EXIT+1!
SDSCCR EXIT+1!
SDSCDATA FND+1~, FND+8*, FND+9, FND+11, FND+12, FND+15
SDSCDIV BEG+1~, BEG+3*, BEG+4, BEG+5, BEG+6*, BEG+7, FND+13
SDSCDNM BEG+1~, BEG+4*, BEG+7*, FND+26, HDR+5
SDSCDVLN EN+1~, EN+9*, BEG+3
SDSCDVSL EN+1~, EN+9*, BEG+3, BEG+6
SDSCEDT EXIT+1!
SDSCTAT EXIT+1!
SDSCTDT EN+4, FND+4, HDR+5, EXIT+1!
SDTYPE EN+13, EXIT+1!
SDV0 FND+1~, FND+17*, FND+21
U FND+11, FND+12, FND+15, FND+17, FND+19
>> VADM(1 FND+22
X EN+1~
Y EN+1~, EN+9, EN+20
ZTDESC EN+1~, EN+24*
ZTDTH EN+1~, EN+24*
ZTIO EN+22!, EN+26*
ZTQUEUED EN+1~
ZTRTN EN+1~, EN+24*
ZTSAVE EN+1~
ZTSAVE("SDEDT" EN+25*
ZTSAVE("SDSCDVLN" EN+25*
ZTSAVE("SDSCDVSL" EN+25*
ZTSAVE("SDSCTDT" EN+26*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All