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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCHCS3

Package: IFCAP

Routine: PRCHCS3


Information

PRCHCS3 ;WISC/RHD-EDIT LOG CODE SHEETS ;9/16/94 12:23 PM

Source Information

Source file <PRCHCS3.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
IFCAP 7 ^PRCFACX1  ENCODE^PRCFES1  ^PRCFYN  (ASK,DSP,ERR,HDR)^PRCHCS0  (Q,SIG)^PRCHCS4  (,SETR)^PRCHCS5  $$ERR^PRCHQQ  
VA FileMan 7 ^%DT  NOW^%DTC  ^DIC  WAIT^DICD  ^DIE  ^DIK  ^DIR  
Kernel 1 HOME^%ZIS  

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
IFCAP 1 PRCHED  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EN
1
11
2
3
4
TRAN
QQ
Q
SET ;S PRCH0=^PRCS(410,PRCHR,"IT",PRCHLI,0),I=+$P(^(0),U,5),PRCH2=$S($D(^(100)):^(100),1:""),PRCHI0=$S($D(^PRC(441,I,0)):^(0),1:""),PRCHIV0=$S($D(^PRC(441,I,2,+^PRCS(410,PRCHR,2),0)):^(0),1:"")
CHK ;SEE WHETHER CODE SHEET ALREADY ON FILE
ERR1
LI
DEL
DEL0
DEL1 ;DELETES ALL CODE SHEETS

External References

Name Field # of Occurrence
^%DT TRAN+1
NOW^%DTC TRAN
HOME^%ZIS 1
^DIC LI+1
WAIT^DICD DEL1+1
^DIE 4, TRAN+3
^DIK TRAN+5, DEL0, DEL1+2
^DIR QQ
^PRCFACX1 4
ENCODE^PRCFES1 TRAN+4
^PRCFYN 2+2, 3, ERR1+1, DEL
ASK^PRCHCS0 11+1
DSP^PRCHCS0 4
ERR^PRCHCS0 11+1
HDR^PRCHCS0 1
Q^PRCHCS4 Q
SIG^PRCHCS4 TRAN+2
^PRCHCS5 EN+1, ERR1+2
SETR^PRCHCS5 DEL0, DEL1+2
$$ERR^PRCHQQ QQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Now creating LOG code sheets ."
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"No code sheets created !",$C(7)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !," Line Item: ",X,!,Y
  • Line Location: 11+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !!,$C(7),"CODE SHEETS MARKED FOR TRANSMISSION!"
  • Line Location: TRAN+6
Function Call: WRITE
  • Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG)
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !,"Notify Application Coordinator!",$C(7)
  • Condition for execution: PRCSIG=0!(PRCSIG=-3)
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !?5,"Code sheet for line/item number "_PRCHLI_" has not been completed",!,"and needs to be edited !",$C(7)
  • Line Location: ERR1+0
Function Call: WRITE
  • Prompt: !,"ALL CODE SHEETS DELETED FOR THIS ISSUE REQUEST!",$C(7)
  • Line Location: DEL1+3
Routine Call
  • DIC
  • Line Location:
    • LI+1
Routine Call
  • DIE
  • Line Location:
    • 4
    • TRAN+3
Routine Call
  • DIR
  • Line Location:
    • QQ
Routine Call
  • %ZIS
  • Line Location:
    • 1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRCF(423 - [#423] Classic Fileman Calls
^PRC(443 - [#443] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] SET+1
^PRC(443 - [#443] TRAN+5
^PRCF(423 - [#423] 11, 11+1, 2, CHK+1
^PRCS(410 - [#410] EN+1, 1+1, TRAN+3, SET+1, CHK+1, DEL1+2

Label References

Name Line Occurrences
1 DEL0
11 1+1
2 1+2, 4
3 2, TRAN+1
4 4+1
CHK 1+1, TRAN+3, DEL1+2
DEL 2, 3
DEL0 DEL0
DEL1 2+2, TRAN+2, DEL
ERR1 1+1, 11
LI 4, DEL0
Q EN+2, TRAN+2, TRAN+6, DEL1+3
QQ TRAN+3
SET EN+1, ERR1+2
TRAN 2+2

Naked Globals

Name Field # of Occurrence
^("CODE" 11, 11+1
^(0 SET+1
^(100 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 2+2, 3, TRAN, ERR1+1, DEL
>> %A 2+1*, 3*, ERR1+1*, DEL*
>> %B 2+1*, 3*, ERR1+1*, DEL*
>> %B(1 2+1*, 3*, ERR1+1*, DEL*
>> %B(2 2+2*
>> %DT TRAN+1*
>> %DT("A" TRAN+1*
>> %DT("B" TRAN+1*
>> %DT(0 TRAN+1*
>> D0 LI*
DA EN+1, 1+1, TRAN+3, TRAN+4, TRAN+5*, CHK+1*, CHK+2!, ERR1+2, LI!, LI+1*
, DEL0*, DEL1+2*
DIC LI!*, LI+1!
DIC("S" LI*
DIC(0 LI*
>> DIE 4*, TRAN+3*
DIK TRAN+5*!, DEL0*, DEL1+1*, DEL1+3!
>> DIR("A" QQ*
>> DIR(0 QQ*
>> DR 4*, TRAN+3*
DT TRAN*, TRAN+1
DUZ TRAN+4
>> I SET+1*
IOF 1
>> PRC("PER" TRAN+3
>> PRCFA EN+1, ERR1+2
>> PRCFA("EDIT" 4
>> PRCFA("REF" EN*
>> PRCFA("SYS" EN*
>> PRCH 1+1*, 11, 11+1, 2, ERR1+2*
>> PRCH0 SET+1*
>> PRCH2 SET+1*
>> PRCHAUTO EN*
PRCHDA LI!, LI+1!
>> PRCHDT TRAN+1*, TRAN+3
>> PRCHI EN+1*, 1+1*, TRAN+3*, DEL1+2*
>> PRCHI0 SET+1*
>> PRCHIV0 SET+1*
>> PRCHKEY TRAN+3
>> PRCHLCNT EN+1*, EN+2
>> PRCHLI EN+1*, 1+1*, 11+1, TRAN+3*, SET+1, CHK+1, ERR1, LI+1*, DEL1+2*
PRCHLOG 4!*, TRAN+2
PRCHR EN+1, EN+2!, 1+1, TRAN+2!, TRAN+3, TRAN+5, SET+1, CHK+1, LI, DEL1+2
, DEL1+3!
>> PRCSIG TRAN+2, TRAN+3*, TRAN+4, QQ
ROUTINE TRAN+4*, QQ*!
U SET+1, CHK+1
>> X 11+1*
>> Y 11+1*, 2, 4, TRAN+1, LI+1

Marked Items

Name Field # of Occurrence
$T( TRAN+4, QQ
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 |  Naked Globals |  Local Variables |  Marked Items  | All