DGQPT2 ; HIRMFO/DAD-Patient Look-Up Security Check and Notification ;1/31/97 07:57
Source file <DGQPT2.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 |
|---|---|---|
| EN1(DGDFN) | ;
; Sensitive Patient record check ; Input ; DGDFN = Pointer to the Patient file (#2) ; Output ; 0 - Patient record IS NOT sensitive ; 1 - Patient record IS sensitive |
|
| EN2(DGDFN) | ;
; Update DG Security Log file (#38.1) and sends ; the 'Restricted Patient Accessed' bulletin to the ; mailgroup specified in the 'Sensitive Rec Accessed ; Group' field (43,509) ; Input ; DGDFN = Pointer to the Patient file (#2) ; Output ; None |
|
| CWAD(DFN) | ;
; Crisis notes, clinical Warnings, Allergies, advance Directives ; Input: ; DFN = A Patient file (#2) IEN ; Output: ; A string of 0-4 nonrepeating characters consisting ; of the letters C,W,A,D. The string will be returned ; with the letters in the order shown. |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGSL(38.1 - [#38.1] | GET1^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | EN2+55 |
| ^DGSL(38.1 - [#38.1] | EN2+36, EN2+38, EN2+44, EN2+53 |
| ^TMP("TIUPPCV" | CWAD+18, CWAD+19, CWAD+23! |
| ^XUSEC("DG SENSITIVITY" | EN2+21 |
| Name | Line Occurrences |
|---|---|
| $$EN1 | EN2+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACRN | CWAD+10~, CWAD+19*, CWAD+21 |
| CTR | CWAD+10~, CWAD+17*, CWAD+18*, CWAD+19 |
| DFN | EN2+12~, EN2+18*, CWAD~, CWAD+9, CWAD+11 |
| DG1 | EN2+12~, EN2+18 |
| DGA1 | EN2+12~ |
| DGDFN | EN1~, EN1+8, EN2~, EN2+10, EN2+18, EN2+30, EN2+31, EN2+36, EN2+38, EN2+40 , EN2+41, EN2+44, EN2+46, EN2+47, EN2+48, EN2+49, EN2+53, EN2+55 |
| DGFDA | EN2+39~, EN2+45~ |
| DGFDA( | EN2+40*, EN2+46*, EN2+47*, EN2+48*, EN2+49* |
| DGIEN | EN2+39~, EN2+45~ |
| DGIEN(1 | EN2+41*, EN2+50* |
| DGINPT | EN2+12~, EN2+18*, EN2+21, EN2+49 |
| DGINVNOW | EN2+12~, EN2+44*, EN2+50 |
| >> DGLST | CWAD+16*, CWAD+18, CWAD+21*, CWAD+25*, CWAD+26 |
| DGMAILGR | EN2+12~, EN2+19*, EN2+21, EN2+24 |
| DGMSG | EN2+39~, EN2+45~ |
| DGNOW | EN2+12~, EN2+17*, EN2+18, EN2+44*, EN2+46 |
| DGOPT | EN2+12~, EN2+16*, EN2+32, EN2+48 |
| DGT | EN2+12~, EN2+18* |
| DGTEXT | EN2+22~ |
| DGTEXT(1 | EN2+28* |
| DGTEXT(2 | EN2+29* |
| DGTEXT(3 | EN2+30* |
| DGTEXT(4 | EN2+31* |
| DGTEXT(5 | EN2+32* |
| DGXFR0 | EN2+12~ |
| DUZ | EN2+10, EN2+21, EN2+26, EN2+47 |
| MSG | CWAD+10~ |
| ORLST | CWAD+10~ |
| U | EN2+16, EN2+32, EN2+48, CWAD+19, CWAD+21 |
| X | EN2+13~, EN2+55* |
| XMCHAN | EN2+22~, EN2+27* |
| XMDUZ | EN2+22~, EN2+26* |
| XMSUB | EN2+22~, EN2+23* |
| XMTEXT | EN2+22~, EN2+25* |
| XMY | EN2+22~ |
| XMY("G." | EN2+24* |
| XMZ | EN2+22~ |
| XQOPT | EN2+13~, EN2+16 |
