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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDACSCG

Package: Scheduling

Routine: SDACSCG


Information

SDACSCG ;ALB/TET - Print/Edit Computer Generated Appt Types ;3/18/92 14:18

Source Information

Source file <SDACSCG.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  IX^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Registration 3 ZIS^DGUTQ  (DEM,ELIG)^VADPT  $$SITE^VASITE  

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 SDACS CGEDIT  

Entry Points

Name Comments DBIA/ICR reference
CK ; -- check the number of computer generated visits
PRINT ;print those CG types which need to be manually updated
QUE ; -- queue entry point
EXIT ; -- exit processing
CR ; -- end of page processing
HDR ; -- header processing
EDIT ; -- edit computer generated appt types
EDITQ
DATE ;
DATEQ
ALL ; -- loop through and edit all computer generated appt types
ALLQ
DPT ; -- look up in patient file & loop through acg for selected dfn
DPTQ
LOOP(SDBEG,SDEND,SDFN) ;
LOOPQ
DEM(SDOE) ; -- get pt name,ssn and visit date
DEMW ; -- write patient demographics
DIE(SDOE) ; -- do edit
SC(DFN) ;SD*721 - Add Service Connected Information
; Input -- DFN Patient file IEN

External References

Name Field # of Occurrence
^%DT EDIT+23, DATE+5
DD^%DT QUE+6, DEM+5
ZIS^DGUTQ PRINT+2
IX^DIC DPT+6
^DIE DIE+5
$$GET1^DIQ LOOP+15, LOOP+16, LOOP+18
^DIR EDIT+14
DEM^VADPT QUE+11, DEM+4
ELIG^VADPT SC+4
$$SITE^VASITE LOOP+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"There are ",CT," encounter(s) with a 'Computer Generated' appointment type.",*7,!
  • Line Location: CK+8
Function Call: WRITE
  • Prompt: !?5,"There are no 'Computer Generated' appointment type encounters."
  • Line Location: CK+10
Function Call: WRITE
  • Prompt: !,SDY,?25,$S(VAERR=0:VADM(1),1:"UNKNOWN"),?60,$G(VA("PID"))
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !!,CT," MATCHES FOUND.",!
  • Line Location: QUE+16
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or '^' to exit: "
  • Line Location: CR+2
Function Call: READ
  • Variable: SDXX
  • Timeout: DTIME
  • Line Location: CR+3
Function Call: WRITE
  • Prompt: !?5,"Enter an '^' to exit the listing, or enter RETURN to continue."
  • Line Location: CR+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"COMPUTER GENERATED APPOINTMENT TYPES"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"ENCOUNTER DATE/TIME",?25,"PATIENT",?60,"PT ID",!,DASH,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?5,"There are no 'Computer Generated' Appointment Types which need updating."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: @IOF,"ENCOUNTER DATE",?25,"PATIENT NAME",?60,"PATIENT SSN"
  • Line Location: DEMW+3
Function Call: WRITE
  • Prompt: !,?3,"DIVISION",?15,"CLINIC LOCATION",?50,"STOP CODE"
  • Line Location: DEMW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMW+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DEMW+5
Function Call: WRITE
  • Prompt: !,SDY,?25,$S(VAERR=0:VADM(1),1:"UNKNOWN"),?60,$G(VA("PID"))
  • Line Location: DEMW+6
Function Call: WRITE
  • Prompt: !!,"Patient's Service Connection and Rated Disabilities:"
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: !!,$S(+VAEL(3)="1":" SC Percent: "_$P(VAEL(3),U,2)_"%",1:" Service Connected: No")
  • Line Location: SC+6
Function Call: WRITE
  • Prompt: !,"Rated Disabilities: "
  • Line Location: SC+7
Function Call: WRITE
  • Prompt: !,"Secondary Eligibility Code: ",$P(VAEL(1,SDSECN),U,2)
  • Line Location: SC+9
Function Call: WRITE
  • Prompt: !,"Primary Eligibility Code: ",$S(+VAEL(1):$P(VAEL(1),U,2),1:"N/A")
  • Line Location: SC+19
Function Call: WRITE
  • Prompt: !,"Secondary Eligibility Code: ",$P(VAEL(1,SDSECN),U,2)
  • Line Location: SC+20
Routine Call
  • DIC
  • Line Location:
    • DPT+6
Routine Call
  • DIE
  • Line Location:
    • DIE+5
Routine Call
  • DIR
  • Line Location:
    • EDIT+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SCE - [#409.68] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] SC+15
^DPT - [#2] LOOP+14, SC+12, SC+18
^SCE - [#409.68] QUE+9, LOOP+11, LOOP+12, LOOP+13, DEM+2
^SCE("ACG" CK+3, CK+5, QUE+5, QUE+8, EDIT+2, LOOP+8, LOOP+10

Label References

Name Line Occurrences
ALL EDIT+21
CR QUE+12, QUE+16, CR+7
DATE EDIT+26
DATEQ DATE+6, DATE+7, DATE+13
DEM LOOP+19
DEMW LOOP+19
DIE LOOP+20
DPT EDIT+29
DPTQ DPT+7, DPT+11
EDIT EDIT+31
EDITQ EDIT+2, EDIT+15
EXIT QUE+5, EDITQ
HDR QUE+4, QUE+12
LOOP DATE+11, ALL+4, DPT+9
SC DEMW+8

Naked Globals

Name Field # of Occurrence
^( SC+12
^(0 SC+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT QUE+1~, QUE+3*, EXIT+1!, EDIT+1~, EDIT+22*, DATE+1~, DATE+3*
%DT(0 EDIT+12*, DATE+4*
CT CK+1~, CK+2*, CK+5*, CK+7, CK+8, QUE+1~, QUE+3*, QUE+15*, QUE+16, EXIT+1!
, DATE+1~, DATE+2*, DATE+14, ALL+1~, ALL+2*, DPT+2~, DPT+3*, DPT+12, DIE+7*
D EXIT+1!, DPT+2~, DPT+5*
DA EXIT+1!, DIE+4*
DASH QUE+2*, EXIT+1!, HDR+2
DE EXIT+1!, DIE+1~
DFN QUE+10*, EXIT+1!, LOOP+1~, DEM+1~, DEM+3*, DEMW+9!, SC~, SC+12, SC+18
DFN0 EXIT+1!
DGPGM PRINT+1*, EXIT+1!
DIC EXIT+1!, DPT+2~, DPT+4*
DIC(0 DPT+4*
DIE EXIT+1!, DIE+1~, DIE+3*
DIR EDIT+1~, EDIT+14!
DIR("?" EDIT+13*
DIR("A" EDIT+5*, EDIT+6*, EDIT+7*, EDIT+8*, EDIT+9*
DIR("B" EDIT+10*
DIR(0 EDIT+11*
DIRUT EXIT+1!, EDIT+15
DQ EXIT+1!, DIE+1~
DR EXIT+2!, DIE+1~, DIE+2*
DSAH QUE+1~
DT DATE+4
DTIME CR+3
DTOUT QUE+5, QUE+8, QUE+13, EXIT+2!, CR+3*, CR+4, DATE+6, DIE+6
DUOUT QUE+5, QUE+8, QUE+13, EXIT+2!, CR+5*
FR EXIT+2!
I EXIT+2!
IOF HDR+1, DEMW+3
IOSL QUE+12, QUE+16
IOST CR+1
J EXIT+2!
POP PRINT+3, EXIT+2!
SDA EXIT+2!
SDAPTYP EXIT+2!
SDARR SC+2~
SDBEG EXIT+2!, DATE+1~, DATE+9*, DATE+11, LOOP~, LOOP+3~*, LOOP+7
SDCELIG LOOP+1~, LOOP+15*, SC+8, SC+21
SDCLIN LOOP+1~, LOOP+16*, DEMW+7
SDCNT SC+2~, SC+10*, SC+13*, SC+16, SC+18
SDCSNODE EXIT+2!
SDDC SC+2~, SC+15*, SC+17
SDDIV EXIT+3!, LOOP+1~, LOOP+18*
SDDT LOOP+1~, LOOP+13*, LOOP+18
SDEND EXIT+3!, DATE+1~, DATE+10*, DATE+11, LOOP~, LOOP+4~*, LOOP+8
SDFN LOOP~, LOOP+5~*, LOOP+11
SDHASH DEMW+2~, DEMW+5*
SDI SC+2~, SC+10*, SC+12*
SDOE CK+1~, CK+4*, CK+5*, QUE+1~, QUE+7*, QUE+8*, QUE+9, LOOP+1~, LOOP+9*, LOOP+10*
, LOOP+11, LOOP+12, LOOP+13, LOOP+15, LOOP+16, LOOP+18, LOOP+19, LOOP+20, DEM~, DEM+2
, DIE~, DIE+4
SDOE0 QUE+1~, QUE+9*, QUE+10, DEM+1~, DEM+2*, DEM+3, DEM+5
SDOUT EDIT+1~, EDIT+17*, EDIT+31, DATE+6*, DATE+13, DPT+11, LOOP+8, LOOP+10, DIE+6*
SDPAT LOOP+1~, LOOP+12*, LOOP+14, DEMW+8
SDRD0 SC+2~, SC+12*, SC+15, SC+17
SDSECN SC+2~, SC+9*, SC+20*
SDSTA LOOP+1~, LOOP+18*, DEMW+7
SDSTOP LOOP+1~, LOOP+16*, DEMW+7
SDT CK+1~, CK+2*, CK+3*, CK+5, QUE+1~, QUE+3*, QUE+5*, QUE+6, QUE+8, LOOP+1~
, LOOP+7*, LOOP+8*, LOOP+10
SDTYPE EXIT+3!
SDUPDT EXIT+3!
>> SDXX CR+3*, CR+4, CR+5
SDY QUE+1~, QUE+6*, QUE+14, EXIT+3!, LOOP+1~, DEM+5*, DEMW+6
SDZ EDIT+19~, EDIT+22*, EDIT+25, EDIT+27
SDZN EXIT+3!
TO EXIT+3!
U QUE+10, LOOP+13, LOOP+18, SC+6, SC+8, SC+9, SC+15, SC+19, SC+20
VA QUE+1~, EXIT+3!, LOOP+1~
VA("PID" QUE+14, DEMW+6
VAADM LOOP+1~
VADM QUE+1~, EXIT+3!
VADM(1 QUE+14, DEMW+6
VAEL EXIT+3!, DEMW+9!
VAEL(1 SC+8, SC+9, SC+19, SC+20
VAEL(3 SC+6
VAEL(4 SC+8
VAERR QUE+1~, QUE+14, EXIT+3!, LOOP+1~, DEMW+6
X QUE+1~, EXIT+3!, EDIT+22*, DPT+5
Y QUE+1~, QUE+6*, EXIT+3!, EDIT+20, EDIT+22, EDIT+24, EDIT+25*, EDIT+27*, EDIT+28, DATE+1~
, DATE+5*, DATE+7, DATE+9, DATE+10, DPT+2~, DPT+7, DPT+9, DEM+1~, DEM+5*, DIE+6
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 |  Naked Globals |  Local Variables  | All