©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
INHVCRV ; JC Hrubovcak ; 22 Oct 1999 15:49 ;
Source file <INHVCRV.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 4 | ERROR^INHS ($$DIVCHK,$$DTIME,$$GETDUZ,$$TICKET,$$VALIDIP,CLRSTOR,LGNLOG)^INHULOG $$INPARMS^INHVCRL2 $$NEWSVR^INHVCRV1 |
| Kernel | 2 | $$DEVID^%ZTOS ^XUSHSH |
| Uncategorized | 1 | SETDT^UTDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOGON(INV,INOA,INODA) | ; $$function - Validate user, based on information sent
; by remote system (INV). Get information to return to remote system ; (INOA). |
|
| REVALID(INV,INOA) | ; subroutine, Validate ApS logon request
; Input: ; INV array - (req) ZIL1=ON, ZIL2=IP address, ZIL3=port, ZIL7=requested ; division, ZIL8=access code, ZIL9=verify code, ; ZIL11=scrambled,seeded key/ticket from remote sys |
|
| LOGERR(E) | ; log error message E
|
|
| LOGOFF(INV,INOA) | ; Lookup/Store call for ApS logoff msg
|
|
| RTNINIT | ; init return values, INOA & INODA array, error message into INOA
|
|
| ACCEPT | ; set "INSTAT" to Application Accept, KILL the error text
|
|
| FRHASH(INTICKET,INFRAME) | ; $$function - frame the ticket, encrypt, return
|
|
| CLEANUP | ; Cleanup following "successful" validation of logon message.
; Input: INUIF=UIF IEN of inbound msg ; Output: None. |
|
| VALID(INV,INUIF,INOA,INODA) | ; subroutine, VALIDate LoS logon request
; Input: ; INV array - (req) ZIL1=REQ, ZIL2=IP address, ZIL3=port, ZIL7=requested ; division, ZIL8=access code, ZIL9=verify code ; INUIF - (req) UNIVERSAL INTERFACE IEN |
|
| NACK | ; negative acknowledgement
|
| Name | Field # of Occurrence |
|---|---|
| $$DEVID^%ZTOS | LOGOFF+4 |
| ERROR^INHS | LOGERR+1 |
| $$DIVCHK^INHULOG | LOGON+30 |
| $$DTIME^INHULOG | LOGON+37 |
| $$GETDUZ^INHULOG | LOGON+27 |
| $$TICKET^INHULOG | LOGON+44 |
| $$VALIDIP^INHULOG | VALID+18 |
| CLRSTOR^INHULOG | LOGOFF+5 |
| LGNLOG^INHULOG | REVALID+37 |
| $$INPARMS^INHVCRL2 | VALID+15 |
| $$NEWSVR^INHVCRV1 | VALID+22 |
| SETDT^UTDT | LOGON+21, LOGOFF+3 |
| ^XUSHSH | FRHASH+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(3 - [#3] | LOGON+32, LOGON+38, LOGON+41 |
| ^INRHT - [#4000] | VALID+16 |
| ^INTHPC - [#4004] | REVALID+25 |
| ^INTHU - [#4001] | CLEANUP+5, CLEANUP+6, CLEANUP+7!*, CLEANUP+8 |
| ^XMB7( | LOGOFF+4! |
| ^XUSEC(0 - [#3.081] | LOGOFF+3* |
| ^ZUTL("XQ" | LOGOFF+3 |
| Name | Line Occurrences |
|---|---|
| $$FRHASH | REVALID+26 |
| $$LOGON | VALID+20, REVALID+31 |
| ACCEPT | VALID+26, REVALID+37, LOGOFF+7 |
| CLEANUP | VALID+26, REVALID+37 |
| LOGERR | VALID+15, VALID+16, VALID+18, VALID+20, VALID+22, REVALID+24, REVALID+25, REVALID+26, REVALID+28, REVALID+29 , REVALID+31, REVALID+33 |
| NACK | VALID+15, VALID+16, VALID+18, VALID+20, VALID+22 |
| RTNINIT | VALID+14, REVALID+21 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOGOFF+4! |
| ^($I | LOGOFF+4! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LOGOFF+3*, NACK+1~* |
| A | LOGOFF+3~*, CLEANUP+6~*, CLEANUP+7 |
| A( | CLEANUP+6* |
| B | VALID+12~, VALID+15*, VALID+18*, VALID+20*, VALID+22*, REVALID+19~, REVALID+25*, REVALID+26, CLEANUP+6~*, CLEANUP+7 |
| DT | LOGOFF+3 |
| DUZ | LOGOFF+3*, LOGOFF+4 |
| E | LOGERR~, LOGERR+1 |
| H | FRHASH+1~* |
| >> INADDR | REVALID+28 |
| >> INANYONE | LOGON+42 |
| >> INBPN | REVALID+25 |
| INBPNAPS | VALID+12~, VALID+16*, VALID+18, VALID+22 |
| INDSTP | VALID+12~, VALID+15, VALID+16 |
| >> INDUZ | REVALID+33 |
| INERR | VALID+12~, VALID+15 |
| INFRAME | FRHASH~, FRHASH+1 |
| INH9 | LOGON+20~ |
| INH9("AC" | LOGON+23*, LOGON+27 |
| INH9("DEFDIV" | LOGON+40*, LOGON+44 |
| INH9("DTIME" | LOGON+37*, LOGON+44 |
| INH9("FMACC" | LOGON+39*, LOGON+44 |
| INH9("HCP" | LOGON+32*, LOGON+42, LOGON+44 |
| INH9("MSIGN" | LOGON+41*, LOGON+44 |
| INH9("REQDIV" | LOGON+25* |
| INH9("USER" | LOGON+27*, LOGON+29, LOGON+30, LOGON+32, LOGON+37, LOGON+38, LOGON+41, LOGON+42, LOGON+44, LOGON+46 |
| INH9("VC" | LOGON+23*, LOGON+27 |
| INHZERO | LOGON+20~, LOGON+38*, LOGON+39, LOGON+40 |
| INOA | VALID~, VALID+20, VALID+22, REVALID~, REVALID+31, LOGON~, LOGOFF~, RTNINIT+1! |
| INOA( | NACK+1* |
| INOA("INACKTXT" | LOGOFF+1*, RTNINIT+1*, ACCEPT+1! |
| INOA("INORIGID" | RTNINIT+1* |
| INOA("INSTAT" | LOGOFF+1*, RTNINIT+1*, ACCEPT+1* |
| INOA("ZIL1" | VALID+14* |
| INOA("ZIL10" | LOGON+44* |
| INOA("ZIL12" | LOGON+44* |
| INOA("ZIL13" | LOGON+44* |
| INOA("ZIL14" | LOGON+44* |
| INOA("ZIL4" | LOGON+44* |
| INOA("ZIL5" | LOGON+44* |
| INOA("ZIL6" | LOGON+44* |
| INOA("~NOZIL" | REVALID+22*, REVALID+31!, LOGON+44 |
| INODA | VALID~, VALID+20, REVALID+31, LOGON~, RTNINIT+1!* |
| INODA(3 | LOGON+42* |
| INODA(6 | LOGON+42* |
| >> INPARMS | VALID+15 |
| >> INPARMS( | VALID+16 |
| >> INPORT | REVALID+29 |
| >> INSTERR | LOGERR+1* |
| >> INTICK | REVALID+24*, REVALID+26 |
| INTICKET | FRHASH~, FRHASH+1 |
| INUIF | VALID~, VALID+15, CLEANUP+5, CLEANUP+6, CLEANUP+7, CLEANUP+8 |
| INUSER | REVALID+19~, REVALID+31*, REVALID+33, REVALID+37 |
| INV | VALID~, VALID+18, VALID+20, VALID+22, REVALID~, REVALID+26, REVALID+28, REVALID+29, REVALID+31, LOGON~ , LOGON+23, LOGON+25, LOGOFF~, RTNINIT+1 |
| J | CLEANUP+6~* |
| L | FRHASH+1~* |
| U | VALID+16, VALID+18, VALID+20, REVALID+25, REVALID+31, LOGOFF+3 |
| X | LOGON+20~, LOGON+30*, FRHASH+1~*, FRHASH+2 |
| Y | LOGON+20~ |
| Z | LOGON+20~, LOGON+27 |