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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSSNDCUT2

Package: Pharmacy Data Management

Routine: PSSNDCUT2


Information

PSSNDCUT2 ;AITC/PD - NDC Utilities 2;6/1/21

Source Information

Source file <PSSNDCUT2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  
Pharmacy Data Management 1 $$NDCFMT^PSSNDCUT  

Entry Points

Name Comments DBIA/ICR reference
OPS(PSS50) ; Outpatient Site
OPS1 ;
ASKNDC(FLG) ; Prompt for NDC
ASKNDC1 ;
FILENDC(FLG) ; Save NDC
NDCARRAY ;
AUDIT ; Audit Trail
NDCHLP2 ; Invalid NDC entry
NDCHLP ; Display list of valid NDCs
DELETE() ; Confirm Deletion of NDC

External References

Name Field # of Occurrence
FILE^DIE FILENDC+4, AUDIT+33
UPDATE^DIE AUDIT+14
$$GET1^DIQ OPS1+8, OPS1+9, OPS1+14, NDCARRAY+4, NDCARRAY+10, NDCARRAY+16, NDCARRAY+19, AUDIT+4, AUDIT+5
^DIR OPS1+4, ASKNDC1+16, DELETE+6
$$NDCFMT^PSSNDCUT ASKNDC1+27, NDCARRAY+4, NDCARRAY+10, NDCARRAY+16, NDCARRAY+19
$$NOW^XLFDT AUDIT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No valid NDCs found for "_$$GET1^DIQ(50,PSS50,.01)
  • Line Location: OPS1+14
Function Call: WRITE
  • Prompt: " ",NDC
  • Line Location: ASKNDC1+30
Function Call: WRITE
  • Prompt: !!,"NDC is not valid."
  • Line Location: NDCHLP2+2
Function Call: WRITE
  • Prompt: !,"Select from one of the following valid NDC(s) or enter ^ to exit:",!
  • Line Location: NDCHLP+3
Function Call: WRITE
  • Prompt: !?3,PSSI_" - "_NDCAR(2,PSSI)
  • Line Location: NDCHLP+5
Routine Call
  • DIE
  • Line Location:
    • FILENDC+4
    • AUDIT+33
Routine Call
  • DIE
  • Line Location:
    • AUDIT+14
Routine Call
  • DIR
  • Line Location:
    • OPS1+4
    • ASKNDC1+16
    • DELETE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
50.032 GET1^DIQ
50.1 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] NDCARRAY+8, NDCARRAY+14, AUDIT+23

Label References

Name Line Occurrences
$$DELETE ASKNDC1+21
ASKNDC OPS1+17, OPS1+22
ASKNDC1 ASKNDC1+23, ASKNDC1+25, ASKNDC1+26
AUDIT OPS1+23, OPS1+26
FILENDC OPS1+19, OPS1+24
NDCARRAY OPS1+12
NDCHLP2 ASKNDC1+25, ASKNDC1+26
OPS1 OPS1+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY FILENDC+2~
ARRAY( FILENDC+3*
CNT NDCARRAY+2~, NDCARRAY+22*, NDCARRAY+25*, NDCARRAY+26, NDCARRAY+27
DEFLT ASKNDC1+2~, ASKNDC1+7*, ASKNDC1+10*, ASKNDC1+14
DELETE ASKNDC1+2~, ASKNDC1+21*, ASKNDC1+22, ASKNDC1+23
DIR OPS1+1~, ASKNDC1+2~, DELETE+2~
DIR("?" ASKNDC1+15*
DIR("A" OPS1+3*, ASKNDC1+13*, DELETE+4*
DIR("B" ASKNDC1+14*, DELETE+5*
DIR(0 OPS1+2*, ASKNDC1+12*, DELETE+3*
DIRUT OPS1+1~, OPS1+5, ASKNDC1+2~, ASKNDC1+18, ASKNDC1+19, DELETE+2~, DELETE+7
DUZ AUDIT+25
FILE AUDIT+1~, AUDIT+12*, AUDIT+13, AUDIT+25, AUDIT+28, AUDIT+29, AUDIT+31, AUDIT+32
FLG ASKNDC~, ASKNDC1+5, ASKNDC1+8, FILENDC~, FILENDC+3
IEN AUDIT+1~
NDC OPS1+1~, OPS1+19, OPS1+24, ASKNDC1+3*, ASKNDC1+22*, ASKNDC1+25*, ASKNDC1+26, ASKNDC1+27*, ASKNDC1+28*, ASKNDC1+29*
, ASKNDC1+30, FILENDC+3, NDCARRAY+2~, NDCARRAY+4*, NDCARRAY+5, NDCARRAY+10*, NDCARRAY+11, NDCARRAY+16*, NDCARRAY+17, NDCARRAY+19*
, NDCARRAY+20, NDCARRAY+23*, NDCARRAY+24*, NDCARRAY+26, NDCARRAY+27
NDC1POST AUDIT+1~, AUDIT+4*, AUDIT+8, AUDIT+18*, AUDIT+27, AUDIT+29
NDC1PRE OPS1+1~, OPS1+8*, OPS1+19, ASKNDC1+7, AUDIT+8, AUDIT+17*, AUDIT+27, AUDIT+28
NDC2POST AUDIT+1~, AUDIT+5*, AUDIT+8, AUDIT+20*, AUDIT+30, AUDIT+32
NDC2PRE OPS1+1~, OPS1+9*, OPS1+24, ASKNDC1+10, AUDIT+8, AUDIT+19*, AUDIT+30, AUDIT+31
NDCAR OPS1+1~, OPS1+13, NDCARRAY+1!, AUDIT+2!, AUDIT+15!, AUDIT+35!
NDCAR( AUDIT+25*, AUDIT+28*, AUDIT+29*, AUDIT+31*, AUDIT+32*
NDCAR(1 ASKNDC1+25, ASKNDC1+28, NDCARRAY+5*, NDCARRAY+11*, NDCARRAY+17*, NDCARRAY+20*, NDCARRAY+24, NDCARRAY+26*, AUDIT+13*
NDCAR(2 ASKNDC1+29, NDCARRAY+27*, NDCHLP+4, NDCHLP+5
NDCAUD AUDIT+1~, AUDIT+23*, AUDIT+24
NDCI NDCARRAY+2~, NDCARRAY+7*, NDCARRAY+8*, NDCARRAY+10, NDCARRAY+13*, NDCARRAY+14*, NDCARRAY+16, NDCARRAY+19
NDCIEN AUDIT+1~, AUDIT+24*, AUDIT+25, AUDIT+28, AUDIT+29, AUDIT+31, AUDIT+32
NDCSITE OPS1+1~, OPS1+6*, OPS1+8, OPS1+9, FILENDC+3, AUDIT+4, AUDIT+5, AUDIT+13, AUDIT+23, AUDIT+24
PRMPT ASKNDC1+2~, ASKNDC1+6*, ASKNDC1+9*, ASKNDC1+13
PSS50 OPS~, OPS1+2, OPS1+8, OPS1+9, OPS1+14, FILENDC+3, NDCARRAY+4, NDCARRAY+8, NDCARRAY+10, NDCARRAY+14
, NDCARRAY+16, NDCARRAY+19, AUDIT+4, AUDIT+5, AUDIT+13, AUDIT+23, AUDIT+24
>> PSSI NDCHLP+2*, NDCHLP+4*, NDCHLP+5
PSSNO2 AUDIT+1~
PSSNOW AUDIT+1~, AUDIT+11*, AUDIT+13, AUDIT+23
QUIT OPS1+1~, OPS1+18, OPS1+23, ASKNDC1+18*, ASKNDC1+19*
X OPS1+1~, ASKNDC1+2~, ASKNDC1+18, ASKNDC1+19, ASKNDC1+21, ASKNDC1+22, ASKNDC1+23, DELETE+2~
Y OPS1+1~, OPS1+5, OPS1+6, ASKNDC1+2~, ASKNDC1+18, ASKNDC1+19, ASKNDC1+25, ASKNDC1+26, ASKNDC1+27, ASKNDC1+29
, DELETE+2~, DELETE+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All