Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSNHIT

Package: National Drug File

Routine: PSNHIT


Information

PSNHIT ;BIR/CCH&WRT-After match is made package size and type selected ; 02/08/00 8:41

Source Information

Source file <PSNHIT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
National Drug File 6 $$VAP^PSNAPIS  (PUNT,TRY3)^PSNCOMP  (HIT1,NDC3,RES1)^PSNHELP  SET^PSNHIT  (PKSIZE,PKTYPE)^PSNOUT  ^PSNSTCK  
Kernel 1 T1^%ZOSV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
National Drug File 4 PSNCOMP  PSNDRUG  PSNHIT  PSNNDC  

Entry Points

Name Comments DBIA/ICR reference
VAPN
STAR0
SET
HIT
FORM
SETARY1
RESP
EXTD
STAR
ASKIT1
KILL
OOPS
ASKIT
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
ARRAY
PKI
WRTIT

External References

Name Field # of Occurrence
T1^%ZOSV VAPN
^DIR ASKIT+1, ASKIT1+1
$$VAP^PSNAPIS FORM
PUNT^PSNCOMP RESP, RESP+2
TRY3^PSNCOMP VAPN+4
HIT1^PSNHELP WRTIT+3
NDC3^PSNHELP VAPN+2
RES1^PSNHELP RESP+5
SET^PSNHIT ASKIT+3, ASKIT1+3
PKSIZE^PSNOUT ASKIT, ASKIT1
PKTYPE^PSNOUT ASKIT, ASKIT1
^PSNSTCK RESP+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Match made with ",PSNLOC
  • Line Location: HIT+0
Function Call: WRITE
  • Prompt: ?62,"N/F"
  • Condition for execution: $P(^PSDRUG(PSNB,0),"^",9)=1
  • Line Location: HIT+0
Function Call: WRITE
  • Prompt: !," Now select VA Product Name ",!
  • Line Location: HIT+0
Function Call: WRITE
  • Prompt: $P(LIST(IEN),"^",2)
  • Line Location: HIT+1
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: WRTIT+0
Function Call: READ
  • Prompt: "Enter your choice: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: VAPN+0
Function Call: WRITE
  • Prompt: !,?24,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",5)),!,?37,"DISPENSE UNIT: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",8)),!,?5
  • Line Location: VAPN+3
Function Call: WRITE
  • Prompt: !!,"Invalid answer",!
  • Line Location: VAPN+5
Function Call: READ
  • Timeout: DTIME
  • Line Location: RESP+0
Function Call: WRITE
  • Prompt: !," Invalid Response "
  • Line Location: RESP+6
Function Call: WRITE
  • Prompt: !,"Inactive VA Product entry has been selected!!",!!
  • Line Location: RESP+7
Function Call: WRITE
  • Prompt: " ",PSND," ",PSNVC
  • Line Location: PRA+2
Function Call: WRITE
  • Prompt: " ",PSND," ",PSNVC
  • Line Location: PRA+3
Function Call: WRITE
  • Prompt: !!,"No match found"
  • Line Location: OOPS+0
Function Call: WRITE
  • Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^"),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE
  • Line Location: ASKIT+0
Function Call: WRITE
  • Prompt: !?10,"Is this a match ?"
  • Line Location: ASKIT+1
Function Call: WRITE
  • Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^"),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE
  • Line Location: ASKIT1+0
Function Call: WRITE
  • Prompt: !?10,"Is this a match ?"
  • Line Location: ASKIT1+1
Routine Call
  • DIR
  • Line Location:
    • ASKIT+1
    • ASKIT1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] VAPN+2
^PSDRUG - [#50] HIT, ASKIT, ASKIT1, PKI+3, PKI+4
^PSNDF(50.68 - [#50.68] RESP+8, SETARY1, PKI+1
^PSNTRAN - [#50.612] SET, SET+1*, OOPS*
^PSNTRAN(0 SET*
^TMP($J FORM, WRTIT+1, VAPN+5, VAPN+6, STAR!, SETARY1, ARRAY*, KILL+1!, STAR0!*, EXTD

Label References

Name Line Occurrences
ARRAY SETARY1
EXTD WRTIT
FORM WRTIT+2, WRTIT+3, WRTIT+5, VAPN+3, VAPN+5, RESP+3, RESP+7
PKI SET+1
RESP RESP+1, RESP+5, RESP+6
SETARY1 STAR
STAR FORM
STAR0 FORM
VAPN VAPN+1

Naked Globals

Name Field # of Occurrence
^(7 PKI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS FORM!, WRTIT*, WRTIT+2, WRTIT+3!, WRTIT+4!, WRTIT+5, VAPN*, VAPN+1!, VAPN+2, VAPN+3!
, VAPN+4, VAPN+5!, VAPN+6, RESP*!, RESP+1, RESP+2!, RESP+3!, RESP+4, RESP+5!, RESP+6
, RESP+9!, KILL!
ASC PSNHIT+6*, WRTIT, KILL+1!
BB WRTIT*, WRTIT+1, KILL+1!, EXTD
>> CID SETARY1*, ARRAY
>> CMID WRTIT+1, EXTD*
CS PKI~, PKI+1*, PKI+2*, PKI+3, PKI+4, PKI+6
DA FORM!*
DIC KILL!
DIR ASKIT+1!, ASKIT1+1!
DIR("B" ASKIT+1*, ASKIT1+1*
DIR(0 ASKIT+1*, ASKIT1+1*
>> DIRUT ASKIT+1, ASKIT1+1
DOS KILL!
DTIME WRTIT, VAPN, RESP
>> DUNCE ASKIT1*, ASKIT1+2*
DUZ SET+1, OOPS
END KILL+1!
IEN KILL+1!, STAR0*
IFN KILL!
II KILL!
IOF SET+1
JJ KILL!
>> KK VAPN+6*, RESP+7, SETARY1*, ARRAY
LIST FORM!, KILL+1!
LIST( RESP+7, ARRAY, STAR0
MJL KILL!
NBR KILL!
NDP KILL!
>> NOMSYN ASKIT1+2*
PS KILL!
>> PSNB HIT, SET, SET+1, OOPS, ASKIT, ASKIT1, PKI+3, PKI+4
PSNCLASS RESP+8*, SET+1, KILL!
PSNDA FORM, RESP+8, KILL!
PSNDDA KILL!
PSNFL HIT+1*, WRTIT*, WRTIT+4, VAPN*, RESP+4*, RESP+8, SET+1*, KILL!
PSNFNM VAPN+6*, RESP+8, SET+1, KILL!, PKI+1
PSNFORM RESP!, RESP+2!, RESP+3!, KILL!, ASKIT, ASKIT1
PSNLOC HIT, KILL+1!
>> PSNM STAR*, SETARY1, ARRAY
PSNNAM VAPN+2, KILL!
PSNNAME KILL!
PSNNDC KILL!
PSNNDF RESP+8*, SET+1, KILL!
PSNODE VAPN+2, VAPN+3, KILL+1!
PSNOU VAPN+2, KILL+1!
PSNRAN STAR*, ARRAY*, KILL+1!
PSNSIZE SET+1, KILL!
PSNSP KILL!
PSNSTDA KILL!
PSNSZ KILL!
PSNSZE KILL!, ASKIT, ASKIT1
PSNTPE KILL+1!, ASKIT, ASKIT1
PSNTRFL KILL!
PSNTYP KILL!
PSNTYPE SET+1, KILL!
PSNUNDA KILL!
PSNV KILL+1!
PSNVAR RESP+8*, KILL!
PSNWR FORM*, KILL+1!
PSNX KILL+1!
PSNZ KILL+1!
PT KILL!
>> STOP FORM*, WRTIT
STR KILL!
UNT KILL!
VADC KILL+1!
VV KILL!
VV1 KILL!
WRT STAR*, KILL+1!
X FORM*, RESP+2, KILL!, PKI+7*
>> XRT0 VAPN
>> XRTN VAPN*
Y KILL!
Y(0 ASKIT+2, ASKIT+3, ASKIT1+2, ASKIT1+3

Marked Items

Name Field # of Occurrence
$T( VAPN
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All