VDI1P1 ;BP/CMF/GJW - Patch 1 Post-Init ; 3/23/2023
Source file <VDI1P1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;do environment check
|
|
| PROGCHK(XPDABORT) | ; checks for necessary programmer variables
|
|
| RQIDCHK(XPDABORT) | ; checks for additional required identifiers beyond .01 field
; loop through required identifier fields, if a field outside of our filing list, abort, alert user with message |
|
| HELP | ; Help for ?? on Installation Question POS1 (use direct writes in env check routine)
|
|
| POST | ; Post-init for VDI*1*1
|
|
| IZG(VDIENV) | ; Create Non Person Entity (NPE) user
; look for type of VistA instance ; create NPE for type of instance |
|
| MHV(VDIENV) | ; Create NPE user
; create NPE for type of instance |
|
| ADD(VDIFIRST,VDILAST,VDISECID,VDIEMAIL,VDIMSG) | ;create new non-person user
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | RQIDCHK+25 |
| FILE^DID | RQIDCHK+5 |
| UPDATE^DIE | ADD+40 |
| ^DIR | RQIDCHK+23 |
| BMES^XPDUTL | RQIDCHK+15, RQIDCHK+18, IZG+10, IZG+12, MHV+15, MHV+17 |
| MES^XPDUTL | PROGCHK+2, PROGCHK+3, RQIDCHK+16, RQIDCHK+17, RQIDCHK+29, IZG+14, IZG+16, MHV+19, MHV+21 |
| $$SHAHASH^XUSHSH | ADD+18, ADD+19 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FILE^DID, GET1^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(200 - [#200] | ADD+20, ADD+41 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AC | ADD+14~, ADD+18*, ADD+23 |
| DIC | ADD+14~ |
| DIC(0 | ADD+21* |
| DIR | RQIDCHK+21~ |
| DIR(0 | RQIDCHK+22* |
| >> DIRUT | RQIDCHK+24 |
| DT | PROGCHK+1 |
| DUZ | PROGCHK+1 |
| DUZ(0 | PROGCHK+1, ADD+15 |
| IROOT | ADD+14~ |
| IROOT(1 | ADD+42 |
| MROOT | ADD+14~, ADD+43 |
| MYFDA | ADD+14~ |
| MYFDA( | ADD+26* |
| MYFDA(200 | ADD+22*, ADD+23*, ADD+24*, ADD+25*, ADD+27*, ADD+28*, ADD+29*, ADD+30*, ADD+31*, ADD+37* |
| RQIDABRT | RQIDCHK+3~, RQIDCHK+6*, RQIDCHK+11*, RQIDCHK+14 |
| RQIDABRT( | RQIDCHK+12*, RQIDCHK+20 |
| RQIDENT | RQIDCHK+3~, RQIDCHK+6*, RQIDCHK+7*, RQIDCHK+8 |
| RQIDMSG | RQIDCHK+3~ |
| RQIDNAM | RQIDCHK+3~, RQIDCHK+25*, RQIDCHK+29 |
| RQIDNUM | RQIDCHK+3~, RQIDCHK+8*, RQIDCHK+9, RQIDCHK+10, RQIDCHK+12, RQIDCHK+19*, RQIDCHK+20*, RQIDCHK+22, RQIDCHK+25, RQIDCHK+28 , RQIDCHK+29, ADD+14~, ADD+33*, ADD+34*, ADD+35, ADD+37 |
| RQIDOUT | RQIDCHK+3~ |
| RQIDOUT("REQU | IRED IDENTIFIERS" , RQIDCHK+7, RQIDCHK+8 |
| RQIDVAL | RQIDCHK+3~, RQIDCHK+26*, RQIDCHK+27, RQIDCHK+28, RQIDCHK+29, ADD+14~, ADD+35*, ADD+36, ADD+37 |
| U | PROGCHK+1, RQIDCHK+10, RQIDCHK+26, IZG+13, MHV+18 |
| VC | ADD+14~, ADD+19*, ADD+24 |
| VDIEMAIL | ADD~, ADD+31 |
| VDIENV | POST+1~, POST+5*, POST+6, POST+7, IZG~, IZG+4, IZG+6, IZG+7, MHV~, MHV+3 , MHV+4, MHV+8, MHV+12 |
| VDIERR | IZG+3~, MHV+2~ |
| VDIERR("DIERR" | IZG+15, MHV+20 |
| VDIERTXT | IZG+3~, IZG+15*, IZG+16, MHV+2~, MHV+20*, MHV+21 |
| VDIFIRST | ADD~, ADD+17 |
| >> VDIIEN | ADD+42*, ADD+44 |
| VDILAST | ADD~, ADD+17 |
| VDIMSG | ADD~, ADD+43 |
| VDINAME | ADD+14~, ADD+17*, ADD+22 |
| VDINPE | IZG+3~, IZG+4*, IZG+8, IZG+10, IZG+12, MHV+2~, MHV+4*, MHV+5, MHV+8*, MHV+9 , MHV+13, MHV+15, MHV+17 |
| VDIRSLT | IZG+3~, IZG+8*, IZG+9, IZG+13, MHV+2~, MHV+13*, MHV+14, MHV+18 |
| VDIRSLT2 | IZG+3~, IZG+13*, IZG+14, MHV+2~, MHV+18*, MHV+19 |
| VDISECID | IZG+3~, IZG+6*, IZG+8, MHV+2~, MHV+12*, MHV+13, ADD~, ADD+27, ADD+30 |
| VDITYPE | POST+1~, POST+2*, POST+4*, POST+5 |
| VDIUPN | IZG+3~, IZG+7*, IZG+8, MHV+2~, MHV+5*, MHV+9*, MHV+13 |
| X | RQIDCHK+21~ |
| XPDABORT | ENV+1*, ENV+2, ENV+3, ENV+4!, PROGCHK~, PROGCHK+4*, RQIDCHK~, RQIDCHK+6*, RQIDCHK+20, RQIDCHK+24* , RQIDCHK+27*, RQIDCHK+31* |
| >> XPDENV | RQIDCHK+2 |
| >> XPDGREF | RQIDCHK+28, ADD+32, ADD+34, ADD+35 |
| >> XPDQUES("POS1" | POST+2 |
| Y | RQIDCHK+21~, RQIDCHK+26 |
