MHV1P11 ;KUM - My HealtheVet Install Utility Routine ; [1/15/13 15:01pm]
Source file <MHV1P11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;
|
|
| PRE | ; Pre-init routine
; Turn on MHV Application Logging, add a log entry for the start ; of the patch install. |
|
| POST | ; Post-init routine
|
|
| LOGON | ; Turn on MHV application logging
|
|
| LOGOFF | ; Turn off MHV application logging
|
|
| QRYDSS | ; Setup for DSS Units query
; Setup MHV REQUEST TYPE |
|
| QRYPROC | ; Setup for ECS Procedures query
; Setup MHV REQUEST TYPE |
|
| QRYECLS | ; Setup for Patient Eligibility and Classificaiton query
; Setup MHV REQUEST TYPE |
|
| QRYPPRB | ; Setup for Patient Problems query
; Setup MHV REQUEST TYPE |
|
| QRYDIAG | ; Setup for Diagnoses query
; Setup MHV REQUEST TYPE |
|
| QRYFILE | ; Setup for Workload Credit Filer
; Setup MHV REQUEST TYPE |
|
| RSPQ13 | ; Set up RESPONSE MAP FOR SMDSSUNITS, SMECSPROCS
|
|
| RSPQ11 | ; Set up RESPONSE MAP FOR SMPATIENTECLASS, SMPATIENTPROBLEMS, SMDIAGNOSES
|
|
| RSPP03 | ; Set up RESPONSE MAP FOR SMFILER
|
|
| CHKHLOC(ERR) | ; Check Institution in Hospital Location File (#44)
|
|
| CHKLERR(MHVCLNM) | ; Print messages in case of Institution or Division missing
|
|
| SCIEN(SCN) | ;Get stop code IEN
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | CHKHLOC+6, CHKHLOC+8, CHKHLOC+9 |
| UPDMAP^MHVU2 | RSPQ13+10, RSPQ11+10, RSPP03+10 |
| UPDREQ^MHVU2 | QRYDSS+17, QRYPROC+17, QRYECLS+17, QRYPPRB+17, QRYDIAG+17, QRYFILE+17 |
| LOGOFF^MHVUL1 | LOGOFF+3 |
| LOGSET^MHVUL1 | LOGON+6 |
| LOG^MHVUL2 | PRE+4, PRE+7, PRE+10, PRE+17, POST+2, POST+14, QRYDSS+16, QRYDSS+19, QRYPROC+16, QRYPROC+19 , QRYECLS+16, QRYECLS+19, QRYPPRB+16, QRYPPRB+19, QRYDIAG+16, QRYDIAG+19, QRYFILE+16, QRYFILE+19, RSPQ13+9, RSPQ13+12 , RSPQ11+9, RSPQ11+12, RSPP03+9, RSPP03+12, CHKLERR+1 |
| RESET^MHVUL2 | POST+16 |
| $$HTFM^XLFDT | LOGON+4 |
| $$UP^XLFSTR | CHKHLOC+7 |
| BMES^XPDUTL | PRE+11, PRE+13, LOGON+2, LOGOFF+2, QRYDSS+3, QRYDSS+20, QRYPROC+3, QRYPROC+20, QRYECLS+3, QRYECLS+20 , QRYPPRB+3, QRYPPRB+20, QRYDIAG+3, QRYDIAG+20, QRYFILE+3, QRYFILE+20, RSPQ13+1, RSPQ13+13, RSPQ11+1, RSPQ11+13 , RSPP03+1, RSPP03+13, CHKLERR+3 |
| MES^XPDUTL | PRE+12, PRE+14, QRYDSS+21, QRYPROC+21, QRYECLS+21, QRYPPRB+21, QRYDIAG+21, QRYFILE+21, RSPQ13+14, RSPQ11+14 , RSPP03+14, CHKLERR+4, CHKLERR+6 |
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | SCIEN+3 |
| ^SC("ACST" | CHKHLOC+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ERR | PRE+5*, PRE+8, PRE+9, PRE+10, POST+1~, QRYDSS+4~, QRYDSS+5*, QRYDSS+17, QRYDSS+18, QRYDSS+19 , QRYPROC+4~, QRYPROC+5*, QRYPROC+17, QRYPROC+18, QRYPROC+19, QRYECLS+4~, QRYECLS+5*, QRYECLS+17, QRYECLS+18, QRYECLS+19 , QRYPPRB+4~, QRYPPRB+5*, QRYPPRB+17, QRYPPRB+18, QRYPPRB+19, QRYDIAG+4~, QRYDIAG+5*, QRYDIAG+17, QRYDIAG+18, QRYDIAG+19 , QRYFILE+4~, QRYFILE+5*, QRYFILE+17, QRYFILE+18, QRYFILE+19, RSPQ13+2~, RSPQ13+4*, RSPQ13+10, RSPQ13+11, RSPQ13+12 , RSPQ11+2~, RSPQ11+4*, RSPQ11+10, RSPQ11+11, RSPQ11+12, RSPP03+2~, RSPP03+4*, RSPP03+10, RSPP03+11, RSPP03+12 , CHKHLOC~, CHKHLOC+3*, CHKHLOC+12* |
| FIELDS | QRYDSS+4~, QRYDSS+16, QRYDSS+17, QRYPROC+4~, QRYPROC+16, QRYPROC+17, QRYECLS+4~, QRYECLS+16, QRYECLS+17, QRYPPRB+4~ , QRYPPRB+16, QRYPPRB+17, QRYDIAG+4~, QRYDIAG+16, QRYDIAG+17, QRYFILE+4~, QRYFILE+16, QRYFILE+17 |
| FIELDS("BLOCK" | QRYDSS+8*, QRYPROC+8*, QRYECLS+8*, QRYPPRB+8*, QRYDIAG+8*, QRYFILE+8* |
| FIELDS("BUILDER" | QRYDSS+12*, QRYPROC+12*, QRYECLS+12*, QRYPPRB+12*, QRYDIAG+12*, QRYFILE+12* |
| FIELDS("DATATYPE" | QRYDSS+10*, QRYPROC+10*, QRYECLS+10*, QRYPPRB+10*, QRYDIAG+10*, QRYFILE+10* |
| FIELDS("DESCRIPTION" | QRYDSS+13*, QRYDSS+14*, QRYDSS+15*, QRYPROC+13*, QRYPROC+14*, QRYPROC+15*, QRYECLS+13*, QRYECLS+14*, QRYECLS+15*, QRYPPRB+13* , QRYPPRB+14*, QRYPPRB+15*, QRYDIAG+13*, QRYDIAG+14*, QRYDIAG+15*, QRYFILE+13*, QRYFILE+14*, QRYFILE+15* |
| FIELDS("EXECUTE" | QRYDSS+11*, QRYPROC+11*, QRYECLS+11*, QRYPPRB+11*, QRYDIAG+11*, QRYFILE+11* |
| FIELDS("NUMBER" | QRYDSS+7*, QRYPROC+7*, QRYECLS+7*, QRYPPRB+7*, QRYDIAG+7*, QRYFILE+7* |
| FIELDS("REALTIME" | QRYDSS+9*, QRYPROC+9*, QRYECLS+9*, QRYPPRB+9*, QRYDIAG+9*, QRYFILE+9* |
| FIELDS("REQUE | ST TYPE" , QRYDSS+6*, QRYPROC+6*, QRYECLS+6*, QRYPPRB+6*, QRYDIAG+6*, QRYFILE+6* |
| FLDS | RSPQ13+2~, RSPQ13+3!, RSPQ13+9, RSPQ13+10, RSPQ11+2~, RSPQ11+3!, RSPQ11+9, RSPQ11+10, RSPP03+2~, RSPP03+3! , RSPP03+9, RSPP03+10 |
| FLDS("BUILDER" | RSPQ13+7*, RSPQ11+7*, RSPP03+7* |
| FLDS("PROTOCOL" | RSPQ13+6*, RSPQ11+6*, RSPP03+6* |
| FLDS("SEGMENT" | RSPQ13+8*, RSPQ11+8*, RSPP03+8* |
| FLDS("SUBSCRIBER" | RSPQ13+5*, RSPQ11+5*, RSPP03+5* |
| >> MHVC | PRE+6*, CHKLERR+2, CHKLERR+5* |
| MHVCLIEN | CHKHLOC+1~, CHKHLOC+4*, CHKHLOC+5*, CHKHLOC+6, CHKHLOC+8, CHKHLOC+9 |
| MHVCLNM | CHKHLOC+6*, CHKHLOC+7, CHKHLOC+11, CHKLERR~, CHKLERR+1, CHKLERR+6 |
| MHVCSIEN | CHKHLOC+1~, CHKHLOC+2*, CHKHLOC+3, CHKHLOC+5 |
| MHVDIVN | CHKHLOC+1~, CHKHLOC+9*, CHKHLOC+10 |
| MHVINST | CHKHLOC+1~, CHKHLOC+8*, CHKHLOC+10 |
| SCIEN | SCIEN+1~, SCIEN+3*, SCIEN+4, SCIEN+5 |
| SCN | SCIEN~, SCIEN+2, SCIEN+3 |
| SUCCESS | LOGON+1~, LOGON+6, LOGOFF+1~, LOGOFF+3 |
| UPDATE | LOGON+1~, LOGON+6 |
| UPDATE("DELETE" | LOGON+4* |
| UPDATE("LEVEL" | LOGON+5* |
| UPDATE("STATE" | LOGON+3* |
| >> XPDABORT | PRE+15* |
| >> XPDNM | PRE+4, PRE+17, POST+2, POST+14 |
