PSS262PO ;BIR/KML-Post Install routine for patch PSS*1*262 ;10/19/2023
Source file <PSS262PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; main
|
|
| HDRWS | ; add the HDR web service, the HDR web server, and register
|
|
| SVR | ;Update server
|
|
| WEBSERVICE(PSSFLD01,PSSFLD200,PSSFLD201) | ; add the new HDR web service to WEB SERVICE file (18.02)
; input: ; PSSFLD01 - name of the web service ; PSSFLD200 - CONTEXT ROOT of the web service ; PSSFLD201 - AVAILABILITY RESOURCE of the web service ; output: ; returns the ien of the newly created entry or if not created, then 0 is returned to indicate an error in registering |
|
| WEBSERVER(PSSFLD01,PSSFLD03,PSSFLD04,PSSFLD301,PSSFLD302,PSSFLD303) | ; add the HDR web server to the WEB SERVER (#18.12) file
|
|
| ENABLEWS(SERVERIEN,TEXT) | ; enable the web service
|
|
| TESTWS(WSDA,SERVICE,LINE) | ; -- test web services availability
|
|
| APSP | ; add intervention type entries to file 9009032.3
|
|
| MENUS | ; Restructure menus
|
|
| MENUSA | ; Restructure menus
|
|
| URL | ; Add PGx URL to Pharmacy System File
|
|
| ADDIT(PSSTYPE) | ; Add the new intervention type
|
|
| APSPTXT | ; the 2 new intervention types added to the APSP INTERVENTION file
|
|
| MAIL(XMSUB) | ;Send mail message
|
|
| REPORT(TEXT,ACTION,LINE) | ; report activity during installation including error conditions
; Input - ; TEXT - text to report to end-user ; ACTION - what processing occurred ; LINE - line number for the mail message passed in by reference |
|
| 1 | ||
| 2 | ||
| 3 | ||
| 4 |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | WEBSERVICE+7, WEBSERVICE+10, WEBSERVER+2, APSP+4, APSP+7, MENUS+6 |
| ^DIE | SVR+2 |
| UPDATE^DIE | WEBSERVER+13, ENABLEWS+7, ADDIT+3 |
| $$GET1^DIQ | SVR+3 |
| ^XMD | MAIL+6 |
| REGREST^XOBWLIB | WEBSERVICE+9 |
| $$ADD^XPDMENU | MENUS+12, MENUSA+3 |
| $$DELETE^XPDMENU | MENUS+7 |
| $$LKOPT^XPDMENU | MENUS+4 |
| BMES^XPDUTL | HDRWS+2, WEBSERVICE+7, WEBSERVER+2, TESTWS+1, TESTWS+12, TESTWS+13, APSP+2, APSP+4, APSP+5, APSP+8 , MENUS+3, MENUS+8, MENUS+13, MENUSA+4, 1, 2, 2+1, 2+2, 3, 4 |
| FileNo | Call Tags |
|---|---|
| ^XOB(18.02 - [#18.02] | FIND1^DIC |
| ^XOB(18.12 - [#18.12] | FIND1^DIC, GET1^DIQ |
| 19.01 | FIND1^DIC |
| ^APSPQA(32.3 - [#9009032.3] | FIND1^DIC |
| Name | Line Occurrences |
|---|---|
| $$ENABLEWS | HDRWS+8 |
| $$TESTWS | HDRWS+9 |
| $$WEBSERVER | HDRWS+5 |
| $$WEBSERVICE | HDRWS+3 |
| 1 | REPORT+5 |
| 2 | REPORT+6 |
| 3 | REPORT+7 |
| 4 | REPORT+8, REPORT+9 |
| ADDIT | APSP+6 |
| APSP | EN+5 |
| HDRWS | EN+4 |
| EN+11 | |
| MENUS | EN+6 |
| MENUSA | EN+7 |
| REPORT | EN+9, EN+10, HDRWS+4, HDRWS+6, HDRWS+8, HDRWS+9, SVR+3, APSP+7, MENUS+5, MENUS+9 , MENUS+14, MENUSA+5, URL+1 |
| SVR | HDRWS+7 |
| URL | EN+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTION | REPORT~, REPORT+5, REPORT+6, REPORT+7, REPORT+8, REPORT+9 |
| AVAIL | TESTWS+2~, TESTWS+3*, TESTWS+12*, TESTWS+13*, TESTWS+14 |
| DA | SVR+1~, SVR+2* |
| DIE | SVR+1~, SVR+2* |
| DIFROM | MAIL+6~ |
| DR | SVR+1~, SVR+2* |
| DTOUT | SVR+1~ |
| DUZ | MAIL+5 |
| ERROR | TESTWS+2~, TESTWS+3*, TESTWS+11*, TESTWS+14 |
| FDA | WEBSERVER+3~, ENABLEWS+4~ |
| FDA( | WEBSERVER+4*, WEBSERVER+5*, WEBSERVER+6*, WEBSERVER+7*, WEBSERVER+8*, WEBSERVER+9*, WEBSERVER+10*, WEBSERVER+11*, WEBSERVER+12*, ENABLEWS+5* , ENABLEWS+6* |
| HDRERROR | EN+1~, EN+2*, EN+9, EN+10, HDRWS+4*, HDRWS+6*, HDRWS+8* |
| IENROOT | WEBSERVER+3~, ENABLEWS+4~ |
| IENROOT(1 | WEBSERVER+15, ENABLEWS+8*, ENABLEWS+9 |
| LINE | TESTWS~, TESTWS+10*, TESTWS+12, TESTWS+13, REPORT~, 1+1*, 1+2, 1+3*, 1+4, 1+5* , 1+6, 2+3*, 2+4, 2+5*, 2+6, 2+7*, 2+8, 3+1*, 3+2, 3+3* , 3+4, 3+5*, 3+6, 4+1*, 4+2, 4+3*, 4+4, 4+5*, 4+6 |
| PSSDOTS | TESTWS+2~, TESTWS+6*, TESTWS+7 |
| PSSERR | WEBSERVER+3~, WEBSERVER+14, ENABLEWS+4~, ENABLEWS+8, ADDIT+1~ |
| PSSFDA | ADDIT+1~ |
| PSSFDA( | ADDIT+2* |
| PSSFLD01 | WEBSERVICE~, WEBSERVICE+7, WEBSERVICE+9, WEBSERVICE+10, WEBSERVER~, WEBSERVER+2, WEBSERVER+4 |
| PSSFLD03 | WEBSERVER~, WEBSERVER+5 |
| PSSFLD04 | WEBSERVER~, WEBSERVER+6 |
| PSSFLD200 | WEBSERVICE~, WEBSERVICE+9 |
| PSSFLD201 | WEBSERVICE~, WEBSERVICE+9 |
| PSSFLD301 | WEBSERVER~, WEBSERVER+10 |
| PSSFLD302 | WEBSERVER~, WEBSERVER+11 |
| PSSFLD303 | WEBSERVER~, WEBSERVER+12 |
| PSSI | TESTWS+2~, TESTWS+9* |
| PSSLN | EN+1~, EN+2*, EN+9, EN+10, HDRWS+4, HDRWS+6, HDRWS+8, HDRWS+9, SVR+3, APSP+7 , MENUS+5, MENUS+9, MENUS+14, MENUSA+5, URL+1 |
| PSSMENA | MENUSA+1~, MENUSA+2*, MENUSA+3, MENUSA+4, MENUSA+5 |
| PSSMENB | MENUSA+1~, MENUSA+3*, MENUSA+4 |
| PSSMENU | MENUS+1~, MENUS+4*, MENUS+6 |
| PSSMENUA | MENUS+1~, MENUS+10*, MENUS+12, MENUS+13, MENUS+14 |
| PSSMENUC | MENUS+1~, MENUS+10*, MENUS+11*, MENUS+12 |
| PSSMENUQ | MENUS+1~, MENUS+2* |
| PSSMENUR | MENUS+1~, MENUS+7*, MENUS+8, MENUS+12*, MENUS+13 |
| PSSSERVX | HDRWS+1~*, HDRWS+7, WEBSERVER+2* |
| PSSSRVR | TESTWS+2~, TESTWS+5* |
| PSSTYPE | APSP+1~, APSP+3*, APSP+4, APSP+5, APSP+6, APSP+7, APSP+8, ADDIT~, ADDIT+2 |
| PSSX | TESTWS+2~, TESTWS+7*, TESTWS+8 |
| PSSXX | TESTWS+2~, TESTWS+9*, TESTWS+11, TESTWS+12, TESTWS+13 |
| RESULTS | TESTWS+2~, TESTWS+4*, TESTWS+14*, TESTWS+15 |
| SERVERIEN | WEBSERVER+1~, WEBSERVER+2*, WEBSERVER+14*, WEBSERVER+15*, WEBSERVER+16, ENABLEWS~, ENABLEWS+5, ENABLEWS+6 |
| SERVICE | TESTWS~, TESTWS+1 |
| TEXT | ENABLEWS~, ENABLEWS+5, REPORT~, 1, 1+2, 2+1, 2+6, 3, 3+4, 4 , 4+2 |
| WEBSERVERIEN | HDRWS+1~, HDRWS+5*, HDRWS+6, HDRWS+8, HDRWS+9, SVR+2, SVR+3 |
| WEBSERVICEIEN | HDRWS+1~, HDRWS+3*, HDRWS+4 |
| WSDA | TESTWS~, TESTWS+5 |
| X | SVR+1~, APSP+1~, APSP+3*, MAIL+1~ |
| XMDUN | MAIL+1~ |
| XMDUZ | MAIL+1~, MAIL+2* |
| XMMG | MAIL+1~ |
| XMROU | MAIL+1~ |
| XMSTRIP | MAIL+1~ |
| XMSUB | EN+1~, EN+9*, EN+10*, EN+11, MAIL~ |
| XMTEXT | MAIL+1~, MAIL+3* |
| XMY | MAIL+1~ |
| XMY( | MAIL+5* |
| XMY("G.PSS OR | DER CHECKS" , MAIL+4* |
| XMYBLOB | MAIL+1~ |
| XMZ | MAIL+1~ |
| Y | SVR+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T(APSPTXT+X | APSP+3 |