PSSNDSU ;DAL/JCH - MEDS DOSAGE FORM NDS UTILITIES ;09/07/2017
Source file <PSSNDSU.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 |
|---|---|---|
| QUE | ; Task off to run in background
|
|
| EN | ; Update Meds Dosage Form pointers to MASTER file
|
|
| UPDATE(OFILE) | ; Update MASTER FILE multiple (#90) field pointers in legacy file (OFILE).
; Check ASSOCIATED VA <concept> field (#90) in MASTER file, add pointers in OFILE to MASTER file. |
|
| SCANM(OFILE) | ; Get ASSOCIATED VA <concept> field (#99) values from MASTER file MFILE, update pointers in OFILE
|
|
| SCANO(OFILE) | ; Get MASTER <concept> field (#90) values from legacy file OFILE, verify pointing to actual MASTER entry
|
|
| UPDPTR(PSSVANAM,PSSMIEN,PSSACT,PSSFILE) | ; Update MASTER VA <concept> field (#90) in <concept> file
; anytime the ASSOCIATED VA <concept>(S) field (#99) in the MASTER <concept> file (#50.60699) is updated. ; PSSVANAM : Name of ASSOCIATED VA <concept> from local <concept> file ; PSSFILE : The VA File Number (#50.606) that points to the MASTER file (#50.60699) ; PSSMIEN : IEN of the entry in the MASTER <concept> (#50.60699) file. ; PSSACT : Action to perform on MASTER <concept> (#90) multiple in <concept> file (#50.606): ; "ADD" = Add a pointer to the PSSMIEN entry in MASTER <concept> file (#50.60699), if it doesn't already exist ; "DEL" = Delete pointer to the PSSMIEN entry in MASTER <concept> file (#50.60699), if it exists |
|
| FILE | ; File to be updated
|
| Name | Line Occurrences |
|---|---|
| SCANM | UPDATE+2 |
| SCANO | UPDATE+4 |
| UPDATE | EN+6 |
| UPDPTR | SCANM+9, SCANO+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASSOC | SCANM+1~, SCANM+5*, SCANM+7, SCANM+9 |
| MERR | SCANM+1~ |
| MFILE | SCANM+1~, SCANM+4*, SCANO+1~, SCANO+6*, SCANO+13, SCANO+15 |
| MFILESUB | SCANO+9~, SCANO+15*, SCANO+17 |
| MGLO | SCANM+1~, SCANM+3*, SCANM+4, SCANM+5, SCANM+6, SCANO+1~, SCANO+5*, SCANO+6 |
| MGLO("POINTER" | SCANM+3, SCANO+5 |
| MIEN | SCANM+1~, SCANM+6*, SCANM+9 |
| MNAME | SCANO+9~, SCANO+14* |
| MPTR | SCANO+1~, SCANO+8*, SCANO+13, SCANO+17, SCANO+18 |
| OERR | SCANO+1~ |
| OFILE | UPDATE~, UPDATE+2, UPDATE+4, SCANM~, SCANM+2, SCANM+7, SCANM+9, SCANO~, SCANO+2, SCANO+4 , SCANO+10, SCANO+18 |
| OFILIEN | SCANM+1~, SCANM+7*, SCANM+8, SCANO+1~, SCANO+7*, SCANO+8, SCANO+10 |
| OGLO | SCANO+1~, SCANO+3*, SCANO+7, SCANO+8 |
| OGLO("GLOBAL | NAME" , SCANO+3 |
| ONAME | SCANO+9~, SCANO+11*, SCANO+17, SCANO+18 |
| PSIEN | SCANO+1~ |
| PSSACT | UPDPTR~, UPDPTR+19, UPDPTR+37, UPDPTR+41 |
| PSSERR | SCANO+9~, UPDPTR+13~ |
| PSSFDA | UPDPTR+12~ |
| PSSFDA( | UPDPTR+39*, UPDPTR+43* |
| PSSFILE | UPDPTR~, UPDPTR+19, UPDPTR+24, UPDPTR+29, UPDPTR+39, UPDPTR+43 |
| PSSFL | EN+1~, EN+3*, EN+4, EN+6 |
| PSSGLO | UPDPTR+10~, UPDPTR+30*, UPDPTR+36, UPDPTR+38 |
| PSSGLO("GLOBA | L NAME" , UPDPTR+30 |
| PSSIEN | UPDPTR+17~, UPDPTR+36*, UPDPTR+39, UPDPTR+42, UPDPTR+43 |
| PSSMFILE | UPDPTR+8~, UPDPTR+26*, UPDPTR+27, UPDPTR+33 |
| PSSMGLO | UPDPTR+9~, UPDPTR+25*, UPDPTR+26 |
| PSSMGLO("POINTER" | UPDPTR+25 |
| PSSMIEN | UPDPTR~, UPDPTR+19, UPDPTR+38, UPDPTR+39 |
| PSSMSUB | UPDPTR+11~, UPDPTR+33*, UPDPTR+34 |
| PSSRSLT | SCANO+9~, SCANO+12!, SCANO+16! |
| PSSRSLT("DILIST" | SCANO+11, SCANO+14, SCANO+18 |
| PSSVAIEN | UPDPTR+14~ |
| PSSVAMPTR | UPDPTR+15~ |
| PSSVANAM | UPDPTR~, UPDPTR+19, UPDPTR+20 |
| PSSVANAMS | UPDPTR+16~, UPDPTR+20* |
| XUMF | EN+1~, EN+2* |
| ZTDESC | QUE+1~, QUE+4* |
| ZTDTH | QUE+1~, QUE+5* |
| >> ZTIO | QUE+6* |
| ZTRTN | QUE+1~, QUE+3* |
| Name | Field # of Occurrence |
|---|---|
| $T(FILE+1 | EN+3 |
