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* |