PSSNDCUT ;BIRM/MFR - NDC Utilities ;10-Dec-2013 16:28;DU
Source file <PSSNDCUT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SAVNDC(DRG,SITE,NDC,CMP) | ; Saves the NDC in the DRUG file (Format: 5-4-2)
; Input: (r) DRG - Drug IEN (#50) ; (r) SITE - Outpatient Site IEN (#59) ; (r) NDC - NDC Number ; (o) CMP - CMOP? (1-YES/0-NO) |
|
NDCFMT(NDC) | ; Formats NDC codes into 5-4-2
|
|
GETNDC(DRG,SITE,CMOP) | ; Retuns the NDC for a specific Drug/Site/CMOP or NON-CMOP
|
|
CHKCH(STR) | ; Checks characters different from "-" and numbers
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |
^PSNDF(50.68 - [#50.68] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSDRUG - [#50] | SAVNDC+10 |
^PSDRUG("AQ" | GETNDC+3 |
Name | Line Occurrences |
---|---|
$$CHKCH | NDCFMT+2 |
$$NDCFMT | SAVNDC+7, GETNDC+10, GETNDC+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHKCH | CHKCH+1~, CHKCH+3*, CHKCH+4 |
CMOP | GETNDC~, GETNDC+3* |
CMP | SAVNDC~, SAVNDC+16 |
DA | SAVNDC+5~, SAVNDC+15!, SAVNDC+16* |
DA(1 | SAVNDC+12*, SAVNDC+16* |
DD | SAVNDC+5~, SAVNDC+13! |
DIC | SAVNDC+5~, SAVNDC+11* |
DIC(0 | SAVNDC+12* |
DIE | SAVNDC+5~, SAVNDC+15!* |
DINUM | SAVNDC+5~, SAVNDC+12*, SAVNDC+13! |
DO | SAVNDC+5~, SAVNDC+13! |
DR | SAVNDC+5~, SAVNDC+15!, SAVNDC+16* |
DRG | SAVNDC~, SAVNDC+10, SAVNDC+11, SAVNDC+12, SAVNDC+15, SAVNDC+16, GETNDC~, GETNDC+3, GETNDC+10, GETNDC+12 |
I | SAVNDC+5~, CHKCH+3* |
NDC | SAVNDC~, SAVNDC+7*, SAVNDC+16, GETNDC+1~, GETNDC+10*, GETNDC+12*, GETNDC+13, NDCFMT~, NDCFMT+2, NDCFMT+3 , NDCFMT+4, NDCFMT+6, NDCFMT+7 |
NDF | GETNDC+1~, GETNDC+12* |
RFL | SAVNDC+5~ |
S1 | NDCFMT+1~, NDCFMT+7*, NDCFMT+8, NDCFMT+9, NDCFMT+11*, NDCFMT+12*, NDCFMT+16 |
S2 | NDCFMT+1~, NDCFMT+7*, NDCFMT+8, NDCFMT+9, NDCFMT+13*, NDCFMT+16 |
S3 | NDCFMT+1~, NDCFMT+7*, NDCFMT+8, NDCFMT+9, NDCFMT+14*, NDCFMT+16 |
SITE | SAVNDC~, SAVNDC+10, SAVNDC+12, SAVNDC+16, GETNDC~ |
STR | CHKCH~, CHKCH+2, CHKCH+3 |
X | SAVNDC+5~, SAVNDC+12* |
Y | SAVNDC+5~, SAVNDC+13! |