SDECXUTL ;DALLAS/JCH - SCHEDULING ENHANCEMENTS 3 UTILITIES ;11/03/14 10:59am
Source file <SDECXUTL.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 7 | ($$NONCNT,GETSCAT,QUEUE)^SDCED $$GETQUART^SDCED1 $$GETSUP2^SDCED2 GETCLNS^SDECSTP ($$FAC,$$PARSE,SETFILT)^SDECXML ($$PADDT,OUTPUT)^SDECXUTL $$ACTLOC^SDWU |
Kernel | 2 | ($$DEFDIR,$$DEL,$$LIST,CLOSE,OPEN)^%ZISH ($$FMADD,$$FMTE,$$NOW)^XLFDT |
VA FileMan | 2 | ^%DT GETS^DIQ |
M XML Parser | 1 | $$SYMENC^MXMLUTL |
Registration | 1 | $$SITE^VASITE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
PADDT(DATE) | ; leading zeroes
|
|
HFSOPEN(HANDLE) | ; Open file
|
|
HFSCLOSE(HANDLE) | ; Close file
|
|
GETQUART(SDDT) | ||
DIVNAME(DIV) | ; Division name
|
|
OUTPUT(TEXT,PAD,SDLCNT,SDEBUG,CLNTAG,GRPFLG,DIVTAG,XMLNODE) | ; Generic Set/Output
|
|
XDATE(DATE,DTINC) | ; Date format
|
|
BEGEND(DATE,BEGDT,ENDDT,DTINC,SDACTDT) | ; Accept activity Date, Set/Write formatted xml with begin and end dates
|
|
NODATA(RESULT,TEXT) | ||
SUPPLY(SDSTPAR) | ; SUPPLY
|
|
SET(SDEXCLN,TMPDT,SDSUPPLY,SDSTPAR) | ||
SDGRP(CLN,SDGRP) | ; Get external stop code from clinic
|
|
STOPGRP(STP) | ||
STOPIEN(CLN) | ||
GETSUPM(DATE,RPT) | ; Get a months worth of supply for month containing DATE
; ^XTMP("SDCEX","Month","P",3140600,500,"APP","SUP")=543 |
|
GETDEMM(DATE,RPT) | ||
SETSDREC(SDLCNT,SDRPTYP,START,XMLNODE) | ||
MONDEM(DEM,MONTH,SDLCNT) | ; Demand
|
|
MONSUP(SUP,MONTH) | ; Supply
|
|
GETDIVCL(SDNODE,DATINC,SDRPTYP,SDAT,SDFAC,DIV,DIVCLNAR) | ||
DTNAM(DTINC,DTNAM) | ||
SDETFM(DATE) | ; Convert ext date to fm
|
Name | Field # of Occurrence |
---|---|
^%DT | BEGEND+16, SDETFM+4 |
$$DEFDIR^%ZISH | HFSOPEN+13 |
$$DEL^%ZISH | HFSOPEN+9 |
$$LIST^%ZISH | HFSOPEN+8 |
CLOSE^%ZISH | HFSCLOSE+4 |
OPEN^%ZISH | HFSOPEN+10, HFSOPEN+15 |
GETS^DIQ | DIVNAME+5, STOPGRP+3, STOPIEN+3 |
$$SYMENC^MXMLUTL | DIVNAME+8 |
$$NONCNT^SDCED | SUPPLY+10 |
GETSCAT^SDCED | SET+2 |
QUEUE^SDCED | NODATA+7 |
$$GETQUART^SDCED1 | BEGEND+17 |
$$GETSUP2^SDCED2 | SUPPLY+12 |
GETCLNS^SDECSTP | SUPPLY+1 |
$$FAC^SDECXML | NODATA+9 |
$$PARSE^SDECXML | OUTPUT+5, OUTPUT+6 |
SETFILT^SDECXML | NODATA+9 |
$$PADDT^SDECXUTL | XDATE+5, XDATE+6 |
OUTPUT^SDECXUTL | NODATA+8, NODATA+10, NODATA+11, NODATA+12, NODATA+13, NODATA+14, SETSDREC+4, SETSDREC+8, SETSDREC+10, SETSDREC+13 |
$$ACTLOC^SDWU | SUPPLY+9 |
$$SITE^VASITE | DIVNAME+7, NODATA+6, GETSUPM+3, GETDEMM+2 |
$$FMADD^XLFDT | BEGEND+6, BEGEND+9, BEGEND+12, BEGEND+20, SUPPLY+6, SUPPLY+14, SETSDREC+11 |
$$FMTE^XLFDT | GETQUART+2, XDATE+5, XDATE+6, NODATA+5, MONDEM+3, MONDEM+6, MONSUP+2, MONSUP+5 |
$$NOW^XLFDT | NODATA+5, SETSDREC+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | SUPPLY+8 |
^TMP( | SET+4* |
^TMP("SDO" | HFSCLOSE+5! |
^XTMP( | GETDIVCL+2, GETDIVCL+4 |
^XTMP("SDCEX" | GETSUPM+4, GETDEMM+3 |
^XTMP("SDVSE" | OUTPUT+9*, NODATA+15 |
Name | Line Occurrences |
---|---|
$$GETDEMM | SETSDREC+7 |
$$GETSUPM | SETSDREC+9 |
$$MONDEM | SETSDREC+7 |
$$MONSUP | SETSDREC+9 |
$$STOPGRP | SDGRP+4 |
$$STOPIEN | SDGRP+3 |
$$XDATE | BEGEND+4, BEGEND+6, BEGEND+10, BEGEND+12, BEGEND+21 |
SET | SUPPLY+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | BEGEND+16~* |
ACTIVE | SUPPLY+4~ |
BEGDT | BEGEND~, BEGEND+2*, BEGEND+4*, BEGEND+6*, BEGEND+8*, BEGEND+9, BEGEND+10*, BEGEND+12*, BEGEND+18*, BEGEND+19* , BEGEND+20, BEGEND+21* |
CLN | SDGRP~, SDGRP+3, STOPIEN~, STOPIEN+2 |
CLNTAG | OUTPUT~, OUTPUT+3*, NODATA+8, NODATA+10, NODATA+11, NODATA+12, NODATA+13, NODATA+14, SETSDREC+4, SETSDREC+8 , SETSDREC+10, SETSDREC+13 |
COUNT | PADDT+1~, PADDT+4* |
DA | DIVNAME+3~, DIVNAME+4*, DIVNAME+5, DIVNAME+6, STOPGRP+1~, STOPGRP+2*, STOPGRP+3, STOPGRP+4, STOPGRP+5, STOPIEN+1~ , STOPIEN+2*, STOPIEN+3, STOPIEN+4 |
DATE | PADDT~, PADDT+2, PADDT+4*, PADDT+5, XDATE~, XDATE+2, XDATE+4, XDATE+6, BEGEND~, BEGEND+2 , BEGEND+4, BEGEND+6, BEGEND+8, BEGEND+15, BEGEND+16*, BEGEND+17, BEGEND+19, GETSUPM~, GETSUPM+3, GETDEMM~ , GETDEMM+2, SDETFM~, SDETFM+3, SDETFM+4, SDETFM+5* |
DATINC | NODATA+1~, NODATA+6*, GETDIVCL~, GETDIVCL+2, GETDIVCL+4 |
DATNAM | SDETFM+1~ |
DELIM | PADDT+1~, PADDT+2*, PADDT+3, PADDT+4 |
DEM | MONDEM~, MONDEM+2*, MONDEM+6 |
DIC | DIVNAME+3~, DIVNAME+4*, DIVNAME+5, DIVNAME+6, STOPGRP+1~, STOPGRP+2*, STOPGRP+3, STOPGRP+4, STOPGRP+5, STOPIEN+1~ , STOPIEN+2*, STOPIEN+3, STOPIEN+4 |
DIE | DIVNAME+3~, STOPGRP+1~, STOPIEN+1~ |
DIQ | DIVNAME+3~, STOPGRP+1~, STOPIEN+1~ |
DIQ(0 | DIVNAME+4*, STOPGRP+2*, STOPIEN+2* |
DIR | DIVNAME+3~, STOPGRP+1~, STOPIEN+1~ |
DIV | DIVNAME~, DIVNAME+2, DIVNAME+4, GETDIVCL~, GETDIVCL+2, GETDIVCL+4, GETDIVCL+6 |
DIVCLNAR | GETDIVCL~ |
DIVCLNAR( | GETDIVCL+6* |
DIVNAME | DIVNAME+1!, DIVNAME+6*, DIVNAME+7*, DIVNAME+8 |
DIVNAME( | DIVNAME+6 |
DIVTAG | OUTPUT~, OUTPUT+4*, NODATA+8, NODATA+10, NODATA+11, NODATA+12, NODATA+13, NODATA+14, SETSDREC+4, SETSDREC+8 , SETSDREC+10, SETSDREC+13 |
DR | DIVNAME+3~, DIVNAME+4*, DIVNAME+5, STOPGRP+1~, STOPGRP+2*, STOPGRP+3, STOPIEN+1~, STOPIEN+2*, STOPIEN+3 |
DT | SUPPLY+6 |
DTINC | XDATE~, BEGEND~, BEGEND+3, BEGEND+5, BEGEND+7, BEGEND+11, BEGEND+13, DTNAM~, DTNAM+2 |
DTNAM | DTNAM~, DTNAM+1*, DTNAM+2* |
ENDDT | BEGEND~, BEGEND+2*, BEGEND+4*, BEGEND+6*, BEGEND+9*, BEGEND+10*, BEGEND+12*, BEGEND+20*, BEGEND+21* |
FAC | GETSUPM+2~, GETSUPM+3*, GETSUPM+4, GETDEMM+1~, GETDEMM+2*, GETDEMM+3 |
GETSUP | SUPPLY+2~ |
GRPFLG | OUTPUT~, OUTPUT+2*, NODATA+8, NODATA+10, NODATA+11, NODATA+12, NODATA+13, NODATA+14, SETSDREC+4, SETSDREC+8 , SETSDREC+10, SETSDREC+13 |
HANDLE | HFSOPEN~, HFSOPEN+10, HFSOPEN+15, HFSCLOSE~, HFSCLOSE+4 |
I | SETSDREC+2~, SETSDREC+6* |
IO | HFSOPEN+2*, OUTPUT+8 |
IOF | HFSOPEN+10* |
IOM | HFSOPEN+10*, HFSOPEN+16* |
IOSL | HFSOPEN+10*, HFSOPEN+16* |
IOST | HFSOPEN+10* |
MONTH | GETQUART+1~, GETQUART+3*, GETQUART+4, GETSUPM+2~, GETSUPM+3*, GETSUPM+4, GETDEMM+1~, GETDEMM+2*, GETDEMM+3, SETSDREC+2~ , SETSDREC+5*, SETSDREC+7, SETSDREC+9, SETSDREC+12*, MONDEM~, MONDEM+3, MONDEM+5*, MONDEM+6, MONSUP~, MONSUP+2 , MONSUP+4*, MONSUP+5 |
MONTHDEM | GETDEMM+3*, GETDEMM+4, SETSDREC+2~ |
MONTHSUP | GETSUPM+4*, GETSUPM+5, SETSDREC+2~ |
NAME | DTNAM+2~* |
NXTWK | SUPPLY+4~ |
PAD | OUTPUT~, OUTPUT+8 |
POP | HFSOPEN+3~, HFSOPEN+10, HFSOPEN+11, HFSOPEN+12*, HFSOPEN+16 |
QDATE | BEGEND+14~, BEGEND+15*, BEGEND+16 |
QUART | BEGEND+14~, BEGEND+17*, BEGEND+18 |
QYR | BEGEND+14~ |
RESULT | NODATA~, NODATA+15* |
RPT | GETSUPM~, GETSUPM+4, GETDEMM~, GETDEMM+3 |
SDACTDT | BEGEND~, BEGEND+12, NODATA+5* |
SDAT | GETDIVCL~, GETDIVCL+2, GETDIVCL+4 |
SDBDATE | SUPPLY+2~, SUPPLY+6*, SUPPLY+12 |
SDDATE | BEGEND+17, NODATA+1~, NODATA+5* |
SDDEL | HFSOPEN+4~, HFSCLOSE+3~ |
SDDEM | SETSDREC+2~, SETSDREC+7*, SETSDREC+8 |
SDDIR | HFSOPEN+3~, HFSOPEN+6*, HFSOPEN+8, HFSOPEN+9, HFSOPEN+10, HFSOPEN+12~, HFSOPEN+13*, HFSOPEN+15, HFSCLOSE+3~ |
SDDT | GETQUART~, GETQUART+2, GETQUART+3 |
SDEBUG | HFSOPEN+1, HFSOPEN+2, HFSCLOSE+1, HFSCLOSE+2, OUTPUT~, OUTPUT+8, NODATA+4*, NODATA+8, NODATA+10, NODATA+11 , NODATA+12, NODATA+13, NODATA+14, SETSDREC+4, SETSDREC+8, SETSDREC+10, SETSDREC+13 |
SDECLN | SUPPLY+2~, SUPPLY+5*, SUPPLY+7 |
SDEDATE | SUPPLY+2~, SUPPLY+6*, SUPPLY+12 |
SDEXCLN | SUPPLY+4~, SUPPLY+7*, SUPPLY+8*, SUPPLY+9, SUPPLY+10, SUPPLY+12, SUPPLY+13, SET~, SET+2, SET+4 |
SDFAC | NODATA+1~, NODATA+6*, NODATA+9, GETDIVCL~, GETDIVCL+2, GETDIVCL+4 |
SDFILE | HFSOPEN+3~, HFSOPEN+5*, HFSOPEN+7, HFSOPEN+10, HFSOPEN+12~, HFSOPEN+14*, HFSOPEN+15, HFSCLOSE+3~ |
SDFILT | NODATA+1~, NODATA+9* |
>> SDFLTFLG | OUTPUT+1 |
SDGRP | SDGRP~, SDGRP+2*, SDGRP+4*, SDGRP+5* |
SDIN | HFSOPEN+4~, HFSOPEN+7*, HFSOPEN+8 |
SDIN( | HFSOPEN+7* |
>> SDINTDT | SDETFM+2*, SDETFM+4*, SDETFM+5 |
SDLCNT | OUTPUT~, OUTPUT+7*, OUTPUT+8, OUTPUT+9, NODATA+1~, NODATA+6*, NODATA+8, NODATA+9, NODATA+10, NODATA+11 , NODATA+12, NODATA+13, NODATA+14, SETSDREC~, SETSDREC+4, SETSDREC+8, SETSDREC+10, SETSDREC+13, MONDEM~ |
SDLIST | HFSOPEN+4~, HFSOPEN+8*, HFSOPEN+9 |
SDNODE | SUPPLY+3*, SET+4, GETDIVCL~, GETDIVCL+2, GETDIVCL+4 |
SDOUT | HFSOPEN+4~, HFSOPEN+7*, HFSOPEN+8 |
SDOW | SUPPLY+4~ |
SDQUART | GETQUART+1!, GETQUART+4*, GETQUART+6*, GETQUART+7 |
SDRPTYP | SETSDREC~, SETSDREC+7, SETSDREC+9, GETDIVCL~, GETDIVCL+2, GETDIVCL+4 |
SDSGNM | SET+1~, SET+2*, SET+3, SET+4 |
SDSTPAR | SUPPLY~, SUPPLY+1, SUPPLY+13, SET~, SET+2 |
SDSUP | SETSDREC+2~, SETSDREC+9*, SETSDREC+10 |
SDSUPPLY | SUPPLY+4~, SUPPLY+11*, SUPPLY+12*, SUPPLY+13, SET~, SET+4 |
SSDATE | SUPPLY+4~ |
START | SETSDREC~, SETSDREC+3 |
STOPGRP | SDGRP+1~, STOPGRP+4*, STOPGRP+5*, STOPGRP+6 |
STOPGRP( | STOPGRP+4, STOPGRP+5 |
STOPIEN | SDGRP+1~, SDGRP+3*, SDGRP+4, STOPIEN+4*, STOPIEN+5 |
STOPIEN( | STOPIEN+4 |
STP | STOPGRP~, STOPGRP+2 |
STRING | PADDT+1~, XDATE+1~, MONDEM+6*, MONDEM+7, MONSUP+5*, MONSUP+6 |
SUP | MONSUP~, MONSUP+5 |
SUPPLY | SUPPLY+4~, SUPPLY+5* |
TEXT | OUTPUT~, OUTPUT+2, OUTPUT+3, OUTPUT+4, OUTPUT+5*, OUTPUT+6*, OUTPUT+8, OUTPUT+9, NODATA~, NODATA+2* , NODATA+10 |
TMP | OUTPUT+5~*, OUTPUT+6~* |
TMPCLN | GETDIVCL+1~, GETDIVCL+4*, GETDIVCL+5, GETDIVCL+6 |
TMPDT | SUPPLY+4~, SUPPLY+12*, SUPPLY+13, SUPPLY+14*, SET~, SET+4, SETSDREC+2~, SETSDREC+3*, SETSDREC+5, SETSDREC+7 , SETSDREC+9, SETSDREC+11*, SETSDREC+12 |
TMPGRP | GETDIVCL+1~, GETDIVCL+2*, GETDIVCL+3, GETDIVCL+4 |
TMPLEN | MONDEM+1~, MONDEM+3*, MONDEM+4, MONSUP+1~, MONSUP+2*, MONSUP+3 |
TMPMON | MONDEM+1~, MONDEM+3*, MONDEM+4*, MONDEM+5, MONSUP+1~, MONSUP+2*, MONSUP+3*, MONSUP+4 |
X | DIVNAME+3~, BEGEND+16~*, STOPGRP+1~, STOPIEN+1~, SETSDREC+2~, SDETFM+1~, SDETFM+4* |
X1 | XDATE+3~, XDATE+4*, XDATE+5 |
X2 | XDATE+3~, XDATE+4*, XDATE+5 |
XDATE | XDATE+2, XDATE+5*, XDATE+6*, XDATE+7, BEGEND+1~ |
XMLNODE | OUTPUT~, OUTPUT+1*, OUTPUT+9, NODATA+1~, NODATA+3*, NODATA+8, NODATA+10, NODATA+11, NODATA+12, NODATA+13 , NODATA+14, NODATA+15, SETSDREC~, SETSDREC+4, SETSDREC+8, SETSDREC+10, SETSDREC+13 |
Y | DIVNAME+3~, BEGEND+16, STOPGRP+1~, STOPIEN+1~, SETSDREC+2~, SDETFM+1~, SDETFM+4 |
YEAR | GETQUART+1~, GETQUART+2*, GETQUART+6 |
ZDATE | BEGEND+1~, BEGEND+16* |
ZX | HFSOPEN+3~, HFSOPEN+9* |