Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call