©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
ORQPT2 ; HIRMFO/DAD-Patient Look-Up Security Check and Notification ;1/31/97 07:57
Source file <ORQPT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | $$NOW^XLFDT OP^XQCHK |
| VA Fileman | 2 | UPDATE^DIE $$GET1^DIQ |
| MailMan | 1 | ^XMD |
| Registration | 1 | EN^DGPMSTAT |
| Text Integration Utility | 1 | ENCOVER^TIUPP3 |
| Uncategorized | 1 | EN^MPRCHK |
| Package | Total | Caller Graph |
|---|---|---|
| Inpatient Medications | 2 | PSJALG PSJLMHED |
| Order Entry Results Reporting | 2 | ORCHART ORWPT |
| Consult Request Tracking | 1 | GMRCSLM |
| Registration | 1 | DGRRLU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(ORDFN) | ;
; Sensitive Patient record check ; Input ; ORDFN = Pointer to the Patient file (#2) ; Output ; 0 - Patient record IS NOT sensitive ; 1 - Patient record IS sensitive |
|
| EN2(ORDFN) | ;
; 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 ; ORDFN = 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+56 |
| ^DGSL(38.1 - [#38.1] | EN2+37, EN2+39, EN2+45, EN2+54 |
| ^TMP("TIUPPCV" | CWAD+18, CWAD+19, CWAD+23! |
| ^XUSEC("DG SENSITIVITY" | EN2+22 |
| 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+19*, CWAD~, CWAD+9, CWAD+11 |
| DG1 | EN2+12~, EN2+19 |
| DGA1 | EN2+12~ |
| DGT | EN2+12~, EN2+19* |
| DGXFR0 | EN2+12~ |
| DUZ | EN2+10, EN2+22, EN2+27, EN2+48 |
| MSG | CWAD+10~ |
| ORDFN | EN1~, EN1+8, EN2~, EN2+10, EN2+19, EN2+31, EN2+32, EN2+37, EN2+39, EN2+41 , EN2+42, EN2+45, EN2+47, EN2+48, EN2+49, EN2+50, EN2+54, EN2+56 |
| ORFDA | EN2+40~, EN2+46~ |
| ORFDA( | EN2+41*, EN2+47*, EN2+48*, EN2+49*, EN2+50* |
| ORIEN | EN2+40~, EN2+46~ |
| ORIEN(1 | EN2+42*, EN2+51* |
| ORINPT | EN2+13~, EN2+19*, EN2+22, EN2+50 |
| ORINVNOW | EN2+13~, EN2+45*, EN2+51 |
| ORLST | CWAD+10~, CWAD+16*, CWAD+18, CWAD+21*, CWAD+25*, CWAD+26 |
| ORMAILGR | EN2+13~, EN2+20*, EN2+22, EN2+25 |
| ORMSG | EN2+40~, EN2+46~ |
| ORNOW | EN2+13~, EN2+18*, EN2+19, EN2+45*, EN2+47 |
| OROPT | EN2+13~, EN2+17*, EN2+33, EN2+49 |
| ORTEXT | EN2+23~ |
| ORTEXT(1 | EN2+29* |
| ORTEXT(2 | EN2+30* |
| ORTEXT(3 | EN2+31* |
| ORTEXT(4 | EN2+32* |
| ORTEXT(5 | EN2+33* |
| U | EN2+17, EN2+33, EN2+49, CWAD+19, CWAD+21 |
| X | EN2+14~, EN2+56* |
| XMCHAN | EN2+23~, EN2+28* |
| XMDUZ | EN2+23~, EN2+27* |
| XMSUB | EN2+23~, EN2+24* |
| XMTEXT | EN2+23~, EN2+26* |
| XMY | EN2+23~ |
| XMY("G." | EN2+25* |
| XMZ | EN2+23~ |
| XQOPT | EN2+14~, EN2+17 |