DGMSTL2 ;ALB/SCK - MST LISTMANAGER UTILITIES CONT. ; 12/17/98
Source file <DGMSTL2.m>
| 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 |
|---|---|---|
| ASKDATE(MSTDT,MSTOLDDT) | ; Return status change date
; Future dates will not be allowed |
|
| ASKPROV(MSTPV) | ; Ask for Provider
; Input ; MSTPV - IEN of default provider [optional] |
|
| ADDSTR(DFN,MSTST,MSTDT,MSTPR,MSTIEN) | ; Build the formatted display string for the List Manager display
; Input ; DFN - IEN of patient in the PATIENT File (#2) ; MSTST - Status code for the MST status ; MSTDT - Date of the status change in FM internal format ; MSTPR - IEN of provider in the NEW USER File (#200) ; MSTIEN- IEN of new entry in the MST HISTORY File (#29.11) |
|
| SET(X,IDX,DFN,MSTIEN) | ; Set the formatted display string into the List Manager global
; Build the DFN and IDX indexes ; Input ; X - formated display string ; IDX - Index number ; DFN - IEN of patient in the PATIENT File (#2) |
|
| EXTMST(MSTST) | ; convert MST status code to external dislay format
|
|
| NUL | ; Check for empty list. If empty display message and force page number
|
|
| CHKNUL() | ; Checks of an "empty" list to lock out protocols.
|
| Name | Field # of Occurrence |
|---|---|
| $$NAME^DGMSTAPI | ASKPROV+14, ADDSTR+23 |
| SET^DGMSTL | NUL+1 |
| ^DIR | ASKDATE+22, ASKPROV+16, CHKNUL+7 |
| DEM^VADPT | ADDSTR+16 |
| KVA^VADPT | ADDSTR+26 |
| PID^VADPT | ADDSTR+16 |
| $$SETFLD^VALM1 | ADDSTR+18, ADDSTR+19, ADDSTR+20, ADDSTR+21, ADDSTR+22, ADDSTR+23 |
| CLEAN^VALM10 | ADDSTR+12 |
| $$FMTE^XLFDT | ASKDATE+20, ADDSTR+22 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DGMST" | ADDSTR+10, ADDSTR+11!, ADDSTR+25*, SET+7*, SET+8*, SET+9*, SET+10*, NUL+1, CHKNUL+3 |
| Name | Line Occurrences |
|---|---|
| SET | ADDSTR+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ADDSTR~, ADDSTR+24, SET~, SET+9 |
| DGRSLT | ASKDATE+14~, ASKDATE+23*, ASKDATE+24*, ASKDATE+26, ASKPROV+9~, ASKPROV+17*, ASKPROV+18*, ASKPROV+20, CHKNUL+1~, CHKNUL+2* , CHKNUL+8*, CHKNUL+9 |
| DGX | ADDSTR+9~, ADDSTR+18*, ADDSTR+19*, ADDSTR+20*, ADDSTR+21*, ADDSTR+22*, ADDSTR+23*, ADDSTR+24 |
| DIR | ASKDATE+22!, ASKPROV+16!, CHKNUL+7! |
| DIR("?" | CHKNUL+6* |
| DIR("??" | CHKNUL+6* |
| DIR("A" | ASKDATE+21*, ASKPROV+15*, CHKNUL+5*, CHKNUL+6* |
| DIR("B" | ASKDATE+20*, ASKPROV+14* |
| DIR(0 | ASKDATE+19*, ASKPROV+13*, CHKNUL+4* |
| DIRUT | ASKDATE+16!, ASKDATE+23, ASKPROV+11!, ASKPROV+17 |
| IDX | SET~, SET+8 |
| >> MSTCNT | ADDSTR+13*, ADDSTR+17*, ADDSTR+18, ADDSTR+24, ADDSTR+25 |
| MSTDT | ASKDATE~, ASKDATE+17*, ASKDATE+20, ADDSTR~, ADDSTR+22 |
| MSTIEN | ADDSTR~, ADDSTR+24, SET~, SET+10 |
| MSTOLDDT | ASKDATE~, ASKDATE+18*, ASKDATE+19 |
| MSTPR | ADDSTR~, ADDSTR+23 |
| MSTPV | ASKPROV~, ASKPROV+12*, ASKPROV+14 |
| MSTST | ADDSTR~, ADDSTR+21, EXTMST~, EXTMST+1 |
| VA | ADDSTR+15~ |
| VA("BID" | ADDSTR+19 |
| VADM | ADDSTR+15~ |
| VADM(1 | ADDSTR+20 |
| >> VALMCNT | ADDSTR+13*, SET+7*, SET+8, SET+9, SET+10, CHKNUL+3 |
| X | SET~, SET+7 |
| Y | ASKDATE+14~, ASKDATE+24, ASKPROV+18 |
