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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSODIAG

Package: Outpatient Pharmacy

Routine: PSODIAG


Information

PSODIAG ;BIR/LE - Diagnosis code prompts ;02/27/04

Source Information

Source file <PSODIAG.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIK  $$GET1^DIQ  
DRG Grouper 2 $$STATCHK^ICDAPIU  $$ICDDX^ICDCODE  
Integrated Billing 1 ($$CIDC,CIDC)^IBBAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Outpatient Pharmacy 7 PSOBKDED  PSOHLNEW  PSON52  PSONEW1  PSOORED6  PSOOREDT  PSOORNEW  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN2 ;ask for ICD's or display previously entered ones for editing
WRITE
WRITE2
STATCHK(ICDIEN,FILDAT) ;called from above to check active/inactive date during FileMan call.
DELETE ;called from above to verify delete with user and to delete said entries
ICD ;called from PSON52 cause PSON52'S too large. Stores ICD info for new Rx's (CPRS and backdoor) using variables from copy function and new order functions.
UPDATE ;was in PSOORED6; now called from PSOORED6; removes deletes for edits and stores data.
CSET ;Called from PSOHLNEW due to it's routine size. Requires PSOICD & PENDING variable. Sets ICD node for orders passed from CPRS.

External References

Name Field # of Occurrence
^DIC EN2+19
^DIK UPDATE+7
$$GET1^DIQ EN+15, EN+20, EN+21, EN+29, EN+30
$$CIDC^IBBAPI EN+5
CIDC^IBBAPI EN+2
$$STATCHK^ICDAPIU EN2+25, STATCHK+2
$$ICDDX^ICDCODE EN+24, EN+33, WRITEWRITE2WRITE2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Previously entered ICD-9 diagnosis codes: "
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: OLD(I)
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+4
Function Call: READ
  • Variable: X
  • Timeout: 60
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,DIC("A")
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: OLD(I)_"// "
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: !,"Enter a valid ICD-9 diagnosis code."
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !!,"Invalid ICD-9 diagnosis code. Please choose another.",!
  • Line Location: EN2+26
Function Call: WRITE
  • Prompt: !!,"Inactivated ICD-9 Diagnosis Code. Please choose another.",!
  • Line Location: EN2+27
Function Call: WRITE
  • Prompt: !!,"Invalid or inactivated ICD-9 diagnosis code. Please choose another.",!
  • Line Location: EN2+28
Function Call: WRITE
  • Prompt: $C(7),!," Duplicate entry. Please select a different ICD-9 diagnosis code.",!
  • Line Location: EN2+30
Function Call: WRITE
  • Prompt: !,?10,"Primary: ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4)
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !,?3,"Secondaries #"_J_": ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4)
  • Line Location: WRITE2+0
Function Call: WRITE
  • Prompt: !,?15,"#"_J_": ",OLD(I),?30,$P($$ICDDX^ICDCODE(OLD(I),FILDAT),U,4)
  • Line Location: WRITE2+1
Function Call: READ
  • Variable: X
  • Timeout: 30
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !,"SURE YOU WANT TO DELETE? "
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !,"Enter Y or N"
  • Line Location: DELETE+2
Routine Call
  • DIC
  • Line Location:
    • EN2+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.052311 GET1^DIQ
52.41311 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] STATCHK+2
^ICD9("BA" EN2+22
^PS(52.41 - [#52.41] EN+13, EN+28, ICD+6, CSET+3*, CSET+4*
^PS(53 - [#53] ICD+10, ICD+16
^PSRX - [#52] EN+19, EN2+50, ICD+4!, ICD+5, ICD+11*, ICD+15*, ICD+16*, ICD+17*, UPDATE+5, UPDATE+6!*
UPDATE+7, UPDATE+10, UPDATE+11!, UPDATE+12*, UPDATE+13*
^XUSEC("PROVIDER" EN+3

Label References

Name Line Occurrences
DELETE EN2+14, DELETE+2
WRITE EN+26, EN+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CPRS EN+7~, EN+10*, EN+13*, EN+18, EN+27, EN2+6, EN2+46, EN2+48, EN2+50, DELETE+6
DELETE+7
D ICD+1~, ICD+3*, ICD+4*, ICD+5*, ICD+7*, ICD+11, ICD+12*, ICD+15, ICD+16
DA EN+5, UPDATE+2~, UPDATE+3*, UPDATE+7*!, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13
DA(1 UPDATE+7*
DDATA ICD+1~, ICD+8*, ICD+9*, ICD+10*, ICD+11, ICD+13*, ICD+14*, ICD+15
>> DFN EN+4
DIC EN+9!, EN2+7!, EN2+16!*, EN2+19!
DIC("A" EN2+7*, EN2+9
DIC("B" EN2+8*
DIC("S" EN2+18*
DIC(0 EN2+16*
DIK UPDATE+2~, UPDATE+7*!
DT EN+15
DTOUT EN2+19!, EN2+21
DUOUT EN2+19!, EN2+21
DUZ EN+3
DX EN+7~
DX( EN2+30, EN2+32*
EE CSET+1~, CSET+2*, CSET+3
EEE CSET+1~, CSET+2*, CSET+3*, CSET+4
FILDAT EN+7~, EN+15*, EN+24, EN+33, EN2+25, WRITEWRITE2WRITE2+1, STATCHK~, STATCHK+2
I EN+7~, EN+19*, EN+20, EN+21, EN+23*, EN+24, EN+25, EN+26*, EN+28*, EN+29
EN+30, EN+32*, EN+33, EN+34*, EN2+5*, EN2+7, EN2+8, EN2+10, EN2+11, EN2+13*
EN2+20*, EN2+22*, EN2+23*, EN2+24*, EN2+28*, EN2+29, EN2+30*, EN2+32, EN2+40*, EN2+41
WRITEWRITE2WRITE2+1, DELETE+3*, DELETE+4, DELETE+13*, UPDATE+2~, UPDATE+7*, UPDATE+12*
ICD ICD+1~, ICD+7*, ICD+8
ICDIEN STATCHK~, STATCHK+2*
II ICD+1~, ICD+11*, ICD+15*, ICD+17, UPDATE+2~, UPDATE+12*, UPDATE+13
J EN+7~, EN+25*, EN2+29*, EN2+30, EN2+40*, WRITE*, WRITE2WRITE2+1, DELETE+4*, DELETE+5
DELETE+6, DELETE+7, DELETE+9, DELETE+10, DELETE+11
NEW EN+7~
NEW("ICD" EN2+32*, EN2+37*, EN2+38, EN2+40
OLD EN+7~, EN+22, EN+31!
OLD( EN+20*, EN+24*, EN+25, EN+26, EN+29*, EN+33*, EN+34, EN2+8, EN2+10, EN2+11
WRITEWRITE2WRITE2+1, DELETE+5*, DELETE+11!
OLDI EN+7~, EN+31!, EN+35, EN2+37
OLDI( EN+21*, EN+23*, EN+24, EN+30*, EN+32*, EN+33, DELETE+4, DELETE+5*, DELETE+7, DELETE+11!
>> ORD EN+12, EN+13, EN+28, EN+29, EN+30, ICD+6
>> PENDING CSET+3, CSET+4
POP EN+7~, EN2+29*, EN2+30*, EN2+31
>> PSOANSQ("CV" ICD+8, ICD+14
>> PSOANSQ("HNC" ICD+8, ICD+14
>> PSOANSQ("MST" ICD+8, ICD+14
>> PSOANSQ("PGW" ICD+8, ICD+14
>> PSOANSQ("RAD" ICD+8, ICD+13
>> PSOANSQ("SC" ICD+8, ICD+13
>> PSOANSQ("SC>50" ICD+8, ICD+10, ICD+13, ICD+16
>> PSOANSQ("SHAD" ICD+9, ICD+14
>> PSOANSQ("VEH" ICD+8, ICD+13
>> PSOCOPY EN+22, EN2+38, DELETE+8, ICD+2
PSODDFN EN+4~*, EN+5
>> PSODFN EN+4
>> PSOEDIT EN+5
>> PSOICD( CSET+2, CSET+3
PSOICDD EN2+38!*, ICD+2
>> PSONEW("DFLG" EN+5*
>> PSONEW("ICD" EN+13*, EN+28, EN+31, EN+32, DELETE+6*, DELETE+7*, DELETE+9*, DELETE+11!, ICD+6, ICD+18!
>> PSONEW("IDFLG" EN2+48*
>> PSONEW("PATIE NT STATUS" , ICD+10, ICD+16
>> PSORX("ICD" EN2+46!*, EN2+47!*, ICD+6, ICD+18!
>> PSORXED EN+11, EN2+6, EN2+47
>> PSORXED("FLD" EN+11*, EN+13!, EN2+45!
>> PSORXED("ICD" EN+13!, EN+19, EN2+46*, DELETE+10*, DELETE+11!, ICD+18!, UPDATE+4, UPDATE+9, UPDATE+12
>> PSORXED("IDFLG" EN2+50*, UPDATE+4!
>> PSORXED("IRXN" EN+8, UPDATE+3, UPDATE+5, UPDATE+6, UPDATE+7
>> PSOSCP ICD+8, ICD+10, ICD+13, ICD+16
PSOX EN+8~
PSOX("ICD" ICD+2, ICD+3, ICD+5*, ICD+6*, ICD+7, ICD+18!
PSOX("IRXN" EN+8*, EN+15, EN+19, EN+20, EN+21, EN2+50, ICD+4, ICD+11, ICD+15, ICD+16
ICD+17
PSOX("OIRXN" ICD+5
RAR EN+7~, EN+11*, EN+12*, EN+22, EN+23, EN2+5, EN2+6*, EN2+40, EN2+44, EN2+46
EN2+47, EN2+48, EN2+49, EN2+50
SCEI UPDATE+2~, UPDATE+10*, UPDATE+12*
SOLDI EN+7~, EN+35*
SOLDI( EN2+44
STATCHK EN+7~, EN2+25*, EN2+26, EN2+27
STATCHK2 EN+7~, EN2+24, EN2+25*, EN2+26*, EN2+27*
TNEW EN+7~, EN2+41*, UPDATE+2~, UPDATE+6*, UPDATE+7
U EN2+25, EN2+32, WRITEWRITE2WRITE2+1, ICD+5, UPDATE+6, UPDATE+13, CSET+4
X EN+7~, EN2+9*, EN2+11*, EN2+12, EN2+13, EN2+14, EN2+15, EN2+20, EN2+21*, EN2+22*
EN2+23, EN2+30*, EN2+42, STATCHK+1~*, STATCHK+2*, STATCHK+3, DELETE+1*, DELETE+2, DELETE+3, DELETE+13*
Y EN+7~, EN2+5, EN2+12*, EN2+15*, EN2+20*, EN2+21*, EN2+22*, EN2+23*, EN2+24*, EN2+25
EN2+28*, EN2+30*, EN2+32, EN2+44*, DELETE+13*
Z EN+7~

Marked Items

Name Field # of Occurrence
$T(CIDC^IBBAPI EN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All