PSNHIT ;BIR/CCH&WRT-After match is made package size and type selected ; 02/08/00 8:41
Source file <PSNHIT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HIT | ||
FORM | ||
WRTIT | ||
VAPN | ||
RESP | ||
SET | ||
PRA | ; PRINT DOSE FORM AND CLASS AFTER VA PRODUCT NAME IF A DUPLICATE
; S PSNDFM=$P(^PSNDF(PSNDA,2,$P(^PSNDF(PSNDA,5,KK,0),"^",2),0),"^",1),PSND=$P(^PS(50.606,PSNDFM,0),"^",1) ; S PSNVCL=$P(^PSNDF(PSNDA,2,$P(^PSNDF(PSNDA,5,KK,0),"^",2),0),"^",3),PSNVC=$P(^PS(50.605,PSNVCL,0),"^",1) W " ",PSND," ",PSNVC S PSNF=0 Q ; W " ",PSND," ",PSNVC S PSNF=0 Q |
|
OOPS | ||
STAR | ||
SETARY1 | ||
ARRAY | ||
KILL | ||
STAR0 | ||
ASKIT | ||
ASKIT1 | ||
EXTD | ||
PKI |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSNDF(50.68 - [#50.68] | GET1^DIQ |