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  | All
Print Page as PDF
Routine: PSOSPMB3

Package: Outpatient Pharmacy

Routine: PSOSPMB3


Information

PSOSPMB3 ;BIRM/MFR - ASAP Definitions Listman Actions Handler (Cont.) ;11/11/15

Source Information

Source file <PSOSPMB3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Outpatient Pharmacy 4 ($$ASKFLD,$$LOCK,$$SECKEY,BACK,EXIT)^PSOSPMA3  ($$VERDATA,LOADASAP)^PSOSPMU0  PAUSE^PSOSPMU1  ($$CUSSEG,$$GETSEGID,DELCUS,SAVEVER)^PSOSPMU3  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$UP^XLFSTR  
List Manager 1 FULL^VALM1  

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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO SPMP3 DELETE CUSTOMIZATION  

Entry Points

Name Comments DBIA/ICR reference
DELCUS ; Handles the 'Delete Customizatoin' Action
VERINUSE(PSOASVER) ; Verify whether the ASAP Version is in use or not
; Input: (r) PSOASVER - Source ASAP Version to be cloned (3.0, 4.0, 4.1, 4.2)

External References

Name Field # of Occurrence
$$GET1^DIQ DELCUS+32, VERINUSE+5
^DIR DELCUS+14, DELCUS+64, DELCUS+95
$$ASKFLD^PSOSPMA3 DELCUS+24, DELCUS+50, DELCUS+51, DELCUS+80, DELCUS+81, DELCUS+108
$$LOCK^PSOSPMA3 DELCUS+5
$$SECKEY^PSOSPMA3 DELCUS+4
BACK^PSOSPMA3 DELCUS+14, DELCUS+18, DELCUS+28, DELCUS+55, DELCUS+85, DELCUS+110
EXIT^PSOSPMA3 DELCUS+3, DELCUS+4, DELCUS+5
$$VERDATA^PSOSPMU0 DELCUS+9, DELCUS+25
LOADASAP^PSOSPMU0 DELCUS+29, DELCUS+30, DELCUS+56, DELCUS+57, DELCUS+86, DELCUS+87
PAUSE^PSOSPMU1 DELCUS+33
$$CUSSEG^PSOSPMU3 DELCUS+47
$$GETSEGID^PSOSPMU3 DELCUS+96, DELCUS+97
DELCUS^PSOSPMU3 DELCUS+52, DELCUS+82, DELCUS+109
SAVEVER^PSOSPMU3 DELCUS+25
FULL^VALM1 DELCUS+7
$$UP^XLFSTR DELCUS+65, DELCUS+96

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DELCUS+3
Function Call: WRITE
  • Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' delimiters will be deleted and the"
  • Line Location: DELCUS+19
Function Call: WRITE
  • Prompt: !,"standard delimiters will be restored to the following:",!
  • Line Location: DELCUS+20
Function Call: WRITE
  • Prompt: ?40,"Restoring..."
  • Line Location: DELCUS+25
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+25
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER," is being used by ",$$GET1^DIQ(5,$$VERINUSE(PSOASVER),.01)," and cannot be deleted.",$C(7)
  • Line Location: DELCUS+32
Function Call: WRITE
  • Prompt: !!," ASAP Version: ",PSOASVER
  • Line Location: DELCUS+34
Function Call: WRITE
  • Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' and all of its custom Segments,"
  • Line Location: DELCUS+36
Function Call: WRITE
  • Prompt: !,"Data Elements and Delimiters will be deleted and the standard definition"
  • Line Location: DELCUS+37
Function Call: WRITE
  • Prompt: !,"will be restored.",!
  • Line Location: DELCUS+38
Function Call: WRITE
  • Prompt: !!,"The custom ASAP Version '",PSOASVER,"' and all of its Segments and Data Elements"
  • Line Location: DELCUS+40
Function Call: WRITE
  • Prompt: !,"will be deleted.",!
  • Line Location: DELCUS+41
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEG),"^",1),?12,$P(CUSASAP(SEG),"^",2)
  • Line Location: DELCUS+47
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEG,ELM),"^",1),?12,$P(CUSASAP(SEG,ELM),"^",2)
  • Line Location: DELCUS+49
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+52
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+52
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER
  • Line Location: DELCUS+58
Function Call: WRITE
  • Prompt: !
  • Line Location: DELCUS+64
Function Call: WRITE
  • Prompt: !,"Custom Segment not found!",$C(7)
  • Line Location: DELCUS+65
Function Call: WRITE
  • Prompt: !!,"The following custom children ASAP Segments must be deleted first:",!,$C(7)
  • Line Location: DELCUS+69
Function Call: WRITE
  • Prompt: !?3,SEG,?12,$P(CUSASAP(SEG),"^",2)
  • Line Location: DELCUS+70
Function Call: WRITE
  • Prompt: " ",$P(CUSASAP(SEGID),"^",2)
  • Line Location: DELCUS+71
Function Call: WRITE
  • Prompt: !!,"The customization for the Segment '",SEGID,"' and all of its custom Data Elements"
  • Line Location: DELCUS+74
Function Call: WRITE
  • Prompt: !,"will be deleted and the standard definition will be restored.",!
  • Line Location: DELCUS+75
Function Call: WRITE
  • Prompt: !!,"The custom Segment '",SEGID,"' and all of its Data Elements will be deleted.",!
  • Line Location: DELCUS+77
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEGID,ELM),"^",1),?12,$P(CUSASAP(SEGID,ELM),"^",2)
  • Line Location: DELCUS+79
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+82
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+82
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER
  • Line Location: DELCUS+88
Function Call: WRITE
  • Prompt: !
  • Line Location: DELCUS+95
Function Call: WRITE
  • Prompt: !,"Custom Data Element not found!",$C(7)
  • Line Location: DELCUS+98
Function Call: WRITE
  • Prompt: !,"Only the last Custom Data Element in the Segment can be deleted.",$C(7)
  • Line Location: DELCUS+100
Function Call: WRITE
  • Prompt: " ",$P(CUSASAP(SEGID),"^",2)
  • Line Location: DELCUS+101
Function Call: WRITE
  • Prompt: !!,"The customization for the Data Element '",$P(STDASAP(SEGID,ELMPOS),"^"),"' will be deleted and the"
  • Line Location: DELCUS+104
Function Call: WRITE
  • Prompt: !,"standard definition will be restored.",!
  • Line Location: DELCUS+105
Function Call: WRITE
  • Prompt: !!,"The custom Data Element '",$P(CUSASAP(SEGID,ELMPOS),"^",1),"' will be deleted.",!
  • Line Location: DELCUS+107
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+109
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+109
Routine Call
  • DIR
  • Line Location:
    • DELCUS+14
    • DELCUS+64
    • DELCUS+95

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ
^PS(58.41 - [#58.41] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.41 - [#58.41] VERINUSE+4

Label References

Name Line Occurrences
$$VERINUSE DELCUS+31, DELCUS+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLVDLMS DELCUS+2~, DELCUS+9*, DELCUS+10, DELCUS+21, DELCUS+22, DELCUS+23, DELCUS+43, DELCUS+44, DELCUS+45
CHILDREN DELCUS+2~, DELCUS+66!
CHILDREN( DELCUS+67*, DELCUS+70
CHILDREN("" DELCUS+66, DELCUS+68
CNT DELCUS+2~, DELCUS+46*, DELCUS+47*, DELCUS+49*, DELCUS+50*, DELCUS+61*, DELCUS+62*, DELCUS+78*, DELCUS+79*, DELCUS+80*
DELCUS+91*, DELCUS+93*
CUSASAP DELCUS+1~, DELCUS+30, DELCUS+57, DELCUS+87
CUSASAP( DELCUS+46, DELCUS+47, DELCUS+48, DELCUS+49, DELCUS+61, DELCUS+62, DELCUS+65, DELCUS+67, DELCUS+70, DELCUS+71
DELCUS+78, DELCUS+79, DELCUS+91, DELCUS+92, DELCUS+93, DELCUS+96, DELCUS+98, DELCUS+99, DELCUS+101, DELCUS+107
DELCUS+109
CUSTYPE DELCUS+1~, DELCUS+6*, DELCUS+15*, DELCUS+18, DELCUS+28, DELCUS+55, DELCUS+85
DIR DELCUS+1~, DELCUS+8!, DELCUS+59!, DELCUS+89!
DIR("?" DELCUS+13*, DELCUS+59*, DELCUS+60*, DELCUS+62*, DELCUS+63*, DELCUS+89*, DELCUS+90*, DELCUS+93*, DELCUS+94*
DIR("A" DELCUS+8*, DELCUS+63*, DELCUS+94*
DIR(0 DELCUS+8*, DELCUS+11*, DELCUS+12*, DELCUS+63*, DELCUS+94*
DIRUT DELCUS+1~, DELCUS+14, DELCUS+64, DELCUS+95
DONE DELCUS+1~, DELCUS+64*, DELCUS+71*, DELCUS+72, DELCUS+95*, DELCUS+101*, DELCUS+102
DTOUT DELCUS+1~, DELCUS+14, DELCUS+64, DELCUS+95
ELM DELCUS+1~, DELCUS+48*, DELCUS+49, DELCUS+78*, DELCUS+79, DELCUS+92*, DELCUS+93
ELMID DELCUS+1~
ELMPOS DELCUS+1~, DELCUS+97*, DELCUS+98, DELCUS+99, DELCUS+103, DELCUS+104, DELCUS+107, DELCUS+109
I DELCUS+1~
J DELCUS+1~
PSOASVER DELCUS+3, DELCUS+9, DELCUS+11, DELCUS+12, DELCUS+19, DELCUS+25, DELCUS+29, DELCUS+30, DELCUS+31, DELCUS+32
DELCUS+34, DELCUS+36, DELCUS+40, DELCUS+47, DELCUS+52, DELCUS+56, DELCUS+57, DELCUS+58, DELCUS+82, DELCUS+86
DELCUS+87, DELCUS+88, DELCUS+109, VERINUSE~, VERINUSE+5
SEG DELCUS+1~, DELCUS+46*, DELCUS+47, DELCUS+48, DELCUS+49, DELCUS+61*, DELCUS+62, DELCUS+67*, DELCUS+70*, DELCUS+91*
DELCUS+92, DELCUS+93
SEGID DELCUS+1~, DELCUS+64*, DELCUS+71*, DELCUS+73, DELCUS+74, DELCUS+77, DELCUS+78, DELCUS+79, DELCUS+82, DELCUS+97*
DELCUS+98, DELCUS+99, DELCUS+101, DELCUS+103, DELCUS+104, DELCUS+107, DELCUS+109
STATE VERINUSE+3~, VERINUSE+4*, VERINUSE+5
STDASAP DELCUS+1~, DELCUS+29, DELCUS+31, DELCUS+35, DELCUS+56, DELCUS+86
STDASAP( DELCUS+66, DELCUS+73, DELCUS+99, DELCUS+103, DELCUS+104
STDVDLMS DELCUS+2~, DELCUS+9*, DELCUS+10, DELCUS+21, DELCUS+22, DELCUS+23, DELCUS+42, DELCUS+43, DELCUS+44, DELCUS+45
STOP DELCUS+1~, DELCUS+46*, DELCUS+48, DELCUS+50*, DELCUS+61*, DELCUS+78*, DELCUS+80*
>> VALMSG DELCUS+3*
VERINUSE VERINUSE+3~, VERINUSE+4*, VERINUSE+5*, VERINUSE+6
VERLST DELCUS+1~
X DELCUS+1~, DELCUS+14, DELCUS+24*, DELCUS+51*, DELCUS+64, DELCUS+65*, DELCUS+66, DELCUS+67, DELCUS+71, DELCUS+81*
DELCUS+95, DELCUS+96*, DELCUS+97, DELCUS+108*
Y DELCUS+1~, DELCUS+15
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  | All