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

Package: Scheduling

Routine: SDACSCGP


Information

SDACSCGP ;ALB/TET - Print Computer Generated Appt Types or Stop Codes ;3/18/92 14:26

Source Information

Source file <SDACSCGP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 (CLOSE,ZIS)^DGUTQ  DEM^VADPT  FIRST^VAUTOMA  
VA Fileman 3 (,DD)^%DT  YX^%DTC  ^DIR  
Scheduling 1 ASK2^SDDIV  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDACS CGATLIST  SDACS CGSCLIST  

Entry Points

Name Comments DBIA/ICR reference
SORT ; -- set tmp global to sort in alpha order by ssn & date, count sets
SCFTR ; -- footer
EN ; -- print either CG stop codes or CG appt types
; ('ag' or 'acg' cross ref)
ACG ; -- test ag
HDR ; -- page header
AG ; -- test ag
READ ;enter here to read
STOP ; -- one,many,all selection of stop codes
DAT ; -- get and print data
P1
QUE ; -- entry point
SCHDR ; -- stop code header
CR ; -- carriage return
PRINT ; -- loop thru division and stop code
EXIT
DIV ; -- get division name for header

External References

Name Field # of Occurrence
^%DT READ+10, READ+26
DD^%DT READ+18, READ+20, READ+39
YX^%DTC READ+5
CLOSE^DGUTQ EXIT+2
ZIS^DGUTQ STOP+10
^DIR CR+1
ASK2^SDDIV READ+2
DEM^VADPT QUE+13
FIRST^VAUTOMA STOP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"There are no 'Computer Generated' ",$S(SDX="AG":"Stop Codes.",1:"Appointment Types which need updating.")
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,$E(SDNAM,1,20),?25,SDSSN,?45,Y
  • Line Location: DAT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?IOM-(11+$L(SDDIVNAM))/2,"DIVISION: ",SDDIVNAM,!,"COMPUTER GENERATED "_SDHDR,?40,FR," TO ",TO,?70,"PAGE ",PG,!,"PATIENT",?25,"PATIENT ID",?45,"VISIT DATE/TIME"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,DASH,!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?3,"STOP CODE: ",SDSTNAM
  • Line Location: SCHDR+4
Function Call: WRITE
  • Prompt: !!,CT," Computer Generated ",$S(SDX="ACG":"Appointment Types ",1:"Stop Codes "),"for Stop Code, ",SDSTNUM,", ",SDSTNAM,!
  • Line Location: SCFTR+3
Routine Call
  • DIR
  • Line Location:
    • CR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DAT+7
^DG(40.8 - [#40.8] DIV+1
^DIC(40.7 - [#40.7] SCHDR+1
^SCE - [#409.68] QUE+4, QUE+7, QUE+9, QUE+10, QUE+11
^TMP($J PRINT+2, PRINT+5, P1+1, P1+3, EXIT+1!, DAT+2, DAT+5, DAT+6, SORT+6*

Label References

Name Line Occurrences
CR PRINT+2, P1+3, SCFTR+1
DAT P1+3
DIV PRINT+3
EN AG+3, ACG+3
EXIT READ+2, READ+15, READ+36, STOP+6, STOP+11, QUE+4, PRINT+2
HDR PRINT+3, P1+3, SCFTR+1
P1 PRINT+5
SCFTR PRINT+5
SCHDR PRINT+5
SORT QUE+17

Naked Globals

Name Field # of Occurrence
^(0 DIV+1, SCHDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT READ+6*, READ+16!, READ+22*
%DT("A" READ+7*, READ+23*
%DT("B" READ+8*, READ+24*
>> %H READ+4*
CT PRINT+5*, EXIT!, DAT+8*, SORT+1*, SORT+7*, SCFTR+3
D EXIT!
DA EXIT!
DASH QUE+2*, EXIT!, HDR+5
DE EXIT!
DFN QUE+1~, QUE+13*, EXIT!
DGPGM STOP+9*, EXIT!
DGVAR STOP+8*, EXIT!
DIC STOP+4*, EXIT!
DIE EXIT!
>> DIR(0 CR+1*
DIRUT PRINT+2, EXIT!
DQ EXIT!
DR EXIT!
DT READ+11, READ+20, READ+30
DTOUT READ+14, READ+35, PRINT+2, PRINT+5, P1+3, EXIT!, CR+1, SCFTR+2
DUOUT PRINT+2, PRINT+5, P1+3, EXIT!, CR+1, SCFTR+2
FR READ+18*, READ+23, EXIT+1!, HDR+3
I EXIT!
IOF HDR+3
IOM HDR+3
IOSL P1+3, SCFTR+1
IOST CR+1
L EXIT!
PG PRINT+1*, PRINT+2, EXIT+1!, HDR+1*, HDR+3
POP STOP+11, EXIT!
SDA EXIT!
SDAPTYP EXIT!
SDAPTYPR QUE+1~, QUE+16*, DAT+6*, DAT+10, SORT+6
SDBEG READ+17*, READ+27, READ+37*, QUE+6, EXIT!
SDC QUE+17, EXIT!
SDC( QUE+17
SDCSN EXIT+1!
SDCSNODE EXIT!
SDDAT EXIT!, DAT+1*, DAT+2*, DAT+5, DAT+6, DAT+7
SDDIV QUE+1~, QUE+12*, QUE+14, PRINT+1*, PRINT+2*, PRINT+5, P1+1, P1+3, EXIT+1!, DAT+2
, DAT+5, DAT+6, SORT+4*, SORT+6, DIV+1
SDDIVNAM EXIT+1!, DIV+1*, HDR+3
SDEND READ+38*, QUE+7, EXIT!
SDHDR EXIT+1!, HDR+2*, HDR+3
SDI EXIT!
SDIEN DAT+3~, DAT+4*, DAT+5*, DAT+6
SDJ EXIT!
SDNAM P1*, P1+1*, P1+3, EXIT!, DAT+2, DAT+5, DAT+6, DAT+9, SORT+2*, SORT+6
SDOE QUE+1~, QUE+8*, QUE+9*, QUE+10, QUE+11, SORT+6
SDOE0 QUE+1~, QUE+10*, QUE+12, QUE+13, QUE+15, SORT+6
SDOECG QUE+1~, QUE+11*, QUE+16
SDSSN P1+2*, P1+3*, EXIT!, DAT+2, DAT+5, DAT+6, DAT+9, SORT+3*, SORT+6
SDSTNAM EXIT+1!, SCHDR+2*, SCHDR+4, SCFTR+3
SDSTNUM EXIT+1!, SCHDR+3*, SCFTR+3
SDSTOP QUE+1~, QUE+15*, QUE+17, PRINT+4*, PRINT+5*, P1+1, P1+3, EXIT+1!, DAT+2, DAT+5
, DAT+6, SORT+5*, SORT+6, SCHDR+1
SDSTZ EXIT+1!, SCHDR+1*, SCHDR+2, SCHDR+3
SDT QUE+1~, QUE+6*, QUE+7*, QUE+9
SDUPDT EXIT!
SDX READ+1, QUE+4, QUE+7, QUE+9, EXIT!, DAT+10, HDR+2, HDR+4, SCFTR+3, AG+1~
, AG+2*, ACG+1~, ACG+2*
SDY EXIT!
SDZNODE EXIT!
TO READ+21*, READ+23, READ+39*, EXIT+1!, HDR+3
TYPE EXIT!
U QUE+12, QUE+13, QUE+15, QUE+16
VA EXIT!
VA("PID" SORT+3
VADM EXIT!
VADM(1 SORT+2
VAERR EXIT!, SORT+2, SORT+3
VAUTD QUE+14, EXIT!
VAUTD( QUE+14
VAUTNI STOP+1*, EXIT+1!
VAUTSTR STOP+2*, EXIT+1!
VAUTVB STOP+3*, EXIT+1!
>> X READ+9, READ+11, READ+14*, READ+15, READ+25, READ+27, READ+33, READ+35*, READ+36
Y READ+2, READ+8, READ+9, READ+11, READ+13*, READ+17, READ+18, READ+20*, READ+21, READ+24
, READ+25, READ+27, READ+29*, READ+30, READ+32*, READ+33, READ+38, READ+39, STOP+6, EXIT!
, DAT+7*, DAT+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All