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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGSRVICE

Package: Registration

Routine: DGSRVICE


Information

DGSRVICE ;SLC/PKR - Routines for setting service indexes. ;01/13/2006

Source Information

Source file <DGSRVICE.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
CSERVDI(DFN,EDATE,SEPDATE,TYPE) ;
PPTYPEM ;Print the patient type index mismatches
CSERVDG(DFN,EDATE,SEPDATE,TYPE) ;
SSERV(X,DA,TYPE) ;Set index for service data.
KSERV(X,DA,TYPE) ;Delete index for service data.
PSERVM ;Print the service date index mismatches
VERIFY ;Check to make sure the indexes and global are in agreement.

External References

Name Field # of Occurrence
$$FMTE^XLFDT VERIFY+2, VERIFY+57
$$NOW^XLFDT VERIFY+2, VERIFY+57

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DFN=",DFN," PATIENT TYPE=",PTYPE
  • Line Location: PPTYPEM+5
Function Call: WRITE
  • Prompt: !,"DFN=",DFN," TYPE=",TYPE," Entry date=",$P(TEMP,U,1)," Separation date=",$P(TEMP,U,2)
  • Line Location: PSERVM+7
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT,"5Z")," Starting index verification.",!
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !,"The following global entries do not have a matching service date index entry:"
  • Line Location: VERIFY+17
Function Call: WRITE
  • Prompt: !!,"The following service date index entries do not have a corresponding global entry:"
  • Line Location: VERIFY+32
Function Call: WRITE
  • Prompt: !,"No problems were found with the service dates index."
  • Line Location: VERIFY+35
Function Call: WRITE
  • Prompt: !!,"The following global entries do not have a matching patient type index entry:"
  • Line Location: VERIFY+41
Function Call: WRITE
  • Prompt: !!,"The following patient type index entries do not have a corresponding"
  • Line Location: VERIFY+52
Function Call: WRITE
  • Prompt: !,"global entry:"
  • Line Location: VERIFY+53
Function Call: WRITE
  • Prompt: !,"No problems were found with the patient type index."
  • Line Location: VERIFY+56
Function Call: WRITE
  • Prompt: !!,$$FMTE^XLFDT($$NOW^XLFDT,"5Z")," Index verification complete."
  • Line Location: VERIFY+57

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CSERVDG+2, VERIFY+7, VERIFY+8, VERIFY+10, VERIFY+49
^DPT("APTYPE" VERIFY+9, VERIFY+46, VERIFY+48
^DPT("ASERVICE" CSERVDI+4, KSERV+5!, SSERV+7*, VERIFY+22, VERIFY+24, VERIFY+26, VERIFY+28
^TMP($J CSERVDI+4*, CSERVDG+9*, PPTYPEM+3, PPTYPEM+4, PSERVM+3, PSERVM+5, PSERVM+6, VERIFY+4!, VERIFY+9*, VERIFY+15
, VERIFY+20!, VERIFY+30, VERIFY+34!, VERIFY+39, VERIFY+43!, VERIFY+49*, VERIFY+50, VERIFY+55!

Label References

Name Line Occurrences
CSERVDG VERIFY+29
CSERVDI VERIFY+12, VERIFY+13, VERIFY+14
PPTYPEM VERIFY+42, VERIFY+54
PSERVM VERIFY+18, VERIFY+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA KSERV~, KSERV+3, KSERV+4, KSERV+5, SSERV~, SSERV+5, SSERV+6, SSERV+7
DFN CSERVDI~, CSERVDI+2, CSERVDI+3, CSERVDI+4, CSERVDG~, CSERVDG+2, CSERVDG+9, PPTYPEM+1~, PPTYPEM+2*, PPTYPEM+3*
, PPTYPEM+4, PPTYPEM+5, PSERVM+1~, PSERVM+2*, PSERVM+3*, PSERVM+5, PSERVM+6, PSERVM+7, VERIFY+1~, VERIFY+6*
, VERIFY+7*, VERIFY+8, VERIFY+9, VERIFY+10, VERIFY+12, VERIFY+13, VERIFY+14, VERIFY+25*, VERIFY+26*, VERIFY+28
, VERIFY+29, VERIFY+47*, VERIFY+48*, VERIFY+49
EDATE CSERVDI~, CSERVDI+1, CSERVDI+2*, CSERVDI+4, CSERVDG~, CSERVDG+4*, CSERVDG+6, CSERVDG+7, CSERVDG+8, CSERVDG+9
, VERIFY+1~, VERIFY+12*, VERIFY+13*, VERIFY+14*, VERIFY+23*, VERIFY+24*, VERIFY+26, VERIFY+28, VERIFY+29
ENTRY KSERV+2~, KSERV+3*, KSERV+5, SSERV+4~, SSERV+5*, SSERV+7
NOMATCH CSERVDG+1~, CSERVDG+3*, CSERVDG+6*, CSERVDG+7*, CSERVDG+8*, CSERVDG+9
NOPROB VERIFY+1~, VERIFY+3*, VERIFY+16*, VERIFY+31*, VERIFY+35, VERIFY+38*, VERIFY+40*, VERIFY+51*, VERIFY+56
PTYPE PPTYPEM+1~, PPTYPEM+4*, PPTYPEM+5, VERIFY+1~, VERIFY+8*, VERIFY+9
SEP KSERV+2~, KSERV+4*, KSERV+5, SSERV+4~, SSERV+6*, SSERV+7
SEPDATE CSERVDI~, CSERVDI+1, CSERVDI+3*, CSERVDI+4, CSERVDG~, CSERVDG+5*, CSERVDG+6, CSERVDG+7, CSERVDG+8, CSERVDG+9
, VERIFY+1~, VERIFY+12*, VERIFY+13*, VERIFY+14*, VERIFY+21*, VERIFY+22*, VERIFY+24, VERIFY+26, VERIFY+28, VERIFY+29
TEMP CSERVDG+1~, CSERVDG+2*, CSERVDG+6, CSERVDG+7, CSERVDG+8, PSERVM+1~, PSERVM+6*, PSERVM+7, VERIFY+1~, VERIFY+10*
, VERIFY+11, VERIFY+12, VERIFY+13, VERIFY+14
TYPE CSERVDI~, CSERVDI+4, CSERVDG~, CSERVDG+6, CSERVDG+7, CSERVDG+8, CSERVDG+9, KSERV~, KSERV+5, PSERVM+1~
, PSERVM+4*, PSERVM+5*, PSERVM+6, PSERVM+7, SSERV~, SSERV+7, VERIFY+1~, VERIFY+27*, VERIFY+28*, VERIFY+29
, VERIFY+45*, VERIFY+46*, VERIFY+48, VERIFY+49
U CSERVDI+4, CSERVDG+6, CSERVDG+7, CSERVDG+8, CSERVDG+9, PSERVM+7, VERIFY+12, VERIFY+13, VERIFY+14
X KSERV~, SSERV~
X(1 KSERV+1, KSERV+3, SSERV+3, SSERV+5
X(2 KSERV+1, KSERV+4, SSERV+3, SSERV+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All