PSSDEEA ;PBM/RMS - DRUG FILE ENTER/EDIT AUDIT ; 18 May 2018 10:55 AM
Source file <PSSDEEA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEFORE(TAG) | ;
; Capture the drug entry before it is edited to have to compare to ; after the user completes the editing. Email changes in ; linetag 'AFTER' (called at the end of PSSDEE). ; From: PSSDEE [PSS DRUG ENTER/EDIT] ; Output: ; 1. ^UTILITY(TAG,$J,DA)=Drug file entry number DA before editing ; 2. ZDA ; DA or IEN of Drug file #50 entry ; 3. ZN ; Will be equal to 1 if a new drug was entered into file |
|
| AFTER(TAG) | ;
|
|
| EN | ||
| HEADER | ;HEADER FOR FIELDS CHANGED IN THE DRUG ENTER/EDIT OPTION
; ZEXCEPT: PSSZMES,USER,ZDAN |
|
| COMPAR | ;
; ZEXCEPT: PSSZMES,ANS,FLAG,LABEL,NEWVAL,OLDVAL,ZDA,TAG,PSSZNOC |
|
| OLDEXT(OLDVAL,PSSZNODE,PIECE) | ;COMPUTE EXTERNAL 'OLD' VALUE WHERE NECESSARY
|
|
| NEWEXT(ZDA,PSSZNODE,PIECE) | ;COMPUTE EXTERNAL 'NEW' VALUE WHERE NECESSARY
|
|
| SEND | ;
; ZEXCEPT: ZDA,ZDAN,PSSZNOC |
|
| STOR | ;STORES VALUES INTO MAILMAN VARIABLES
; ZEXCEPT: PSSZMES,COUNT,FIELD,LABEL,NEWVAL,OLDVAL,SPACES |
|
| SETLB | ;SETS $TEXT LABEL
; ZEXCEPT: LABEL,PSSZNODE |
|
| SUB0 | ;FIELDS FOR ^PSDRUG(ZDA,0)
|
|
| SUB2 | ;FIELDS FOR ^PSDRUG(ZDA,2)
|
|
| SUB3 | ;FIELDS FOR ^PSDRUG(ZDA,3)
|
|
| SUB85 | ;
|
|
| SUB660 | ;FIELDS FOR ^PSDRUG(ZDA,660)
|
|
| SUB6601 | ;FIELDS FOR ^PSDRUG(ZDA,660.1)
|
|
| SUBEPH | ;FIELDS FOR ^PSDRUG(ZDA,"EPH")
|
|
| SUBI | ;FIELDS FOR ^PSDRUG(ZDA,"I")
|
|
| SUBND | ;FIELDS FOR ^PSDRUG(ZDA,"ND")
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
